From 9de06595c8c161ff968cd99b5e05808ddabf0fcf Mon Sep 17 00:00:00 2001 From: Huub Van Dam Date: Fri, 29 Oct 2010 17:52:31 +0000 Subject: [PATCH] HvD: In the CVS era the $Id: $ tags in the source code files would 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. --- src/tce/GNUmakefile | 2 +- src/tce/add_block.F | 2 +- src/tce/add_hash_block.F | 2 +- src/tce/atpart_nalength.F | 2 +- src/tce/cc3/GNUmakefile | 2 +- src/tce/cc3/cc3_lambda3.F | 180 ++++----- src/tce/cc3/cc3_t3.F | 62 +-- src/tce/cc3/ccsdt1b_t3.F | 10 +- src/tce/cc3/ccsdt2_t3.F | 26 +- src/tce/cc3/ccsdt3_t3.F | 92 ++--- src/tce/cc3/eomcc3_x3.F | 178 ++++----- src/tce/cc3/eomccsdt1_x3.F | 10 +- src/tce/cc3/eomccsdt3_x3.F | 200 +++++----- src/tce/ccd/GNUmakefile | 2 +- src/tce/ccd/ccd_e.F | 4 +- src/tce/ccd/ccd_t2.F | 38 +- src/tce/ccsd_yr/GNUmakefile | 2 +- src/tce/ccsd_yr/alpha_2_yr.F | 44 +-- src/tce/ccsd_yr/ccsd_lr_d1_hh.F | 8 +- src/tce/ccsd_yr/ccsd_lr_d1_hp.F | 40 +- src/tce/ccsd_yr/ccsd_lr_d1_ph.F | 10 +- src/tce/ccsd_yr/ccsd_lr_d1_pp.F | 10 +- src/tce/ccsd_yr/ccsd_y_o1.F | 46 +-- src/tce/ccsd_yr/ccsd_y_o2.F | 20 +- src/tce/ccsd_yr/ccsd_y_tr1.F | 364 ++++++++--------- src/tce/ccsd_yr/ccsd_y_tr2.F | 138 +++---- src/tce/ccsd_yr/ccsd_yr1.F | 248 ++++++------ src/tce/ccsd_yr/ccsd_yr2.F | 136 +++---- src/tce/ccsdt_beta/GNUmakefile | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_4_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_2_9_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_10_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_11_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_12_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_13_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_14_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_15_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_16_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_16_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_16_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_17_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_17_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_17_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_18_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_18_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_18_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_5_3_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_11_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_12_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_12_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_12_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_13_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_13_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_13_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_14_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_14_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_14_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_15_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_15_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_15_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_4_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_7_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_6_7_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_11_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_12_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_13_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_13_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_13_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_14_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_16_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_16_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_16_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_17_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_17_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_17_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_18_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_18_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_18_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_19_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_19_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_19_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_19_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_19_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_20_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_20_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_20_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_21_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_21_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_21_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_23_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_23_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_23_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_24_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_24_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_24_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_25_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_25_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_25_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_25_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_25_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_26_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_26_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_26_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_27_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_27_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_27_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_29_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_29_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_29_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_2_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_2_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_30_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_30_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_30_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_31_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_31_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_31_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_31_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_31_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_32_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_32_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_32_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_33_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_33_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_33_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_34_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_34_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_34_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_4_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_8_7_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_11_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_11_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_11_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_11_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_11_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_12_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_12_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_12_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_12_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_12_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_13_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_13_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_13_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_13_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_2_9_13_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_1_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_1_3_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_1_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_3_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_4_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_4_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_5_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_5_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_6_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_2_6_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_1_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_3_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_4_6_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_5_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_5_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_6_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_3_6_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_10_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_11_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_11_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_11_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_12_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_12_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_12_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_13_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_13_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_13_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_13_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_13_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_14_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_14_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_14_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_15_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_15_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_15_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_16_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_16_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_16_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_18_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_18_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_18_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_19_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_19_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_19_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_20_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_20_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_20_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_21_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_21_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_21_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_21_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_21_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_22_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_22_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_22_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_23_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_23_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_23_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_24_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_24_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_24_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_2_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_3_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_4_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_4_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_5_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_5_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_5_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_5_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_6_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_6_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_7_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_8_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_10_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_5_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_6_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_7_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_8_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_9_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_1_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_1_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_1_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_1_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_2_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_2_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_2_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_2_4_1.F | 2 +- .../ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_3_1_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_3_2_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_3_3_1.F | 2 +- .../OFFSET_ccsdt_lr_beta_4_5_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F | 2 +- .../ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F | 2 +- src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F | 2 +- src/tce/ccsdt_lambda/GNUmakefile | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_3_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_4_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_5_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_6_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_7_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_8_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_8_1_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_9_1.F | 2 +- .../OFFSET_ccsdt_lambda1_14_9_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F | 2 +- .../OFFSET_ccsdt_lambda1_15_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_15_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F | 2 +- .../OFFSET_ccsdt_lambda1_16_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_16_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_1_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_1_4_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_5_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_6_1.F | 2 +- .../OFFSET_ccsdt_lambda1_18_6_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F | 2 +- .../OFFSET_ccsdt_lambda1_20_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F | 2 +- .../OFFSET_ccsdt_lambda1_21_1_1.F | 2 +- .../OFFSET_ccsdt_lambda1_21_1_1_1.F | 2 +- .../OFFSET_ccsdt_lambda1_21_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_21_2_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_5_2_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_6_2_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_10_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_12_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_13_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_14_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_2_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_2_2_2_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_2_3_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_2_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_4_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_5_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F | 2 +- .../OFFSET_ccsdt_lambda1_8_6_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F | 2 +- .../OFFSET_ccsdt_lambda1_9_5_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F | 2 +- .../OFFSET_ccsdt_lambda2_10_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_10_2_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_10_3_1.F | 2 +- .../OFFSET_ccsdt_lambda2_10_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F | 2 +- .../OFFSET_ccsdt_lambda2_11_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_11_2_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_11_3_1.F | 2 +- .../OFFSET_ccsdt_lambda2_11_4_1.F | 2 +- .../OFFSET_ccsdt_lambda2_11_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F | 2 +- .../OFFSET_ccsdt_lambda2_12_3_1.F | 2 +- .../OFFSET_ccsdt_lambda2_12_6_1.F | 2 +- .../OFFSET_ccsdt_lambda2_12_7_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F | 2 +- .../OFFSET_ccsdt_lambda2_19_3_1.F | 2 +- .../OFFSET_ccsdt_lambda2_19_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F | 2 +- .../OFFSET_ccsdt_lambda2_23_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_23_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F | 2 +- .../OFFSET_ccsdt_lambda2_24_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F | 2 +- .../OFFSET_ccsdt_lambda2_25_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F | 2 +- .../OFFSET_ccsdt_lambda2_26_1_1.F | 2 +- .../OFFSET_ccsdt_lambda2_26_2_1.F | 2 +- .../OFFSET_ccsdt_lambda2_26_2_1_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F | 2 +- .../ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_density1.F | 68 ++-- src/tce/ccsdt_lambda/ccsdt_lambda1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_10.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_11.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_12.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_13.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_17.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_19.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_20.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F | 2 +- .../ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F | 2 +- .../ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_13.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_14.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_15.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_16.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_17.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_18.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_20.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_21.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_22.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_24.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_25.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_8.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda2_9.F | 2 +- src/tce/ccsdt_lambda/ccsdt_lambda3.F | 134 +++---- src/tce/cis/GNUmakefile | 2 +- src/tce/cis/cis_x1.F | 8 +- src/tce/cis/cis_xdiagon.F | 2 +- src/tce/cis/cis_xguess.F | 2 +- src/tce/cis/cis_xtidy.F | 2 +- src/tce/cisd/GNUmakefile | 2 +- src/tce/cisd/cisd_c1.F | 18 +- src/tce/cisd/cisd_c2.F | 22 +- src/tce/cisd/cisd_e.F | 6 +- src/tce/cisdt/GNUmakefile | 2 +- src/tce/cisdt/cisdt_c1.F | 20 +- src/tce/cisdt/cisdt_c2.F | 28 +- src/tce/cisdt/cisdt_c3.F | 22 +- src/tce/cisdt/cisdt_e.F | 6 +- src/tce/cisdtq/GNUmakefile | 2 +- src/tce/cisdtq/cisdtq_c1.F | 20 +- src/tce/cisdtq/cisdtq_c2.F | 30 +- src/tce/cisdtq/cisdtq_c3.F | 28 +- src/tce/cisdtq/cisdtq_c4.F | 22 +- src/tce/cisdtq/cisdtq_e.F | 6 +- src/tce/copyfile.F | 2 +- src/tce/cr-eomccsd_t/GNUmakefile | 2 +- src/tce/cr-eomccsd_t/c1_c1.F | 12 +- src/tce/cr-eomccsd_t/c1excit2.F | 4 +- src/tce/cr-eomccsd_t/c2_c2.F | 8 +- src/tce/cr-eomccsd_t/c2excit2.F | 12 +- src/tce/cr-eomccsd_t/cr_eomccsd_t.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F | 2 +- .../cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F | 2 +- src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F | 2 +- src/tce/cr-eomccsd_t/cr_s_m3.F | 6 +- src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F | 212 +++++----- src/tce/cr-eomccsd_t/nr0.F | 12 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_1_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_1_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_3_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_3_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_4_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_5_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_6_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_7_1.F | 2 +- .../offset_cr_eomccsd_t_n2_1_8_1.F | 2 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_2_1_1.F | 2 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F | 2 +- .../offset_cr_eomccsd_t_n2_3_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_3_3_1.F | 2 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F | 2 +- .../offset_cr_eomccsd_t_n2_4_1_1.F | 2 +- .../offset_cr_eomccsd_t_n2_4_1_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_4_1_3_1.F | 2 +- .../offset_cr_eomccsd_t_n2_4_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_4_2_2_1.F | 2 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F | 2 +- .../offset_cr_eomccsd_t_n2_5_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_5_2_2_1.F | 2 +- .../offset_cr_eomccsd_t_n2_5_3_1.F | 2 +- .../offset_cr_eomccsd_t_n2_5_4_1.F | 2 +- .../offset_cr_eomccsd_t_n2_5_5_1.F | 2 +- .../cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F | 2 +- .../offset_cr_eomccsd_t_n2_6_3_1.F | 2 +- src/tce/cr-eomccsd_t/q3rexpt2.F | 12 +- src/tce/cr-eomccsd_t/t2t12.F | 6 +- src/tce/createfile.F | 8 +- src/tce/crop/GNUmakefile | 2 +- src/tce/crop/tce_crop.F | 2 +- src/tce/daxfile.F | 2 +- src/tce/daxpyfile.F | 2 +- src/tce/ddotfile.F | 6 +- src/tce/deletefile.F | 4 +- src/tce/diis/GNUmakefile | 2 +- src/tce/diis/tce_diis.F | 2 +- src/tce/diis/tce_diis_init.F | 2 +- src/tce/diis/tce_diis_switch.F | 2 +- src/tce/diis/tce_diis_tidy.F | 2 +- src/tce/diis/tce_jacobi_l1.F | 2 +- src/tce/diis/tce_jacobi_l2.F | 2 +- src/tce/diis/tce_jacobi_l3.F | 2 +- src/tce/diis/tce_jacobi_l4.F | 2 +- src/tce/diis/tce_jacobi_t1.F | 4 +- src/tce/diis/tce_jacobi_t2.F | 4 +- src/tce/diis/tce_jacobi_t3.F | 2 +- src/tce/diis/tce_jacobi_t3a.F | 2 +- src/tce/diis/tce_jacobi_t4.F | 2 +- src/tce/diis/tce_jacobi_x1.F | 2 +- src/tce/diis/tce_jacobi_x2.F | 2 +- src/tce/diis/tce_jacobi_x3.F | 2 +- src/tce/diis/tce_jacobi_x3a.F | 2 +- src/tce/diis/tce_jacobi_x4.F | 2 +- src/tce/diis/tce_jacobi_y1.F | 2 +- src/tce/diis/tce_jacobi_y2.F | 2 +- src/tce/diis/tce_jacobi_y3.F | 2 +- src/tce/diis/tce_jacobi_y4.F | 2 +- src/tce/diis2/GNUmakefile | 2 +- src/tce/diis2/tce_diis2.F | 2 +- src/tce/diis2/tce_diis2_init.F | 2 +- src/tce/diis2/tce_diis2_tidy.F | 2 +- src/tce/diis2/tce_jacobi_lr1.F | 2 +- src/tce/diis2/tce_jacobi_lr2.F | 2 +- src/tce/diis2/tce_jacobi_lr3.F | 2 +- src/tce/diis2/tce_jacobi_lr4.F | 2 +- src/tce/diis2/tce_jacobi_tr1.F | 2 +- src/tce/diis2/tce_jacobi_tr2.F | 2 +- src/tce/diis2/tce_jacobi_tr3.F | 2 +- src/tce/diis2/tce_jacobi_tr3a.F | 2 +- src/tce/diis2/tce_jacobi_tr4.F | 2 +- src/tce/diis3/GNUmakefile | 2 +- src/tce/diis3/tce_diis3.F | 2 +- src/tce/diis3/tce_diis3c.F | 2 +- src/tce/diis3/tce_jacobi2_ir1.F | 2 +- src/tce/diis3/tce_jacobi2_ir2.F | 2 +- src/tce/diis3/tce_jacobi2_ir3.F | 2 +- src/tce/diis3/tce_jacobi2_ir4.F | 2 +- src/tce/diis3/tce_jacobi_ir1.F | 2 +- src/tce/diis3/tce_jacobi_ir2.F | 2 +- src/tce/diis3/tce_jacobi_ir3.F | 2 +- src/tce/diis3/tce_jacobi_ir4.F | 2 +- src/tce/dratoga.F | 2 +- src/tce/dscalfile.F | 2 +- src/tce/e2_offset_2_offset.F | 2 +- src/tce/emb/GNUmakefile | 2 +- src/tce/emb/c1v.F | 4 +- src/tce/emb/c2vt1_s.F | 12 +- src/tce/emb/emb1.F | 2 +- src/tce/emb/emb2.F | 2 +- src/tce/eomccsd/GNUmakefile | 2 +- src/tce/eomccsd/cc2_x1.F | 88 ++--- src/tce/eomccsd/cc2_x2.F | 66 ++-- src/tce/eomccsd/eomccsd_1prdm_hh.F | 20 +- src/tce/eomccsd/eomccsd_1prdm_hp.F | 6 +- src/tce/eomccsd/eomccsd_1prdm_ph.F | 72 ++-- src/tce/eomccsd/eomccsd_1prdm_pp.F | 20 +- src/tce/eomccsd/eomccsd_denominator.F | 6 +- src/tce/eomccsd/eomccsd_density1.F | 148 +++---- src/tce/eomccsd/eomccsd_x1.F | 90 ++--- src/tce/eomccsd/eomccsd_x1_old.F | 88 ++--- src/tce/eomccsd/eomccsd_x2.F | 222 +++++------ src/tce/eomccsd/eomccsd_x2_old.F | 220 +++++------ src/tce/eomccsd/eomccsd_y1.F | 248 ++++++------ src/tce/eomccsd/eomccsd_y2.F | 136 +++---- src/tce/gatodra.F | 2 +- src/tce/gatoeaf.F | 2 +- src/tce/get_block.F | 4 +- src/tce/get_block_ind.F | 4 +- src/tce/get_block_ind_sf.F | 4 +- src/tce/get_hash_block.F | 4 +- src/tce/get_hash_block_ma.F | 2 +- src/tce/gradients/GNUmakefile | 2 +- src/tce/gradients/ccsd_1pdm_hh_mo.F | 6 +- src/tce/gradients/ccsd_1pdm_hp_mo.F | 4 +- src/tce/gradients/ccsd_1pdm_ph_mo.F | 20 +- src/tce/gradients/ccsd_1pdm_pp_mo.F | 6 +- src/tce/gradients/ccsd_2pdm_hhhh_mo.F | 10 +- src/tce/gradients/ccsd_2pdm_hhhp_mo.F | 4 +- src/tce/gradients/ccsd_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/ccsd_2pdm_hphh_mo.F | 30 +- src/tce/gradients/ccsd_2pdm_hphp_mo.F | 12 +- src/tce/gradients/ccsd_2pdm_hppp_mo.F | 4 +- src/tce/gradients/ccsd_2pdm_pphh_mo.F | 88 ++--- src/tce/gradients/ccsd_2pdm_pphp_mo.F | 30 +- src/tce/gradients/ccsd_2pdm_pppp_mo.F | 10 +- src/tce/gradients/ccsd_zvec.F | 12 +- src/tce/gradients/ccsdt_1pdm_hh_mo.F | 8 +- src/tce/gradients/ccsdt_1pdm_hp_mo.F | 4 +- src/tce/gradients/ccsdt_1pdm_ph_mo.F | 32 +- src/tce/gradients/ccsdt_1pdm_pp_mo.F | 8 +- src/tce/gradients/ccsdt_2pdm_hhhh_mo.F | 14 +- src/tce/gradients/ccsdt_2pdm_hhhp_mo.F | 6 +- src/tce/gradients/ccsdt_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/ccsdt_2pdm_hphh_mo.F | 62 +-- src/tce/gradients/ccsdt_2pdm_hphp_mo.F | 22 +- src/tce/gradients/ccsdt_2pdm_hppp_mo.F | 6 +- src/tce/gradients/ccsdt_2pdm_pphh_mo.F | 174 ++++---- src/tce/gradients/ccsdt_2pdm_pphp_mo.F | 58 +-- src/tce/gradients/ccsdt_2pdm_pppp_mo.F | 14 +- src/tce/gradients/ccsdtq_1pdm_hh_mo.F | 10 +- src/tce/gradients/ccsdtq_1pdm_hp_mo.F | 4 +- src/tce/gradients/ccsdtq_1pdm_ph_mo.F | 46 +-- src/tce/gradients/ccsdtq_1pdm_pp_mo.F | 10 +- src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F | 24 +- src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F | 8 +- src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/ccsdtq_2pdm_hphh_mo.F | 102 ++--- src/tce/gradients/ccsdtq_2pdm_hphp_mo.F | 34 +- src/tce/gradients/ccsdtq_2pdm_hppp_mo.F | 8 +- src/tce/gradients/ccsdtq_2pdm_pphh_mo.F | 374 +++++++++--------- src/tce/gradients/ccsdtq_2pdm_pphp_mo.F | 102 ++--- src/tce/gradients/ccsdtq_2pdm_pppp_mo.F | 24 +- src/tce/gradients/cis_1pdm_hh_mo.F | 4 +- src/tce/gradients/cis_1pdm_pp_mo.F | 4 +- src/tce/gradients/cis_2pdm_hphp_mo.F | 4 +- src/tce/gradients/cis_x1.F | 8 +- src/tce/gradients/cis_xdiagon.F | 2 +- src/tce/gradients/cis_xguess.F | 2 +- src/tce/gradients/cis_xtidy.F | 2 +- src/tce/gradients/cisd_1pdm_hh_mo.F | 6 +- src/tce/gradients/cisd_1pdm_pp_mo.F | 6 +- src/tce/gradients/cisd_2pdm_hhhh_mo.F | 4 +- src/tce/gradients/cisd_2pdm_hhhp_mo.F | 4 +- src/tce/gradients/cisd_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/cisd_2pdm_hphh_mo.F | 4 +- src/tce/gradients/cisd_2pdm_hphp_mo.F | 6 +- src/tce/gradients/cisd_2pdm_hppp_mo.F | 4 +- src/tce/gradients/cisd_2pdm_pphh_mo.F | 4 +- src/tce/gradients/cisd_2pdm_pphp_mo.F | 4 +- src/tce/gradients/cisd_2pdm_pppp_mo.F | 4 +- src/tce/gradients/cisdt_1pdm_hh_mo.F | 8 +- src/tce/gradients/cisdt_1pdm_pp_mo.F | 8 +- src/tce/gradients/cisdt_2pdm_hhhh_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_hhhp_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_hhpp_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_hphh_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_hphp_mo.F | 8 +- src/tce/gradients/cisdt_2pdm_hppp_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_pphh_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_pphp_mo.F | 6 +- src/tce/gradients/cisdt_2pdm_pppp_mo.F | 6 +- src/tce/gradients/cisdtq_1pdm_hh_mo.F | 10 +- src/tce/gradients/cisdtq_1pdm_pp_mo.F | 10 +- src/tce/gradients/cisdtq_2pdm_hhhh_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_hhhp_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_hhpp_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_hphh_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_hphp_mo.F | 10 +- src/tce/gradients/cisdtq_2pdm_hppp_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_pphh_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_pphp_mo.F | 8 +- src/tce/gradients/cisdtq_2pdm_pppp_mo.F | 8 +- src/tce/gradients/eomccsd_1pdm_hh_mo.F | 20 +- src/tce/gradients/eomccsd_1pdm_hp_mo.F | 6 +- src/tce/gradients/eomccsd_1pdm_ph_mo.F | 72 ++-- src/tce/gradients/eomccsd_1pdm_pp_mo.F | 20 +- src/tce/gradients/eomccsd_2pdm_hhhh_mo.F | 22 +- src/tce/gradients/eomccsd_2pdm_hhhp_mo.F | 10 +- src/tce/gradients/eomccsd_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/eomccsd_2pdm_hphh_mo.F | 96 ++--- src/tce/gradients/eomccsd_2pdm_hphp_mo.F | 38 +- src/tce/gradients/eomccsd_2pdm_hppp_mo.F | 10 +- src/tce/gradients/eomccsd_2pdm_pphh_mo.F | 292 +++++++------- src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F | 84 ++-- src/tce/gradients/eomccsd_2pdm_pphp_mo.F | 96 ++--- src/tce/gradients/eomccsd_2pdm_pppp_mo.F | 22 +- src/tce/gradients/eomccsd_x1_grad.F | 88 ++--- src/tce/gradients/eomccsd_x2_grad.F | 220 +++++------ src/tce/gradients/eomccsd_z1.F | 364 ++++++++--------- src/tce/gradients/eomccsd_z2.F | 298 +++++++------- src/tce/gradients/mp2_1pdm_hh_mo.F | 4 +- src/tce/gradients/mp2_1pdm_pp_mo.F | 4 +- src/tce/gradients/mp2_2pdm_pphh_mo.F | 4 +- src/tce/gradients/mp3_1pdm_hh_mo.F | 4 +- src/tce/gradients/mp3_1pdm_pp_mo.F | 4 +- src/tce/gradients/mp3_2pdm_hhhh_mo.F | 4 +- src/tce/gradients/mp3_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/mp3_2pdm_hphp_mo.F | 4 +- src/tce/gradients/mp3_2pdm_pppp_mo.F | 4 +- src/tce/gradients/mp4_1pdm_hh_mo_II.F | 4 +- src/tce/gradients/mp4_1pdm_hh_mo_III_a.F | 8 +- src/tce/gradients/mp4_1pdm_hh_mo_III_b.F | 4 +- src/tce/gradients/mp4_1pdm_pp_mo_II.F | 4 +- src/tce/gradients/mp4_1pdm_pp_mo_III_a.F | 8 +- src/tce/gradients/mp4_1pdm_pp_mo_III_b.F | 4 +- src/tce/gradients/mp4_2pdm_hhhh_mo.F | 4 +- src/tce/gradients/mp4_2pdm_hhpp_mo.F | 4 +- src/tce/gradients/mp4_2pdm_hphh_mo.F | 4 +- src/tce/gradients/mp4_2pdm_hphp_mo.F | 4 +- src/tce/gradients/mp4_2pdm_pphh_mo.F | 32 +- src/tce/gradients/mp4_2pdm_pphp_mo.F | 4 +- src/tce/gradients/mp4_2pdm_pppp_mo.F | 4 +- src/tce/gradients/tce_cis_denominator.F | 4 +- src/tce/gradients/tce_cisd_denominator.F | 6 +- src/tce/gradients/tce_cisdt_denominator.F | 8 +- src/tce/gradients/tce_cisdtq_denominator.F | 10 +- src/tce/gradients/tce_dens_pphh_offset.F | 2 +- src/tce/gradients/tce_eom_xdiagon_grad.F | 2 +- src/tce/gradients/tce_grad1.F | 4 +- src/tce/gradients/tce_grad2.F | 2 +- src/tce/gradients/tce_grad_force.F | 2 +- src/tce/gradients/tce_grad_tidy.F | 2 +- src/tce/gradients/tce_gradients_doit.F | 2 +- src/tce/gradients/tce_mp2_norm.F | 4 +- src/tce/gradients/tce_mp4_t24.F | 32 +- src/tce/gradients/tce_zvec_x1_offset.F | 2 +- src/tce/gradients/wdm_hh_mo_a.F | 6 +- src/tce/gradients/wdm_hh_mo_b_a_a.F | 4 +- src/tce/gradients/wdm_hh_mo_b_a_b.F | 4 +- src/tce/gradients/wdm_hh_mo_b_b_a.F | 4 +- src/tce/gradients/wdm_hh_mo_b_b_b.F | 4 +- src/tce/gradients/wdm_hh_mo_c_a.F | 6 +- src/tce/gradients/wdm_hh_mo_c_b_a.F | 4 +- src/tce/gradients/wdm_hh_mo_c_b_b.F | 4 +- src/tce/gradients/wdm_hh_mo_c_c_a.F | 4 +- src/tce/gradients/wdm_hh_mo_c_c_b.F | 4 +- src/tce/gradients/wdm_hh_mo_c_d.F | 6 +- src/tce/gradients/wdm_hh_mo_c_e_a.F | 4 +- src/tce/gradients/wdm_hh_mo_c_e_b.F | 4 +- src/tce/gradients/wdm_hh_mo_c_f_a.F | 4 +- src/tce/gradients/wdm_hh_mo_c_f_b.F | 4 +- src/tce/gradients/wdm_hh_mo_d.F | 4 +- src/tce/gradients/wdm_hp_mo_a.F | 6 +- src/tce/gradients/wdm_hp_mo_b_a_a.F | 4 +- src/tce/gradients/wdm_hp_mo_b_a_b.F | 4 +- src/tce/gradients/wdm_hp_mo_b_b_a.F | 4 +- src/tce/gradients/wdm_hp_mo_b_b_b.F | 4 +- src/tce/gradients/wdm_hp_mo_b_c.F | 6 +- src/tce/gradients/wdm_hp_mo_b_d_a.F | 4 +- src/tce/gradients/wdm_hp_mo_b_d_b.F | 4 +- src/tce/gradients/wdm_hp_mo_b_e_a.F | 4 +- src/tce/gradients/wdm_hp_mo_b_e_b.F | 4 +- src/tce/gradients/wdm_hp_mo_b_f.F | 6 +- src/tce/gradients/wdm_hp_mo_c.F | 4 +- src/tce/gradients/wdm_pp_mo_a.F | 6 +- src/tce/gradients/wdm_pp_mo_b_a_a.F | 4 +- src/tce/gradients/wdm_pp_mo_b_a_b.F | 4 +- src/tce/gradients/wdm_pp_mo_b_b_a.F | 4 +- src/tce/gradients/wdm_pp_mo_b_b_b.F | 4 +- src/tce/gradients/wdm_pp_mo_b_c.F | 6 +- src/tce/gradients/wdm_pp_mo_b_d_a.F | 4 +- src/tce/gradients/wdm_pp_mo_b_d_b.F | 4 +- src/tce/gradients/wdm_pp_mo_b_e_a.F | 4 +- src/tce/gradients/wdm_pp_mo_b_e_b.F | 4 +- src/tce/gradients/wdm_pp_mo_b_f.F | 6 +- src/tce/gradients/zvec_x_a_a.F | 6 +- src/tce/gradients/zvec_x_a_b_a.F | 4 +- src/tce/gradients/zvec_x_a_b_b.F | 4 +- src/tce/gradients/zvec_x_a_c_a.F | 4 +- src/tce/gradients/zvec_x_a_c_b.F | 4 +- src/tce/gradients/zvec_x_a_d.F | 6 +- src/tce/gradients/zvec_x_a_e_a.F | 4 +- src/tce/gradients/zvec_x_a_e_b.F | 4 +- src/tce/gradients/zvec_x_a_f_a.F | 4 +- src/tce/gradients/zvec_x_a_f_b.F | 4 +- src/tce/gradients/zvec_x_b_a_a.F | 4 +- src/tce/gradients/zvec_x_b_a_b.F | 4 +- src/tce/gradients/zvec_x_b_b_a.F | 4 +- src/tce/gradients/zvec_x_b_b_b.F | 4 +- src/tce/gradients/zvec_x_b_c.F | 6 +- src/tce/gradients/zvec_x_b_d_a.F | 4 +- src/tce/gradients/zvec_x_b_d_b.F | 4 +- src/tce/gradients/zvec_x_b_e_a.F | 4 +- src/tce/gradients/zvec_x_b_e_b.F | 4 +- src/tce/gradients/zvec_x_b_f.F | 6 +- src/tce/gradients/zvec_x_c_a.F | 6 +- src/tce/gradients/zvec_x_c_b.F | 6 +- src/tce/hbar.F | 8 +- src/tce/include/GNUmakefile | 2 +- src/tce/include/tce_diis.fh | 2 +- src/tce/include/tce_main.fh | 2 +- src/tce/lccd/GNUmakefile | 2 +- src/tce/lccd/lccd_e.F | 4 +- src/tce/lccd/lccd_t2.F | 14 +- src/tce/lccsd/GNUmakefile | 2 +- src/tce/lccsd/lccsd_e.F | 6 +- src/tce/lccsd/lccsd_t1.F | 16 +- src/tce/lccsd/lccsd_t2.F | 18 +- src/tce/lrh/GNUmakefile | 2 +- src/tce/lrh/tce_loc_j1.F | 8 +- src/tce/lrh/tce_loc_j2.F | 8 +- src/tce/ma_pack.F | 2 +- src/tce/ma_print_compact.F | 2 +- src/tce/ma_scale.F | 2 +- src/tce/ma_transpose.F | 2 +- src/tce/mbpt1/GNUmakefile | 2 +- src/tce/mbpt1/mbpt1_t1.F | 8 +- src/tce/mbpt1/mbpt1_t2.F | 10 +- src/tce/mbpt2/GNUmakefile | 2 +- src/tce/mbpt2/mbpt2_e.F | 4 +- src/tce/mbpt2/mbpt2_t1.F | 14 +- src/tce/mbpt2/mbpt2_t1_sd.F | 12 +- src/tce/mbpt2/mbpt2_t2.F | 18 +- src/tce/mbpt2/mbpt2_t2_b.F | 18 +- src/tce/mbpt2/mbpt2_t2_sd.F | 16 +- src/tce/mbpt2/mbpt2_t3.F | 26 +- src/tce/mbpt2/mbpt2_t4.F | 10 +- src/tce/mbpt3/GNUmakefile | 2 +- src/tce/mbpt3/mbpt3_e.F | 4 +- src/tce/mbpt3/mbpt3_t1.F | 18 +- src/tce/mbpt3/mbpt3_t1_sd.F | 16 +- src/tce/mbpt3/mbpt3_t2.F | 54 +-- src/tce/mbpt3/mbpt3_t2_sd.F | 50 +-- src/tce/mbpt4/GNUmakefile | 2 +- src/tce/mbpt4/mbpt4_e.F | 4 +- src/tce/oce.py | 2 +- src/tce/put_block.F | 4 +- src/tce/put_hash_block.F | 4 +- src/tce/qcisd/GNUmakefile | 2 +- src/tce/qcisd/qcisd_e.F | 4 +- src/tce/qcisd/qcisd_t1.F | 32 +- src/tce/qcisd/qcisd_t2.F | 42 +- src/tce/reconcilefile.F | 2 +- src/tce/response/GNUmakefile | 2 +- src/tce/response/ccsd_o1.F | 16 +- src/tce/response/ccsd_o2.F | 18 +- src/tce/response/ccsdt_o1.F | 16 +- src/tce/response/ccsdt_o2.F | 20 +- src/tce/response/ccsdt_o3.F | 24 +- src/tce/response/ccsdtq_o1.F | 16 +- src/tce/response/ccsdtq_o2.F | 20 +- src/tce/response/ccsdtq_o3.F | 26 +- src/tce/response/ccsdtq_o4.F | 30 +- src/tce/response/eomccsd_o1.F | 20 +- src/tce/response/eomccsd_o2.F | 30 +- src/tce/sf_print.F | 2 +- src/tce/sf_test.F | 2 +- src/tce/splitfiles.py | 2 +- src/tce/sym_abelian_axis.F | 2 +- src/tce/tce.py | 4 +- src/tce/tce_ao1e.F | 2 +- src/tce/tce_ao2e.F | 2 +- src/tce/tce_ao2e_cholesky.F | 2 +- src/tce/tce_ao2e_cholesky_2d.F | 2 +- src/tce/tce_ao2e_cholesky_4d.F | 2 +- src/tce/tce_ao2e_cholesky_orb.F | 10 +- src/tce/tce_ao2e_disk.F | 2 +- src/tce/tce_ao2e_new.F | 2 +- src/tce/tce_aod1.F | 2 +- src/tce/tce_ccsd_asym_polar.F | 2 +- src/tce/tce_ccsd_driver.F | 2 +- src/tce/tce_ccsd_hyperpolar.F | 6 +- src/tce/tce_ccsd_hyperpolar_static.F | 4 +- src/tce/tce_ccsd_lambda_driver.F | 2 +- src/tce/tce_ccsd_lambda_perturbative.F | 2 +- src/tce/tce_ccsd_lambda_response_driver.F | 2 +- src/tce/tce_ccsd_perturbative.F | 2 +- src/tce/tce_ccsd_response_driver.F | 2 +- src/tce/tce_ccsd_symm_polar.F | 2 +- src/tce/tce_ccsdt_driver.F | 2 +- src/tce/tce_ccsdt_lambda_driver.F | 2 +- src/tce/tce_ccsdt_response_driver.F | 2 +- src/tce/tce_ccsdt_symm_polar.F | 2 +- src/tce/tce_ccsdtq_driver.F | 2 +- src/tce/tce_ccsdtq_lambda_driver.F | 2 +- src/tce/tce_ccsdtq_response_driver.F | 2 +- src/tce/tce_ccsdtq_symm_polar.F | 2 +- src/tce/tce_cholesky.F | 2 +- src/tce/tce_clone_x1.F | 2 +- src/tce/tce_clone_x2.F | 2 +- src/tce/tce_clone_x3.F | 2 +- src/tce/tce_clone_x4.F | 2 +- src/tce/tce_clone_y1.F | 2 +- src/tce/tce_clone_y2.F | 2 +- src/tce/tce_clone_y3.F | 2 +- src/tce/tce_clone_y4.F | 2 +- src/tce/tce_create_movecs.F | 2 +- src/tce/tce_create_t1.F | 2 +- src/tce/tce_create_t2.F | 2 +- src/tce/tce_create_t3.F | 2 +- src/tce/tce_create_t4.F | 2 +- src/tce/tce_create_x1.F | 2 +- src/tce/tce_create_x2.F | 2 +- src/tce/tce_create_x3.F | 2 +- src/tce/tce_create_x4.F | 2 +- src/tce/tce_create_y1.F | 2 +- src/tce/tce_create_y2.F | 2 +- src/tce/tce_create_y3.F | 2 +- src/tce/tce_create_y4.F | 2 +- src/tce/tce_dgeev.F | 2 +- src/tce/tce_e_offset.F | 2 +- src/tce/tce_energy.F | 2 +- src/tce/tce_energy_fragment.F | 2 +- src/tce/tce_eom_init.F | 2 +- src/tce/tce_eom_tidy.F | 6 +- src/tce/tce_eom_xdiagon.F | 24 +- src/tce/tce_eom_xguess.F | 2 +- src/tce/tce_eom_ydiagon.F | 2 +- src/tce/tce_eom_yguess.F | 2 +- src/tce/tce_filename.F | 8 +- src/tce/tce_fock_create.F | 2 +- src/tce/tce_fock_destroy.F | 2 +- src/tce/tce_fourindex_cleanup.F | 2 +- src/tce/tce_fourindex_driver.F | 2 +- src/tce/tce_guess_t1.F | 12 +- src/tce/tce_guess_t2.F | 2 +- src/tce/tce_hash.F | 4 +- src/tce/tce_hash_ind.F | 2 +- src/tce/tce_init.F | 2 +- src/tce/tce_init_new.F | 2 +- src/tce/tce_input.F | 2 +- src/tce/tce_make_denom1.F | 2 +- src/tce/tce_make_denom2.F | 2 +- src/tce/tce_mbpt2.F | 2 +- src/tce/tce_mo1e.F | 2 +- src/tce/tce_mo1e_offset.F | 2 +- src/tce/tce_mo2e.F | 2 +- src/tce/tce_mo2e_2emet3.F | 4 +- src/tce/tce_mo2e_2emet3_n5.F | 4 +- src/tce/tce_mo2e_2emet4.F | 6 +- src/tce/tce_mo2e_2emet4_n5.F | 6 +- src/tce/tce_mo2e_disk.F | 2 +- src/tce/tce_mo2e_disk_2eorb.F | 2 +- src/tce/tce_mo2e_hybrid_2eorb_split.F | 2 +- src/tce/tce_mo2e_incore_2eorb.F | 2 +- src/tce/tce_mo2e_incore_2eorb_split.F | 2 +- src/tce/tce_mo2e_new.F | 2 +- src/tce/tce_mo2e_offset.F | 2 +- src/tce/tce_mo2e_offset_intorb.F | 4 +- src/tce/tce_mo2e_offset_intorb_hybrid.F | 2 +- src/tce/tce_mo2e_offset_size.F | 2 +- src/tce/tce_mo2e_zones_4a_disk_2s_new.F | 6 +- src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F | 10 +- .../tce_mo2e_zones_4a_disk_4s_new_patch_m2.F | 2 +- .../tce_mo2e_zones_4a_disk_4s_new_patch_m3.F | 2 +- src/tce/tce_mo2e_zones_4a_disk_ga.F | 4 +- src/tce/tce_mo2e_zones_4a_disk_ga_N5.F | 2 +- src/tce/tce_mo2e_zones_4a_disk_ga_chop.F | 6 +- src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F | 2 +- src/tce/tce_mod1.F | 2 +- src/tce/tce_mod1_new.F | 2 +- src/tce/tce_mod1_offset.F | 2 +- src/tce/tce_mod1_offset_new.F | 2 +- src/tce/tce_multipole_create.F | 2 +- src/tce/tce_multipole_destroy.F | 2 +- src/tce/tce_nud1.F | 2 +- src/tce/tce_print_x1.F | 2 +- src/tce/tce_print_x2.F | 2 +- src/tce/tce_prop_start.F | 2 +- src/tce/tce_property.F | 2 +- src/tce/tce_reference_check.F | 2 +- src/tce/tce_residual_t1.F | 4 +- src/tce/tce_residual_t2.F | 4 +- src/tce/tce_residual_t3.F | 4 +- src/tce/tce_residual_t3a.F | 2 +- src/tce/tce_residual_t4.F | 4 +- src/tce/tce_restricted.F | 8 +- src/tce/tce_schmidt.F | 2 +- src/tce/tce_sort.F | 12 +- src/tce/tce_sort0.F | 2 +- src/tce/tce_sort2.F | 2 +- src/tce/tce_sort6.F | 2 +- src/tce/tce_sort8.F | 2 +- src/tce/tce_sortacc.F | 10 +- src/tce/tce_sortacc8.F | 2 +- src/tce/tce_t1_offset.F | 2 +- src/tce/tce_t1_offset_new.F | 2 +- src/tce/tce_t2_offset.F | 2 +- src/tce/tce_t2_offset_new.F | 2 +- src/tce/tce_t3_offset.F | 2 +- src/tce/tce_t3_offset_new.F | 2 +- src/tce/tce_t3a_offset.F | 2 +- src/tce/tce_t4_offset.F | 2 +- src/tce/tce_t4_offset_new.F | 2 +- src/tce/tce_tidy.F | 2 +- src/tce/tce_tile.F | 2 +- src/tce/tce_tile_new.F | 2 +- src/tce/tce_x1_offset.F | 2 +- src/tce/tce_x1_offset_new.F | 2 +- src/tce/tce_x2_offset.F | 2 +- src/tce/tce_x2_offset_new.F | 2 +- src/tce/tce_x3_offset.F | 2 +- src/tce/tce_x3_offset_new.F | 2 +- src/tce/tce_x3a_offset.F | 2 +- src/tce/tce_x4_offset.F | 2 +- src/tce/tce_x4_offset_new.F | 2 +- src/tce/tce_xy1_offset.F | 2 +- src/tce/tce_xy2_offset.F | 2 +- src/tce/tce_y1_offset.F | 2 +- src/tce/tce_y1_offset_new.F | 2 +- src/tce/tce_y2_offset.F | 2 +- src/tce/tce_y2_offset_new.F | 2 +- src/tce/tce_y3_offset.F | 2 +- src/tce/tce_y3_offset_new.F | 2 +- src/tce/tce_y4_offset.F | 2 +- src/tce/tce_y4_offset_new.F | 2 +- src/tce/tce_zero.F | 4 +- 2698 files changed, 6779 insertions(+), 6779 deletions(-) diff --git a/src/tce/GNUmakefile b/src/tce/GNUmakefile index 8371457995..9c3540db55 100644 --- a/src/tce/GNUmakefile +++ b/src/tce/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.99 2008-12-09 18:37:00 jhammond Exp $ +#$Id$ # SUBDIRS = include diis diis2 diis3 gradients \ diff --git a/src/tce/add_block.F b/src/tce/add_block.F index 52687554da..7b6bc5b0ce 100644 --- a/src/tce/add_block.F +++ b/src/tce/add_block.F @@ -1,6 +1,6 @@ subroutine add_block(d_file,array,size,offset) c -c $Id: add_block.F,v 1.14 2008-12-14 01:04:48 jhammond Exp $ +c $Id$ c c This subroutine reads a section of a file and adds c the content of an array to it and write it back to diff --git a/src/tce/add_hash_block.F b/src/tce/add_hash_block.F index e91f6f6de8..8ff7ea4928 100644 --- a/src/tce/add_hash_block.F +++ b/src/tce/add_hash_block.F @@ -1,6 +1,6 @@ subroutine add_hash_block(d_file,array,size,hash,key) c -c $Id: add_hash_block.F,v 1.3 2008-12-14 01:04:48 jhammond Exp $ +c $Id$ c implicit none integer d_file diff --git a/src/tce/atpart_nalength.F b/src/tce/atpart_nalength.F index ac3ca6182a..928fbdaaa0 100644 --- a/src/tce/atpart_nalength.F +++ b/src/tce/atpart_nalength.F @@ -1,5 +1,5 @@ SUBROUTINE atpart_nalength -C $Id: atpart_nalength.F,v 1.2 2008-01-14 15:20:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/cc3/GNUmakefile b/src/tce/cc3/GNUmakefile index af5a821f64..44dafa1cc1 100644 --- a/src/tce/cc3/GNUmakefile +++ b/src/tce/cc3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = cc3_t3.o ccsdt1b_t3.o ccsdt2_t3.o ccsdt3_t3.o eomccsdt1_x3.o eomcc3_x3.o eomccsdt3_x3.o cc3_lambda3.o diff --git a/src/tce/cc3/cc3_lambda3.F b/src/tce/cc3/cc3_lambda3.F index 274f6dbcfc..8310521c37 100644 --- a/src/tce/cc3/cc3_lambda3.F +++ b/src/tce/cc3/cc3_lambda3.F @@ -1,7 +1,7 @@ SUBROUTINE cc3_lambda3(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,d_y3,k_f &1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offs &et,k_y2_offset,k_y3_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v @@ -362,7 +362,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t END SUBROUTINE cc3_lambda3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v @@ -576,7 +576,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 RETURN END SUBROUTINE cc3_lambda3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v @@ -675,7 +675,7 @@ C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v @@ -744,7 +744,7 @@ C i1 ( h4 h5 p1 p2 )_v RETURN END SUBROUTINE cc3_lambda3_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v @@ -844,7 +844,7 @@ C i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v END SUBROUTINE cc3_lambda3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 p3 )_f @@ -1059,7 +1059,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 RETURN END SUBROUTINE cc3_lambda3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -1143,7 +1143,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f @@ -1199,7 +1199,7 @@ C i1 ( h4 p1 )_f END SUBROUTINE cc3_lambda3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * i2 ( h4 h8 p1 p7 )_v @@ -1333,7 +1333,7 @@ C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * i2 ( h4 h8 p1 p7 ) RETURN END SUBROUTINE cc3_lambda3_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v @@ -1458,7 +1458,7 @@ C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_2_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v @@ -1527,7 +1527,7 @@ C i2 ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_2_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v @@ -1652,7 +1652,7 @@ C i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_2_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -1737,7 +1737,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f END SUBROUTINE cc3_lambda3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h8 ) * y ( h4 h8 p1 p2 )_y * i1 ( h5 h6 h8 p3 )_v @@ -1970,7 +1970,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h8 ) * y ( h4 h8 p1 p2 RETURN END SUBROUTINE cc3_lambda3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v @@ -2071,7 +2071,7 @@ C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_3_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v @@ -2141,7 +2141,7 @@ C i1 ( h4 h5 h8 p1 )_v END SUBROUTINE cc3_lambda3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * i2 ( h4 h5 p1 p7 )_v @@ -2284,7 +2284,7 @@ C i1 ( h4 h5 h8 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * i2 ( h4 h5 p1 RETURN END SUBROUTINE cc3_lambda3_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v @@ -2393,7 +2393,7 @@ C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v @@ -2462,7 +2462,7 @@ C i2 ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_3_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v @@ -2571,7 +2571,7 @@ C i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v RETURN END SUBROUTINE cc3_lambda3_3_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v @@ -2673,7 +2673,7 @@ C i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v END SUBROUTINE cc3_lambda3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 )_y * i1 ( h6 p7 p2 p3 )_v @@ -2906,7 +2906,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 RETURN END SUBROUTINE cc3_lambda3_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v @@ -3007,7 +3007,7 @@ C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v @@ -3076,7 +3076,7 @@ C i1 ( h4 p7 p1 p2 )_v RETURN END SUBROUTINE cc3_lambda3_4_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v @@ -3178,7 +3178,7 @@ C i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v END SUBROUTINE cc3_lambda3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 p1 p2 p3 )_y * i1 ( h6 h11 )_f @@ -3373,7 +3373,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 RETURN END SUBROUTINE cc3_lambda3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -3457,7 +3457,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_5_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f @@ -3513,7 +3513,7 @@ C i1 ( h4 h11 )_f END SUBROUTINE cc3_lambda3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f @@ -3640,7 +3640,7 @@ C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f RETURN END SUBROUTINE cc3_lambda3_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -3724,7 +3724,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_5_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f @@ -3780,7 +3780,7 @@ C i2 ( h4 p7 )_f END SUBROUTINE cc3_lambda3_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 )_v @@ -3940,7 +3940,7 @@ C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 RETURN END SUBROUTINE cc3_lambda3_5_2_3(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -4025,7 +4025,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f END SUBROUTINE cc3_lambda3_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 )_v @@ -4170,7 +4170,7 @@ C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 END SUBROUTINE cc3_lambda3_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v ( h4 h10 p7 p8 )_v @@ -4345,7 +4345,7 @@ C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v RETURN END SUBROUTINE cc3_lambda3_5_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -4430,7 +4430,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f END SUBROUTINE cc3_lambda3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p11 ) * y ( h4 h5 h6 p1 p2 p11 )_y * i1 ( p11 p3 )_f @@ -4625,7 +4625,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p11 ) * y ( h4 h5 h6 p1 RETURN END SUBROUTINE cc3_lambda3_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f @@ -4709,7 +4709,7 @@ C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f RETURN END SUBROUTINE OFFSET_cc3_lambda3_6_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f @@ -4766,7 +4766,7 @@ C i1 ( p11 p1 )_f END SUBROUTINE cc3_lambda3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p11 p1 p7 )_v @@ -4911,7 +4911,7 @@ C i1 ( p11 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p11 p1 p7 END SUBROUTINE cc3_lambda3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p11 h9 h10 )_t * v ( h9 h10 p1 p8 )_v @@ -5087,7 +5087,7 @@ C i1 ( p11 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p11 h9 h10 )_t * v ( END SUBROUTINE cc3_lambda3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p11 h8 )_t * i2 ( h8 p1 )_vt @@ -5215,7 +5215,7 @@ C i1 ( p11 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p11 h8 )_t * i2 ( h8 p1 )_vt END SUBROUTINE cc3_lambda3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 )_v @@ -5375,7 +5375,7 @@ C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 RETURN END SUBROUTINE OFFSET_cc3_lambda3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt @@ -5430,7 +5430,7 @@ C i2 ( h8 p1 )_vt RETURN END SUBROUTINE cc3_lambda3_6_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f @@ -5515,7 +5515,7 @@ C i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f END SUBROUTINE cc3_lambda3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h11 h12 p1 p2 p3 )_y * i1 ( h5 h6 h11 h12 )_v @@ -5732,7 +5732,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h1 RETURN END SUBROUTINE cc3_lambda3_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v @@ -5830,7 +5830,7 @@ C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_7_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v @@ -5900,7 +5900,7 @@ C i1 ( h4 h5 h11 h12 )_v END SUBROUTINE cc3_lambda3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h12 p7 )_v @@ -6053,7 +6053,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 RETURN END SUBROUTINE cc3_lambda3_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v @@ -6152,7 +6152,7 @@ C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_7_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v @@ -6222,7 +6222,7 @@ C i2 ( h4 h5 h12 p7 )_v END SUBROUTINE cc3_lambda3_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 p7 p9 )_v @@ -6376,7 +6376,7 @@ C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 END SUBROUTINE cc3_lambda3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * v ( h4 h5 p7 p8 )_v @@ -6538,7 +6538,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * END SUBROUTINE cc3_lambda3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h12 p1 p2 p9 )_y * i1 ( h6 p9 h12 p3 )_v @@ -6848,7 +6848,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h RETURN END SUBROUTINE cc3_lambda3_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v @@ -6949,7 +6949,7 @@ C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v RETURN END SUBROUTINE OFFSET_cc3_lambda3_8_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v @@ -7019,7 +7019,7 @@ C i1 ( h4 p9 h12 p1 )_v END SUBROUTINE cc3_lambda3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 p7 )_v @@ -7173,7 +7173,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 END SUBROUTINE cc3_lambda3_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v ( h4 h10 p1 p8 )_v @@ -7376,7 +7376,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v END SUBROUTINE cc3_lambda3_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 h12 p1 )_vt @@ -7520,7 +7520,7 @@ C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 END SUBROUTINE cc3_lambda3_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p1 p7 )_v @@ -7689,7 +7689,7 @@ C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p RETURN END SUBROUTINE OFFSET_cc3_lambda3_8_4_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt @@ -7761,7 +7761,7 @@ C i2 ( h4 h10 h12 p1 )_vt END SUBROUTINE cc3_lambda3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h6 p1 p7 p8 )_y * v ( p7 p8 p2 p3 )_v @@ -7976,7 +7976,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h END SUBROUTINE cc3_lambda3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h10 ) * i1 ( h4 h5 h10 p1 )_yt * v ( h6 h10 p2 p3 )_v @@ -8214,7 +8214,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h10 ) * i1 ( h4 h5 h1 END SUBROUTINE cc3_lambda3_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( h4 h5 p1 p7 )_y @@ -8357,7 +8357,7 @@ C i1 ( h4 h5 h10 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( h4 h5 p RETURN END SUBROUTINE OFFSET_cc3_lambda3_10_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt @@ -8428,7 +8428,7 @@ C i1 ( h4 h5 h10 p1 )_yt RETURN END SUBROUTINE cc3_lambda3_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y @@ -8537,7 +8537,7 @@ C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y RETURN END SUBROUTINE OFFSET_cc3_lambda3_10_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y @@ -8606,7 +8606,7 @@ C i2 ( h4 h5 p1 p7 )_y RETURN END SUBROUTINE cc3_lambda3_10_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y @@ -8716,7 +8716,7 @@ C i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y END SUBROUTINE cc3_lambda3_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h10 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h5 h9 p1 p7 p8 )_y @@ -8964,7 +8964,7 @@ C i1 ( h4 h5 h10 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h10 )_t * END SUBROUTINE cc3_lambda3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 h7 p1 p2 )_yt * f ( h7 p3 )_f @@ -9142,7 +9142,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 END SUBROUTINE cc3_lambda3_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * i2 ( h4 h5 h6 p1 p2 p8 )_y @@ -9297,7 +9297,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * i2 ( h4 h RETURN END SUBROUTINE OFFSET_cc3_lambda3_11_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt @@ -9384,7 +9384,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt RETURN END SUBROUTINE cc3_lambda3_11_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y @@ -9515,7 +9515,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y RETURN END SUBROUTINE OFFSET_cc3_lambda3_11_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y @@ -9602,7 +9602,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y RETURN END SUBROUTINE cc3_lambda3_11_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y @@ -9734,7 +9734,7 @@ C i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y END SUBROUTINE cc3_lambda3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h9 h8 p1 p2 )_yt * v ( h6 h8 h9 p3 )_v @@ -9978,7 +9978,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h END SUBROUTINE cc3_lambda3_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h9 p1 p2 p7 )_y @@ -10200,7 +10200,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_cc3_lambda3_12_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt @@ -10288,7 +10288,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt END SUBROUTINE cc3_lambda3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h6 h8 p1 p9 )_yt * v ( h8 p9 p2 p3 )_v @@ -10473,7 +10473,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h END SUBROUTINE cc3_lambda3_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -10670,7 +10670,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_cc3_lambda3_13_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt @@ -10758,7 +10758,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt END SUBROUTINE cc3_lambda3_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 p2 )_yt * v ( h5 h6 p3 p8 )_v @@ -11005,7 +11005,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 END SUBROUTINE cc3_lambda3_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h9 h10 p1 p2 p7 )_y @@ -11264,7 +11264,7 @@ C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * RETURN END SUBROUTINE OFFSET_cc3_lambda3_14_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt @@ -11336,7 +11336,7 @@ C i1 ( h4 p8 p1 p2 )_yt END SUBROUTINE cc3_lambda3_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 h5 h6 h10 h11 p1 )_yt * v ( h10 h11 p2 p3 )_v @@ -11536,7 +11536,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 END SUBROUTINE cc3_lambda3_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_t * y ( h4 h5 h6 p1 p7 p8 )_y @@ -11729,7 +11729,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_ RETURN END SUBROUTINE OFFSET_cc3_lambda3_15_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt @@ -11817,7 +11817,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt END SUBROUTINE cc3_lambda3_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h6 h10 p1 p7 )_yt @@ -11986,7 +11986,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( END SUBROUTINE cc3_lambda3_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -12183,7 +12183,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 RETURN END SUBROUTINE OFFSET_cc3_lambda3_15_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt diff --git a/src/tce/cc3/cc3_t3.F b/src/tce/cc3/cc3_t3.F index 0420b15d81..b64008d546 100644 --- a/src/tce/cc3/cc3_t3.F +++ b/src/tce/cc3/cc3_t3.F @@ -1,6 +1,6 @@ SUBROUTINE cc3_t3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_f1_offset,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_v @@ -147,7 +147,7 @@ C i2 ( h12 p4 h1 p11 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h RETURN END SUBROUTINE cc3_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_v @@ -377,7 +377,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h RETURN END SUBROUTINE cc3_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v @@ -476,7 +476,7 @@ C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v @@ -546,7 +546,7 @@ C i1 ( h12 p4 h1 h2 )_v END SUBROUTINE cc3_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h10 ) * t ( p4 h10 )_t * i2 ( h10 h12 h1 h2 )_v @@ -696,7 +696,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h10 ) * t ( p4 h10 )_t * i2 ( h10 h12 RETURN END SUBROUTINE cc3_t3_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_v + = 1 * v ( h10 h12 h1 h2 )_v @@ -792,7 +792,7 @@ C i2 ( h10 h12 h1 h2 )_v + = 1 * v ( h10 h12 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_v @@ -862,7 +862,7 @@ C i2 ( h10 h12 h1 h2 )_v END SUBROUTINE cc3_t3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h10 h12 h2 p8 )_v @@ -1010,7 +1010,7 @@ C i2 ( h10 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 RETURN END SUBROUTINE cc3_t3_1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_v + = 1 * v ( h10 h12 h1 p8 )_v @@ -1111,7 +1111,7 @@ C i3 ( h10 h12 h1 p8 )_v + = 1 * v ( h10 h12 h1 p8 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_v @@ -1181,7 +1181,7 @@ C i3 ( h10 h12 h1 p8 )_v END SUBROUTINE cc3_t3_1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h10 h12 p8 p9 )_v @@ -1335,7 +1335,7 @@ C i3 ( h10 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h10 h1 END SUBROUTINE cc3_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h12 p4 h2 p9 )_v @@ -1485,7 +1485,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( RETURN END SUBROUTINE cc3_t3_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_v + = 1 * v ( h12 p4 h1 p9 )_v @@ -1584,7 +1584,7 @@ C i2 ( h12 p4 h1 p9 )_v + = 1 * v ( h12 p4 h1 p9 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_1_3_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_v @@ -1654,7 +1654,7 @@ C i2 ( h12 p4 h1 p9 )_v END SUBROUTINE cc3_t3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p9 )_v @@ -1804,7 +1804,7 @@ C i2 ( h12 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p RETURN END SUBROUTINE cc3_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -2034,7 +2034,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE cc3_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -2133,7 +2133,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -2203,7 +2203,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE cc3_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p8 )_v @@ -2353,7 +2353,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p RETURN END SUBROUTINE cc3_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -2542,7 +2542,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 RETURN END SUBROUTINE cc3_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -2731,7 +2731,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 RETURN END SUBROUTINE cc3_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_vt @@ -2904,7 +2904,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t END SUBROUTINE cc3_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p11 ) * t ( p4 p11 h1 h2 )_t * i2 ( h12 p5 h3 p11 )_v @@ -3117,7 +3117,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p11 ) * t ( p4 p11 RETURN END SUBROUTINE OFFSET_cc3_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt @@ -3204,7 +3204,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE cc3_t3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_v + = 1 * v ( h12 p4 h1 p11 )_v @@ -3303,7 +3303,7 @@ C i2 ( h12 p4 h1 p11 )_v + = 1 * v ( h12 p4 h1 p11 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_v @@ -3373,7 +3373,7 @@ C i2 ( h12 p4 h1 p11 )_v END SUBROUTINE cc3_t3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p11 )_v @@ -3523,7 +3523,7 @@ C i2 ( h12 p4 h1 p11 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 RETURN END SUBROUTINE cc3_t3_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_v + = 1 * v ( h8 h12 h1 p11 )_v @@ -3624,7 +3624,7 @@ C i3 ( h8 h12 h1 p11 )_v + = 1 * v ( h8 h12 h1 p11 )_v RETURN END SUBROUTINE OFFSET_cc3_t3_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_v @@ -3694,7 +3694,7 @@ C i3 ( h8 h12 h1 p11 )_v END SUBROUTINE cc3_t3_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p11 )_v @@ -3848,7 +3848,7 @@ C i3 ( h8 h12 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 END SUBROUTINE cc3_t3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p11 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p11 )_v diff --git a/src/tce/cc3/ccsdt1b_t3.F b/src/tce/cc3/ccsdt1b_t3.F index 6cf1a5f37c..d07e373360 100644 --- a/src/tce/cc3/ccsdt1b_t3.F +++ b/src/tce/cc3/ccsdt1b_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt1b_t3(d_f1,d_i0,d_t2,d_t3,d_v2,k_f1_offset,k_i0_of &fset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -35,7 +35,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt1b_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -270,7 +270,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE ccsdt1b_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -505,7 +505,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE ccsdt1b_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -697,7 +697,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt1b_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt1b_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f diff --git a/src/tce/cc3/ccsdt2_t3.F b/src/tce/cc3/ccsdt2_t3.F index 774d4dd7f8..83c8f60d88 100644 --- a/src/tce/cc3/ccsdt2_t3.F +++ b/src/tce/cc3/ccsdt2_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt2_t3(d_f1,d_i0,d_t2,d_t3,d_v2,k_f1_offset,k_i0_off &set,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_v @@ -70,7 +70,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt2_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * i1 ( h7 p6 h2 h3 )_v @@ -302,7 +302,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 RETURN END SUBROUTINE ccsdt2_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_v + = 1 * v ( h7 p4 h1 h2 )_v @@ -401,7 +401,7 @@ C i1 ( h7 p4 h1 h2 )_v + = 1 * v ( h7 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt2_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_v @@ -471,7 +471,7 @@ C i1 ( h7 p4 h1 h2 )_v END SUBROUTINE ccsdt2_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h7 h9 h2 p8 )_v @@ -666,7 +666,7 @@ C i1 ( h7 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt2_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h7 p4 p8 p9 )_v @@ -829,7 +829,7 @@ C i1 ( h7 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt2_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -1061,7 +1061,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE ccsdt2_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -1160,7 +1160,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt2_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -1230,7 +1230,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE ccsdt2_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * v ( h8 h9 h1 p7 )_v @@ -1393,7 +1393,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * v ( END SUBROUTINE ccsdt2_t3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 p5 p7 p8 )_v @@ -1588,7 +1588,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt2_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1780,7 +1780,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt2_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt2_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f diff --git a/src/tce/cc3/ccsdt3_t3.F b/src/tce/cc3/ccsdt3_t3.F index ce49667421..7b9ee8eb00 100644 --- a/src/tce/cc3/ccsdt3_t3.F +++ b/src/tce/cc3/ccsdt3_t3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt3_t3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_f1_offset,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -208,7 +208,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE ccsdt3_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h11 )_t * i1 ( h11 p6 h2 h3 )_v @@ -440,7 +440,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h11 ) * t ( p4 p5 h1 h RETURN END SUBROUTINE ccsdt3_t3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v @@ -539,7 +539,7 @@ C i1 ( h11 p4 h1 h2 )_v + = 1 * v ( h11 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_v @@ -609,7 +609,7 @@ C i1 ( h11 p4 h1 h2 )_v END SUBROUTINE ccsdt3_t3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 h2 )_v @@ -760,7 +760,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h11 h1 RETURN END SUBROUTINE ccsdt3_t3_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v @@ -858,7 +858,7 @@ C i2 ( h7 h11 h1 h2 )_v + = 1 * v ( h7 h11 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_v @@ -928,7 +928,7 @@ C i2 ( h7 h11 h1 h2 )_v END SUBROUTINE ccsdt3_t3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h11 h2 p8 )_v @@ -1079,7 +1079,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( RETURN END SUBROUTINE ccsdt3_t3_1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v @@ -1180,7 +1180,7 @@ C i3 ( h7 h11 h1 p8 )_v + = 1 * v ( h7 h11 h1 p8 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_v @@ -1250,7 +1250,7 @@ C i3 ( h7 h11 h1 p8 )_v END SUBROUTINE ccsdt3_t3_1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 p8 p9 )_v @@ -1404,7 +1404,7 @@ C i3 ( h7 h11 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h11 END SUBROUTINE ccsdt3_t3_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h7 h11 p8 p9 )_v @@ -1566,7 +1566,7 @@ C i2 ( h7 h11 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt3_t3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h11 p4 h2 p9 )_v @@ -1717,7 +1717,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( RETURN END SUBROUTINE ccsdt3_t3_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v @@ -1818,7 +1818,7 @@ C i2 ( h11 p4 h1 p9 )_v + = 1 * v ( h11 p4 h1 p9 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_v @@ -1888,7 +1888,7 @@ C i2 ( h11 p4 h1 p9 )_v END SUBROUTINE ccsdt3_t3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p9 )_v @@ -2042,7 +2042,7 @@ C i2 ( h11 p4 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p END SUBROUTINE ccsdt3_t3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h11 h2 p8 )_v @@ -2236,7 +2236,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ RETURN END SUBROUTINE ccsdt3_t3_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v @@ -2337,7 +2337,7 @@ C i2 ( h9 h11 h1 p8 )_v + = 1 * v ( h9 h11 h1 p8 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_v @@ -2407,7 +2407,7 @@ C i2 ( h9 h11 h1 p8 )_v END SUBROUTINE ccsdt3_t3_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 p8 p10 )_v @@ -2561,7 +2561,7 @@ C i2 ( h9 h11 h1 p8 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h9 h11 END SUBROUTINE ccsdt3_t3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h11 p4 p8 p9 )_v @@ -2724,7 +2724,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( END SUBROUTINE ccsdt3_t3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h11 p8 )_vt @@ -2877,7 +2877,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE ccsdt3_t3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p8 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p8 p9 )_v @@ -3037,7 +3037,7 @@ C i2 ( h11 p8 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p8 RETURN END SUBROUTINE OFFSET_ccsdt3_t3_1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p8 )_vt @@ -3093,7 +3093,7 @@ C i2 ( h11 p8 )_vt END SUBROUTINE ccsdt3_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_v @@ -3325,7 +3325,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 RETURN END SUBROUTINE ccsdt3_t3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v @@ -3424,7 +3424,7 @@ C i1 ( p4 p5 h1 p7 )_v + = 1 * v ( p4 p5 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_v @@ -3494,7 +3494,7 @@ C i1 ( p4 p5 h1 p7 )_v END SUBROUTINE ccsdt3_t3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p8 )_v @@ -3646,7 +3646,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( p4 p5 p7 p END SUBROUTINE ccsdt3_t3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_v @@ -3806,7 +3806,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( RETURN END SUBROUTINE ccsdt3_t3_2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_v + = 1 * v ( h8 h9 h1 p7 )_v @@ -3907,7 +3907,7 @@ C i2 ( h8 h9 h1 p7 )_v + = 1 * v ( h8 h9 h1 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_v @@ -3977,7 +3977,7 @@ C i2 ( h8 h9 h1 p7 )_v END SUBROUTINE ccsdt3_t3_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p7 p10 )_v @@ -4131,7 +4131,7 @@ C i2 ( h8 h9 h1 p7 )_vt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * v ( h8 h9 p7 END SUBROUTINE ccsdt3_t3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 p5 p7 p8 )_v @@ -4326,7 +4326,7 @@ C i1 ( p4 p5 h1 p7 )_vt + = -1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_ END SUBROUTINE ccsdt3_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -4518,7 +4518,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE ccsdt3_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -4710,7 +4710,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE ccsdt3_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t * i1 ( h11 p5 p6 h1 h2 h3 )_vt @@ -4885,7 +4885,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtt + = 6 * P( 3 ) * Sum ( h11 ) * t ( p4 h11 )_t END SUBROUTINE ccsdt3_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i2 ( h11 p5 h3 p12 )_v @@ -5099,7 +5099,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p12 ) * t ( p4 p12 RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt @@ -5186,7 +5186,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE ccsdt3_t3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -5287,7 +5287,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -5357,7 +5357,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE ccsdt3_t3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 h1 p12 )_v @@ -5510,7 +5510,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h11 RETURN END SUBROUTINE ccsdt3_t3_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v @@ -5611,7 +5611,7 @@ C i3 ( h8 h11 h1 p12 )_v + = 1 * v ( h8 h11 h1 p12 )_v RETURN END SUBROUTINE OFFSET_ccsdt3_t3_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_v @@ -5681,7 +5681,7 @@ C i3 ( h8 h11 h1 p12 )_v END SUBROUTINE ccsdt3_t3_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 p12 )_v @@ -5835,7 +5835,7 @@ C i3 ( h8 h11 h1 p12 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p9 END SUBROUTINE ccsdt3_t3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -5989,7 +5989,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE ccsdt3_t3_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt3_t3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v diff --git a/src/tce/cc3/eomcc3_x3.F b/src/tce/cc3/eomcc3_x3.F index 0f31ace10d..7ba1e03b9d 100644 --- a/src/tce/cc3/eomcc3_x3.F +++ b/src/tce/cc3/eomcc3_x3.F @@ -1,7 +1,7 @@ SUBROUTINE eomcc3_x3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_x3, &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_o &ffset,k_x1_offset,k_x2_offset,k_x3_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -401,7 +401,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f END SUBROUTINE eomcc3_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -592,7 +592,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 RETURN END SUBROUTINE eomcc3_x3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -674,7 +674,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_eomcc3_x3_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -730,7 +730,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE eomcc3_x3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f @@ -856,7 +856,7 @@ C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f END SUBROUTINE eomcc3_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f @@ -1048,7 +1048,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomcc3_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_fx @@ -1220,7 +1220,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_ END SUBROUTINE eomcc3_x3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_x * f ( h12 p8 )_f @@ -1394,7 +1394,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_ RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx @@ -1482,7 +1482,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx END SUBROUTINE eomcc3_x3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx @@ -1692,7 +1692,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomcc3_x3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v @@ -1845,7 +1845,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx @@ -1917,7 +1917,7 @@ C i2 ( h12 p4 h1 p7 )_vx END SUBROUTINE eomcc3_x3_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v @@ -2120,7 +2120,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE eomcc3_x3_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt @@ -2274,7 +2274,7 @@ C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h END SUBROUTINE eomcc3_x3_3_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -2427,7 +2427,7 @@ C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt @@ -2499,7 +2499,7 @@ C i3 ( h10 h12 h1 p7 )_vt END SUBROUTINE eomcc3_x3_3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx @@ -2653,7 +2653,7 @@ C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 END SUBROUTINE eomcc3_x3_3_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v @@ -2806,7 +2806,7 @@ C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx @@ -2878,7 +2878,7 @@ C i3 ( h8 h12 h1 p7 )_vx END SUBROUTINE eomcc3_x3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_vt @@ -3088,7 +3088,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h END SUBROUTINE eomcc3_x3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -3290,7 +3290,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt @@ -3362,7 +3362,7 @@ C i2 ( h12 p4 h1 p10 )_vt END SUBROUTINE eomcc3_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -3596,7 +3596,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 END SUBROUTINE eomcc3_x3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h9 ) * x ( p4 h9 )_x * i2 ( h9 h12 h1 h2 )_v @@ -3747,7 +3747,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h9 ) * x ( p4 h9 )_x * i2 ( h9 h12 h1 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -3818,7 +3818,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE eomcc3_x3_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_v + = 1 * v ( h9 h12 h1 h2 )_v @@ -3916,7 +3916,7 @@ C i2 ( h9 h12 h1 h2 )_v + = 1 * v ( h9 h12 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_v @@ -3986,7 +3986,7 @@ C i2 ( h9 h12 h1 h2 )_v END SUBROUTINE eomcc3_x3_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i3 ( h9 h12 h2 p10 )_v @@ -4137,7 +4137,7 @@ C i2 ( h9 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i3 RETURN END SUBROUTINE eomcc3_x3_4_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_v + = 1 * v ( h9 h12 h1 p10 )_v @@ -4238,7 +4238,7 @@ C i3 ( h9 h12 h1 p10 )_v + = 1 * v ( h9 h12 h1 p10 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_v @@ -4308,7 +4308,7 @@ C i3 ( h9 h12 h1 p10 )_v END SUBROUTINE eomcc3_x3_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h12 h1 p10 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 h12 p8 p10 )_v @@ -4462,7 +4462,7 @@ C i3 ( h9 h12 h1 p10 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 h12 END SUBROUTINE eomcc3_x3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -4616,7 +4616,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE eomcc3_x3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -4810,7 +4810,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE eomcc3_x3_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -4911,7 +4911,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -4981,7 +4981,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE eomcc3_x3_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5135,7 +5135,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE eomcc3_x3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5298,7 +5298,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE eomcc3_x3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx @@ -5450,7 +5450,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h1 END SUBROUTINE eomcc3_x3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v @@ -5603,7 +5603,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx @@ -5675,7 +5675,7 @@ C i2 ( h11 h12 h1 h2 )_vx END SUBROUTINE eomcc3_x3_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v @@ -5838,7 +5838,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * END SUBROUTINE eomcc3_x3_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx @@ -5990,7 +5990,7 @@ C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i END SUBROUTINE eomcc3_x3_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v @@ -6144,7 +6144,7 @@ C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx @@ -6216,7 +6216,7 @@ C i3 ( h11 h12 h1 p8 )_vx END SUBROUTINE eomcc3_x3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -6368,7 +6368,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE eomcc3_x3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -6521,7 +6521,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -6593,7 +6593,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE eomcc3_x3_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p10 )_vt @@ -6746,7 +6746,7 @@ C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( END SUBROUTINE eomcc3_x3_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -6906,7 +6906,7 @@ C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_4_7_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt @@ -6962,7 +6962,7 @@ C i2 ( h12 p10 )_vt END SUBROUTINE eomcc3_x3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h9 ) * x ( p4 h9 )_x * i1 ( h9 p5 p6 h1 h2 h3 )_vt @@ -7137,7 +7137,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h9 ) * x ( p4 h9 )_x * END SUBROUTINE eomcc3_x3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h9 p5 h3 p7 )_v @@ -7351,7 +7351,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 RETURN END SUBROUTINE OFFSET_eomcc3_x3_5_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_vt @@ -7438,7 +7438,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE eomcc3_x3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_v + = 1 * v ( h9 p4 h1 p7 )_v @@ -7539,7 +7539,7 @@ C i2 ( h9 p4 h1 p7 )_v + = 1 * v ( h9 p4 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_v @@ -7609,7 +7609,7 @@ C i2 ( h9 p4 h1 p7 )_v END SUBROUTINE eomcc3_x3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h9 h1 p7 )_v @@ -7763,7 +7763,7 @@ C i2 ( h9 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h9 h1 p7 END SUBROUTINE eomcc3_x3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 p4 p7 p8 )_v @@ -7917,7 +7917,7 @@ C i2 ( h9 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h9 p4 p7 p END SUBROUTINE eomcc3_x3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 )_t * f ( h9 p8 )_f @@ -8093,7 +8093,7 @@ C i1 ( h9 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 END SUBROUTINE eomcc3_x3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx @@ -8327,7 +8327,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomcc3_x3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v @@ -8478,7 +8478,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p RETURN END SUBROUTINE OFFSET_eomcc3_x3_6_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx @@ -8550,7 +8550,7 @@ C i1 ( p4 p5 h1 p7 )_vx END SUBROUTINE eomcc3_x3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v @@ -8710,7 +8710,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * RETURN END SUBROUTINE eomcc3_x3_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v @@ -8811,7 +8811,7 @@ C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v @@ -8881,7 +8881,7 @@ C i2 ( h11 h12 h1 p7 )_v END SUBROUTINE eomcc3_x3_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v @@ -9035,7 +9035,7 @@ C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 END SUBROUTINE eomcc3_x3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v @@ -9230,7 +9230,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_ END SUBROUTINE eomcc3_x3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_vt @@ -9473,7 +9473,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 END SUBROUTINE eomcc3_x3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v @@ -9667,7 +9667,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt @@ -9738,7 +9738,7 @@ C i1 ( h11 p4 h1 h2 )_vt RETURN END SUBROUTINE eomcc3_x3_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v @@ -9839,7 +9839,7 @@ C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v @@ -9909,7 +9909,7 @@ C i2 ( h8 h11 h1 p7 )_v END SUBROUTINE eomcc3_x3_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v @@ -10063,7 +10063,7 @@ C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 END SUBROUTINE eomcc3_x3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v @@ -10226,7 +10226,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE eomcc3_x3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h11 h1 h2 )_vt @@ -10378,7 +10378,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h1 END SUBROUTINE eomcc3_x3_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h9 h11 p7 p8 )_v @@ -10539,7 +10539,7 @@ C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_3_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt @@ -10611,7 +10611,7 @@ C i2 ( h9 h11 h1 h2 )_vt END SUBROUTINE eomcc3_x3_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p7 )_vt @@ -10764,7 +10764,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( END SUBROUTINE eomcc3_x3_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -10924,7 +10924,7 @@ C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 RETURN END SUBROUTINE OFFSET_eomcc3_x3_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt @@ -10980,7 +10980,7 @@ C i2 ( h11 p7 )_vt END SUBROUTINE eomcc3_x3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_vt @@ -11223,7 +11223,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 END SUBROUTINE eomcc3_x3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v @@ -11383,7 +11383,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( RETURN END SUBROUTINE OFFSET_eomcc3_x3_8_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt @@ -11454,7 +11454,7 @@ C i1 ( p4 p5 h1 p11 )_vt RETURN END SUBROUTINE eomcc3_x3_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v @@ -11555,7 +11555,7 @@ C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v RETURN END SUBROUTINE OFFSET_eomcc3_x3_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v @@ -11625,7 +11625,7 @@ C i2 ( h7 h8 h1 p11 )_v END SUBROUTINE eomcc3_x3_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v @@ -11779,7 +11779,7 @@ C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE eomcc3_x3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v @@ -11974,7 +11974,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ END SUBROUTINE eomcc3_x3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx @@ -12167,7 +12167,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE eomcc3_x3_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f @@ -12292,7 +12292,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f RETURN END SUBROUTINE OFFSET_eomcc3_x3_9_1(l_a_offset,k_a_offset,size) -C $Id: eomcc3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx diff --git a/src/tce/cc3/eomccsdt1_x3.F b/src/tce/cc3/eomccsdt1_x3.F index 484d5619af..4149f67b6d 100644 --- a/src/tce/cc3/eomccsdt1_x3.F +++ b/src/tce/cc3/eomccsdt1_x3.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsdt1_x3(d_f1,d_i0,d_v2,d_x2,d_x3,k_f1_offset,k_i0_ &offset,k_v2_offset,k_x2_offset,k_x3_offset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -35,7 +35,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomccsdt1_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE eomccsdt1_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v @@ -511,7 +511,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE eomccsdt1_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * f ( h7 h3 )_f @@ -706,7 +706,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 END SUBROUTINE eomccsdt1_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt1_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f diff --git a/src/tce/cc3/eomccsdt3_x3.F b/src/tce/cc3/eomccsdt3_x3.F index 89d0155d4c..66989c5cba 100644 --- a/src/tce/cc3/eomccsdt3_x3.F +++ b/src/tce/cc3/eomccsdt3_x3.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsdt3_x3(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_x1,d_x2,d_ &x3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v &2_offset,k_x1_offset,k_x2_offset,k_x3_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -446,7 +446,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f END SUBROUTINE eomccsdt3_x3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 h2 h7 )_x * i1 ( h7 h3 )_f @@ -640,7 +640,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = -1 * P( 3 ) * Sum ( h7 ) * x ( p4 p5 p6 h1 RETURN END SUBROUTINE eomccsdt3_x3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -724,7 +724,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -780,7 +780,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE eomccsdt3_x3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f @@ -908,7 +908,7 @@ C i1 ( h7 h1 )_ft + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * f ( h7 p8 )_f END SUBROUTINE eomccsdt3_x3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 h2 h3 )_x * f ( p6 p7 )_f @@ -1103,7 +1103,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xf + = 1 * P( 3 ) * Sum ( p7 ) * x ( p4 p5 p7 h1 END SUBROUTINE eomccsdt3_x3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_fx @@ -1278,7 +1278,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_ END SUBROUTINE eomccsdt3_x3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_x * f ( h12 p8 )_f @@ -1454,7 +1454,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx + = 1 * Sum ( p8 ) * x ( p4 p5 p8 h1 h2 h3 )_ RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_fx @@ -1542,7 +1542,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_fx END SUBROUTINE eomccsdt3_x3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx @@ -1754,7 +1754,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = 1 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomccsdt3_x3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v @@ -1907,7 +1907,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx @@ -1979,7 +1979,7 @@ C i2 ( h12 p4 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v @@ -2182,7 +2182,7 @@ C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE eomccsdt3_x3_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt @@ -2336,7 +2336,7 @@ C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h END SUBROUTINE eomccsdt3_x3_3_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -2489,7 +2489,7 @@ C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt @@ -2561,7 +2561,7 @@ C i3 ( h10 h12 h1 p7 )_vt END SUBROUTINE eomccsdt3_x3_3_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx @@ -2715,7 +2715,7 @@ C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 END SUBROUTINE eomccsdt3_x3_3_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v @@ -2868,7 +2868,7 @@ C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx @@ -2940,7 +2940,7 @@ C i3 ( h8 h12 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_vt @@ -3152,7 +3152,7 @@ C i1 ( h12 p4 p5 h1 h2 h3 )_vtx + = -1 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h END SUBROUTINE eomccsdt3_x3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -3354,7 +3354,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_3_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt @@ -3426,7 +3426,7 @@ C i2 ( h12 p4 h1 p10 )_vt END SUBROUTINE eomccsdt3_x3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -3663,7 +3663,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 END SUBROUTINE eomccsdt3_x3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v @@ -3816,7 +3816,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -3887,7 +3887,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE eomccsdt3_x3_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v @@ -3985,7 +3985,7 @@ C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v @@ -4055,7 +4055,7 @@ C i2 ( h12 h13 h1 h2 )_v END SUBROUTINE eomccsdt3_x3_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v @@ -4206,7 +4206,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsdt3_x3_4_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v @@ -4307,7 +4307,7 @@ C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v @@ -4377,7 +4377,7 @@ C i3 ( h12 h13 h1 p9 )_v END SUBROUTINE eomccsdt3_x3_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v @@ -4531,7 +4531,7 @@ C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 END SUBROUTINE eomccsdt3_x3_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v @@ -4693,7 +4693,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v END SUBROUTINE eomccsdt3_x3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -4849,7 +4849,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE eomccsdt3_x3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -5045,7 +5045,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE eomccsdt3_x3_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -5146,7 +5146,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -5216,7 +5216,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5370,7 +5370,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE eomccsdt3_x3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5535,7 +5535,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE eomccsdt3_x3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_vx @@ -5689,7 +5689,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h1 END SUBROUTINE eomccsdt3_x3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h11 h12 h2 p9 )_v @@ -5842,7 +5842,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx @@ -5914,7 +5914,7 @@ C i2 ( h11 h12 h1 h2 )_vx END SUBROUTINE eomccsdt3_x3_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h11 h12 p9 p10 )_v @@ -6077,7 +6077,7 @@ C i2 ( h11 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * END SUBROUTINE eomccsdt3_x3_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_vx @@ -6229,7 +6229,7 @@ C i2 ( h11 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i END SUBROUTINE eomccsdt3_x3_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 p8 p10 )_v @@ -6383,7 +6383,7 @@ C i3 ( h11 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h11 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vx @@ -6455,7 +6455,7 @@ C i3 ( h11 h12 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -6609,7 +6609,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE eomccsdt3_x3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -6762,7 +6762,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -6834,7 +6834,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p10 )_vt @@ -6989,7 +6989,7 @@ C i1 ( h12 p4 h1 h2 )_vtx + = 1 * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( END SUBROUTINE eomccsdt3_x3_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -7149,7 +7149,7 @@ C i2 ( h12 p10 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt @@ -7205,7 +7205,7 @@ C i2 ( h12 p10 )_vt END SUBROUTINE eomccsdt3_x3_4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx @@ -7360,7 +7360,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE eomccsdt3_x3_4_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v @@ -7520,7 +7520,7 @@ C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx @@ -7576,7 +7576,7 @@ C i2 ( h12 p8 )_vx END SUBROUTINE eomccsdt3_x3_4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx @@ -7773,7 +7773,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE eomccsdt3_x3_4_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v @@ -7926,7 +7926,7 @@ C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_4_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx @@ -7998,7 +7998,7 @@ C i2 ( h9 h12 h1 p8 )_vx END SUBROUTINE eomccsdt3_x3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x * i1 ( h11 p5 p6 h1 h2 h3 )_vt @@ -8176,7 +8176,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h11 ) * x ( p4 h11 )_x END SUBROUTINE eomccsdt3_x3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p5 h3 p7 )_v @@ -8392,7 +8392,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_vt @@ -8479,7 +8479,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_vt RETURN END SUBROUTINE eomccsdt3_x3_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v @@ -8580,7 +8580,7 @@ C i2 ( h11 p4 h1 p7 )_v + = 1 * v ( h11 p4 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_5_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_v @@ -8650,7 +8650,7 @@ C i2 ( h11 p4 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 p7 )_v @@ -8804,7 +8804,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h11 h1 END SUBROUTINE eomccsdt3_x3_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 p8 )_v @@ -8958,7 +8958,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p7 END SUBROUTINE eomccsdt3_x3_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -9161,7 +9161,7 @@ C i2 ( h11 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h END SUBROUTINE eomccsdt3_x3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 )_t * f ( h11 p8 )_f @@ -9339,7 +9339,7 @@ C i1 ( h11 p4 p5 h1 h2 h3 )_ft + = -1/6 * Sum ( p8 ) * t ( p4 p5 p8 h1 h2 h3 END SUBROUTINE eomccsdt3_x3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx @@ -9576,7 +9576,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h END SUBROUTINE eomccsdt3_x3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v @@ -9729,7 +9729,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx @@ -9801,7 +9801,7 @@ C i1 ( p4 p5 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v @@ -9963,7 +9963,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * RETURN END SUBROUTINE eomccsdt3_x3_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v @@ -10064,7 +10064,7 @@ C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v @@ -10134,7 +10134,7 @@ C i2 ( h11 h12 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v @@ -10288,7 +10288,7 @@ C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 END SUBROUTINE eomccsdt3_x3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v @@ -10485,7 +10485,7 @@ C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_ END SUBROUTINE eomccsdt3_x3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx @@ -10648,7 +10648,7 @@ C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 END SUBROUTINE eomccsdt3_x3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v @@ -10801,7 +10801,7 @@ C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx @@ -10873,7 +10873,7 @@ C i2 ( h8 h9 h1 p7 )_vx END SUBROUTINE eomccsdt3_x3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 h11 )_x * i1 ( h11 p6 h2 h3 )_vt @@ -11119,7 +11119,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -2 * P( 9 ) * Sum ( h11 ) * x ( p4 p5 h1 END SUBROUTINE eomccsdt3_x3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h11 h2 p7 )_v @@ -11315,7 +11315,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt @@ -11386,7 +11386,7 @@ C i1 ( h11 p4 h1 h2 )_vt RETURN END SUBROUTINE eomccsdt3_x3_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v @@ -11487,7 +11487,7 @@ C i2 ( h8 h11 h1 p7 )_v + = 1 * v ( h8 h11 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_v @@ -11557,7 +11557,7 @@ C i2 ( h8 h11 h1 p7 )_v END SUBROUTINE eomccsdt3_x3_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 p9 )_v @@ -11711,7 +11711,7 @@ C i2 ( h8 h11 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h11 p7 END SUBROUTINE eomccsdt3_x3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 p4 p7 p8 )_v @@ -11876,7 +11876,7 @@ C i1 ( h11 p4 h1 h2 )_vt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE eomccsdt3_x3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h11 h1 h2 )_vt @@ -12030,7 +12030,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = -1/4 * Sum ( h9 ) * t ( p4 h9 )_t * i2 ( h9 h1 END SUBROUTINE eomccsdt3_x3_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h9 h11 p7 p8 )_v @@ -12191,7 +12191,7 @@ C i2 ( h9 h11 h1 h2 )_vt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_vt @@ -12263,7 +12263,7 @@ C i2 ( h9 h11 h1 h2 )_vt END SUBROUTINE eomccsdt3_x3_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h11 p7 )_vt @@ -12418,7 +12418,7 @@ C i1 ( h11 p4 h1 h2 )_vtt + = 1/2 * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( END SUBROUTINE eomccsdt3_x3_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 )_v @@ -12578,7 +12578,7 @@ C i2 ( h11 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h11 p7 p8 RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p7 )_vt @@ -12634,7 +12634,7 @@ C i2 ( h11 p7 )_vt END SUBROUTINE eomccsdt3_x3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_vt @@ -12880,7 +12880,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = -1/2 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 END SUBROUTINE eomccsdt3_x3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v @@ -13042,7 +13042,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt @@ -13113,7 +13113,7 @@ C i1 ( p4 p5 h1 p11 )_vt RETURN END SUBROUTINE eomccsdt3_x3_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v @@ -13214,7 +13214,7 @@ C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v @@ -13284,7 +13284,7 @@ C i2 ( h7 h8 h1 p11 )_v END SUBROUTINE eomccsdt3_x3_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v @@ -13438,7 +13438,7 @@ C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE eomccsdt3_x3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v @@ -13635,7 +13635,7 @@ C i1 ( p4 p5 h1 p11 )_vt + = 2 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ END SUBROUTINE eomccsdt3_x3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_fx @@ -13831,7 +13831,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_fxt + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE eomccsdt3_x3_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f @@ -13958,7 +13958,7 @@ C i1 ( h7 h1 )_fx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * f ( h7 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsdt3_x3_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsdt3_x3.F,v 1.1 2007-11-07 17:50:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_fx diff --git a/src/tce/ccd/GNUmakefile b/src/tce/ccd/GNUmakefile index effa040934..906861b7c0 100644 --- a/src/tce/ccd/GNUmakefile +++ b/src/tce/ccd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:39 edo Exp $ +#$Id$ OBJ_OPTIMIZE = ccd_e.o ccd_t2.o diff --git a/src/tce/ccd/ccd_e.F b/src/tce/ccd/ccd_e.F index f876047ae6..f5eedca2f4 100644 --- a/src/tce/ccd/ccd_e.F +++ b/src/tce/ccd/ccd_e.F @@ -1,6 +1,6 @@ SUBROUTINE ccd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_offse &t) -C $Id: ccd_e.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE ccd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_e.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccd/ccd_t2.F b/src/tce/ccd/ccd_t2.F index 63efde545b..6cfc4d3387 100644 --- a/src/tce/ccd/ccd_t2.F +++ b/src/tce/ccd/ccd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE ccd_t2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t2 &_offset,k_v2_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -85,7 +85,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE ccd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -181,7 +181,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE ccd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_f @@ -340,7 +340,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccd_t2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -422,7 +422,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_ccd_t2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -478,7 +478,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE ccd_t2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 h8 p6 p7 )_v @@ -650,7 +650,7 @@ C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 RETURN END SUBROUTINE ccd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_f @@ -809,7 +809,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE ccd_t2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f @@ -891,7 +891,7 @@ C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f RETURN END SUBROUTINE OFFSET_ccd_t2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f @@ -947,7 +947,7 @@ C i1 ( p3 p5 )_f END SUBROUTINE ccd_t2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -1119,7 +1119,7 @@ C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 RETURN END SUBROUTINE ccd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 ( h7 h9 h1 h2 )_v @@ -1276,7 +1276,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 RETURN END SUBROUTINE ccd_t2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v @@ -1372,7 +1372,7 @@ C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v RETURN END SUBROUTINE OFFSET_ccd_t2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v @@ -1442,7 +1442,7 @@ C i1 ( h7 h9 h1 h2 )_v END SUBROUTINE ccd_t2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h7 h9 p5 p6 )_v @@ -1600,7 +1600,7 @@ C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE ccd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_v @@ -1797,7 +1797,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE ccd_t2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v @@ -1896,7 +1896,7 @@ C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_ccd_t2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v @@ -1966,7 +1966,7 @@ C i1 ( h6 p3 h1 p5 )_v END SUBROUTINE ccd_t2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( h6 h8 p5 p7 )_v @@ -2165,7 +2165,7 @@ C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( RETURN END SUBROUTINE ccd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccd_t2.F,v 1.3 2005-12-16 22:21:02 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/ccsd_yr/GNUmakefile b/src/tce/ccsd_yr/GNUmakefile index 2235410807..29128659ed 100644 --- a/src/tce/ccsd_yr/GNUmakefile +++ b/src/tce/ccsd_yr/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2007-09-13 17:26:27 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = \ ccsd_y_o1.o \ diff --git a/src/tce/ccsd_yr/alpha_2_yr.F b/src/tce/ccsd_yr/alpha_2_yr.F index ff963835cf..84b2966424 100644 --- a/src/tce/ccsd_yr/alpha_2_yr.F +++ b/src/tce/ccsd_yr/alpha_2_yr.F @@ -1,6 +1,6 @@ SUBROUTINE alpha_2_yr(d_i0,d_o1,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &o1_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o @@ -120,7 +120,7 @@ C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h END SUBROUTINE alpha_2_yr_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o @@ -233,7 +233,7 @@ C i0 ( )_yo + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_o RETURN END SUBROUTINE alpha_2_yr_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_o + = 1 * o ( p1 h4 )_o @@ -317,7 +317,7 @@ C i1 ( p1 h4 )_o + = 1 * o ( p1 h4 )_o RETURN END SUBROUTINE OFFSET_alpha_2_yr_1_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_o @@ -373,7 +373,7 @@ C i1 ( p1 h4 )_o END SUBROUTINE alpha_2_yr_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_ot + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * t ( p2 h4 )_t @@ -501,7 +501,7 @@ C i1 ( p1 h4 )_ot + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * t ( p2 h4 )_t END SUBROUTINE alpha_2_yr_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_yt @@ -615,7 +615,7 @@ C i0 ( )_yto + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_yt END SUBROUTINE alpha_2_yr_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -742,7 +742,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_alpha_2_yr_2_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -798,7 +798,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE alpha_2_yr_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -974,7 +974,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE alpha_2_yr_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = 1 * Sum ( p7 h8 ) * o ( h8 p7 )_o * i1 ( p7 h8 )_yt @@ -1088,7 +1088,7 @@ C i0 ( )_yto + = 1 * Sum ( p7 h8 ) * o ( h8 p7 )_o * i1 ( p7 h8 )_yt END SUBROUTINE alpha_2_yr_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p7 h4 h8 )_t * y ( h4 p3 )_y @@ -1249,7 +1249,7 @@ C i1 ( p7 h8 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p7 h4 h8 )_t * y ( h4 p3 )_ RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_yt @@ -1305,7 +1305,7 @@ C i1 ( p7 h8 )_yt END SUBROUTINE alpha_2_yr_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_ytt + = -1 * Sum ( h1 ) * t ( p7 h1 )_t * i2 ( h1 h8 )_yt @@ -1433,7 +1433,7 @@ C i1 ( p7 h8 )_ytt + = -1 * Sum ( h1 ) * t ( p7 h1 )_t * i2 ( h1 h8 )_yt END SUBROUTINE alpha_2_yr_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h1 p3 )_y @@ -1560,7 +1560,7 @@ C i2 ( h1 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h1 p3 )_y RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_2_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt @@ -1616,7 +1616,7 @@ C i2 ( h1 h8 )_yt END SUBROUTINE alpha_2_yr_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h8 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h1 h5 p3 p4 )_y @@ -1792,7 +1792,7 @@ C i2 ( h1 h8 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h1 END SUBROUTINE alpha_2_yr_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 h8 )_ytt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p3 p7 h4 h5 )_t * i2 ( h4 h5 h8 p3 )_yt @@ -1960,7 +1960,7 @@ C i1 ( p7 h8 )_ytt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p3 p7 h4 h5 )_t * i2 ( h END SUBROUTINE alpha_2_yr_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h8 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h8 )_t * y ( h4 h5 p3 p6 )_y @@ -2113,7 +2113,7 @@ C i2 ( h4 h5 h8 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h8 )_t * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_alpha_2_yr_3_3_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h8 p3 )_yt @@ -2185,7 +2185,7 @@ C i2 ( h4 h5 h8 p3 )_yt END SUBROUTINE alpha_2_yr_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yto + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_yt @@ -2299,7 +2299,7 @@ C i0 ( )_yto + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_yt END SUBROUTINE alpha_2_yr_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -2474,7 +2474,7 @@ C i1 ( p2 p1 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_alpha_2_yr_4_1(l_a_offset,k_a_offset,size) -C $Id: alpha_2_yr.F,v 1.1 2007-09-13 17:26:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_hh.F b/src/tce/ccsd_yr/ccsd_lr_d1_hh.F index 4e4b2a6e00..04f8e4a646 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_hh.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_hh.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_hh(d_i0,d_t1,d_tr1,d_tr2,d_y1,d_y2,d_yr1,k_i &0_offset,k_t1_offset,k_tr1_offset,k_tr2_offset,k_y1_offset,k_y2_of &fset,k_yr1_offset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yrt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * yr ( h2 p3 )_yr END SUBROUTINE ccsd_lr_d1_hh_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_ytr + = -1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y END SUBROUTINE ccsd_lr_d1_hh_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ytr + = -1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_ytr + = -1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( END SUBROUTINE ccsd_lr_d1_hh_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hh.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yrt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * yr ( h2 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_hp.F b/src/tce/ccsd_yr/ccsd_lr_d1_hp.F index 29a2800f69..292b41de76 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_hp.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_hp.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_hp(d_i0,d_t1,d_t2,d_tr1,d_tr2,d_y1,d_y2,d_yr &1,d_yr2,k_i0_offset,k_t1_offset,k_t2_offset,k_tr1_offset,k_tr2_off &set,k_y1_offset,k_y2_offset,k_yr1_offset,k_yr2_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr @@ -108,7 +108,7 @@ C i0 ( p2 h1 )_yrt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * yr ( h4 p3 RETURN END SUBROUTINE ccsd_lr_d1_hp_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr @@ -193,7 +193,7 @@ C i0 ( p2 h1 )_tr + = 1 * tr ( p2 h1 )_tr END SUBROUTINE ccsd_lr_d1_hp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p2 p3 h1 h4 )_tr * y ( h4 p3 )_y @@ -355,7 +355,7 @@ C i0 ( p2 h1 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p2 p3 h1 h4 )_tr * y ( h4 p3 END SUBROUTINE ccsd_lr_d1_hp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytrt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_ytr @@ -483,7 +483,7 @@ C i0 ( p2 h1 )_ytrt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_ytr END SUBROUTINE ccsd_lr_d1_hp_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr + = 1 * Sum ( p4 ) * tr ( p4 h1 )_tr * y ( h7 p4 )_y @@ -610,7 +610,7 @@ C i1 ( h7 h1 )_ytr + = 1 * Sum ( p4 ) * tr ( p4 h1 )_tr * y ( h7 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr @@ -666,7 +666,7 @@ C i1 ( h7 h1 )_ytr END SUBROUTINE ccsd_lr_d1_hp_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytr + = -1/2 * Sum ( h6 p4 p5 ) * tr ( p4 p5 h1 h6 )_tr * y ( h6 h7 p4 p5 )_y @@ -842,7 +842,7 @@ C i1 ( h7 h1 )_ytr + = -1/2 * Sum ( h6 p4 p5 ) * tr ( p4 p5 h1 h6 )_tr * y ( END SUBROUTINE ccsd_lr_d1_hp_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yrt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * yr ( h5 h7 p3 p4 )_yr @@ -1018,7 +1018,7 @@ C i1 ( h7 h1 )_yrt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * yr ( END SUBROUTINE ccsd_lr_d1_hp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttr + = -1 * Sum ( h7 ) * tr ( p2 h7 )_tr * i1 ( h7 h1 )_yt @@ -1146,7 +1146,7 @@ C i0 ( p2 h1 )_yttr + = -1 * Sum ( h7 ) * tr ( p2 h7 )_tr * i1 ( h7 h1 )_yt END SUBROUTINE ccsd_lr_d1_hp_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1273,7 +1273,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -1329,7 +1329,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE ccsd_lr_d1_hp_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -1505,7 +1505,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsd_lr_d1_hp_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttr + = 1/2 * Sum ( h5 h6 p4 ) * tr ( p2 p4 h5 h6 )_tr * i1 ( h5 h6 h1 p4 )_yt @@ -1673,7 +1673,7 @@ C i0 ( p2 h1 )_yttr + = 1/2 * Sum ( h5 h6 p4 ) * tr ( p2 p4 h5 h6 )_tr * i1 END SUBROUTINE ccsd_lr_d1_hp_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -1826,7 +1826,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt @@ -1898,7 +1898,7 @@ C i1 ( h5 h6 h1 p4 )_yt END SUBROUTINE ccsd_lr_d1_hp_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytrt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_ytr @@ -2066,7 +2066,7 @@ C i0 ( p2 h1 )_ytrt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE ccsd_lr_d1_hp_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h1 )_tr * y ( h4 h5 p3 p6 )_y @@ -2219,7 +2219,7 @@ C i1 ( h4 h5 h1 p3 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h1 )_tr * y ( h4 h5 p RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_hp_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_ytr @@ -2291,7 +2291,7 @@ C i1 ( h4 h5 h1 p3 )_ytr END SUBROUTINE ccsd_lr_d1_hp_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yrt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * yr ( h4 h5 p3 p6 )_yr @@ -2445,7 +2445,7 @@ C i1 ( h4 h5 h1 p3 )_yrt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * yr ( h4 h5 p3 END SUBROUTINE ccsd_lr_d1_hp_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_hp.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yrt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * yr ( h4 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_ph.F b/src/tce/ccsd_yr/ccsd_lr_d1_ph.F index 109c52b143..9461a6e343 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_ph.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_ph.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_lr_d1_ph(d_i0,d_t1,d_yr1,k_i0_offset,k_t1_offset,k &_yr1_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr @@ -38,7 +38,7 @@ C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr RETURN END SUBROUTINE ccsd_lr_d1_ph_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr @@ -123,7 +123,7 @@ C i0 ( h2 p1 )_yr + = 1 * yr ( h2 p1 )_yr END SUBROUTINE ccsd_lr_d1_ph_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h2 )_yrtt + = -1 * Sum ( h4 ) * t ( p1 h4 )_t * i1 ( h4 h2 )_yrt @@ -251,7 +251,7 @@ C i0 ( p1 h2 )_yrtt + = -1 * Sum ( h4 ) * t ( p1 h4 )_t * i1 ( h4 h2 )_yrt END SUBROUTINE ccsd_lr_d1_ph_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr @@ -378,7 +378,7 @@ C i1 ( h4 h2 )_yrt + = 1 * Sum ( p3 ) * t ( p3 h2 )_t * yr ( h4 p3 )_yr RETURN END SUBROUTINE OFFSET_ccsd_lr_d1_ph_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_lr_d1_ph.F,v 1.1 2008-01-15 03:21:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h2 )_yrt diff --git a/src/tce/ccsd_yr/ccsd_lr_d1_pp.F b/src/tce/ccsd_yr/ccsd_lr_d1_pp.F index 466c97c370..200ef54c9f 100644 --- a/src/tce/ccsd_yr/ccsd_lr_d1_pp.F +++ b/src/tce/ccsd_yr/ccsd_lr_d1_pp.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_lr_d1_pp(d_i0,d_t1,d_t2,d_tr1,d_tr2,d_y1,d_y2,d_yr &1,d_yr2,k_i0_offset,k_t1_offset,k_t2_offset,k_tr1_offset,k_tr2_off &set,k_y1_offset,k_y2_offset,k_yr1_offset,k_yr2_offset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yrt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * yr ( h END SUBROUTINE ccsd_lr_d1_pp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_ytr + = 1 * Sum ( h3 ) * tr ( p1 h3 )_tr * y ( h3 p2 )_y END SUBROUTINE ccsd_lr_d1_pp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytr + = 1/2 * Sum ( h4 h5 p3 ) * tr ( p1 p3 h4 h5 )_tr * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_ytr + = 1/2 * Sum ( h4 h5 p3 ) * tr ( p1 p3 h4 h5 )_tr * y ( END SUBROUTINE ccsd_lr_d1_pp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yrt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * yr ( h3 p2 )_yr @@ -476,7 +476,7 @@ C i0 ( p1 p2 )_yrt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * yr ( h3 p2 )_yr END SUBROUTINE ccsd_lr_d1_pp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_lr_d1_pp.F,v 1.1 2008-01-15 03:21:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yrt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * yr ( h4 h5 p2 p3 )_yr diff --git a/src/tce/ccsd_yr/ccsd_y_o1.F b/src/tce/ccsd_yr/ccsd_y_o1.F index 365b6055c8..87530c7fc5 100644 --- a/src/tce/ccsd_yr/ccsd_y_o1.F +++ b/src/tce/ccsd_yr/ccsd_y_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_y_o1(d_i0,d_o1,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o @@ -115,7 +115,7 @@ C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 RETURN END SUBROUTINE ccsd_y_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o @@ -198,7 +198,7 @@ C i0 ( h2 p1 )_o + = 1 * o ( h2 p1 )_o END SUBROUTINE ccsd_y_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = -1 * Sum ( h5 ) * y ( h5 p1 )_y * i1 ( h2 h5 )_o @@ -322,7 +322,7 @@ C i0 ( h2 p1 )_yo + = -1 * Sum ( h5 ) * y ( h5 p1 )_y * i1 ( h2 h5 )_o RETURN END SUBROUTINE ccsd_y_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_o + = 1 * o ( h2 h5 )_o @@ -404,7 +404,7 @@ C i1 ( h2 h5 )_o + = 1 * o ( h2 h5 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_o @@ -460,7 +460,7 @@ C i1 ( h2 h5 )_o END SUBROUTINE ccsd_y_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 )_ot + = 1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 h5 )_t @@ -586,7 +586,7 @@ C i1 ( h2 h5 )_ot + = 1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 h5 )_t END SUBROUTINE ccsd_y_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = 1 * Sum ( p3 ) * o ( p3 p1 )_o * y ( h2 p3 )_y @@ -711,7 +711,7 @@ C i0 ( h2 p1 )_yo + = 1 * Sum ( p3 ) * o ( p3 p1 )_o * y ( h2 p3 )_y END SUBROUTINE ccsd_y_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yo + = 1 * Sum ( h7 p5 ) * y ( h2 h7 p1 p5 )_y * i1 ( p5 h7 )_o @@ -869,7 +869,7 @@ C i0 ( h2 p1 )_yo + = 1 * Sum ( h7 p5 ) * y ( h2 h7 p1 p5 )_y * i1 ( p5 h7 ) RETURN END SUBROUTINE ccsd_y_o1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_o + = 1 * o ( p5 h7 )_o @@ -951,7 +951,7 @@ C i1 ( p5 h7 )_o + = 1 * o ( p5 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_o @@ -1007,7 +1007,7 @@ C i1 ( p5 h7 )_o END SUBROUTINE ccsd_y_o1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h4 h7 )_o @@ -1132,7 +1132,7 @@ C i1 ( p5 h7 )_ot + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h4 h7 )_o RETURN END SUBROUTINE ccsd_y_o1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_o + = 1 * o ( h4 h7 )_o @@ -1216,7 +1216,7 @@ C i2 ( h4 h7 )_o + = 1 * o ( h4 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_o @@ -1272,7 +1272,7 @@ C i2 ( h4 h7 )_o END SUBROUTINE ccsd_y_o1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_ot + = 1 * Sum ( p3 ) * o ( h4 p3 )_o * t ( p3 h7 )_t @@ -1400,7 +1400,7 @@ C i2 ( h4 h7 )_ot + = 1 * Sum ( p3 ) * o ( h4 p3 )_o * t ( p3 h7 )_t END SUBROUTINE ccsd_y_o1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = 1 * Sum ( p4 ) * o ( p5 p4 )_o * t ( p4 h7 )_t @@ -1526,7 +1526,7 @@ C i1 ( p5 h7 )_ot + = 1 * Sum ( p4 ) * o ( p5 p4 )_o * t ( p4 h7 )_t END SUBROUTINE ccsd_y_o1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h7 )_ot + = 1 * Sum ( h3 p4 ) * o ( h3 p4 )_o * t ( p4 p5 h3 h7 )_t @@ -1685,7 +1685,7 @@ C i1 ( p5 h7 )_ot + = 1 * Sum ( h3 p4 ) * o ( h3 p4 )_o * t ( p4 p5 h3 h7 )_ END SUBROUTINE ccsd_y_o1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yto + = -1 * Sum ( h3 ) * o ( h3 p1 )_o * i1 ( h2 h3 )_yt @@ -1810,7 +1810,7 @@ C i0 ( h2 p1 )_yto + = -1 * Sum ( h3 ) * o ( h3 p1 )_o * i1 ( h2 h3 )_yt END SUBROUTINE ccsd_y_o1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -1935,7 +1935,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_o1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -1991,7 +1991,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE ccsd_y_o1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -2165,7 +2165,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE ccsd_y_o1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_oty + = 1/2 * Sum ( p4 h5 h6 ) * y ( h5 h6 p1 p4 )_y * i1 ( h2 p4 h5 h6 )_ot @@ -2328,7 +2328,7 @@ C i0 ( h2 p1 )_oty + = 1/2 * Sum ( p4 h5 h6 ) * y ( h5 h6 p1 p4 )_y * i1 ( h END SUBROUTINE ccsd_y_o1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 h5 h6 )_t @@ -2479,7 +2479,7 @@ C i1 ( h2 p4 h5 h6 )_ot + = -1 * Sum ( p3 ) * o ( h2 p3 )_o * t ( p3 p4 h5 h RETURN END SUBROUTINE OFFSET_ccsd_y_o1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o1.F,v 1.1 2007-09-13 03:15:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 h5 h6 )_ot diff --git a/src/tce/ccsd_yr/ccsd_y_o2.F b/src/tce/ccsd_yr/ccsd_y_o2.F index 82c1a0386f..f4a11d6458 100644 --- a/src/tce/ccsd_yr/ccsd_y_o2.F +++ b/src/tce/ccsd_yr/ccsd_y_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_y_o2(d_i0,d_o1,d_t1,d_y1,d_y2,k_i0_offset,k_o1_off &set,k_t1_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y @@ -62,7 +62,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 END SUBROUTINE ccsd_y_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y @@ -221,7 +221,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = 1 * P( 4 ) * o ( h3 p1 )_o * y ( h4 p2 )_y END SUBROUTINE ccsd_y_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( h7 ) * y ( h3 h7 p1 p2 )_y * i1 ( h4 h7 )_o @@ -382,7 +382,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( h7 ) * y ( h3 h7 p1 p2 )_y * RETURN END SUBROUTINE ccsd_y_o2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_o + = 1 * o ( h3 h7 )_o @@ -464,7 +464,7 @@ C i1 ( h3 h7 )_o + = 1 * o ( h3 h7 )_o RETURN END SUBROUTINE OFFSET_ccsd_y_o2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_o @@ -520,7 +520,7 @@ C i1 ( h3 h7 )_o END SUBROUTINE ccsd_y_o2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 )_ot + = 1 * Sum ( p5 ) * o ( h3 p5 )_o * t ( p5 h7 )_t @@ -646,7 +646,7 @@ C i1 ( h3 h7 )_ot + = 1 * Sum ( p5 ) * o ( h3 p5 )_o * t ( p5 h7 )_t END SUBROUTINE ccsd_y_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( p5 ) * o ( p5 p1 )_o * y ( h3 h4 p2 p5 )_y @@ -807,7 +807,7 @@ C i0 ( h3 h4 p1 p2 )_yo + = -1 * P( 2 ) * Sum ( p5 ) * o ( p5 p1 )_o * y ( h END SUBROUTINE ccsd_y_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yto + = -1 * P( 2 ) * Sum ( h5 ) * o ( h5 p1 )_o * i1 ( h3 h4 h5 p2 )_yt @@ -958,7 +958,7 @@ C i0 ( h3 h4 p1 p2 )_yto + = -1 * P( 2 ) * Sum ( h5 ) * o ( h5 p1 )_o * i1 ( END SUBROUTINE ccsd_y_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -1109,7 +1109,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_o2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt diff --git a/src/tce/ccsd_yr/ccsd_y_tr1.F b/src/tce/ccsd_yr/ccsd_y_tr1.F index 77ffe0e619..d3c361bdcf 100644 --- a/src/tce/ccsd_yr/ccsd_y_tr1.F +++ b/src/tce/ccsd_yr/ccsd_y_tr1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_y_tr1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,d_y1,d_y2 &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_ &offset,k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p9 )_v @@ -787,7 +787,7 @@ C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h END SUBROUTINE ccsd_y_tr1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p9 )_v @@ -944,7 +944,7 @@ C i0 ( h2 p1 )_xv + = 1 * Sum ( p9 h10 ) * i1 ( p9 h10 )_x * v ( h2 h10 p1 p RETURN END SUBROUTINE ccsd_y_tr1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_x + = 1 * x ( p9 h10 )_x @@ -1028,7 +1028,7 @@ C i1 ( p9 h10 )_x + = 1 * x ( p9 h10 )_x RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_x @@ -1084,7 +1084,7 @@ C i1 ( p9 h10 )_x END SUBROUTINE ccsd_y_tr1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h10 )_x * y ( h6 p5 )_y @@ -1246,7 +1246,7 @@ C i1 ( p9 h10 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h10 )_x * y ( h6 p5 END SUBROUTINE ccsd_y_tr1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yxt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h10 )_yx @@ -1374,7 +1374,7 @@ C i1 ( p9 h10 )_yxt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h10 )_yx END SUBROUTINE ccsd_y_tr1_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h4 p6 )_y @@ -1501,7 +1501,7 @@ C i2 ( h4 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h4 p6 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx @@ -1557,7 +1557,7 @@ C i2 ( h4 h10 )_yx END SUBROUTINE ccsd_y_tr1_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h4 h8 p6 p7 )_y @@ -1733,7 +1733,7 @@ C i2 ( h4 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( END SUBROUTINE ccsd_y_tr1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_ytx + = -1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 h10 )_yt @@ -1861,7 +1861,7 @@ C i1 ( p9 h10 )_ytx + = -1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 h10 )_yt END SUBROUTINE ccsd_y_tr1_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 p3 )_y @@ -1988,7 +1988,7 @@ C i2 ( h7 h10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt @@ -2044,7 +2044,7 @@ C i2 ( h7 h10 )_yt END SUBROUTINE ccsd_y_tr1_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h10 )_t * y ( h5 h7 p3 p4 )_y @@ -2220,7 +2220,7 @@ C i2 ( h7 h10 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h10 )_t * y ( h END SUBROUTINE ccsd_y_tr1_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( h7 h8 h10 p6 )_yt @@ -2388,7 +2388,7 @@ C i1 ( p9 h10 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( END SUBROUTINE ccsd_y_tr1_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 h8 p3 p6 )_y @@ -2541,7 +2541,7 @@ C i2 ( h7 h8 h10 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h7 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p6 )_yt @@ -2613,7 +2613,7 @@ C i2 ( h7 h8 h10 p6 )_yt END SUBROUTINE ccsd_y_tr1_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h10 )_yxt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( h5 h6 h10 p3 )_yx @@ -2781,7 +2781,7 @@ C i1 ( p9 h10 )_yxt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( END SUBROUTINE ccsd_y_tr1_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p3 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h5 h6 p3 p8 )_y @@ -2934,7 +2934,7 @@ C i2 ( h5 h6 h10 p3 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p3 )_yx @@ -3006,7 +3006,7 @@ C i2 ( h5 h6 h10 p3 )_yx END SUBROUTINE ccsd_y_tr1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_fx @@ -3131,7 +3131,7 @@ C i0 ( h2 p1 )_fxy + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_fx END SUBROUTINE ccsd_y_tr1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_fx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * i2 ( h2 p6 )_f @@ -3258,7 +3258,7 @@ C i1 ( h2 h7 )_fx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * i2 ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_fx @@ -3313,7 +3313,7 @@ C i1 ( h2 h7 )_fx RETURN END SUBROUTINE ccsd_y_tr1_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -3397,7 +3397,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -3453,7 +3453,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE ccsd_y_tr1_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -3614,7 +3614,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE ccsd_y_tr1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vx + = 1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h2 h3 h7 p5 )_v @@ -3759,7 +3759,7 @@ C i1 ( h2 h7 )_vx + = 1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h2 h3 h7 p5 )_ END SUBROUTINE ccsd_y_tr1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vx + = -1/2 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h7 )_x * v ( h2 h3 p4 p5 )_v @@ -3935,7 +3935,7 @@ C i1 ( h2 h7 )_vx + = -1/2 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h7 )_x * v ( h2 END SUBROUTINE ccsd_y_tr1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_vx @@ -4063,7 +4063,7 @@ C i1 ( h2 h7 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_vx END SUBROUTINE ccsd_y_tr1_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h2 h5 p3 p6 )_v @@ -4223,7 +4223,7 @@ C i2 ( h2 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h2 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vx @@ -4279,7 +4279,7 @@ C i2 ( h2 p3 )_vx END SUBROUTINE ccsd_y_tr1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yx * f ( h3 p1 )_f @@ -4404,7 +4404,7 @@ C i0 ( h2 p1 )_yxf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yx * f ( h3 p1 )_f END SUBROUTINE ccsd_y_tr1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1 * Sum ( p4 ) * x ( p4 h3 )_x * y ( h2 p4 )_y @@ -4531,7 +4531,7 @@ C i1 ( h2 h3 )_yx + = 1 * Sum ( p4 ) * x ( p4 h3 )_x * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx @@ -4587,7 +4587,7 @@ C i1 ( h2 h3 )_yx END SUBROUTINE ccsd_y_tr1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 h6 p4 p5 )_y @@ -4763,7 +4763,7 @@ C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 END SUBROUTINE ccsd_y_tr1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1 * Sum ( h4 h3 ) * i1 ( h4 h3 )_yx * v ( h2 h3 h4 p1 )_v @@ -4905,7 +4905,7 @@ C i0 ( h2 p1 )_yxv + = 1 * Sum ( h4 h3 ) * i1 ( h4 h3 )_yx * v ( h2 h3 h4 p1 END SUBROUTINE ccsd_y_tr1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx + = 1 * Sum ( p5 ) * x ( p5 h3 )_x * y ( h4 p5 )_y @@ -5032,7 +5032,7 @@ C i1 ( h4 h3 )_yx + = 1 * Sum ( p5 ) * x ( p5 h3 )_x * y ( h4 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx @@ -5088,7 +5088,7 @@ C i1 ( h4 h3 )_yx END SUBROUTINE ccsd_y_tr1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h3 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h3 h7 )_x * y ( h4 h7 p5 p6 )_y @@ -5264,7 +5264,7 @@ C i1 ( h4 h3 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h3 h7 )_x * y ( h4 END SUBROUTINE ccsd_y_tr1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1 * Sum ( p4 p3 ) * i1 ( p4 p3 )_yx * v ( h2 p3 p1 p4 )_v @@ -5406,7 +5406,7 @@ C i0 ( h2 p1 )_yxv + = 1 * Sum ( p4 p3 ) * i1 ( p4 p3 )_yx * v ( h2 p3 p1 p4 END SUBROUTINE ccsd_y_tr1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx + = 1 * Sum ( h5 ) * x ( p4 h5 )_x * y ( h5 p3 )_y @@ -5533,7 +5533,7 @@ C i1 ( p4 p3 )_yx + = 1 * Sum ( h5 ) * x ( p4 h5 )_x * y ( h5 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx @@ -5589,7 +5589,7 @@ C i1 ( p4 p3 )_yx END SUBROUTINE ccsd_y_tr1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p4 p5 h6 h7 )_x * y ( h6 h7 p3 p5 )_y @@ -5765,7 +5765,7 @@ C i1 ( p4 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p4 p5 h6 h7 )_x * y ( h6 END SUBROUTINE ccsd_y_tr1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1 * Sum ( p8 ) * y ( h2 p8 )_y * i1 ( p8 p1 )_vx @@ -5890,7 +5890,7 @@ C i0 ( h2 p1 )_vxy + = 1 * Sum ( p8 ) * y ( h2 p8 )_y * i1 ( p8 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vx + = -1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h3 p8 p1 p5 )_v @@ -6034,7 +6034,7 @@ C i1 ( p8 p1 )_vx + = -1 * Sum ( h3 p5 ) * x ( p5 h3 )_x * v ( h3 p8 p1 p5 ) RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vx @@ -6090,7 +6090,7 @@ C i1 ( p8 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vxt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 p1 )_vx @@ -6218,7 +6218,7 @@ C i1 ( p8 p1 )_vxt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h4 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p1 p6 )_v @@ -6378,7 +6378,7 @@ C i2 ( h4 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vx @@ -6434,7 +6434,7 @@ C i2 ( h4 p1 )_vx END SUBROUTINE ccsd_y_tr1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p1 )_vtx + = 1 * Sum ( h5 ) * x ( p8 h5 )_x * i2 ( h5 p1 )_vt @@ -6562,7 +6562,7 @@ C i1 ( p8 p1 )_vtx + = 1 * Sum ( h5 ) * x ( p8 h5 )_x * i2 ( h5 p1 )_vt END SUBROUTINE ccsd_y_tr1_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h5 p1 p3 )_v @@ -6722,7 +6722,7 @@ C i2 ( h5 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h5 p1 p3 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_vt @@ -6778,7 +6778,7 @@ C i2 ( h5 p1 )_vt END SUBROUTINE ccsd_y_tr1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = -1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 h9 )_fx @@ -6937,7 +6937,7 @@ C i0 ( h2 p1 )_fxy + = -1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 END SUBROUTINE ccsd_y_tr1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = 1 * Sum ( h8 ) * x ( p10 h8 )_x * i2 ( h8 h9 )_f @@ -7064,7 +7064,7 @@ C i1 ( p10 h9 )_fx + = 1 * Sum ( h8 ) * x ( p10 h8 )_x * i2 ( h8 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx @@ -7119,7 +7119,7 @@ C i1 ( p10 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_f + = 1 * f ( h8 h9 )_f @@ -7203,7 +7203,7 @@ C i2 ( h8 h9 )_f + = 1 * f ( h8 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_f @@ -7259,7 +7259,7 @@ C i2 ( h8 h9 )_f END SUBROUTINE ccsd_y_tr1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ft + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * i3 ( h8 p7 )_f @@ -7386,7 +7386,7 @@ C i2 ( h8 h9 )_ft + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * i3 ( h8 p7 )_f RETURN END SUBROUTINE ccsd_y_tr1_7_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f @@ -7470,7 +7470,7 @@ C i3 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_f @@ -7526,7 +7526,7 @@ C i3 ( h8 p7 )_f END SUBROUTINE ccsd_y_tr1_7_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_v @@ -7687,7 +7687,7 @@ C i3 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_ END SUBROUTINE ccsd_y_tr1_7_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 h9 p3 )_v @@ -7832,7 +7832,7 @@ C i2 ( h8 h9 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 h9 p3 ) END SUBROUTINE ccsd_y_tr1_7_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h9 )_t * v ( h6 h8 p3 p4 )_v @@ -8008,7 +8008,7 @@ C i2 ( h8 h9 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h9 )_t * v ( h6 END SUBROUTINE ccsd_y_tr1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = -1 * Sum ( p5 ) * x ( p5 h9 )_x * i2 ( p10 p5 )_f @@ -8135,7 +8135,7 @@ C i1 ( p10 h9 )_fx + = -1 * Sum ( p5 ) * x ( p5 h9 )_x * i2 ( p10 p5 )_f RETURN END SUBROUTINE ccsd_y_tr1_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_f + = 1 * f ( p10 p5 )_f @@ -8219,7 +8219,7 @@ C i2 ( p10 p5 )_f + = 1 * f ( p10 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_f @@ -8276,7 +8276,7 @@ C i2 ( p10 p5 )_f END SUBROUTINE ccsd_y_tr1_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p5 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p10 p3 p5 )_v @@ -8421,7 +8421,7 @@ C i2 ( p10 p5 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p10 p3 p5 END SUBROUTINE ccsd_y_tr1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1 * Sum ( h3 p6 ) * x ( p6 h3 )_x * v ( h3 p10 h9 p6 )_v @@ -8558,7 +8558,7 @@ C i1 ( p10 h9 )_vx + = 1 * Sum ( h3 p6 ) * x ( p6 h3 )_x * v ( h3 p10 h9 p6 END SUBROUTINE ccsd_y_tr1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = -1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 )_f @@ -8719,7 +8719,7 @@ C i1 ( p10 h9 )_fx + = -1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p RETURN END SUBROUTINE ccsd_y_tr1_7_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -8803,7 +8803,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -8859,7 +8859,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE ccsd_y_tr1_7_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -9020,7 +9020,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE ccsd_y_tr1_7_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( h5 h7 h9 p8 )_v @@ -9187,7 +9187,7 @@ C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( RETURN END SUBROUTINE ccsd_y_tr1_7_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v @@ -9286,7 +9286,7 @@ C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v @@ -9356,7 +9356,7 @@ C i2 ( h5 h7 h9 p8 )_v END SUBROUTINE ccsd_y_tr1_7_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p8 )_v @@ -9510,7 +9510,7 @@ C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p END SUBROUTINE ccsd_y_tr1_7_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 p10 p5 p6 )_v @@ -9678,7 +9678,7 @@ C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h END SUBROUTINE ccsd_y_tr1_7_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fxt + = 1 * Sum ( h12 ) * t ( p10 h12 )_t * i2 ( h12 h9 )_fx @@ -9806,7 +9806,7 @@ C i1 ( p10 h9 )_fxt + = 1 * Sum ( h12 ) * t ( p10 h12 )_t * i2 ( h12 h9 )_fx END SUBROUTINE ccsd_y_tr1_7_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_fx + = 1 * Sum ( p3 ) * x ( p3 h9 )_x * i3 ( h12 p3 )_f @@ -9933,7 +9933,7 @@ C i2 ( h12 h9 )_fx + = 1 * Sum ( p3 ) * x ( p3 h9 )_x * i3 ( h12 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_fx @@ -9988,7 +9988,7 @@ C i2 ( h12 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr1_7_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_f + = 1 * f ( h12 p3 )_f @@ -10072,7 +10072,7 @@ C i3 ( h12 p3 )_f + = 1 * f ( h12 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_f @@ -10128,7 +10128,7 @@ C i3 ( h12 p3 )_f END SUBROUTINE ccsd_y_tr1_7_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h12 p3 p5 )_v @@ -10289,7 +10289,7 @@ C i3 ( h12 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h12 p3 p5 END SUBROUTINE ccsd_y_tr1_7_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 h12 h9 p7 )_v @@ -10434,7 +10434,7 @@ C i2 ( h12 h9 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 h12 h9 p7 END SUBROUTINE ccsd_y_tr1_7_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vx + = 1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h5 h12 p6 p7 )_v @@ -10610,7 +10610,7 @@ C i2 ( h12 h9 )_vx + = 1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h5 END SUBROUTINE ccsd_y_tr1_7_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h9 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * i3 ( h12 p3 )_vx @@ -10738,7 +10738,7 @@ C i2 ( h12 h9 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * i3 ( h12 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h12 p3 p8 )_v @@ -10898,7 +10898,7 @@ C i3 ( h12 p3 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h12 p3 p8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_7_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 p3 )_vx @@ -10954,7 +10954,7 @@ C i3 ( h12 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( p10 p3 )_vx @@ -11082,7 +11082,7 @@ C i1 ( p10 h9 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( p10 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p3 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p10 p3 p7 )_v @@ -11226,7 +11226,7 @@ C i2 ( p10 p3 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p10 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p3 )_vx @@ -11283,7 +11283,7 @@ C i2 ( p10 p3 )_vx END SUBROUTINE ccsd_y_tr1_7_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1 * Sum ( h6 p4 ) * t ( p4 p10 h6 h9 )_t * i2 ( h6 p4 )_vx @@ -11445,7 +11445,7 @@ C i1 ( p10 h9 )_vxt + = -1 * Sum ( h6 p4 ) * t ( p4 p10 h6 h9 )_t * i2 ( h6 END SUBROUTINE ccsd_y_tr1_7_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p4 p8 )_v @@ -11605,7 +11605,7 @@ C i2 ( h6 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p4 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p4 )_vx @@ -11661,7 +11661,7 @@ C i2 ( h6 p4 )_vx END SUBROUTINE ccsd_y_tr1_7_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = -1/2 * Sum ( h5 h6 p4 ) * t ( p4 p10 h5 h6 )_t * i2 ( h5 h6 h9 p4 )_vx @@ -11829,7 +11829,7 @@ C i1 ( p10 h9 )_vxt + = -1/2 * Sum ( h5 h6 p4 ) * t ( p4 p10 h5 h6 )_t * i2 END SUBROUTINE ccsd_y_tr1_7_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p4 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h5 h6 p4 p7 )_v @@ -11982,7 +11982,7 @@ C i2 ( h5 h6 h9 p4 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h5 h6 p4 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_7_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p4 )_vx @@ -12054,7 +12054,7 @@ C i2 ( h5 h6 h9 p4 )_vx END SUBROUTINE ccsd_y_tr1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( h4 h5 h3 ) * i1 ( h4 h5 h3 p1 )_yx * v ( h2 h3 h4 h5 )_v @@ -12218,7 +12218,7 @@ C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( h4 h5 h3 ) * i1 ( h4 h5 h3 p1 )_yx * v ( END SUBROUTINE ccsd_y_tr1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h3 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h4 h5 p1 p6 )_y @@ -12371,7 +12371,7 @@ C i1 ( h4 h5 h3 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h4 h5 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h3 p1 )_yx @@ -12443,7 +12443,7 @@ C i1 ( h4 h5 h3 p1 )_yx END SUBROUTINE ccsd_y_tr1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = -1 * Sum ( p9 h10 h11 ) * y ( h10 h11 p1 p9 )_y * i1 ( h2 p9 h10 h11 )_vx @@ -12606,7 +12606,7 @@ C i0 ( h2 p1 )_vxy + = -1 * Sum ( p9 h10 h11 ) * y ( h10 h11 p1 p9 )_y * i1 END SUBROUTINE ccsd_y_tr1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( p5 ) * x ( p5 h11 )_x * v ( h2 p9 h10 p5 )_v @@ -12761,7 +12761,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( p5 ) * x ( p5 h11 )_x * v ( h2 p9 h1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx @@ -12833,7 +12833,7 @@ C i1 ( h2 p9 h10 h11 )_vx END SUBROUTINE ccsd_y_tr1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_fx + = 1/2 * Sum ( p6 ) * x ( p6 p9 h10 h11 )_x * i2 ( h2 p6 )_f @@ -12987,7 +12987,7 @@ C i1 ( h2 p9 h10 h11 )_fx + = 1/2 * Sum ( p6 ) * x ( p6 p9 h10 h11 )_x * i2 RETURN END SUBROUTINE ccsd_y_tr1_9_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -13071,7 +13071,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -13127,7 +13127,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE ccsd_y_tr1_9_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -13288,7 +13288,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE ccsd_y_tr1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( h6 p4 ) * x ( p4 p9 h6 h11 )_x * i2 ( h2 h6 h10 p4 )_v @@ -13476,7 +13476,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1 * Sum ( h6 p4 ) * x ( p4 p9 h6 h11 )_x * i2 RETURN END SUBROUTINE ccsd_y_tr1_9_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v @@ -13585,7 +13585,7 @@ C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v @@ -13655,7 +13655,7 @@ C i2 ( h2 h6 h10 p4 )_v END SUBROUTINE ccsd_y_tr1_9_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * v ( h2 h6 p3 p4 )_v @@ -13825,7 +13825,7 @@ C i2 ( h2 h6 h10 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * v ( h2 h6 p3 END SUBROUTINE ccsd_y_tr1_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vx + = 1/4 * Sum ( p4 p5 ) * x ( p4 p5 h10 h11 )_x * v ( h2 p9 p4 p5 )_v @@ -13990,7 +13990,7 @@ C i1 ( h2 p9 h10 h11 )_vx + = 1/4 * Sum ( p4 p5 ) * x ( p4 p5 h10 h11 )_x * END SUBROUTINE ccsd_y_tr1_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vtx + = -1 * Sum ( h8 ) * x ( p9 h8 )_x * i2 ( h2 h8 h10 h11 )_vt @@ -14134,7 +14134,7 @@ C i1 ( h2 p9 h10 h11 )_vtx + = -1 * Sum ( h8 ) * x ( p9 h8 )_x * i2 ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 h11 p3 )_v @@ -14287,7 +14287,7 @@ C i2 ( h2 h8 h10 h11 )_vt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt @@ -14358,7 +14358,7 @@ C i2 ( h2 h8 h10 h11 )_vt RETURN END SUBROUTINE ccsd_y_tr1_9_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_v + = 1 * v ( h2 h8 h11 p3 )_v @@ -14467,7 +14467,7 @@ C i3 ( h2 h8 h11 p3 )_v + = 1 * v ( h2 h8 h11 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_5_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_v @@ -14537,7 +14537,7 @@ C i3 ( h2 h8 h11 p3 )_v END SUBROUTINE ccsd_y_tr1_9_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h2 h8 p3 p5 )_v @@ -14707,7 +14707,7 @@ C i3 ( h2 h8 h11 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vt + = 1/4 * Sum ( p3 p4 ) * t ( p3 p4 h10 h11 )_t * v ( h2 h8 p3 p4 )_v @@ -14879,7 +14879,7 @@ C i2 ( h2 h8 h10 h11 )_vt + = 1/4 * Sum ( p3 p4 ) * t ( p3 p4 h10 h11 )_t * END SUBROUTINE ccsd_y_tr1_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h8 ) * t ( p9 h8 )_t * i2 ( h2 h8 h10 h11 )_vx @@ -15023,7 +15023,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h8 ) * t ( p9 h8 )_t * i2 ( h2 h8 h END SUBROUTINE ccsd_y_tr1_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 h8 h10 p6 )_v @@ -15184,7 +15184,7 @@ C i2 ( h2 h8 h10 h11 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 h8 h RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx @@ -15256,7 +15256,7 @@ C i2 ( h2 h8 h10 h11 )_vx END SUBROUTINE ccsd_y_tr1_9_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h10 h11 )_x * v ( h2 h8 p5 p6 )_v @@ -15428,7 +15428,7 @@ C i2 ( h2 h8 h10 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h10 h11 )_x * END SUBROUTINE ccsd_y_tr1_9_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 h11 p3 )_vx @@ -15582,7 +15582,7 @@ C i2 ( h2 h8 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h2 h8 END SUBROUTINE ccsd_y_tr1_9_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h8 p3 p7 )_v @@ -15751,7 +15751,7 @@ C i3 ( h2 h8 h11 p3 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h11 p3 )_vx @@ -15823,7 +15823,7 @@ C i3 ( h2 h8 h11 p3 )_vx END SUBROUTINE ccsd_y_tr1_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i2 ( h2 p9 h11 p3 )_vx @@ -15979,7 +15979,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * i2 ( h2 p9 END SUBROUTINE ccsd_y_tr1_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h11 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 p9 p3 p6 )_v @@ -16132,7 +16132,7 @@ C i2 ( h2 p9 h11 p3 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h2 p9 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h11 p3 )_vx @@ -16204,7 +16204,7 @@ C i2 ( h2 p9 h11 p3 )_vx END SUBROUTINE ccsd_y_tr1_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1/2 * Sum ( p4 ) * t ( p4 p9 h10 h11 )_t * i2 ( h2 p4 )_vx @@ -16359,7 +16359,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1/2 * Sum ( p4 ) * t ( p4 p9 h10 h11 )_t * i2 END SUBROUTINE ccsd_y_tr1_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h2 h7 p4 p8 )_v @@ -16519,7 +16519,7 @@ C i2 ( h2 p4 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h2 h7 p4 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vx @@ -16575,7 +16575,7 @@ C i2 ( h2 p4 )_vx END SUBROUTINE ccsd_y_tr1_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h6 p4 ) * t ( p4 p9 h6 h10 )_t * i2 ( h2 h6 h11 p4 )_vx @@ -16764,7 +16764,7 @@ C i1 ( h2 p9 h10 h11 )_vxt + = 1 * Sum ( h6 p4 ) * t ( p4 p9 h6 h10 )_t * i2 END SUBROUTINE ccsd_y_tr1_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h11 p4 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h6 p4 p7 )_v @@ -16933,7 +16933,7 @@ C i2 ( h2 h6 h11 p4 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h2 h6 p4 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_9_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h11 p4 )_vx @@ -17005,7 +17005,7 @@ C i2 ( h2 h6 h11 p4 )_vx END SUBROUTINE ccsd_y_tr1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1 * Sum ( h5 h3 p4 ) * i1 ( h2 h5 h3 p4 )_yx * v ( h3 p4 h5 p1 )_v @@ -17150,7 +17150,7 @@ C i0 ( h2 p1 )_yxv + = -1 * Sum ( h5 h3 p4 ) * i1 ( h2 h5 h3 p4 )_yx * v ( h END SUBROUTINE ccsd_y_tr1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 h3 p4 )_yx + = 1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h2 h5 p4 p6 )_y @@ -17319,7 +17319,7 @@ C i1 ( h2 h5 h3 p4 )_yx + = 1 * Sum ( p6 ) * x ( p6 h3 )_x * y ( h2 h5 p4 p6 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h5 h3 p4 )_yx @@ -17391,7 +17391,7 @@ C i1 ( h2 h5 h3 p4 )_yx END SUBROUTINE ccsd_y_tr1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( p5 p3 p4 ) * i1 ( h2 p5 p3 p4 )_yx * v ( p3 p4 p1 p5 )_v @@ -17556,7 +17556,7 @@ C i0 ( h2 p1 )_yxv + = -1/2 * Sum ( p5 p3 p4 ) * i1 ( h2 p5 p3 p4 )_yx * v ( END SUBROUTINE ccsd_y_tr1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 p3 p4 )_yx + = -1 * Sum ( h6 ) * x ( p5 h6 )_x * y ( h2 h6 p3 p4 )_y @@ -17709,7 +17709,7 @@ C i1 ( h2 p5 p3 p4 )_yx + = -1 * Sum ( h6 ) * x ( p5 h6 )_x * y ( h2 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 p3 p4 )_yx @@ -17781,7 +17781,7 @@ C i1 ( h2 p5 p3 p4 )_yx END SUBROUTINE ccsd_y_tr1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1/2 * Sum ( p11 h12 h10 ) * i1 ( h2 p11 h10 h12 )_yx * v ( h10 h12 p1 p11 )_v @@ -17948,7 +17948,7 @@ C i0 ( h2 p1 )_yxv + = 1/2 * Sum ( p11 h12 h10 ) * i1 ( h2 p11 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yx + = -1 * Sum ( p6 ) * x ( p6 p11 h10 h12 )_x * y ( h2 p6 )_y @@ -18103,7 +18103,7 @@ C i1 ( h2 p11 h10 h12 )_yx + = -1 * Sum ( p6 ) * x ( p6 p11 h10 h12 )_x * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yx @@ -18175,7 +18175,7 @@ C i1 ( h2 p11 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 h10 h12 )_yx @@ -18319,7 +18319,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 END SUBROUTINE ccsd_y_tr1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h12 )_x * y ( h2 h4 p7 p8 )_y @@ -18490,7 +18490,7 @@ C i2 ( h2 h4 h10 h12 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h12 )_x * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yx @@ -18562,7 +18562,7 @@ C i2 ( h2 h4 h10 h12 )_yx END SUBROUTINE ccsd_y_tr1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h4 h10 p5 )_yx @@ -18716,7 +18716,7 @@ C i2 ( h2 h4 h10 h12 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h4 END SUBROUTINE ccsd_y_tr1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p5 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h4 p5 p8 )_y @@ -18885,7 +18885,7 @@ C i3 ( h2 h4 h10 p5 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h4 p5 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p5 )_yx @@ -18957,7 +18957,7 @@ C i3 ( h2 h4 h10 p5 )_yx END SUBROUTINE ccsd_y_tr1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p11 h8 h10 )_x * i2 ( h2 h8 h12 p7 )_yt @@ -19146,7 +19146,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p11 h8 h10 )_x * END SUBROUTINE ccsd_y_tr1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h2 h8 p3 p7 )_y @@ -19315,7 +19315,7 @@ C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt @@ -19387,7 +19387,7 @@ C i2 ( h2 h8 h12 p7 )_yt END SUBROUTINE ccsd_y_tr1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = -1 * t ( p11 h12 )_t * i2 ( h2 h10 )_yx @@ -19533,7 +19533,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = -1 * t ( p11 h12 )_t * i2 ( h2 h10 )_yx END SUBROUTINE ccsd_y_tr1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h2 h8 p6 p7 )_y @@ -19708,7 +19708,7 @@ C i2 ( h2 h10 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 )_yx @@ -19764,7 +19764,7 @@ C i2 ( h2 h10 )_yx END SUBROUTINE ccsd_y_tr1_12_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 1 * x ( p11 h10 )_x * i2 ( h2 h12 )_yt @@ -19910,7 +19910,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 1 * x ( p11 h10 )_x * i2 ( h2 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -20085,7 +20085,7 @@ C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -20141,7 +20141,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_yxt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * i2 ( h2 h5 h10 p3 )_yx @@ -20330,7 +20330,7 @@ C i1 ( h2 p11 h10 h12 )_yxt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * END SUBROUTINE ccsd_y_tr1_12_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h10 p3 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h5 p3 p8 )_y @@ -20499,7 +20499,7 @@ C i2 ( h2 h5 h10 p3 )_yx + = 1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h2 h5 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h10 p3 )_yx @@ -20571,7 +20571,7 @@ C i2 ( h2 h5 h10 p3 )_yx END SUBROUTINE ccsd_y_tr1_12_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 h12 )_ytx + = 1/2 * Sum ( h8 ) * x ( p11 h8 )_x * i2 ( h2 h8 h10 h12 )_yt @@ -20715,7 +20715,7 @@ C i1 ( h2 p11 h10 h12 )_ytx + = 1/2 * Sum ( h8 ) * x ( p11 h8 )_x * i2 ( h2 END SUBROUTINE ccsd_y_tr1_12_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * y ( h2 h8 p3 p4 )_y @@ -20886,7 +20886,7 @@ C i2 ( h2 h8 h10 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * y RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_yt @@ -20958,7 +20958,7 @@ C i2 ( h2 h8 h10 h12 )_yt END SUBROUTINE ccsd_y_tr1_12_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h10 h12 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h8 h10 p3 )_yt @@ -21112,7 +21112,7 @@ C i2 ( h2 h8 h10 h12 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h8 END SUBROUTINE ccsd_y_tr1_12_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h10 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h8 p3 p5 )_y @@ -21281,7 +21281,7 @@ C i3 ( h2 h8 h10 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_12_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h10 p3 )_yt @@ -21353,7 +21353,7 @@ C i3 ( h2 h8 h10 p3 )_yt END SUBROUTINE ccsd_y_tr1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = 1/4 * Sum ( h4 h8 h9 ) * i1 ( h2 h4 h8 h9 )_yx * v ( h8 h9 h4 p1 )_v @@ -21510,7 +21510,7 @@ C i0 ( h2 p1 )_yxv + = 1/4 * Sum ( h4 h8 h9 ) * i1 ( h2 h4 h8 h9 )_yx * v ( END SUBROUTINE ccsd_y_tr1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h2 h4 p6 p7 )_y @@ -21681,7 +21681,7 @@ C i1 ( h2 h4 h8 h9 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yx @@ -21753,7 +21753,7 @@ C i1 ( h2 h4 h8 h9 )_yx END SUBROUTINE ccsd_y_tr1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h4 h8 h9 )_yxt + = -4 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h4 h9 p3 )_yx @@ -21907,7 +21907,7 @@ C i1 ( h2 h4 h8 h9 )_yxt + = -4 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h4 h9 END SUBROUTINE ccsd_y_tr1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p3 )_yx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * y ( h2 h4 p3 p7 )_y @@ -22076,7 +22076,7 @@ C i2 ( h2 h4 h9 p3 )_yx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * y ( h2 h4 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p3 )_yx @@ -22148,7 +22148,7 @@ C i2 ( h2 h4 h9 p3 )_yx END SUBROUTINE ccsd_y_tr1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxv + = -1 * Sum ( p5 h11 p8 ) * i1 ( h2 p5 h11 p8 )_yx * v ( h11 p8 p1 p5 )_v @@ -22301,7 +22301,7 @@ C i0 ( h2 p1 )_yxv + = -1 * Sum ( p5 h11 p8 ) * i1 ( h2 p5 h11 p8 )_yx * v ( END SUBROUTINE ccsd_y_tr1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yx + = 1 * Sum ( h7 p6 ) * x ( p5 p6 h7 h11 )_x * y ( h2 h7 p6 p8 )_y @@ -22503,7 +22503,7 @@ C i1 ( h2 p5 h11 p8 )_yx + = 1 * Sum ( h7 p6 ) * x ( p5 p6 h7 h11 )_x * y ( RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yx @@ -22575,7 +22575,7 @@ C i1 ( h2 p5 h11 p8 )_yx END SUBROUTINE ccsd_y_tr1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_yxt + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h2 h4 h11 p8 )_yx @@ -22719,7 +22719,7 @@ C i1 ( h2 p5 h11 p8 )_yxt + = -1 * Sum ( h4 ) * t ( p5 h4 )_t * i2 ( h2 h4 h END SUBROUTINE ccsd_y_tr1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h11 p8 )_yx + = -1 * Sum ( p7 ) * x ( p7 h11 )_x * y ( h2 h4 p7 p8 )_y @@ -22888,7 +22888,7 @@ C i2 ( h2 h4 h11 p8 )_yx + = -1 * Sum ( p7 ) * x ( p7 h11 )_x * y ( h2 h4 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h11 p8 )_yx @@ -22960,7 +22960,7 @@ C i2 ( h2 h4 h11 p8 )_yx END SUBROUTINE ccsd_y_tr1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p5 h11 p8 )_ytx + = 1 * Sum ( h7 ) * x ( p5 h7 )_x * i2 ( h2 h7 h11 p8 )_yt @@ -23104,7 +23104,7 @@ C i1 ( h2 p5 h11 p8 )_ytx + = 1 * Sum ( h7 ) * x ( p5 h7 )_x * i2 ( h2 h7 h1 END SUBROUTINE ccsd_y_tr1_14_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h7 p3 p8 )_y @@ -23273,7 +23273,7 @@ C i2 ( h2 h7 h11 p8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h7 p3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr1_14_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 p8 )_yt diff --git a/src/tce/ccsd_yr/ccsd_y_tr2.F b/src/tce/ccsd_yr/ccsd_y_tr2.F index 7e8e599ee6..16da710fed 100644 --- a/src/tce/ccsd_yr/ccsd_y_tr2.F +++ b/src/tce/ccsd_yr/ccsd_y_tr2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_y_tr2(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,d_y1,d_y2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offse &t,k_y1_offset,k_y2_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -326,7 +326,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( END SUBROUTINE ccsd_y_tr2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -477,7 +477,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( END SUBROUTINE ccsd_y_tr2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p5 )_v @@ -630,7 +630,7 @@ C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx @@ -702,7 +702,7 @@ C i1 ( h3 h4 h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h5 )_yx * v ( h4 h5 p1 p2 )_v @@ -863,7 +863,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h5 )_yx * v ( END SUBROUTINE ccsd_y_tr2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx + = 1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 p6 )_y @@ -990,7 +990,7 @@ C i1 ( h3 h5 )_yx + = 1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 p6 )_y RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx @@ -1046,7 +1046,7 @@ C i1 ( h3 h5 )_yx END SUBROUTINE ccsd_y_tr2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h5 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 h8 p6 p7 )_y @@ -1222,7 +1222,7 @@ C i1 ( h3 h5 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 END SUBROUTINE ccsd_y_tr2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx @@ -1381,7 +1381,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx END SUBROUTINE ccsd_y_tr2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_v @@ -1541,7 +1541,7 @@ C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx @@ -1597,7 +1597,7 @@ C i1 ( h3 p1 )_vx END SUBROUTINE ccsd_y_tr2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_fx @@ -1759,7 +1759,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y END SUBROUTINE ccsd_y_tr2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f @@ -1886,7 +1886,7 @@ C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx @@ -1941,7 +1941,7 @@ C i1 ( h3 h9 )_fx RETURN END SUBROUTINE ccsd_y_tr2_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f @@ -2025,7 +2025,7 @@ C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f @@ -2081,7 +2081,7 @@ C i2 ( h3 p8 )_f END SUBROUTINE ccsd_y_tr2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 )_v @@ -2242,7 +2242,7 @@ C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 ) END SUBROUTINE ccsd_y_tr2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_v @@ -2387,7 +2387,7 @@ C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_ END SUBROUTINE ccsd_y_tr2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 h5 p6 p7 )_v @@ -2563,7 +2563,7 @@ C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 END SUBROUTINE ccsd_y_tr2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx @@ -2691,7 +2691,7 @@ C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx END SUBROUTINE ccsd_y_tr2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_v @@ -2851,7 +2851,7 @@ C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_4_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx @@ -2907,7 +2907,7 @@ C i2 ( h3 p5 )_vx END SUBROUTINE ccsd_y_tr2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yx * f ( h5 p2 )_f @@ -3060,7 +3060,7 @@ C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p6 )_y @@ -3213,7 +3213,7 @@ C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx @@ -3285,7 +3285,7 @@ C i1 ( h3 h4 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 ( h3 h4 h9 h11 )_vx @@ -3445,7 +3445,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 END SUBROUTINE ccsd_y_tr2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 p6 )_v @@ -3598,7 +3598,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx @@ -3670,7 +3670,7 @@ C i1 ( h3 h4 h9 h11 )_vx END SUBROUTINE ccsd_y_tr2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v ( h3 h4 p5 p6 )_v @@ -3832,7 +3832,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v END SUBROUTINE ccsd_y_tr2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h9 p5 )_vx @@ -3986,7 +3986,7 @@ C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE ccsd_y_tr2_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p7 )_v @@ -4139,7 +4139,7 @@ C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_6_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx @@ -4211,7 +4211,7 @@ C i2 ( h3 h4 h9 p5 )_vx END SUBROUTINE ccsd_y_tr2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( h6 h5 ) * i1 ( h3 h6 h5 p1 )_yx * v ( h4 h5 h6 p2 )_v @@ -4396,7 +4396,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( h6 h5 ) * i1 ( h3 h6 h5 p1 ) END SUBROUTINE ccsd_y_tr2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h6 h5 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h6 p1 p7 )_y @@ -4565,7 +4565,7 @@ C i1 ( h3 h6 h5 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h6 h5 p1 )_yx @@ -4637,7 +4637,7 @@ C i1 ( h3 h6 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p8 h11 ) * y ( h3 h11 p1 p8 )_y * i1 ( h4 p8 h11 p2 )_vx @@ -4837,7 +4837,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p8 h11 ) * y ( h3 h11 p1 p8 END SUBROUTINE ccsd_y_tr2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h3 p8 p1 p6 )_v @@ -4990,7 +4990,7 @@ C i1 ( h3 p8 h11 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h11 )_x * v ( h3 p8 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vx @@ -5062,7 +5062,7 @@ C i1 ( h3 p8 h11 p1 )_vx END SUBROUTINE ccsd_y_tr2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p8 h7 )_x * i2 ( h3 h7 h11 p1 )_vt @@ -5206,7 +5206,7 @@ C i1 ( h3 p8 h11 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p8 h7 )_x * i2 ( h3 h7 h1 END SUBROUTINE ccsd_y_tr2_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h11 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h3 h7 p1 p5 )_v @@ -5375,7 +5375,7 @@ C i2 ( h3 h7 h11 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * v ( h3 h7 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h11 p1 )_vt @@ -5447,7 +5447,7 @@ C i2 ( h3 h7 h11 p1 )_vt END SUBROUTINE ccsd_y_tr2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p8 h11 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p8 h6 )_t * i2 ( h3 h6 h11 p1 )_vx @@ -5591,7 +5591,7 @@ C i1 ( h3 p8 h11 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p8 h6 )_t * i2 ( h3 h6 h1 END SUBROUTINE ccsd_y_tr2_8_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h11 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h3 h6 p1 p7 )_v @@ -5760,7 +5760,7 @@ C i2 ( h3 h6 h11 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h11 )_x * v ( h3 h6 p1 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h11 p1 )_vx @@ -5832,7 +5832,7 @@ C i2 ( h3 h6 h11 p1 )_vx END SUBROUTINE ccsd_y_tr2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = -1 * Sum ( h5 p6 ) * i1 ( h3 h4 h5 p6 )_yx * v ( h5 p6 p1 p2 )_v @@ -5981,7 +5981,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = -1 * Sum ( h5 p6 ) * i1 ( h3 h4 h5 p6 )_yx * v END SUBROUTINE ccsd_y_tr2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p6 )_yx + = -1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h4 p6 p7 )_y @@ -6134,7 +6134,7 @@ C i1 ( h3 h4 h5 p6 )_yx + = -1 * Sum ( p7 ) * x ( p7 h5 )_x * y ( h3 h4 p6 p RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p6 )_yx @@ -6206,7 +6206,7 @@ C i1 ( h3 h4 h5 p6 )_yx END SUBROUTINE ccsd_y_tr2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * i1 ( p9 p2 )_vx @@ -6369,7 +6369,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * END SUBROUTINE ccsd_y_tr2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 )_v @@ -6513,7 +6513,7 @@ C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 ) RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx @@ -6569,7 +6569,7 @@ C i1 ( p9 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 h6 p1 p7 )_v @@ -6745,7 +6745,7 @@ C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 END SUBROUTINE ccsd_y_tr2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx @@ -6873,7 +6873,7 @@ C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_v @@ -7033,7 +7033,7 @@ C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx @@ -7089,7 +7089,7 @@ C i2 ( h6 p1 )_vx END SUBROUTINE ccsd_y_tr2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt @@ -7217,7 +7217,7 @@ C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt END SUBROUTINE ccsd_y_tr2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_v @@ -7377,7 +7377,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_ RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt @@ -7433,7 +7433,7 @@ C i2 ( h7 p1 )_vt END SUBROUTINE ccsd_y_tr2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1/2 * P( 2 ) * Sum ( p5 ) * i1 ( p5 p1 )_yx * v ( h3 h4 p2 p5 )_v @@ -7595,7 +7595,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1/2 * P( 2 ) * Sum ( p5 ) * i1 ( p5 p1 )_yx * v END SUBROUTINE ccsd_y_tr2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p1 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p1 p6 )_y @@ -7770,7 +7770,7 @@ C i1 ( p5 p1 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p1 )_yx @@ -7826,7 +7826,7 @@ C i1 ( p5 p1 )_yx END SUBROUTINE ccsd_y_tr2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( p6 h5 ) * i1 ( h3 p6 h5 p1 )_yx * v ( h4 h5 p2 p6 )_v @@ -8028,7 +8028,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * P( 4 ) * Sum ( p6 h5 ) * i1 ( h3 p6 h5 p1 ) END SUBROUTINE ccsd_y_tr2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 h5 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 h8 p1 p7 )_y @@ -8230,7 +8230,7 @@ C i1 ( h3 p6 h5 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p6 p7 h5 h8 )_x * y ( h3 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 h5 p1 )_yx @@ -8302,7 +8302,7 @@ C i1 ( h3 p6 h5 p1 )_yx END SUBROUTINE ccsd_y_tr2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1/4 * Sum ( h9 h10 ) * i1 ( h3 h4 h9 h10 )_yx * v ( h9 h10 p1 p2 )_v @@ -8464,7 +8464,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1/4 * Sum ( h9 h10 ) * i1 ( h3 h4 h9 h10 )_yx * END SUBROUTINE ccsd_y_tr2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h9 h10 )_x * y ( h3 h4 p7 p8 )_y @@ -8625,7 +8625,7 @@ C i1 ( h3 h4 h9 h10 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h9 h10 )_x * y ( RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yx @@ -8697,7 +8697,7 @@ C i1 ( h3 h4 h9 h10 )_yx END SUBROUTINE ccsd_y_tr2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_yx @@ -8851,7 +8851,7 @@ C i1 ( h3 h4 h9 h10 )_yxt + = -4 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h END SUBROUTINE ccsd_y_tr2_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 p8 )_y @@ -9004,7 +9004,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_ccsd_y_tr2_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_y_tr2.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx diff --git a/src/tce/ccsd_yr/ccsd_yr1.F b/src/tce/ccsd_yr/ccsd_yr1.F index 0196bbe3a2..29ce0b0e2a 100644 --- a/src/tce/ccsd_yr/ccsd_yr1.F +++ b/src/tce/ccsd_yr/ccsd_yr1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_yr1(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offset &,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y2_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -526,7 +526,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 END SUBROUTINE ccsd_yr1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -650,7 +650,7 @@ C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f RETURN END SUBROUTINE ccsd_yr1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -732,7 +732,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -788,7 +788,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE ccsd_yr1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -912,7 +912,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE ccsd_yr1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -996,7 +996,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1052,7 +1052,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE ccsd_yr1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1213,7 +1213,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE ccsd_yr1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1355,7 +1355,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE ccsd_yr1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1528,7 +1528,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE ccsd_yr1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f @@ -1652,7 +1652,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f RETURN END SUBROUTINE ccsd_yr1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1734,7 +1734,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -1790,7 +1790,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE ccsd_yr1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -1932,7 +1932,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE ccsd_yr1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2057,7 +2057,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE ccsd_yr1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2217,7 +2217,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_ccsd_yr1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2273,7 +2273,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE ccsd_yr1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v @@ -2407,7 +2407,7 @@ C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 ) END SUBROUTINE ccsd_yr1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h11 )_f @@ -2565,7 +2565,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h1 RETURN END SUBROUTINE ccsd_yr1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2647,7 +2647,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2703,7 +2703,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE ccsd_yr1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -2827,7 +2827,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE ccsd_yr1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -2911,7 +2911,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -2967,7 +2967,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE ccsd_yr1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3094,7 +3094,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE ccsd_yr1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3178,7 +3178,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3234,7 +3234,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE ccsd_yr1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3395,7 +3395,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE ccsd_yr1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3540,7 +3540,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE ccsd_yr1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3716,7 +3716,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE ccsd_yr1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -3840,7 +3840,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE ccsd_yr1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -3924,7 +3924,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -3980,7 +3980,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE ccsd_yr1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4125,7 +4125,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE ccsd_yr1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4259,7 +4259,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE ccsd_yr1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4417,7 +4417,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE ccsd_yr1_4_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4501,7 +4501,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4557,7 +4557,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE ccsd_yr1_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4718,7 +4718,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE ccsd_yr1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -4882,7 +4882,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE ccsd_yr1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -4981,7 +4981,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5051,7 +5051,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE ccsd_yr1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5205,7 +5205,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE ccsd_yr1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5370,7 +5370,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE ccsd_yr1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h11 h12 p9 ) * y ( h11 h12 p1 p9 )_y * i1 ( h2 p9 h11 h12 )_v @@ -5532,7 +5532,7 @@ C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h11 h12 p9 ) * y ( h11 h12 p1 p9 )_y * i1 RETURN END SUBROUTINE ccsd_yr1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v @@ -5631,7 +5631,7 @@ C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v @@ -5701,7 +5701,7 @@ C i1 ( h2 p9 h11 h12 )_v END SUBROUTINE ccsd_yr1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h11 h12 )_v @@ -5841,7 +5841,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h RETURN END SUBROUTINE ccsd_yr1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v @@ -5949,7 +5949,7 @@ C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v @@ -6019,7 +6019,7 @@ C i2 ( h2 h7 h11 h12 )_v END SUBROUTINE ccsd_yr1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_v @@ -6172,7 +6172,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 RETURN END SUBROUTINE ccsd_yr1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v @@ -6281,7 +6281,7 @@ C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v @@ -6351,7 +6351,7 @@ C i3 ( h2 h7 h12 p3 )_v END SUBROUTINE ccsd_yr1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 p3 p5 )_v @@ -6521,7 +6521,7 @@ C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 END SUBROUTINE ccsd_yr1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -6693,7 +6693,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE ccsd_yr1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 h12 p3 )_v @@ -6845,7 +6845,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 RETURN END SUBROUTINE ccsd_yr1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v @@ -6946,7 +6946,7 @@ C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v @@ -7016,7 +7016,7 @@ C i2 ( h2 p9 h12 p3 )_v END SUBROUTINE ccsd_yr1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 p3 p5 )_v @@ -7170,7 +7170,7 @@ C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 END SUBROUTINE ccsd_yr1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( h2 p5 )_f @@ -7321,7 +7321,7 @@ C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( RETURN END SUBROUTINE ccsd_yr1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -7405,7 +7405,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -7461,7 +7461,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE ccsd_yr1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -7622,7 +7622,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE ccsd_yr1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 ( h2 h6 h12 p4 )_v @@ -7807,7 +7807,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 RETURN END SUBROUTINE ccsd_yr1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v @@ -7916,7 +7916,7 @@ C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v @@ -7986,7 +7986,7 @@ C i2 ( h2 h6 h12 p4 )_v END SUBROUTINE ccsd_yr1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 p7 )_v @@ -8156,7 +8156,7 @@ C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 END SUBROUTINE ccsd_yr1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8318,7 +8318,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE ccsd_yr1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p8 p5 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v @@ -8480,7 +8480,7 @@ C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p8 p5 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 RETURN END SUBROUTINE ccsd_yr1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8579,7 +8579,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr1_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8649,7 +8649,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE ccsd_yr1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -8800,7 +8800,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE ccsd_yr1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f @@ -8925,7 +8925,7 @@ C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f END SUBROUTINE ccsd_yr1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -9049,7 +9049,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -9105,7 +9105,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE ccsd_yr1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -9278,7 +9278,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE ccsd_yr1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 )_v @@ -9420,7 +9420,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 END SUBROUTINE ccsd_yr1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y @@ -9544,7 +9544,7 @@ C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt @@ -9600,7 +9600,7 @@ C i1 ( h6 h8 )_yt END SUBROUTINE ccsd_yr1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h6 p3 p4 )_y @@ -9773,7 +9773,7 @@ C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h8 )_t * y ( h5 END SUBROUTINE ccsd_yr1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 )_v @@ -9915,7 +9915,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 END SUBROUTINE ccsd_yr1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y @@ -10039,7 +10039,7 @@ C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt @@ -10095,7 +10095,7 @@ C i1 ( p7 p8 )_yt END SUBROUTINE ccsd_yr1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 h6 p3 p8 )_y @@ -10268,7 +10268,7 @@ C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 END SUBROUTINE ccsd_yr1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 p5 h6 p1 )_v @@ -10412,7 +10412,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 END SUBROUTINE ccsd_yr1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 )_y @@ -10579,7 +10579,7 @@ C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt @@ -10651,7 +10651,7 @@ C i1 ( h2 h6 h4 p5 )_yt END SUBROUTINE ccsd_yr1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 p10 )_v @@ -10809,7 +10809,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 END SUBROUTINE ccsd_yr1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 )_y @@ -10968,7 +10968,7 @@ C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt @@ -11024,7 +11024,7 @@ C i1 ( p10 h9 )_yt END SUBROUTINE ccsd_yr1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt @@ -11150,7 +11150,7 @@ C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt END SUBROUTINE ccsd_yr1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y @@ -11277,7 +11277,7 @@ C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt @@ -11333,7 +11333,7 @@ C i2 ( h6 h9 )_yt END SUBROUTINE ccsd_yr1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -11509,7 +11509,7 @@ C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * y ( h5 END SUBROUTINE ccsd_yr1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( h5 h6 h9 p3 )_yt @@ -11675,7 +11675,7 @@ C i1 ( p10 h9 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( END SUBROUTINE ccsd_yr1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 )_y @@ -11828,7 +11828,7 @@ C i2 ( h5 h6 h9 p3 )_yt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_ccsd_yr1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt @@ -11900,7 +11900,7 @@ C i2 ( h5 h6 h9 p3 )_yt END SUBROUTINE ccsd_yr1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v ( h6 h12 p1 p9 )_v @@ -12064,7 +12064,7 @@ C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v END SUBROUTINE ccsd_yr1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 p3 )_y @@ -12216,7 +12216,7 @@ C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt @@ -12288,7 +12288,7 @@ C i1 ( h2 p9 h6 h12 )_yt END SUBROUTINE ccsd_yr1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h6 h12 )_yt @@ -12430,7 +12430,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h END SUBROUTINE ccsd_yr1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h12 )_t * y ( h2 h10 p3 p4 )_y @@ -12601,7 +12601,7 @@ C i2 ( h2 h10 h6 h12 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h12 )_t * y ( RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt @@ -12673,7 +12673,7 @@ C i2 ( h2 h10 h6 h12 )_yt END SUBROUTINE ccsd_yr1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h6 p5 )_yt @@ -12827,7 +12827,7 @@ C i2 ( h2 h10 h6 h12 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h1 END SUBROUTINE ccsd_yr1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 p7 )_y @@ -12996,7 +12996,7 @@ C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt @@ -13068,7 +13068,7 @@ C i3 ( h2 h10 h6 p5 )_yt END SUBROUTINE ccsd_yr1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 ( h2 h5 h6 p3 )_yt @@ -13255,7 +13255,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 END SUBROUTINE ccsd_yr1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -13424,7 +13424,7 @@ C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt @@ -13496,7 +13496,7 @@ C i2 ( h2 h5 h6 p3 )_yt END SUBROUTINE ccsd_yr1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt @@ -13640,7 +13640,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt END SUBROUTINE ccsd_yr1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -13815,7 +13815,7 @@ C i2 ( h2 h12 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -13871,7 +13871,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE ccsd_yr1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( h6 h8 h7 p1 )_v @@ -14027,7 +14027,7 @@ C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( END SUBROUTINE ccsd_yr1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h8 )_t * y ( h2 h7 p3 p4 )_y @@ -14196,7 +14196,7 @@ C i1 ( h2 h7 h6 h8 )_yt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h6 h8 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt @@ -14268,7 +14268,7 @@ C i1 ( h2 h7 h6 h8 )_yt END SUBROUTINE ccsd_yr1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 p3 )_yt @@ -14420,7 +14420,7 @@ C i1 ( h2 h7 h6 h8 )_ytt + = -2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 END SUBROUTINE ccsd_yr1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 )_y @@ -14589,7 +14589,7 @@ C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt @@ -14661,7 +14661,7 @@ C i2 ( h2 h7 h6 p3 )_yt END SUBROUTINE ccsd_yr1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 p7 p1 p8 )_v @@ -14813,7 +14813,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 END SUBROUTINE ccsd_yr1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -15013,7 +15013,7 @@ C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_ccsd_yr1_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt @@ -15085,7 +15085,7 @@ C i1 ( h2 p8 h6 p7 )_yt END SUBROUTINE ccsd_yr1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 p7 )_yt @@ -15227,7 +15227,7 @@ C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 END SUBROUTINE ccsd_yr1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 )_y @@ -15396,7 +15396,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr1.F,v 1.1 2007-09-13 03:15:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt diff --git a/src/tce/ccsd_yr/ccsd_yr2.F b/src/tce/ccsd_yr/ccsd_yr2.F index 8e731487be..2bde63b989 100644 --- a/src/tce/ccsd_yr/ccsd_yr2.F +++ b/src/tce/ccsd_yr/ccsd_yr2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsd_yr2(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offset &,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y2_ &offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -302,7 +302,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 END SUBROUTINE ccsd_yr2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -460,7 +460,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f RETURN END SUBROUTINE ccsd_yr2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -542,7 +542,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -598,7 +598,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE ccsd_yr2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -756,7 +756,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE ccsd_yr2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v @@ -906,7 +906,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( RETURN END SUBROUTINE ccsd_yr2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1005,7 +1005,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1075,7 +1075,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE ccsd_yr2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1226,7 +1226,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE ccsd_yr2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v @@ -1379,7 +1379,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h END SUBROUTINE ccsd_yr2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f @@ -1540,7 +1540,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * RETURN END SUBROUTINE ccsd_yr2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -1622,7 +1622,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -1678,7 +1678,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE ccsd_yr2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -1802,7 +1802,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE ccsd_yr2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -1886,7 +1886,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -1942,7 +1942,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE ccsd_yr2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2103,7 +2103,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE ccsd_yr2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2245,7 +2245,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE ccsd_yr2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -2418,7 +2418,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE ccsd_yr2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f @@ -2579,7 +2579,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y RETURN END SUBROUTINE ccsd_yr2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -2661,7 +2661,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_ccsd_yr2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -2718,7 +2718,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE ccsd_yr2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -2860,7 +2860,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE ccsd_yr2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3033,7 +3033,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE ccsd_yr2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3158,7 +3158,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE ccsd_yr2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -3318,7 +3318,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_ccsd_yr2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -3374,7 +3374,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE ccsd_yr2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h9 h10 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v @@ -3533,7 +3533,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h9 h10 ) * y ( h9 h10 p1 p2 )_y * i1 RETURN END SUBROUTINE ccsd_yr2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -3629,7 +3629,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -3699,7 +3699,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE ccsd_yr2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -3849,7 +3849,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE ccsd_yr2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -3948,7 +3948,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4018,7 +4018,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE ccsd_yr2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4172,7 +4172,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE ccsd_yr2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -4331,7 +4331,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE ccsd_yr2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v @@ -4530,7 +4530,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE ccsd_yr2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -4629,7 +4629,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_ccsd_yr2_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -4699,7 +4699,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE ccsd_yr2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -4850,7 +4850,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE ccsd_yr2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5050,7 +5050,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE ccsd_yr2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p5 p6 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v @@ -5210,7 +5210,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p5 p6 ) * y ( h3 h4 p5 p6 )_y * v ( END SUBROUTINE ccsd_yr2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( h4 h9 p1 p2 )_v @@ -5371,7 +5371,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( END SUBROUTINE ccsd_yr2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y @@ -5495,7 +5495,7 @@ C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y RETURN END SUBROUTINE OFFSET_ccsd_yr2_9_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt @@ -5551,7 +5551,7 @@ C i1 ( h3 h9 )_yt END SUBROUTINE ccsd_yr2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h9 )_t * y ( h3 h7 p5 p6 )_y @@ -5724,7 +5724,7 @@ C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h9 )_t * y ( h3 END SUBROUTINE ccsd_yr2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f @@ -5877,7 +5877,7 @@ C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE ccsd_yr2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -6028,7 +6028,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt @@ -6100,7 +6100,7 @@ C i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE ccsd_yr2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 )_yt * v ( h4 h6 h7 p2 )_v @@ -6285,7 +6285,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 ) END SUBROUTINE ccsd_yr2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 )_y @@ -6452,7 +6452,7 @@ C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_ccsd_yr2_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt @@ -6524,7 +6524,7 @@ C i1 ( h3 h7 h6 p1 )_yt END SUBROUTINE ccsd_yr2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( h6 p7 p1 p2 )_v @@ -6673,7 +6673,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( END SUBROUTINE ccsd_yr2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p7 )_y @@ -6824,7 +6824,7 @@ C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt @@ -6896,7 +6896,7 @@ C i1 ( h3 h4 h6 p7 )_yt END SUBROUTINE ccsd_yr2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v ( h3 h4 p2 p6 )_v @@ -7057,7 +7057,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v END SUBROUTINE ccsd_yr2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p1 p5 )_y @@ -7230,7 +7230,7 @@ C i1 ( p6 p1 )_yt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h RETURN END SUBROUTINE OFFSET_ccsd_yr2_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt @@ -7286,7 +7286,7 @@ C i1 ( p6 p1 )_yt END SUBROUTINE ccsd_yr2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v ( h8 h9 p1 p2 )_v @@ -7447,7 +7447,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * END SUBROUTINE ccsd_yr2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h8 h9 )_t * y ( h3 h4 p5 p6 )_y @@ -7606,7 +7606,7 @@ C i1 ( h3 h4 h8 h9 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h8 h9 )_t * y ( h RETURN END SUBROUTINE OFFSET_ccsd_yr2_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt @@ -7678,7 +7678,7 @@ C i1 ( h3 h4 h8 h9 )_yt END SUBROUTINE ccsd_yr2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 p5 )_yt @@ -7830,7 +7830,7 @@ C i1 ( h3 h4 h8 h9 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 END SUBROUTINE ccsd_yr2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p7 )_y @@ -7983,7 +7983,7 @@ C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_ccsd_yr2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt @@ -8055,7 +8055,7 @@ C i2 ( h3 h4 h8 p5 )_yt END SUBROUTINE ccsd_yr2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 )_ytt * v ( h4 h8 p2 p5 )_v @@ -8256,7 +8256,7 @@ C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 END SUBROUTINE ccsd_yr2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 p1 )_yt @@ -8397,7 +8397,7 @@ C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 RETURN END SUBROUTINE OFFSET_ccsd_yr2_15_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt @@ -8469,7 +8469,7 @@ C i1 ( h3 p5 h8 p1 )_ytt END SUBROUTINE ccsd_yr2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 )_y @@ -8638,7 +8638,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_ccsd_yr2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_yr2.F,v 1.1 2007-09-13 03:15:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt diff --git a/src/tce/ccsdt_beta/GNUmakefile b/src/tce/ccsdt_beta/GNUmakefile index 119e4bd880..659a5b4bcb 100644 --- a/src/tce/ccsdt_beta/GNUmakefile +++ b/src/tce/ccsdt_beta/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-09-17 04:39:03 jhammond Exp $ +#$Id$ ifndef CCSDTLR diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F index eab1b5dbe9..657bfaae94 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_1_1.F,v 1.1 2008-09-17 04:39:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F index 3a4fde1055..725e6a7af5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_2_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_otr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F index bdfdfaace2..eeb512b33b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_3_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F index 7de7c20a17..8d9a709163 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_3_1.F,v 1.1 2008-09-17 04:39:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F index 87a113aa5e..66c05b9775 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_4_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F index 434eb19ad3..7624efaf29 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_5_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F index 803ee13297..b83dda247a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_6_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F index a066cd117f..ed34ed114a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_7_1.F,v 1.1 2008-09-17 04:39:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F index 3d37528a46..baadb224bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_3_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_3_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_1_3_8_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F index dc06c1bec1..07acdbc4fc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_1_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_1_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_1_4_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F index 0092128862..ca36c402c5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_1_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F index e0ee870f97..811627bc1a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_1_1.F,v 1.1 2008-09-17 04:39:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F index 5fcd04304f..5c63f03562 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_2_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F index 946e863bf2..23dee173d1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_3_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F index 6d6832cb5b..78e3da13e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_4_1.F,v 1.1 2008-09-17 04:39:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F index 5da9b3e1b9..7453059d20 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_5_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F index ab9e948e4e..b7748ecced 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_1_6_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F index cafed0f10a..b5dd3e9b99 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F index d7c3ecca00..c57afaf39b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F index 79ddcf01e5..0c79b46aa8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_3_1.F,v 1.1 2008-09-17 04:39:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F index f3685f15c3..0a1b40d078 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_1_4_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F index b8cae1648a..e54b117469 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_2_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F index 7b6f4dd7fb..c1deadcabb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_3_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F index 5a101e0c18..6e7f06336b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_1.F,v 1.1 2008-09-17 04:39:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F index 513e924772..691643e7c1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_3_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F index 50ea42efd1..c056d96369 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_4_4_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F index 7546ac14a6..280e9b729e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_5_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F index 8d89a599b5..035ad09392 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_6_1.F,v 1.1 2008-09-17 04:39:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F index c2bdfb13c5..317179a9bd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_7_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F index 8990802be8..07ad4e15fc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_8_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F index 8f9667b0d0..ad97a79f3f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F index 2bc6117769..2401985270 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_1_1.F,v 1.1 2008-09-17 04:39:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F index 6bfe40e45c..fecd3bb3bc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_2_9_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_2_9_2_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F index 150dd364c7..cc5b486346 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_3_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F index 70c044d354..51983a89d9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_1_1.F,v 1.1 2008-09-17 04:39:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F index 59f2f57fcd..f1cbefb1f3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_2_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F index 09403967fa..af70376638 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_3_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F index e55ad76dc3..1a39e1c46d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_3_4_1.F,v 1.1 2008-09-17 04:39:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F index 08eeb2ffeb..6bee9d15db 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_4_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F index 94b8bb242d..70977fcc6d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_1_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F index c8f02faa68..271081a2e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_2_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F index 57aa1cfd3e..e02f85124f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_3_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F index fba07cccc4..79034894dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_4_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_4_4_1.F,v 1.1 2008-09-17 04:39:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F index 23e80f9432..75b4e2b4b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_5_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F index 2db3a431e1..0d4135e1dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F index 895d60008d..296196ef08 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_2_1.F,v 1.1 2008-09-17 04:39:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F index 3109cb29d8..380fdd203c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_3_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F index b099842cdc..0659f3fdcf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_4_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F index a81cae7525..34a8318201 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_5_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F index 99e38251b5..df14229b83 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_6_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F index 0f24ca2106..48e9998c35 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_10_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_10_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_10_7_1.F,v 1.1 2008-09-17 04:39:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F index fbcefa764b..f7cf3a8480 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_11_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F index 59d782e989..66eb686ccf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_12_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F index c270c05129..38780c9e5a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_13_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F index 7c3bf7aa10..638052ea45 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_14_1.F,v 1.1 2008-09-17 04:39:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F index 447b70757b..080c820d95 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F index ab9e381881..d12d59c8ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_1_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F index 2b49d3fec8..0348b7253c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_2_1.F,v 1.1 2008-09-17 04:39:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F index 175cfc95b9..64e9c20d67 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_3_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F index 3011e328c2..3905b7686a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_4_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F index 1812507fdc..e64428daee 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_5_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F index 46f5e626ee..093427f5f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_15_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_15_6_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F index 262757ad2f..814917ca18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_1.F,v 1.1 2008-09-17 04:39:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F index 5de3bf40d1..d7f1285cc9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_1_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F index 6ad39ca93d..086b2d4031 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_16_2_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F index c86f53976a..fb285eac49 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_1.F,v 1.1 2008-09-17 04:39:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F index af09d953b1..3db606fa65 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_1_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F index 6b025eac86..88d3d91ac5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_17_2_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F index d8937f056f..0366a77ddf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F index 348eb14f22..fdf1d93ac3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_1_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F index e4d843be4e..9a6a48fbce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_5_18_2_1.F,v 1.1 2008-09-17 04:39:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F index c9e030fa2a..ea16780da9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_1_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F index bdc9c1fb06..d1beb296bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_2_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F index 66491b5c5b..c80996fdce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_1.F,v 1.1 2008-09-17 04:39:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F index 0e7e884a28..60fba3c60a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_2_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F index fbf692d0b9..985f4c274e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_3_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F index bcd56ae96a..b02f5826b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_4_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F index 7758f47198..cfe3ac367f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_5_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F index 092ed3eec7..1ee9773485 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_6_1.F,v 1.1 2008-09-17 04:39:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F index fae77941c1..4cc5e76e40 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_3_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_5_3_7_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F index 068b84acb9..0e6fbe08ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_4_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F index 187afa4e00..7d9edb9ea0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_5_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F index 60cca6e232..da0f2a695f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_6_1.F,v 1.1 2008-09-17 04:39:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F index 33e74c1c3e..bd97e574bd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_7_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F index bbe8fb5b70..40ed9a99e7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_8_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F index 4b92dd2aeb..4338cd8127 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_5_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_5_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_5_9_1.F,v 1.1 2008-09-17 04:39:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F index 5ad9446d72..914f135e4d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F index b08fbc0bb6..065b8e61be 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_10_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F index c3642b7a07..0082c67cdb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_11_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F index 5957b2cb30..35090fc528 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F index 5309f696d0..6760841545 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_1_1.F,v 1.1 2008-09-17 04:39:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F index 694f60577a..3040e26486 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_12_2_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F index 68cbb8c98b..3483754c7e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F index d85e40b71f..17540a9812 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_1_1.F,v 1.1 2008-09-17 04:39:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F index 5a1bcbf622..492d3bca66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_13_2_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F index 6d894c9722..494d030a4d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F index ea9be6f494..eed47895d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_1_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F index b9616bd573..87dd6fd94b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_14_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_14_2_1.F,v 1.1 2008-09-17 04:39:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F index 612486a0ab..85fcead7f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F index 07c52a058a..870304bc9f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_1_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F index b566dbb786..32ba99a79f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_6_15_2_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F index a6abdf812e..5e8a5f2d63 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_1.F,v 1.1 2008-09-17 04:39:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F index 78cdf4ef8d..77f4b08dab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_3_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F index 7b34198b26..81c96f7d8b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_1_4_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F index 6a8218a4b7..38f6d84e55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_2_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F index 1b83c74afa..e34f020039 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_3_1.F,v 1.1 2008-09-17 04:39:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F index f2f554d668..2bc07ad3e6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_4_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h13 h12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F index d735106c4d..8f279c1ac6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_4_1_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F index ba7b40c382..e2bf73f0e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_5_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F index 2e09b1f3f6..f75192ff67 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_6_1.F,v 1.1 2008-09-17 04:39:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F index 84359a12b6..5b4bd25945 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F index 63b2b18fd2..8fb9423ef7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_3_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F index 6bd21e90c7..5c23c97f8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_7_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_7_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_6_7_4_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F index 6a070bf9c9..c17fa9059a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_8_1.F,v 1.1 2008-09-17 04:39:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F index 5859e8d470..cf41c600a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_6_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_6_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_6_9_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F index 57e908d3fa..1c4d79bef6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_7_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F index 2a67fa3ead..49772d9fbe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_7_1_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F index 29001db77f..1b87fbcd81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_7_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_7_2_1.F,v 1.1 2008-09-17 04:39:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F index a1f74b5801..58fa129e31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F index b9d8f59afc..96410300ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_10_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F index fbfe4a3d6d..9b089636cb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_11_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F index d96d83d112..d867fbb4e9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_12_1.F,v 1.1 2008-09-17 04:39:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F index 047b19c27a..1723767e18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F index 98e81f6dc9..9f29563908 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_2_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F index 2a17bc1f00..a151d19bbe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_13_3_1.F,v 1.1 2008-09-17 04:39:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F index 03dbdd9300..cdc4461c77 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_14_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F index 65f1a72eac..d98a97be87 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F index 57c260a3b9..ba8bf463c7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F index 6ea0ce7322..9ca017ea31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_2_1.F,v 1.1 2008-09-17 04:39:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F index 36bfa86e4d..74b2199f71 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_1_3_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F index 107533cd8d..eab633d3f9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_2_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F index f37069b523..509fbfb2b9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_3_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F index 95b180e280..e0180f6850 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_1.F,v 1.1 2008-09-17 04:39:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F index cf9d441b92..57e4ba74b6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_2_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F index 9f142134bd..236b71755c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_4_3_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F index 0b39366e53..d029214c55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_5_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F index 5f6f8f6a32..6c08b9f50b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_6_1.F,v 1.1 2008-09-17 04:39:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F index 15d775a16b..7374ae5ad5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_7_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F index 0dc9ca1f5c..3cd7285ff5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_7_1_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F index 33f75854d3..536f2ae929 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F index 427f7535f6..2b5f7a2963 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_1_1.F,v 1.1 2008-09-17 04:39:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F index af57a8cdc3..c1c20a37cf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_15_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_15_8_2_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F index 89db260d64..d42ea4c5f1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F index e3e36bfe21..c37e8e75ce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_1_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F index e1bf7c88fc..ae9407d894 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_16_2_1.F,v 1.1 2008-09-17 04:39:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F index 9f6a9f99ab..7ea2ca2689 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F index 56be9686dc..a5cef5a4d6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_1_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F index ed51bbd25e..97dc80b45d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_17_2_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F index fcc81d9c75..f050599564 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_1.F,v 1.1 2008-09-17 04:39:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F index 7bead39af2..a751e54e1c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_1_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F index 76ec4cf9aa..240d559bfb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_18_2_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F index c6f7836f99..f9939eedce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F index e5748b545b..186b77c830 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_1_1.F,v 1.1 2008-09-17 04:39:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F index 9e9046dc67..6ca46e1f74 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_2_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F index 4c699c8917..9946726dcf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_3_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F index f27990cbd2..b884bb3fce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_19_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_19_4_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F index e2e432900b..899a5240d6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_1_1.F,v 1.1 2008-09-17 04:39:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F index 0994e62835..e7b957a1eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F index 1d853ce0fe..ee2cc29b32 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_1_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F index c9c5d8adf7..484dd921c6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_20_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_20_2_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F index 3bf38460cc..bf732dde8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_1.F,v 1.1 2008-09-17 04:39:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F index bca1f11995..a1ce2af9f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_1_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F index 68696f53d6..c7b9981a58 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_21_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_21_2_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F index e6cb60a460..5971c3e714 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F index 7da45ce54c..4194b12c6b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_1.F,v 1.1 2008-09-17 04:39:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F index 2c3c508605..e93a6e00fd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_1_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_1_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F index 2b33b8c7bc..15361f9098 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_10_2_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F index f5b5f4724b..1c4dcc0f8c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F index 019fa2073c..9cb63305ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_3_1.F,v 1.1 2008-09-17 04:39:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F index 537574ed17..7a88d98886 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_1_4_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F index c59a0606ee..154f24d0e6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_2_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F index 4f13a5aadb..f476c99b12 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_3_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F index a1f025bf15..9ca855dd0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_1.F,v 1.1 2008-09-17 04:39:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F index df9a394b8b..8074f36dc6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_3_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F index a8aa851dcd..c3f03411fa 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_4_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_4_4_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F index 0dffc3fa33..a4132592d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_5_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F index 801a975d36..9087751f0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_6_1.F,v 1.1 2008-09-17 04:39:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F index 4c81e49670..ac34971d29 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F index f559253513..a210fb04eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_1_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F index b6bb589a10..2e4ae12373 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_7_2_1.F,v 1.1 2008-09-17 04:39:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F index 520aa7e7bb..308135c548 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F index 322b0cad9d..7ca6bda5ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_1_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F index 6942a34dd9..edce1256da 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_8_2_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F index ea9692016b..124031b144 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_1.F,v 1.1 2008-09-17 04:39:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F index a4a4833c5a..7055b04442 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_1_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F index b99d6dab97..f6de69162c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_22_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_22_9_2_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F index 08ae4d6fe9..684bd4176a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F index 82cd6b9d13..b3b12e0f4a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_1_1.F,v 1.1 2008-09-17 04:39:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F index 7ad20eae69..a37ed5514e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_23_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_23_2_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F index cd0d3b6f17..91562a11bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F index ddff6f845c..d010c18389 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_1_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F index b4aa8cfb5a..0e2c43af7c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_24_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_24_2_1.F,v 1.1 2008-09-17 04:39:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F index 74b9244b9c..52f5ff00bb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F index a3aa060d01..8cdfcee27b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_1_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F index e4366f342f..447aa9d240 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_2_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F index 0fdd2d475e..b64325b2ce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_3_1.F,v 1.1 2008-09-17 04:39:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F index 08d995fdfc..50f73efb3b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_25_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_25_4_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F index a7ead2a7e1..55fcab38c5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F index f49bf4f822..bbbd55cfb8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_1_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F index 14d47434f8..2c5f33f686 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_26_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_26_2_1.F,v 1.1 2008-09-17 04:39:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F index d468c873ac..28054ef7dc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F index e9d2c49785..8034c7fbe7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_1_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F index 9cabc82d91..5ae7d190a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_27_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_27_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_27_2_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F index c28f449df4..08868b0525 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1.F,v 1.1 2008-09-17 04:39:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F index ebffb22a9d..2665cc246b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F index 6f74c04703..fec0b2e9a3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_3_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F index a9be953bbe..644991b8ee 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_1_4_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F index 279b4e0e90..98b36804e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_2_1.F,v 1.1 2008-09-17 04:39:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F index 09240110de..f90241fb54 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_3_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F index 662566974e..6549455af1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_4_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F index 8452be5e90..c7f1feea66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_4_3_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F index e69c024e29..ad9c8a11f5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_5_1.F,v 1.1 2008-09-17 04:39:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F index faad3b201c..e94c0e0878 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_6_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F index c06deec45a..eceecc9aae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F index 1e87419160..44dc6e5d3f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_1_1.F,v 1.1 2008-09-17 04:39:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F index 53dd4ad7a7..a4b370d86b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_7_2_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F index 31de931c6f..3489e6138b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_8_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F index 3599b9de5e..bb0fe15a8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_28_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_2_8_28_8_1_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F index 994c36c124..b65c061487 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_1.F,v 1.1 2008-09-17 04:39:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F index 5d6b6f841d..f212579253 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_1_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F index ba687e5cd7..bba1006e08 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_29_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_29_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_29_2_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F index 34fbc7c372..29692ea515 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F index 0e5fa4d9af..fbe97fa300 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_3_1.F,v 1.1 2008-09-17 04:40:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F index 67f2009934..d6280c459e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_2_4_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F index fe50a9543d..36aec812bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F index d74f6871d6..b46a73c2ba 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_1_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F index e114360a37..04aed5bbd9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_30_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_30_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_30_2_1.F,v 1.1 2008-09-17 04:40:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F index fdcaecbfb4..ddbed60d7c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F index 109c775710..890beef210 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_1_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F index bfc725a143..bb03074161 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_2_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F index d6e173f8e0..ac8d55b10b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_3_1.F,v 1.1 2008-09-17 04:40:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F index 675ce1772c..82cf76aeec 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_31_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_31_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_31_4_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F index de012dfe1e..7f5d7cd55a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F index 151d96bfd8..564482571f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_1_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F index 952c264ed0..4fcde63610 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_32_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_32_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_32_2_1.F,v 1.1 2008-09-17 04:40:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F index e86554263f..c29aab3a18 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F index 433e5d5bf4..2cc2137e7d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_1_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F index ff656e148e..69cf3f52e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_33_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_33_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_33_2_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F index b9960609c0..e1b535f585 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_1.F,v 1.1 2008-09-17 04:40:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F index 55eed2a019..08178fec41 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_1_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F index 257b016fb4..c1093f2d0e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_34_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_34_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_8_34_2_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F index 3fbd692344..667b6c3b32 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_3_1.F,v 1.1 2008-09-17 04:40:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F index b8b7a2f6eb..ae966442d1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F index 092da3c050..59a5607a85 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_3_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F index 91337135ce..06570c25bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_4_4_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F index d1689e81af..cf614fd403 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_5_1.F,v 1.1 2008-09-17 04:40:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F index b399ee155f..97ad93b5d4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_6_1.F,v 1.1 2008-09-17 04:40:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F index 592d4bb167..0a765e31cd 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_1.F,v 1.1 2008-09-17 04:40:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F index 18dd2594e2..1d24af6110 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_2_1.F,v 1.1 2008-09-17 04:40:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F index 87c16b3a59..bf9b02abb5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_7_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_2_8_7_3_1.F,v 1.1 2008-09-17 04:40:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F index acf8776070..0e7b02630e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_8_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F index a490aba283..e7e0770b7d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_8_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_8_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_8_9_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F index 26e99f5582..2439209e4c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_2_9_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F index 58866e567e..fba11f2941 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_10_1.F,v 1.1 2008-09-17 04:40:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F index 049933fa80..2b8fb3a560 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F index 5381ee6e5c..358364f4bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_1_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F index 409a0cd12c..2327a2b92e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_2_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F index cdef75cae5..64a7a7a38f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_3_1.F,v 1.1 2008-09-17 04:40:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F index 6107746637..41b88dbc85 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_11_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_11_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_11_4_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F index 2020abf42b..0f00c18da0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F index ed8f3dc2f4..3d1fad6210 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_1_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F index 9b8a02aa01..d9ce6bd19a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_2_1.F,v 1.1 2008-09-17 04:40:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F index 93f970ea00..c840fc9627 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_3_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F index 71b4f43fa2..653aa3b0d2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_12_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_12_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_12_4_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F index 0010043da9..e54e893c57 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_1.F,v 1.1 2008-09-17 04:40:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F index 5191833555..42a550b820 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_1_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F index ef567dee9a..69e0541967 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_2_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F index ed17876587..3ae1251a71 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_3_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F index b0af6ae4ea..01d8076d3a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_13_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_2_9_13_4_1.F,v 1.1 2008-09-17 04:40:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F index dac9f56326..9380f2724c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_1_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F index 2e06a3f880..d6dd97e6a8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_2_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F index 2a974cdaec..ad69440981 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_3_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F index 9ce9a46670..3a9f7c3789 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_4_1.F,v 1.1 2008-09-17 04:40:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F index 9bb5c7eff0..21b0ea85ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_5_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F index cebdf00664..7b6e71217c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_6_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F index 5d94fe4f47..b219298846 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_7_1.F,v 1.1 2008-09-17 04:40:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F index c2acb1e693..167f17f53d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_8_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F index 0210bafe1b..6552382df2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_2_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_2_9_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_2_9_9_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F index 693d6e9cd9..6825caa017 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_3_1_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F index 8816c4c5d8..a097e63b8f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_1_1.F,v 1.1 2008-09-17 04:40:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F index 99424fe5d7..e26a630bf1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_2_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F index 5e3c0f3975..888c432176 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_3_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F index 638ca7bc9d..f5b98c34fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_4_1.F,v 1.1 2008-09-17 04:40:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F index 6badc39099..20ff8653a8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_5_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F index a9967aa202..2234371ab3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_3_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_3_1_6_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F index 68e832fbc6..b64f226bf8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1.F,v 1.1 2008-09-17 04:40:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F index 4a780469c0..8d7d0106fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F index 7d357e9658..e9dcad0149 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_1_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F index e0c9dc5a9f..76546a8275 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_1_2_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F index a2fde7de5f..368eccc5f5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_1.F,v 1.1 2008-09-17 04:40:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F index 38b1c63fa7..8c5cd52c5c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_1_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F index 78ea79d9c0..8508574eab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_2_2_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F index 3aa8c0d360..b0b4f7dfe2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F index 424393f92f..58ea4faa49 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_1_1.F,v 1.1 2008-09-17 04:40:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F index b6c41eca46..4e685ad62f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_1_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_1_3_2_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F index 65fade751a..99bff0c304 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F index 125f05c1d2..425b107901 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_1.F,v 1.1 2008-09-17 04:40:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F index e0194369f8..7ea631b40a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_1_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F index eb1e5945fb..7645efe05d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_1_2_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F index 285eb6c990..8dfd6c2623 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F index 331cb8a125..7dee90e831 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_1_1.F,v 1.1 2008-09-17 04:40:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F index 2de2c012d4..4623ccc338 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_2_2_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F index e8f381e4fe..0d494b055e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F index 8b31fcb74d..3f33bf2ddf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_1_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F index e7e71fee26..e231140ae2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_3_2_1.F,v 1.1 2008-09-17 04:40:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F index 027155177d..989153425c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F index c610074aef..f08486fc51 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_1_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F index 585aaa5368..824aed4163 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_4_2_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F index ab20a49a05..552f713f7a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_1.F,v 1.1 2008-09-17 04:40:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F index bcf7d68fb0..150b19a051 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_1_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F index 2c57cc77e1..c1ef8a6b04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_5_2_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F index 5c5eb78bd3..e382d848c8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F index 3eb523eb85..12a561aa35 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_1_1.F,v 1.1 2008-09-17 04:40:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F index fd2b6c746a..2f853e7394 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_2_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_2_6_2_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F index 7eb4e63072..9f5f3c45d9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F index 5613d8c250..9bc20cb766 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_1.F,v 1.1 2008-09-17 04:40:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F index 5b3f1b34c1..b5a0e35f1a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_1_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F index 4c2f9d6690..2482d4b00f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_2_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F index 379c0f66f6..e200f73d06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_3_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F index d1be2ba958..e36d862d4b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_4_1.F,v 1.1 2008-09-17 04:40:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F index 1ef410de6d..4fd2384130 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_5_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F index 39137129b3..242ed480b5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_1_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_1_6_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F index 0d5d785a07..5b1c429d06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F index a2e2b07608..988b385548 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_1_1.F,v 1.1 2008-09-17 04:40:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F index ed0901c607..598f596ecb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_2_2_1.F,v 1.1 2008-09-17 04:40:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F index 1fd5c34f38..67c385cea2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F index b4a1328178..cffc03d839 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_1_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F index 50297e5266..16cd5f6f01 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_2_1.F,v 1.1 2008-09-17 04:40:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F index e90992ec8c..4ec0c05f22 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_3_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F index f8140bc73d..f020f30f65 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_4_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F index c109e4c21f..9029df442d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_5_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F index b8b63396ad..96a53c7444 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_3_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_3_6_1.F,v 1.1 2008-09-17 04:40:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F index 05b0172063..049977ca5a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F index c7f224040e..e4fe2a4bb4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_1_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F index 8bf04092e6..f04e580f10 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_2_1.F,v 1.1 2008-09-17 04:40:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F index c1cf11981f..29952cbc66 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_3_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F index 5e288b7527..fb6d607f0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_4_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F index affe8db051..e320c7dccf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_5_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F index fbc8452690..4964f5b95f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_4_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_4_6_1.F,v 1.1 2008-09-17 04:40:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F index 4b5e4aba22..6635394409 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_1.F,v 1.1 2008-09-17 04:40:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F index b2d89258d7..9c2085d3ab 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_1_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F index 247311d3e6..aed43b83df 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_5_2_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F index 043df44d23..812d58f628 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_1.F,v 1.1 2008-09-17 04:40:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F index 9ed2182d5b..f1fee5e2ad 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_1_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F index 1d134fbd23..0a4ceb7932 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_3_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_3_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_3_6_2_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F index 12ecf0ff33..a0348d34bc 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F index 841ea68255..fe9c12029a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_1.F,v 1.1 2008-09-17 04:40:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F index f06471f6fb..03d0628984 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_1_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F index c19968864f..1b15d19b48 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_10_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_10_2_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F index df1ec1ae9a..33f89abdb6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F index 9ace8701ea..af80d4e260 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_1_1.F,v 1.1 2008-09-17 04:40:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F index 6389cf813d..ba8296e09a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_11_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_11_2_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F index 31ed9a478f..7e10d07e04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F index 0e85395eb8..91f4e1841d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_1_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F index 41356d4363..efaacd80de 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_12_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_12_2_1.F,v 1.1 2008-09-17 04:40:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F index 24c2152b64..59370cf629 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F index 489d0e6c49..382841878c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_1_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F index 55ffdc3428..d95b637932 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_2_1.F,v 1.1 2008-09-17 04:40:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F index b571617c76..7ac7e9d4db 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_3_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F index 097b995815..040ab8bf9b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_13_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_13_4_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F index db718f5ebf..f9387e5ab4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_1.F,v 1.1 2008-09-17 04:40:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F index 58ba64f3c3..e16048df59 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_1_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F index 6025b50c93..42b9a96f6f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_14_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_14_2_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F index 2b0f8303c7..2e25fe8b50 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F index a366ae160f..fc91388d4b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_1_1.F,v 1.1 2008-09-17 04:40:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F index 70850906b4..d0fbeae3b8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_15_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_15_2_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F index b8d196b64f..48a76907eb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F index 1624d7b116..dc00831825 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_1_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F index 4a6de8a5a1..ef817e5553 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_16_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_16_2_1.F,v 1.1 2008-09-17 04:40:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F index a309f0c204..0f4e39e804 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F index 744310369b..0e14cb5b28 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F index 2a102bd917..b676f0ec6b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_1_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_1_1.F,v 1.1 2008-09-17 04:40:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F index 91015c334a..d618dfe589 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_10_2_1.F,v 1.1 2008-09-17 04:40:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F index ae513ff702..9bc1b02085 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_1.F,v 1.1 2008-09-17 04:40:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F index 2c5101d52b..75ed123042 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_3_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F index 9a508c2a98..fb49efcec6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_1_4_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F index 90a659b077..b00d930c3a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_2_1.F,v 1.1 2008-09-17 04:40:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F index ed16788691..afc8d6a626 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_3_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F index 2b51ca67fb..16f21898d0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F index 083be0f291..5e2d12e4e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_3_1.F,v 1.1 2008-09-17 04:40:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F index fa5a6aa693..f7cb6c6d4c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_4_4_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_4_4_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F index e84849f34d..1217234630 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_5_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F index 59ce159fde..9ebf23d2fb 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_6_1.F,v 1.1 2008-09-17 04:40:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F index f36536e84d..b7d0d0e21f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_1.F,v 1.1 2008-09-17 04:40:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F index cb8d8d30c8..6e3af67e11 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_1_1.F,v 1.1 2008-09-17 04:40:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F index 18b2028462..00589fef97 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_7_2_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F index b94f585ab7..78d46dfe51 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F index 207a5991c4..5701269acf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_1_1.F,v 1.1 2008-09-17 04:40:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F index 52d9641457..4bfd897402 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_8_2_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F index 27e9b23d45..a76e589de7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F index 8aa772bad8..8c526404e5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_1_1.F,v 1.1 2008-09-17 04:40:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F index 41caa1597d..aced825e12 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_17_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_17_9_2_1.F,v 1.1 2008-09-17 04:40:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F index c1d322c4e2..d9f9f55fd4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F index 5a609a83ac..36d8918cd3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_1_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F index af59e4bf79..918c9167e3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_18_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_18_2_1.F,v 1.1 2008-09-17 04:40:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F index 4bba7ed754..46a67b7f69 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F index 4d220a2b44..5a120d7234 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_1_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F index cdca20f110..bae89f1586 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_19_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_19_2_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F index a6c2d67559..4a78545917 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1.F,v 1.1 2008-09-17 04:40:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F index 32e017d111..47f3b5cf81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F index b38b2867a9..daaf7ba68f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_1_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F index 3b57860911..ad9c5633a0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_10_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_10_2_1.F,v 1.1 2008-09-17 04:40:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F index 28d218ad9e..80fdbda773 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_1.F,v 1.1 2008-09-17 04:40:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F index 6f815d55c3..ec1184ca55 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_2_1.F,v 1.1 2008-09-17 04:40:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F index f59f30b32f..7e674da32d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_3_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F index a9dbaefc34..f54d77f445 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_1_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_1_4_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F index 2c1370c681..38637de63d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_2_1.F,v 1.1 2008-09-17 04:40:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F index 1659b7dc36..66f075a602 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_3_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F index 6cc2f947f4..86671ea211 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F index b23bed1a49..f0c3fac9a4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_2_1.F,v 1.1 2008-09-17 04:40:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F index b2ad365207..63f21d31a2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_4_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_4_3_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F index e9624b0067..fcf480cd7b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_5_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F index 4ba77ff2a8..dc4aaf7845 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_6_1.F,v 1.1 2008-09-17 04:40:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F index 0503a7aa40..3afcd29a64 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F index 7dd4a7eb3d..1e312ec3aa 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_1_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F index 1628911dfa..35e0200215 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_7_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_7_2_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F index 145cffea24..7a97e50ca4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_1.F,v 1.1 2008-09-17 04:40:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F index f24afa3477..7d4631a4f9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_1_1.F,v 1.1 2008-09-17 04:41:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F index 6e01655775..87d0992187 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_8_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_8_2_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F index 18ae39514e..be4d553f9d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F index d5d967f109..1430c9c6d3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_1_1.F,v 1.1 2008-09-17 04:41:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F index f0018ed2c4..696157b5a6 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_1_9_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_1_9_2_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F index c75c50a8e1..b66f31f1f7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F index d2e264bff9..1373ffdf0b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_1_1.F,v 1.1 2008-09-17 04:41:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F index 4722ae44a1..2c56aa925f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_20_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_20_2_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F index f6067c425a..87caeda6ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F index 4c42bad2e2..c60989d3e0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_1_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F index 5423f52a5e..5e1e1cad89 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_2_1.F,v 1.1 2008-09-17 04:41:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F index d2d72c0c97..826a91f8c7 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_3_1.F,v 1.1 2008-09-17 04:41:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F index 7e0c041460..87a19926ac 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_21_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_21_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_21_4_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F index c7606ad8fd..ced95c3ff0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F index f644d8ddd6..09a36a7cce 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_1_1.F,v 1.1 2008-09-17 04:41:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F index 2de8c7d42a..88034ed58f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_22_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_22_2_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F index 66110b24ce..285ff9b6f3 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F index 5881a58d15..2236beb65d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_1_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F index ccecc8ff28..a582cf4ac2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_23_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_23_2_1.F,v 1.1 2008-09-17 04:41:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F index fdf24973bc..305c9859a1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F index b2849f3050..b4c6c9a2de 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_1_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F index 866dd4fa78..a5a1ae1e0d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_24_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_24_2_1.F,v 1.1 2008-09-17 04:41:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F index 5d90c7487d..b0f9a54152 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F index 46e9cb0e31..06e56ece81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F index 867ea4e86f..bd1cf3f934 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_1_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F index 88a757da4d..5bf3ee3c88 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_1_2_1.F,v 1.1 2008-09-17 04:41:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F index 9b4c24cd3a..bd4fc2b06b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F index b36c5751fe..f3ba5ec038 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_1_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F index 6c59d20cde..a0a7a8f102 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_2_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_2_2_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F index 7679d437d7..d30c1456ea 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_1.F,v 1.1 2008-09-17 04:41:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F index 5c1e66d870..00a5b330cf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_1_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F index 9422a54f98..527cd4f134 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_3_2_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F index 5f207f5728..9c8570483a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_1.F,v 1.1 2008-09-17 04:41:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F index 191f2e6f85..1b34d82192 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_1_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F index 6ccccea5d8..d96d266d7f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_4_2_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F index 1242094154..fb6bfe7e13 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F index 4f728d47bb..f8e92c9b30 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_1_1.F,v 1.1 2008-09-17 04:41:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F index 068f9f2818..9b36412e9b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_5_2_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F index 590a5d643e..9893d7159d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F index c108d2fa0c..d092618e6a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_1_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F index 6cadaa8351..ce1746e6ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_25_6_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_25_6_2_1.F,v 1.1 2008-09-17 04:41:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F index 68449caa84..70cf24c54c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F index 0dee22d44b..4de5d2c8f2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_1_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F index 33b1e290e1..cf843d31bf 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_2_2_1.F,v 1.1 2008-09-17 04:41:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F index 6ce2a30cfe..f9a8fd4f1d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F index c2ebf181e7..b7826e446b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_1_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F index 381d6a07bb..f25b78da06 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_3_2_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F index 0c099a776d..21860c5ad5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_1.F,v 1.1 2008-09-17 04:41:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F index b61a04ad22..f6f4d18b57 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_1_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F index 421485b2c9..333a119568 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_4_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_4_2_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F index fe14e97c59..74ebddfd6f 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F index 485350bc44..051a83aaf5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_1_1.F,v 1.1 2008-09-17 04:41:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F index f584699b1c..3ac9e6baa2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_2_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F index cbc327e7c1..2efc76818c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_3_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F index e6ab457ef3..c90a8c0263 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_5_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_5_4_1.F,v 1.1 2008-09-17 04:41:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F index e7127927b9..96a4c3ae87 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F index 858220a2aa..159a4f937c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_1_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F index 0da7d31f63..46c4dfdafe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_6_2_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F index 919de4a9da..7b4adb7b7b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_1.F,v 1.1 2008-09-17 04:41:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F index f2cd9076b4..1840cfde31 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_1_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F index 7374fd5fbd..3eb0cd036c 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_7_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_7_2_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F index 0418736d56..b8536dae95 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F index ecdb3b7488..189ada911b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_1_1.F,v 1.1 2008-09-17 04:41:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F index 33bd3a1d05..14b9b05f6e 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_8_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_8_2_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F index b1097f9db3..446c4e61ae 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F index 3acc09db04..fe75ae9d81 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_1.F,v 1.1 2008-09-17 04:41:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F index 262e477c17..ff1f558f36 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_1_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_1_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F index 06bcdaab06..098deb3ae4 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_10_2_1(l_a_offset,k_a_offset &,size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_10_2_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F index 1543195755..677a82f415 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F index ee45b5a6c5..0fd4dfa924 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_3_1.F,v 1.1 2008-09-17 04:41:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F index 28f4d72a1b..2dd83cd253 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_1_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_1_4_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F index 4b01089277..557e83a0d8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_2_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F index 81fbdeec25..8c8451381a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_3_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F index ff39dcec10..7de415388b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_1.F,v 1.1 2008-09-17 04:41:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F index 7d1804f177..c9a8844924 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_3_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_3_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F index 8b73f89476..e74e24d0c0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_4_4_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_4_4_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F index 22f9c66637..5b1c7327c0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_5_1.F,v 1.1 2008-09-17 04:41:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F index 149981a283..d11f67f747 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_6_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F index 9a4a98d156..4739df283a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F index 2fe692f7fd..551e28779a 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_1_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F index 005d984d8f..b0f99af5ad 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_7_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_7_2_1.F,v 1.1 2008-09-17 04:41:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F index 945887b078..6b838a45fe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F index 6dbda557e1..3b3d9d466d 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_1_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F index 39b931e565..b743477564 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_8_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_8_2_1.F,v 1.1 2008-09-17 04:41:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F index ee07aef6fa..7a2cd64170 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F index 0df43059f4..8de5843238 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_1_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_1_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F index 0c5969785b..ea2fcbc692 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_4_9_9_2_1(l_a_offset,k_a_offset, &size) -C $Id: OFFSET_ccsdt_lr_beta_4_4_9_9_2_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F index d9cffa7061..7e1bf29865 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1.F,v 1.1 2008-09-17 04:41:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F index 9c88d706eb..04174c55e1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F index 5bb7da527c..c6642dfa04 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_1_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F index 94b86ea011..95b4c4b408 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_2_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F index f3d969831f..c46f90bac9 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_3_1.F,v 1.1 2008-09-17 04:41:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F index 544d2833c4..8566742ab5 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_1_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_1_4_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F index 06a96044e3..1845c12eb1 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F index c1bbbb9dfb..a77487a9c2 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_1_1.F,v 1.1 2008-09-17 04:41:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F index 6ed14ca67f..5758dc40ec 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_2_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F index 3d05e8af0c..5a7f950550 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_3_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F index 8378549f0f..572e42a42b 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_2_4_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F index 2ff7bf1aa3..625afc6468 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_1.F,v 1.1 2008-09-17 04:41:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F index 7b42aedccf..a4bf66b181 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_1_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_1_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F index 2d21367f28..eeee4eccc0 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_2_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F index 0ccc99f44b..54d31f31fe 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_3_1.F,v 1.1 2008-09-17 04:41:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F index b2f1b1615f..63b04315f8 100644 --- a/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F +++ b/src/tce/ccsdt_beta/OFFSET_ccsdt_lr_beta_4_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lr_beta_4_5_3_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lr_beta_4_5_3_4_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F index 31dc64e1cf..00928bf1be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1.F @@ -2,7 +2,7 @@ &tr3,d_y1,d_y2,d_y3,k_i0_offset,k_o1_offset,k_t1_offset,k_t2_offset &,k_t3_offset,k_tr1_offset,k_tr2_offset,k_tr3_offset,k_y1_offset,k_ &y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_1.F,v 1.3 2008-09-17 19:23:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F index b88a40378b..8bf2939a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = -1 * Sum ( h2 h1 ) * o ( h1 h2 )_o * i1 ( h2 h1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F index 845d8ec40c..4ffa62dfd5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_1.F,v 1.1 2008-09-17 04:41:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1 * Sum ( p3 ) * tr ( p3 h1 )_tr * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F index 0f4d6eda4f..3c73e3dc7b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_2.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1/2 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h1 h5 )_tr * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F index 9c40fbd0ea..a30978a071 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_1_3.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytr + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * tr ( p3 p4 p5 h1 h6 h7 )_tr * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F index 687f0f127d..13eb954b63 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_2.F,v 1.1 2008-09-17 04:41:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_otry + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_otr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F index 3f5b1dd0ca..91032ed162 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_2_1.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_otr + = 1 * Sum ( p2 ) * o ( p1 p2 )_o * tr ( p2 h3 )_tr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F index dc53fd8d2f..3f986d1966 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_3.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = 1 * Sum ( p10 h11 ) * o ( h11 p10 )_o * i1 ( p10 h11 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F index d29a6670e3..b707b5a3d2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_1.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr + = 1 * Sum ( h4 p3 ) * tr ( p3 p10 h4 h11 )_tr * y ( h4 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F index 54e75b9af5..b789f1ca6c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_2.F,v 1.1 2008-09-17 04:41:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytr + = 1/4 * Sum ( h5 h6 p3 p4 ) * tr ( p3 p4 p10 h5 h6 h11 )_tr * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F index 4418a9c3b4..d3f6eea02a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_3.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = -1 * Sum ( h2 ) * tr ( p10 h2 )_tr * i2 ( h2 h11 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F index a458dfee98..16929da2fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_1.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F index 6f8524cb54..0c3ecb4cd8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_2.F,v 1.1 2008-09-17 04:41:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F index caa589b96d..14004fe064 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_3_3.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h6 h7 h11 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F index 693ce483ff..3a48d59daa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_4.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = 1/2 * Sum ( h8 ) * t ( p10 h8 )_t * i2 ( h8 h11 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F index 7f3cf4a624..8ec597bb35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_1.F,v 1.1 2008-09-17 04:41:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -1 * Sum ( h5 p3 p4 ) * tr ( p3 p4 h5 h11 )_tr * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F index b2d7e1da74..23974aae15 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_2.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tr ( p3 p4 p5 h6 h7 h11 )_tr * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F index ddd5dc0217..c95f1b6ee4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_4_3.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h11 )_ytr + = -2 * Sum ( p3 ) * tr ( p3 h11 )_tr * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F index 501c8a2a7f..394abe332f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_5.F,v 1.1 2008-09-17 04:41:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = 1/2 * Sum ( h1 h3 p2 ) * tr ( p2 p10 h1 h3 )_tr * i2 ( h1 h3 h11 p2 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F index fbc1d7076d..4951ccec3f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_5_1.F,v 1.1 2008-09-17 04:41:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt + = -1 * Sum ( p6 ) * t ( p6 h11 )_t * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F index 6e7ab23fee..258aa83680 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_5_2.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h11 )_t * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F index dd716a7d2b..e024a9b5e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_6.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_yttr + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * tr ( p3 p4 p10 h5 h6 h7 )_tr * i2 ( h5 h6 h7 h11 p3 p4 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F index bcf202fcfb..6db97bc8df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_6_1.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h11 )_t * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F index a2838e3f43..3d7b24c569 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_7.F,v 1.1 2008-09-17 04:41:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = 1/2 * Sum ( h1 h3 p2 ) * t ( p2 p10 h1 h3 )_t * i2 ( h1 h3 h11 p2 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F index 5bb83bab8f..31e289f8f5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_7_1.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr + = -1 * Sum ( p6 ) * tr ( p6 h11 )_tr * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F index 2765a0a355..ca27333652 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_7_2.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h11 p2 )_ytr + = 1/2 * Sum ( h7 p5 p6 ) * tr ( p5 p6 h7 h11 )_tr * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F index 86023804a0..fae47e6fb1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_3_8.F,v 1.1 2008-09-17 04:41:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h11 )_ytrt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p10 h5 h6 h7 )_t * i2 ( h5 h6 h7 h11 p3 p4 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F index 036f0fcd8f..4fa0a66ab1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_3_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_3_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_1_3_8_1.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h11 p3 p4 )_ytr + = 1 * Sum ( p8 ) * tr ( p8 h11 )_tr * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F index 3ec6d7c2fa..fb8a024325 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_1_4.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytro + = 1/2 * Sum ( p2 p1 ) * o ( p1 p2 )_o * i1 ( p2 p1 )_ytr diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F index 3afcff2da9..c0b420fce0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_4_1.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr + = 1 * Sum ( h4 h5 p3 ) * tr ( p2 p3 h4 h5 )_tr * y ( h4 h5 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F index 789858b5cb..a3619b5b04 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_1_4_2.F,v 1.1 2008-09-17 04:41:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytr + = 1/6 * Sum ( h5 h6 h7 p3 p4 ) * tr ( p2 p3 p4 h5 h6 h7 )_tr * y ( h5 h6 h7 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F index 5bed182d8e..383ca19d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2.F @@ -3,7 +3,7 @@ &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_tra1_offset,k_tra2_off &set,k_tra3_offset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_v2_o &ffset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_2.F,v 1.3 2008-09-17 19:23:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtraf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_ytrbtra * f ( h9 p10 )_f diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F index f0b9fdd5a5..3e0398dece 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtraf + = -1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_ytrbtra * f ( h9 p10 )_f diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F index 7f0d644e5e..7815583d30 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p10 h2 )_tra * i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F index bae2334564..e153f2b204 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_1.F,v 1.1 2008-09-17 04:41:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F index fd33d7198e..12e49452c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_2.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = -1/2 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h9 )_trb * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F index 8fbc18774a..5cce71c425 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_1_3.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * trb ( p3 p4 p5 h6 h7 h9 )_trb * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F index 33bf4242fd..6f94a55d9e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_2.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F index c65db3aaad..2c3afec1fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_1.F,v 1.1 2008-09-17 04:41:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F index 97fc78e339..3c59a8a133 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_2.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tra ( p3 p4 p5 h6 h7 h9 )_tra * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F index f80b2a5654..3d9920d6e7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_2_3.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F index 46c975ee14..ba1bdf4db7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_3.F,v 1.1 2008-09-17 04:41:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = -1/2 * Sum ( h1 h3 p2 ) * tra ( p2 p10 h1 h3 )_tra * i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F index 13cef2753d..7b9643ca3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_3_1.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h9 )_trb * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F index 24f4a5fbc7..8888dac3e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_3_2.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = 1/2 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F index 7874f034a6..85dd3080db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_4.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * tra ( p3 p4 p10 h5 h6 h7 )_tra * i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F index 7e94d7ac22..1d7d2baeda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_4_1.F,v 1.1 2008-09-17 04:41:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb + = 1 * Sum ( p8 ) * trb ( p8 h9 )_trb * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F index 4fc9dcd786..14cef7975d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_5.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h1 h3 p2 ) * trb ( p2 p10 h1 h3 )_trb * i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F index 8c4f44e2bc..fd5ab662b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_5_1.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = -1 * Sum ( p6 ) * tra ( p6 h9 )_tra * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F index 6c9535a850..6616f56be6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_5_2.F,v 1.1 2008-09-17 04:41:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = 1/2 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h9 )_tra * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F index 5a321490ad..ded45919eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_1_6.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * trb ( p3 p4 p10 h5 h6 h7 )_trb * i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F index a1c7137fb8..68027bb7ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_1_6_1.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra + = 1 * Sum ( p8 ) * tra ( p8 h9 )_tra * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F index 0697556649..7e188cb17c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_2.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtray + = 1 * Sum ( p9 h7 ) * y ( h7 p9 )_y * i1 ( p9 h7 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F index 507c60c3e1..031fb259e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_1.F,v 1.1 2008-09-17 04:41:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h10 ) * tra ( p9 h10 )_tra * i2 ( h10 h7 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F index 71182c2192..fcfeabe3ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_1.F,v 1.1 2008-09-17 04:41:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h10 h7 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F index 7a073aaa95..f7cfb64e9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_2.F,v 1.1 2008-09-17 04:41:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrb + = -1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 h4 h7 )_trb * v ( h4 h10 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F index edab96e092..5c23c6ac85 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_3.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrbt + = -1 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F index d3fb53c460..cac1ab326a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_3_1.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F index b920544d49..26af7053cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_4.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vttrb + = -1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F index 0e85a80cf2..ff484d3b6f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_1_4_1.F,v 1.1 2008-09-17 04:41:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F index f2835292f7..2e514b01cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_2.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i2 ( p9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F index 43eee2a1ea..132c1c675f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_2_1.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 p9 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F index dd671e71ea..36d5d4971c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_3.F,v 1.1 2008-09-17 04:41:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1/2 * Sum ( h3 h4 p2 ) * tra ( p2 p9 h3 h4 )_tra * i2 ( h3 h4 h7 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F index 7186dc169f..b28bf1c306 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_3_1.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h7 )_trb * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F index c10945f23d..3b4383e34b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_4.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = -1/2 * Sum ( h10 ) * trb ( p9 h10 )_trb * i2 ( h10 h7 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F index a4a4eed092..9c8c5ffcb3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_1.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra + = 1 * Sum ( h4 p1 p2 ) * tra ( p1 p2 h4 h7 )_tra * v ( h4 h10 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F index b4d84e1654..ec2a261932 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_2.F,v 1.1 2008-09-17 04:41:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtra + = -2 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h10 h7 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F index bad9282e42..148204820d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_3.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vttra + = 2 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h10 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F index 4b80f96179..88e370cc30 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_3_1.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F index 4949068c94..6a3dbfeb3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_4.F,v 1.1 2008-09-17 04:41:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h7 )_vtrat + = 2 * Sum ( p1 ) * t ( p1 h7 )_t * i3 ( h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F index f2b63c375b..d24f5a4c7e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_4_4_1.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p1 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 h10 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F index 48a53c369e..f4b5a08528 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_5.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtrbtra + = 1 * Sum ( h4 p2 ) * tra ( p2 p9 h4 h7 )_tra * i2 ( h4 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F index fcb4e90f50..65a0793f10 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_5_1.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F index 572155fdae..259daf2c9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_6.F,v 1.1 2008-09-17 04:41:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i2 ( p9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F index 84df80b9c6..22a91efebd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_6_1.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p1 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 p9 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F index 3b3688d504..bcee89a44f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_7.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1/2 * Sum ( h3 h4 p2 ) * trb ( p2 p9 h3 h4 )_trb * i2 ( h3 h4 h7 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F index 9fce972fe1..84b33f9039 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_7_1.F,v 1.1 2008-09-17 04:41:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h7 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h7 )_tra * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F index eaf4a9b62b..8347a6bd9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_8.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrb + = 1 * Sum ( h4 p2 ) * trb ( p2 p9 h4 h7 )_trb * i2 ( h4 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F index 9354a88e9b..c61af21aee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_8_1.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p2 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F index b99f3b60b9..fc6b7dcf9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_2_9.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h7 )_vtratrbt + = -1 * Sum ( h4 ) * t ( p9 h4 )_t * i2 ( h4 h7 )_vtratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F index 9de9e17bff..6a708001c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_1.F,v 1.1 2008-09-17 04:41:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h7 )_trb * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F index 9e17a9adfe..b1cad606e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_1_1.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F index 698fb3f059..fcd6a10689 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_2.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h7 )_tra * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F index fc95d785bb..9a9ee43576 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_2_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_2_9_2_1.F,v 1.1 2008-09-17 04:41:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F index 4359133181..6f51ebc542 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_3.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = -1/4 * Sum ( h6 h7 h11 h12 ) * i1 ( h6 h7 h11 h12 )_ytrbtra * v ( h11 h12 h6 h7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F index 321b0e142a..0079304cbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_1.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h6 h7 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F index 46d9d4a4c6..f3fa302c3a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_1_1.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h6 h7 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F index 8c39af8109..216291bfbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_2.F,v 1.1 2008-09-17 04:42:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytratrb + = -1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i2 ( h6 h7 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F index 562600e1fd..537f3e05d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_2_1.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h6 h7 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F index f3da7c672e..5489a20ab9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_3.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h6 h7 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F index eb7e7e25cb..418ed9ad7c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_3_1.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h12 p1 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h6 h7 p1 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F index d41a57ca1c..19e659883f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_3_4.F,v 1.1 2008-09-17 04:42:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h11 h12 )_ytrbtra + = -1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i2 ( h6 h7 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F index 347dc3cb1e..433cd1c59f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_3_4_1.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h11 p5 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h6 h7 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F index 4da30ffed5..9307c153a0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_4.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = 1 * Sum ( h11 p7 h9 p10 ) * i1 ( h11 p7 h9 p10 )_ytrbtra * v ( h9 p10 h11 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F index a965cc7d44..c771b131f9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_1.F,v 1.1 2008-09-17 04:42:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p7 h4 )_tra * i2 ( h4 h11 h9 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F index 214b4a0c37..ac7064795c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_1_1.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h4 h11 p3 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F index 129c70921e..68d4bede9d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_1_2.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytrb + = 1/2 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h9 )_trb * y ( h3 h4 h11 p1 p2 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F index 89a2ff4234..b53c435f70 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_2.F,v 1.1 2008-09-17 04:42:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h4 ) * trb ( p7 h4 )_trb * i2 ( h4 h11 h9 p10 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F index 9628d012e9..a330771e4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_2_1.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h9 )_tra * y ( h3 h4 h11 p1 p2 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F index bb85feb7c4..b4d693f969 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_2_2.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h11 h9 p10 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h4 h11 p3 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F index 77eda075e9..5b94264c59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_3.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytrbtra + = -1/2 * Sum ( h3 h4 p1 ) * tra ( p1 p7 h3 h4 )_tra * i2 ( h3 h4 h11 h9 p1 p10 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F index 35263757d8..5510f12d33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_3_1.F,v 1.1 2008-09-17 04:42:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * y ( h3 h4 h11 p1 p5 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F index 4355e52d10..1627aede2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_4_4.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p7 h9 p10 )_ytratrb + = -1/2 * Sum ( h3 h4 p1 ) * trb ( p1 p7 h3 h4 )_trb * i2 ( h3 h4 h11 h9 p1 p10 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F index dccbea0132..bf93dc2010 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_4_4_1.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h11 h9 p1 p10 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * y ( h3 h4 h11 p1 p5 p10 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F index c6011ff2a9..b06616b1bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_5.F,v 1.1 2008-09-17 04:42:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtray + = 1/4 * Sum ( p10 p11 h13 h9 ) * y ( h9 h13 p10 p11 )_y * i1 ( p10 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F index b36437f2f0..ab0de529ab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_1.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i2 ( p10 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F index c27e74007a..2c6829a5d9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h7 ) * tra ( p10 h7 )_tra * i2 ( h7 p11 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F index e927564c1f..4f11ab1075 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_1.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h9 h13 )_trb * v ( h7 p11 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F index d6c34f6c07..9b9d34ac74 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_2.F,v 1.1 2008-09-17 04:42:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = 1/2 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F index c525529fea..5dcb576e7e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_2_1.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F index ab5536abe5..cbb7e49da2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_3.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F index 5b046875a5..0626ce4e0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_3_1.F,v 1.1 2008-09-17 04:42:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtrb + = -1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F index 7da542ec7b..2b4d5d1605 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_4.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = -2 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F index d80796d59b..71aa61320a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_4_1.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F index dd76d006f4..082d501102 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_5.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F index fca6cde5f6..a0371260f1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_5_1.F,v 1.1 2008-09-17 04:42:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F index b1ee5c91e9..54abd8d01d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_6.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttrb + = 2 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F index bdeaae0e8a..9cf4fa6155 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_6_1.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F index ae4e1fb02f..93b449d134 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_7.F,v 1.1 2008-09-17 04:42:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrbt + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F index 441fae845c..3217a4f3ae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_10_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_10_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_10_7_1.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F index 4cf39b4f41..47ce3609e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = -2 * Sum ( p2 ) * trb ( p2 p10 h9 h13 )_trb * i2 ( p11 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F index 4fd6c8432c..2021f40eca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11_1.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra + = -1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h6 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F index ae9302554c..1eac8a5dc9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_11_2.F,v 1.1 2008-09-17 04:42:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtra + = 1/2 * Sum ( h7 h8 p6 ) * tra ( p6 p11 h7 h8 )_tra * v ( h7 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F index d24be510f9..0203068ac7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_12.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h5 h6 p3 ) * trb ( p3 p10 p11 h5 h6 h13 )_trb * i2 ( h5 h6 h9 p3 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F index 3853a11fb4..96b78397e7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_12_1.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtra + = -1 * Sum ( p7 ) * tra ( p7 h9 )_tra * v ( h5 h6 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F index 6bd6f526e8..b0ff8d4a9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_13.F,v 1.1 2008-09-17 04:42:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h6 p3 ) * trb ( p3 p10 p11 h6 h9 h13 )_trb * i2 ( h6 p3 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F index 637e796c85..b4104c93af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_13_1.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtra + = 1 * Sum ( h8 p7 ) * tra ( p7 h8 )_tra * v ( h6 h8 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F index 5a449fb66b..0ded2df018 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_14.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h4 ) * trb ( p10 p11 h4 h13 )_trb * i2 ( h4 h9 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F index 930c07ec81..ce6a8e7d35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_14_1.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtra + = 1 * Sum ( h8 p5 p6 ) * tra ( p5 p6 h8 h9 )_tra * v ( h4 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F index 72b14afec5..66ce6b6600 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15.F,v 1.1 2008-09-17 04:42:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 p11 h9 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F index a1e1c644eb..696f3579f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_1.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h2 p11 h9 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F index 38dd4af98d..b00f14ae40 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_1_1.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( h2 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F index 517b29ebb9..f2e86920e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_2.F,v 1.1 2008-09-17 04:42:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h9 h13 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F index 6a1be381d7..c6cd363c7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_2_1.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h13 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F index 9dbb2b99b9..3b8a46c93c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_3.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = -1 * Sum ( p6 ) * trb ( p6 p11 h9 h13 )_trb * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F index a30da5ac38..5f94fa3a2c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_3_1.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F index 127a6cfcb7..2cf2904547 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_4.F,v 1.1 2008-09-17 04:42:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h2 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F index f5ad15d564..127a47939c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_4_1.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h2 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F index c7ba5ae23c..af15e8c896 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_5.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F index fa04c40893..e3a4bd2518 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_5_1.F,v 1.1 2008-09-17 04:42:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h13 )_vtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F index 820713de08..4519603d7a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_6.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 h13 )_vtrbtra + = -1 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F index 9bafa57b1f..5778da0bdf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_15_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_15_6_1.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F index 93ac701993..d987c5a909 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtrat + = -2 * Sum ( h8 ) * t ( p10 p11 h8 h9 )_t * i2 ( h8 h13 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F index 5c95fa8541..91b6d4a57a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_1.F,v 1.1 2008-09-17 04:42:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F index e5422b5c67..2b5dcdb228 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_1_1.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F index d2a817502b..1fbc34cc5b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_2.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F index e39c86db79..e2b16dda28 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_16_2_1.F,v 1.1 2008-09-17 04:42:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F index 6bac7b9b89..499f009080 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrattrb + = -2 * Sum ( h8 ) * trb ( p10 p11 h8 h9 )_trb * i2 ( h8 h13 )_vtrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F index 46b00d7ec3..9d6e59e9c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_1.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrat + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F index 1e79e54f01..f4e2ab31d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_1_1.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F index 8689257865..6c30e8a902 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_2.F,v 1.1 2008-09-17 04:42:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttra + = 1 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F index 7fa364850e..0069d037b8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_17_2_1.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F index 25b5fd538f..b92d43e3bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vttrbtra + = -2 * Sum ( h8 ) * tra ( p10 p11 h8 h9 )_tra * i2 ( h8 h13 )_vttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F index 41eb80cb20..33d6fdde4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_1.F,v 1.1 2008-09-17 04:42:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vttrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i3 ( h8 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F index 9440876212..9bb9ec61c0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_1_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F index 1e3ec05b67..ff89e773fa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_2.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 )_vtrbt + = 1 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F index f307bcea16..4006ebb491 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_18_2_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F index 73cfda365c..37fde6dcb8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_1_1.F,v 1.1 2008-09-17 04:42:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h9 )_trb * v ( p10 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F index 6bce4d23ed..b0c35121b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_2.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 4 * Sum ( h4 p2 ) * tra ( p2 p10 h4 h13 )_tra * i2 ( h4 p11 h9 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F index 2e72e500f9..0b6d0a704a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_2_1.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb + = -1 * Sum ( p5 ) * trb ( p5 h9 )_trb * v ( h4 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F index 8660068905..30f1d2a564 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_2_2.F,v 1.1 2008-09-17 04:42:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtrb + = -1/2 * Sum ( h8 p6 ) * trb ( p6 p11 h8 h9 )_trb * v ( h4 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F index ba97532f16..fd30f68f7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_3.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( h7 ) * trb ( p10 h7 )_trb * i2 ( h7 p11 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F index f298fc9200..086cb76123 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_1.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h9 h13 )_tra * v ( h7 p11 p1 p2 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F index 6f36fcfa00..c5ee2aa330 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_2.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = -2 * Sum ( p1 ) * t ( p1 h13 )_t * i3 ( h7 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F index ade572ea3b..f901cc217c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_2_1.F,v 1.1 2008-09-17 04:42:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F index 56a4d8c7c7..0bb152649f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_3.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = 1/2 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h4 h7 h9 h13 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F index 1f5ac00a4c..8a4162b5fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_3_1.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h13 )_tra * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F index 24d94425e2..c064cfc7f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_4.F,v 1.1 2008-09-17 04:42:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = 2 * Sum ( p6 ) * tra ( p6 p11 h9 h13 )_tra * i3 ( h7 p6 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F index 0213500a0e..c7fb5d2a05 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_4_1.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F index 891226fe18..8c14ec5d35 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_5.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = -2 * Sum ( p1 ) * tra ( p1 h13 )_tra * i3 ( h7 p11 h9 p1 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F index 2e913ecc1f..e6121095b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_5_1.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p11 h9 p1 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h7 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F index 99e5e3a5e1..36c94198ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_6.F,v 1.1 2008-09-17 04:42:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vttra + = 1/2 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h4 h7 h9 h13 )_vt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F index fd478fb2bc..6206816c59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_6_1.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h9 h13 )_vt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h9 h13 )_t * v ( h4 h7 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F index 1368b48279..1f71d2e4c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_7.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h9 h13 )_vtrat + = 2 * Sum ( p6 ) * t ( p6 p11 h9 h13 )_t * i3 ( h7 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F index 6d030dfcb0..37397f4d70 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_3_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_3_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_3_7_1.F,v 1.1 2008-09-17 04:42:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 p6 )_vtra + = -1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h7 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F index 9a9b6eef4b..ed52d5fffd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_4.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = -2 * Sum ( p2 ) * tra ( p2 p10 h9 h13 )_tra * i2 ( p11 p2 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F index 53572d179e..438040a0b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_4_1.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb + = -1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h6 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F index 073e11aada..6c223d3f65 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_4_2.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p2 )_vtrb + = 1/2 * Sum ( h7 h8 p6 ) * trb ( p6 p11 h7 h8 )_trb * v ( h7 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F index 128616f8fd..be176ba501 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_5.F,v 1.1 2008-09-17 04:42:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h5 h6 p3 ) * tra ( p3 p10 p11 h5 h6 h13 )_tra * i2 ( h5 h6 h9 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F index 523be90045..a7bdc5b733 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_5_1.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_vtrb + = -1 * Sum ( p7 ) * trb ( p7 h9 )_trb * v ( h5 h6 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F index 5ecb40a655..f205a01dce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_6.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h6 p3 ) * tra ( p3 p10 p11 h6 h9 h13 )_tra * i2 ( h6 p3 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F index 82f764edfb..a1198c1bfa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_6_1.F,v 1.1 2008-09-17 04:42:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p3 )_vtrb + = 1 * Sum ( h8 p7 ) * trb ( p7 h8 )_trb * v ( h6 h8 p3 p7 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F index 296ac937e2..445bff4f73 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_7.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtrbtra + = 1 * Sum ( h4 ) * tra ( p10 p11 h4 h13 )_tra * i2 ( h4 h9 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F index 8fa34a4dfb..3d0844539f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_7_1.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vtrb + = 1 * Sum ( h8 p5 p6 ) * trb ( p5 p6 h8 h9 )_trb * v ( h4 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F index 556b12f54d..bc61b6b833 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_8.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h13 )_trb * i2 ( p10 p11 h9 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F index 5cccee3f6a..668ca4f46e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_8_1.F,v 1.1 2008-09-17 04:42:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p10 p11 h9 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h9 )_tra * v ( p10 p11 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F index 7bfa7d0f09..1835fb589b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_5_9.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p11 h9 h13 )_vtratrb + = 4 * Sum ( h4 p2 ) * trb ( p2 p10 h4 h13 )_trb * i2 ( h4 p11 h9 p2 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F index 2cf4c4f46c..31e4af448f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_9_1.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra + = -1 * Sum ( p5 ) * tra ( p5 h9 )_tra * v ( h4 p11 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F index df8ac48664..b2faed6cda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_5_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_5_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_5_9_2.F,v 1.1 2008-09-17 04:42:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h9 p2 )_vtra + = -1/2 * Sum ( h8 p6 ) * tra ( p6 p11 h8 h9 )_tra * v ( h4 h8 p2 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F index fc998b62f5..3b534f924d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_6.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = 1/4 * Sum ( h13 p10 h11 h12 ) * i1 ( h13 p10 h11 h12 )_ytratrb * v ( h11 h12 h13 p10 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F index 0ff8f3f525..e3f349a569 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_1.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h13 h11 h12 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F index 12d86140ae..5b5a299815 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_10.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = -1/2 * Sum ( p5 p6 ) * tra ( p5 p6 h11 h12 )_tra * i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F index 6917ad9e0b..1b1e34fc7f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_10_1.F,v 1.1 2008-09-17 04:42:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p10 h3 h4 )_trb * y ( h3 h4 h13 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F index efd3737ff5..2a0164c5cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_11.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p10 h7 h12 )_tra * i2 ( h7 h13 h11 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F index 6fb555a0cc..299081f293 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_11_1.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h7 h13 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F index 9c3b53ee39..6dbf2cd784 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12.F,v 1.1 2008-09-17 04:42:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbttra + = 1 * Sum ( p1 ) * tra ( p1 h11 )_tra * i2 ( h13 p10 h12 p1 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F index 24ed015866..c0afda2125 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_1.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbt + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F index 39937a5312..b7d97ca168 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_1_1.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F index 326f7a5e65..22cf47c092 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_2.F,v 1.1 2008-09-17 04:42:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F index 11df7c8058..7420d62391 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_12_2_1.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F index c7ad422696..4391ca67c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtrat + = -2 * Sum ( h2 ) * t ( p10 h2 )_t * i2 ( h2 h13 h11 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F index bc3baca051..c8a6fa6219 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1.F,v 1.1 2008-09-17 04:42:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h2 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F index a74108db38..d1e1b1544b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1_1.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h2 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F index a7f208674a..70fbae3fef 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_1_2.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h7 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F index eda1ab01c3..32cb02cb80 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2.F,v 1.1 2008-09-17 04:42:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h13 h11 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h2 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F index 7f2cb4d1a9..e591fee10b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2_1.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h2 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F index 7ca6b1da72..b84d273993 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_13_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_13_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_13_2_2.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h13 h12 p3 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h7 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F index dd2b51bc92..e07d375498 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrbt + = 1 * Sum ( p1 ) * t ( p1 h11 )_t * i2 ( h13 p10 h12 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F index fd26a37071..13577aa3c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_1.F,v 1.1 2008-09-17 04:42:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F index 1883086233..761a12974e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_1_1.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F index 22b9d3eeab..bb78c8624a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_2.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F index 7b2a8ad7ba..a01c2c9d98 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_14_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_14_2_1.F,v 1.1 2008-09-17 04:42:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F index b4157c4144..9d6b49e191 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_yttratrb + = 1 * Sum ( p1 ) * trb ( p1 h11 )_trb * i2 ( h13 p10 h12 p1 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F index a4c6144574..be2eda70e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_1.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_yttra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h7 h8 h13 h12 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F index d0651590a2..a20a0d99c1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_1_1.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_yt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F index 85d2a0a5d7..1ec08de5b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_2.F,v 1.1 2008-09-17 04:42:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 h12 p1 )_ytrat + = 1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * i3 ( h7 h8 h13 h12 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F index c55558c4d4..dd0b8241ad 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_15_2_1.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h13 h12 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h7 h8 h13 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F index 141b8f91c5..7ed1a5cc3b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_1.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra + = -1 * Sum ( p1 p2 ) * tra ( p1 p2 h11 h12 )_tra * y ( h8 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F index 3449a9cee0..962655241a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_2.F,v 1.1 2008-09-17 04:42:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytra + = -1/3 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h11 h12 )_tra * y ( h4 h8 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F index ee197fa224..be20775e4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrat + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F index b717d86403..a0c0f94ecc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3_1.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F index 30d1cba602..d9794360cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_3_2.F,v 1.1 2008-09-17 04:42:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F index 11a4141158..38abc32610 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_yttra + = -2 * Sum ( p3 ) * tra ( p3 h11 )_tra * i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F index 9c2f334d2a..8c346606f8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4_1.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F index 1c0e597218..e46362912c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_1_4_2.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F index 5ecaa3979f..09eb9c8af8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_2.F,v 1.1 2008-09-17 04:42:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 4 * Sum ( h3 p1 ) * tra ( p1 p10 h3 h11 )_tra * i2 ( h3 h13 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F index 642015df24..c48c84bc7d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_2_1.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h3 h13 p1 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F index d7f3e8b3c8..92a2a6c286 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_3.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 2 * trb ( p10 h12 )_trb * i2 ( h13 h11 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F index 12e094a1b7..9dc869472b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_3_1.F,v 1.1 2008-09-17 04:42:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F index e970cba297..cbc1386c56 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_3_2.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytra + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h11 )_tra * y ( h4 h5 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F index 70587e98e2..38bd30a6b3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_4.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p10 h4 h5 h11 )_trb * i2 ( h4 h5 h13 h12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F index 86904f8491..ec9876563a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h13 h12 p1 p2 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h12 )_tra * i3 ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F index fe52b7f500..2ad24e7e41 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1_1.F,v 1.1 2008-09-17 04:42:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y + = 1 * y ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F index 9d51c768e9..b45ece9d17 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_4_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lr_beta_2_6_4_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_4_1_2.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h13 p1 p2 p7 )_y + = 1 * y ( h4 h5 h13 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F index 304baff160..ae95b23666 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_5.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtrb + = -1/2 * Sum ( p5 p6 ) * trb ( p5 p6 h11 h12 )_trb * i2 ( h13 p10 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F index 846ba5cecf..5865b05740 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_5_1.F,v 1.1 2008-09-17 04:42:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p10 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p10 h3 h4 )_trb * y ( h3 h4 h13 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F index d1cf3a4448..a11d63cbcb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_6.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p10 h7 h12 )_trb * i2 ( h7 h13 h11 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F index 8bfbe4db20..29756b6379 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_6_1.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h13 h11 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h11 )_tra * y ( h3 h7 h13 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F index dda01391ca..dd4e687273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_7.F,v 1.1 2008-09-17 04:42:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p10 h8 )_tra * i2 ( h8 h13 h11 h12 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F index 0a77f36395..6ec50f6fcb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_1.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb + = -1 * Sum ( p1 p2 ) * trb ( p1 p2 h11 h12 )_trb * y ( h8 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F index 21297fc352..c85af658fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_2.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrb + = -1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h11 h12 )_trb * y ( h4 h8 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F index 51e0593cfd..89591069e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_yttrb + = -2 * Sum ( p3 ) * trb ( p3 h11 )_trb * i3 ( h8 h13 h12 p3 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F index b1349cde3f..21da35edfa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3_1.F,v 1.1 2008-09-17 04:42:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F index 1f04ff65d3..a330a997bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_3_2.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h12 )_t * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F index e369759240..f60ac4525c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 h11 h12 )_ytrbt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h8 h13 h12 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F index d50ced9972..c569594d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4_1.F,v 1.1 2008-09-17 04:42:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * y ( h8 h13 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F index 355db12e89..e44b04c050 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_7_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_7_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_7_4_2.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h13 h12 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h7 h8 h13 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F index d58b2a2a78..d3eb8fe035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_8.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytratrb + = 4 * Sum ( h3 p1 ) * trb ( p1 p10 h3 h11 )_trb * i2 ( h3 h13 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F index 77f86d9cf1..ea3b2f97ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_8_1.F,v 1.1 2008-09-17 04:42:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 h12 p1 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * y ( h3 h13 p1 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F index ae224c4817..1354e269db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_6_9.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p10 h11 h12 )_ytrbtra + = 2 * tra ( p10 h12 )_tra * i2 ( h13 h11 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F index 1351776f83..bb1c80c180 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_9_1.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h11 )_trb * y ( h3 h13 p1 p2 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F index 9c8c38a466..c33871ba89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_6_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_6_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_6_9_2.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h11 )_ytrb + = -1/6 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h11 )_trb * y ( h4 h5 h13 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F index d039444b6e..93c05acf88 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_7.F,v 1.1 2008-09-17 04:42:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = 1/4 * Sum ( p2 p5 p7 p8 ) * i1 ( p2 p5 p7 p8 )_ytratrb * v ( p7 p8 p2 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F index f7e9df4057..2fbffdc778 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_7_1.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytratrb + = 1 * Sum ( h6 ) * trb ( p5 h6 )_trb * i2 ( h6 p2 p7 p8 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F index be0b217d10..c69e4edde0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_7_1_1.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p2 h3 h4 )_tra * y ( h3 h4 h6 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F index 6eed090189..4dc20a3991 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_7_2.F,v 1.1 2008-09-17 04:42:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p5 p7 p8 )_ytrbtra + = 1 * Sum ( h6 ) * tra ( p5 h6 )_tra * i2 ( h6 p2 p7 p8 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F index 10f3fac701..b0806e58c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_7_2_1.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p2 p7 p8 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p2 h3 h4 )_trb * y ( h3 h4 h6 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F index 972e3b10e4..ede77c2dde 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_8.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrav + = -1/4 * Sum ( p11 p12 h14 h15 ) * i1 ( p11 p12 h14 h15 )_ytrbtra * v ( h14 h15 p11 p12 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F index 12dd8c3782..47b5d3b908 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_1.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 h5 p1 ) * tra ( p1 p11 p12 h4 h5 h14 )_tra * i2 ( h4 h5 h15 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F index a18ffda9d1..7b18dcbf26 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_10.F,v 1.1 2008-09-17 04:42:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/2 * Sum ( h4 p1 p2 ) * trb ( p1 p2 p11 h4 h14 h15 )_trb * i2 ( h4 p12 p1 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F index 33f2c57537..39a723ac4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_10_1.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * y ( h4 h9 h10 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F index 0a2fca8ef3..aa76561038 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_11.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = -1 * Sum ( h9 p7 ) * tra ( p7 p12 h9 h15 )_tra * i2 ( h9 p11 h14 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F index 79eac7795d..cb18f9da3e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_11_1.F,v 1.1 2008-09-17 04:42:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F index c3a7a3a0df..cbf990db52 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_12.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( h9 ) * tra ( p11 p12 h9 h15 )_tra * i2 ( h9 h14 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F index 498b4e19dc..86ce724aa3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_12_1.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h5 h14 )_trb * y ( h4 h5 h9 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F index aa12c0b4f4..d79e74c633 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13.F,v 1.1 2008-09-17 04:42:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/12 * Sum ( h2 h13 h4 p6 ) * trb ( p6 p11 p12 h2 h4 h13 )_trb * i2 ( h2 h4 h13 h14 h15 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F index 400887b490..f6462393ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_1.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytra + = -1 * Sum ( p7 p8 ) * tra ( p7 p8 h14 h15 )_tra * y ( h2 h4 h13 p6 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F index 0227c6f7b0..fa80dd0196 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_2.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrat + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F index c03f59293a..1806d27379 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_2_1.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F index 2f9f553395..f1b6171bd0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_3.F,v 1.1 2008-09-17 04:42:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_yttra + = -2 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F index d7934a2fda..75d25d2567 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_13_3_1.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F index 67335f1ac3..3c24895b07 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_14.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/6 * Sum ( p7 ) * tra ( p7 p12 h14 h15 )_tra * i2 ( p11 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F index 7f2d1baa0f..466afd64a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_14_1.F,v 1.1 2008-09-17 04:42:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p11 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F index cea8d4d1de..e10171fe44 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = 1/2 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h14 h15 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F index 1e8c77b679..5b6e118c9a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F index 087d039e39..6a911730d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_1.F,v 1.1 2008-09-17 04:42:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F index 834cd36361..3ed164c8e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_2.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F index 0a87389829..6f476064d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2_1(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_lr_beta_2_8_15_1_2_1.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F index b4c372c1ec..715231608d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_2_2(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_lr_beta_2_8_15_1_2_2.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F index 5bbe3d07d4..4cec25dd3d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3.F,v 1.1 2008-09-17 04:42:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F index e06537b280..c4cb776a34 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3_1.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F index 96813ca865..08494e4719 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_1_3_2.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F index 12d4b9a01d..22ce6f1641 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_2.F,v 1.1 2008-09-17 04:42:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F index b63d895641..bc64df18d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_2_1.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F index 9e36023f9f..771f22e7a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_3.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F index 195ee6bb39..df5c7b2b01 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_3_1.F,v 1.1 2008-09-17 04:42:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F index 881a3667aa..e77f89ce84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbt + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F index ff7716b9c6..96486c1b01 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_1.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F index a3e73bf62b..0b8d742570 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F index a167c75019..6f4896e532 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2_1.F,v 1.1 2008-09-17 04:42:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F index 9837006338..63cce4f938 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_2_2.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F index 9a1739e497..bf0ba69d98 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F index 3d2d2073c7..e997434c11 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3_1.F,v 1.1 2008-09-17 04:43:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F index b17a08704b..3cc9066f28 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_4_3_2.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F index 413193ad42..54e84ff44f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_5.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F index 49feee73f9..8d8ef1856d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_5_1.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F index dd4ccc9ed5..b27db77708 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_6.F,v 1.1 2008-09-17 04:43:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F index 806e977d6d..b13d0b3af1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_6_1.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F index a0ce65f5b2..3e47eaa327 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytttrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F index c4aa5648e7..8dcaad0810 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7_1.F,v 1.1 2008-09-17 04:43:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F index 05ac8662e8..56c8b4f58b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_7_1_1.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F index 4343197154..6a2e8022ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F index 773adfff76..fdd2200f38 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_1.F,v 1.1 2008-09-17 04:43:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F index 532f01b8b7..d0938e8c36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_1_1.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F index 567d659f25..d934848f90 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_2.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F index be6e94bca7..2aeadbf65e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_15_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_15_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_15_8_2_1.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F index 4e08e9ab58..f2a3cc1942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16.F,v 1.1 2008-09-17 04:43:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -1/3 * trb ( p12 h14 )_trb * i2 ( p11 h15 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F index 3ffe8bc4d1..2fca0826af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_1.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F index fc3e0c248e..280d6aa1d7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_1_1.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt + = 1 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h8 h9 h15 )_t * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F index 66a750dd4a..5abdf198f2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_2.F,v 1.1 2008-09-17 04:43:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrat + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F index 38afa24890..c70aa54578 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_16_2_1.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F index 7c79018589..6bbab25c3c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/6 * Sum ( h8 h9 h10 p5 ) * t ( p5 p11 p12 h8 h9 h10 )_t * i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F index cea73a7c6c..d109edf813 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_1.F,v 1.1 2008-09-17 04:43:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F index 34472031e8..c8850725a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_1_1.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F index d01ca7e479..3b9bc61b96 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_2.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h14 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F index 725bc24a7c..5e301864cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_17_2_1.F,v 1.1 2008-09-17 04:43:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F index fdfa3ec639..92e420bd1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = -1/3 * trb ( p11 h15 )_trb * i2 ( p12 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F index aa0963a624..19f5c394d1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_1.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrat + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F index b0e5b5710e..79b5e56fed 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_1_1.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F index 3be330c8e8..5ab4a8e678 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_2.F,v 1.1 2008-09-17 04:43:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F index c7e1e7cc69..595d15681e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_18_2_1.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F index 7f3f26007a..0e56e07498 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/2 * Sum ( h10 ) * t ( p12 h10 )_t * i2 ( h10 p11 h14 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F index d9fe71277c..d8812be40f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_1.F,v 1.1 2008-09-17 04:43:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F index ad906a3360..1fa3b770b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_1_1.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F index 0106fdad61..71bca6e51d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_2.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F index f5ee7ed7bb..65f24273ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_2_1.F,v 1.1 2008-09-17 04:43:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F index 243abca279..1292d0a70d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_3.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F index 760526d28b..b268799bb5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_3_1.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F index 45be750034..80f4affd05 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_4.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F index 1f525d8769..4b72a8afee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_19_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_19_4_1.F,v 1.1 2008-09-17 04:43:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F index cf3fd7acae..5792c1f4af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_1_1.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h4 h5 p1 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F index 10089f63f9..e9812a9a58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_1_2.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytrb + = 1/2 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h4 h5 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F index 42f9adc5fb..7f39775f93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_2.F,v 1.1 2008-09-17 04:43:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = -1/4 * Sum ( h7 h8 ) * tra ( p11 p12 h7 h8 )_tra * i2 ( h7 h8 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F index 286d9abddc..d531c614b0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h14 )_trb * i2 ( h7 p11 h15 p5 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F index 735e1974d3..671be2d5a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_1.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F index 1988c17a8f..c80ceafdc7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_1_1.F,v 1.1 2008-09-17 04:43:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F index 2757fe15ff..1958a3fc75 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_2.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F index 2cf2947c1b..f312ec51e0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_20_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_20_2_1.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F index b969edede8..668c4bd8eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1 * t ( p12 h15 )_t * i2 ( p11 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F index 842afebf10..4b971668b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_1.F,v 1.1 2008-09-17 04:43:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F index 9c29bf03f7..74de419219 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_1_1.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h14 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F index 09e396a45b..c65a3ba429 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_2.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F index 8ec9acb716..0c6e1de183 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_21_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_21_2_1.F,v 1.1 2008-09-17 04:43:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h14 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F index e0a5db7a9c..87fc7410c6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = 1/2 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 p12 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F index a15fc12bc3..1e9c8905b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F index e16d862f90..e876231312 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10.F,v 1.1 2008-09-17 04:43:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h14 )_trb * i3 ( h2 p12 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F index 059e531f42..76f2bcda1a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F index 786b88d29b..f97c77590c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_1_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_1_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F index a53a310a8b..4265a8be66 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_2.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F index 3786102b08..dbee46580c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_10_2_1.F,v 1.1 2008-09-17 04:43:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F index dded779abd..d6b7f10b4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_1.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F index 743390d583..e78a4c60fe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_2.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h14 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F index e391af5f05..aada179e84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3.F,v 1.1 2008-09-17 04:43:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F index 48e2074ba6..60b03dc509 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3_1.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F index 229dd32dde..f6e8ca98a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_3_2.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F index 3a0b5f80b0..2cd716d5a5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4.F,v 1.1 2008-09-17 04:43:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F index 1646177136..40b174f892 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4_1.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F index 7b63b522a5..6a968805d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_1_4_2.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F index e9f59ef754..dab414a240 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_2.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p12 h7 h15 )_trb * i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F index 8c14e9885e..de309751be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_2_1.F,v 1.1 2008-09-17 04:43:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F index c4db4bf704..5cf22121d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_3.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F index f0ce3d6fac..20e968f48e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_3_1.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F index 7fdc9b4cfe..480351e29c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4.F,v 1.1 2008-09-17 04:43:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F index b5c2ab1446..aa4a316951 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_1.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F index 43e65ea10e..eb65ef0c33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_2.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h14 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F index f570348aab..27ef41f269 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3.F,v 1.1 2008-09-17 04:43:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F index c21271f345..e1053b767d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3_1.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F index a2bd87141d..bd62e96ad5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_3_2.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F index c5a5f5a02b..c3824cc258 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F index ec2cb075e9..ff7947c2bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4_1.F,v 1.1 2008-09-17 04:43:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F index 51de0c5119..b0d11e9381 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_4_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_4_4_2.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F index bf371f0d75..312708a84c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_5.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F index e715269ca6..549b90df5b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_5_1.F,v 1.1 2008-09-17 04:43:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F index d0460d504c..653d587b4b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_6.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F index e497ecd5c3..bfa85a9aca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_6_1.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h14 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F index 52259335f1..a348b69280 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7.F,v 1.1 2008-09-17 04:43:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F index 053573111a..5a80b04246 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_1.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F index 8684aa2af1..6e60d6e185 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_1_1.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F index 87df4e3380..928c0789ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_2.F,v 1.1 2008-09-17 04:43:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F index 4010c91409..1e899e4fcc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_7_2_1.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F index ce8a2e2aae..8889f7d858 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F index 280c25a816..dc5e156c32 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1.F,v 1.1 2008-09-17 04:43:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F index 3f7840e7be..c60b3b4026 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1_1.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F index 5b02ffa0ab..8385b4087f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_1_2.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F index e4a3d7ee31..8e2232626c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h14 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F index 69fc03683d..30f47e417d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2_1.F,v 1.1 2008-09-17 04:43:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F index ee31b20346..6f9857d344 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_8_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_8_2_2.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F index 9c623182b5..29fe8db065 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F index 2d5dfa3c3f..511da063db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_1.F,v 1.1 2008-09-17 04:43:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F index 32aee76708..3f41de01bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_1_1.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F index 9b01ca9e41..a135725bd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_2.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F index 46c274a015..31e696018a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_22_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_22_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_22_9_2_1.F,v 1.1 2008-09-17 04:43:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F index 237bacbc89..79548950e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/3 * tra ( p12 h14 )_tra * i2 ( p11 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F index f9e141c07e..fa1e8508c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_1.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbt + = 1 * Sum ( h2 ) * t ( p11 h2 )_t * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F index 2bffab1f49..3da1f99d06 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_1_1.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F index c0407ad6db..1af49e8f25 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_2.F,v 1.1 2008-09-17 04:43:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_yttrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F index 40a6c9c397..fb8e1fa856 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_23_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_23_2_1.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_yt + = 1 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h8 h9 h15 )_t * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F index 2c4e4f010f..76353e357a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = -1/3 * tra ( p11 h15 )_tra * i2 ( p12 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F index a32012b3d0..c9d8223f2e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_1.F,v 1.1 2008-09-17 04:43:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_yttrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F index a1602c2d8b..c917cbacb9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_1_1.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_yt + = 1 * Sum ( p1 ) * t ( p1 h14 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F index 21b9cbce46..9083ddeaff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_2.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbt + = 1 * Sum ( h8 h9 h10 p5 p6 ) * t ( p5 p6 p12 h8 h9 h10 )_t * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F index 6e258dd7dd..27ab0e4d2e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_24_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_24_2_1.F,v 1.1 2008-09-17 04:43:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F index 05d4865100..bae20d9b44 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttratrb + = -1/2 * Sum ( h10 ) * trb ( p12 h10 )_trb * i2 ( h10 p11 h14 h15 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F index d2e78cd316..fdd2086936 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_1.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F index b4b4819ba9..542876d926 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_1_1.F,v 1.1 2008-09-17 04:43:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F index cc66d72104..7fdfc14fba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_2.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttra + = 4 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h15 )_tra * i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F index 856a788f0d..cf8a704de7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_2_1.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F index b10c62ce17..c173643d95 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_3.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrat + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F index 21ddf89fae..50f4f5a0ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_3_1.F,v 1.1 2008-09-17 04:43:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F index 608c91ce8a..464b153c18 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_4.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrat + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F index 22dc47947d..50d0ea462a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_25_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_25_4_1.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F index 10fc7a2c54..b402fc34a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26.F,v 1.1 2008-09-17 04:43:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -2 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h14 )_tra * i2 ( h7 p11 h15 p5 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F index 1c2c90e214..fe5f624d1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_1.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F index 7cefacefca..3cd8e2ee56 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_1_1.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F index 2e4e4f493c..9aef267645 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_2.F,v 1.1 2008-09-17 04:43:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F index 9c55b9a2c4..800900a017 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_26_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_26_2_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_yt + = -1 * Sum ( p9 ) * t ( p9 h15 )_t * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F index cea163b91f..591b8bd398 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = -1 * trb ( p12 h15 )_trb * i2 ( p11 h14 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F index ad7e48141a..9c0496faa5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrat + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F index 9708ee2d1a..23dcf1050f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_1_1.F,v 1.1 2008-09-17 04:43:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h14 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F index 93496f98d0..2d31f51276 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_2.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F index 84f61f8164..2230c8437a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_27_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_27_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_27_2_1.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F index be82e1d95c..eac6639189 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28.F,v 1.1 2008-09-17 04:43:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrattrb + = 1/2 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h14 h15 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F index 33359915c0..0b1b597acd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 1 * Sum ( h4 ) * t ( p12 h4 )_t * i3 ( h2 h4 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F index 81d7c2641c..81f878a875 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_1.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F index 597b219c49..4f025a12bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_2.F,v 1.1 2008-09-17 04:43:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h14 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F index 9d069fc805..14dd09243f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F index 94e2f9cd93..1b410ac5e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3_1.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F index 7b344637eb..a4a1aa0ea9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_3_2.F,v 1.1 2008-09-17 04:43:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F index 4d8f8706e3..bd51e10103 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h14 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F index c7bbd69baf..528d7c1035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4_1.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F index 3046b087a9..b240aae1fc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_1_4_2.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F index b1e62f64a4..390573956f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_2.F,v 1.1 2008-09-17 04:43:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 8 * Sum ( h7 p5 ) * tra ( p5 p12 h7 h15 )_tra * i3 ( h2 h7 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F index ee1d125852..da0bcadb27 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_2_1.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F index 54683e3169..fa8dd1b306 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_3.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h14 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F index e61459d1eb..9e3db136e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_3_1.F,v 1.1 2008-09-17 04:43:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h14 )_t * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F index 628e527f3a..da4b7a7853 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttra + = 1 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h14 h15 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F index 172b70209d..91c969c6b6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_1.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F index da800980ca..c5490048a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_2.F,v 1.1 2008-09-17 04:43:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h8 h14 h15 )_t * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F index 7c305f8e6f..ec82fe1346 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h14 h15 )_ytt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F index f58c5ae200..6921fe76ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3_1.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F index 4db0ce0c27..429e00a0c0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_4_3_2.F,v 1.1 2008-09-17 04:43:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F index 6d7d503a8c..82f94e1748 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_5.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 8 * Sum ( h7 p5 ) * t ( p5 p12 h7 h15 )_t * i3 ( h2 h7 h14 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F index b7a178a42a..3290f4cc3e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_5_1.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h14 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F index 020a8d06e5..8f652fb044 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_6.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytrat + = 2 * Sum ( h8 h9 p5 p6 ) * t ( p5 p6 p12 h8 h9 h15 )_t * i3 ( h2 h8 h9 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F index 09e7bcb5e8..6b1e95512b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_6_1.F,v 1.1 2008-09-17 04:43:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h14 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h14 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F index 08f062bfaf..6c5d1c4f89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_yttrat + = -2 * Sum ( p3 ) * t ( p3 h14 )_t * i3 ( h2 p12 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F index 9535f129a6..381ae581f0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_1.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p12 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F index 836b95b6d6..a405308672 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_1_1.F,v 1.1 2008-09-17 04:43:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F index adafff28ed..b6b86da04e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_2.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F index 460ce85333..6a43d47100 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_7_2_1.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F index e8414d1307..e7c5135ae0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8.F,v 1.1 2008-09-17 04:43:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h14 h15 )_ytttra + = -2 * Sum ( p3 ) * tra ( p3 h14 )_tra * i3 ( h2 p12 h15 p3 )_ytt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F index 74793f13e1..175f67b043 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8_1.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h15 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p12 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F index f39499ff07..ba38584d73 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_28_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_28_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_28_8_1_1.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F index cb013e5353..c653d03c94 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29.F,v 1.1 2008-09-17 04:43:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -1/3 * t ( p12 h14 )_t * i2 ( p11 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F index 8c81341bc2..ae6ed941f5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F index af35fe0258..bd4491579a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_1_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F index bf94e09b6c..9911ed64c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_2.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F index f142b91078..ab2583279d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_29_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_29_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_29_2_1.F,v 1.1 2008-09-17 04:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F index 3aaead214d..6364a8258b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_1.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F index 1b4da48396..6bce0f1f47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_2.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrb + = 1/3 * Sum ( h4 p1 p2 p3 ) * trb ( p1 p2 p3 h4 h14 h15 )_trb * y ( h4 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F index d05bc1e81e..808ec910fc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_3.F,v 1.1 2008-09-17 04:43:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_yttrb + = 2 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F index 316eba1dbc..4b12ecb012 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_3_1.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt + = 1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F index 9e164d6e14..9411f90367 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_4.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbt + = 2 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F index 2735df3a0e..c4b2036cf8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_2_4_1.F,v 1.1 2008-09-17 04:43:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F index 789dbc45d5..e20329f3e4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_3.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/2 * Sum ( h4 p1 p2 ) * tra ( p1 p2 p11 h4 h14 h15 )_tra * i2 ( h4 p12 p1 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F index 0983645f05..dd6c947ec7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/3 * t ( p11 h15 )_t * i2 ( p12 h14 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F index 9ed1d90de7..69e618874c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_1.F,v 1.1 2008-09-17 04:43:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p12 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h14 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F index 1940c15611..e16d0db2f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_1_1.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h14 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F index 0a0a6860f2..2688bc220d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_2.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p12 h14 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p12 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h14 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F index 604745ff04..4a004b3610 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_30_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_30_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_30_2_1.F,v 1.1 2008-09-17 04:43:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h14 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h14 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F index 1cf4e3d739..4a06aac3c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbttra + = -1/2 * Sum ( h10 ) * tra ( p12 h10 )_tra * i2 ( h10 p11 h14 h15 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F index 44af1c9813..167ed28699 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_1.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h14 h15 )_t * i3 ( h10 p11 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F index e816c081ee..bfb10f8cc4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_1_1.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F index 9b73674acc..d42b54721d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_2.F,v 1.1 2008-09-17 04:43:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_ytrbt + = 4 * Sum ( h7 p5 ) * t ( p5 p11 h7 h15 )_t * i3 ( h7 h10 h14 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F index 2f3c0da72c..ac5ef2e198 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_2_1.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F index 59a98ff574..a2ad1672ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_3.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h14 h15 )_trb * i3 ( h10 p11 p5 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F index 68fb4abde9..6ccb330828 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_3_1.F,v 1.1 2008-09-17 04:43:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p11 p5 p6 )_yt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F index 8ba84549ec..67216e3268 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_4.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p11 h14 h15 )_yttrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h15 )_trb * i3 ( h7 h10 h14 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F index 7ff8986c58..4231b5b885 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_31_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_31_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_31_4_1.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h14 p5 )_yt + = -1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F index 1204db69ea..bf7b28eb0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32.F,v 1.1 2008-09-17 04:43:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrbt + = -2 * Sum ( h7 p5 ) * t ( p5 p12 h7 h14 )_t * i2 ( h7 p11 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F index 1d933c0194..323ad2f765 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_1.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F index 9d24149447..09e7cb6fb7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_1_1.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F index fb0056bd25..33aaf74ccd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_2.F,v 1.1 2008-09-17 04:43:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p11 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p11 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F index 603992536e..8433f938c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_32_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_32_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_32_2_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F index 4ed06fccfc..3cc0b4e233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtrat + = -1/2 * Sum ( h7 h8 ) * t ( p11 p12 h7 h8 )_t * i2 ( h7 h8 h14 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F index 05d4d4b9e4..f9a966a49b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F index 052519a3cd..c0317758b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_1_1.F,v 1.1 2008-09-17 04:43:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h14 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F index 2c33a6135e..490346ada9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_2.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F index d669230719..48b75c8e9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_33_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_33_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_33_2_1.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F index eb3b04579a..b38eef2ccd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34.F,v 1.1 2008-09-17 04:44:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_yttrbtra + = -1 * tra ( p12 h15 )_tra * i2 ( p11 h14 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F index e067f4ca6c..7fd776d47b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_1.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_yttrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p11 h3 h4 )_trb * i3 ( h3 h4 h14 p1 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F index 356983fd97..336c015abc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_1_1.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h14 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F index c40ffd6771..0489fea479 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_2.F,v 1.1 2008-09-17 04:44:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 h14 )_ytrbt + = 1 * Sum ( h3 h4 p1 ) * t ( p1 p11 h3 h4 )_t * i3 ( h3 h4 h14 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F index 9d52d101e9..a0eb2dc2b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_34_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_34_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_34_2_1.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h14 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h14 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F index c0d6c12086..f250abd1a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_3_1.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p12 p1 p2 )_ytrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p12 h9 h10 )_trb * y ( h4 h9 h10 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F index d3919d72d8..772bdc3f8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_4.F,v 1.1 2008-09-17 04:44:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = -1/12 * Sum ( h7 h8 ) * trb ( p11 p12 h7 h8 )_trb * i2 ( h7 h8 h14 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F index c2d75b4161..444a522134 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_1.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra + = 1 * Sum ( h4 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h14 h15 )_tra * y ( h4 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F index 5227da6784..7bf27edcec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_2.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytra + = 3 * Sum ( p5 p6 ) * tra ( p5 p6 h14 h15 )_tra * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F index 5ece7fe121..7ab425dbac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_3.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_ytrat + = 6 * Sum ( p9 ) * t ( p9 h15 )_t * i3 ( h7 h8 h14 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F index 166353f2e0..9fee440a47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_3_1.F,v 1.1 2008-09-17 04:44:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h14 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F index 912d553cdf..f01f5f33ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_4.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h14 h15 )_yttra + = 6 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h14 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F index 2476ab2870..f19cb5d464 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_4_4_1.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h14 p9 )_yt + = 1 * Sum ( h3 p1 p2 ) * t ( p1 p2 h3 h14 )_t * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F index 026e8b7b8a..879bbbcf26 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_5.F,v 1.1 2008-09-17 04:44:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = -1 * Sum ( h9 p7 ) * trb ( p7 p12 h9 h15 )_trb * i2 ( h9 p11 h14 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F index a07d303193..2cc728cb21 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_5_1.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p11 h14 p7 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F index 8a92717f72..9fff1ee9a4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_6.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( h9 ) * trb ( p11 p12 h9 h15 )_trb * i2 ( h9 h14 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F index e1214cd456..da8dc87821 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_6_1.F,v 1.1 2008-09-17 04:44:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 )_ytra + = 1 * Sum ( h4 h5 p1 p2 p3 ) * tra ( p1 p2 p3 h4 h5 h14 )_tra * y ( h4 h5 h9 p1 p2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F index 97cd42ac57..224805ea1b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_7.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytrbtra + = 1/12 * Sum ( h2 h13 h4 p6 ) * tra ( p6 p11 p12 h2 h4 h13 )_tra * i2 ( h2 h4 h13 h14 h15 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F index f956950408..d432a1dacd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_1.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrb + = -1 * Sum ( p7 p8 ) * trb ( p7 p8 h14 h15 )_trb * y ( h2 h4 h13 p6 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F index 2fe87d1cb6..c3e73e677f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_2.F,v 1.1 2008-09-17 04:44:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_yttrb + = -2 * Sum ( p1 ) * trb ( p1 h14 )_trb * i3 ( h2 h4 h13 h15 p1 p6 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F index c27bb17d92..2a557c0d2f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_2_1.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_yt + = 1 * Sum ( p3 ) * t ( p3 h15 )_t * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F index 3d838d7411..ae150d7e1c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_3.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h13 h14 h15 p6 )_ytrbt + = -2 * Sum ( p1 ) * t ( p1 h14 )_t * i3 ( h2 h4 h13 h15 p1 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F index 07faf570f8..d3a7974c09 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_7_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_7_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_7_3_1.F,v 1.1 2008-09-17 04:44:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h13 h15 p1 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h2 h4 h13 p1 p3 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F index bbc929b6e7..6c7a765f0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_8.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1/6 * Sum ( p7 ) * trb ( p7 p12 h14 h15 )_trb * i2 ( p11 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F index b7b4bdc495..c66a81d150 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_8_1.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p11 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F index 4ee2f90f7c..d6aa44902c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_8_9.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h14 h15 )_ytratrb + = 1 * Sum ( h4 h5 p1 ) * trb ( p1 p11 p12 h4 h5 h14 )_trb * i2 ( h4 h5 h15 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F index 07dfd9c214..551c286f22 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_9_1.F,v 1.1 2008-09-17 04:44:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h4 h5 p1 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F index a39d1ab43a..cc75b3e18f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_8_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_8_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_8_9_2.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h15 p1 )_ytra + = 1/2 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h4 h5 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F index b5bdda7fc6..1154552370 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_2_9.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytratrbv + = -1/4 * Sum ( p13 p11 h10 p9 ) * i1 ( p11 p13 h10 p9 )_ytratrb * v ( h10 p9 p11 p13 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F index 57a269c599..faef2c28bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_1.F,v 1.1 2008-09-17 04:44:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = 1 * Sum ( h8 ) * trb ( p11 h8 )_trb * i2 ( h8 p13 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F index d0705378e1..a6319e83f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_10.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = 1/2 * Sum ( h7 h8 ) * tra ( p11 p13 h7 h8 )_tra * i2 ( h7 h8 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F index 29edeee0b3..25952d754d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_10_1.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h10 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F index 10157a63b8..bf5c723d1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11.F,v 1.1 2008-09-17 04:44:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_yttrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p11 h10 p9 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F index 1526ed269e..0981579a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_1.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F index ab1d2793a5..70bafa4d12 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_1_1.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F index 86aa86b2d2..6879d66db8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_2.F,v 1.1 2008-09-17 04:44:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbt + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F index 7751820a28..f29f7625de 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_2_1.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F index fd728333bf..0839ea5fe9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_3.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbt + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F index 8501429d26..3d1cc0c866 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_3_1.F,v 1.1 2008-09-17 04:44:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F index c79b503b75..aad9092283 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_4.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F index 446b3705cb..77d5c14d7f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_11_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_11_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_11_4_1.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F index be2a9b2152..7b57805252 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtrat + = 1 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p11 h10 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F index 560ee3a90a..6f4ef3cef9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_1.F,v 1.1 2008-09-17 04:44:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F index a71e3e77ba..8f0d119be0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_1_1.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F index 145e1933dc..2e218a0736 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_2.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F index 5180947bb3..a7cdfd73df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_2_1.F,v 1.1 2008-09-17 04:44:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F index fc59880b9f..660602bbae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_3.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p11 h4 )_trb * i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F index 58fe07a677..a946aba66e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_3_1.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F index 49990b224a..119f2a3f2b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_4.F,v 1.1 2008-09-17 04:44:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F index efcda5cb89..3c51b778cb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_12_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_12_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_12_4_1.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F index 0fbaa8162f..5ec3b33595 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrattrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p11 h10 p9 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F index 8798c192ae..3afe313ab7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_1.F,v 1.1 2008-09-17 04:44:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat + = 1 * Sum ( h4 ) * t ( p11 h4 )_t * i3 ( h2 h4 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F index 270f6f8091..bdc6856a1d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_1_1.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F index 22ce8b7d3f..f1f874c895 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_2.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h2 h7 h8 h10 p5 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F index 84193373d8..9263f2b1d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_2_1.F,v 1.1 2008-09-17 04:44:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_yt + = -1 * Sum ( p3 ) * t ( p3 h10 )_t * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F index 3965cd5509..54d1687c86 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_3.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_yttra + = 1 * Sum ( h4 ) * tra ( p11 h4 )_tra * i3 ( h2 h4 h10 p9 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F index 239b54b093..f800c4e663 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_3_1.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F index 8b2c6f9e5d..83e3c015db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_4.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h10 p9 )_ytrat + = 2 * Sum ( h7 h8 p5 ) * t ( p5 p11 h7 h8 )_t * i3 ( h2 h7 h8 h10 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F index 4873da96bc..0e5ef57339 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_13_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_13_4_1.F,v 1.1 2008-09-17 04:44:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h10 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F index fa7f6fdf2b..025fcb5673 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_1_1.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytra + = 1 * Sum ( h4 h5 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h10 )_tra * y ( h4 h5 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F index bb380176ba..13599440d4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_2.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * Sum ( h4 h5 h6 p1 ) * tra ( p1 p11 p13 h4 h5 h6 )_tra * i2 ( h4 h5 h6 h10 p1 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F index 95e5eb2706..35b4e868a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_2_1.F,v 1.1 2008-09-17 04:44:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytrb + = -1 * Sum ( p7 ) * trb ( p7 h10 )_trb * y ( h4 h5 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F index cd041411c4..10525f4428 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_3.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * trb ( p11 h10 )_trb * i2 ( p13 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F index e849fb8e34..a25af402e2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_3_1.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytra + = 1 * Sum ( h4 h5 h6 p1 p2 ) * tra ( p1 p2 p13 h4 h5 h6 )_tra * y ( h4 h5 h6 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F index a1592095e3..ad71ef8f47 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_4.F,v 1.1 2008-09-17 04:44:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -2 * Sum ( h7 p5 ) * trb ( p5 p11 h7 h10 )_trb * i2 ( h7 p13 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F index 08c10ab033..37bec89735 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_4_1.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytra + = -1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F index fe6277967e..5db215cda3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_5.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = 1/2 * Sum ( h7 h8 ) * trb ( p11 p13 h7 h8 )_trb * i2 ( h7 h8 h10 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F index 8f5c3ef2c5..b2ebff3904 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_5_1.F,v 1.1 2008-09-17 04:44:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h10 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F index c3602ebfad..8aabd19656 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_6.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = 1 * Sum ( h8 ) * tra ( p11 h8 )_tra * i2 ( h8 p13 h10 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F index 854bc351b1..3e5723e3c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_6_1.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p13 h10 p9 )_ytrb + = 1 * Sum ( h4 h5 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h10 )_trb * y ( h4 h5 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F index 6fd6a02b26..a73376280e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_7.F,v 1.1 2008-09-17 04:44:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytratrb + = -1/3 * Sum ( h4 h5 h6 p1 ) * trb ( p1 p11 p13 h4 h5 h6 )_trb * i2 ( h4 h5 h6 h10 p1 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F index d66a02e53a..76f9d7f7e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_7_1.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p9 )_ytra + = -1 * Sum ( p7 ) * tra ( p7 h10 )_tra * y ( h4 h5 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F index 0f87f4ec56..ebeccbec99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_8.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -1/3 * tra ( p11 h10 )_tra * i2 ( p13 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F index f4fa47d783..25c957320d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_8_1.F,v 1.1 2008-09-17 04:44:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_ytrb + = 1 * Sum ( h4 h5 h6 p1 p2 ) * trb ( p1 p2 p13 h4 h5 h6 )_trb * y ( h4 h5 h6 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F index f7cfa7134b..c70b86a4a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_2_9_9.F,v 1.1 2008-09-17 04:44:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h10 p9 )_ytrbtra + = -2 * Sum ( h7 p5 ) * tra ( p5 p11 h7 h10 )_tra * i2 ( h7 p13 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F index 5bbab8e74e..0b2ccba942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_2_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_2_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_2_9_9_1.F,v 1.1 2008-09-17 04:44:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 p5 p9 )_ytrb + = -1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F index cc3d0fd2a2..e2cfd8beae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3.F @@ -2,7 +2,7 @@ &_trb2,d_trb3,d_y1,d_y2,d_y3,k_i0_offset,k_o1_offset,k_tra1_offset, &k_tra2_offset,k_tra3_offset,k_trb1_offset,k_trb2_offset,k_trb3_off &set,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lr_beta_3.F,v 1.3 2008-09-17 19:23:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrao + = -1 * Sum ( p10 h9 ) * o ( h9 p10 )_o * i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F index 5f7baf81bb..36a75583be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_3_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrbtrao + = -1 * Sum ( p10 h9 ) * o ( h9 p10 )_o * i1 ( p10 h9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F index 15cd6b81ad..da71de44cd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p10 h2 )_tra * i2 ( h2 h9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F index 375cd75df2..def459e8e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_1.F,v 1.1 2008-09-17 04:44:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h9 )_trb * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F index fda71e9cac..82eb5599cf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_2.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = -1/2 * Sum ( h5 p3 p4 ) * trb ( p3 p4 h5 h9 )_trb * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F index 5c92c7c8ff..cff667bdf4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_1_3.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_ytrb + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * trb ( p3 p4 p5 h6 h7 h9 )_trb * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F index f176cc61d6..36bb570797 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_2.F,v 1.1 2008-09-17 04:44:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h8 ) * trb ( p10 h8 )_trb * i2 ( h8 h9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F index b266be6480..18821197b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_1.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1 * Sum ( h5 p3 p4 ) * tra ( p3 p4 h5 h9 )_tra * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F index 3174c3100d..00ee7857e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_2.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -1/6 * Sum ( h6 h7 p3 p4 p5 ) * tra ( p3 p4 p5 h6 h7 h9 )_tra * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F index 5b98e080c8..542405579a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_2_3.F,v 1.1 2008-09-17 04:44:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_ytra + = -2 * Sum ( p3 ) * tra ( p3 h9 )_tra * y ( h8 p3 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F index f935a5ed62..d65240c53f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_3.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = -1/2 * Sum ( h1 h3 p2 ) * tra ( p2 p10 h1 h3 )_tra * i2 ( h1 h3 h9 p2 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F index 5197014df4..2ed5b1c9c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_3_1.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = -1 * Sum ( p6 ) * trb ( p6 h9 )_trb * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F index 0a90c4b82e..02700624a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_3_2.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytrb + = 1/2 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h9 )_trb * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F index f63fd36ead..b9cb1d0cd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_4.F,v 1.1 2008-09-17 04:44:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytrbtra + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * tra ( p3 p4 p10 h5 h6 h7 )_tra * i2 ( h5 h6 h7 h9 p3 p4 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F index c8a27c7191..228575b9e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_4_1.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytrb + = 1 * Sum ( p8 ) * trb ( p8 h9 )_trb * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F index 918a3c608e..8dc79b50ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_5.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = -1/2 * Sum ( h1 h3 p2 ) * trb ( p2 p10 h1 h3 )_trb * i2 ( h1 h3 h9 p2 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F index 746e1ca0f5..fab71c06ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_5_1.F,v 1.1 2008-09-17 04:44:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = -1 * Sum ( p6 ) * tra ( p6 h9 )_tra * y ( h1 h3 p2 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F index 563df96dd4..6932ca0b71 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_5_2.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h3 h9 p2 )_ytra + = 1/2 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h9 )_tra * y ( h1 h3 h7 p2 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F index aaeeb7b709..118a2e51b3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_3_1_6.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytratrb + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * trb ( p3 p4 p10 h5 h6 h7 )_trb * i2 ( h5 h6 h7 h9 p3 p4 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F index 9f85fbb737..f26a8ac7ae 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_3_1_6_1.F,v 1.1 2008-09-17 04:44:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_ytra + = 1 * Sum ( p8 ) * tra ( p8 h9 )_tra * y ( h5 h6 h7 p3 p4 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F index b3847b91dc..debf63fbf5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4.F @@ -4,7 +4,7 @@ &fset,k_trb1_offset,k_trb2_offset,k_trb3_offset,k_trc1_offset,k_trc &2_offset,k_trc3_offset,k_v2_offset,k_y1_offset,k_y2_offset,k_y3_of &fset) -C $Id: ccsdt_lr_beta_4.F,v 1.3 2008-09-17 19:23:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrctratrby + = -1 * Sum ( p3 h2 ) * y ( h2 p3 )_y * i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F index 3ac2edacf4..ffecee7312 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_1.F,v 1.1 2008-09-17 04:44:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrctratrby + = -1 * Sum ( p3 h2 ) * y ( h2 p3 )_y * i1 ( p3 h2 )_vtrctratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F index c3fe45ec4f..9d657dc84c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrctratrb + = 1 * Sum ( h4 ) * trb ( p3 h4 )_trb * i2 ( h4 h2 )_vtrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F index c88eb1d318..8e170eab14 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F index 6ad10ddd03..8d8ed29b8a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_1_1.F,v 1.1 2008-09-17 04:44:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc + = 1 * Sum ( h6 p5 ) * trc ( p5 h6 )_trc * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F index 171b893059..6094bbd547 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_2.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F index 4dc06319da..b30360f1b7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_1_2_1.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F index f00f10b59f..4f08ea2c8f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_2.F,v 1.1 2008-09-17 04:44:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtrbtrctra + = 1 * Sum ( h4 ) * tra ( p3 h4 )_tra * i2 ( h4 h2 )_vtrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F index 7ed8f0d1f7..640afc8054 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_1.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h2 )_trc * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F index 890678a78f..d6125b0ae4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_1_1.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F index ca1d3e0695..8286f2d4ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_2.F,v 1.1 2008-09-17 04:44:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F index b7243d4fa3..d98f21f392 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_2_2_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrc + = 1 * Sum ( h6 p5 ) * trc ( p5 h6 )_trc * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F index 96e89242e3..31c4e83bda 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_1_3.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h2 )_vtratrbtrc + = 1 * Sum ( h4 ) * trc ( p3 h4 )_trc * i2 ( h4 h2 )_vtratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F index f36d021a04..614c9ce757 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h2 )_trb * i3 ( h4 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F index 0450f1b618..9093626cc9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_1_1.F,v 1.1 2008-09-17 04:44:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtra + = 1 * Sum ( h6 p5 ) * tra ( p5 h6 )_tra * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F index 8ec8064ed9..e85a51890e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_2.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h2 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h2 )_tra * i3 ( h4 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F index 86f26c5ddb..257172b158 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_1_3_2_1.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p1 )_vtrb + = 1 * Sum ( h6 p5 ) * trb ( p5 h6 )_trb * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F index 7116dccd2e..e532b78d42 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_2.F,v 1.1 2008-09-17 04:44:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = 1/2 * Sum ( h4 p11 h12 h10 ) * i1 ( h4 p11 h10 h12 )_ytrctrbtra * v ( h10 h12 h4 p11 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F index 01e8a3ea22..867f1efde5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 h4 h10 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F index 4d69ad12bf..3759b9bfff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F index 2fe010a7ca..53ce2203ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1_1.F,v 1.1 2008-09-17 04:44:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = 1 * Sum ( p5 ) * trc ( p5 h10 )_trc * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F index c24136e773..78fd249eba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_1_2.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h10 )_trc * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F index fd7f632fbb..2a6bb666bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F index 72aadee1f4..b0d138b297 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2_1.F,v 1.1 2008-09-17 04:44:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h10 )_trb * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F index 2dbb12c185..f1d3ec3035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_1_2_2.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F index 84fa830fb8..3b852621bf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_2.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrbtrctra + = -1/2 * Sum ( p1 ) * tra ( p1 h12 )_tra * i2 ( h4 p11 h10 p1 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F index fcbf9ac9ef..a494af258f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_1.F,v 1.1 2008-09-17 04:44:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F index 744ed5e0a8..309fd3c418 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_1_1.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F index 88022420cc..cc50d0659e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_2.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F index 55fe307dd4..f1d5b4c49d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_2_2_1.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F index af600ccfba..b9d6f4d795 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_3.F,v 1.1 2008-09-17 04:44:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 h4 h10 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F index e145679338..e8cf7f89dd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrbtra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F index 73ecb80978..237c7ac600 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1_1.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = 1 * Sum ( p5 ) * trb ( p5 h10 )_trb * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F index a2317798bf..753996bea8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_1_2.F,v 1.1 2008-09-17 04:44:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h10 )_trb * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F index cc06e9f5d5..6fad74c324 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F index aa015216ed..3dc44a4a8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2_1.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F index a0be4c8468..e8965b6e84 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_3_2_2.F,v 1.1 2008-09-17 04:44:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F index c8aa3c38ce..b30c5c4185 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_4.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytratrbtrc + = -1/2 * Sum ( p1 ) * trc ( p1 h12 )_trc * i2 ( h4 p11 h10 p1 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F index eada4bb6a6..96ef081b9b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_1.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrb + = 1 * Sum ( h7 h8 p5 ) * trb ( p5 p11 h7 h8 )_trb * i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F index 461d221b11..ea1a82066a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_1_1.F,v 1.1 2008-09-17 04:44:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F index 2bb25e63f0..1793ec11b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_2.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrbtra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F index 8862633b83..492c2c1618 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_4_2_1.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F index 99abe1a221..30c0dc70c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_5.F,v 1.1 2008-09-17 04:44:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 h4 h10 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F index 94a3387711..0e092cb9a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytratrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 h4 h10 p3 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F index e518134cea..0432119d0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1_1.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = 1 * Sum ( p5 ) * tra ( p5 h10 )_tra * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F index 911690897a..046d199ff2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_1_2.F,v 1.1 2008-09-17 04:44:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h10 )_tra * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F index 1e479513e8..3cf409372f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h10 h12 )_ytrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 h4 h10 p3 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F index e9e533e9a2..dc8d08b77f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2_1.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = 1 * Sum ( p5 ) * trc ( p5 h10 )_trc * y ( h2 h4 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F index d93daa1b10..89601d2713 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_5_2_2.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h10 p3 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h10 )_trc * y ( h2 h4 h7 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F index d259e3c4b4..4fc3b0529d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_2_6.F,v 1.1 2008-09-17 04:44:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p11 h10 h12 )_ytrctratrb + = -1/2 * Sum ( p1 ) * trb ( p1 h12 )_trb * i2 ( h4 p11 h10 p1 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F index 10c75f5279..9f672424b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_1.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytrctra + = 1 * Sum ( h7 h8 p5 ) * tra ( p5 p11 h7 h8 )_tra * i3 ( h4 h7 h8 h10 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F index 2330a99ec3..b6a6fc9ca2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_1_1.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F index 90f7ada7a2..97c6399d11 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_2.F,v 1.1 2008-09-17 04:44:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p11 h10 p1 )_ytratrc + = 1 * Sum ( h7 h8 p5 ) * trc ( p5 p11 h7 h8 )_trc * i3 ( h4 h7 h8 h10 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F index 3e81801022..0d8eecdfbf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_2_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_2_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_2_6_2_1.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h7 h8 h10 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * y ( h4 h7 h8 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F index 140d9bc6d6..719f833ad5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_3.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vtrbtratrcy + = 1/2 * Sum ( p11 p12 h9 h10 ) * y ( h9 h10 p11 p12 )_y * i1 ( p11 p12 h9 h10 )_vtrbtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F index bd756fb5e8..5511ffe17d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_1.F,v 1.1 2008-09-17 04:44:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h2 ) * trc ( p11 h2 )_trc * i2 ( h2 p12 h9 h10 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F index 207cd0c6c2..065306d8b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_1.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F index 23bdc29f7c..4ba4977373 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_1_1.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F index 9750b48545..4f4f12f0d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_2.F,v 1.1 2008-09-17 04:44:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F index ab7875ba28..bb6a7e6c62 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_2_1.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F index e70525138c..6cfb1d1167 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_3.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F index 7b2d9418a7..b7dca861b9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_3_1.F,v 1.1 2008-09-17 04:44:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F index 7b72e69b04..922f386288 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_4.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F index c8b5f932e5..f8835dd32e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_4_1.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F index a50de34393..35f6c17de1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_5.F,v 1.1 2008-09-17 04:44:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrb + = -1/4 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F index 81b9afcc8a..1ccb1239eb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_5_1.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h10 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F index 6d5e1b7709..d64e99118d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_6.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F index af652ab406..ae848494a3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_1_6_1.F,v 1.1 2008-09-17 04:44:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F index 85303fb085..e4091f2e2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_2.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrbtratrc + = 1 * Sum ( h8 ) * trc ( p11 p12 h8 h10 )_trc * i2 ( h8 h9 )_vtrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F index 81cfc044aa..da4cbde5b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_1.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F index fc791afc97..acc9aa6b58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_1_1.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F index 2794bbc65c..9510a252c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_2.F,v 1.1 2008-09-17 04:44:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F index df723afb36..5f290cce92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_2_2_1.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F index 1406e23b70..9e793fea9d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_3.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = -1/4 * Sum ( h2 ) * tra ( p11 h2 )_tra * i2 ( h2 p12 h9 h10 )_vtrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F index 6fe1ab5f39..84e0293801 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_1.F,v 1.1 2008-09-17 04:44:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = 1 * Sum ( h4 ) * trb ( p12 h4 )_trb * i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F index 3dadd41583..93b925dc89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_1_1.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h9 h10 )_trc * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F index 9b40398db8..9caa515b77 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_2.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F index 01059ca233..b971a25c48 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_2_1.F,v 1.1 2008-09-17 04:44:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F index 1e12898d1b..e7b29d874f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_3.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F index 307264bd7c..edf39deab0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_3_1.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F index 9ae72b971d..d9c2893005 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_4.F,v 1.1 2008-09-17 04:45:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = 1 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F index d90ba64834..8e47b9cb57 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_4_1.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h9 h10 )_trb * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F index 6bf2401eda..f3774ea83d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_5.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctrb + = -4 * Sum ( p6 ) * trb ( p6 p12 h9 h10 )_trb * i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F index cb774701fc..93f323e273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_5_1.F,v 1.1 2008-09-17 04:45:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F index 90b92f46fb..743d87eced 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_6.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrbtrc + = -4 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F index ed5ac16e32..0ae834c81a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_3_6_1.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrb + = -1 * Sum ( p3 ) * trb ( p3 h10 )_trb * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F index 1d8b4181ce..0e195c72b2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_4.F,v 1.1 2008-09-17 04:45:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h2 ) * trb ( p11 h2 )_trb * i2 ( h2 p12 h9 h10 )_vtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F index cbdb957714..7bbb20494f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h2 p12 h10 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F index 79a984872a..ab4de60635 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_1_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtra + = -1 * Sum ( p3 ) * tra ( p3 h10 )_tra * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F index 09a22f6205..683305de43 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_2.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = -1/4 * Sum ( h4 ) * trc ( p12 h4 )_trc * i3 ( h2 h4 h9 h10 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F index 7819cce2b9..763cb3c04f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_2_1.F,v 1.1 2008-09-17 04:45:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h9 h10 )_tra * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F index 52a37aef84..e7839d48ec 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_3.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p6 ) * tra ( p6 p12 h9 h10 )_tra * i3 ( h2 p6 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F index 79506b9f1f..8247b4f9c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_3_1.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F index b9d1a24d33..75acb7eebd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_4.F,v 1.1 2008-09-17 04:45:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h2 p12 h10 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F index 0ade05b896..d3504972f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_4_1.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p12 h10 p1 )_vtrc + = -1 * Sum ( p3 ) * trc ( p3 h10 )_trc * v ( h2 p12 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F index 8e32dbdffe..7db6b4fc89 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_5.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtrctra + = -1/4 * Sum ( h4 ) * tra ( p12 h4 )_tra * i3 ( h2 h4 h9 h10 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F index 92149c78ed..c68b647f7b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_5_1.F,v 1.1 2008-09-17 04:45:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h9 h10 )_vtrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h9 h10 )_trc * v ( h2 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F index dbb23b1c68..467b0a10b4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_6.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p12 h9 h10 )_vtratrc + = 1 * Sum ( p6 ) * trc ( p6 p12 h9 h10 )_trc * i3 ( h2 p6 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F index c245cb6509..4415da4275 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_4_6_1.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p6 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h2 h4 p3 p6 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F index 2efe3d80e6..e52465e8ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_5.F,v 1.1 2008-09-17 04:45:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtratrctrb + = 1 * Sum ( h8 ) * trb ( p11 p12 h8 h10 )_trb * i2 ( h8 h9 )_vtratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F index 51eebbdb81..c3bb449a16 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_1.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtratrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F index 7ceb81dd2b..c43e6da62f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_1_1.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtra + = 1 * Sum ( h4 p3 ) * tra ( p3 h4 )_tra * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F index 4f8f88028d..e661c8a88d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_2.F,v 1.1 2008-09-17 04:45:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctra + = 1 * Sum ( p1 ) * tra ( p1 h9 )_tra * i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F index b4d6fb9321..19015d319e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_5_2_1.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F index ade0c2edd8..9398f469bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_3_6.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p12 h9 h10 )_vtrctrbtra + = 1 * Sum ( h8 ) * tra ( p11 p12 h8 h10 )_tra * i2 ( h8 h9 )_vtrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F index fcfd504fd3..9d87ee98bc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_1.F,v 1.1 2008-09-17 04:45:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrctrb + = 1 * Sum ( p1 ) * trb ( p1 h9 )_trb * i3 ( h8 p1 )_vtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F index 09832a73b5..983273be06 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_1_1.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrc + = 1 * Sum ( h4 p3 ) * trc ( p3 h4 )_trc * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F index bde9fe3320..64e0a10efe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_2.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 )_vtrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h9 )_trc * i3 ( h8 p1 )_vtrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F index 68f402d20d..7d10d6cf24 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_3_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_3_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_3_6_2_1.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 p1 )_vtrb + = 1 * Sum ( h4 p3 ) * trb ( p3 h4 )_trb * v ( h4 h8 p1 p3 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F index 85e39c75f5..b1d054e676 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_4.F,v 1.1 2008-09-17 04:45:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = -1/8 * Sum ( p13 p14 h12 h15 ) * i1 ( p13 p14 h12 h15 )_ytrctrbtra * v ( h12 h15 p13 p14 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F index 25aa1168a8..6a87cd9a83 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_1.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i2 ( h2 p14 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F index 5a66f42981..d80d945a99 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -2/3 * tra ( p14 h12 )_tra * i2 ( p13 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F index 7100d2e06c..b9a0d857c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_1.F,v 1.1 2008-09-17 04:45:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F index 3695451c07..0783078090 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_1_1.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F index 828bc81605..c47cbc9d66 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_2.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F index 839cbc6085..84ffb11199 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_10_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_10_2_1.F,v 1.1 2008-09-17 04:45:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h9 h15 )_trc * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F index 385ed2c456..a7006bba3a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1/3 * Sum ( h8 h9 h10 p5 ) * trb ( p5 p13 p14 h8 h9 h10 )_trb * i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F index b499b1b51f..a8dc2e1f3b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_1.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F index a0af099e76..b188c79245 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_1_1.F,v 1.1 2008-09-17 04:45:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F index 3d10b06a69..7b75cac657 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_2.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F index 8be8a588f5..3a6d1e4074 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_11_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_11_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_11_2_1.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h15 )_trc * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F index bccffa1e0e..b98804784a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12.F,v 1.1 2008-09-17 04:45:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2/3 * tra ( p13 h15 )_tra * i2 ( p14 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F index c6d052e41a..d8d97f1b13 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_1.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F index 126d8b55b9..46173d0335 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_1_1.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F index a7d172de02..601c8e02f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_2.F,v 1.1 2008-09-17 04:45:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F index f18f124cb1..66dc676529 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_12_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_12_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_12_2_1.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F index 29de387e76..de3050e7a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -1 * Sum ( h10 ) * trb ( p14 h10 )_trb * i2 ( h10 p13 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F index 2ed7f767bc..3318f962da 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_1.F,v 1.1 2008-09-17 04:45:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F index 004a16a741..d7b366f057 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_1_1.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F index fb9bf4a19a..c2e2564a38 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_2.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F index 983446294a..c5a5dec172 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_2_1.F,v 1.1 2008-09-17 04:45:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc + = -1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F index a76e1784e0..2e504d81cc 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_3.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F index 88191267ff..bef0199cfb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_3_1.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F index 07515022d5..16306ac3e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_4.F,v 1.1 2008-09-17 04:45:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F index 0c3a9a6fee..2731887e92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_13_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_13_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_13_4_1.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F index 5850694b6a..19a6a78c8e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -4 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h12 )_tra * i2 ( h7 p13 h15 p5 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F index 330ea78903..b75627224f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_1.F,v 1.1 2008-09-17 04:45:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F index 34578bc374..a17d033fdb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_1_1.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F index e8f97e4af5..74af669c0d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_2.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F index fd483bfd29..d2b58dc2e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_14_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_14_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_14_2_1.F,v 1.1 2008-09-17 04:45:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc + = -1 * Sum ( p9 ) * trc ( p9 h15 )_trc * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F index b1c6ba87fb..24f40c8804 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -1 * Sum ( h7 h8 ) * tra ( p13 p14 h7 h8 )_tra * i2 ( h7 h8 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F index 06060f37a5..c2f66c7188 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_1.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F index 9ebeed6e36..376b00c578 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_1_1.F,v 1.1 2008-09-17 04:45:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc + = 1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F index 995fe8fb49..e5d6719566 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_2.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F index e7d4acc608..345a47f2c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_15_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_15_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_15_2_1.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F index f284a45804..047bc84414 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16.F,v 1.1 2008-09-17 04:45:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2 * trb ( p14 h15 )_trb * i2 ( p13 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F index d8a583a735..51e50e5ed6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_1.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F index a98e80a44c..1dbe92f429 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_1_1.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F index 5de650b892..1033df3470 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_2.F,v 1.1 2008-09-17 04:45:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F index c58586d4bf..9c9b8a47c7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_16_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_16_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_16_2_1.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc + = 1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F index 2defff46d1..f5e0e9f40d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i2 ( h2 p14 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F index 128dfa5308..c6f42899c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1.F,v 1.1 2008-09-17 04:45:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F index 662234790b..755f19242b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrat + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F index e4ce527c72..dbe021298d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_1.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F index 223001aeb3..1866366d2b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_1_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_1_1.F,v 1.1 2008-09-17 04:45:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F index 5056679557..5d3c71e77f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_2.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F index 1d0d70ad44..ed8185c71e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_10_2_1.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F index 5903df7cd4..034365668e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_1.F,v 1.1 2008-09-17 04:45:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F index 3643194859..7e812843e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_2.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h12 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F index 1deac372b6..8ce4304749 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F index c430be60b4..383518e097 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3_1.F,v 1.1 2008-09-17 04:45:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F index e781313b18..6f58ea3d53 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_3_2.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F index 335e3d0456..276e18c4c8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F index 038234af70..d4634b14c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4_1.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F index 5ca59853ae..d897e88b8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_1_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_1_4_2.F,v 1.1 2008-09-17 04:45:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F index 3ff2b9025d..f13c4c2409 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_2.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F index d8ef3d2864..f839dd067e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_2_1.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F index cd65ad31fd..9b954c5c08 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_3.F,v 1.1 2008-09-17 04:45:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F index 6e3ec2b4cd..1ef572a0c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_3_1.F,v 1.1 2008-09-17 04:45:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F index 2d88c0390d..05fcc1934c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4.F,v 1.1 2008-09-17 04:45:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F index b49ba10516..8d5893bec3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_1.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F index f271a59287..7d9ef37fd8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_2.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F index c358b0c68b..32bcfa75ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrc + = -2 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F index afec4f07f9..73f2711900 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3_1.F,v 1.1 2008-09-17 04:45:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F index 45fcdc0a50..9f7620cf07 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_3_2.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F index 6f38f9ee35..5c69098e60 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrct + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F index d71c0e7a1a..c58b907336 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4_1.F,v 1.1 2008-09-17 04:45:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F index bcf704935d..650ec37ec0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_4_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_4_4_2.F,v 1.1 2008-09-17 04:45:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F index cf58efcf90..446bb58369 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_5.F,v 1.1 2008-09-17 04:45:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F index e64c042335..814df9dd0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_5_1.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F index 81cab2e96a..c4ac7e939a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_6.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F index b8ad830392..98d129c693 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_6_1.F,v 1.1 2008-09-17 04:45:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F index 37ccf08430..06500c270c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_yttratrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F index b878a73348..a5772ba14c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_1.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F index 8915465189..e4eb54bb4a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_1_1.F,v 1.1 2008-09-17 04:45:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F index 8067735f46..d3b9cf964d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_2.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F index 400a2094fb..dc1f696f92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_7_2_1.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F index 58ebe631ec..099aad5064 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8.F,v 1.1 2008-09-17 04:45:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrcttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F index e1713b92fb..246e469b58 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_1.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F index 2e24eabe0d..9348e8e17d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_1_1.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F index e7624175c0..f4f5ca26ff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_2.F,v 1.1 2008-09-17 04:45:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F index 79f35b69df..dc1bb5970f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_8_2_1.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F index 796aa7d756..8f19070bb6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F index a7f1f79315..88ad710c21 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1.F,v 1.1 2008-09-17 04:45:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F index ab95ceaef9..73dd67fbe9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1_1.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F index e46a259389..69147aeff1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_1_2.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F index 3e860afd44..4189fac8e9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2.F,v 1.1 2008-09-17 04:45:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F index aa729f0f60..790a5af96d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2_1.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F index db1791b962..da1226876a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_17_9_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_17_9_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_17_9_2_2.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F index 0e88b4eeec..881b39a2ea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18.F,v 1.1 2008-09-17 04:45:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -2/3 * trc ( p14 h12 )_trc * i2 ( p13 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F index 5f6c54d5fa..ef389be94c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_1.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrb + = 1 * Sum ( h2 ) * trb ( p13 h2 )_trb * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F index 7e7a2d7996..946bee032b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_1_1.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F index 3a5fa607ab..f060f7cacb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_2.F,v 1.1 2008-09-17 04:45:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrbtra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F index e62faf8d56..bfcaed3d2c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_18_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_18_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_18_2_1.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrb + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h9 h15 )_trb * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F index e9e5b96609..1c4ce6d74d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = 1/3 * Sum ( h8 h9 h10 p5 ) * tra ( p5 p13 p14 h8 h9 h10 )_tra * i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F index 7a4605ea91..200cc07595 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_1.F,v 1.1 2008-09-17 04:45:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrctrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F index aa241fb6df..af6e82203a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_1_1.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h15 )_trc * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F index 69ff9ea76a..e80d726764 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_2.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F index 2aa896d365..363781e3a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_19_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_19_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_19_2_1.F,v 1.1 2008-09-17 04:45:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F index a9370cadeb..f5ff1efdf2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F index aa3a707106..78fc61b5c2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F index 32c4f5d3a2..eef718838c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_1.F,v 1.1 2008-09-17 04:45:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F index 44bf73aa25..42743449ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_1_1.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F index efeee5e2e5..51a018f071 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_2.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F index 016d304eeb..677b79f717 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_10_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_10_2_1.F,v 1.1 2008-09-17 04:45:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F index 3575e9b89c..aaef18cd59 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_1.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F index b5fb91d9a8..4634ba9ad2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_2.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrc + = -1/3 * Sum ( h8 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h12 h15 )_trc * i4 ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F index 6422bceb14..287b798f00 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsdt_lr_beta_4_4_1_1_2_1.F,v 1.1 2008-09-17 04:45:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F index de8782bdfc..4026511842 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_2_2(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsdt_lr_beta_4_4_1_1_2_2.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h8 p5 p6 p7 )_y + = 1 * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F index 4a7bb7fd27..eded8702a7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrc + = -2 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F index 86b4855618..54c245ce94 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3_1.F,v 1.1 2008-09-17 04:45:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F index bb343a34ed..a2a6ff9bf8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_3_2.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F index 7826186262..5399bc2361 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrct + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F index 5c2d6df3b8..d0e9b4dfa3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4_1.F,v 1.1 2008-09-17 04:45:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F index fd3ce20fd5..db6d7aa85d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_1_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_1_4_2.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F index fbb84b78f4..977f38f4d6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_2.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 8 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h15 )_trc * i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F index aa80bb4b68..99189e7275 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_2_1.F,v 1.1 2008-09-17 04:45:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F index ac7241a6d9..8b8ed58a36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_3.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 2 * Sum ( h8 h9 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h15 )_trc * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F index 54c7639691..94fc5f55df 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_3_1.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F index 2741f9d908..afe39f0f87 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4.F,v 1.1 2008-09-17 04:45:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F index 75410c76b1..e5db9a7647 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_1.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F index f9eabbe224..c8745bcf0a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F index 4948dd2122..361182d747 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2_1.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F index c036b2a05c..9e12205e3c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_2_2.F,v 1.1 2008-09-17 04:45:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F index 5e79b637b5..353c984dea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3.F,v 1.1 2008-09-17 04:45:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F index 30981b69d3..ffb116494f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3_1.F,v 1.1 2008-09-17 04:45:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F index a8135c0287..ca83143362 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_4_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_4_3_2.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F index 5ff21aa66e..b0a764962a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_5.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F index 91d47ed4a8..8e0117b964 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_5_1.F,v 1.1 2008-09-17 04:45:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F index 9ab7d37cf2..f95a0b9bff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_6.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F index c48669f805..1799bb7f50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_6_1.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F index ef269f5685..e409085edb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7.F,v 1.1 2008-09-17 04:45:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrcttrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrct diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F index ef0341acfc..fdc66673ce 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_1.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrct + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F index 5e337f5429..566155751e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_1_1.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F index 81e1a13dc0..0233bf52aa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_2.F,v 1.1 2008-09-17 04:45:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F index fa7a1c8248..d11f5f5267 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_7_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_7_2_1.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F index fd53682e76..c65adf2b50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_yttrbtrc + = -2 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_yttrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F index 5124c3db11..dcf3578d96 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_1.F,v 1.1 2008-09-17 04:45:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F index 936f844b4e..e8aa08895a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_1_1.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F index 95a533114a..4dfcdff942 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_2.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F index 2fcb133206..c5bf88ac37 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_8_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_8_2_1.F,v 1.1 2008-09-17 04:45:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F index e0c8394da6..3d515d0ac4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrct + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F index 12e75fff7d..cd316e95f6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F index 654ab5df94..d595d35c1b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1_1.F,v 1.1 2008-09-17 04:45:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F index f612273a7c..10b702d1e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_1_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_1_2.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F index a98088a7bc..93ff141d8b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F index 447d54f9cd..34fa3f3dc7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2_1.F,v 1.1 2008-09-17 04:45:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F index 6ce27382f8..7040693634 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_1_9_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_1_9_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_1_9_2_2.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F index a7e42ea07d..54444d895e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_2.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -2/3 * trb ( p14 h12 )_trb * i2 ( p13 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F index 5e0ba08735..b3f40e71a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20.F,v 1.1 2008-09-17 04:45:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2/3 * trc ( p13 h15 )_trc * i2 ( p14 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F index 2e2384f315..8578d235af 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_1.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrbtra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F index 1093759aa2..d459c9d2fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_1_1.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F index 4ef9824fa3..959988e48f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_2.F,v 1.1 2008-09-17 04:46:00 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrb + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h10 )_trb * i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F index 115899cf0d..86f8b6e71c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_20_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_20_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_20_2_1.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F index bcc530e3dc..07c2802300 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtrctra + = -1 * Sum ( h10 ) * tra ( p14 h10 )_tra * i2 ( h10 p13 h12 h15 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F index b124f32380..026f15214a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_1.F,v 1.1 2008-09-17 04:46:01 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 p6 ) * trc ( p5 p6 h12 h15 )_trc * i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F index ac0ce89244..9ebb97a0fd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_1_1.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F index 1376a89895..80748ea78f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_2.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtrc + = 4 * Sum ( h7 p5 ) * trc ( p5 p13 h7 h15 )_trc * i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F index b3ce206051..ed32ace5e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_2_1.F,v 1.1 2008-09-17 04:46:02 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F index fdf6fc37a4..2b5ea05116 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_3.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F index 34e8fa46cd..a56aff59ac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_3_1.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F index 3821c43dc2..3853e3dbac 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_4.F,v 1.1 2008-09-17 04:46:03 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrctrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F index 64fa8d0b10..d684b739f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_21_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_21_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_21_4_1.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrc + = -1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F index d8771a8ac0..975493a5f4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -4 * Sum ( h7 p5 ) * trc ( p5 p14 h7 h12 )_trc * i2 ( h7 p13 h15 p5 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F index 295b7c0bc7..eac5c89bed 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_1.F,v 1.1 2008-09-17 04:46:04 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F index f9e3d0b110..2a421daf5d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_1_1.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F index 90c279ef43..93dddf11fb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_2.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F index 65d4cf95cf..e065a681e4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_22_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_22_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_22_2_1.F,v 1.1 2008-09-17 04:46:05 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrb + = -1 * Sum ( p9 ) * trb ( p9 h15 )_trb * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F index 81d0c574c8..ff4e6a127b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -1 * Sum ( h7 h8 ) * trc ( p13 p14 h7 h8 )_trc * i2 ( h7 h8 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F index d9191c6669..251a41e06b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_1.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrbtra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F index f59cfd4d0c..1e76ccb434 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_1_1.F,v 1.1 2008-09-17 04:46:06 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrb + = 1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F index 9665a7b32b..f5cee481d0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_2.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrb + = 1 * Sum ( p9 ) * trb ( p9 h15 )_trb * i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F index bdaf56b110..4295ef24c1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_23_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_23_2_1.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F index 9b786c1cdf..674410ccfb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24.F,v 1.1 2008-09-17 04:46:07 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtra + = -2 * tra ( p14 h15 )_tra * i2 ( p13 h12 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F index 5726623837..4dec817ff8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_1.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrctrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F index dc36fe5c48..9d97355770 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_1_1.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrc + = 1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F index ed436d2013..0fb7bae165 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_2.F,v 1.1 2008-09-17 04:46:08 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F index a6a291b942..9bcf40e8f2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_24_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_24_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_24_2_1.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F index 96f4e4d702..7617531dbe 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctrbtrat + = -2 * Sum ( h2 ) * t ( p13 h2 )_t * i2 ( h2 p14 h12 h15 )_ytrctrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F index 7a6dbe80d8..0f3434ef2d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1.F,v 1.1 2008-09-17 04:46:09 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F index b79f8de9d2..4e5d3e9568 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F index fe262445cc..a7cee0b434 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1_1.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F index ec4a946468..419acd575e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_1_2.F,v 1.1 2008-09-17 04:46:10 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F index 16da08cce2..41b70acfdd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F index 5161737a52..5e4d88f7e8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2_1.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F index bcb2de6dbc..e5ac6ae0e5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_1_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_1_2_2.F,v 1.1 2008-09-17 04:46:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F index a5eed36044..f250e9ca8f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrctra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbtrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F index e0bfeb84f7..12890783b1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_1.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F index 5f585dc154..f7b32349e1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_1_1.F,v 1.1 2008-09-17 04:46:12 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F index 7b039fcf88..07f11e3e04 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_2.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F index d5a6392db1..fa8c64917f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_2_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_2_2_1.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F index ee3c68911f..11ac45094a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3.F,v 1.1 2008-09-17 04:46:13 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h4 ) * trc ( p14 h4 )_trc * i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F index 540c8ae4ab..140c6c26d5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F index c23cd76e7a..b08d5419c5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1_1.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F index 76b3764a5b..6c153b2271 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_1_2.F,v 1.1 2008-09-17 04:46:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F index d46f405497..1096bce7d7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F index 97a30c8917..ff8f2cf05b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2_1.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F index 9ab6554b32..6655bc308e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_3_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_3_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_3_2_2.F,v 1.1 2008-09-17 04:46:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F index 5cec9f09b2..7d4c150691 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrbtrc + = 1 * Sum ( p3 ) * trc ( p3 h12 )_trc * i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F index 4f3e666acc..debfdcfc51 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_1.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F index 7bbb69e763..e6e8e12352 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_1_1.F,v 1.1 2008-09-17 04:46:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F index 559eb1bf2b..ae23612cde 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_2.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F index 70a94414e3..5212c90a93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_4_2_1.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F index d48573ae22..5b12db2a5f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5.F,v 1.1 2008-09-17 04:46:17 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrctratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F index d8db1b85ae..076ea73815 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrctra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F index 81a28fba6a..397764f139 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1_1.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = 1 * Sum ( p7 ) * trc ( p7 h15 )_trc * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F index 4e3aea4621..a1148d69a6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_1_2.F,v 1.1 2008-09-17 04:46:18 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrc + = -1 * Sum ( h9 p7 p8 ) * trc ( p7 p8 h9 h15 )_trc * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F index c8170b538d..535f2f7230 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrc + = 1 * Sum ( p5 ) * trc ( p5 h12 )_trc * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F index 1b59f22b97..35cd5fd78a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2_1.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F index 777dd4edc1..e717b9a69c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_5_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_5_2_2.F,v 1.1 2008-09-17 04:46:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F index ff3ee159b6..ffbf4467db 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrctrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F index ab201d0bf1..de183bba9f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_1.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrc + = 1 * Sum ( h9 h10 p7 ) * trc ( p7 p14 h9 h10 )_trc * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F index 53ac9b9cf1..1203f959c4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_1_1.F,v 1.1 2008-09-17 04:46:20 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F index e9828fa5e0..562962e20c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_2.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrctra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F index d6e5156f88..75008f733e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_25_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_25_6_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_25_6_2_1.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrc + = -1 * Sum ( p5 ) * trc ( p5 h15 )_trc * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F index e771747239..a209328df2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_1.F,v 1.1 2008-09-17 04:46:21 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytrctra + = 1 * Sum ( h2 ) * tra ( p13 h2 )_tra * i3 ( h2 h15 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F index fef45fd257..288600ceff 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_1_1.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytrc + = 1 * Sum ( h8 h9 p5 p6 p7 ) * trc ( p5 p6 p7 h8 h9 h15 )_trc * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F index 1ddb82d042..18181596b7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_2.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h15 )_ytratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i3 ( h2 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F index f4f2b736fb..da3140f5e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_2_2_1.F,v 1.1 2008-09-17 04:46:22 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h15 )_ytra + = 1 * Sum ( h8 h9 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h9 h15 )_tra * y ( h2 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F index 283be0751e..6f8797a2d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_3.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1/3 * Sum ( h8 h9 h10 p5 ) * trc ( p5 p13 p14 h8 h9 h10 )_trc * i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F index 9d1edb2d81..8df2203936 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_1.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytrbtra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * i3 ( h8 h9 h10 h15 p1 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F index f62f025ec8..dcf6a9917f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_1_1.F,v 1.1 2008-09-17 04:46:23 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h15 )_trb * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F index 7da3f664f0..4dd29ad42e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_2.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h12 h15 p5 )_ytratrb + = 1 * Sum ( p1 ) * trb ( p1 h12 )_trb * i3 ( h8 h9 h10 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F index baaeddd4c3..9e64de286b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_3_2_1.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h15 p1 p5 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h15 )_tra * y ( h8 h9 h10 p1 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F index 288ac9b283..bda0f3bb0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_4.F,v 1.1 2008-09-17 04:46:24 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -2/3 * trb ( p13 h15 )_trb * i2 ( p14 h12 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F index ca35690df9..a221061623 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_1.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytratrc + = 1 * Sum ( h8 h9 h10 p5 p6 ) * trc ( p5 p6 p14 h8 h9 h10 )_trc * i3 ( h8 h9 h10 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F index cd9ede6ffc..e2063e2233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_1_1.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytra + = 1 * Sum ( p1 ) * tra ( p1 h12 )_tra * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F index 508088adbb..0c8675eb08 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_2.F,v 1.1 2008-09-17 04:46:25 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 h12 )_ytrctra + = 1 * Sum ( h8 h9 h10 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h10 )_tra * i3 ( h8 h9 h10 h12 p5 p6 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F index 0ad9f9c705..1daabd4cc0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_4_2_1.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h10 h12 p5 p6 )_ytrc + = 1 * Sum ( p1 ) * trc ( p1 h12 )_trc * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F index 9effcf460e..d8a703394b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_5.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrbtrc + = -1 * Sum ( h10 ) * trc ( p14 h10 )_trc * i2 ( h10 p13 h12 h15 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F index 66f0b356e3..4e7314dab1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_1.F,v 1.1 2008-09-17 04:46:26 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb + = 1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * i3 ( h10 p13 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F index b9074f804f..369717c603 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_1_1.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F index 65cae367d3..fc18616d93 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_2.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytratrb + = 4 * Sum ( h7 p5 ) * trb ( p5 p13 h7 h15 )_trb * i3 ( h7 h10 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F index e3f8b4abda..9ff31abad4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_2_1.F,v 1.1 2008-09-17 04:46:27 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytra + = -1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F index 81a6a52310..d1effc4da4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_3.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtra + = 1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * i3 ( h10 p13 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F index b737c8e7b6..dab9936b24 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_3_1.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p13 p5 p6 )_ytrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * y ( h3 h4 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F index 175f7c0a0b..a4f655f42e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_4.F,v 1.1 2008-09-17 04:46:28 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 h15 )_ytrbtra + = 4 * Sum ( h7 p5 ) * tra ( p5 p13 h7 h15 )_tra * i3 ( h7 h10 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F index 4bbcb6847c..a30c5c3c48 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_5_4_1.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h12 p5 )_ytrb + = -1 * Sum ( h3 p1 p2 ) * trb ( p1 p2 h3 h12 )_trb * y ( h3 h7 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F index 42362c31d4..eeb7845a51 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_6.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrctratrb + = -4 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h12 )_trb * i2 ( h7 p13 h15 p5 )_ytrctra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F index c107260c23..5d5d70c5b5 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_1.F,v 1.1 2008-09-17 04:46:29 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytrctra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h7 h15 p1 p5 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F index 0cd4223138..ed14148905 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_1_1.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytrc + = -1 * Sum ( p9 ) * trc ( p9 h15 )_trc * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F index 5fd14202dd..fb6fada0ad 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_2.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p13 h15 p5 )_ytratrc + = 1 * Sum ( h3 h4 p1 ) * trc ( p1 p13 h3 h4 )_trc * i3 ( h3 h4 h7 h15 p1 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F index f8cb173629..366a4083a2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_6_2_1.F,v 1.1 2008-09-17 04:46:30 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h7 h15 p1 p5 )_ytra + = -1 * Sum ( p9 ) * tra ( p9 h15 )_tra * y ( h3 h4 h7 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F index 5321a93b80..b1bd75029c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_7.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytratrctrb + = -1 * Sum ( h7 h8 ) * trb ( p13 p14 h7 h8 )_trb * i2 ( h7 h8 h12 h15 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F index 4449ad4273..59778d1636 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_1.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytratrc + = 1 * Sum ( p9 ) * trc ( p9 h15 )_trc * i3 ( h7 h8 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F index f0265fb66d..0792e762f1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_1_1.F,v 1.1 2008-09-17 04:46:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytra + = 1 * Sum ( h3 p1 p2 ) * tra ( p1 p2 h3 h12 )_tra * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F index 9714c168c4..428c100cd6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_2.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 h15 )_ytrctra + = 1 * Sum ( p9 ) * tra ( p9 h15 )_tra * i3 ( h7 h8 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F index dde39a95d0..aa713f74dd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_7_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_7_2_1.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h12 p9 )_ytrc + = 1 * Sum ( h3 p1 p2 ) * trc ( p1 p2 h3 h12 )_trc * y ( h3 h7 h8 p1 p2 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F index 1df722aaff..230d4acbfd 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_8.F,v 1.1 2008-09-17 04:46:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = -2 * trc ( p14 h15 )_trc * i2 ( p13 h12 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F index 4d7f503f30..8ec6c1eb13 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_1.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytrbtra + = 1 * Sum ( h3 h4 p1 ) * tra ( p1 p13 h3 h4 )_tra * i3 ( h3 h4 h12 p1 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F index a6b3dfa00e..a8100f1e7c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_1_1.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytrb + = 1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F index c16f6700ba..24dbd5cee7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_2.F,v 1.1 2008-09-17 04:46:33 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 h12 )_ytratrb + = 1 * Sum ( h3 h4 p1 ) * trb ( p1 p13 h3 h4 )_trb * i3 ( h3 h4 h12 p1 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F index fb0a657ff4..75a3986362 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_8_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_8_2_1.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h12 p1 )_ytra + = 1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F index 3f72df1ccc..eb90d19507 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_4_9.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 p14 h12 h15 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p13 h2 )_trc * i2 ( h2 p14 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F index ac8da9153d..9a7984ead9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1.F,v 1.1 2008-09-17 04:46:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p14 h4 )_tra * i3 ( h2 h4 h12 h15 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F index 0376563151..7a31ed87c3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrattrb + = -2 * Sum ( p3 ) * trb ( p3 h12 )_trb * i3 ( h2 p14 h15 p3 )_ytrat diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F index 6551c099e2..2e3abd9870 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_1.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrat + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F index 2111b8c4de..592b43dd46 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_1_1.F,v 1.1 2008-09-17 04:46:35 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F index 0ece9f32a8..c45db488ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_2.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F index e62d815b33..fa3cdf0517 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_10_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_10_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_10_2_1.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F index 5e9282080a..ded0915aab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_1.F,v 1.1 2008-09-17 04:46:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1 * Sum ( p5 p6 ) * trb ( p5 p6 h12 h15 )_trb * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F index e955a01a39..b87389bef8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_2.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrb + = -1/3 * Sum ( h8 p5 p6 p7 ) * trb ( p5 p6 p7 h8 h12 h15 )_trb * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F index a5547d140c..4ed22642f9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttrb + = -2 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F index b7ad3bf734..4abcf86d90 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3_1.F,v 1.1 2008-09-17 04:46:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F index c7face0cdd..b61d1bea0f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_3_2.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F index bca2053d21..7d998f637d 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbt + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F index a091ef81bd..0782aa0ff8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4_1.F,v 1.1 2008-09-17 04:46:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F index b050d4476c..0417275aaf 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_1_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_1_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_1_4_2.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F index 4ed3153954..bbc7fc733e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_2.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 8 * Sum ( h7 p5 ) * trb ( p5 p14 h7 h15 )_trb * i3 ( h2 h7 h12 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F index 07fae4ec3b..35fa562d33 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_2_1.F,v 1.1 2008-09-17 04:46:39 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F index 4bdc214e9d..d40fe626ca 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_3.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 2 * Sum ( h8 h9 p5 p6 ) * trb ( p5 p6 p14 h8 h9 h15 )_trb * i3 ( h2 h8 h9 h12 p5 p6 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F index 34659e3276..6e0845c1ee 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_3_1.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytra + = 1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F index 370a0a2209..187f92f1e6 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4.F,v 1.1 2008-09-17 04:46:40 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p14 h4 )_trb * i3 ( h2 h4 h12 h15 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F index 3422e43a04..ecf16a7d0a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_1.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1 * Sum ( p5 p6 ) * tra ( p5 p6 h12 h15 )_tra * y ( h2 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F index 5a73883862..8541ef7deb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_2.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytra + = -1/3 * Sum ( h8 p5 p6 p7 ) * tra ( p5 p6 p7 h8 h12 h15 )_tra * y ( h2 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F index 3bca0ba97a..aa470c67a1 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3.F,v 1.1 2008-09-17 04:46:41 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_yttra + = -2 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F index e65cc6bf08..6df105cd2a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3_1.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h15 )_t * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F index 15efc8dfb0..8c085ee9ba 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_3_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_3_2.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h9 h15 )_t * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F index 85fd6940b0..711608a6bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4.F,v 1.1 2008-09-17 04:46:42 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrat + = -2 * Sum ( p5 ) * t ( p5 h12 )_t * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F index 198a08d112..9833757198 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4_1.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F index 358f17b414..e922fb59a8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_4_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_4_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_4_4_2.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F index 24eb79f56a..136dcbfa31 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_5.F,v 1.1 2008-09-17 04:46:43 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 8 * Sum ( h7 p5 ) * tra ( p5 p14 h7 h15 )_tra * i3 ( h2 h7 h12 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F index c2b9ea1c2a..e5e37b57be 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_5_1.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p5 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 p3 p5 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F index ca7d09cfec..c5b8f187aa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_6.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtra + = 2 * Sum ( h8 h9 p5 p6 ) * tra ( p5 p6 p14 h8 h9 h15 )_tra * i3 ( h2 h8 h9 h12 p5 p6 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F index cbb9d724f4..e35b221c50 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_6_1.F,v 1.1 2008-09-17 04:46:44 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h9 h12 p5 p6 )_ytrb + = 1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h8 h9 p3 p5 p6 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F index bc4b2c5ab4..7de76f0233 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbttra + = -2 * Sum ( p3 ) * tra ( p3 h12 )_tra * i3 ( h2 p14 h15 p3 )_ytrbt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F index 5de91adf38..4cf2382035 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_1.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p14 h9 h10 )_t * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F index 9341ab30ff..a25054c4a0 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_1_1.F,v 1.1 2008-09-17 04:46:45 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F index 47661c52b6..0453a1da45 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_2.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_yttrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_yt diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F index 469a324bf5..492526d41c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_7_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_7_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_7_2_1.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h15 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F index 0b5e21b63e..83eb0d0d2f 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8.F,v 1.1 2008-09-17 04:46:46 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytrbtrat + = -2 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h2 h4 h12 h15 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F index b50b5d0e91..8f821333e3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytrbtra + = 1 * Sum ( p5 ) * tra ( p5 h12 )_tra * i4 ( h2 h4 h15 p5 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F index e6fb4b2fa1..877b2797fa 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1_1.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = 1 * Sum ( p7 ) * trb ( p7 h15 )_trb * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F index 3f22298519..26cf0e8c0c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_1_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_1_2.F,v 1.1 2008-09-17 04:46:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytrb + = -1 * Sum ( h9 p7 p8 ) * trb ( p7 p8 h9 h15 )_trb * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F index 42bfed6068..84562695d3 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 h15 )_ytratrb + = 1 * Sum ( p5 ) * trb ( p5 h12 )_trb * i4 ( h2 h4 h15 p5 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F index 690190913d..30f911adc4 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2_1.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = 1 * Sum ( p7 ) * tra ( p7 h15 )_tra * y ( h2 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F index a5d764381f..58c73d8485 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_8_2_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_8_2_2.F,v 1.1 2008-09-17 04:46:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h4 h15 p5 )_ytra + = -1 * Sum ( h9 p7 p8 ) * tra ( p7 p8 h9 h15 )_tra * y ( h2 h4 h9 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F index 4d83050436..eea2810394 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p14 h12 h15 )_ytratrbt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 p14 h15 p3 )_ytratrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F index 82c6e0d10f..0645d621c9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_1.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytratrb + = 1 * Sum ( h9 h10 p7 ) * trb ( p7 p14 h9 h10 )_trb * i4 ( h2 h9 h10 h15 p3 p7 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F index f4bd18d4b0..54cb0152ab 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_1_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_1_1.F,v 1.1 2008-09-17 04:46:49 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytra + = -1 * Sum ( p5 ) * tra ( p5 h15 )_tra * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F index c5fd36b447..d8ad588484 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_2.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 p14 h15 p3 )_ytrbtra + = 1 * Sum ( h9 h10 p7 ) * tra ( p7 p14 h9 h10 )_tra * i4 ( h2 h9 h10 h15 p3 p7 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F index 78022fcd40..585f7fc458 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_4_9_9_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_4_9_9_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_4_9_9_2_1.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h2 h9 h10 h15 p3 p7 )_ytrb + = -1 * Sum ( p5 ) * trb ( p5 h15 )_trb * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F index 3871410181..4f82c09b1a 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lr_beta_4_5.F,v 1.1 2008-09-17 04:46:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytrctrbtrav + = 1/4 * Sum ( p1 p10 h12 p9 ) * i1 ( p1 p10 h12 p9 )_ytrctrbtra * v ( h12 p9 p1 p10 )_v diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F index 096f0d48ac..51ccf9deea 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrctrbtra + = 1 * Sum ( h2 ) * tra ( p1 h2 )_tra * i2 ( h2 p10 h12 p9 )_ytrctrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F index 4281541360..33a5b136bb 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F index 910d2f9f30..88e5781623 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_1_1.F,v 1.1 2008-09-17 04:46:51 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F index b9d89d32a6..0c24850a92 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_2.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F index 62c2f53539..cb5fd23385 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_2_1.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F index 9e9e059dce..e1ac8bd44b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_3.F,v 1.1 2008-09-17 04:46:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F index 8244ab416e..54ac8cf091 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_3_1.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F index fcee5a9f97..f5faf44db2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_4.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F index ac921555f6..7d707d9c52 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_1_4_1.F,v 1.1 2008-09-17 04:46:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F index 36b308c428..0e80e114a9 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_2.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytrbtratrc + = 1 * Sum ( h2 ) * trc ( p1 h2 )_trc * i2 ( h2 p10 h12 p9 )_ytrbtra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F index 53b9e79498..11b78e753c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_1.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F index 55891f80c2..18bd3ac660 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_1_1.F,v 1.1 2008-09-17 04:46:54 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrb + = -1 * Sum ( h7 p5 p6 ) * trb ( p5 p6 h7 h12 )_trb * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F index e117b36ddb..4ee5a2cf9c 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_2.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrb + = 2 * Sum ( h7 h8 p5 ) * trb ( p5 p10 h7 h8 )_trb * i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F index 566392ba67..233ee4c273 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_2_1.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F index 3d697332fd..7cd9fb681b 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_3.F,v 1.1 2008-09-17 04:46:55 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrb + = 1 * Sum ( h4 ) * trb ( p10 h4 )_trb * i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F index b555609a6e..6345d1d3a2 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_3_1.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F index debbf0cc9d..f36ae92c85 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_4.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrbtra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrb diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F index d4ac55e1d0..46eb96e738 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_2_4_1.F,v 1.1 2008-09-17 04:46:56 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrb + = -1 * Sum ( p3 ) * trb ( p3 h12 )_trb * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F index 0cd32d4424..89a1726841 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lr_beta_4_5_3.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p10 h12 p9 )_ytratrctrb + = 1 * Sum ( h2 ) * trb ( p1 h2 )_trb * i2 ( h2 p10 h12 p9 )_ytratrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F index fcd24ba891..d808875230 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_1.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc + = 1 * Sum ( h4 ) * trc ( p10 h4 )_trc * i3 ( h2 h4 h12 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F index 8c2b10d610..addce9efe8 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_1_1.F,v 1.1 2008-09-17 04:46:57 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytra + = -1 * Sum ( h7 p5 p6 ) * tra ( p5 p6 h7 h12 )_tra * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F index 3b33847c61..829faea55e 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_2.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctra + = 2 * Sum ( h7 h8 p5 ) * tra ( p5 p10 h7 h8 )_tra * i3 ( h2 h7 h8 h12 p5 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F index b9dea8be37..933c155b79 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_2_1.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytrc + = -1 * Sum ( p3 ) * trc ( p3 h12 )_trc * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F index b79e39a544..f09c05ed36 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_3.F,v 1.1 2008-09-17 04:46:58 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytrctra + = 1 * Sum ( h4 ) * tra ( p10 h4 )_tra * i3 ( h2 h4 h12 p9 )_ytrc diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F index f72a6ed799..83b0d92f87 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_3_1.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h4 h12 p9 )_ytrc + = -1 * Sum ( h7 p5 p6 ) * trc ( p5 p6 h7 h12 )_trc * y ( h2 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F index 589c4ac9bb..aa43683631 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_4.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p10 h12 p9 )_ytratrc + = 2 * Sum ( h7 h8 p5 ) * trc ( p5 p10 h7 h8 )_trc * i3 ( h2 h7 h8 h12 p5 p9 )_ytra diff --git a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F index 044290b7a7..618b0168f7 100644 --- a/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F +++ b/src/tce/ccsdt_beta/ccsdt_lr_beta_4_5_3_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lr_beta_4_5_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lr_beta_4_5_3_4_1.F,v 1.1 2008-09-17 04:46:59 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h8 h12 p5 p9 )_ytra + = -1 * Sum ( p3 ) * tra ( p3 h12 )_tra * y ( h2 h7 h8 p3 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/GNUmakefile b/src/tce/ccsdt_lambda/GNUmakefile index 673ed15bbd..9244d0aa57 100644 --- a/src/tce/ccsdt_lambda/GNUmakefile +++ b/src/tce/ccsdt_lambda/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = ccsdt_lambda3.o ccsdt_density1.o \ ccsdt_lambda1.o\ diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F index 6ebe094d36..84fde02e9e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_10_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F index e0231c5fdc..e9c297b741 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_11_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_11_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F index 3c49f3ec90..0e3d2da65e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_12_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F index 30ed24d11d..e3bb9b7118 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_13_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F index 4caf84de6c..593e7b2942 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F index bced236c55..962abf1231 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F index a3ef857379..d128fb9a31 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_3_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F index 506005e6a6..de3e2c0fc1 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F index b4dee6a0ec..8f9a773d5d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F index 3a81a38c35..90b27c954f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_6_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h7 h13 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F index cd2b793b92..efaff5e2ab 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_7_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F index 8ee1546abb..bb4450e2ae 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_8_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F index 2a8435e0d0..474ec8dd2e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_8_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_8_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_8_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F index cf5e9b6c56..b7214f4b9a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_14_9_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h13 p3 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F index 78e169e135..5518bba00c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_14_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_14_9_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_14_9_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h9 h10 h13 p3 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F index 5d08715ee5..20d0b67e4f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F index b9acc878c3..cb104ef257 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F index 97edeab469..c2e47c216a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_15_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_15_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_15_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F index 67145d51be..f7d184853f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F index f29ea978fd..26d6f9da07 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F index 84e4f92fbd..082dfac1d2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_16_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_16_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_16_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 h10 p3 p12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F index 2ddab25500..04bf32424d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_17_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_17_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_17_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F index 5eabaca8f6..284ef0bc2c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F index e08b1943a6..d26bf7952b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F index 724890a923..935e6b08a8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_1_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_18_1_4_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F index 79fef9b866..4fc3a87b3c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F index df38ec6474..ce8164e7dd 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F index f9c0912d75..0518d09d9d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 p13 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F index d568b07a86..45dd723e11 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_18_6_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p13 h12 p8 )_vtt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F index e1fe22f703..e155f74e4a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_18_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_18_6_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_18_6_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h6 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F index dfadaad091..2480cd935f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_19_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_19_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_19_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F index afb5ac4530..ac5f9029e8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_20_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_20_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p7 h6 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F index 4a59288191..a2bc9a80c3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_20_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_20_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_20_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F index 0c38b8b914..5d3b50d24a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F index fc0d816af9..84a37021ea 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F index 686bab57ab..b58ef629e3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_1_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_21_1_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F index 587403ae2a..40a9d398ef 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_21_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F index 72e76ea3a9..c849d24e60 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_21_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_21_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda1_21_2_1_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h6 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F index 0074cd1513..c688d0951a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F index 2ff902738c..7e8db9146e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_2_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F index 7cfae80717..253785df19 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F index 3ee9851223..788333d92c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_3_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_3_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_3_3_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F index e3487e5709..faa2293d53 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F index 57ccf36981..f3752c4ef2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_2_1.F,v 1.3 2005-12-16 22:34:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F index 7b41b79a4e..a6deafee72 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_5_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F index d633654675..f01aae6d2f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F index 57acb38104..85ce9c0c74 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F index b8022613d3..ff7c5709fb 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_5_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_5_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_5_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F index 16f45184b8..b290d50771 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F index 52e9446268..f8eeaf3a7c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F index 2f5176a812..bcd911e991 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_6_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F index 030ef82b01..2529075fba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F index 2b05646ed2..aa6a8eb6b3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F index 7f3e3a3f67..7729f28d39 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_6_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_6_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_6_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F index 9893a8979e..91caaa957d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F index c68e43d6a1..d8a7fd8a45 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F index 534ea12b84..44ef5966a0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_10_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F index f76bd64535..d0da41f53b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_12_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_ft diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F index 3a1ef05f80..d5a409b744 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_13_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_ft diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F index 4c4c7ab66e..dd64a4316e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_14_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F index 6b4f21d24a..5fca3da92c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F index 3e84eea828..61719a35ce 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F index d0d1e6240b..cf4a320a23 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: OFFSET_ccsdt_lambda1_8_2_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F index ab2cc20557..d2c9b0669b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_3_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F index 73c6f32e41..2c71f917db 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_2_5_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_2_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F index 63ace4970b..8f9c4b7dd7 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F index f13b6520b1..f2910a1ee8 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F index 9fd03daacd..2829a77d97 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_4_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F index 425341ca59..e92af021ba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F index 81765ba5cc..5cd49e1a59 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_5_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F index 548e8fb9e2..5942441f8b 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F index 29793fa662..58165b2204 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_6_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_6_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_8_6_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F index b1fac47c7a..71e0f8c4ac 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F index 2db57e14db..73ab08ff27 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_8_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_8_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_8_9_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F index 7d8cb2f66b..e3b9029355 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_t diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F index 2aa68531b6..13b6534b29 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F index 9bbd70b35f..690e913e57 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F index f40e49bc0d..a4c4a3573a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: OFFSET_ccsdt_lambda1_9_5_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F index c2eaaab24a..462756f15a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda1_9_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda1_9_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda1_9_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h12 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F index b94957fd40..2afd4b55cb 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F index 98e27df3f6..8469de27a1 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F index bc72ac71a2..970507f77d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_10_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F index 6fd0d1417f..6e1ae33ecf 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F index f7b8754269..2639898d02 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_10_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_10_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_10_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F index b742921925..db06b3a600 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F index 1fd2b933be..68952f94c3 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F index 16ef213ba6..502222d028 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_11_2_2_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F index b4b5351d4b..88e6ec5bba 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F index d9716950b3..c681c49fd0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_4_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F index 6312afe8b0..a073cff3f2 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_11_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_11_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_11_5_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F index 50f0a5981d..19489d7f41 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F index 2aa2458295..8de715fcb0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_3_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F index f0cfb0779c..ceb0b2d98e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_6_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p11 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F index 05c122e851..729b147594 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_12_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_12_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_12_7_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F index 9fa74078a8..8cbde11065 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_13_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_13_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_13_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F index 5bff0bdd4e..24f59ef675 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_14_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_14_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_14_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F index cd8c8489fa..b07f18556a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_15_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_15_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_15_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F index f1af3bf54f..418b3f0c8a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_16_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_16_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_16_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F index b7deafd57c..7a3e28e1d6 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_17_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_17_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_17_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h6 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F index 8535ec82ee..14e55c8632 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_18_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_18_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_18_1.F,v 1.3 2005-12-16 22:34:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F index 2f6aeb5ace..a8585f570f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F index 86dbd759a2..ad82ac0d71 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F index 968a0d3e4c..d18c5aa4e4 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_19_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_19_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_19_4_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h12 p9 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F index 5a6a85c3e0..91ca02e9c7 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_20_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_20_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_20_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F index f0ee4f959d..41a6604c04 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_21_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_21_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_21_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 p1 p9 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F index 08ad739d63..d131ba9e99 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_22_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_22_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_22_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p5 h8 h9 h10 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F index 5b0ed270d7..8afeb0522f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F index 29f6a5d4c6..4d7cebf72a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F index 40327b79d3..eb751f4288 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_23_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_23_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_23_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h8 h13 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F index fd05b04a05..4921159901 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_24_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_24_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h6 h8 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F index 7f4a536227..d148eee498 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_24_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_24_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_24_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 h8 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F index ee59f3a2f5..8d2ab3a811 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_25_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_25_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p9 p1 p2 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F index 50b96a5fbe..fd7e23dc49 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_25_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_25_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_25_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F index 34fa8e3fba..7fe8b2dfa6 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F index 5cff915057..8030b54d6d 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_1_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p1 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F index 7564d602c1..360a534ee9 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_26_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h6 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F index 8aab094a27..33c4d6d35f 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_26_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_ccsdt_lambda2_26_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: OFFSET_ccsdt_lambda2_26_2_1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h6 h10 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F index a70209ffe6..c82b122d4c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F index 569432a916..44058bc2fd 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_3_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_3_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F index b04aa2402b..8fdc6f3a42 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_5_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_5_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F index 773b548c5f..64418b1b9a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_5_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F index 33afccfd0b..b737e9c159 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_6_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_6_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F index af7e08b850..8f900d4d0c 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_6_4_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_6_4_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F index fb55b57750..2ac0aa4b8e 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_7_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_7_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F index edce179288..5da33ef92a 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_7_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_7_2_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_7_2_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F index 7478d99ac3..839e23e2a0 100644 --- a/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F +++ b/src/tce/ccsdt_lambda/OFFSET_ccsdt_lambda2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_ccsdt_lambda2_8_1(l_a_offset,k_a_offset,size) -C $Id: OFFSET_ccsdt_lambda2_8_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_density1.F b/src/tce/ccsdt_lambda/ccsdt_density1.F index b016c3bc05..a827678cb3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_density1.F +++ b/src/tce/ccsdt_lambda/ccsdt_density1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_density1(d_d1,d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3, &k_d1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_o &ffset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d @@ -171,7 +171,7 @@ C i1 ( p2 p1 )_yt + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * t ( p2 p3 p4 h5 h6 END SUBROUTINE ccsdt_density1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d @@ -287,7 +287,7 @@ C i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d RETURN END SUBROUTINE ccsdt_density1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_d + = 1 * d ( p1 h4 )_d @@ -371,7 +371,7 @@ C i1 ( p1 h4 )_d + = 1 * d ( p1 h4 )_d RETURN END SUBROUTINE OFFSET_ccsdt_density1_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_d @@ -427,7 +427,7 @@ C i1 ( p1 h4 )_d END SUBROUTINE ccsdt_density1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h4 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h4 )_t @@ -555,7 +555,7 @@ C i1 ( p1 h4 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h4 )_t END SUBROUTINE ccsdt_density1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_td + = 1 * Sum ( p11 h9 ) * d ( h9 p11 )_d * i1 ( p11 h9 )_t @@ -671,7 +671,7 @@ C i0 ( )_td + = 1 * Sum ( p11 h9 ) * d ( h9 p11 )_d * i1 ( p11 h9 )_t RETURN END SUBROUTINE ccsdt_density1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_t + = 1 * t ( p11 h9 )_t @@ -755,7 +755,7 @@ C i1 ( p11 h9 )_t + = 1 * t ( p11 h9 )_t RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_t @@ -811,7 +811,7 @@ C i1 ( p11 h9 )_t END SUBROUTINE ccsdt_density1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p11 h4 h9 )_t * y ( h4 p3 )_y @@ -973,7 +973,7 @@ C i1 ( p11 h9 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p11 h4 h9 )_t * y ( h4 p3 END SUBROUTINE ccsdt_density1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_yt + = 1/4 * Sum ( h6 h5 p4 p3 ) * t ( p3 p4 p11 h5 h6 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -1228,7 +1228,7 @@ C i1 ( p11 h9 )_yt + = 1/4 * Sum ( h6 h5 p4 p3 ) * t ( p3 p4 p11 h5 h6 h9 )_ END SUBROUTINE ccsdt_density1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = -1 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 h9 )_yt @@ -1356,7 +1356,7 @@ C i1 ( p11 h9 )_ytt + = -1 * Sum ( h2 ) * t ( p11 h2 )_t * i2 ( h2 h9 )_yt END SUBROUTINE ccsdt_density1_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 p3 )_y @@ -1483,7 +1483,7 @@ C i2 ( h2 h9 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt @@ -1539,7 +1539,7 @@ C i2 ( h2 h9 )_yt END SUBROUTINE ccsdt_density1_2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 h5 p3 p4 )_y @@ -1715,7 +1715,7 @@ C i2 ( h2 h9 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 END SUBROUTINE ccsdt_density1_2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h9 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -1938,7 +1938,7 @@ C i2 ( h2 h9 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h9 END SUBROUTINE ccsdt_density1_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = 1/2 * Sum ( h2 h1 p8 ) * t ( p8 p11 h1 h2 )_t * i2 ( h1 h2 h9 p8 )_yt @@ -2106,7 +2106,7 @@ C i1 ( p11 h9 )_ytt + = 1/2 * Sum ( h2 h1 p8 ) * t ( p8 p11 h1 h2 )_t * i2 ( END SUBROUTINE ccsdt_density1_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt + = 1 * Sum ( p6 ) * t ( p6 h9 )_t * y ( h1 h2 p6 p8 )_y @@ -2259,7 +2259,7 @@ C i2 ( h1 h2 h9 p8 )_yt + = 1 * Sum ( p6 ) * t ( p6 h9 )_t * y ( h1 h2 p6 p8 RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt @@ -2331,7 +2331,7 @@ C i2 ( h1 h2 h9 p8 )_yt END SUBROUTINE ccsdt_density1_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h2 h9 p8 )_yt + = 5/18 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * i3 ( h1 h2 h7 p5 p6 p8 )_y @@ -2578,7 +2578,7 @@ C i2 ( h1 h2 h9 p8 )_yt + = 5/18 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * RETURN END SUBROUTINE ccsdt_density1_2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 1 * y ( h1 h2 h7 p5 p6 p8 )_y @@ -2692,7 +2692,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 1 * y ( h1 h2 h7 p5 p6 p8 )_y END SUBROUTINE OFFSET_ccsdt_density1_2_5_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y @@ -2779,7 +2779,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y RETURN END SUBROUTINE ccsdt_density1_2_5_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 4/5 * y ( h1 h2 h7 p5 p6 p8 )_y @@ -2894,7 +2894,7 @@ C i3 ( h1 h2 h7 p5 p6 p8 )_y + = 4/5 * y ( h1 h2 h7 p5 p6 p8 )_y END SUBROUTINE ccsdt_density1_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h9 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p11 h5 h6 h7 )_t * i2 ( h5 h6 h7 h9 p3 p4 )_yt @@ -3104,7 +3104,7 @@ C i1 ( p11 h9 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p3 p4 p11 h5 h6 END SUBROUTINE ccsdt_density1_2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h9 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -3277,7 +3277,7 @@ C i2 ( h5 h6 h7 h9 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h9 )_t * y ( h5 h6 RETURN END SUBROUTINE OFFSET_ccsdt_density1_2_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 h9 p3 p4 )_yt @@ -3365,7 +3365,7 @@ C i2 ( h5 h6 h7 h9 p3 p4 )_yt END SUBROUTINE ccsdt_density1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yt @@ -3482,7 +3482,7 @@ C i0 ( )_ytd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_density1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -3609,7 +3609,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_density1_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -3665,7 +3665,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_density1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -3841,7 +3841,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdt_density1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -4064,7 +4064,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_density1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_ytd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yt @@ -4181,7 +4181,7 @@ C i0 ( )_ytd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yt END SUBROUTINE ccsdt_density1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -4356,7 +4356,7 @@ C i1 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_ccsdt_density1_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt @@ -4412,7 +4412,7 @@ C i1 ( p2 p1 )_yt END SUBROUTINE ccsdt_density1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_density1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yt + = -1/6 * Sum ( h7 h6 h5 p4 p3 ) * t ( p2 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1.F index d902b6ae10..f6e3e96a0f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda1(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,d &_y3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_ &v2_offset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda1.F,v 1.4 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_f + = 1 * f ( h2 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F index 1af83437ea..a809798caf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_f + = 1 * f ( h2 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F index c405e4d475..ab73d7e4b6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_10.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F index 37a1e3b8d5..a479841572 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_1.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F index f82470a928..9181ad639d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_2.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F index 05874ad9aa..f047c0769f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_10_3.F,v 1.3 2005-12-16 22:34:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/12 * Sum ( h8 h7 p6 p5 p4 ) * t ( p4 p5 p6 h3 h7 h8 )_t * y ( h2 h7 h8 p4 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F index a984856045..1812732425 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_11.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h10 h8 ) * i1 ( h10 h8 )_yt * v ( h2 h8 h10 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F index 332e63fcab..b603310666 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h10 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F index 06fe26dd98..c8820eb800 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h10 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F index fa51069026..a7855bb564 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_11_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h8 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h8 )_t * y ( h6 h7 h10 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F index 1aa91a6dbd..b43d439291 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_12.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p9 p10 ) * i1 ( p9 p10 )_yt * v ( h2 p10 p1 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F index 0ce97965fd..08c156a569 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1 * Sum ( h4 ) * t ( p9 h4 )_t * y ( h4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F index 303e006001..ff6f410dac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p9 h5 h6 )_t * y ( h5 h6 p3 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F index b19c91f815..6959191cdc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_12_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p10 )_yt + = 1/12 * Sum ( h8 h7 h6 p4 p3 ) * t ( p3 p4 p9 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F index 43d946a148..ac891544ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_13.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h7 h9 p10 ) * i1 ( h2 h7 h9 p10 )_yt * v ( h9 p10 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F index a86e45a5ff..fddd0616b6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_13_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * y ( h2 h7 p3 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F index f5843ef2ed..127aabfcd7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_13_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h9 p10 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h2 h5 h7 p3 p4 p10 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F index 7496c74045..28ac6f02ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_14.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/2 * Sum ( p11 h12 h13 ) * i1 ( h2 p11 h12 h13 )_yt * v ( h12 h13 p1 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F index 925664f195..ee26edc052 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt + = 1 * Sum ( p3 ) * t ( p3 p11 h12 h13 )_t * y ( h2 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F index f06358057f..34ec5e38de 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yt + = -1/2 * Sum ( h6 p4 p3 ) * t ( p3 p4 p11 h6 h12 h13 )_t * y ( h2 h6 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F index 477322fbab..8221cc71f2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1/2 * Sum ( h10 ) * t ( p11 h10 )_t * i2 ( h2 h10 h12 h13 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F index 9507a98801..194029424f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt + = 1 * Sum ( p4 p3 ) * t ( p3 p4 h12 h13 )_t * y ( h2 h10 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F index eaf0918846..d97f54ceeb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_yt + = -1/3 * Sum ( h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h12 h13 )_t * y ( h2 h6 h10 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F index 2d69b0d1c0..015af776cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_3_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h12 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F index 5c0fe23848..77b48f3621 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_3_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h2 h10 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F index 743c0ed38f..1e1d910878 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_3_3_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h13 p5 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h13 )_t * y ( h2 h9 h10 p5 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F index 20785316ea..fbbdc6cf56 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_4.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p11 h5 h12 )_t * i2 ( h2 h5 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F index 6cd048831a..9d19849470 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_4_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h13 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h2 h5 p3 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F index 56a3f776b8..5b29cb4a24 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_5.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1 * t ( p11 h13 )_t * i2 ( h2 h12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F index 3ebdedb9d6..3a5d9ef0f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_5_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F index cadf6da357..4974a77f9f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_5_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = -1/6 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h12 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F index cb68cd685f..9f59209a0d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_6.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = -1/2 * Sum ( h6 h7 p3 p4 ) * t ( p3 p4 p11 h6 h7 h12 )_t * i2 ( h2 h6 h7 h13 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F index e6998ab9b9..83d3e7589b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_6_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h7 h13 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * y ( h2 h6 h7 p3 p4 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F index fd1e0318ba..18284f4150 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_7.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 1/4 * Sum ( p7 p8 ) * t ( p7 p8 h12 h13 )_t * i2 ( h2 p11 p7 p8 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F index d7c7c4fa2a..908f545af8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_7_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 p7 p8 )_yt + = 1 * Sum ( h6 h5 p3 ) * t ( p3 p11 h5 h6 )_t * y ( h2 h5 h6 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F index f128209d5c..c8daa36191 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_8.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_ytt + = 1/2 * Sum ( h9 p7 ) * t ( p7 p11 h9 h13 )_t * i2 ( h2 h9 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F index 78c027c013..7769c88cab 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_8_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h12 p7 )_yt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h12 )_t * i3 ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F index 6a667a18ce..b52f2b3baa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_14_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_14_8_1_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y + = 1 * y ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F index 76dc792157..56c2514834 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_8_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_14_8_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_14_8_1_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h5 h9 p3 p4 p7 )_y + = 1 * y ( h2 h5 h9 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F index fa37a87278..4c4cf1c7e2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_14_9.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h12 h13 )_yttt + = 1/2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p11 h13 p3 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F index 23383f49cb..b006fc0a32 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_14_9_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h13 p3 )_ytt + = 1 * Sum ( h9 h10 p7 ) * t ( p7 p11 h9 h10 )_t * i3 ( h2 h9 h10 h13 p3 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F index d59ff04c36..7513f4f03f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_14_9_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_14_9_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_14_9_1_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h9 h10 h13 p3 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h2 h9 h10 p3 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F index 2678746aaf..fbf5649c98 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_15.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h8 h12 h13 ) * i1 ( h2 h8 h12 h13 )_yt * v ( h12 h13 h8 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F index 3669b134d0..11bde8a4e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt + = 1 * Sum ( p4 p3 ) * t ( p3 p4 h12 h13 )_t * y ( h2 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F index adff924aad..36cadb4486 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_yt + = -1/3 * Sum ( h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h12 h13 )_t * y ( h2 h6 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F index 19d43c1097..2276a79357 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_3.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 h8 h13 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F index 341a5b7a4c..b3c67be583 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_15_3_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h13 )_t * y ( h2 h8 p3 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F index c1ff8ca937..6a461229b3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_15_4.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h12 h13 )_ytt + = -2 * Sum ( p7 ) * t ( p7 h13 )_t * i2 ( h2 h8 h12 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F index 9d7f82f3d1..29d8a718d0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_15_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_15_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_15_4_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h12 p7 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 h8 p3 p4 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F index d651d5b517..7bbd110226 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_16.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p11 h10 p12 ) * i1 ( h2 p11 h10 p12 )_yt * v ( h10 p12 p1 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F index ee690ac64f..931b67b93b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_1.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h10 )_t * y ( h2 h5 p3 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F index 7663b8cbd1..c635289e5b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_2.F,v 1.3 2005-12-16 22:34:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_yt + = -1/4 * Sum ( h7 h6 p4 p3 ) * t ( p3 p4 p11 h6 h7 h10 )_t * y ( h2 h6 h7 p3 p4 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F index 98a7f4cf93..6227b2ac11 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_ytt + = -1 * Sum ( h6 ) * t ( p11 h6 )_t * i2 ( h2 h6 h10 p12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F index 8da072deb6..68c42889cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h2 h6 p5 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F index d96e62e8c2..c6065d2ec5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_3_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p12 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h10 )_t * y ( h2 h5 h6 p3 p4 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F index 3c27fdedee..07a434e053 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_16_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h10 p12 )_ytt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p11 h5 h6 )_t * i2 ( h2 h5 h6 h10 p3 p12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F index fdeaff759d..b7f0ee5758 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_16_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_16_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_16_4_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 h10 p3 p12 )_yt + = 1 * Sum ( p7 ) * t ( p7 h10 )_t * y ( h2 h5 h6 p3 p7 p12 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F index bb06b9032b..f1a98740a9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_17.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( h7 h8 h6 ) * i1 ( h7 h8 h6 p1 )_yt * v ( h2 h6 h7 h8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F index dd8292fc08..b0de0c0688 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_17_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h6 p1 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h5 h7 h8 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F index a823209b0a..91881bbf4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_18.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vty + = -1/2 * Sum ( p13 p15 h12 h14 h16 ) * y ( h12 h14 h16 p1 p13 p15 )_y * i1 ( h2 p13 p15 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F index 82abe1430b..0f436d38b0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = -1 * Sum ( p4 ) * t ( p4 p13 h12 h14 )_t * i2 ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F index 938d40af0f..9d2cf3e12f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_v + = 1 * v ( h2 p15 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F index 79d4a59ebd..431b3099ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -1 * Sum ( h8 ) * t ( p15 h8 )_t * v ( h2 h8 h16 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F index ceafb018cb..2398708558 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h16 )_t * v ( h2 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F index 5a8722928e..de5738875f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_1_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p15 h16 p4 )_vt + = -2/3 * Sum ( h10 p8 ) * t ( p8 p15 h10 h16 )_t * i3 ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F index f9b01ecbb0..a58cdcee28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_4_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v + = 1 * v ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F index 6ceeb3d931..96c77f9c54 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_1_4_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_1_4_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_1_4_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 p4 p8 )_v + = 1/2 * v ( h2 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F index dc0bab0e86..56556ec30d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_ft + = 1/6 * Sum ( p4 ) * t ( p4 p13 p15 h12 h14 h16 )_t * i2 ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F index 7605d0ca9f..54cfac43fb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_f + = 1 * f ( h2 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F index fb385d31f9..1d204ad5ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p4 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h2 h10 p4 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F index a30f591d91..38313136f2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = 1/2 * Sum ( h8 p5 ) * t ( p5 p13 p15 h8 h12 h14 )_t * i2 ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F index 126668dc53..f5f17f90cc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_18_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_18_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_v + = 1 * v ( h2 h8 h16 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F index 7a1f70bb2f..bf594129a5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_3_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h16 p5 )_vt + = -1 * Sum ( p9 ) * t ( p9 h16 )_t * v ( h2 h8 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F index 073cd10c2b..f0626c5008 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vt + = -1/6 * Sum ( p4 p5 ) * t ( p4 p5 p13 h12 h14 h16 )_t * v ( h2 p15 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F index 612179e345..289831ccb2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_5.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vtt + = -1/6 * Sum ( h10 ) * t ( p15 h10 )_t * i2 ( h2 h10 p13 h12 h14 h16 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F index 260cff8bb2..055ae31ee5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_5_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 p13 h12 h14 h16 )_vt + = -1 * Sum ( p4 p5 ) * t ( p4 p5 p13 h12 h14 h16 )_t * v ( h2 h10 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F index 15930ee776..a2e4718e76 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_18_6.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p13 p15 h12 h14 h16 )_vttt + = -1 * Sum ( p8 ) * t ( p8 p15 h14 h16 )_t * i2 ( h2 p13 h12 p8 )_vtt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F index 7024b98f93..8897ad646e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_18_6_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p13 h12 p8 )_vtt + = 1 * Sum ( h6 ) * t ( p13 h6 )_t * i3 ( h2 h6 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F index dfa5f22003..bd89232388 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_18_6_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_18_6_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_18_6_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h6 h12 p8 )_vt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * v ( h2 h6 p3 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F index 2798f77603..fd7959ccc3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_19.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = -1/4 * Sum ( p4 p7 p8 ) * i1 ( h2 p4 p7 p8 )_yt * v ( p7 p8 p1 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F index b9a8afe942..d942aaead5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_19_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p4 p7 p8 )_yt + = 1 * Sum ( h6 h5 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h2 h5 h6 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F index 2935d33409..093d370a5b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F index 85f9aba86d..fca1a8b443 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_20.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yttv + = 1/2 * Sum ( h9 p7 h6 ) * i1 ( h9 p7 h6 p1 )_ytt * v ( h2 h6 h9 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F index bf4b06243d..cbf2ec752a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_20_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p7 h6 p1 )_ytt + = 1 * Sum ( h8 ) * t ( p7 h8 )_t * i2 ( h8 h9 h6 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F index a84f2e7c48..8259415556 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_20_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_20_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_20_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h6 p1 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h6 )_t * y ( h5 h8 h9 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F index 08c926acac..e5f1ded00c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda1_21.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yttv + = 1/12 * Sum ( p12 p13 h11 ) * i1 ( p12 p13 h11 p1 )_ytt * v ( h2 h11 p12 p13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F index 40c82dcf94..f0367a27ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_21_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_ytt + = 1 * Sum ( h9 h10 ) * t ( p12 p13 h9 h10 )_t * i2 ( h9 h10 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F index dd48cdf221..e64d4fd9d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_21_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 p1 )_yt + = -1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h11 )_t * i3 ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F index dc046f50b6..0f92694145 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_21_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_21_1_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1 * y ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F index 0598dd896c..a453a74857 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_1_1_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_21_1_1_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_21_1_1_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h9 h10 p1 p3 p4 )_y + = 1/2 * y ( h5 h9 h10 p1 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F index dd074a7e23..17ad187aeb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_21_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p13 h11 p1 )_yttt + = -3 * Sum ( h4 ) * t ( p12 h4 )_t * i2 ( h4 p13 h11 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F index 1bd7239ee9..ced88ce7e8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_21_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p13 h11 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p13 h6 )_t * i3 ( h4 h6 h11 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F index 8964370567..517a7099f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_21_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_21_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda1_21_2_1_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h6 h11 p1 )_yt + = 1 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * y ( h4 h6 h9 p1 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F index f1c18d4351..70989563b2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F index c61544bca4..cf0ce764d2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F index 104f5af23e..1010872932 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_2_2_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F index 1f4414e85c..77a8d8a298 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_2_2_2.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F index e546d24132..6115a7ca36 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F index 0a0d9d9d8b..6bedd576f6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_2_4.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F index 68085d9eef..b570dde91b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_3.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F index 716a6182f2..c1602eeae2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_3_1.F,v 1.3 2005-12-16 22:34:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F index f85d3d0944..8763727b62 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F index 09d33aa854..9cd920fb61 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_3_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F index bccbf44bda..89851138e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_3_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F index b4d5998711..6e125a38dd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F index 5374093da5..51621edc23 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h10 p11 ) * y ( h2 h10 p1 p11 )_y * i1 ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F index 49eb310181..f0f4a63955 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_f + = 1 * f ( p11 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F index 1323cfa4ab..c6c73b9a0f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = -1 * Sum ( h9 ) * t ( p11 h9 )_t * i2 ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F index 66b9cc6664..1a075b3531 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_f + = 1 * f ( h9 h10 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F index 4c0e5071c0..a313edbfa8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_ft + = 1 * Sum ( p3 ) * t ( p3 h10 )_t * i3 ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F index baa22578e6..3e9da01bf7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_2_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_f + = 1 * f ( h9 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F index ff6b4da727..2fe533cb7d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_5_2_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h9 p3 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F index f7fe56ef77..6e5c8d585b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h9 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F index 37c8f37901..f7429a6bd7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_2_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h10 )_t * v ( h6 h9 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F index 66af2ea287..86afdd8f02 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = 1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F index 498b0ce15b..798eb1e5e2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_f + = 1 * f ( p11 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F index cb35398023..018ade8faf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p11 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p11 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F index 46c1397535..689ab177e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p11 h10 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F index 15fafe5f05..85e49e7804 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p11 h5 h10 )_t * i2 ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F index f8bfc61a0c..acfa6e50ef 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F index 114e16f0ec..effdd5dea4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F index ee77d30262..f6a2b2f71c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p11 h5 h6 )_t * i2 ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F index 1e54caadbe..ac8860acf6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_5_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_5_6_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_v + = 1 * v ( h5 h6 h10 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F index 5efa86335b..25d6746525 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_5_6_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h5 h6 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F index 127453c1ec..1253c6f080 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h10 )_t * v ( h6 p11 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F index 7815d21c33..7d92f695f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_5_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_5_8.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 h10 )_vt + = 1/4 * Sum ( h7 h8 p4 p5 ) * t ( p4 p5 p11 h7 h8 h10 )_t * v ( h7 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F index 0fa5083a23..79b862ac9b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h9 h12 p11 ) * y ( h9 h12 p1 p11 )_y * i1 ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F index dbbfb82bbc..7644e486ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_v + = -1 * v ( h2 p11 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F index 9cb4eac1a7..be3941b3c5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = 1 * Sum ( h7 ) * t ( p11 h7 )_t * i2 ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F index 05fef241ae..d5e067678c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_v + = 1 * v ( h2 h7 h9 h12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F index 6ba9d08a82..90023ae7f4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F index ef3b7b3114..4bf9314381 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_2_2_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_v + = 1 * v ( h2 h7 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F index 6241134dfe..c5695b4d22 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_6_2_2_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h9 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h2 h7 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F index 8565532039..fef1776107 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_2_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h9 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h9 h12 )_t * v ( h2 h7 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F index d1bad7ba80..b9917e3173 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_3.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F index 77c5ef23a9..61ad98bcb6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_3_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_v + = 1 * v ( h2 p11 h9 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F index 5133361148..122707eb51 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_3_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p11 h9 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h2 p11 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F index 055e34bda5..8ef861f014 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_4.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p11 h9 h12 )_t * i2 ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F index a012f7b528..d670d7662e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_4_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F index 21ba2b308f..1382826e70 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_4_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F index fa0b2cd3a3..3a6aec9f2d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_5.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p11 h6 h12 )_t * i2 ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F index 32c90d08c7..ba6bf2179f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_6_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_6_5_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F index 915775a98c..ec13f22375 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_6_5_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h2 h6 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F index 8298317b1a..f30cb375b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_6.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h9 h12 )_t * v ( h2 p11 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F index 8ab3685f1a..ec9293ed55 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_6_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_6_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_6_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 h12 )_vt + = 1/2 * Sum ( h8 p4 p5 ) * t ( p4 p5 p11 h8 h9 h12 )_t * v ( h2 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F index 838d4b8558..847bf5b297 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_7.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F index 66d87fb0f5..866aaaa5f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_7_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F index 1dd2c5deb7..09c7195a49 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_7_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F index fead9d2fbb..2b82dde74b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_8.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/4 * Sum ( h13 h12 p15 p14 ) * y ( h2 h12 h13 p1 p14 p15 )_y * i1 ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F index 51f076d31d..08d33f8ae6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_v + = 1 * v ( p14 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F index 111c25c9e1..e3196abf48 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_10.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p14 p15 h7 h8 h12 )_t * i2 ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F index 44b4e3245b..18d9702149 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_10_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_10_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_v + = 1 * v ( h7 h8 h13 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F index 55bc902314..dc534b4cec 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_10_2.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h13 p5 )_vt + = -1 * Sum ( p9 ) * t ( p9 h13 )_t * v ( h7 h8 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F index d50442348f..afcf468ad8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_11.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -1 * Sum ( h8 p4 p5 ) * t ( p4 p5 p14 h8 h12 h13 )_t * v ( h8 p15 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F index 4117542aee..7154f65e93 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_12.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ftt + = 2 * Sum ( h3 ) * t ( p14 p15 h3 h12 )_t * i2 ( h3 h13 )_ft diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F index d90ef158bf..4c8e43cf58 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_1.F,v 1.3 2005-12-16 22:34:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_ft + = 1 * Sum ( p4 ) * t ( p4 h13 )_t * f ( h3 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F index 9983bcd9da..39f3cf3a4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 h13 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F index 9d3a950c05..eff01df753 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_12_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h13 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h13 )_t * v ( h3 h10 p7 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F index e82042d49d..500d1e9d5e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_13.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ftt + = 2 * Sum ( p4 ) * t ( p4 p14 h12 h13 )_t * i2 ( p15 p4 )_ft diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F index 20564b2fab..a4714e3885 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_ft + = 1 * Sum ( h3 ) * t ( p15 h3 )_t * f ( h3 p4 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F index f300a8b459..7b4d38184f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F index 2700caa3d4..0bdaa5b17a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_13_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p15 p4 )_vt + = -1/2 * Sum ( h9 h10 p8 ) * t ( p8 p15 h9 h10 )_t * v ( h9 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F index 67bd60d242..eb05bfbad4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda1_8_14.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vtt + = -4 * Sum ( h3 ) * t ( p15 h3 )_t * i2 ( h3 p14 h12 h13 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F index 4cdc92c062..d902232fd5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_14_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt + = 1 * Sum ( h6 p4 ) * t ( p4 p14 h6 h12 )_t * v ( h3 h6 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F index 3f292401a3..f7819b7d5d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda1_8_14_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p14 h12 h13 )_vt + = 1/4 * Sum ( h8 p4 p5 ) * t ( p4 p5 p14 h8 h12 h13 )_t * v ( h3 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F index 45f7fc1975..40c9efc0c6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -2 * Sum ( h9 ) * t ( p14 h9 )_t * i2 ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F index 9dce00e4cd..5fa8fb188a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_v + = 1 * v ( h9 p15 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F index f03861e53c..ba7d393e05 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = 1/2 * Sum ( h4 ) * t ( p15 h4 )_t * i3 ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F index f6999d565b..4fa9dab78a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_v + = 1 * v ( h4 h9 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F index 2b4d263334..10b7768591 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i4 ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F index ea63ea81eb..bce593d4a3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_v + = 1 * v ( h4 h9 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F index 1fe8096799..26aa8c2c67 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h4 h9 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h4 h9 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F index 4057ce73a5..3111da09e6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_2_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h9 h12 h13 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h12 h13 )_t * v ( h4 h9 p7 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F index e5408b17cb..f42b08e1a2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F index 0249c7914f..c9575b8f05 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_2_3_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_v + = 1 * v ( h9 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F index 62c24c3add..1e42e50254 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_3_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p15 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h9 p15 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F index 27ac931af7..5e810c802f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_4.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( h9 p15 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F index 8707060be2..989f0c1c14 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_2_5.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p15 h12 h13 )_vtt + = 2 * Sum ( h10 p8 ) * t ( p8 p15 h10 h13 )_t * i3 ( h9 h10 h12 p8 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F index 062e0f99e3..ee0494fa43 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_2_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_2_5_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h12 p8 )_vt + = 1 * Sum ( p3 ) * t ( p3 h12 )_t * v ( h9 h10 p3 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F index 2e2c1e6ad5..a27b94c1d9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F index 5c6a3c7a23..cc3ada266a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_3_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_v + = 1 * v ( p14 p15 h13 p3 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F index 793e5a02ad..9a1493b186 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_3_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p15 h13 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( p14 p15 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F index 5a7a7335d8..1f21d09873 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_4.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = -2 * Sum ( h4 ) * t ( p14 p15 h4 h13 )_t * i2 ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F index 692cf0f397..42edcf662f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_4_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_f + = 1 * f ( h4 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F index 7f6a97b8bb..d3f7cc7900 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_4_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h12 )_vtt + = -1 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F index 4cc91bd9fc..e10b601620 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_4_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F index 2a601aa9fc..a19b9f8028 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_5.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = 2 * Sum ( p3 ) * t ( p3 p15 h12 h13 )_t * i2 ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F index 0fb2c0c428..88996005d2 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_5_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_f + = 1 * f ( p14 p3 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F index 4ee7ef07b5..dc4ec337e4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_5_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p14 p3 )_vtt + = 1 * Sum ( h4 ) * t ( p14 h4 )_t * i3 ( h4 p3 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F index f5100f8599..118c9e3657 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_5_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 p3 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p3 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F index c657be4454..4428e58bf9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_6.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = 1/2 * Sum ( h6 h8 ) * t ( p14 p15 h6 h8 )_t * i2 ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F index 1b5719edf4..9550894f76 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_6_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_v + = 1 * v ( h6 h8 h12 h13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F index c229155fe1..8ff53e2b96 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_6_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_vt + = -2 * Sum ( p4 ) * t ( p4 h12 )_t * i3 ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F index 93331b10d3..0b537e0ea1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_6_2_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_v + = 1 * v ( h6 h8 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F index ef6a5d4e5e..50f797e03d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_lambda1_8_6_2_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 p4 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h13 )_t * v ( h6 h8 p4 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F index 24378f4064..fa8d38d8d0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_6_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( h6 h8 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F index 841bba4c60..7eb91c5663 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_7.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = -4 * Sum ( h6 p4 ) * t ( p4 p14 h6 h12 )_t * i2 ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F index f8899273c8..06ae80cdb4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_7_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_v + = 1 * v ( h6 p15 h13 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F index ff55cb741e..d5c8f3e537 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_7_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h13 )_t * v ( h6 p15 p4 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F index 8deb8a0516..90ad39c007 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_7_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p15 h13 p4 )_vt + = -1/2 * Sum ( h10 p8 ) * t ( p8 p15 h10 h13 )_t * v ( h6 h10 p4 p8 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F index 38f742de34..82a450cc3c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_8.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h12 h13 )_t * v ( p14 p15 p3 p4 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F index 89a977847d..5e2f5a6ca8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_8_9.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p14 p15 h12 h13 )_ft + = 1 * Sum ( h4 p6 ) * t ( p6 p14 p15 h4 h12 h13 )_t * i2 ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F index 2907393835..ea6b970a92 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_8_9_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_8_9_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_f + = 1 * f ( h4 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F index 7cbfe53fd6..01aa11aafd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_8_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_8_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_8_9_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F index 8fa3b0f853..d969b1c21e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda1_9.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vt + = 1 * Sum ( h12 p13 ) * i1 ( p13 h12 )_t * v ( h2 h12 p1 p13 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F index e1fd7ac553..896571e0a9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_1.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_t + = 1 * t ( p13 h12 )_t diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F index 4047dc92ea..7548d870a6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_2.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p13 h5 h12 )_t * y ( h5 p3 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F index 578ff64318..d4b6ad76d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_3.F,v 1.3 2005-12-16 22:34:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_yt + = 1/4 * Sum ( h7 h6 p4 p3 ) * t ( p3 p4 p13 h6 h7 h12 )_t * y ( h6 h7 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F index e9fb735287..76a42de97f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_4.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 h12 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F index f105acfb29..09fbdc8c2b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * y ( h8 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F index 709995e632..bcb823ca37 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h5 h8 p3 p4 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F index 668802326a..00e43c110a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_4_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_4_3.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 )_yt + = 1/12 * Sum ( h7 h6 p5 p4 p3 ) * t ( p3 p4 p5 h6 h7 h12 )_t * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F index b171f41659..96a800a2e8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_5.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p13 h5 h6 )_t * i2 ( h5 h6 h12 p3 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F index a40ae74adf..ad44d06a49 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_5_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * y ( h5 h6 p3 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F index 8f6b68fe46..6f9938e25e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_5_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h12 p3 )_yt + = -5/18 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h12 )_t * i3 ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F index c0337e2c8a..972c3cd5d6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_5_2_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y + = 1 * y ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F index b886163912..e49759362a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_5_2_2.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda1_9_5_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda1_9_5_2_2.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h5 h6 h9 p3 p7 p8 )_y + = 4/5 * y ( h5 h6 h9 p3 p7 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F index d69b580908..b22a2738cc 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda1_9_6.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ytt + = -1/12 * Sum ( h6 h7 h8 p3 p4 ) * t ( p3 p4 p13 h6 h7 h8 )_t * i2 ( h6 h7 h8 h12 p3 p4 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F index 45c6e5ccc6..50933e0afa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda1_9_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda1_9_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda1_9_6_1.F,v 1.3 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h12 p3 p4 )_yt + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * y ( h6 h7 h8 p3 p4 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2.F index 671f392d23..c10a5d0106 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda2(d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,d_y1,d_y2,d &_y3,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_ &v2_offset,k_y1_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda2.F,v 1.4 2005-12-16 22:34:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F index dc30ca6062..ee73334277 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_v + = 1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F index 1f0d3440bc..f8eea2bca7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_10.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * Sum ( h12 p13 ) * y ( h3 h4 h12 p1 p2 p13 )_y * i1 ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F index 68700bc4e8..74bdb4550b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_f + = 1 * f ( p13 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F index 1c61c2f621..0b939b8964 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = -1 * Sum ( h11 ) * t ( p13 h11 )_t * i2 ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F index c058ebebbd..c694920ad0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_f + = 1 * f ( h11 h12 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F index ab3ae92083..ee1bfa53cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F index 4309c478e3..1a9ee14ccb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_f + = 1 * f ( h11 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F index a4f3ac5406..3e13509384 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_10_2_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p5 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 h11 p5 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F index bb305a633f..fd412239cf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h11 h12 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F index 07d6e58c44..3eacb4f27c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_2_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 h11 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F index 5bbe83b00d..0358ad24e4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = 1 * Sum ( p9 ) * t ( p9 h12 )_t * i2 ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F index 9f2d1cc4c7..1607cb343f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_3_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_f + = 1 * f ( p13 p9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F index 8cb41cf124..a544dbf33b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_3_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p13 p7 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F index 9e5902f171..3c85f5c6b0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_3_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p13 p9 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F index d27eb979c7..5065ee751a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p13 h12 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F index d0b7d52a8b..cd9e4ec080 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_5.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_ft + = 1 * Sum ( h7 p6 ) * t ( p6 p13 h7 h12 )_t * i2 ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F index 271bd92dba..23e9ba274f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_10_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_10_5_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_f + = 1 * f ( h7 p6 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F index b4970c4a2e..44888b765c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_10_5_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p6 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h7 h10 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F index 7846ee4339..42a363dada 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_6.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p13 h7 h8 )_t * v ( h7 h8 h12 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F index 4a82a8ab5e..ab8b0dc5ba 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_7.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h12 )_t * v ( h8 p13 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F index a9b252591e..8992451e81 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_10_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_10_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_10_8.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p13 h12 )_vt + = 1/4 * Sum ( h9 h10 p6 p7 ) * t ( p6 p7 p13 h9 h10 h12 )_t * v ( h9 h10 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F index a4aaf0b2a5..577de38be6 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_11.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h11 h14 p13 ) * y ( h3 h11 h14 p1 p2 p13 )_y * i1 ( h4 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F index 16d6d539a9..cb2e5905d8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_v + = -1 * v ( h3 p13 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F index 8cec0f40ef..065a059497 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = 1 * Sum ( h9 ) * t ( p13 h9 )_t * i2 ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F index 35184c67d5..c5b1a93964 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_v + = 1 * v ( h3 h9 h11 h14 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F index 89b2f40da1..8d39884d8d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_vt + = 2 * Sum ( p5 ) * t ( p5 h14 )_t * i3 ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F index 6f60a66920..d09a568ec3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_2_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_v + = 1 * v ( h3 h9 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F index 54b2ad4f79..fab61b57c7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_11_2_2_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h9 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 h9 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F index b72508a6d0..f41f2cdac1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_2_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h9 h11 h14 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 h9 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F index 2f0d1a2656..e6c97d19c0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_3.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( p5 ) * t ( p5 h14 )_t * i2 ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F index 6aae5106a6..c6d083436a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_3_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_v + = 1 * v ( h3 p13 h11 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F index ccf7b4ec98..e906de96d1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_3_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p13 h11 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h3 p13 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F index ca32001cd9..36f2ab8ddd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_4.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_ft + = -1 * Sum ( p7 ) * t ( p7 p13 h11 h14 )_t * i2 ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F index 49e342abdf..81114e2125 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_4_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_f + = 1 * f ( h3 p7 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F index 545b745e64..121c70f8b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_4_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h3 h10 p7 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F index 829290a54e..89c6599a4a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_5.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h14 )_t * i2 ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F index 69fb0c464f..695a88fdc4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_11_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_11_5_1.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_v + = 1 * v ( h3 h8 h11 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F index 21a37ba4bb..1ccfdd661f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_11_5_2.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h11 p6 )_vt + = -1 * Sum ( p9 ) * t ( p9 h11 )_t * v ( h3 h8 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F index ee3f2d2386..4d83368a3a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_6.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h11 h14 )_t * v ( h3 p13 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F index c9e0b5cad6..5ebe665b27 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_11_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_11_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_11_7.F,v 1.3 2005-12-16 22:34:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p13 h11 h14 )_vt + = 1/2 * Sum ( h10 p6 p7 ) * t ( p6 p7 p13 h10 h11 h14 )_t * v ( h3 h10 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F index 70fc2d2fba..b2b115caa4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_12.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * P( 2 ) * Sum ( h12 p11 p13 ) * y ( h3 h4 h12 p1 p11 p13 )_y * i1 ( p11 p13 h12 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F index ac1dc4eb21..debab30968 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_12_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_12_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_v + = -1 * v ( p11 p13 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F index 6599bedac0..e2da9492d9 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( p11 p13 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F index 9e269b9104..40805f3952 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = -1/2 * Sum ( h7 h8 ) * t ( p11 p13 h7 h8 )_t * i2 ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F index 61ed2cfcca..dd99be3e63 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_12_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_12_3_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_v + = 1 * v ( h7 h8 h12 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F index 19412a6e6f..2cae32e317 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_3_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h12 p1 )_vt + = -1 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h7 h8 p1 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F index be1f6793a4..6dc6618393 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_4.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = -2 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 p11 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F index 17aa40c825..3dc6ba7e17 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_5.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vt + = 1/2 * Sum ( h9 h10 p7 ) * t ( p7 p11 p13 h9 h10 h12 )_t * v ( h9 h10 p1 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F index 3118fd28d8..d588bef468 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_6.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vtt + = -2 * Sum ( h8 ) * t ( p13 h8 )_t * i2 ( h8 p11 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F index 999fbf3f8d..4c7b3c15a4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_6_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p11 h12 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h8 p11 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F index 678b9c44c1..acbddbe060 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_12_7.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p13 h12 p1 )_vtt + = 2 * Sum ( h10 ) * t ( p11 h10 )_t * i2 ( h10 p13 h12 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F index b42132dbc1..2a903ccbcd 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_12_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_12_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_12_7_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p13 h12 p1 )_vt + = 1 * Sum ( h8 p6 ) * t ( p6 p13 h8 h12 )_t * v ( h8 h10 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F index 74a2cd36c7..831d494fe0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_13.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h11 ) * i1 ( h3 h11 )_yt * v ( h4 h11 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F index 543f39dd93..f4fce3bca5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * y ( h3 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F index e40f82128f..eab1711d78 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h11 )_t * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F index 45cf73b7c4..9d997bdcac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_13_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_13_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h11 )_yt + = 1/12 * Sum ( h9 h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h9 h11 )_t * y ( h3 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F index 1da4dd82b3..8d055c4a9d 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_14.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F index 9e6dfd8e9b..c69049e91f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_14_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F index 1f1e98d736..646308f904 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_14_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_14_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1/2 * Sum ( h8 p7 p6 ) * t ( p6 p7 h5 h8 )_t * y ( h3 h4 h8 p1 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F index cc92b02acc..0ad57d2632 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_15.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h8 h10 ) * i1 ( h3 h8 h10 p1 )_yt * v ( h4 h10 h8 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F index 841491e75a..373154e9aa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_15_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h8 p1 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F index e80140afb1..de257737d3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_15_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_15_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h8 h10 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h7 h8 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F index 64aa836d45..773ee0be65 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_16.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h10 p8 ) * i1 ( h3 h4 h10 p8 )_yt * v ( h10 p8 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F index ce1e9c831d..bb873f8f6b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_16_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h10 )_t * y ( h3 h4 p5 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F index 47106eaa2e..8a8182c160 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_16_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_16_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 p8 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h10 )_t * y ( h3 h4 h7 p5 p6 p8 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F index aa920fa755..108348e066 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_17.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_17.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1 * P( 2 ) * Sum ( h8 h6 p7 ) * i1 ( h3 h4 h8 h6 p1 p7 )_yt * v ( h6 p7 h8 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F index 7a2b292476..51d4f1ce28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_17_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_17_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h6 p1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 h8 p1 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F index 1e1c36afbd..8c8bb11f33 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_18.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p11 ) * i1 ( p11 p1 )_yt * v ( h3 h4 p2 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F index 565f818fdf..a4cc54711e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_18_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p11 h7 h8 )_t * y ( h7 h8 p1 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F index 2501e24701..3a50eb29b7 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_18_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_18_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p11 p1 )_yt + = -1/6 * Sum ( h10 h9 h8 p6 p5 ) * t ( p5 p6 p11 h8 h9 h10 )_t * y ( h8 h9 h10 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F index 6e3ed42173..aa14eee80e 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_19.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/4 * Sum ( h12 h13 ) * i1 ( h3 h4 h12 h13 )_yt * v ( h12 h13 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F index 4dce51102e..b0b6661425 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt + = -1 * Sum ( p6 p5 ) * t ( p5 p6 h12 h13 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F index 2d067f5df2..9175d27769 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_yt + = -1/3 * Sum ( h8 p7 p6 p5 ) * t ( p5 p6 p7 h8 h12 h13 )_t * y ( h3 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F index 14a94d952a..e7f0adc070 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i2 ( h3 h4 h13 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F index 0a0f409ebd..a31f8604b8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_19_3_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h13 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h3 h4 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F index 8e38a45248..81a350c1a0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_19_4.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h12 h13 )_ytt + = 2 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h3 h4 h12 p9 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F index 8959e82f6b..a5cb1f337a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_19_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_19_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_19_4_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h12 p9 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h12 )_t * y ( h3 h4 h7 p5 p6 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F index 3394e85419..6f2f36c322 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F index 363d1c4898..5e75d4f888 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_20.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_20.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * Sum ( h9 p6 ) * i1 ( h9 p6 p1 p2 )_yt * v ( h3 h4 h9 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F index 0ac8b15da7..2dc1f21d66 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_20_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_20_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p6 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 h9 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F index c807d53fd4..6e6cb7b899 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_21.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_21.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/2 * P( 4 ) * Sum ( p6 p9 ) * i1 ( h3 p6 p1 p9 )_yt * v ( h4 p9 p2 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F index 96864df074..d4b0c13b39 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_21_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_21_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p6 p1 p9 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h7 h8 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F index bf1e508694..ef961d61d1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_22.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_22(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_22.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vty + = 1/12 * Sum ( p5 h8 h9 h10 ) * y ( h8 h9 h10 p1 p2 p5 )_y * i1 ( h3 h4 p5 h8 h9 h10 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F index 9fc7b58697..d1f8354454 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_22_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_22_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_22_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p5 h8 h9 h10 )_vt + = 1 * Sum ( p6 p7 ) * t ( p5 p6 p7 h8 h9 h10 )_t * v ( h3 h4 p6 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F index 1754c3f51d..d90edcf7ea 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_23.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * P( 4 ) * Sum ( p12 h13 ) * i1 ( h3 p12 h13 p1 )_yt * v ( h4 h13 p2 p12 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F index 99df7fd1f0..e2b1b63d40 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_yt + = 1 * Sum ( h9 h8 p6 p5 ) * t ( p5 p6 p12 h8 h9 h13 )_t * y ( h3 h8 h9 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F index ba285a73af..f0d0aa68ff 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_ytt + = -4 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h3 h8 h13 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F index cd97e7a52e..4699130ec3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_2_1.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h13 )_t * y ( h3 h8 p1 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F index 7211b69042..7106db9bc3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_2_2.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h8 h13 p1 )_yt + = 1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h13 )_t * y ( h3 h7 h8 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F index 02b9e60603..df260669d4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_23_3.F,v 1.3 2005-12-16 22:34:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p12 h13 p1 )_ytt + = -2 * Sum ( h7 h8 p5 ) * t ( p5 p12 h7 h8 )_t * i2 ( h3 h7 h8 h13 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F index be57534412..e6b9f3053b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_23_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_23_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_23_3_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h8 h13 p1 p5 )_yt + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * y ( h3 h7 h8 p1 p5 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F index 42fdce847e..ace48cc49a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_24.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = 1/2 * P( 2 ) * Sum ( h9 h6 h8 ) * i1 ( h3 h4 h9 h6 h8 p1 )_ytt * v ( h6 h8 h9 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F index 123a89ac15..263fa5f34b 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_24_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h6 h8 p1 )_ytt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * i2 ( h3 h4 h9 h8 p1 p5 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F index f1340e5b67..41a18c3d24 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_24_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_24_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_24_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 h8 p1 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 h9 p1 p5 p7 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F index 5bb8463102..93e99e18bf 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_25.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * Sum ( p6 p9 ) * i1 ( p6 p9 p1 p2 )_ytt * v ( h3 h4 p6 p9 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F index ae98033ec2..08415d3816 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_25_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p9 p1 p2 )_ytt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 p6 p1 p2 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F index 4d7fec380e..0a334ac78c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_25_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_25_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_25_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p6 p1 p2 )_yt + = -1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 h10 p1 p2 p5 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F index 8a8b911b5e..83564c5d79 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda2_26.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1/2 * P( 2 ) * Sum ( p11 h8 h10 ) * i1 ( h3 h4 p11 h8 h10 p1 )_ytt * v ( h8 h10 p2 p11 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F index 58aef03e79..26e82b9158 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_26_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_ytt + = 1 * t ( p11 h10 )_t * i2 ( h3 h4 h8 p1 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F index 32c2a34fdd..31e3cd85d5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_26_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p1 )_yt + = -1 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F index c2f2537045..83e3985bfb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda2_26_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 p11 h8 h10 p1 )_yttt + = 1 * Sum ( h6 ) * t ( p11 h6 )_t * i2 ( h3 h4 h6 h8 h10 p1 )_ytt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F index 4aadaf457f..c705c2ca5a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda2_26_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h6 h8 h10 p1 )_ytt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * i3 ( h3 h4 h6 h10 p1 p7 )_yt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F index 0847fdcf3a..557f0a85ac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_26_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_26_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_lambda2_26_2_1_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h3 h4 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h3 h4 h6 p1 p7 p9 )_y diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F index c1d3159997..ee361a6ad1 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F index fb52a2fd70..a025145fd4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F index ac2da6ab37..76724e748a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F index 25652f0585..882c778b9f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_3_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F index eb73b1a1f0..928f8a1194 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_3_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F index e4320902d4..06e677e365 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F index ab53d36066..7038925842 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_5.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F index 43d7cd84d7..f269c0b1a5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_5_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F index 41c4f6653f..cf5b4536c4 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F index a76d627fd1..8c91f3f18c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_5_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F index 752858d705..5061514a4c 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_5_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F index 74516de0f7..f16554e2f5 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F index 09b4ef48d1..f67a6e2280 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_5_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F index cf3796c227..2d9ff532f8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_6.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F index 76eba1dc4d..2e06e1a7a8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_6_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F index c7ae2e4a21..96961814cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F index a98e78cb6c..e669c8bfa3 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F index b122da9e87..f0ba9020d8 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_6_4.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F index f473b51a73..b95a285c61 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_6_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_6_4_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F index 36f34eb521..8864d6a54a 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_7.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F index 02864f964e..a0bde39b4f 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_7_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F index 37d3d5293b..04ddf29eac 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_7_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F index e2fc50384b..78b6ddb250 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_7_2_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F index a71093318f..8b5301ff53 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda2_7_2_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F index 2e1893f053..fef3f7beaa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_7_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_7_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F index 21c8e48468..b2cfdda528 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_8.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F index e2588d159e..ea83ac6690 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_lambda2_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda2_8_1.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F index 76dfd26cb6..e8e3f892f0 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_8_2.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F index 69383f2719..e432362a28 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_8_3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda2_8_3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F b/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F index 8e43689734..54391252cb 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda2_9.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_lambda2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda2_9.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v diff --git a/src/tce/ccsdt_lambda/ccsdt_lambda3.F b/src/tce/ccsdt_lambda/ccsdt_lambda3.F index a48f266f72..73e1ab13aa 100644 --- a/src/tce/ccsdt_lambda/ccsdt_lambda3.F +++ b/src/tce/ccsdt_lambda/ccsdt_lambda3.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_lambda3(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,d_y3,k &_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_of &fset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 p3 )_v @@ -297,7 +297,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t END SUBROUTINE ccsdt_lambda3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 p3 )_v @@ -514,7 +514,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * v ( h5 h6 p2 END SUBROUTINE ccsdt_lambda3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 p3 )_f @@ -731,7 +731,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 RETURN END SUBROUTINE ccsdt_lambda3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f @@ -815,7 +815,7 @@ C i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_f @@ -871,7 +871,7 @@ C i1 ( h4 p1 )_f END SUBROUTINE ccsdt_lambda3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 p1 p7 )_v @@ -1032,7 +1032,7 @@ C i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 p1 p7 )_ END SUBROUTINE ccsdt_lambda3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h9 ) * y ( h4 h9 p1 p2 )_y * i1 ( h5 h6 h9 p3 )_v @@ -1267,7 +1267,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h9 ) * y ( h4 h9 p1 p2 RETURN END SUBROUTINE ccsdt_lambda3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_v + = 1 * v ( h4 h5 h9 p1 )_v @@ -1368,7 +1368,7 @@ C i1 ( h4 h5 h9 p1 )_v + = 1 * v ( h4 h5 h9 p1 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_v @@ -1438,7 +1438,7 @@ C i1 ( h4 h5 h9 p1 )_v END SUBROUTINE ccsdt_lambda3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h4 h5 p1 p7 )_v @@ -1592,7 +1592,7 @@ C i1 ( h4 h5 h9 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h9 )_t * v ( h4 h5 p1 p END SUBROUTINE ccsdt_lambda3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 )_y * v ( h6 p7 p2 p3 )_v @@ -1830,7 +1830,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( p7 ) * y ( h4 h5 p1 p7 END SUBROUTINE ccsdt_lambda3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 p1 p2 p3 )_y * i1 ( h6 h11 )_f @@ -2027,7 +2027,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = -1 * P( 3 ) * Sum ( h11 ) * y ( h4 h5 h11 RETURN END SUBROUTINE ccsdt_lambda3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f @@ -2111,7 +2111,7 @@ C i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_f @@ -2167,7 +2167,7 @@ C i1 ( h4 h11 )_f END SUBROUTINE ccsdt_lambda3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f @@ -2294,7 +2294,7 @@ C i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f RETURN END SUBROUTINE ccsdt_lambda3_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f @@ -2378,7 +2378,7 @@ C i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_5_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_f @@ -2434,7 +2434,7 @@ C i2 ( h4 p7 )_f END SUBROUTINE ccsdt_lambda3_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 )_v @@ -2595,7 +2595,7 @@ C i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 END SUBROUTINE ccsdt_lambda3_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 )_v @@ -2740,7 +2740,7 @@ C i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 END SUBROUTINE ccsdt_lambda3_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v ( h4 h10 p7 p8 )_v @@ -2916,7 +2916,7 @@ C i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v END SUBROUTINE ccsdt_lambda3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p12 ) * y ( h4 h5 h6 p1 p2 p12 )_y * i1 ( p12 p3 )_f @@ -3113,7 +3113,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 3 ) * Sum ( p12 ) * y ( h4 h5 h6 p1 RETURN END SUBROUTINE ccsdt_lambda3_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_f + = 1 * f ( p12 p1 )_f @@ -3197,7 +3197,7 @@ C i1 ( p12 p1 )_f + = 1 * f ( p12 p1 )_f RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_f @@ -3254,7 +3254,7 @@ C i1 ( p12 p1 )_f END SUBROUTINE ccsdt_lambda3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p12 p1 p7 )_v @@ -3399,7 +3399,7 @@ C i1 ( p12 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p12 p1 p7 END SUBROUTINE ccsdt_lambda3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p12 h9 h10 )_t * v ( h9 h10 p1 p8 )_v @@ -3575,7 +3575,7 @@ C i1 ( p12 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p12 h9 h10 )_t * v ( END SUBROUTINE ccsdt_lambda3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p12 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h8 p1 )_vt @@ -3703,7 +3703,7 @@ C i1 ( p12 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p12 h8 )_t * i2 ( h8 p1 )_vt END SUBROUTINE ccsdt_lambda3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 )_v @@ -3863,7 +3863,7 @@ C i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_6_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p1 )_vt @@ -3919,7 +3919,7 @@ C i2 ( h8 p1 )_vt END SUBROUTINE ccsdt_lambda3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h11 h12 p1 p2 p3 )_y * i1 ( h5 h6 h11 h12 )_v @@ -4138,7 +4138,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( h12 h11 ) * y ( h4 h1 RETURN END SUBROUTINE ccsdt_lambda3_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v @@ -4236,7 +4236,7 @@ C i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_7_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_v @@ -4306,7 +4306,7 @@ C i1 ( h4 h5 h11 h12 )_v END SUBROUTINE ccsdt_lambda3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h12 p7 )_v @@ -4459,7 +4459,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 RETURN END SUBROUTINE ccsdt_lambda3_7_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v @@ -4558,7 +4558,7 @@ C i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_7_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_v @@ -4628,7 +4628,7 @@ C i2 ( h4 h5 h12 p7 )_v END SUBROUTINE ccsdt_lambda3_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 p7 p9 )_v @@ -4782,7 +4782,7 @@ C i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 END SUBROUTINE ccsdt_lambda3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * v ( h4 h5 p7 p8 )_v @@ -4944,7 +4944,7 @@ C i1 ( h4 h5 h11 h12 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h11 h12 )_t * END SUBROUTINE ccsdt_lambda3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h12 p1 p2 p9 )_y * i1 ( h6 p9 h12 p3 )_v @@ -5256,7 +5256,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = -1 * P( 9 ) * Sum ( h12 p9 ) * y ( h4 h5 h RETURN END SUBROUTINE ccsdt_lambda3_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v @@ -5357,7 +5357,7 @@ C i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_8_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_v @@ -5427,7 +5427,7 @@ C i1 ( h4 p9 h12 p1 )_v END SUBROUTINE ccsdt_lambda3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 p7 )_v @@ -5581,7 +5581,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 END SUBROUTINE ccsdt_lambda3_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v ( h4 h10 p1 p8 )_v @@ -5784,7 +5784,7 @@ C i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v END SUBROUTINE ccsdt_lambda3_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 h12 p1 )_vt @@ -5928,7 +5928,7 @@ C i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 END SUBROUTINE ccsdt_lambda3_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p1 p7 )_v @@ -6097,7 +6097,7 @@ C i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_8_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h10 h12 p1 )_vt @@ -6169,7 +6169,7 @@ C i2 ( h4 h10 h12 p1 )_vt END SUBROUTINE ccsdt_lambda3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h6 p1 p7 p8 )_y * v ( p7 p8 p2 p3 )_v @@ -6386,7 +6386,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1/2 * P( 3 ) * Sum ( p8 p7 ) * y ( h4 h5 h END SUBROUTINE ccsdt_lambda3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h11 ) * i1 ( h4 h5 h11 p1 )_yt * v ( h6 h11 p2 p3 )_v @@ -6624,7 +6624,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = -1 * P( 9 ) * Sum ( h11 ) * i1 ( h4 h5 h1 END SUBROUTINE ccsdt_lambda3_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h4 h5 p1 p7 )_y @@ -6777,7 +6777,7 @@ C i1 ( h4 h5 h11 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * y ( h4 h5 p1 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_10_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt @@ -6849,7 +6849,7 @@ C i1 ( h4 h5 h11 p1 )_yt END SUBROUTINE ccsdt_lambda3_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h11 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * y ( h4 h5 h9 p1 p7 p8 )_y @@ -7097,7 +7097,7 @@ C i1 ( h4 h5 h11 p1 )_yt + = 1/2 * Sum ( h9 p8 p7 ) * t ( p7 p8 h9 h11 )_t * END SUBROUTINE ccsdt_lambda3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 h7 p1 p2 )_yt * f ( h7 p3 )_f @@ -7275,7 +7275,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytf + = -1 * P( 3 ) * Sum ( h7 ) * i1 ( h4 h5 h6 END SUBROUTINE ccsdt_lambda3_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * y ( h4 h5 h6 p1 p2 p8 )_y @@ -7448,7 +7448,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt + = 1 * Sum ( p8 ) * t ( p8 h7 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_11_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h7 p1 p2 )_yt @@ -7536,7 +7536,7 @@ C i1 ( h4 h5 h6 h7 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h9 h8 p1 p2 )_yt * v ( h6 h8 h9 p3 )_v @@ -7780,7 +7780,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 9 ) * Sum ( h9 h8 ) * i1 ( h4 h5 h END SUBROUTINE ccsdt_lambda3_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h9 p1 p2 p7 )_y @@ -8002,7 +8002,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_12_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h9 h8 p1 p2 )_yt @@ -8090,7 +8090,7 @@ C i1 ( h4 h5 h9 h8 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h6 h8 p1 p9 )_yt * v ( h8 p9 p2 p3 )_v @@ -8275,7 +8275,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1 * P( 3 ) * Sum ( h8 p9 ) * i1 ( h4 h5 h END SUBROUTINE ccsdt_lambda3_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -8472,7 +8472,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h4 h RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_13_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h8 p1 p9 )_yt @@ -8560,7 +8560,7 @@ C i1 ( h4 h5 h6 h8 p1 p9 )_yt END SUBROUTINE ccsdt_lambda3_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 p2 )_yt * v ( h5 h6 p3 p8 )_v @@ -8807,7 +8807,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/2 * P( 9 ) * Sum ( p8 ) * i1 ( h4 p8 p1 END SUBROUTINE ccsdt_lambda3_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * y ( h4 h9 h10 p1 p2 p7 )_y @@ -9066,7 +9066,7 @@ C i1 ( h4 p8 p1 p2 )_yt + = -1 * Sum ( h10 h9 p7 ) * t ( p7 p8 h9 h10 )_t * RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_14_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p8 p1 p2 )_yt @@ -9138,7 +9138,7 @@ C i1 ( h4 p8 p1 p2 )_yt END SUBROUTINE ccsdt_lambda3_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 h5 h6 h10 h11 p1 )_yt * v ( h10 h11 p2 p3 )_v @@ -9338,7 +9338,7 @@ C i0 ( h4 h5 h6 p1 p2 p3 )_ytv + = 1/4 * P( 3 ) * Sum ( h11 h10 ) * i1 ( h4 END SUBROUTINE ccsdt_lambda3_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_t * y ( h4 h5 h6 p1 p7 p8 )_y @@ -9531,7 +9531,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt + = 1 * Sum ( p8 p7 ) * t ( p7 p8 h10 h11 )_ RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_15_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_yt @@ -9619,7 +9619,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_yt END SUBROUTINE ccsdt_lambda3_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h6 h10 p1 p7 )_yt @@ -9788,7 +9788,7 @@ C i1 ( h4 h5 h6 h10 h11 p1 )_ytt + = 2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( END SUBROUTINE ccsdt_lambda3_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 h5 h6 p1 p7 p9 )_y @@ -9985,7 +9985,7 @@ C i2 ( h4 h5 h6 h10 p1 p7 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h4 RETURN END SUBROUTINE OFFSET_ccsdt_lambda3_15_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_lambda3.F,v 1.3 2005-12-16 22:34:54 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h6 h10 p1 p7 )_yt diff --git a/src/tce/cis/GNUmakefile b/src/tce/cis/GNUmakefile index 8f5a1e98c2..25747f32fe 100644 --- a/src/tce/cis/GNUmakefile +++ b/src/tce/cis/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005/12/20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cis.o cis_x1.o cis_xguess.o cis_xdiagon.o cis_xtidy.o diff --git a/src/tce/cis/cis_x1.F b/src/tce/cis/cis_x1.F index bace8e92ac..6285a5a3de 100644 --- a/src/tce/cis/cis_x1.F +++ b/src/tce/cis/cis_x1.F @@ -1,6 +1,6 @@ SUBROUTINE cis_x1(d_f1,d_i0,d_v2,d_x1,k_f1_offset,k_i0_offset,k_v2 &_offset,k_x1_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -26,7 +26,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cis_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -148,7 +148,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f RETURN END SUBROUTINE cis_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -270,7 +270,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f RETURN END SUBROUTINE cis_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v diff --git a/src/tce/cis/cis_xdiagon.F b/src/tce/cis/cis_xdiagon.F index 17ccc5ab0f..adef3b90eb 100644 --- a/src/tce/cis/cis_xdiagon.F +++ b/src/tce/cis/cis_xdiagon.F @@ -1,6 +1,6 @@ subroutine cis_xdiagon(size_x1,k_x1_offset,d_r1,omega,residual) c -c $Id: tce_eom_xdiagon.F,v 1.3 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/cis/cis_xguess.F b/src/tce/cis/cis_xguess.F index 3b3d5c4f85..27198e4379 100644 --- a/src/tce/cis/cis_xguess.F +++ b/src/tce/cis/cis_xguess.F @@ -1,6 +1,6 @@ subroutine cis_xguess(size_x1,k_x1_offset,iopen_f) c -c $Id: tce_eom_xguess.F,v 1.4 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/cis/cis_xtidy.F b/src/tce/cis/cis_xtidy.F index 0e17c1ea60..eaff47c2b5 100644 --- a/src/tce/cis/cis_xtidy.F +++ b/src/tce/cis/cis_xtidy.F @@ -1,6 +1,6 @@ subroutine cis_xtidy c -c $Id: tce_eom_tidy.F,v 1.2 2003/10/19 00:52:06 sohirata Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/cisd/GNUmakefile b/src/tce/cisd/GNUmakefile index ccffa78f87..0b5a6fbb84 100644 --- a/src/tce/cisd/GNUmakefile +++ b/src/tce/cisd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cisd_e.o cisd_c1.o cisd_c2.o diff --git a/src/tce/cisd/cisd_c1.F b/src/tce/cisd/cisd_c1.F index c082645cfe..398929ae6b 100644 --- a/src/tce/cisd/cisd_c1.F +++ b/src/tce/cisd/cisd_c1.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_v2,k_e0_offset,k_f1_ &offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -40,7 +40,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisd_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -122,7 +122,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f RETURN END SUBROUTINE cisd_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -246,7 +246,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f RETURN END SUBROUTINE cisd_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -370,7 +370,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f RETURN END SUBROUTINE cisd_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -503,7 +503,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) RETURN END SUBROUTINE cisd_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -661,7 +661,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ RETURN END SUBROUTINE cisd_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -825,7 +825,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 RETURN END SUBROUTINE cisd_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -989,7 +989,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE cisd_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c1.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisd/cisd_c2.F b/src/tce/cisd/cisd_c2.F index 1b6cf1edbb..ce3d804b12 100644 --- a/src/tce/cisd/cisd_c2.F +++ b/src/tce/cisd/cisd_c2.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_v2,k_e0_offset,k_f1_ &offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -45,7 +45,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisd_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -142,7 +142,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE cisd_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -300,7 +300,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f RETURN END SUBROUTINE cisd_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -452,7 +452,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h RETURN END SUBROUTINE cisd_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -604,7 +604,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p RETURN END SUBROUTINE cisd_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -765,7 +765,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE cisd_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -926,7 +926,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE cisd_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1085,7 +1085,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( RETURN END SUBROUTINE cisd_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1286,7 +1286,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE cisd_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1446,7 +1446,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisd_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisd_c2.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisd/cisd_e.F b/src/tce/cisd/cisd_e.F index 4a2e528dd0..796fd8bce4 100644 --- a/src/tce/cisd/cisd_e.F +++ b/src/tce/cisd/cisd_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offset &,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE cisd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -137,7 +137,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE cisd_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisd_e.F,v 1.3 2005-12-16 22:07:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/cisdt/GNUmakefile b/src/tce/cisdt/GNUmakefile index fde6601abf..7fa7a8287a 100644 --- a/src/tce/cisdt/GNUmakefile +++ b/src/tce/cisdt/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = cisdt_e.o cisdt_c1.o cisdt_c2.o cisdt_c3.o diff --git a/src/tce/cisdt/cisdt_c1.F b/src/tce/cisdt/cisdt_c1.F index d34c3e9bf6..efcc5c669f 100644 --- a/src/tce/cisdt/cisdt_c1.F +++ b/src/tce/cisdt/cisdt_c1.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -53,7 +53,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisdt_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -136,7 +136,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE cisdt_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -261,7 +261,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE cisdt_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -386,7 +386,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE cisdt_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -520,7 +520,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE cisdt_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -679,7 +679,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE cisdt_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -844,7 +844,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE cisdt_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -1009,7 +1009,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE cisdt_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * v ( h5 h6 p3 p4 )_v @@ -1248,7 +1248,7 @@ C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE cisdt_c1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c1.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisdt/cisdt_c2.F b/src/tce/cisdt/cisdt_c2.F index 6b0656a9c1..39bd803918 100644 --- a/src/tce/cisdt/cisdt_c2.F +++ b/src/tce/cisdt/cisdt_c2.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -65,7 +65,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisdt_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -163,7 +163,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE cisdt_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -322,7 +322,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f END SUBROUTINE cisdt_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -475,7 +475,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE cisdt_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -628,7 +628,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE cisdt_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -790,7 +790,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE cisdt_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -952,7 +952,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE cisdt_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1112,7 +1112,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE cisdt_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1314,7 +1314,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE cisdt_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1474,7 +1474,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisdt_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * f ( h5 p6 )_f @@ -1691,7 +1691,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * END SUBROUTINE cisdt_c2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * v ( h6 h7 h2 p5 )_v @@ -1940,7 +1940,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE cisdt_c2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * v ( h7 p4 p5 p6 )_v @@ -2189,7 +2189,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE cisdt_c2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c2.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisdt/cisdt_c3.F b/src/tce/cisdt/cisdt_c3.F index 51d2b4f9b9..4edf17159d 100644 --- a/src/tce/cisdt/cisdt_c3.F +++ b/src/tce/cisdt/cisdt_c3.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_c3(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offset &,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2_ &offset) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -58,7 +58,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t END SUBROUTINE cisdt_c3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -272,7 +272,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 END SUBROUTINE cisdt_c3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 h3 )_f @@ -487,7 +487,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 END SUBROUTINE cisdt_c3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -722,7 +722,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE cisdt_c3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -957,7 +957,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE cisdt_c3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1149,7 +1149,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE cisdt_c3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -1341,7 +1341,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE cisdt_c3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * v ( h7 h8 h2 h3 )_v @@ -1555,7 +1555,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p END SUBROUTINE cisdt_c3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * v ( h8 p6 h3 p7 )_v @@ -1854,7 +1854,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 END SUBROUTINE cisdt_c3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( p5 p6 p7 p8 )_v @@ -2068,7 +2068,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p END SUBROUTINE cisdt_c3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdt_c3.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t diff --git a/src/tce/cisdt/cisdt_e.F b/src/tce/cisdt/cisdt_e.F index 76f0dddc87..8f20122399 100644 --- a/src/tce/cisdt/cisdt_e.F +++ b/src/tce/cisdt/cisdt_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offse &t,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE cisdt_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -139,7 +139,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE cisdt_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cisdt_e.F,v 1.3 2005-12-16 22:08:03 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/cisdtq/GNUmakefile b/src/tce/cisdtq/GNUmakefile index 38b5ab96a4..b8f4f73c18 100644 --- a/src/tce/cisdtq/GNUmakefile +++ b/src/tce/cisdtq/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2008-03-14 00:12:30 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = cisdtq_e.o cisdtq_c1.o cisdtq_c2.o cisdtq_c3.o cisdtq_c4.o diff --git a/src/tce/cisdtq/cisdtq_c1.F b/src/tce/cisdtq/cisdtq_c1.F index a66358d234..933b4c24fa 100644 --- a/src/tce/cisdtq/cisdtq_c1.F +++ b/src/tce/cisdtq/cisdtq_c1.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c1(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_v2,k_e0_offse &t,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_v2 &_offset) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -58,7 +58,7 @@ C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t RETURN END SUBROUTINE cisdtq_c1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -141,7 +141,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE cisdtq_c1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -266,7 +266,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE cisdtq_c1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -391,7 +391,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE cisdtq_c1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -525,7 +525,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE cisdtq_c1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -684,7 +684,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE cisdtq_c1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -849,7 +849,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE cisdtq_c1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v @@ -1014,7 +1014,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE cisdtq_c1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * v ( h5 h6 p3 p4 )_v @@ -1253,7 +1253,7 @@ C i0 ( p2 h1 )_vt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE cisdtq_c1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c1.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_te + = -1 * e ( )_e * t ( p2 h1 )_t diff --git a/src/tce/cisdtq/cisdtq_c2.F b/src/tce/cisdtq/cisdtq_c2.F index fc6f4ba270..9dec00fe9c 100644 --- a/src/tce/cisdtq/cisdtq_c2.F +++ b/src/tce/cisdtq/cisdtq_c2.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c2(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_t4,d_v2,k_e0_ &offset,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset &,k_t4_offset,k_v2_offset) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -75,7 +75,7 @@ C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE cisdtq_c2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -173,7 +173,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE cisdtq_c2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f @@ -332,7 +332,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 4 ) * t ( p3 h1 )_t * f ( p4 h2 )_f END SUBROUTINE cisdtq_c2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -485,7 +485,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE cisdtq_c2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -638,7 +638,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE cisdtq_c2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -800,7 +800,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE cisdtq_c2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -962,7 +962,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE cisdtq_c2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -1122,7 +1122,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE cisdtq_c2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1324,7 +1324,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE cisdtq_c2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v @@ -1484,7 +1484,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE cisdtq_c2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * f ( h5 p6 )_f @@ -1701,7 +1701,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * Sum ( p6 h5 ) * t ( p3 p4 p6 h1 h2 h5 )_t * END SUBROUTINE cisdtq_c2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * v ( h6 h7 h2 p5 )_v @@ -1950,7 +1950,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE cisdtq_c2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * v ( h7 p4 p5 p6 )_v @@ -2199,7 +2199,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE cisdtq_c2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -2764,7 +2764,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE cisdtq_c2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c2.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_te + = -1 * e ( )_e * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/cisdtq/cisdtq_c3.F b/src/tce/cisdtq/cisdtq_c3.F index 471444c1b9..966fe15a80 100644 --- a/src/tce/cisdtq/cisdtq_c3.F +++ b/src/tce/cisdtq/cisdtq_c3.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c3(d_e0,d_f1,d_i0,d_t1,d_t2,d_t3,d_t4,d_v2,k_e0_ &offset,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset &,k_t4_offset,k_v2_offset) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -74,7 +74,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t END SUBROUTINE cisdtq_c3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 h3 )_v @@ -288,7 +288,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1 * P( 9 ) * t ( p4 h1 )_t * v ( p5 p6 h2 END SUBROUTINE cisdtq_c3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 h3 )_f @@ -503,7 +503,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * f ( p6 END SUBROUTINE cisdtq_c3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 )_t * v ( h7 p6 h2 h3 )_v @@ -738,7 +738,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h7 ) * t ( p4 p5 h1 h7 END SUBROUTINE cisdtq_c3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * v ( p5 p6 h3 p7 )_v @@ -973,7 +973,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 END SUBROUTINE cisdtq_c3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * f ( h7 h3 )_f @@ -1165,7 +1165,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 END SUBROUTINE cisdtq_c3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 h2 h3 )_t * f ( p6 p7 )_f @@ -1357,7 +1357,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * P( 3 ) * Sum ( p7 ) * t ( p4 p5 p7 h1 END SUBROUTINE cisdtq_c3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p6 h1 h7 h8 )_t * v ( h7 h8 h2 h3 )_v @@ -1571,7 +1571,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( h7 h8 ) * t ( p4 p5 p END SUBROUTINE cisdtq_c3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 h1 h2 h8 )_t * v ( h8 p6 h3 p7 )_v @@ -1870,7 +1870,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1 * P( 9 ) * Sum ( h8 p7 ) * t ( p4 p5 p7 END SUBROUTINE cisdtq_c3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p8 h1 h2 h3 )_t * v ( p5 p6 p7 p8 )_v @@ -2084,7 +2084,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = 1/2 * P( 3 ) * Sum ( p7 p8 ) * t ( p4 p7 p END SUBROUTINE cisdtq_c3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * Sum ( p8 h7 ) * t ( p4 p5 p6 p8 h1 h2 h3 h7 )_t * f ( h7 p8 )_f @@ -2405,7 +2405,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_tf + = 1 * Sum ( p8 h7 ) * t ( p4 p5 p6 p8 h1 h2 END SUBROUTINE cisdtq_c3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h8 h9 p7 ) * t ( p4 p5 p6 p7 h1 h2 h8 h9 )_t * v ( h8 h9 h3 p7 )_v @@ -2856,7 +2856,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h8 h9 p7 ) * t ( p4 END SUBROUTINE cisdtq_c3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h9 p7 p8 ) * t ( p4 p5 p7 p8 h1 h2 h3 h9 )_t * v ( h9 p6 p7 p8 )_v @@ -3307,7 +3307,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vt + = -1/2 * P( 3 ) * Sum ( h9 p7 p8 ) * t ( p4 END SUBROUTINE cisdtq_c3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c3.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_te + = -1 * e ( )_e * t ( p4 p5 p6 h1 h2 h3 )_t diff --git a/src/tce/cisdtq/cisdtq_c4.F b/src/tce/cisdtq/cisdtq_c4.F index 552c0ab480..e509ec766d 100644 --- a/src/tce/cisdtq/cisdtq_c4.F +++ b/src/tce/cisdtq/cisdtq_c4.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_c4(d_e0,d_f1,d_i0,d_t2,d_t3,d_t4,d_v2,k_e0_offse &t,k_f1_offset,k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_v2 &_offset) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * v ( p7 p8 h3 h4 )_v @@ -63,7 +63,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_te + = -1 * e ( )_e * t ( p5 p6 p7 p8 h1 h2 END SUBROUTINE cisdtq_c4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * v ( p7 p8 h3 h4 )_v @@ -602,7 +602,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1 * P( 36 ) * t ( p5 p6 h1 h2 )_t * END SUBROUTINE cisdtq_c4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 16 ) * t ( p5 p6 p7 h1 h2 h3 )_t * f ( p8 h4 )_f @@ -922,7 +922,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 16 ) * t ( p5 p6 p7 h1 h2 h3 END SUBROUTINE cisdtq_c4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 p7 h1 h2 h9 )_t * v ( h9 p8 h3 h4 )_v @@ -1357,7 +1357,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p END SUBROUTINE cisdtq_c4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( p9 ) * t ( p5 p6 p9 h1 h2 h3 )_t * v ( p7 p8 h4 p9 )_v @@ -1792,7 +1792,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 24 ) * Sum ( p9 ) * t ( p5 p END SUBROUTINE cisdtq_c4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 p7 p8 h1 h2 h3 h9 )_t * f ( h9 h4 )_f @@ -2028,7 +2028,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 END SUBROUTINE cisdtq_c4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 4 ) * Sum ( p9 ) * t ( p5 p6 p7 p9 h1 h2 h3 h4 )_t * f ( p8 p9 )_f @@ -2264,7 +2264,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_tf + = 1 * P( 4 ) * Sum ( p9 ) * t ( p5 p6 END SUBROUTINE cisdtq_c4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( h9 h10 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * v ( h9 h10 h3 h4 )_v @@ -2561,7 +2561,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( h9 h10 ) * t ( END SUBROUTINE cisdtq_c4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 16 ) * Sum ( h10 p9 ) * t ( p5 p6 p7 p9 h1 h2 h3 h10 )_t * v ( h10 p8 h4 p9 )_v @@ -3062,7 +3062,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = -1 * P( 16 ) * Sum ( h10 p9 ) * t ( END SUBROUTINE cisdtq_c4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( p9 p10 ) * t ( p5 p6 p9 p10 h1 h2 h3 h4 )_t * v ( p7 p8 p9 p10 )_v @@ -3359,7 +3359,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_vt + = 1/2 * P( 6 ) * Sum ( p9 p10 ) * t ( END SUBROUTINE cisdtq_c4_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cisdtq_c4.F,v 1.4 2008-03-14 00:12:31 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_te + = -1 * e ( )_e * t ( p5 p6 p7 p8 h1 h2 h3 h4 )_t diff --git a/src/tce/cisdtq/cisdtq_e.F b/src/tce/cisdtq/cisdtq_e.F index e534b0320e..843d69d378 100644 --- a/src/tce/cisdtq/cisdtq_e.F +++ b/src/tce/cisdtq/cisdtq_e.F @@ -1,6 +1,6 @@ SUBROUTINE cisdtq_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -34,7 +34,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 END SUBROUTINE cisdtq_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -148,7 +148,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f END SUBROUTINE cisdtq_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cisdtq_e.F,v 1.4 2008-03-14 00:12:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/copyfile.F b/src/tce/copyfile.F index 6c48c0746a..30ceb63ea2 100644 --- a/src/tce/copyfile.F +++ b/src/tce/copyfile.F @@ -1,6 +1,6 @@ subroutine copyfile(d_1,d_2,size) c -c $Id: copyfile.F,v 1.9 2008-10-05 22:31:30 jhammond Exp $ +c $Id$ c c Duplicate a file c diff --git a/src/tce/cr-eomccsd_t/GNUmakefile b/src/tce/cr-eomccsd_t/GNUmakefile index 032bb9bbcb..6a3a11b9f1 100644 --- a/src/tce/cr-eomccsd_t/GNUmakefile +++ b/src/tce/cr-eomccsd_t/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2007-09-14 18:40:57 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = c1_c1.o c2_c2.o cr_eomccsd_t.o cr_eomccsd_t_gr.o t2t12.o \ nr0.o c1excit2.o c2excit2.o q3rexpt2.o cr_s_m3.o \ diff --git a/src/tce/cr-eomccsd_t/c1_c1.F b/src/tce/cr-eomccsd_t/c1_c1.F index 00b819396f..6f88c77335 100644 --- a/src/tce/cr-eomccsd_t/c1_c1.F +++ b/src/tce/cr-eomccsd_t/c1_c1.F @@ -1,5 +1,5 @@ SUBROUTINE c1_c1(d_c1,d_i0,k_c1_offset,k_i0_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c @@ -17,7 +17,7 @@ C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c RETURN END SUBROUTINE c1_c1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * c ( p2 h1 )_c @@ -133,7 +133,7 @@ c c SUBROUTINE x1_t1(d_i0,d_t1,d_x1,k_i0_offset,k_t1_offset,k_x1_offse &t) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t @@ -153,7 +153,7 @@ C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t RETURN END SUBROUTINE x1_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tx + = 1 * Sum ( p2 h1 ) * x+ ( h1 p2 )_x * t ( p2 h1 )_t @@ -268,7 +268,7 @@ c c SUBROUTINE c1_d1(d_c1,d_d1,d_i0,k_c1_offset,k_d1_offset,k_i0_offse &t) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d @@ -288,7 +288,7 @@ C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d RETURN END SUBROUTINE c1_d1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c1_c1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1 * Sum ( p2 h1 ) * c+ ( h1 p2 )_c * d ( p2 h1 )_d diff --git a/src/tce/cr-eomccsd_t/c1excit2.F b/src/tce/cr-eomccsd_t/c1excit2.F index ad818170a3..034e28fec6 100644 --- a/src/tce/cr-eomccsd_t/c1excit2.F +++ b/src/tce/cr-eomccsd_t/c1excit2.F @@ -1,5 +1,5 @@ SUBROUTINE c1excit2(d_i0,d_x1,k_i0_offset,k_x1_offset) -C $Id: c1excit2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x @@ -17,7 +17,7 @@ C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x RETURN END SUBROUTINE c1excit2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c1excit2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_x + = 1 * x ( p2 h1 )_x diff --git a/src/tce/cr-eomccsd_t/c2_c2.F b/src/tce/cr-eomccsd_t/c2_c2.F index 6158a7d56e..80640d5f96 100644 --- a/src/tce/cr-eomccsd_t/c2_c2.F +++ b/src/tce/cr-eomccsd_t/c2_c2.F @@ -1,5 +1,5 @@ SUBROUTINE c2_c2(d_c2,d_i0,k_c2_offset,k_i0_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 h1 h2 )_c @@ -17,7 +17,7 @@ C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 RETURN END SUBROUTINE c2_c2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_cc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * c ( p3 p4 h1 h2 )_c @@ -171,7 +171,7 @@ c c SUBROUTINE c2_d2(d_c2,d_d2,d_i0,k_c2_offset,k_d2_offset,k_i0_offse &t) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 h1 h2 )_d @@ -191,7 +191,7 @@ C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 RETURN END SUBROUTINE c2_d2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: c2_c2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dc + = 1/4 * Sum ( p3 p4 h1 h2 ) * c+ ( h1 h2 p3 p4 )_c * d ( p3 p4 h1 h2 )_d diff --git a/src/tce/cr-eomccsd_t/c2excit2.F b/src/tce/cr-eomccsd_t/c2excit2.F index bc69c4a347..bf3eee8fea 100644 --- a/src/tce/cr-eomccsd_t/c2excit2.F +++ b/src/tce/cr-eomccsd_t/c2excit2.F @@ -1,6 +1,6 @@ SUBROUTINE c2excit2(d_i0,d_t1,d_x1,d_x2,k_i0_offset,k_t1_offset,k_ &x1_offset,k_x2_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -25,7 +25,7 @@ C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x RETURN END SUBROUTINE c2excit2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -128,7 +128,7 @@ cc next = nxtask(-nprocs,1) END SUBROUTINE c2excit2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x @@ -302,7 +302,7 @@ c c SUBROUTINE c2excit2_loc(d_i0,d_t1,d_x1,d_x2,k_i0_offset, &k_t1_offset,k_x1_offset,k_x2_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -327,7 +327,7 @@ C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x RETURN END SUBROUTINE c2excit2_1_loc(d_a,k_a_offset,d_c,k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_x + = 1 * x ( p3 p4 h1 h2 )_x @@ -430,7 +430,7 @@ cc next = nxtask(-nprocs,1) END SUBROUTINE c2excit2_2_loc(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: c2excit2.F,v 1.3 2008-10-15 22:28:20 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xt + = 1 * P( 4 ) * t ( p3 h1 )_t * x ( p4 h2 )_x diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t.F index 72c1a65e1d..2469b81482 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: cr_eomccsd_t.F,v 1.4 2008/07/17 21:48:12 marat Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F index 971f57b2aa..c4e797fccd 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_gr.F @@ -6,7 +6,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 energy1) C -C $Id: cr_eomccsd_t_gr.F,v 1.3 2008-07-17 21:48:12 marat Exp $ +C $Id$ C c c diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F index c0c8d94678..abcf212ceb 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2.F @@ -4,7 +4,7 @@ &6,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x2_offset,l_i1 &_offset_1,l_i1_offset_2,l_i1_offset_3,l_i1_offset_4,l_i1_offset_5, &l_i1_offset_6,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: cr_eomccsd_t_n2.F,v 1.1 2005-12-16 21:54:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F index 16cb3fe827..cc102510ab 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_1.F,v 1.1 2005-12-16 21:54:44 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F index 83e25112c9..aee185eb5c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F index 57f52b8924..56f89151ec 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F index 890b1a4a73..3e109960d6 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F index 4ab36f852f..7927120c80 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F index b7b14e2d74..c1fac4f2a1 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_2_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F index 39d24cdb7a..f96f723733 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_1_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F index 10d068f9f4..ed8435d890 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F index dae5abbb22..09d70cd247 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F index a9e7732e25..0ce3e90deb 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h12 h2 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F index 24ac28019c..b36b587983 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_2.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h12 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F index 0d5bbdbfef..6a66ded4a5 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_2_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F index e5be9b7086..47acd948fd 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_3_3.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h12 p9 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F index 4f1e0c665f..27fad427db 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_4.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F index 32f9808bf8..586ffab64f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_4_1.F,v 1.2 2008-07-17 21:48:12 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F index 28e318620e..9cc082db3a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_5.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F index f162f39638..e9be823df8 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_5_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F index 4f27efd08a..1f6f4e7bd8 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_6.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F index 7135ef6357..e52882df8a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_6_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F index fae721daac..b09dc87d4b 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_7.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F index edbc1c81ca..92435c8be4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_7_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F index 08129e9b29..740b98cfda 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_7_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_7_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F index 1667cc00cd..ed006ecdb5 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_8.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F index cd9b4b155a..eadb4bcbbc 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_8_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F index e37d63a7de..b2f5269151 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_8_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_1_8_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F index b77cebeb59..3c874c4632 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_1_9.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_1_9.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F index e734bbe44a..77026757e3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_2.F,v 1.1 2005-12-16 21:54:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vtx + = 6 * P( 3 ) * Sum ( h12 ) * x ( p4 h12 )_x * i1 ( h12 p5 p6 h1 h2 h3 )_vt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F index ca301b5fc6..c1c1786fee 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_2_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F index 788233940b..62a5ef6c59 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F index 74091edb91..b6bc8591ef 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = 1 * Sum ( h8 ) * t ( p4 h8 )_t * v ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F index b9e6a87d90..013fbeffaf 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_3.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F index a072a4200c..44389dd44f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_2_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_2_1_4.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = 1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F index 31f6003fba..6dfee83a4c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_3.F,v 1.1 2005-12-16 21:54:45 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i1 ( p5 p6 h3 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F index a4ec94c31b..8ffcafb2b3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F index b9a099a212..858dfe12dc 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_2.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vxt + = 1/2 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F index a4246a7056..cefffc6376 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_2_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F index fe97815448..f17debdee4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_3.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = 1/2 * Sum ( h11 h12 ) * x ( p4 p5 h11 h12 )_x * i2 ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F index 2dbc17ca74..12ae7ec21e 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_3_1.F,v 1.2 2008-07-17 21:48:13 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v + = 1 * v ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F index 5e36b017f5..6bfb726932 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_3_3_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F index a3477e8481..7a11ff1546 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_3_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_3_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F index 93cb7f2a0d..ecbc94dc8c 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_4.F,v 1.1 2005-12-16 21:54:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxtt + = 6 * P( 3 ) * Sum ( h12 ) * t ( p4 h12 )_t * i1 ( h12 p5 p6 h1 h2 h3 )_vxt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F index 26cf69eb5e..3df1b699e4 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_4_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt + = -1/6 * P( 6 ) * Sum ( p7 ) * t ( p4 p7 h1 h2 )_t * i2 ( h12 p5 h3 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F index 64793dbe77..e627e14fa3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F index fa85d0d6ae..2f2a0a9951 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vtx + = -1 * Sum ( h10 ) * x ( p4 h10 )_x * i3 ( h10 h12 h1 p7 )_vt diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F index f4068c5707..bdb2da935a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F index 2e225e78f9..8cd9fa8634 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_3.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F index 9dd05747f9..5ce6ce00d2 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_3_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F index dc2b4c1bac..9fb53e8db9 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_1_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_1_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h9 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F index f69a0a4da8..94071bf187 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_4_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vx + = -1/6 * P( 6 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i2 ( h12 p5 h3 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F index 3ca98526ce..8cbf44f777 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F index 094c8cdbee..d0678d3725 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F index 953aac3c00..45544fd95a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F index 34fcbb85bf..e62fc98962 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F index 62cb062e81..8ffc8964f6 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_3.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F index f4765c0454..9cb1964e8f 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_4_2_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_4_2_4.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F index 871d5a3f75..988d46fae3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_5.F,v 1.1 2005-12-16 21:54:46 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h12 ) * x ( p4 p5 h1 h12 )_x * i1 ( h12 p6 h2 h3 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F index a936218874..717a21edda 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F index 1599bfa347..8be69b8fc3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F index 036a06ebd1..bdd383eae9 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F index 0c92bd570b..384d44ea42 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F index d98341b90a..a89943a8a7 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2_1.F,v 1.2 2008-07-17 21:48:14 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F index 3aaa007055..b6230716f3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_2_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_2_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F index c9e8fc01f7..734a3f0624 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_2_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_2_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F index ee37c4d830..9e1ace316a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h12 p4 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F index 50018cd36e..c59956f806 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_3_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F index e54acd57ea..c974ffae97 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_3_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F index 6b9c2b77a7..f15da0f457 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_4.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F index fa2060f41b..8ffb1f6e39 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_4_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F index 36a7dd8db7..4928f16fc3 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_4_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_4_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F index 796a9dbb9b..61b09015de 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_5.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h12 h2 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F index e04284da56..5b51e04dcf 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_5_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F index 6b14af5e79..e5ec098a5d 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_5_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_5_5_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 p9 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F index 9d104b2933..1f35ca6764 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_5_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_5_6.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h12 p4 p7 p8 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F index dbbaedaab3..2aefde0236 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p &4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_eomccsd_t_n2_6.F,v 1.1 2005-12-16 21:54:47 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p11 ) * x ( p4 p11 h1 h2 )_x * i1 ( p5 p6 h3 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F index 710602bd82..c5d4873a59 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_v + = 1 * v ( p4 p5 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F index 13e3fe8251..c02f25b30a 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F index 555c21624b..edacfc0f85 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_3.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F index 0471a7bd3c..bd19a91e72 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE cr_eomccsd_t_N2_6_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_3_1.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v + = 1 * v ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F index 34649ed989..322d5acb73 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_3_2.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cr_eomccsd_t_n2_6_3_2.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F index e227c0c2e0..53bd4df06d 100644 --- a/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F +++ b/src/tce/cr-eomccsd_t/cr_eomccsd_t_n2_6_4.F @@ -1,6 +1,6 @@ SUBROUTINE cr_eomccsd_t_N2_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cr_eomccsd_t_n2_6_4.F,v 1.2 2008-07-17 21:48:15 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p11 )_v diff --git a/src/tce/cr-eomccsd_t/cr_s_m3.F b/src/tce/cr-eomccsd_t/cr_s_m3.F index c661d79c84..9618045342 100644 --- a/src/tce/cr-eomccsd_t/cr_s_m3.F +++ b/src/tce/cr-eomccsd_t/cr_s_m3.F @@ -1,6 +1,6 @@ SUBROUTINE cr_s_m3(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_ &h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -31,7 +31,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE cr_s_m3_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE cr_s_m3_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: cr_s_m3.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F b/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F index e11e866cc8..8fe1a16ac8 100644 --- a/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F +++ b/src/tce/cr-eomccsd_t/creomccsd_t_n2_mem.F @@ -3,7 +3,7 @@ &_i1_offset_3,k_i1_offset_4,k_t1_offset,k_t2_offset,k_v2_offset,k_x &1_offset,k_x2_offset,l_i1_offset_1,l_i1_offset_2,l_i1_offset_3,l_i &1_offset_4,t_h1b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -594,7 +594,7 @@ c d_x1 refers to k_x1_local END SUBROUTINE creomsd_t_n2_mem_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = -1 * P( 9 ) * Sum ( h12 ) * t ( p4 p5 h1 h12 )_t * i1 ( h12 p6 h2 h3 )_vx @@ -963,7 +963,7 @@ cc END DO END SUBROUTINE creomsd_t_n2_mem_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 h1 h2 )_v @@ -1117,7 +1117,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * Sum ( h13 ) * x ( p4 h13 )_x * i2 ( h12 h13 RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx @@ -1188,7 +1188,7 @@ C i1 ( h12 p4 h1 h2 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v @@ -1294,7 +1294,7 @@ C i2 ( h12 h13 h1 h2 )_v + = -1 * v ( h12 h13 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v @@ -1364,7 +1364,7 @@ C i2 ( h12 h13 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h12 h13 h2 p9 )_v @@ -1516,7 +1516,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( RETURN END SUBROUTINE creomsd_t_n2_mem_1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v @@ -1625,7 +1625,7 @@ C i3 ( h12 h13 h1 p9 )_v + = 1 * v ( h12 h13 h1 p9 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_1_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v @@ -1695,7 +1695,7 @@ C i3 ( h12 h13 h1 p9 )_v END SUBROUTINE creomsd_t_n2_mem_1_1_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 p8 p9 )_v @@ -1864,7 +1864,7 @@ C i3 ( h12 h13 h1 p9 )_vt + = 1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 h13 END SUBROUTINE creomsd_t_n2_mem_1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v ( h12 h13 p8 p9 )_v @@ -2033,7 +2033,7 @@ C i2 ( h12 h13 h1 h2 )_vt + = -1/2 * Sum ( p8 p9 ) * t ( p8 p9 h1 h2 )_t * v END SUBROUTINE creomsd_t_n2_mem_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( h12 p4 h2 p8 )_v @@ -2197,7 +2197,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( p8 ) * x ( p8 h1 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h1 h2 )_vx @@ -2352,7 +2352,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 2 * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 h12 h END SUBROUTINE creomsd_t_n2_mem_1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 h12 h2 p9 )_v @@ -2514,7 +2514,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p9 ) * x ( p9 h1 )_x * v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx @@ -2586,7 +2586,7 @@ C i2 ( h7 h12 h1 h2 )_vx END SUBROUTINE creomsd_t_n2_mem_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h7 h12 h2 p8 )_vx @@ -2739,7 +2739,7 @@ C i2 ( h7 h12 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 END SUBROUTINE creomsd_t_n2_mem_1_3_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p8 p10 )_v @@ -2908,7 +2908,7 @@ C i3 ( h7 h12 h1 p8 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h12 p END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_3_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx @@ -2980,7 +2980,7 @@ C i3 ( h7 h12 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v ( h7 h12 p9 p10 )_v @@ -3149,7 +3149,7 @@ C i2 ( h7 h12 h1 h2 )_vx + = 1/4 * Sum ( p9 p10 ) * x ( p9 p10 h1 h2 )_x * v END SUBROUTINE creomsd_t_n2_mem_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 ( h12 p4 h2 p8 )_vx @@ -3304,7 +3304,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i2 END SUBROUTINE creomsd_t_n2_mem_1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 p9 )_v @@ -3473,7 +3473,7 @@ C i2 ( h12 p4 h1 p8 )_vx + = -1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h12 p4 p8 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx @@ -3545,7 +3545,7 @@ C i2 ( h12 p4 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * i2 ( h9 h12 h2 p8 )_vx @@ -3742,7 +3742,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 ) END SUBROUTINE creomsd_t_n2_mem_1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 p8 p10 )_v @@ -3911,7 +3911,7 @@ C i2 ( h9 h12 h1 p8 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h9 h12 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx @@ -3983,7 +3983,7 @@ C i2 ( h9 h12 h1 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h12 p8 )_vx @@ -4138,7 +4138,7 @@ C i1 ( h12 p4 h1 h2 )_vxt + = -1 * Sum ( p8 ) * t ( p4 p8 h1 h2 )_t * i2 ( h END SUBROUTINE creomsd_t_n2_mem_1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 p10 )_v @@ -4328,7 +4328,7 @@ C i2 ( h12 p8 )_vx + = -1 * Sum ( h9 p10 ) * x ( p10 h9 )_x * v ( h9 h12 p8 END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx @@ -4384,7 +4384,7 @@ C i2 ( h12 p8 )_vx END SUBROUTINE creomsd_t_n2_mem_1_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h12 p7 )_f @@ -4538,7 +4538,7 @@ C i1 ( h12 p4 h1 h2 )_fx + = -1 * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * i2 ( h1 RETURN END SUBROUTINE creomsd_t_n2_mem_1_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f @@ -4623,7 +4623,7 @@ C i2 ( h12 p7 )_f + = 1 * f ( h12 p7 )_f END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f @@ -4679,7 +4679,7 @@ C i2 ( h12 p7 )_f END SUBROUTINE creomsd_t_n2_mem_1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 )_v @@ -4869,7 +4869,7 @@ C i2 ( h12 p7 )_vt + = -1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p7 p8 END SUBROUTINE creomsd_t_n2_mem_1_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 )_x * i2 ( h10 h12 h2 p7 )_v @@ -5065,7 +5065,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( h10 p7 ) * x ( p4 p7 h1 h10 RETURN END SUBROUTINE creomsd_t_n2_mem_1_8_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v @@ -5174,7 +5174,7 @@ C i2 ( h10 h12 h1 p7 )_v + = 1 * v ( h10 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_1_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v @@ -5244,7 +5244,7 @@ C i2 ( h10 h12 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 p7 p8 )_v @@ -5413,7 +5413,7 @@ C i2 ( h10 h12 h1 p7 )_vt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h10 h12 END SUBROUTINE creomsd_t_n2_mem_1_9(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( h12 p4 p8 p9 )_v @@ -5585,7 +5585,7 @@ C i1 ( h12 p4 h1 h2 )_vx + = 1/2 * Sum ( p8 p9 ) * x ( p8 p9 h1 h2 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vxt + = 2 * P( 9 ) * Sum ( p12 ) * t ( p4 p12 h1 h2 )_t * i1 ( p5 p6 h3 p12 )_vx @@ -5954,7 +5954,7 @@ c END DO END SUBROUTINE creomsd_t_n2_mem_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i2 ( h11 p5 h1 p12 )_v @@ -6108,7 +6108,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = 1/2 * P( 2 ) * Sum ( h11 ) * x ( p4 h11 )_x * i RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx @@ -6179,7 +6179,7 @@ C i1 ( p4 p5 h1 p12 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v @@ -6288,7 +6288,7 @@ C i2 ( h11 p4 h1 p12 )_v + = 1 * v ( h11 p4 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_v @@ -6358,7 +6358,7 @@ C i2 ( h11 p4 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 p12 )_v @@ -6527,7 +6527,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h11 p4 p8 END SUBROUTINE creomsd_t_n2_mem_2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( h9 h11 p8 p12 )_v @@ -6758,7 +6758,7 @@ C i2 ( h11 p4 h1 p12 )_vt + = -1 * Sum ( h9 p8 ) * t ( p4 p8 h1 h9 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p8 p12 )_v @@ -6927,7 +6927,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * Sum ( p8 ) * x ( p8 h1 )_x * v ( p4 p5 p END SUBROUTINE creomsd_t_n2_mem_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 ( h7 p5 h1 p12 )_vx @@ -7082,7 +7082,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p4 h7 )_t * i2 END SUBROUTINE creomsd_t_n2_mem_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 h1 p12 )_v @@ -7237,7 +7237,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = -1 * Sum ( h11 ) * x ( p4 h11 )_x * i3 ( h7 h11 END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx @@ -7308,7 +7308,7 @@ C i2 ( h7 p4 h1 p12 )_vx RETURN END SUBROUTINE creomsd_t_n2_mem_2_3_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -7417,7 +7417,7 @@ C i3 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_v @@ -7487,7 +7487,7 @@ C i3 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_3_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -7656,7 +7656,7 @@ C i3 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_t_n2_mem_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p12 )_v @@ -7825,7 +7825,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * v ( h7 p4 p9 p END SUBROUTINE creomsd_t_n2_mem_2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 h1 p12 )_vx @@ -7980,7 +7980,7 @@ C i2 ( h7 p4 h1 p12 )_vxt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h7 h8 END SUBROUTINE creomsd_t_n2_mem_2_3_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p10 p12 )_v @@ -8149,7 +8149,7 @@ C i3 ( h7 h8 h1 p12 )_vx + = -1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h7 h8 p END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_3_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p12 )_vx @@ -8221,7 +8221,7 @@ C i3 ( h7 h8 h1 p12 )_vx END SUBROUTINE creomsd_t_n2_mem_2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( h7 h9 p10 p12 )_v @@ -8452,7 +8452,7 @@ C i2 ( h7 p4 h1 p12 )_vx + = 1 * Sum ( h9 p10 ) * x ( p4 p10 h1 h9 )_x * v ( END SUBROUTINE creomsd_t_n2_mem_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i2 ( h8 h9 h1 p12 )_vx @@ -8615,7 +8615,7 @@ C i1 ( p4 p5 h1 p12 )_vxt + = -1/4 * Sum ( h8 h9 ) * t ( p4 p5 h8 h9 )_t * i END SUBROUTINE creomsd_t_n2_mem_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p10 p12 )_v @@ -8784,7 +8784,7 @@ C i2 ( h8 h9 h1 p12 )_vx + = 1 * Sum ( p10 ) * x ( p10 h1 )_x * v ( h8 h9 p1 END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p12 )_vx @@ -8856,7 +8856,7 @@ C i2 ( h8 h9 h1 p12 )_vx END SUBROUTINE creomsd_t_n2_mem_2_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * i2 ( h7 h11 h1 p12 )_v @@ -9018,7 +9018,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/4 * Sum ( h7 h11 ) * x ( p4 p5 h7 h11 )_x * RETURN END SUBROUTINE creomsd_t_n2_mem_2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v @@ -9127,7 +9127,7 @@ C i2 ( h7 h11 h1 p12 )_v + = 1 * v ( h7 h11 h1 p12 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_2_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_v @@ -9197,7 +9197,7 @@ C i2 ( h7 h11 h1 p12 )_v END SUBROUTINE creomsd_t_n2_mem_2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 p12 )_v @@ -9366,7 +9366,7 @@ C i2 ( h7 h11 h1 p12 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h7 h11 p8 END SUBROUTINE creomsd_t_n2_mem_2_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 )_x * v ( h8 p5 p9 p12 )_v @@ -9577,7 +9577,7 @@ C i1 ( p4 p5 h1 p12 )_vx + = -1/2 * P( 2 ) * Sum ( h8 p9 ) * x ( p4 p9 h1 h8 END SUBROUTINE creomsd_t_n2_mem_3(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h12 ) * x ( p4 p5 h1 h12 )_x * i1 ( h12 p6 h2 h3 )_v @@ -9945,7 +9945,7 @@ c END DO RETURN END SUBROUTINE creomsd_t_n2_mem_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v @@ -10053,7 +10053,7 @@ C i1 ( h12 p4 h1 h2 )_v + = 1 * v ( h12 p4 h1 h2 )_v RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v @@ -10123,7 +10123,7 @@ C i1 ( h12 p4 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 h1 h2 )_v @@ -10277,7 +10277,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * Sum ( h11 ) * t ( p4 h11 )_t * i2 ( h11 h12 RETURN END SUBROUTINE creomsd_t_n2_mem_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v @@ -10383,7 +10383,7 @@ C i2 ( h11 h12 h1 h2 )_v + = 1 * v ( h11 h12 h1 h2 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v @@ -10453,7 +10453,7 @@ C i2 ( h11 h12 h1 h2 )_v END SUBROUTINE creomsd_t_n2_mem_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 ( h11 h12 h2 p8 )_v @@ -10605,7 +10605,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p8 ) * t ( p8 h1 )_t * i3 RETURN END SUBROUTINE creomsd_t_n2_mem_3_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v @@ -10714,7 +10714,7 @@ C i3 ( h11 h12 h1 p8 )_v + = 1 * v ( h11 h12 h1 p8 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v @@ -10784,7 +10784,7 @@ C i3 ( h11 h12 h1 p8 )_v END SUBROUTINE creomsd_t_n2_mem_3_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h12 p8 p9 )_v @@ -10953,7 +10953,7 @@ C i3 ( h11 h12 h1 p8 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h11 h1 END SUBROUTINE creomsd_t_n2_mem_3_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h11 h12 p7 p8 )_v @@ -11122,7 +11122,7 @@ C i2 ( h11 h12 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v END SUBROUTINE creomsd_t_n2_mem_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h12 p4 h2 p7 )_v @@ -11276,7 +11276,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( RETURN END SUBROUTINE creomsd_t_n2_mem_3_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v @@ -11385,7 +11385,7 @@ C i2 ( h12 p4 h1 p7 )_v + = 1 * v ( h12 p4 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v @@ -11455,7 +11455,7 @@ C i2 ( h12 p4 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p7 p8 )_v @@ -11624,7 +11624,7 @@ C i2 ( h12 p4 h1 p7 )_vt + = -1/2 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 END SUBROUTINE creomsd_t_n2_mem_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( h12 p10 )_f @@ -11778,7 +11778,7 @@ C i1 ( h12 p4 h1 h2 )_ft + = -1 * Sum ( p10 ) * t ( p4 p10 h1 h2 )_t * i2 ( RETURN END SUBROUTINE creomsd_t_n2_mem_3_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f @@ -11863,7 +11863,7 @@ C i2 ( h12 p10 )_f + = 1 * f ( h12 p10 )_f END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f @@ -11919,7 +11919,7 @@ C i2 ( h12 p10 )_f END SUBROUTINE creomsd_t_n2_mem_3_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p10 )_v @@ -12109,7 +12109,7 @@ C i2 ( h12 p10 )_vt + = 1 * Sum ( h9 p8 ) * t ( p8 h9 )_t * v ( h9 h12 p8 p1 END SUBROUTINE creomsd_t_n2_mem_3_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * i2 ( h8 h12 h2 p7 )_v @@ -12305,7 +12305,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_ RETURN END SUBROUTINE creomsd_t_n2_mem_3_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v @@ -12414,7 +12414,7 @@ C i2 ( h8 h12 h1 p7 )_v + = 1 * v ( h8 h12 h1 p7 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_3_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v @@ -12484,7 +12484,7 @@ C i2 ( h8 h12 h1 p7 )_v END SUBROUTINE creomsd_t_n2_mem_3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 p9 )_v @@ -12653,7 +12653,7 @@ C i2 ( h8 h12 h1 p7 )_vt + = -1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p7 END SUBROUTINE creomsd_t_n2_mem_3_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( h12 p4 p7 p8 )_v @@ -12825,7 +12825,7 @@ C i1 ( h12 p4 h1 h2 )_vt + = 1/2 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_4(d_a,k_a_offset,d_b,k_b_offset,a_c,t_ &p4b,t_p5b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p10 ) * x ( p4 p10 h1 h2 )_x * i1 ( p5 p6 h3 p10 )_v @@ -13194,7 +13194,7 @@ cc END DO RETURN END SUBROUTINE creomsd_t_n2_mem_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v @@ -13302,7 +13302,7 @@ C i1 ( p4 p5 h1 p10 )_v + = 1 * v ( p4 p5 h1 p10 )_v RETURN END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_1(l_a_offset,k_a_offset,size) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_v @@ -13372,7 +13372,7 @@ C i1 ( p4 p5 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 ( h12 p5 h1 p10 )_v @@ -13526,7 +13526,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p4 h12 )_t * i2 RETURN END SUBROUTINE creomsd_t_n2_mem_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v @@ -13635,7 +13635,7 @@ C i2 ( h12 p4 h1 p10 )_v + = 1 * v ( h12 p4 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v @@ -13705,7 +13705,7 @@ C i2 ( h12 p4 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 h1 p10 )_v @@ -13859,7 +13859,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1/2 * Sum ( h8 ) * t ( p4 h8 )_t * i3 ( h8 h12 RETURN END SUBROUTINE creomsd_t_n2_mem_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v @@ -13968,7 +13968,7 @@ C i3 ( h8 h12 h1 p10 )_v + = 1 * v ( h8 h12 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_2_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v @@ -14038,7 +14038,7 @@ C i3 ( h8 h12 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 p10 )_v @@ -14207,7 +14207,7 @@ C i3 ( h8 h12 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h8 h12 p9 END SUBROUTINE creomsd_t_n2_mem_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 p10 )_v @@ -14376,7 +14376,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * v ( h12 p4 p8 END SUBROUTINE creomsd_t_n2_mem_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 h12 p7 p10 )_v @@ -14607,7 +14607,7 @@ C i2 ( h12 p4 h1 p10 )_vt + = -1 * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( END SUBROUTINE creomsd_t_n2_mem_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p10 )_v @@ -14776,7 +14776,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( p4 p5 p7 p END SUBROUTINE creomsd_t_n2_mem_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 ( h7 h8 h1 p10 )_v @@ -14938,7 +14938,7 @@ C i1 ( p4 p5 h1 p10 )_vt + = 1/2 * Sum ( h7 h8 ) * t ( p4 p5 h7 h8 )_t * i2 RETURN END SUBROUTINE creomsd_t_n2_mem_4_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v @@ -15047,7 +15047,7 @@ C i2 ( h7 h8 h1 p10 )_v + = 1 * v ( h7 h8 h1 p10 )_v END SUBROUTINE OFFSET_creomsd_t_n2_mem_4_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_v @@ -15117,7 +15117,7 @@ C i2 ( h7 h8 h1 p10 )_v END SUBROUTINE creomsd_t_n2_mem_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p10 )_v @@ -15286,7 +15286,7 @@ C i2 ( h7 h8 h1 p10 )_vt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * v ( h7 h8 p9 p END SUBROUTINE creomsd_t_n2_mem_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: creomccsd_t_n2_mem.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p10 )_vt + = 1 * P( 2 ) * Sum ( h8 p7 ) * t ( p4 p7 h1 h8 )_t * v ( h8 p5 p7 p10 )_v diff --git a/src/tce/cr-eomccsd_t/nr0.F b/src/tce/cr-eomccsd_t/nr0.F index b5f0887f79..ddcf5738ff 100644 --- a/src/tce/cr-eomccsd_t/nr0.F +++ b/src/tce/cr-eomccsd_t/nr0.F @@ -1,6 +1,6 @@ SUBROUTINE nr0(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f @@ -43,7 +43,7 @@ C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p RETURN END SUBROUTINE nr0_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f @@ -153,7 +153,7 @@ C i0 ( )_xf + = 1 * Sum ( p2 h1 ) * x ( p2 h1 )_x * f ( h1 p2 )_f RETURN END SUBROUTINE nr0_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_xv + = 1/4 * Sum ( p3 p4 h1 h2 ) * x ( p3 p4 h1 h2 )_x * v ( h1 h2 p3 p4 )_v @@ -302,7 +302,7 @@ C i0 ( )_xv + = 1/4 * Sum ( p3 p4 h1 h2 ) * x ( p3 p4 h1 h2 )_x * v ( h1 h2 RETURN END SUBROUTINE nr0_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vxt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * i1 ( h2 p1 )_vx @@ -412,7 +412,7 @@ C i0 ( )_vxt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * i1 ( h2 p1 )_vx RETURN END SUBROUTINE nr0_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p4 )_v @@ -566,7 +566,7 @@ C i1 ( h2 p1 )_vx + = 1 * Sum ( h3 p4 ) * x ( p4 h3 )_x * v ( h2 h3 p1 p4 )_ RETURN END SUBROUTINE OFFSET_nr0_3_1(l_a_offset,k_a_offset,size) -C $Id: nr0.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F index 5ff81fc46b..928819759a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F index fd626e3bdd..dedd69da19 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F index 2193d9a6f3..9511f3a2f0 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_1_1_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h12 h13 h1 p9 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F index 35c54c1792..46317d8cc4 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_3_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h1 h2 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F index a9ef0b8102..2ea9f03bcf 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_1_3_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h12 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F index d6956f6985..3c9f26ca0a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_4_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F index c800b7b7ea..b1418385a1 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_5_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_5_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F index d85e6c36c6..7f0c913140 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_6_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_6_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_6_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p8 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F index 81ae7c91ee..a26a511d20 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_7_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_7_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_7_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p7 )_f diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F index b9d7afaf6a..481b9902d3 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_1_8_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_1_8_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_1_8_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F index b90213e63d..53c22a7a1d 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_2_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F index 7d2881016f..bcb1a4f471 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_2_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_2_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_2_1_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F index 349b27d6c5..3ce9367b52 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_3_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F index 06059474c1..5669ac3cdc 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_3_2_1.F,v 1.1 2005-12-16 21:54:48 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F index 4bdfb5fa71..7e1f6871d2 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_3_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_3_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_3_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F index 992bf051b1..81ded149d0 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_4_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 p5 h1 h2 h3 )_vxt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F index 630ad73f7e..fcc6a44297 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_4_1_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F index b8d054207c..273a18ac31 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_1_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h12 h1 p7 )_vt diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F index f6306b9c1f..93e992fbbe 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_1_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_1_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_1_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p7 )_vx diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F index 9dc9c07308..ed8d57af95 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_4_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F index f8a1f32484..54c262a32f 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_4_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_4_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_4_2_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h12 h1 p10 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F index 04faf503d1..551a83834f 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_5_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p4 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F index d41d105ead..a663f35a0a 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 h2 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F index 1d7e9bd047..a95459fdc1 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_2_2_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_2_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: offset_cr_eomccsd_t_n2_5_2_2_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h12 h1 p8 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F index a9659982cd..70e8ceb9e9 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p4 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F index 445f9e6e27..07120e77d5 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_4_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_4_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_4_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 p10 )_f diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F index d1538ac5db..ab0b950635 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_5_5_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_5_5_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_5_5_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h1 p7 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F index 4ed27a0998..7d5987374b 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_1.F @@ -1,5 +1,5 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_6_1(l_a_offset,k_a_offset,size) -C $Id: offset_cr_eomccsd_t_n2_6_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F index e825f425f0..0b79e6a695 100644 --- a/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F +++ b/src/tce/cr-eomccsd_t/offset_cr_eomccsd_t_n2_6_3_1.F @@ -1,6 +1,6 @@ SUBROUTINE OFFSET_cr_eomccsd_t_N2_6_3_1(l_a_offset,k_a_offset,size &) -C $Id: offset_cr_eomccsd_t_n2_6_3_1.F,v 1.1 2005-12-16 21:54:49 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p11 )_v diff --git a/src/tce/cr-eomccsd_t/q3rexpt2.F b/src/tce/cr-eomccsd_t/q3rexpt2.F index 354dfc5946..97a35b8b08 100644 --- a/src/tce/cr-eomccsd_t/q3rexpt2.F +++ b/src/tce/cr-eomccsd_t/q3rexpt2.F @@ -1,7 +1,7 @@ SUBROUTINE q3rexpt2(a_i0,d_i1_2,d_t1,d_t2,d_x1,d_x2,k_i1_offset_2, &k_t1_offset,k_t2_offset,k_x1_offset,k_x2_offset,l_i1_offset_2,t_h1 &b,t_h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -57,7 +57,7 @@ C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x END SUBROUTINE q3rexpt2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5 &b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xt + = 1 * P( 9 ) * t ( p4 p5 h1 h2 )_t * x ( p6 h3 )_x @@ -391,7 +391,7 @@ c END SUBROUTINE q3rexpt2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5 &b,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xtt + = -2 * P( 9 ) * t ( p4 h1 )_t * i1 ( p5 p6 h2 h3 )_xt @@ -726,7 +726,7 @@ c END SUBROUTINE q3rexpt2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x @@ -886,7 +886,7 @@ C i1 ( p4 p5 h1 h2 )_xt + = -1/4 * P( 4 ) * t ( p4 h1 )_t * x ( p5 h2 )_x RETURN END SUBROUTINE OFFSET_q3rexpt2_2_1(l_a_offset,k_a_offset,size) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_xt @@ -957,7 +957,7 @@ C i1 ( p4 p5 h1 h2 )_xt RETURN END SUBROUTINE q3rexpt2_2_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: q3rexpt2.F,v 1.2 2008/07/17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p4 p5 h1 h2 )_x + = -1/2 * x ( p4 p5 h1 h2 )_x diff --git a/src/tce/cr-eomccsd_t/t2t12.F b/src/tce/cr-eomccsd_t/t2t12.F index 9cd3eefaae..4c2e97ddf5 100644 --- a/src/tce/cr-eomccsd_t/t2t12.F +++ b/src/tce/cr-eomccsd_t/t2t12.F @@ -1,6 +1,6 @@ SUBROUTINE t2t12(d_i0,d_t1,d_t2,k_i0_offset,k_t1_offset,k_t2_offse &t) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -22,7 +22,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * t ( p4 h2 )_t RETURN END SUBROUTINE t2t12_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -118,7 +118,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE t2t12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: t2t12.F,v 1.2 2008-07-17 21:48:16 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * t ( p4 h2 )_t diff --git a/src/tce/createfile.F b/src/tce/createfile.F index 5e4b0c453c..d79f01724d 100644 --- a/src/tce/createfile.F +++ b/src/tce/createfile.F @@ -1,6 +1,6 @@ subroutine createfile(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -210,7 +210,7 @@ c subroutine createfile_sf(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -291,7 +291,7 @@ c subroutine createfile_sf_suffix(filename,d_sf,size,suffix) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -369,7 +369,7 @@ c subroutine createfile_mirror(filename,d_sf,size) c -c $Id: createfile.F,v 1.21 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c diff --git a/src/tce/crop/GNUmakefile b/src/tce/crop/GNUmakefile index d646538c09..54c3e319f7 100644 --- a/src/tce/crop/GNUmakefile +++ b/src/tce/crop/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2008-09-30 18:35:55 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_crop.o diff --git a/src/tce/crop/tce_crop.F b/src/tce/crop/tce_crop.F index 7ee71f0758..f781f3c712 100644 --- a/src/tce/crop/tce_crop.F +++ b/src/tce/crop/tce_crop.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_crop.F,v 1.1 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/daxfile.F b/src/tce/daxfile.F index 7ae983be24..a7253297ab 100644 --- a/src/tce/daxfile.F +++ b/src/tce/daxfile.F @@ -1,6 +1,6 @@ subroutine daxfile(n,coefficients,d_in,d_out,size) c -c $Id: daxfile.F,v 1.7 2008-10-05 23:25:47 jhammond Exp $ +c $Id$ c c A linear combination of files c diff --git a/src/tce/daxpyfile.F b/src/tce/daxpyfile.F index 5a46fc8311..f662d810a3 100644 --- a/src/tce/daxpyfile.F +++ b/src/tce/daxpyfile.F @@ -1,6 +1,6 @@ subroutine daxpyfile(n,coefficients,d_in,d_out,size) c -c $Id: daxpyfile.F,v 1.9 2008-10-05 23:25:47 jhammond Exp $ +c $Id$ c c A linear combination of files added to the original c diff --git a/src/tce/ddotfile.F b/src/tce/ddotfile.F index 074e6ea716..fff06b51cf 100644 --- a/src/tce/ddotfile.F +++ b/src/tce/ddotfile.F @@ -1,6 +1,6 @@ double precision function ddotfile(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c @@ -113,7 +113,7 @@ c c double precision function ddotfile_1(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c @@ -237,7 +237,7 @@ c c double precision function ddotfile_2(d_1,d_2,size) c -c $Id: ddotfile.F,v 1.8 2008-12-07 22:37:59 jhammond Exp $ +c $Id$ c c Vector inner product of two files of the same size c diff --git a/src/tce/deletefile.F b/src/tce/deletefile.F index e3fe1443a4..3307987917 100644 --- a/src/tce/deletefile.F +++ b/src/tce/deletefile.F @@ -1,6 +1,6 @@ subroutine deletefile(d_sf) c -c $Id: deletefile.F,v 1.14 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c @@ -200,7 +200,7 @@ c subroutine deletefile_sf(d_sf) c -c $Id: deletefile.F,v 1.14 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c c Creates a shared file and returns the handle c diff --git a/src/tce/diis/GNUmakefile b/src/tce/diis/GNUmakefile index 07e799bec1..6fba363f64 100644 --- a/src/tce/diis/GNUmakefile +++ b/src/tce/diis/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2008-09-30 18:35:42 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis.o tce_diis_init.o tce_diis_switch.o tce_diis_tidy.o \ tce_jacobi_t1.o tce_jacobi_t2.o tce_jacobi_t3.o tce_jacobi_t4.o \ diff --git a/src/tce/diis/tce_diis.F b/src/tce/diis/tce_diis.F index b7568b9eee..93403dbcc5 100644 --- a/src/tce/diis/tce_diis.F +++ b/src/tce/diis/tce_diis.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4) c -c $Id: tce_diis.F,v 1.7 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis/tce_diis_init.F b/src/tce/diis/tce_diis_init.F index 63fd16228c..b28faa619c 100644 --- a/src/tce/diis/tce_diis_init.F +++ b/src/tce/diis/tce_diis_init.F @@ -1,6 +1,6 @@ subroutine tce_diis_init c -c $Id: tce_diis_init.F,v 1.1 2008-09-30 18:35:43 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/diis/tce_diis_switch.F b/src/tce/diis/tce_diis_switch.F index 889c2aad3b..04482018a6 100644 --- a/src/tce/diis/tce_diis_switch.F +++ b/src/tce/diis/tce_diis_switch.F @@ -1,6 +1,6 @@ integer function tce_diis_switch(iter) c -c $Id: tce_diis_switch.F,v 1.1 2008-09-30 18:35:43 jhammond Exp $ +c $Id$ c c Returns DIIS order c diff --git a/src/tce/diis/tce_diis_tidy.F b/src/tce/diis/tce_diis_tidy.F index cc90e5fef6..3ea53031a9 100644 --- a/src/tce/diis/tce_diis_tidy.F +++ b/src/tce/diis/tce_diis_tidy.F @@ -1,6 +1,6 @@ subroutine tce_diis_tidy c -c $Id: tce_diis_tidy.F,v 1.1 2008-09-30 18:35:44 jhammond Exp $ +c $Id$ c c Terminates the DIIS c diff --git a/src/tce/diis/tce_jacobi_l1.F b/src/tce/diis/tce_jacobi_l1.F index da56259437..b11974953b 100644 --- a/src/tce/diis/tce_jacobi_l1.F +++ b/src/tce/diis/tce_jacobi_l1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l1(d_r1,d_l1,k_l1_offset,shift) c -c $Id: tce_jacobi_l1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l2.F b/src/tce/diis/tce_jacobi_l2.F index a33ece106c..eb00bd2853 100644 --- a/src/tce/diis/tce_jacobi_l2.F +++ b/src/tce/diis/tce_jacobi_l2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l2(d_r2,d_l2,k_l2_offset,shift) c -c $Id: tce_jacobi_l2.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l3.F b/src/tce/diis/tce_jacobi_l3.F index 00c4e2b647..e626dac387 100644 --- a/src/tce/diis/tce_jacobi_l3.F +++ b/src/tce/diis/tce_jacobi_l3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l3(d_r3,d_l3,k_l3_offset,shift) c -c $Id: tce_jacobi_l3.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_l4.F b/src/tce/diis/tce_jacobi_l4.F index 1620dec8ba..c876c246b2 100644 --- a/src/tce/diis/tce_jacobi_l4.F +++ b/src/tce/diis/tce_jacobi_l4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_l4(d_r4,d_l4,k_l4_offset,shift) c -c $Id: tce_jacobi_l4.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t1.F b/src/tce/diis/tce_jacobi_t1.F index 3ab598b1ea..406dd78c79 100644 --- a/src/tce/diis/tce_jacobi_t1.F +++ b/src/tce/diis/tce_jacobi_t1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t1(d_r1,d_t1,k_t1_offset,shift) c -c $Id: tce_jacobi_t1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -102,7 +102,7 @@ c c subroutine tce_r1_divide(d_r1,k_t1_offset) c -c $Id: tce_jacobi_t1.F,v 1.2 2008-10-02 18:39:05 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t2.F b/src/tce/diis/tce_jacobi_t2.F index 5a57ece7c0..04c03584d5 100644 --- a/src/tce/diis/tce_jacobi_t2.F +++ b/src/tce/diis/tce_jacobi_t2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t2(d_r2,d_t2,k_t2_offset,shift) c -c $Id: tce_jacobi_t2.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -130,7 +130,7 @@ c c subroutine tce_r2_divide(d_r2,k_t2_offset) c -c $Id: tce_jacobi_t2.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t3.F b/src/tce/diis/tce_jacobi_t3.F index 347ee081d9..ba6def40f3 100644 --- a/src/tce/diis/tce_jacobi_t3.F +++ b/src/tce/diis/tce_jacobi_t3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t3(d_r3,d_t3,k_t3_offset,shift) c -c $Id: tce_jacobi_t3.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t3a.F b/src/tce/diis/tce_jacobi_t3a.F index 0981b33119..b7414a9198 100644 --- a/src/tce/diis/tce_jacobi_t3a.F +++ b/src/tce/diis/tce_jacobi_t3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t3a(d_r3,d_t3,k_t3_offset,shift) c -c $Id: tce_jacobi_t3a.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_t4.F b/src/tce/diis/tce_jacobi_t4.F index 1cf656f456..e9499fe06e 100644 --- a/src/tce/diis/tce_jacobi_t4.F +++ b/src/tce/diis/tce_jacobi_t4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_t4(d_r4,d_t4,k_t4_offset,shift) c -c $Id: tce_jacobi_t4.F,v 1.2 2008-10-02 18:39:06 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x1.F b/src/tce/diis/tce_jacobi_x1.F index d28ac96c35..1c32eef13b 100644 --- a/src/tce/diis/tce_jacobi_x1.F +++ b/src/tce/diis/tce_jacobi_x1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x1(d_r1,k_r1_offset) c -c $Id: tce_jacobi_x1.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x2.F b/src/tce/diis/tce_jacobi_x2.F index 0d3f8296cf..8ce541b316 100644 --- a/src/tce/diis/tce_jacobi_x2.F +++ b/src/tce/diis/tce_jacobi_x2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x2(d_r2,k_r2_offset) c -c $Id: tce_jacobi_x2.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x3.F b/src/tce/diis/tce_jacobi_x3.F index e661aca59c..e100337e78 100644 --- a/src/tce/diis/tce_jacobi_x3.F +++ b/src/tce/diis/tce_jacobi_x3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x3(d_r3,k_r3_offset) c -c $Id: tce_jacobi_x3.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x3a.F b/src/tce/diis/tce_jacobi_x3a.F index cfe529f28f..5c82535a2c 100644 --- a/src/tce/diis/tce_jacobi_x3a.F +++ b/src/tce/diis/tce_jacobi_x3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x3a(d_r3,k_r3_offset) c -c $Id: tce_jacobi_x3a.F,v 1.1 2008-09-30 18:35:47 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_x4.F b/src/tce/diis/tce_jacobi_x4.F index 488a6c6130..0ae4767977 100644 --- a/src/tce/diis/tce_jacobi_x4.F +++ b/src/tce/diis/tce_jacobi_x4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_x4(d_r4,k_r4_offset) c -c $Id: tce_jacobi_x4.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y1.F b/src/tce/diis/tce_jacobi_y1.F index b5a06e6e8d..574a6f9ca2 100644 --- a/src/tce/diis/tce_jacobi_y1.F +++ b/src/tce/diis/tce_jacobi_y1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y1(d_r1,k_r1_offset) c -c $Id: tce_jacobi_y1.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y2.F b/src/tce/diis/tce_jacobi_y2.F index efc83ca9ee..57a04ee2da 100644 --- a/src/tce/diis/tce_jacobi_y2.F +++ b/src/tce/diis/tce_jacobi_y2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y2(d_r2,k_r2_offset) c -c $Id: tce_jacobi_y2.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y3.F b/src/tce/diis/tce_jacobi_y3.F index bdbf090334..faf7a88177 100644 --- a/src/tce/diis/tce_jacobi_y3.F +++ b/src/tce/diis/tce_jacobi_y3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y3(d_r3,k_r3_offset) c -c $Id: tce_jacobi_y3.F,v 1.1 2008-09-30 18:35:48 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis/tce_jacobi_y4.F b/src/tce/diis/tce_jacobi_y4.F index 558293cec3..1686706e16 100644 --- a/src/tce/diis/tce_jacobi_y4.F +++ b/src/tce/diis/tce_jacobi_y4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_y4(d_r4,k_r4_offset) c -c $Id: tce_jacobi_y4.F,v 1.1 2008-09-30 18:35:49 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/GNUmakefile b/src/tce/diis2/GNUmakefile index c74ae4be2d..aafddc6f08 100644 --- a/src/tce/diis2/GNUmakefile +++ b/src/tce/diis2/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-08-18 01:59:58 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis2.o \ tce_jacobi_tr1.o tce_jacobi_tr2.o tce_jacobi_tr3.o tce_jacobi_tr4.o \ diff --git a/src/tce/diis2/tce_diis2.F b/src/tce/diis2/tce_diis2.F index 2cb800742c..e66ac7be14 100644 --- a/src/tce/diis2/tce_diis2.F +++ b/src/tce/diis2/tce_diis2.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_diis2.F,v 1.11 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis2/tce_diis2_init.F b/src/tce/diis2/tce_diis2_init.F index 5202fb38e0..af5afb4997 100644 --- a/src/tce/diis2/tce_diis2_init.F +++ b/src/tce/diis2/tce_diis2_init.F @@ -1,6 +1,6 @@ subroutine tce_diis2_init c -c $Id: tce_diis2_init.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/diis2/tce_diis2_tidy.F b/src/tce/diis2/tce_diis2_tidy.F index 13b85f1947..1644f5e89a 100644 --- a/src/tce/diis2/tce_diis2_tidy.F +++ b/src/tce/diis2/tce_diis2_tidy.F @@ -1,6 +1,6 @@ subroutine tce_diis2_tidy c -c $Id: tce_diis2_tidy.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +c $Id$ c c Terminates the DIIS c diff --git a/src/tce/diis2/tce_jacobi_lr1.F b/src/tce/diis2/tce_jacobi_lr1.F index 446b4cc771..18b892b051 100644 --- a/src/tce/diis2/tce_jacobi_lr1.F +++ b/src/tce/diis2/tce_jacobi_lr1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr1(d_r1,d_l1,k_l1_offset,omega,shift) c -c $Id: tce_jacobi_lr1.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr2.F b/src/tce/diis2/tce_jacobi_lr2.F index e2d5c221c5..a6f124f863 100644 --- a/src/tce/diis2/tce_jacobi_lr2.F +++ b/src/tce/diis2/tce_jacobi_lr2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr2(d_r2,d_l2,k_l2_offset,omega,shift) c -c $Id: tce_jacobi_lr2.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr3.F b/src/tce/diis2/tce_jacobi_lr3.F index 011223dbfb..88e267ff75 100644 --- a/src/tce/diis2/tce_jacobi_lr3.F +++ b/src/tce/diis2/tce_jacobi_lr3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr3(d_r3,d_l3,k_l3_offset,omega,shift) c -c $Id: tce_jacobi_lr3.F,v 1.4 2008-10-02 18:39:07 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_lr4.F b/src/tce/diis2/tce_jacobi_lr4.F index 444476bea3..bc8350f88b 100644 --- a/src/tce/diis2/tce_jacobi_lr4.F +++ b/src/tce/diis2/tce_jacobi_lr4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_lr4(d_r4,d_l4,k_l4_offset,omega,shift) c -c $Id: tce_jacobi_lr4.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr1.F b/src/tce/diis2/tce_jacobi_tr1.F index 72dc0460cb..075d97e379 100644 --- a/src/tce/diis2/tce_jacobi_tr1.F +++ b/src/tce/diis2/tce_jacobi_tr1.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr1(d_r1,d_t1,k_t1_offset,omega,shift) c -c $Id: tce_jacobi_tr1.F,v 1.6 2008-10-03 15:36:59 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr2.F b/src/tce/diis2/tce_jacobi_tr2.F index db0d2a286d..0562ba375c 100644 --- a/src/tce/diis2/tce_jacobi_tr2.F +++ b/src/tce/diis2/tce_jacobi_tr2.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr2(d_r2,d_t2,k_t2_offset,omega,shift) c -c $Id: tce_jacobi_tr2.F,v 1.6 2008-10-03 15:36:59 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr3.F b/src/tce/diis2/tce_jacobi_tr3.F index 2901c4a082..45d4bd4010 100644 --- a/src/tce/diis2/tce_jacobi_tr3.F +++ b/src/tce/diis2/tce_jacobi_tr3.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr3(d_r3,d_t3,k_t3_offset,omega,shift) c -c $Id: tce_jacobi_tr3.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr3a.F b/src/tce/diis2/tce_jacobi_tr3a.F index 67112c2e02..2b3aa579ff 100644 --- a/src/tce/diis2/tce_jacobi_tr3a.F +++ b/src/tce/diis2/tce_jacobi_tr3a.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr3a(d_r3,d_t3,k_t3_offset,omega,shift) c -c $Id: tce_jacobi_tr3a.F,v 1.4 2008-10-02 18:39:08 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis2/tce_jacobi_tr4.F b/src/tce/diis2/tce_jacobi_tr4.F index be3789e260..3c8ec998b9 100644 --- a/src/tce/diis2/tce_jacobi_tr4.F +++ b/src/tce/diis2/tce_jacobi_tr4.F @@ -1,6 +1,6 @@ subroutine tce_jacobi_tr4(d_r4,d_t4,k_t4_offset,omega) c -c $Id: tce_jacobi_tr4.F,v 1.4 2008-10-02 18:39:09 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/GNUmakefile b/src/tce/diis3/GNUmakefile index b613b17f0a..553b773c73 100644 --- a/src/tce/diis3/GNUmakefile +++ b/src/tce/diis3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2008-10-21 00:37:23 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = tce_diis3.o tce_diis3c.o\ tce_jacobi_ir1.o tce_jacobi_ir2.o tce_jacobi_ir3.o tce_jacobi_ir4.o \ diff --git a/src/tce/diis3/tce_diis3.F b/src/tce/diis3/tce_diis3.F index 8bc7bec553..16fc27d081 100644 --- a/src/tce/diis3/tce_diis3.F +++ b/src/tce/diis3/tce_diis3.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega,denom_power) c -c $Id: tce_diis3.F,v 1.9 2008-10-22 13:20:54 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis3/tce_diis3c.F b/src/tce/diis3/tce_diis3c.F index 453164e317..fb8bb12116 100644 --- a/src/tce/diis3/tce_diis3c.F +++ b/src/tce/diis3/tce_diis3c.F @@ -4,7 +4,7 @@ 3 d_r3,d_t3,k_t3_offset,size_t3, 4 d_r4,d_t4,k_t4_offset,size_t4,omega) c -c $Id: tce_diis3c.F,v 1.2 2008-10-22 13:20:55 jhammond Exp $ +c $Id$ c c Copies residual and t1-t4 files in a round robin fashion c and also performs DIIS if necessary diff --git a/src/tce/diis3/tce_jacobi2_ir1.F b/src/tce/diis3/tce_jacobi2_ir1.F index 9b95503362..2868900f3c 100644 --- a/src/tce/diis3/tce_jacobi2_ir1.F +++ b/src/tce/diis3/tce_jacobi2_ir1.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir1(d_r1,d_t1,k_t1_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir1.F,v 1.1 2008-09-30 18:35:53 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir2.F b/src/tce/diis3/tce_jacobi2_ir2.F index c6c18b19b7..a2004345c7 100644 --- a/src/tce/diis3/tce_jacobi2_ir2.F +++ b/src/tce/diis3/tce_jacobi2_ir2.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir2(d_r2,d_t2,k_t2_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir2.F,v 1.1 2008-09-30 18:35:53 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir3.F b/src/tce/diis3/tce_jacobi2_ir3.F index c1e3ea9284..5a7a88f40b 100644 --- a/src/tce/diis3/tce_jacobi2_ir3.F +++ b/src/tce/diis3/tce_jacobi2_ir3.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir3(d_r3,d_t3,k_t3_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir3.F,v 1.1 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi2_ir4.F b/src/tce/diis3/tce_jacobi2_ir4.F index f11523eb48..862af576cf 100644 --- a/src/tce/diis3/tce_jacobi2_ir4.F +++ b/src/tce/diis3/tce_jacobi2_ir4.F @@ -1,7 +1,7 @@ subroutine tce_jacobi2_ir4(d_r4,d_t4,k_t4_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi2_ir4.F,v 1.1 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir1.F b/src/tce/diis3/tce_jacobi_ir1.F index cbaa07f95a..da447ef46f 100644 --- a/src/tce/diis3/tce_jacobi_ir1.F +++ b/src/tce/diis3/tce_jacobi_ir1.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir1(d_r1,d_t1,k_t1_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir1.F,v 1.5 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir2.F b/src/tce/diis3/tce_jacobi_ir2.F index 59db07ca63..a8dff3ed17 100644 --- a/src/tce/diis3/tce_jacobi_ir2.F +++ b/src/tce/diis3/tce_jacobi_ir2.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir2(d_r2,d_t2,k_t2_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir2.F,v 1.5 2008-09-30 18:35:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir3.F b/src/tce/diis3/tce_jacobi_ir3.F index d198fb9d78..df98bb3288 100644 --- a/src/tce/diis3/tce_jacobi_ir3.F +++ b/src/tce/diis3/tce_jacobi_ir3.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir3(d_r3,d_t3,k_t3_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir3.F,v 1.4 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/diis3/tce_jacobi_ir4.F b/src/tce/diis3/tce_jacobi_ir4.F index 44cacb5305..21463e9efa 100644 --- a/src/tce/diis3/tce_jacobi_ir4.F +++ b/src/tce/diis3/tce_jacobi_ir4.F @@ -1,7 +1,7 @@ subroutine tce_jacobi_ir4(d_r4,d_t4,k_t4_offset,omega, 1 shift,damping) c -c $Id: tce_jacobi_ir4.F,v 1.4 2008-09-30 18:35:55 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/dratoga.F b/src/tce/dratoga.F index 4c6e665506..c824830fd2 100644 --- a/src/tce/dratoga.F +++ b/src/tce/dratoga.F @@ -1,6 +1,6 @@ subroutine dratoga(d_sf) c -c $Id: dratoga.F,v 1.5 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Load data from DRA to GA c diff --git a/src/tce/dscalfile.F b/src/tce/dscalfile.F index c9dc3f8417..69f4d92d54 100644 --- a/src/tce/dscalfile.F +++ b/src/tce/dscalfile.F @@ -1,6 +1,6 @@ subroutine dscalfile(scale,d_1,size) c -c $Id: dscalfile.F,v 1.7 2008-10-05 22:31:29 jhammond Exp $ +c $Id$ c c Multiply a file by a constant c diff --git a/src/tce/e2_offset_2_offset.F b/src/tce/e2_offset_2_offset.F index 3e0e5e1a6a..2044f4ecba 100644 --- a/src/tce/e2_offset_2_offset.F +++ b/src/tce/e2_offset_2_offset.F @@ -1,7 +1,7 @@ SUBROUTINE e2_offset_2_offset(l_a_offset,k_a_offset, & l_b_offset,k_b_offset, & l_c_offset,k_c_offset,length) -C $Id: e2_offset_2_offset.F,v 1.2 2006-06-05 18:25:11 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/emb/GNUmakefile b/src/tce/emb/GNUmakefile index 2373f3b937..087a230673 100644 --- a/src/tce/emb/GNUmakefile +++ b/src/tce/emb/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-09-14 19:04:01 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = c1v.o c2vt1_s.o emb1.o emb2.o diff --git a/src/tce/emb/c1v.F b/src/tce/emb/c1v.F index 73ca95ce49..466fa796f1 100644 --- a/src/tce/emb/c1v.F +++ b/src/tce/emb/c1v.F @@ -1,6 +1,6 @@ SUBROUTINE c1v(a_i0,d_v2,d_x1,k_v2_offset,k_x1_offset,t_h1b,t_h2b, &t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c1v.F,v 1.1 2007-09-14 19:02:24 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 h3 )_v @@ -28,7 +28,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 END SUBROUTINE c1v_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_p &6b,t_h1b,t_h2b,t_h3b) -C $Id: c1v.F,v 1.1 2007-09-14 19:02:24 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_vx + = 1 * P( 9 ) * x ( p4 h1 )_x * v ( p5 p6 h2 h3 )_v diff --git a/src/tce/emb/c2vt1_s.F b/src/tce/emb/c2vt1_s.F index 838be8365e..d5444d54ec 100644 --- a/src/tce/emb/c2vt1_s.F +++ b/src/tce/emb/c2vt1_s.F @@ -1,6 +1,6 @@ SUBROUTINE c2vt1_s(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_ &h2b,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -31,7 +31,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE c2vt1_s_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -273,7 +273,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE c2vt1_s_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b &,t_p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v @@ -519,7 +519,7 @@ c c SUBROUTINE tvx2(a_i0,d_v2,d_x2,k_v2_offset,k_x2_offset,t_h1b,t_h2b &,t_h3b,t_p4b,t_p5b,t_p6b,toggle) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -550,7 +550,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 END SUBROUTINE tvx2_1(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_ &p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 )_x * v ( h7 p6 h2 h3 )_v @@ -789,7 +789,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( h7 ) * x ( p4 p5 h1 h7 END SUBROUTINE tvx2_2(d_a,k_a_offset,d_b,k_b_offset,a_c,t_p4b,t_p5b,t_ &p6b,t_h1b,t_h2b,t_h3b) -C $Id: c2vt1_s.F,v 1.1 2007-09-14 19:02:50 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_xv + = -1 * P( 9 ) * Sum ( p7 ) * x ( p4 p7 h1 h2 )_x * v ( p5 p6 h3 p7 )_v diff --git a/src/tce/emb/emb1.F b/src/tce/emb/emb1.F index 30e8c27c52..e838d4dfbd 100644 --- a/src/tce/emb/emb1.F +++ b/src/tce/emb/emb1.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: emb1.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/emb/emb2.F b/src/tce/emb/emb2.F index 6d8d16fde8..77837854fd 100644 --- a/src/tce/emb/emb2.F +++ b/src/tce/emb/emb2.F @@ -8,7 +8,7 @@ 7 d_c2,k_c2_offset,size_c2, 8 excit,energy1,energy2,size_t1,size_x1) C -C $Id: emb2.F,v 1.2 2008-01-14 15:20:41 jhammond Exp $ +C $Id$ C c from this point on we assume that corresponding one- and two- c body components of R(d_x1,d_x2) and T(d_t1,d_t2) operators, diff --git a/src/tce/eomccsd/GNUmakefile b/src/tce/eomccsd/GNUmakefile index 23c6fae920..3cd7fc10f8 100644 --- a/src/tce/eomccsd/GNUmakefile +++ b/src/tce/eomccsd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.7 2008-10-18 04:34:22 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = eomccsd_x1.o eomccsd_x2.o eomccsd_y1.o eomccsd_y2.o \ eomccsd_density1.o eomccsd_denominator.o cc2_x1.o cc2_x2.o \ diff --git a/src/tce/eomccsd/cc2_x1.F b/src/tce/eomccsd/cc2_x1.F index dac8976a33..e8be233e9c 100644 --- a/src/tce/eomccsd/cc2_x1.F +++ b/src/tce/eomccsd/cc2_x1.F @@ -1,7 +1,7 @@ SUBROUTINE cc2_x1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offset,k &_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x2_of &fset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -193,7 +193,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p RETURN END SUBROUTINE cc2_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -316,7 +316,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE cc2_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -398,7 +398,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -454,7 +454,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE cc2_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -579,7 +579,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE cc2_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -661,7 +661,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -717,7 +717,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE cc2_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -904,7 +904,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE cc2_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1061,7 +1061,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE cc2_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1247,7 +1247,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE cc2_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1370,7 +1370,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE cc2_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1452,7 +1452,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1508,7 +1508,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE cc2_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1664,7 +1664,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ RETURN END SUBROUTINE cc2_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1803,7 +1803,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cc2_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1959,7 +1959,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE cc2_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2041,7 +2041,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2097,7 +2097,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE cc2_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2283,7 +2283,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ RETURN END SUBROUTINE cc2_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2443,7 +2443,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE cc2_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2549,7 +2549,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_cc2_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2619,7 +2619,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE cc2_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2784,7 +2784,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 RETURN END SUBROUTINE cc2_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -2953,7 +2953,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 RETURN END SUBROUTINE cc2_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3077,7 +3077,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE cc2_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3202,7 +3202,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3257,7 +3257,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE cc2_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3339,7 +3339,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_cc2_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3395,7 +3395,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE cc2_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3582,7 +3582,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE cc2_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3739,7 +3739,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE cc2_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3926,7 +3926,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE cc2_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4052,7 +4052,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE cc2_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4238,7 +4238,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_cc2_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4293,7 +4293,7 @@ C i2 ( h8 p3 )_vx RETURN END SUBROUTINE cc2_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4417,7 +4417,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE cc2_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4573,7 +4573,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_cc2_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4628,7 +4628,7 @@ C i1 ( p2 p3 )_vx RETURN END SUBROUTINE cc2_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4785,7 +4785,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE cc2_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -4971,7 +4971,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_cc2_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5026,7 +5026,7 @@ C i1 ( h4 p3 )_vx RETURN END SUBROUTINE cc2_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5189,7 +5189,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE cc2_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5354,7 +5354,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_cc2_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x1.F,v 1.1 2007/09/14 18:43:28 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/cc2_x2.F b/src/tce/eomccsd/cc2_x2.F index 5a9313e840..51f03b788a 100644 --- a/src/tce/eomccsd/cc2_x2.F +++ b/src/tce/eomccsd/cc2_x2.F @@ -1,7 +1,7 @@ SUBROUTINE cc2_x2(d_f1,d_i0,d_t1,d_v2,d_x1,d_x2,k_f1_offset,k_i0_o &ffset,k_t1_offset,k_v2_offset,k_x1_offset,k_x2_offset, &size_x1,size_x2) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v @@ -188,7 +188,7 @@ c &R) RETURN END SUBROUTINE cc2_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h7 p4 h1 h2 )_v @@ -337,7 +337,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( RETURN END SUBROUTINE cc2_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_v + = 1 * v ( h7 p3 h1 h2 )_v @@ -443,7 +443,7 @@ C i1 ( h7 p3 h1 h2 )_v + = 1 * v ( h7 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_v @@ -513,7 +513,7 @@ C i1 ( h7 p3 h1 h2 )_v END SUBROUTINE cc2_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 p3 h2 p5 )_v @@ -664,7 +664,7 @@ C i1 ( h7 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE cc2_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_v + = 1 * v ( h7 p3 h1 p5 )_v @@ -770,7 +770,7 @@ C i2 ( h7 p3 h1 p5 )_v + = 1 * v ( h7 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_v @@ -840,7 +840,7 @@ C i2 ( h7 p3 h1 p5 )_v END SUBROUTINE cc2_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h7 p3 p5 p6 )_v @@ -1005,7 +1005,7 @@ C i2 ( h7 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h7 p3 p5 RETURN END SUBROUTINE cc2_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -1163,7 +1163,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p RETURN END SUBROUTINE cc2_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * f ( h5 h2 )_f @@ -1322,7 +1322,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * RETURN END SUBROUTINE cc2_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * f ( p4 p5 )_f @@ -1481,7 +1481,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * RETURN END SUBROUTINE cc2_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -1631,7 +1631,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE cc2_x2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -1782,7 +1782,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_cc2_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -1853,7 +1853,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE cc2_x2_5_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -1956,7 +1956,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_5_1_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -2026,7 +2026,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE cc2_x2_5_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -2175,7 +2175,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE cc2_x2_5_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -2283,7 +2283,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_cc2_x2_5_1_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -2353,7 +2353,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE cc2_x2_5_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -2522,7 +2522,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE cc2_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -2683,7 +2683,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE cc2_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -2835,7 +2835,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE cc2_x2_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -2993,7 +2993,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_cc2_x2_5_3_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -3065,7 +3065,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE cc2_x2_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -3215,7 +3215,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE cc2_x2_5_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -3383,7 +3383,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_cc2_x2_5_3_2_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -3455,7 +3455,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE cc2_x2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -3607,7 +3607,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE cc2_x2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -3772,7 +3772,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_cc2_x2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -3843,7 +3843,7 @@ C i2 ( h10 p3 h1 p5 )_vx RETURN END SUBROUTINE cc2_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -3993,7 +3993,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE cc2_x2_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -4158,7 +4158,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_cc2_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: cc2_x2.F,v 1.1 2007/09/14 18:44:06 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx diff --git a/src/tce/eomccsd/eomccsd_1prdm_hh.F b/src/tce/eomccsd/eomccsd_1prdm_hh.F index e9ca9006d0..3e9dba662a 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_hh.F +++ b/src/tce/eomccsd/eomccsd_1prdm_hh.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_hh(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -70,7 +70,7 @@ C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_1prdm_hh_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -187,7 +187,7 @@ C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt END SUBROUTINE eomccsd_1prdm_hh_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -314,7 +314,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_hh_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -370,7 +370,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_1prdm_hh_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -546,7 +546,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_1prdm_hh_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -674,7 +674,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE eomccsd_1prdm_hh_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx @@ -802,7 +802,7 @@ C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx END SUBROUTINE eomccsd_1prdm_hh_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_y @@ -962,7 +962,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_ RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_hh_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx @@ -1018,7 +1018,7 @@ C i1 ( h1 p3 )_yx END SUBROUTINE eomccsd_1prdm_hh_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hh.F,v 1.1 2007-09-19 22:20:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/eomccsd/eomccsd_1prdm_hp.F b/src/tce/eomccsd/eomccsd_1prdm_hp.F index f3703abead..8fd115b56e 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_hp.F +++ b/src/tce/eomccsd/eomccsd_1prdm_hp.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_1prdm_hp(d_i0,d_x0,d_x1,d_y1,d_y2,k_i0_offset,k &_x0_offset,k_x1_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_1prdm_hp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_1prdm_hp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_hp.F,v 1.1 2007-09-19 22:20:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y diff --git a/src/tce/eomccsd/eomccsd_1prdm_ph.F b/src/tce/eomccsd/eomccsd_1prdm_ph.F index 0592fff949..f503d99a3b 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_ph.F +++ b/src/tce/eomccsd/eomccsd_1prdm_ph.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_ph(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -187,7 +187,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 END SUBROUTINE eomccsd_1prdm_ph_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -349,7 +349,7 @@ C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_1prdm_ph_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -465,7 +465,7 @@ C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx @@ -521,7 +521,7 @@ C i1 ( h4 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -682,7 +682,7 @@ C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_1prdm_ph_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_ytx @@ -810,7 +810,7 @@ C i0 ( p2 h1 )_ytxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_ytx END SUBROUTINE eomccsd_1prdm_ph_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ytx + = 1 * x ( )_x * i2 ( h8 h1 )_yt @@ -926,7 +926,7 @@ C i1 ( h8 h1 )_ytx + = 1 * x ( )_x * i2 ( h8 h1 )_yt RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ytx @@ -982,7 +982,7 @@ C i1 ( h8 h1 )_ytx END SUBROUTINE eomccsd_1prdm_ph_2_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h8 p3 )_y @@ -1110,7 +1110,7 @@ C i2 ( h8 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h8 p3 )_y END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt @@ -1166,7 +1166,7 @@ C i2 ( h8 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h8 p3 p4 )_y @@ -1342,7 +1342,7 @@ C i2 ( h8 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1prdm_ph_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h8 p4 )_y @@ -1470,7 +1470,7 @@ C i1 ( h8 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h8 p4 )_y END SUBROUTINE eomccsd_1prdm_ph_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_yx @@ -1598,7 +1598,7 @@ C i1 ( h8 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h8 p3 p5 )_y @@ -1759,7 +1759,7 @@ C i2 ( h8 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h8 p3 p5 ) END SUBROUTINE OFFSET_eomccsd_1prdm_ph_2_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_yx @@ -1815,7 +1815,7 @@ C i2 ( h8 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 h8 p4 p5 )_y @@ -1991,7 +1991,7 @@ C i1 ( h8 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 END SUBROUTINE eomccsd_1prdm_ph_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt @@ -2108,7 +2108,7 @@ C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1prdm_ph_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 h5 h1 p3 )_yt @@ -2273,7 +2273,7 @@ C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt @@ -2329,7 +2329,7 @@ C i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1prdm_ph_3_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -2483,7 +2483,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1prdm_ph_3_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt @@ -2555,7 +2555,7 @@ C i2 ( h4 h5 h1 p3 )_yt END SUBROUTINE eomccsd_1prdm_ph_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt @@ -2683,7 +2683,7 @@ C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -2810,7 +2810,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -2866,7 +2866,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1prdm_ph_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -3042,7 +3042,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1prdm_ph_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx @@ -3162,7 +3162,7 @@ C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx END SUBROUTINE eomccsd_1prdm_ph_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -3278,7 +3278,7 @@ C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -3312,7 +3312,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_1prdm_ph_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -3468,7 +3468,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_1prdm_ph_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -3630,7 +3630,7 @@ C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_ END SUBROUTINE eomccsd_1prdm_ph_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yx @@ -3796,7 +3796,7 @@ C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE eomccsd_1prdm_ph_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p6 )_y @@ -3949,7 +3949,7 @@ C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx @@ -4021,7 +4021,7 @@ C i1 ( h4 h5 h1 p3 )_yx END SUBROUTINE eomccsd_1prdm_ph_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h5 h6 h1 p4 )_yt @@ -4187,7 +4187,7 @@ C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h END SUBROUTINE eomccsd_1prdm_ph_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -4340,7 +4340,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_ph_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_ph.F,v 1.1 2007-09-19 22:21:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt diff --git a/src/tce/eomccsd/eomccsd_1prdm_pp.F b/src/tce/eomccsd/eomccsd_1prdm_pp.F index 6898d921bc..5211030dc2 100644 --- a/src/tce/eomccsd/eomccsd_1prdm_pp.F +++ b/src/tce/eomccsd/eomccsd_1prdm_pp.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1prdm_pp(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d_y &2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2 &_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -70,7 +70,7 @@ C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 END SUBROUTINE eomccsd_1prdm_pp_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -198,7 +198,7 @@ C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx END SUBROUTINE eomccsd_1prdm_pp_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y @@ -314,7 +314,7 @@ C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_pp_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -370,7 +370,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_1prdm_pp_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -531,7 +531,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE eomccsd_1prdm_pp_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt @@ -648,7 +648,7 @@ C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1prdm_pp_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -823,7 +823,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 RETURN END SUBROUTINE OFFSET_eomccsd_1prdm_pp_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt @@ -879,7 +879,7 @@ C i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1prdm_pp_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -1007,7 +1007,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE eomccsd_1prdm_pp_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_1prdm_pp.F,v 1.1 2007-09-19 22:21:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/eomccsd/eomccsd_denominator.F b/src/tce/eomccsd/eomccsd_denominator.F index 6c6c7d6787..898ece7d06 100644 --- a/src/tce/eomccsd/eomccsd_denominator.F +++ b/src/tce/eomccsd/eomccsd_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_denominator(d_i0,d_x1,d_x2,d_y1,d_y2,k_i0_offse &t,k_x1_offset,k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( )_yx + = 1/4 * Sum ( h4 h3 p2 p1 ) * x ( p1 p2 h3 h4 )_x * y ( h3 h4 END SUBROUTINE eomccsd_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: eomccsd_denominator.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1/4 * Sum ( h4 h3 p2 p1 ) * x ( p1 p2 h3 h4 )_x * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/eomccsd/eomccsd_density1.F b/src/tce/eomccsd/eomccsd_density1.F index 7b5e343909..3a32a43dc6 100644 --- a/src/tce/eomccsd/eomccsd_density1.F +++ b/src/tce/eomccsd/eomccsd_density1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_density1(d_d1,d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y &0,d_y1,d_y2,k_d1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_o &ffset,k_x1_offset,k_x2_offset,k_y0_offset,k_y1_offset,k_y2_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx @@ -370,7 +370,7 @@ C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * END SUBROUTINE eomccsd_density1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx @@ -487,7 +487,7 @@ C i0 ( )_yxd + = 1 * Sum ( h2 p1 ) * d ( p1 h2 )_d * i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_density1_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -603,7 +603,7 @@ C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y RETURN END SUBROUTINE OFFSET_eomccsd_density1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx @@ -659,7 +659,7 @@ C i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_density1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y @@ -820,7 +820,7 @@ C i1 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_density1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dxy + = 1 * y ( )_y * i1 ( )_dx @@ -918,7 +918,7 @@ C i0 ( )_dxy + = 1 * y ( )_y * i1 ( )_dx END SUBROUTINE eomccsd_density1_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dx + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * x ( p2 h1 )_x @@ -1034,7 +1034,7 @@ C i1 ( )_dx + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * x ( p2 h1 )_x RETURN END SUBROUTINE OFFSET_eomccsd_density1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dx @@ -1068,7 +1068,7 @@ C i1 ( )_dx END SUBROUTINE eomccsd_density1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_dtx + = 1 * x ( )_x * i2 ( )_dt @@ -1166,7 +1166,7 @@ C i1 ( )_dtx + = 1 * x ( )_x * i2 ( )_dt END SUBROUTINE eomccsd_density1_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_dt + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * t ( p2 h1 )_t @@ -1283,7 +1283,7 @@ C i2 ( )_dt + = 1 * Sum ( h1 p2 ) * d ( h1 p2 )_d * t ( p2 h1 )_t END SUBROUTINE OFFSET_eomccsd_density1_2_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_dt @@ -1317,7 +1317,7 @@ C i2 ( )_dt END SUBROUTINE eomccsd_density1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yx @@ -1434,7 +1434,7 @@ C i0 ( )_yxd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_density1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -1561,7 +1561,7 @@ C i1 ( h2 h1 )_yx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_density1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx @@ -1617,7 +1617,7 @@ C i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_density1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h5 p4 p3 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -1793,7 +1793,7 @@ C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h5 p4 p3 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_density1_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_ytx + = 1 * x ( )_x * i2 ( h2 h1 )_yt @@ -1910,7 +1910,7 @@ C i1 ( h2 h1 )_ytx + = 1 * x ( )_x * i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_density1_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -2038,7 +2038,7 @@ C i2 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_3_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt @@ -2094,7 +2094,7 @@ C i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_density1_3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -2270,7 +2270,7 @@ C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_density1_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h2 p3 )_yx @@ -2398,7 +2398,7 @@ C i1 ( h2 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h2 p3 )_yx END SUBROUTINE eomccsd_density1_3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -2559,7 +2559,7 @@ C i2 ( h2 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h2 h5 p3 p4 )_ END SUBROUTINE OFFSET_eomccsd_density1_3_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_yx @@ -2615,7 +2615,7 @@ C i2 ( h2 p3 )_yx END SUBROUTINE eomccsd_density1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_dxy + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_dx @@ -2732,7 +2732,7 @@ C i0 ( )_dxy + = 1 * Sum ( p1 h3 ) * y ( h3 p1 )_y * i1 ( p1 h3 )_dx END SUBROUTINE eomccsd_density1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dx + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * x ( p2 h3 )_x @@ -2859,7 +2859,7 @@ C i1 ( p1 h3 )_dx + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * x ( p2 h3 )_x RETURN END SUBROUTINE OFFSET_eomccsd_density1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dx @@ -2915,7 +2915,7 @@ C i1 ( p1 h3 )_dx END SUBROUTINE eomccsd_density1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h3 )_dtx + = 1 * x ( )_x * i2 ( p1 h3 )_dt @@ -3032,7 +3032,7 @@ C i1 ( p1 h3 )_dtx + = 1 * x ( )_x * i2 ( p1 h3 )_dt END SUBROUTINE eomccsd_density1_4_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 h3 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h3 )_t @@ -3160,7 +3160,7 @@ C i2 ( p1 h3 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h3 )_t END SUBROUTINE OFFSET_eomccsd_density1_4_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 h3 )_dt @@ -3216,7 +3216,7 @@ C i2 ( p1 h3 )_dt END SUBROUTINE eomccsd_density1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = 1 * Sum ( p8 h7 ) * d ( h7 p8 )_d * i1 ( p8 h7 )_yx @@ -3333,7 +3333,7 @@ C i0 ( )_yxd + = 1 * Sum ( p8 h7 ) * d ( h7 p8 )_d * i1 ( p8 h7 )_yx END SUBROUTINE eomccsd_density1_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 p8 h4 h7 )_x * y ( h4 p3 )_y @@ -3494,7 +3494,7 @@ C i1 ( p8 h7 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 p8 h4 h7 )_x * y ( h4 p3 )_ RETURN END SUBROUTINE OFFSET_eomccsd_density1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yx @@ -3550,7 +3550,7 @@ C i1 ( p8 h7 )_yx END SUBROUTINE eomccsd_density1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = -1 * Sum ( h1 ) * t ( p8 h1 )_t * i2 ( h1 h7 )_yx @@ -3678,7 +3678,7 @@ C i1 ( p8 h7 )_yxt + = -1 * Sum ( h1 ) * t ( p8 h1 )_t * i2 ( h1 h7 )_yx END SUBROUTINE eomccsd_density1_5_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx + = 1 * Sum ( p4 ) * x ( p4 h7 )_x * y ( h1 p4 )_y @@ -3806,7 +3806,7 @@ C i2 ( h1 h7 )_yx + = 1 * Sum ( p4 ) * x ( p4 h7 )_x * y ( h1 p4 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx @@ -3862,7 +3862,7 @@ C i2 ( h1 h7 )_yx END SUBROUTINE eomccsd_density1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yx + = -1/2 * Sum ( h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h1 h6 p4 p5 )_y @@ -4038,7 +4038,7 @@ C i2 ( h1 h7 )_yx + = -1/2 * Sum ( h6 p5 p4 ) * x ( p4 p5 h6 h7 )_x * y ( h1 END SUBROUTINE eomccsd_density1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_ytx + = 1 * x ( )_x * i3 ( h1 h7 )_yt @@ -4155,7 +4155,7 @@ C i2 ( h1 h7 )_ytx + = 1 * x ( )_x * i3 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_2_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y @@ -4283,7 +4283,7 @@ C i3 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_2_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt @@ -4339,7 +4339,7 @@ C i3 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_2_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 h5 p3 p4 )_y @@ -4515,7 +4515,7 @@ C i3 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 END SUBROUTINE eomccsd_density1_5_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i3 ( h1 p3 )_yx @@ -4643,7 +4643,7 @@ C i2 ( h1 h7 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i3 ( h1 p3 )_yx END SUBROUTINE eomccsd_density1_5_2_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h1 h6 p3 p5 )_y @@ -4804,7 +4804,7 @@ C i3 ( h1 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h1 h6 p3 p5 )_ END SUBROUTINE OFFSET_eomccsd_density1_5_2_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h1 p3 )_yx @@ -4860,7 +4860,7 @@ C i3 ( h1 p3 )_yx END SUBROUTINE eomccsd_density1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_ytx + = -1 * Sum ( h1 ) * x ( p8 h1 )_x * i2 ( h1 h7 )_yt @@ -4988,7 +4988,7 @@ C i1 ( p8 h7 )_ytx + = -1 * Sum ( h1 ) * x ( p8 h1 )_x * i2 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y @@ -5116,7 +5116,7 @@ C i2 ( h1 h7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h1 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt @@ -5172,7 +5172,7 @@ C i2 ( h1 h7 )_yt END SUBROUTINE eomccsd_density1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 h5 p3 p4 )_y @@ -5348,7 +5348,7 @@ C i2 ( h1 h7 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h7 )_t * y ( h1 END SUBROUTINE eomccsd_density1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = 1 * t ( p8 h7 )_t * i2 ( )_yx @@ -5468,7 +5468,7 @@ C i1 ( p8 h7 )_yxt + = 1 * t ( p8 h7 )_t * i2 ( )_yx END SUBROUTINE eomccsd_density1_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -5585,7 +5585,7 @@ C i2 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -5619,7 +5619,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_density1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -5775,7 +5775,7 @@ C i2 ( )_yx + = 1/4 * Sum ( h6 h5 p4 p3 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_density1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p4 p8 h5 h6 )_x * i2 ( h5 h6 h7 p4 )_yt @@ -5943,7 +5943,7 @@ C i1 ( p8 h7 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p4 p8 h5 h6 )_x * i2 ( h END SUBROUTINE eomccsd_density1_5_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 p4 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h5 h6 p3 p4 )_y @@ -6097,7 +6097,7 @@ C i2 ( h5 h6 h7 p4 )_yt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * y ( h5 h6 p3 p4 END SUBROUTINE OFFSET_eomccsd_density1_5_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h7 p4 )_yt @@ -6169,7 +6169,7 @@ C i2 ( h5 h6 h7 p4 )_yt END SUBROUTINE eomccsd_density1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p3 p8 h4 h7 )_t * i2 ( h4 p3 )_yx @@ -6331,7 +6331,7 @@ C i1 ( p8 h7 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p3 p8 h4 h7 )_t * i2 ( h4 p3 END SUBROUTINE eomccsd_density1_5_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -6448,7 +6448,7 @@ C i2 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_density1_5_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx @@ -6504,7 +6504,7 @@ C i2 ( h4 p3 )_yx END SUBROUTINE eomccsd_density1_5_6_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -6665,7 +6665,7 @@ C i2 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_density1_5_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i2 ( h4 h5 h7 p3 )_yx @@ -6833,7 +6833,7 @@ C i1 ( p8 h7 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i2 ( END SUBROUTINE eomccsd_density1_5_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h7 p3 )_yx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * y ( h4 h5 p3 p6 )_y @@ -6987,7 +6987,7 @@ C i2 ( h4 h5 h7 p3 )_yx + = 1 * Sum ( p6 ) * x ( p6 h7 )_x * y ( h4 h5 p3 p6 END SUBROUTINE OFFSET_eomccsd_density1_5_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h7 p3 )_yx @@ -7059,7 +7059,7 @@ C i2 ( h4 h5 h7 p3 )_yx END SUBROUTINE eomccsd_density1_5_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 h7 )_yttx + = -1/2 * x ( )_x * i2 ( p8 h7 )_ytt @@ -7176,7 +7176,7 @@ C i1 ( p8 h7 )_yttx + = -1/2 * x ( )_x * i2 ( p8 h7 )_ytt END SUBROUTINE eomccsd_density1_5_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p8 h7 )_ytt + = 1 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i3 ( h4 h5 h7 p3 )_yt @@ -7344,7 +7344,7 @@ C i2 ( p8 h7 )_ytt + = 1 * Sum ( h4 h5 p3 ) * t ( p3 p8 h4 h5 )_t * i3 ( h4 END SUBROUTINE OFFSET_eomccsd_density1_5_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p8 h7 )_ytt @@ -7400,7 +7400,7 @@ C i2 ( p8 h7 )_ytt END SUBROUTINE eomccsd_density1_5_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h7 p3 )_yt + = 1 * Sum ( p6 ) * t ( p6 h7 )_t * y ( h4 h5 p3 p6 )_y @@ -7554,7 +7554,7 @@ C i3 ( h4 h5 h7 p3 )_yt + = 1 * Sum ( p6 ) * t ( p6 h7 )_t * y ( h4 h5 p3 p6 END SUBROUTINE OFFSET_eomccsd_density1_5_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h4 h5 h7 p3 )_yt @@ -7626,7 +7626,7 @@ C i3 ( h4 h5 h7 p3 )_yt END SUBROUTINE eomccsd_density1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yxd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yx @@ -7743,7 +7743,7 @@ C i0 ( )_yxd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yx END SUBROUTINE eomccsd_density1_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yx + = -1 * Sum ( h5 h4 p3 ) * x ( p2 p3 h4 h5 )_x * y ( h4 h5 p1 p3 )_y @@ -7918,7 +7918,7 @@ C i1 ( p2 p1 )_yx + = -1 * Sum ( h5 h4 p3 ) * x ( p2 p3 h4 h5 )_x * y ( h4 h RETURN END SUBROUTINE OFFSET_eomccsd_density1_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yx @@ -7974,7 +7974,7 @@ C i1 ( p2 p1 )_yx END SUBROUTINE eomccsd_density1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_yxt + = -2 * Sum ( h3 ) * t ( p2 h3 )_t * i2 ( h3 p1 )_yx @@ -8102,7 +8102,7 @@ C i1 ( p2 p1 )_yxt + = -2 * Sum ( h3 ) * t ( p2 h3 )_t * i2 ( h3 p1 )_yx END SUBROUTINE eomccsd_density1_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -8263,7 +8263,7 @@ C i2 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE OFFSET_eomccsd_density1_6_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_yx @@ -8319,7 +8319,7 @@ C i2 ( h3 p1 )_yx END SUBROUTINE eomccsd_density1_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p1 )_ytx + = 1 * x ( )_x * i2 ( p2 p1 )_yt @@ -8436,7 +8436,7 @@ C i1 ( p2 p1 )_ytx + = 1 * x ( )_x * i2 ( p2 p1 )_yt END SUBROUTINE eomccsd_density1_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y @@ -8612,7 +8612,7 @@ C i2 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h END SUBROUTINE OFFSET_eomccsd_density1_6_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: eomccsd_density1.F,v 1.2 2005-12-16 22:46:26 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p2 p1 )_yt diff --git a/src/tce/eomccsd/eomccsd_x1.F b/src/tce/eomccsd/eomccsd_x1.F index 08361ac815..c2e7f8aaf5 100644 --- a/src/tce/eomccsd/eomccsd_x1.F +++ b/src/tce/eomccsd/eomccsd_x1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x &2_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -214,7 +214,7 @@ c & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x1.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -459,7 +459,7 @@ c c SUBROUTINE eomccsd_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -584,7 +584,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE eomccsd_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -668,7 +668,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -724,7 +724,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE eomccsd_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -852,7 +852,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE eomccsd_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -936,7 +936,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -992,7 +992,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -1182,7 +1182,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE eomccsd_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1342,7 +1342,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE eomccsd_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1532,7 +1532,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE eomccsd_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1657,7 +1657,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE eomccsd_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1741,7 +1741,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1797,7 +1797,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE eomccsd_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1957,7 +1957,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE eomccsd_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -2099,7 +2099,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE eomccsd_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -2257,7 +2257,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE eomccsd_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2341,7 +2341,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2397,7 +2397,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2587,7 +2587,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2749,7 +2749,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE eomccsd_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2857,7 +2857,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2927,7 +2927,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE eomccsd_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -3096,7 +3096,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE eomccsd_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -3268,7 +3268,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE eomccsd_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3394,7 +3394,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE eomccsd_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3522,7 +3522,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3577,7 +3577,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE eomccsd_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3661,7 +3661,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3717,7 +3717,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE eomccsd_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3907,7 +3907,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE eomccsd_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -4067,7 +4067,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE eomccsd_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -4257,7 +4257,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE eomccsd_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4386,7 +4386,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4575,7 +4575,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_eomccsd_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4631,7 +4631,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4757,7 +4757,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4916,7 +4916,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4972,7 +4972,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -5131,7 +5131,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -5320,7 +5320,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5376,7 +5376,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE eomccsd_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5540,7 +5540,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE eomccsd_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5708,7 +5708,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1.F,v 1.6 2008-10-15 22:32:25 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/eomccsd_x1_old.F b/src/tce/eomccsd/eomccsd_x1_old.F index 4f94b2d77c..0c3d699515 100644 --- a/src/tce/eomccsd/eomccsd_x1_old.F +++ b/src/tce/eomccsd/eomccsd_x1_old.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1_old(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2, 1 k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset, 2 k_v2_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -204,7 +204,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p END SUBROUTINE oldccsd_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -328,7 +328,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE oldccsd_x1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -412,7 +412,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -468,7 +468,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE oldccsd_x1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -595,7 +595,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE oldccsd_x1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -679,7 +679,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -735,7 +735,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE oldccsd_x1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -924,7 +924,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE oldccsd_x1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1083,7 +1083,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE oldccsd_x1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1273,7 +1273,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE oldccsd_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1397,7 +1397,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE oldccsd_x1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1481,7 +1481,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1537,7 +1537,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE oldccsd_x1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1696,7 +1696,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE oldccsd_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1837,7 +1837,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE oldccsd_x1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1995,7 +1995,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE oldccsd_x1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2079,7 +2079,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2135,7 +2135,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE oldccsd_x1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2324,7 +2324,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE oldccsd_x1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2486,7 +2486,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE oldccsd_x1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2594,7 +2594,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2664,7 +2664,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE oldccsd_x1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2832,7 +2832,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE oldccsd_x1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -3004,7 +3004,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE oldccsd_x1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3129,7 +3129,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE oldccsd_x1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3256,7 +3256,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3311,7 +3311,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE oldccsd_x1_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3395,7 +3395,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3451,7 +3451,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE oldccsd_x1_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3640,7 +3640,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE oldccsd_x1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3799,7 +3799,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE oldccsd_x1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3989,7 +3989,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE oldccsd_x1_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -4117,7 +4117,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE oldccsd_x1_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4305,7 +4305,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) RETURN END SUBROUTINE OFFSET_oldccsd_x1_7_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4361,7 +4361,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE oldccsd_x1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4486,7 +4486,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE oldccsd_x1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4644,7 +4644,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4700,7 +4700,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE oldccsd_x1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4859,7 +4859,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE oldccsd_x1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -5047,7 +5047,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -5103,7 +5103,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE oldccsd_x1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5267,7 +5267,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE oldccsd_x1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5434,7 +5434,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_oldccsd_x1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x1_old.F,v 1.2 2008-10-18 04:38:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/eomccsd/eomccsd_x2.F b/src/tce/eomccsd/eomccsd_x2.F index 65812253cb..8b7c08a2c8 100644 --- a/src/tce/eomccsd/eomccsd_x2.F +++ b/src/tce/eomccsd/eomccsd_x2.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offset,k_x &2_offset,size_x1,size_x2) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -524,7 +524,7 @@ c & ister,rec_s_1,rec_s_2,rec_s_3,rec_s_4,rec_s_5, & rec_d_1,rec_d_2,rec_d_3,rec_d_4,rec_d_5, & rec_d_6,rec_d_7,rec_d_8,rec_d_9) -C $Id: eomccsd_x2.F,v 1.5 2008/07/17 21:48:18 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -1094,7 +1094,7 @@ c c SUBROUTINE eomccsd_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -1245,7 +1245,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE eomccsd_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -1353,7 +1353,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -1423,7 +1423,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE eomccsd_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -1577,7 +1577,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1685,7 +1685,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1755,7 +1755,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE eomccsd_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1924,7 +1924,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE eomccsd_x2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -2078,7 +2078,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE eomccsd_x2_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -2162,7 +2162,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -2218,7 +2218,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE eomccsd_x2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -2408,7 +2408,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE eomccsd_x2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -2604,7 +2604,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE eomccsd_x2_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2712,7 +2712,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2782,7 +2782,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE eomccsd_x2_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2951,7 +2951,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE eomccsd_x2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -3123,7 +3123,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -3284,7 +3284,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE eomccsd_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -3446,7 +3446,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE eomccsd_x2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -3530,7 +3530,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -3586,7 +3586,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE eomccsd_x2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3714,7 +3714,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE eomccsd_x2_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3798,7 +3798,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3854,7 +3854,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE eomccsd_x2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -4044,7 +4044,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE eomccsd_x2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -4204,7 +4204,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE eomccsd_x2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -4394,7 +4394,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE eomccsd_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -4556,7 +4556,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE eomccsd_x2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -4640,7 +4640,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -4696,7 +4696,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE eomccsd_x2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4856,7 +4856,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE eomccsd_x2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -5046,7 +5046,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE eomccsd_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -5205,7 +5205,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE eomccsd_x2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -5310,7 +5310,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -5380,7 +5380,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -5532,7 +5532,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -5640,7 +5640,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -5710,7 +5710,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5879,7 +5879,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE eomccsd_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -6048,7 +6048,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -6247,7 +6247,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE eomccsd_x2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -6355,7 +6355,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -6425,7 +6425,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE eomccsd_x2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -6594,7 +6594,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE eomccsd_x2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -6761,7 +6761,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6913,7 +6913,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_x2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -7067,7 +7067,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -7138,7 +7138,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE eomccsd_x2_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -7243,7 +7243,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -7313,7 +7313,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -7465,7 +7465,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsd_x2_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -7573,7 +7573,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -7643,7 +7643,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -7812,7 +7812,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE eomccsd_x2_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7981,7 +7981,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -8145,7 +8145,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE eomccsd_x2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -8299,7 +8299,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE eomccsd_x2_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -8383,7 +8383,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -8439,7 +8439,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE eomccsd_x2_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -8629,7 +8629,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE eomccsd_x2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -8825,7 +8825,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE eomccsd_x2_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8933,7 +8933,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -9003,7 +9003,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE eomccsd_x2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -9172,7 +9172,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE eomccsd_x2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -9344,7 +9344,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -9499,7 +9499,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE eomccsd_x2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -9660,7 +9660,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -9732,7 +9732,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE eomccsd_x2_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -9901,7 +9901,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -10054,7 +10054,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_x2_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -10222,7 +10222,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_6_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -10294,7 +10294,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -10449,7 +10449,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE eomccsd_x2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -10617,7 +10617,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -10689,7 +10689,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -10844,7 +10844,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE eomccsd_x2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -11033,7 +11033,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -11089,7 +11089,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE eomccsd_x2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -11286,7 +11286,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_x2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -11454,7 +11454,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_x2_8_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -11526,7 +11526,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -11678,7 +11678,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_x2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -11846,7 +11846,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -11918,7 +11918,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE eomccsd_x2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -12081,7 +12081,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_x2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -12209,7 +12209,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -12264,7 +12264,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE eomccsd_x2_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -12348,7 +12348,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -12404,7 +12404,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE eomccsd_x2_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -12594,7 +12594,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE eomccsd_x2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -12754,7 +12754,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE eomccsd_x2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -12944,7 +12944,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE eomccsd_x2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -13073,7 +13073,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -13262,7 +13262,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -13318,7 +13318,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -13479,7 +13479,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE eomccsd_x2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -13640,7 +13640,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -13712,7 +13712,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE eomccsd_x2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -13881,7 +13881,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -14034,7 +14034,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_x2_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -14202,7 +14202,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 RETURN END SUBROUTINE OFFSET_eomccsd_x2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -14274,7 +14274,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE eomccsd_x2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -14437,7 +14437,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE eomccsd_x2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -14596,7 +14596,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -14652,7 +14652,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE eomccsd_x2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -14842,7 +14842,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE eomccsd_x2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -15043,7 +15043,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_x2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -15211,7 +15211,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_x2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -15283,7 +15283,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2.F,v 1.6 2008-10-15 22:33:01 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/eomccsd/eomccsd_x2_old.F b/src/tce/eomccsd/eomccsd_x2_old.F index c4691b7847..0fdc3ab0d4 100644 --- a/src/tce/eomccsd/eomccsd_x2_old.F +++ b/src/tce/eomccsd/eomccsd_x2_old.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2_old(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2, 1 k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset, 2 k_v2_offset,k_x1_offset,k_x2_offset,size_x1,size_x2) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -480,7 +480,7 @@ c END SUBROUTINE oldccsd_x2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -630,7 +630,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE oldccsd_x2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -738,7 +738,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -808,7 +808,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE oldccsd_x2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -961,7 +961,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE oldccsd_x2_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1069,7 +1069,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1139,7 +1139,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE oldccsd_x2_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1307,7 +1307,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE oldccsd_x2_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -1461,7 +1461,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE oldccsd_x2_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -1545,7 +1545,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -1601,7 +1601,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE oldccsd_x2_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -1790,7 +1790,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE oldccsd_x2_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -1986,7 +1986,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE oldccsd_x2_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2094,7 +2094,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2164,7 +2164,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE oldccsd_x2_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2332,7 +2332,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE oldccsd_x2_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -2504,7 +2504,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -2664,7 +2664,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE oldccsd_x2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -2825,7 +2825,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE oldccsd_x2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -2909,7 +2909,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -2965,7 +2965,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE oldccsd_x2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3092,7 +3092,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE oldccsd_x2_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3176,7 +3176,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_3_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3232,7 +3232,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE oldccsd_x2_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -3421,7 +3421,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE oldccsd_x2_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -3580,7 +3580,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE oldccsd_x2_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -3770,7 +3770,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE oldccsd_x2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -3931,7 +3931,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE oldccsd_x2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -4015,7 +4015,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -4071,7 +4071,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE oldccsd_x2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4230,7 +4230,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE oldccsd_x2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -4420,7 +4420,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE oldccsd_x2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -4579,7 +4579,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE oldccsd_x2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -4684,7 +4684,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -4754,7 +4754,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE oldccsd_x2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -4905,7 +4905,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE oldccsd_x2_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -5013,7 +5013,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -5083,7 +5083,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE oldccsd_x2_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5251,7 +5251,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE oldccsd_x2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -5420,7 +5420,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -5619,7 +5619,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE oldccsd_x2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -5727,7 +5727,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -5797,7 +5797,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE oldccsd_x2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -5965,7 +5965,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE oldccsd_x2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -6132,7 +6132,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE oldccsd_x2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6283,7 +6283,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE oldccsd_x2_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -6436,7 +6436,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -6507,7 +6507,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE oldccsd_x2_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -6612,7 +6612,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -6682,7 +6682,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE oldccsd_x2_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -6833,7 +6833,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE oldccsd_x2_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -6941,7 +6941,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -7011,7 +7011,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE oldccsd_x2_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -7179,7 +7179,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE oldccsd_x2_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7348,7 +7348,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE oldccsd_x2_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -7511,7 +7511,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE oldccsd_x2_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -7665,7 +7665,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE oldccsd_x2_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -7749,7 +7749,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -7805,7 +7805,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE oldccsd_x2_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -7994,7 +7994,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE oldccsd_x2_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -8190,7 +8190,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE oldccsd_x2_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8298,7 +8298,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -8368,7 +8368,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE oldccsd_x2_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -8536,7 +8536,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE oldccsd_x2_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -8708,7 +8708,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE oldccsd_x2_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -8862,7 +8862,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE oldccsd_x2_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -9022,7 +9022,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -9094,7 +9094,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE oldccsd_x2_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -9263,7 +9263,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE oldccsd_x2_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -9415,7 +9415,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE oldccsd_x2_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -9582,7 +9582,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_6_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -9654,7 +9654,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE oldccsd_x2_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -9808,7 +9808,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE oldccsd_x2_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -9975,7 +9975,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -10047,7 +10047,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE oldccsd_x2_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -10202,7 +10202,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE oldccsd_x2_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -10390,7 +10390,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -10446,7 +10446,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE oldccsd_x2_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -10643,7 +10643,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE oldccsd_x2_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -10810,7 +10810,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 RETURN END SUBROUTINE OFFSET_oldccsd_x2_8_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -10882,7 +10882,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE oldccsd_x2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -11033,7 +11033,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE oldccsd_x2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -11200,7 +11200,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_oldccsd_x2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -11272,7 +11272,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE oldccsd_x2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -11435,7 +11435,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE oldccsd_x2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -11562,7 +11562,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -11617,7 +11617,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE oldccsd_x2_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -11701,7 +11701,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -11757,7 +11757,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE oldccsd_x2_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -11946,7 +11946,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE oldccsd_x2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -12105,7 +12105,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE oldccsd_x2_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -12295,7 +12295,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE oldccsd_x2_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -12423,7 +12423,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE oldccsd_x2_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -12611,7 +12611,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x2_10_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -12667,7 +12667,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE oldccsd_x2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -12828,7 +12828,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE oldccsd_x2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -12988,7 +12988,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_oldccsd_x2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -13060,7 +13060,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE oldccsd_x2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -13229,7 +13229,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE oldccsd_x2_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -13381,7 +13381,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE oldccsd_x2_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -13548,7 +13548,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 RETURN END SUBROUTINE OFFSET_oldccsd_x2_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -13620,7 +13620,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE oldccsd_x2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -13783,7 +13783,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE oldccsd_x2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -13941,7 +13941,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_oldccsd_x2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -13997,7 +13997,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE oldccsd_x2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -14187,7 +14187,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE oldccsd_x2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -14388,7 +14388,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE oldccsd_x2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -14555,7 +14555,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_oldccsd_x2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -14627,7 +14627,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE oldccsd_x2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_x2_old.F,v 1.2 2008-10-18 04:38:53 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/eomccsd/eomccsd_y1.F b/src/tce/eomccsd/eomccsd_y1.F index ae9ec6d7a5..9d68db85b2 100644 --- a/src/tce/eomccsd/eomccsd_y1.F +++ b/src/tce/eomccsd/eomccsd_y1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_y1(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y &2_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -526,7 +526,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 END SUBROUTINE eomccsd_y1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f @@ -650,7 +650,7 @@ C i0 ( h2 p1 )_yf + = -1 * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h2 h7 )_f RETURN END SUBROUTINE eomccsd_y1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -734,7 +734,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -790,7 +790,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE eomccsd_y1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -917,7 +917,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE eomccsd_y1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -1001,7 +1001,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1057,7 +1057,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE eomccsd_y1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1218,7 +1218,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE eomccsd_y1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1363,7 +1363,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE eomccsd_y1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1539,7 +1539,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE eomccsd_y1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f @@ -1663,7 +1663,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( p7 ) * y ( h2 p7 )_y * i1 ( p7 p1 )_f RETURN END SUBROUTINE eomccsd_y1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1747,7 +1747,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -1803,7 +1803,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE eomccsd_y1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -1948,7 +1948,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE eomccsd_y1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2076,7 +2076,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_y1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2236,7 +2236,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_y1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2292,7 +2292,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_y1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 )_v @@ -2426,7 +2426,7 @@ C i0 ( h2 p1 )_yv + = -1 * Sum ( h4 p3 ) * y ( h4 p3 )_y * v ( h2 p3 h4 p1 ) END SUBROUTINE eomccsd_y1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h11 )_f @@ -2584,7 +2584,7 @@ C i0 ( h2 p1 )_yf + = 1 * Sum ( h11 p9 ) * y ( h2 h11 p1 p9 )_y * i1 ( p9 h1 RETURN END SUBROUTINE eomccsd_y1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2668,7 +2668,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2724,7 +2724,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE eomccsd_y1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -2851,7 +2851,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE eomccsd_y1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -2935,7 +2935,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -2991,7 +2991,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE eomccsd_y1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3118,7 +3118,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE eomccsd_y1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3202,7 +3202,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3258,7 +3258,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE eomccsd_y1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3419,7 +3419,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE eomccsd_y1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3564,7 +3564,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE eomccsd_y1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3740,7 +3740,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE eomccsd_y1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -3867,7 +3867,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE eomccsd_y1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -3951,7 +3951,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -4007,7 +4007,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE eomccsd_y1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4152,7 +4152,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE eomccsd_y1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4289,7 +4289,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE eomccsd_y1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4450,7 +4450,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE eomccsd_y1_4_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4534,7 +4534,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4590,7 +4590,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE eomccsd_y1_4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4751,7 +4751,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE eomccsd_y1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -4918,7 +4918,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE eomccsd_y1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -5017,7 +5017,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5087,7 +5087,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE eomccsd_y1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5241,7 +5241,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE eomccsd_y1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5409,7 +5409,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE eomccsd_y1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h12 h11 p9 ) * y ( h11 h12 p1 p9 )_y * i1 ( h2 p9 h11 h12 )_v @@ -5571,7 +5571,7 @@ C i0 ( h2 p1 )_yv + = -1/2 * Sum ( h12 h11 p9 ) * y ( h11 h12 p1 p9 )_y * i1 RETURN END SUBROUTINE eomccsd_y1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v @@ -5672,7 +5672,7 @@ C i1 ( h2 p9 h11 h12 )_v + = 1 * v ( h2 p9 h11 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_v @@ -5742,7 +5742,7 @@ C i1 ( h2 p9 h11 h12 )_v END SUBROUTINE eomccsd_y1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h11 h12 )_v @@ -5885,7 +5885,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h RETURN END SUBROUTINE eomccsd_y1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v @@ -5993,7 +5993,7 @@ C i2 ( h2 h7 h11 h12 )_v + = 1 * v ( h2 h7 h11 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_v @@ -6063,7 +6063,7 @@ C i2 ( h2 h7 h11 h12 )_v END SUBROUTINE eomccsd_y1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 h12 p3 )_v @@ -6216,7 +6216,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h2 h7 RETURN END SUBROUTINE eomccsd_y1_5_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v @@ -6325,7 +6325,7 @@ C i3 ( h2 h7 h12 p3 )_v + = 1 * v ( h2 h7 h12 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_v @@ -6395,7 +6395,7 @@ C i3 ( h2 h7 h12 p3 )_v END SUBROUTINE eomccsd_y1_5_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 p3 p5 )_v @@ -6565,7 +6565,7 @@ C i3 ( h2 h7 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 h7 END SUBROUTINE eomccsd_y1_5_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -6737,7 +6737,7 @@ C i2 ( h2 h7 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE eomccsd_y1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 h12 p3 )_v @@ -6892,7 +6892,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h11 )_t * i2 ( h2 p9 RETURN END SUBROUTINE eomccsd_y1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v @@ -6993,7 +6993,7 @@ C i2 ( h2 p9 h12 p3 )_v + = 1 * v ( h2 p9 h12 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_v @@ -7063,7 +7063,7 @@ C i2 ( h2 p9 h12 p3 )_v END SUBROUTINE eomccsd_y1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 p3 p5 )_v @@ -7217,7 +7217,7 @@ C i2 ( h2 p9 h12 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h12 )_t * v ( h2 p9 END SUBROUTINE eomccsd_y1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( h2 p5 )_f @@ -7371,7 +7371,7 @@ C i1 ( h2 p9 h11 h12 )_ft + = 1 * Sum ( p5 ) * t ( p5 p9 h11 h12 )_t * i2 ( RETURN END SUBROUTINE eomccsd_y1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -7455,7 +7455,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -7511,7 +7511,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE eomccsd_y1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -7672,7 +7672,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE eomccsd_y1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 ( h2 h6 h12 p4 )_v @@ -7860,7 +7860,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h11 )_t * i2 RETURN END SUBROUTINE eomccsd_y1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v @@ -7969,7 +7969,7 @@ C i2 ( h2 h6 h12 p4 )_v + = 1 * v ( h2 h6 h12 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_v @@ -8039,7 +8039,7 @@ C i2 ( h2 h6 h12 p4 )_v END SUBROUTINE eomccsd_y1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 p7 )_v @@ -8209,7 +8209,7 @@ C i2 ( h2 h6 h12 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h2 h6 p4 END SUBROUTINE eomccsd_y1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8374,7 +8374,7 @@ C i1 ( h2 p9 h11 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * END SUBROUTINE eomccsd_y1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 p8 h7 p1 )_v @@ -8536,7 +8536,7 @@ C i0 ( h2 p1 )_yv + = 1/2 * Sum ( h7 p5 p8 ) * y ( h2 h7 p5 p8 )_y * i1 ( p5 RETURN END SUBROUTINE eomccsd_y1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8637,7 +8637,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y1_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8707,7 +8707,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE eomccsd_y1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -8861,7 +8861,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE eomccsd_y1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f @@ -8986,7 +8986,7 @@ C i0 ( h2 p1 )_ytf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_yt * f ( h3 p1 )_f END SUBROUTINE eomccsd_y1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y @@ -9113,7 +9113,7 @@ C i1 ( h2 h3 )_yt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * y ( h2 p4 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt @@ -9169,7 +9169,7 @@ C i1 ( h2 h3 )_yt END SUBROUTINE eomccsd_y1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 h6 p4 p5 )_y @@ -9345,7 +9345,7 @@ C i1 ( h2 h3 )_yt + = 1/2 * Sum ( h6 p5 p4 ) * t ( p4 p5 h3 h6 )_t * y ( h2 END SUBROUTINE eomccsd_y1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 )_v @@ -9487,7 +9487,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h8 ) * i1 ( h6 h8 )_yt * v ( h2 h8 h6 p1 END SUBROUTINE eomccsd_y1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y @@ -9614,7 +9614,7 @@ C i1 ( h6 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h6 p3 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_8_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt @@ -9670,7 +9670,7 @@ C i1 ( h6 h8 )_yt END SUBROUTINE eomccsd_y1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 h6 p3 p4 )_y @@ -9846,7 +9846,7 @@ C i1 ( h6 h8 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h5 END SUBROUTINE eomccsd_y1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 )_v @@ -9988,7 +9988,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p7 p8 ) * i1 ( p7 p8 )_yt * v ( h2 p8 p1 p7 END SUBROUTINE eomccsd_y1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y @@ -10115,7 +10115,7 @@ C i1 ( p7 p8 )_yt + = 1 * Sum ( h4 ) * t ( p7 h4 )_t * y ( h4 p8 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt @@ -10171,7 +10171,7 @@ C i1 ( p7 p8 )_yt END SUBROUTINE eomccsd_y1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 h6 p3 p8 )_y @@ -10347,7 +10347,7 @@ C i1 ( p7 p8 )_yt + = 1/2 * Sum ( h6 h5 p3 ) * t ( p3 p7 h5 h6 )_t * y ( h5 END SUBROUTINE eomccsd_y1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 p5 h6 p1 )_v @@ -10492,7 +10492,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_yt * v ( h4 END SUBROUTINE eomccsd_y1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 )_y @@ -10661,7 +10661,7 @@ C i1 ( h2 h6 h4 p5 )_yt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * y ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_yt @@ -10733,7 +10733,7 @@ C i1 ( h2 h6 h4 p5 )_yt END SUBROUTINE eomccsd_y1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 p10 )_v @@ -10892,7 +10892,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p10 h9 ) * i1 ( p10 h9 )_yt * v ( h2 h9 p1 END SUBROUTINE eomccsd_y1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 )_y @@ -11053,7 +11053,7 @@ C i1 ( p10 h9 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p10 h5 h9 )_t * y ( h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_yt @@ -11109,7 +11109,7 @@ C i1 ( p10 h9 )_yt END SUBROUTINE eomccsd_y1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt @@ -11237,7 +11237,7 @@ C i1 ( p10 h9 )_ytt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 h9 )_yt END SUBROUTINE eomccsd_y1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y @@ -11364,7 +11364,7 @@ C i2 ( h6 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt @@ -11420,7 +11420,7 @@ C i2 ( h6 h9 )_yt END SUBROUTINE eomccsd_y1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h5 h6 p3 p4 )_y @@ -11596,7 +11596,7 @@ C i2 ( h6 h9 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h9 )_t * y ( h5 END SUBROUTINE eomccsd_y1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 ( h5 h6 h9 p3 )_yt @@ -11764,7 +11764,7 @@ C i1 ( p10 h9 )_ytt + = -1/2 * Sum ( h5 h6 p3 ) * t ( p3 p10 h5 h6 )_t * i2 END SUBROUTINE eomccsd_y1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 )_y @@ -11917,7 +11917,7 @@ C i2 ( h5 h6 h9 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * y ( h5 h6 p3 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h9 p3 )_yt @@ -11989,7 +11989,7 @@ C i2 ( h5 h6 h9 p3 )_yt END SUBROUTINE eomccsd_y1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v ( h6 h12 p1 p9 )_v @@ -12154,7 +12154,7 @@ C i0 ( h2 p1 )_ytv + = 1/2 * Sum ( p9 h12 h6 ) * i1 ( h2 p9 h6 h12 )_yt * v END SUBROUTINE eomccsd_y1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 p3 )_y @@ -12308,7 +12308,7 @@ C i1 ( h2 p9 h6 h12 )_yt + = -1 * Sum ( p3 ) * t ( p3 p9 h6 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_yt @@ -12380,7 +12380,7 @@ C i1 ( h2 p9 h6 h12 )_yt END SUBROUTINE eomccsd_y1_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = -1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h6 h12 )_yt @@ -12524,7 +12524,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = -1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 END SUBROUTINE eomccsd_y1_12_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h12 )_t * y ( h2 h10 p3 p4 )_y @@ -12695,7 +12695,7 @@ C i2 ( h2 h10 h6 h12 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h12 )_t * y RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_yt @@ -12767,7 +12767,7 @@ C i2 ( h2 h10 h6 h12 )_yt END SUBROUTINE eomccsd_y1_12_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h6 h12 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 h6 p5 )_yt @@ -12921,7 +12921,7 @@ C i2 ( h2 h10 h6 h12 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h12 )_t * i3 ( h2 h10 END SUBROUTINE eomccsd_y1_12_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 p7 )_y @@ -13090,7 +13090,7 @@ C i3 ( h2 h10 h6 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h10 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h6 p5 )_yt @@ -13162,7 +13162,7 @@ C i3 ( h2 h10 h6 p5 )_yt END SUBROUTINE eomccsd_y1_12_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 ( h2 h5 h6 p3 )_yt @@ -13351,7 +13351,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h12 )_t * i2 END SUBROUTINE eomccsd_y1_12_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -13520,7 +13520,7 @@ C i2 ( h2 h5 h6 p3 )_yt + = 1 * Sum ( p7 ) * t ( p7 h6 )_t * y ( h2 h5 p3 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h6 p3 )_yt @@ -13592,7 +13592,7 @@ C i2 ( h2 h5 h6 p3 )_yt END SUBROUTINE eomccsd_y1_12_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h6 h12 )_ytt + = -1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt @@ -13738,7 +13738,7 @@ C i1 ( h2 p9 h6 h12 )_ytt + = -1 * t ( p9 h6 )_t * i2 ( h2 h12 )_yt END SUBROUTINE eomccsd_y1_12_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 h5 p3 p4 )_y @@ -13913,7 +13913,7 @@ C i2 ( h2 h12 )_yt + = 1 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h12 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_12_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yt @@ -13969,7 +13969,7 @@ C i2 ( h2 h12 )_yt END SUBROUTINE eomccsd_y1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( h6 h8 h7 p1 )_v @@ -14126,7 +14126,7 @@ C i0 ( h2 p1 )_ytv + = 1/4 * Sum ( h7 h8 h6 ) * i1 ( h2 h7 h6 h8 )_yt * v ( END SUBROUTINE eomccsd_y1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h8 )_t * y ( h2 h7 p3 p4 )_y @@ -14297,7 +14297,7 @@ C i1 ( h2 h7 h6 h8 )_yt + = -1 * Sum ( p4 p3 ) * t ( p3 p4 h6 h8 )_t * y ( h RETURN END SUBROUTINE OFFSET_eomccsd_y1_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_yt @@ -14369,7 +14369,7 @@ C i1 ( h2 h7 h6 h8 )_yt END SUBROUTINE eomccsd_y1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h6 h8 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 p3 )_yt @@ -14523,7 +14523,7 @@ C i1 ( h2 h7 h6 h8 )_ytt + = 2 * Sum ( p3 ) * t ( p3 h8 )_t * i2 ( h2 h7 h6 END SUBROUTINE eomccsd_y1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 )_y @@ -14692,7 +14692,7 @@ C i2 ( h2 h7 h6 p3 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h7 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h6 p3 )_yt @@ -14764,7 +14764,7 @@ C i2 ( h2 h7 h6 p3 )_yt END SUBROUTINE eomccsd_y1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 p7 p1 p8 )_v @@ -14917,7 +14917,7 @@ C i0 ( h2 p1 )_ytv + = 1 * Sum ( p8 h6 p7 ) * i1 ( h2 p8 h6 p7 )_yt * v ( h6 END SUBROUTINE eomccsd_y1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 h5 p3 p7 )_y @@ -15119,7 +15119,7 @@ C i1 ( h2 p8 h6 p7 )_yt + = 1 * Sum ( h5 p3 ) * t ( p3 p8 h5 h6 )_t * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_y1_14_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_yt @@ -15191,7 +15191,7 @@ C i1 ( h2 p8 h6 p7 )_yt END SUBROUTINE eomccsd_y1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 p7 )_yt @@ -15335,7 +15335,7 @@ C i1 ( h2 p8 h6 p7 )_ytt + = -1 * Sum ( h4 ) * t ( p8 h4 )_t * i2 ( h2 h4 h6 END SUBROUTINE eomccsd_y1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 )_y @@ -15504,7 +15504,7 @@ C i2 ( h2 h4 h6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h2 h4 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y1.F,v 1.4 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h6 p7 )_yt diff --git a/src/tce/eomccsd/eomccsd_y2.F b/src/tce/eomccsd/eomccsd_y2.F index e00576f6c3..4a1e6e4c77 100644 --- a/src/tce/eomccsd/eomccsd_y2.F +++ b/src/tce/eomccsd/eomccsd_y2.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_y2(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,k_f1_offs &et,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offset,k_y &2_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -302,7 +302,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 END SUBROUTINE eomccsd_y2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f @@ -460,7 +460,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_f RETURN END SUBROUTINE eomccsd_y2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -544,7 +544,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -600,7 +600,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE eomccsd_y2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -761,7 +761,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE eomccsd_y2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( h3 h4 h7 p2 )_v @@ -911,7 +911,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( h7 ) * y ( h7 p1 )_y * i1 ( RETURN END SUBROUTINE eomccsd_y2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1012,7 +1012,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1082,7 +1082,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE eomccsd_y2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1236,7 +1236,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE eomccsd_y2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h4 p5 p1 p2 )_v @@ -1389,7 +1389,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 2 ) * Sum ( p5 ) * y ( h3 p5 )_y * v ( h END SUBROUTINE eomccsd_y2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_f @@ -1550,7 +1550,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * RETURN END SUBROUTINE eomccsd_y2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -1634,7 +1634,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -1690,7 +1690,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE eomccsd_y2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -1817,7 +1817,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE eomccsd_y2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -1901,7 +1901,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -1957,7 +1957,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE eomccsd_y2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2118,7 +2118,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_y2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2263,7 +2263,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE eomccsd_y2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -2439,7 +2439,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE eomccsd_y2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y * i1 ( p10 p2 )_f @@ -2600,7 +2600,7 @@ C i0 ( h3 h4 p1 p2 )_yf + = 1 * P( 2 ) * Sum ( p10 ) * y ( h3 h4 p1 p10 )_y RETURN END SUBROUTINE eomccsd_y2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -2684,7 +2684,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_y2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -2741,7 +2741,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE eomccsd_y2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -2886,7 +2886,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE eomccsd_y2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3062,7 +3062,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE eomccsd_y2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3190,7 +3190,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_y2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -3350,7 +3350,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_y2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -3406,7 +3406,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_y2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 ( h3 h4 h9 h10 )_v @@ -3565,7 +3565,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( h10 h9 ) * y ( h9 h10 p1 p2 )_y * i1 RETURN END SUBROUTINE eomccsd_y2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -3663,7 +3663,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_6_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -3733,7 +3733,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE eomccsd_y2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -3886,7 +3886,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE eomccsd_y2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -3985,7 +3985,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4055,7 +4055,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE eomccsd_y2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4209,7 +4209,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE eomccsd_y2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -4371,7 +4371,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE eomccsd_y2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_y * i1 ( h4 p7 h9 p2 )_v @@ -4570,7 +4570,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = -1 * P( 4 ) * Sum ( h9 p7 ) * y ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE eomccsd_y2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -4671,7 +4671,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_y2_7_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -4741,7 +4741,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE eomccsd_y2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -4895,7 +4895,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE eomccsd_y2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5098,7 +5098,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE eomccsd_y2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( p5 p6 p1 p2 )_v @@ -5258,7 +5258,7 @@ C i0 ( h3 h4 p1 p2 )_yv + = 1/2 * Sum ( p6 p5 ) * y ( h3 h4 p5 p6 )_y * v ( END SUBROUTINE eomccsd_y2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( h4 h9 p1 p2 )_v @@ -5419,7 +5419,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 2 ) * Sum ( h9 ) * i1 ( h3 h9 )_yt * v ( END SUBROUTINE eomccsd_y2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y @@ -5546,7 +5546,7 @@ C i1 ( h3 h9 )_yt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * y ( h3 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_y2_9_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt @@ -5602,7 +5602,7 @@ C i1 ( h3 h9 )_yt END SUBROUTINE eomccsd_y2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * y ( h3 h7 p5 p6 )_y @@ -5778,7 +5778,7 @@ C i1 ( h3 h9 )_yt + = -1/2 * Sum ( h7 p6 p5 ) * t ( p5 p6 h7 h9 )_t * y ( h3 END SUBROUTINE eomccsd_y2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt * f ( h5 p2 )_f @@ -5932,7 +5932,7 @@ C i0 ( h3 h4 p1 p2 )_ytf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE eomccsd_y2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p6 )_y @@ -6085,7 +6085,7 @@ C i1 ( h3 h4 h5 p1 )_yt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * y ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_10_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yt @@ -6157,7 +6157,7 @@ C i1 ( h3 h4 h5 p1 )_yt END SUBROUTINE eomccsd_y2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 )_yt * v ( h4 h6 h7 p2 )_v @@ -6343,7 +6343,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * P( 4 ) * Sum ( h7 h6 ) * i1 ( h3 h7 h6 p1 ) END SUBROUTINE eomccsd_y2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 )_y @@ -6512,7 +6512,7 @@ C i1 ( h3 h7 h6 p1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_y2_11_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h7 h6 p1 )_yt @@ -6584,7 +6584,7 @@ C i1 ( h3 h7 h6 p1 )_yt END SUBROUTINE eomccsd_y2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( h6 p7 p1 p2 )_v @@ -6734,7 +6734,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1 * Sum ( h6 p7 ) * i1 ( h3 h4 h6 p7 )_yt * v ( END SUBROUTINE eomccsd_y2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p7 )_y @@ -6887,7 +6887,7 @@ C i1 ( h3 h4 h6 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h6 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_12_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p7 )_yt @@ -6959,7 +6959,7 @@ C i1 ( h3 h4 h6 p7 )_yt END SUBROUTINE eomccsd_y2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * v ( h3 h4 p2 p6 )_v @@ -7121,7 +7121,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = -1/2 * P( 2 ) * Sum ( p6 ) * i1 ( p6 p1 )_yt * END SUBROUTINE eomccsd_y2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p1 p5 )_y @@ -7296,7 +7296,7 @@ C i1 ( p6 p1 )_yt + = 1 * Sum ( h8 h7 p5 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 RETURN END SUBROUTINE OFFSET_eomccsd_y2_13_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p6 p1 )_yt @@ -7352,7 +7352,7 @@ C i1 ( p6 p1 )_yt END SUBROUTINE eomccsd_y2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v ( h8 h9 p1 p2 )_v @@ -7514,7 +7514,7 @@ C i0 ( h3 h4 p1 p2 )_ytv + = 1/4 * Sum ( h9 h8 ) * i1 ( h3 h4 h8 h9 )_yt * v END SUBROUTINE eomccsd_y2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h8 h9 )_t * y ( h3 h4 p5 p6 )_y @@ -7675,7 +7675,7 @@ C i1 ( h3 h4 h8 h9 )_yt + = 1 * Sum ( p6 p5 ) * t ( p5 p6 h8 h9 )_t * y ( h3 RETURN END SUBROUTINE OFFSET_eomccsd_y2_14_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_yt @@ -7747,7 +7747,7 @@ C i1 ( h3 h4 h8 h9 )_yt END SUBROUTINE eomccsd_y2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 h9 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 p5 )_yt @@ -7901,7 +7901,7 @@ C i1 ( h3 h4 h8 h9 )_ytt + = 2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h8 END SUBROUTINE eomccsd_y2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p7 )_y @@ -8054,7 +8054,7 @@ C i2 ( h3 h4 h8 p5 )_yt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_y2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h8 p5 )_yt @@ -8126,7 +8126,7 @@ C i2 ( h3 h4 h8 p5 )_yt END SUBROUTINE eomccsd_y2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 )_ytt * v ( h4 h8 p2 p5 )_v @@ -8328,7 +8328,7 @@ C i0 ( h3 h4 p1 p2 )_yttv + = -1 * P( 4 ) * Sum ( p5 h8 ) * i1 ( h3 p5 h8 p1 END SUBROUTINE eomccsd_y2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 p1 )_yt @@ -8471,7 +8471,7 @@ C i1 ( h3 p5 h8 p1 )_ytt + = 1 * Sum ( h6 ) * t ( p5 h6 )_t * i2 ( h3 h6 h8 RETURN END SUBROUTINE OFFSET_eomccsd_y2_15_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 h8 p1 )_ytt @@ -8543,7 +8543,7 @@ C i1 ( h3 p5 h8 p1 )_ytt END SUBROUTINE eomccsd_y2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 )_y @@ -8712,7 +8712,7 @@ C i2 ( h3 h6 h8 p1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h8 )_t * y ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_y2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_y2.F,v 1.3 2005-12-16 22:46:27 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h8 p1 )_yt diff --git a/src/tce/gatodra.F b/src/tce/gatodra.F index a809423362..f7013949cb 100644 --- a/src/tce/gatodra.F +++ b/src/tce/gatodra.F @@ -1,6 +1,6 @@ subroutine gatodra(d_sf) c -c $Id: gatodra.F,v 1.4 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Unload data from GA to DRA c diff --git a/src/tce/gatoeaf.F b/src/tce/gatoeaf.F index ff81892f48..995ed6f2a0 100644 --- a/src/tce/gatoeaf.F +++ b/src/tce/gatoeaf.F @@ -1,6 +1,6 @@ subroutine gatoeaf(d_sf) c -c $Id: gatoeaf.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Unload data from GA to EAF c diff --git a/src/tce/get_block.F b/src/tce/get_block.F index 854200a2bc..be5aaf1922 100644 --- a/src/tce/get_block.F +++ b/src/tce/get_block.F @@ -1,6 +1,6 @@ subroutine get_block(d_file,array,size,offset) c -c $Id: get_block.F,v 1.16 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -157,7 +157,7 @@ c subroutine get_block_sf(d_file,array,size,offset) c -c $Id: get_block.F,v 1.16 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_block_ind.F b/src/tce/get_block_ind.F index 739731ed87..45c7fea64e 100644 --- a/src/tce/get_block_ind.F +++ b/src/tce/get_block_ind.F @@ -1,7 +1,7 @@ subroutine get_block_ind(d_file,array,size,key_ix,indexc) c subroutine get_block_ind(d_file,array,size,offset,indexc) c -c $Id: get_block_ind.F,v 1.8 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -683,7 +683,7 @@ c & w2b,w1b,w4b,w3b) c subroutine get_block_ind(d_file,array,size,offset,indexc) c -c $Id: get_block_ind.F,v 1.8 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_block_ind_sf.F b/src/tce/get_block_ind_sf.F index ed4561f798..57e2ee6988 100644 --- a/src/tce/get_block_ind_sf.F +++ b/src/tce/get_block_ind_sf.F @@ -1,7 +1,7 @@ subroutine get_block_ind_sf(d_file,array,size,key_ix,indexc) c subroutine get_block_ind_sf(d_file,array,size,offset,indexc) c -c $Id: get_block_ind_sf.F,v 1.2 2008-07-28 19:06:26 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -685,7 +685,7 @@ c & w2b,w1b,w4b,w3b) c subroutine get_block_ind_sf(d_file,array,size,offset,indexc) c -c $Id: get_block_ind_sf.F,v 1.2 2008-07-28 19:06:26 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/get_hash_block.F b/src/tce/get_hash_block.F index 1a8af34b49..0c2c2f1adc 100644 --- a/src/tce/get_hash_block.F +++ b/src/tce/get_hash_block.F @@ -1,6 +1,6 @@ subroutine get_hash_block(d_file,array,size,hash,key) c -c $Id: get_hash_block.F,v 1.8 2008-07-28 19:16:25 jhammond Exp $ +c $Id$ c implicit none #include "tce.fh" @@ -47,7 +47,7 @@ c subroutine get_hash_block_i(d_file,array,size,hash,key, & g2b,g1b,g4b,g3b) c -c $Id: get_hash_block.F,v 1.8 2008-07-28 19:16:25 jhammond Exp $ +c $Id$ c implicit none #include "tce.fh" diff --git a/src/tce/get_hash_block_ma.F b/src/tce/get_hash_block_ma.F index 9480177e75..326ed7688f 100644 --- a/src/tce/get_hash_block_ma.F +++ b/src/tce/get_hash_block_ma.F @@ -1,6 +1,6 @@ subroutine get_hash_block_ma(big_array,array,size,hash,key) c -c $Id: get_hash_block_ma.F,v 1.1 2008-10-08 20:46:07 kowalski Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/gradients/GNUmakefile b/src/tce/gradients/GNUmakefile index e5e771d3a9..34d46b50b1 100644 --- a/src/tce/gradients/GNUmakefile +++ b/src/tce/gradients/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.4 2009-03-02 22:40:39 d3p975 Exp $ +#$Id$ OBJ_OPTIMIZE = tce_gradient.o ccsd_energy.o ccsd_left.o ccsd_gradient.o \ ccsd_1pdm_hh_mo.o ccsd_1pdm_pp_mo.o ccsd_1pdm_hp_mo.o ccsd_1pdm_ph_mo.o \ diff --git a/src/tce/gradients/ccsd_1pdm_hh_mo.F b/src/tce/gradients/ccsd_1pdm_hh_mo.F index 4f6ee2074c..28b70a77ef 100644 --- a/src/tce/gradients/ccsd_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsd_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -157,7 +157,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_hh_mo.F,v 1.1 2008-09-30 18:59:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/gradients/ccsd_1pdm_hp_mo.F b/src/tce/gradients/ccsd_1pdm_hp_mo.F index d2b3ce545e..6ff3967344 100644 --- a/src/tce/gradients/ccsd_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsd_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsd_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsd_1pdm_hp_mo.F,v 1.1 2008-09-30 18:59:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsd_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_1pdm_hp_mo.F,v 1.1 2008-09-30 18:59:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsd_1pdm_ph_mo.F b/src/tce/gradients/ccsd_1pdm_ph_mo.F index a1e08240d7..d035c03f01 100644 --- a/src/tce/gradients/ccsd_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsd_1pdm_ph_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_ph_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -61,7 +61,7 @@ C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 RETURN END SUBROUTINE ccsd_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -146,7 +146,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsd_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -308,7 +308,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsd_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yt @@ -436,7 +436,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yt END SUBROUTINE ccsd_1pdm_ph_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -563,7 +563,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y RETURN END SUBROUTINE OFFSET_ccsd_1pdm_ph_mo_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -619,7 +619,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE ccsd_1pdm_ph_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -795,7 +795,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsd_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yt @@ -961,7 +961,7 @@ C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE ccsd_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -1114,7 +1114,7 @@ C i1 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p RETURN END SUBROUTINE OFFSET_ccsd_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_1pdm_ph_mo.F,v 1.1 2008-09-30 19:00:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yt diff --git a/src/tce/gradients/ccsd_1pdm_pp_mo.F b/src/tce/gradients/ccsd_1pdm_pp_mo.F index 6bbaf76963..8088cbbc8a 100644 --- a/src/tce/gradients/ccsd_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsd_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -157,7 +157,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: ccsd_1pdm_pp_mo.F,v 1.1 2008-09-30 19:00:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hhhh_mo.F b/src/tce/gradients/ccsd_2pdm_hhhh_mo.F index b9bab17318..b61d3fa41e 100644 --- a/src/tce/gradients/ccsd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_y2,k_i0_offset,k_t1_ &offset,k_t2_offset,k_y2_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -42,7 +42,7 @@ C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 END SUBROUTINE ccsd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -204,7 +204,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsd_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 h3 h4 p5 )_yt @@ -356,7 +356,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 END SUBROUTINE ccsd_2pdm_hhhh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p6 )_y @@ -510,7 +510,7 @@ C i1 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_hhhh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hhhh_mo.F,v 1.1 2008-09-30 19:01:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hhhp_mo.F b/src/tce/gradients/ccsd_2pdm_hhhp_mo.F index fae88429c5..b75d34e37e 100644 --- a/src/tce/gradients/ccsd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hhhp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: ccsd_2pdm_hhhp_mo.F,v 1.1 2008-09-30 19:03:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( END SUBROUTINE ccsd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hhhp_mo.F,v 1.1 2008-09-30 19:03:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hhpp_mo.F b/src/tce/gradients/ccsd_2pdm_hhpp_mo.F index d061d78ac8..e0588e6502 100644 --- a/src/tce/gradients/ccsd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsd_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsd_2pdm_hhpp_mo.F,v 1.1 2008-09-30 19:03:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_hhpp_mo.F,v 1.1 2008-09-30 19:03:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsd_2pdm_hphh_mo.F b/src/tce/gradients/ccsd_2pdm_hphh_mo.F index 236570e904..1585ada112 100644 --- a/src/tce/gradients/ccsd_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -91,7 +91,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p END SUBROUTINE ccsd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -255,7 +255,7 @@ c &)) END SUBROUTINE ccsd_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -423,7 +423,7 @@ c END IF END SUBROUTINE ccsd_2pdm_hphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -551,7 +551,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -607,7 +607,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -783,7 +783,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsd_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h7 ) * t ( p3 h7 )_t * i1 ( h1 h7 h2 h4 )_yt @@ -936,7 +936,7 @@ c &)) END SUBROUTINE ccsd_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h7 p5 p6 )_y @@ -1108,7 +1108,7 @@ C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt @@ -1180,7 +1180,7 @@ C i1 ( h4 h7 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h7 h4 p5 )_yt @@ -1332,7 +1332,7 @@ C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE ccsd_2pdm_hphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -1502,7 +1502,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt @@ -1574,7 +1574,7 @@ C i2 ( h2 h7 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yt @@ -1783,7 +1783,7 @@ c END IF END SUBROUTINE ccsd_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -1953,7 +1953,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_ccsd_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphh_mo.F,v 1.1 2008-09-30 19:04:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hphp_mo.F b/src/tce/gradients/ccsd_2pdm_hphp_mo.F index 52498d6fea..9ba237ec84 100644 --- a/src/tce/gradients/ccsd_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -47,7 +47,7 @@ C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * END SUBROUTINE ccsd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -207,7 +207,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -434,7 +434,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h6 ) * t ( p1 h6 )_t * i1 ( h2 h6 h4 p3 )_yt @@ -590,7 +590,7 @@ c & - 1))))) END SUBROUTINE ccsd_2pdm_hphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h6 p1 p5 )_y @@ -770,7 +770,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_hphp_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_hphp_mo.F,v 1.1 2008-09-30 19:04:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_hppp_mo.F b/src/tce/gradients/ccsd_2pdm_hppp_mo.F index 060e8e1574..00c8ec742e 100644 --- a/src/tce/gradients/ccsd_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_hppp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: ccsd_2pdm_hppp_mo.F,v 1.1 2008-09-30 19:05:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -22,7 +22,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( END SUBROUTINE ccsd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_hppp_mo.F,v 1.1 2008-09-30 19:05:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/ccsd_2pdm_pphh_mo.F b/src/tce/gradients/ccsd_2pdm_pphh_mo.F index 9c8385632e..3ff650c303 100644 --- a/src/tce/gradients/ccsd_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -218,7 +218,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y RETURN END SUBROUTINE ccsd_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -318,7 +318,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -479,7 +479,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsd_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -564,7 +564,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -620,7 +620,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -782,7 +782,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsd_2pdm_pphh_mo_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -910,7 +910,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y @@ -1038,7 +1038,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -1094,7 +1094,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1_1(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -1179,7 +1179,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_3_1_1(l_a_offset,k_a_offset, &size) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y @@ -1235,7 +1235,7 @@ C i3 ( h9 p7 )_y END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_1_2(d_a,k_a_offset,d_c,k_c_offset &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -1320,7 +1320,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE ccsd_2pdm_pphh_mo_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h9 p6 p7 )_y @@ -1496,7 +1496,7 @@ C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h END SUBROUTINE ccsd_2pdm_pphh_mo_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 h8 h1 p6 )_yt @@ -1662,7 +1662,7 @@ C i1 ( p3 h1 )_ytt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 END SUBROUTINE ccsd_2pdm_pphh_mo_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -1816,7 +1816,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_2_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -1888,7 +1888,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -2042,7 +2042,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( END SUBROUTINE ccsd_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -2197,7 +2197,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -2269,7 +2269,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h10 h1 h2 )_yt @@ -2423,7 +2423,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h1 END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -2585,7 +2585,7 @@ C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt @@ -2657,7 +2657,7 @@ C i2 ( h9 h10 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yt @@ -2809,7 +2809,7 @@ C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsd_2pdm_pphh_mo_3_2_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -2963,7 +2963,7 @@ C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_2_2_1(l_a_offset,k_a_offset, &size) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt @@ -3035,7 +3035,7 @@ C i3 ( h9 h10 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h8 h9 h2 p7 )_yt @@ -3232,7 +3232,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 ) END SUBROUTINE ccsd_2pdm_pphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p7 )_y @@ -3386,7 +3386,7 @@ C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_3_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt @@ -3458,7 +3458,7 @@ C i2 ( h8 h9 h1 p7 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -3623,7 +3623,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE ccsd_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -3751,7 +3751,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -3807,7 +3807,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -3983,7 +3983,7 @@ C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE ccsd_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -4148,7 +4148,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE ccsd_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -4324,7 +4324,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -4380,7 +4380,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 ( h7 h8 h1 h2 )_yt @@ -4543,7 +4543,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 END SUBROUTINE ccsd_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -4705,7 +4705,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -4777,7 +4777,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -4929,7 +4929,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE ccsd_2pdm_pphh_mo_6_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -5083,7 +5083,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_6_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -5155,7 +5155,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE ccsd_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -5358,7 +5358,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE ccsd_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -5561,7 +5561,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 END SUBROUTINE OFFSET_ccsd_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphh_mo.F,v 1.1 2008-09-30 19:05:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_pphp_mo.F b/src/tce/gradients/ccsd_2pdm_pphp_mo.F index 723d63739e..6f8e2ab520 100644 --- a/src/tce/gradients/ccsd_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -91,7 +91,7 @@ C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * END SUBROUTINE ccsd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -255,7 +255,7 @@ c & - noab - 1))))) END SUBROUTINE ccsd_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -423,7 +423,7 @@ c END IF END SUBROUTINE ccsd_2pdm_pphp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -551,7 +551,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -607,7 +607,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -783,7 +783,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsd_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( h8 p3 h2 p4 )_yt @@ -937,7 +937,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( END SUBROUTINE ccsd_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h8 p3 p5 )_y @@ -1149,7 +1149,7 @@ c & - 1))))) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yt @@ -1221,7 +1221,7 @@ C i1 ( h8 p1 h2 p3 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_ytt + = 1/2 * Sum ( h7 ) * t ( p1 h7 )_t * i2 ( h7 h8 h2 p3 )_yt @@ -1375,7 +1375,7 @@ C i1 ( h8 p1 h2 p3 )_ytt + = 1/2 * Sum ( h7 ) * t ( p1 h7 )_t * i2 ( h7 h8 h END SUBROUTINE ccsd_2pdm_pphp_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h7 h8 p1 p5 )_y @@ -1538,7 +1538,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_3_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt @@ -1610,7 +1610,7 @@ C i2 ( h7 h8 h2 p1 )_yt END SUBROUTINE ccsd_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yt @@ -1773,7 +1773,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE ccsd_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -1936,7 +1936,7 @@ c &)) END SUBROUTINE OFFSET_ccsd_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pphp_mo.F,v 1.1 2008-09-30 19:06:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt diff --git a/src/tce/gradients/ccsd_2pdm_pppp_mo.F b/src/tce/gradients/ccsd_2pdm_pppp_mo.F index ebf2555fc2..e58f032f22 100644 --- a/src/tce/gradients/ccsd_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsd_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_y2,k_i0_offset,k_t1_ &offset,k_t2_offset,k_y2_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -42,7 +42,7 @@ C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 END SUBROUTINE ccsd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -205,7 +205,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsd_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( h5 p2 p3 p4 )_yt @@ -359,7 +359,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 END SUBROUTINE ccsd_2pdm_pppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 p2 p3 )_y @@ -513,7 +513,7 @@ C i1 ( h5 p1 p2 p3 )_yt + = -1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h5 h6 p2 p END SUBROUTINE OFFSET_ccsd_2pdm_pppp_mo_2_1(l_a_offset,k_a_offset,size &) -C $Id: ccsd_2pdm_pppp_mo.F,v 1.1 2008-09-30 19:07:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yt diff --git a/src/tce/gradients/ccsd_zvec.F b/src/tce/gradients/ccsd_zvec.F index 09f706e9a1..b617eedb55 100644 --- a/src/tce/gradients/ccsd_zvec.F +++ b/src/tce/gradients/ccsd_zvec.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_zvec(d_f1,d_i0,d_v2,d_x1,d_z1,k_f1_offset,k_i0_off &set,k_v2_offset,k_x1_offset,k_z1_offset) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = 1 * Sum ( p3 ) * z ( p3 h1 )_z * f ( p2 p3 )_f @@ -37,7 +37,7 @@ C i0 ( h1 p2 )_x + = -1 * x ( h1 p2 )_x END SUBROUTINE ccsd_zvec_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = 1 * Sum ( p3 ) * z ( p3 h1 )_z * f ( p2 p3 )_f @@ -167,7 +167,7 @@ c END SUBROUTINE ccsd_zvec_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f @@ -296,7 +296,7 @@ c END SUBROUTINE ccsd_zvec_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vz + = -1 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h4 p2 h1 p3 )_v @@ -434,7 +434,7 @@ c END SUBROUTINE ccsd_zvec_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vz + = 1 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 p2 p3 )_v @@ -600,7 +600,7 @@ c RETURN END SUBROUTINE ccsd_zvec_5(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_zvec.F,v 1.1 2008-09-30 19:12:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_x + = -1 * x ( h1 p2 )_x diff --git a/src/tce/gradients/ccsdt_1pdm_hh_mo.F b/src/tce/gradients/ccsdt_1pdm_hh_mo.F index ee52409305..d5523a4ae4 100644 --- a/src/tce/gradients/ccsdt_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsdt_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdt_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_hh_mo.F,v 1.1 2008-10-01 00:11:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/gradients/ccsdt_1pdm_hp_mo.F b/src/tce/gradients/ccsdt_1pdm_hp_mo.F index a9627ea3d8..1cad6b4fa0 100644 --- a/src/tce/gradients/ccsdt_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsdt_1pdm_hp_mo.F,v 1.1 2008-10-01 00:11:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsdt_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_1pdm_hp_mo.F,v 1.1 2008-10-01 00:11:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsdt_1pdm_ph_mo.F b/src/tce/gradients/ccsdt_1pdm_ph_mo.F index ee3c387092..2c151e209d 100644 --- a/src/tce/gradients/ccsdt_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_ph_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -88,7 +88,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h RETURN END SUBROUTINE ccsdt_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -173,7 +173,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsdt_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -335,7 +335,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsdt_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -577,7 +577,7 @@ C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE ccsdt_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p2 h9 )_t * i1 ( h9 h1 )_yt @@ -705,7 +705,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p2 h9 )_t * i1 ( h9 h1 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h9 p3 )_y @@ -832,7 +832,7 @@ C i1 ( h9 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h9 p3 )_y RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt @@ -888,7 +888,7 @@ C i1 ( h9 h1 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h9 p3 p4 )_y @@ -1064,7 +1064,7 @@ C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE ccsdt_1pdm_ph_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h9 p3 p4 p5 )_y @@ -1287,7 +1287,7 @@ C i1 ( h9 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdt_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = 1/2 * Sum ( h10 h7 p9 ) * t ( p2 p9 h7 h10 )_t * i1 ( h7 h10 h1 p9 )_yt @@ -1453,7 +1453,7 @@ C i0 ( p2 h1 )_ytt + = 1/2 * Sum ( h10 h7 p9 ) * t ( p2 p9 h7 h10 )_t * i1 ( END SUBROUTINE ccsdt_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h10 p6 p9 )_y @@ -1606,7 +1606,7 @@ C i1 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h10 p6 RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt @@ -1678,7 +1678,7 @@ C i1 ( h7 h10 h1 p9 )_yt END SUBROUTINE ccsdt_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h10 h1 p9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 h10 p3 p4 p9 )_y @@ -1938,7 +1938,7 @@ C i1 ( h7 h10 h1 p9 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE ccsdt_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h7 )_t * i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -2143,7 +2143,7 @@ C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h END SUBROUTINE ccsdt_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -2316,7 +2316,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 RETURN END SUBROUTINE OFFSET_ccsdt_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_1pdm_ph_mo.F,v 1.1 2008-10-01 00:12:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt diff --git a/src/tce/gradients/ccsdt_1pdm_pp_mo.F b/src/tce/gradients/ccsdt_1pdm_pp_mo.F index f1d1f24ffc..18744e1c23 100644 --- a/src/tce/gradients/ccsdt_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsdt_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE ccsdt_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsdt_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsdt_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: ccsdt_1pdm_pp_mo.F,v 1.1 2008-10-01 00:12:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F b/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F index 0e1e13df88..20ab20b068 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -53,7 +53,7 @@ C i1 ( h2 h3 h1 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdt_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -215,7 +215,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsdt_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -435,7 +435,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE ccsdt_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i1 ( h2 h3 h4 p9 )_yt @@ -587,7 +587,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h1 )_t * i1 END SUBROUTINE ccsdt_2pdm_hhhh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p9 )_y @@ -741,7 +741,7 @@ C i1 ( h2 h3 h1 p9 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p9 END SUBROUTINE OFFSET_ccsdt_2pdm_hhhh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt @@ -813,7 +813,7 @@ C i1 ( h2 h3 h1 p9 )_yt END SUBROUTINE ccsdt_2pdm_hhhh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 00:13:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p9 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h3 h7 p5 p6 p9 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F b/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F index 62ccedc830..f0c76a5f84 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 END SUBROUTINE ccsdt_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -195,7 +195,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 00:14:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h3 h4 h7 p1 p5 p6 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F b/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F index 66d1a5c67c..836dc8d3f7 100644 --- a/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdt_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 00:14:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsdt_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 00:14:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_hphh_mo.F b/src/tce/gradients/ccsdt_2pdm_hphh_mo.F index 140a9b43cb..1a515c6a53 100644 --- a/src/tce/gradients/ccsdt_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -167,7 +167,7 @@ C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE ccsdt_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -331,7 +331,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h4 h7 p5 p6 )_y @@ -590,7 +590,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -758,7 +758,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -886,7 +886,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -942,7 +942,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1118,7 +1118,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsdt_2pdm_hphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -1341,7 +1341,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdt_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h1 h10 h2 h4 )_yt @@ -1494,7 +1494,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h10 p5 p6 )_y @@ -1666,7 +1666,7 @@ C i1 ( h4 h10 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt @@ -1738,7 +1738,7 @@ C i1 ( h4 h10 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h10 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h4 h8 h10 p5 p6 p7 )_y @@ -1988,7 +1988,7 @@ C i1 ( h4 h10 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h10 h4 p5 )_yt @@ -2140,7 +2140,7 @@ C i1 ( h2 h10 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h10 p5 p6 )_y @@ -2310,7 +2310,7 @@ C i2 ( h2 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h10 p5 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt @@ -2382,7 +2382,7 @@ C i2 ( h2 h10 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h10 p5 p7 p8 )_y @@ -2737,7 +2737,7 @@ C i2 ( h2 h10 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdt_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yt @@ -2946,7 +2946,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -3116,7 +3116,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt @@ -3188,7 +3188,7 @@ C i1 ( h2 h6 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h6 h9 p5 p7 p8 )_y @@ -3513,7 +3513,7 @@ C i1 ( h2 h6 h1 p5 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdt_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/8 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h2 h7 h8 h4 p5 p6 )_yt @@ -3801,7 +3801,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 h8 p5 p6 p9 )_y @@ -4024,7 +4024,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt @@ -4112,7 +4112,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 ( h4 p3 p5 p6 )_yt @@ -4275,7 +4275,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 END SUBROUTINE ccsdt_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p5 p6 )_yt + = -1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h1 h8 h9 p5 p6 p7 )_y @@ -4532,7 +4532,7 @@ c & - noab - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p5 p6 )_yt @@ -4604,7 +4604,7 @@ C i1 ( h1 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 p3 h4 p5 )_ytt @@ -4758,7 +4758,7 @@ C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i END SUBROUTINE ccsdt_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p5 )_ytt + = -1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h1 h8 h9 h2 p5 p7 )_yt @@ -4958,7 +4958,7 @@ c & - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p5 )_ytt @@ -5030,7 +5030,7 @@ C i1 ( h1 p3 h2 p5 )_ytt END SUBROUTINE ccsdt_2pdm_hphh_mo_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -5253,7 +5253,7 @@ C i2 ( h2 h8 h9 h1 p5 p7 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h END SUBROUTINE OFFSET_ccsdt_2pdm_hphh_mo_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 00:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h9 h1 p5 p7 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_hphp_mo.F b/src/tce/gradients/ccsdt_2pdm_hphp_mo.F index dcc4b96017..4d6b809076 100644 --- a/src/tce/gradients/ccsdt_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -73,7 +73,7 @@ C i1 ( h4 h6 h7 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 END SUBROUTINE ccsdt_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -230,7 +230,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -454,7 +454,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h4 h7 h8 p3 p5 p6 )_y @@ -798,7 +798,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 ( h2 h9 h4 p3 )_yt @@ -951,7 +951,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h9 p1 p5 )_y @@ -1130,7 +1130,7 @@ c &)) END SUBROUTINE OFFSET_ccsdt_2pdm_hphp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt @@ -1202,7 +1202,7 @@ C i1 ( h4 h9 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_hphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h9 p1 p5 p6 )_y @@ -1536,7 +1536,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h2 h6 h7 h4 p3 p5 )_yt @@ -1726,7 +1726,7 @@ c & - 1))))) END SUBROUTINE ccsdt_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h7 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 )_t * y ( h4 h6 h7 p1 p5 p8 )_y @@ -2037,7 +2037,7 @@ c & - 1 + noab * (h6b - 1 + noab * (h4b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 00:15:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h7 h2 p1 p5 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_hppp_mo.F b/src/tce/gradients/ccsdt_2pdm_hppp_mo.F index cd4120f91c..9a9b6002b8 100644 --- a/src/tce/gradients/ccsdt_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 END SUBROUTINE ccsdt_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -192,7 +192,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 00:16:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h4 h6 h7 p2 p3 p5 )_y diff --git a/src/tce/gradients/ccsdt_2pdm_pphh_mo.F b/src/tce/gradients/ccsdt_2pdm_pphh_mo.F index 6ea772f885..c3a35b4ed4 100644 --- a/src/tce/gradients/ccsdt_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -408,7 +408,7 @@ C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t RETURN END SUBROUTINE ccsdt_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -508,7 +508,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -728,7 +728,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -889,7 +889,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsdt_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -974,7 +974,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -1030,7 +1030,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -1192,7 +1192,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsdt_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -1434,7 +1434,7 @@ C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h11 h1 )_yt @@ -1562,7 +1562,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p3 h11 )_t * i2 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h11 p7 )_y @@ -1690,7 +1690,7 @@ C i2 ( h11 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h11 p7 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt @@ -1746,7 +1746,7 @@ C i2 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1_1(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y @@ -1831,7 +1831,7 @@ C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_4_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y @@ -1887,7 +1887,7 @@ C i3 ( h11 p7 )_y END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_1_2(d_a,k_a_offset,d_c,k_c_offse &t) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y @@ -1972,7 +1972,7 @@ C i3 ( h11 p7 )_y + = 1 * y ( h11 p7 )_y END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h11 p6 p7 )_y @@ -2148,7 +2148,7 @@ C i2 ( h11 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h10 )_t * y ( h9 h10 h11 p6 p7 p8 )_y @@ -2377,7 +2377,7 @@ C i2 ( h11 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h12 h9 p11 ) * t ( p3 p11 h9 h12 )_t * i2 ( h9 h12 h1 p11 )_yt @@ -2543,7 +2543,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h12 h9 p11 ) * t ( p3 p11 h9 h12 )_t * i2 END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h12 p5 p11 )_y @@ -2697,7 +2697,7 @@ C i2 ( h9 h12 h1 p11 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h12 p5 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt @@ -2769,7 +2769,7 @@ C i2 ( h9 h12 h1 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_3_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h12 h1 p11 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 h12 p5 p6 p11 )_y @@ -3030,7 +3030,7 @@ C i2 ( h9 h12 h1 p11 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_3_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h8 h9 h10 p6 p7 ) * t ( p3 p6 p7 h8 h9 h10 )_t * i2 ( h8 h9 h10 h1 p6 p7 )_yt @@ -3238,7 +3238,7 @@ C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h8 h9 h10 p6 p7 ) * t ( p3 p6 p7 h8 h9 h END SUBROUTINE ccsdt_2pdm_pphh_mo_3_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h1 p6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 h10 p5 p6 p7 )_y @@ -3415,7 +3415,7 @@ C i2 ( h8 h9 h10 h1 p6 p7 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_3_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h10 h1 p6 p7 )_yt @@ -3503,7 +3503,7 @@ C i2 ( h8 h9 h10 h1 p6 p7 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 h11 )_t * i1 ( h11 p4 h1 h2 )_yt @@ -3657,7 +3657,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 h11 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h11 p5 )_y @@ -3812,7 +3812,7 @@ C i1 ( h11 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h11 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt @@ -3884,7 +3884,7 @@ C i1 ( h11 p3 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h7 h11 p5 p6 )_y @@ -4134,7 +4134,7 @@ C i1 ( h11 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h11 h13 h1 h2 )_yt @@ -4288,7 +4288,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h11 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h11 h13 p7 p8 )_y @@ -4450,7 +4450,7 @@ C i2 ( h11 h13 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt @@ -4522,7 +4522,7 @@ C i2 ( h11 h13 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 h2 h10 )_t * y ( h10 h11 h13 p7 p8 p9 )_y @@ -4749,7 +4749,7 @@ C i2 ( h11 h13 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h11 h13 h2 p5 )_yt @@ -4901,7 +4901,7 @@ C i2 ( h11 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 h13 p5 p6 )_y @@ -5055,7 +5055,7 @@ C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 h13 p END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt @@ -5127,7 +5127,7 @@ C i3 ( h11 h13 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h10 h11 h13 p5 p8 p9 )_y @@ -5392,7 +5392,7 @@ C i3 ( h11 h13 h1 p5 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h12 p10 ) * t ( p3 p10 h1 h12 )_t * i2 ( h11 h12 h2 p10 )_yt @@ -5590,7 +5590,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h12 p10 ) * t ( p3 p10 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h12 p5 p10 )_y @@ -5745,7 +5745,7 @@ C i2 ( h11 h12 h1 p10 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h12 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt @@ -5817,7 +5817,7 @@ C i2 ( h11 h12 h1 p10 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h12 h1 p10 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h11 h12 p7 p8 p10 )_y @@ -6082,7 +6082,7 @@ C i2 ( h11 h12 h1 p10 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_4_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 h10 p7 p8 ) * t ( p3 p7 p8 h1 h9 h10 )_t * i2 ( h9 h10 h11 h2 p7 p8 )_yt @@ -6378,7 +6378,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 h10 p7 p8 ) * t ( p3 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h1 p7 p8 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h10 h11 p5 p7 p8 )_y @@ -6555,7 +6555,7 @@ C i2 ( h9 h10 h11 h1 p7 p8 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h1 p7 p8 )_yt @@ -6643,7 +6643,7 @@ C i2 ( h9 h10 h11 h1 p7 p8 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i2 ( h11 p3 p5 p6 )_yt @@ -6806,7 +6806,7 @@ C i1 ( h11 p3 h1 h2 )_ytt + = 1/4 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i2 END SUBROUTINE ccsdt_2pdm_pphh_mo_4_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 p5 p6 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h8 h9 h11 p5 p6 p7 )_y @@ -7067,7 +7067,7 @@ C i2 ( h11 p3 p5 p6 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 p5 p6 )_yt @@ -7139,7 +7139,7 @@ C i2 ( h11 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 h2 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h11 p3 h2 p5 )_ytt @@ -7293,7 +7293,7 @@ C i1 ( h11 p3 h1 h2 )_yttt + = -1/4 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 h1 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h9 h10 h11 h1 p5 p8 )_yt @@ -7518,7 +7518,7 @@ C i2 ( h11 p3 h1 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 p3 h1 p5 )_ytt @@ -7590,7 +7590,7 @@ C i2 ( h11 p3 h1 p5 )_ytt END SUBROUTINE ccsdt_2pdm_pphh_mo_4_7_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h11 h1 p5 p8 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 h11 p5 p6 p8 )_y @@ -7767,7 +7767,7 @@ C i3 ( h9 h10 h11 h1 p5 p8 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_4_7_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h11 h1 p5 p8 )_yt @@ -7855,7 +7855,7 @@ C i3 ( h9 h10 h11 h1 p5 p8 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 p4 h1 h11 )_t * i1 ( h11 h2 )_yt @@ -8020,7 +8020,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p3 p4 h1 h11 )_ END SUBROUTINE ccsdt_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 p6 )_y @@ -8148,7 +8148,7 @@ C i1 ( h11 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h11 p6 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt @@ -8204,7 +8204,7 @@ C i1 ( h11 h1 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h11 p6 p7 )_y @@ -8380,7 +8380,7 @@ C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h END SUBROUTINE ccsdt_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h11 p5 p6 p7 )_y @@ -8606,7 +8606,7 @@ C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdt_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i1 ( h6 h7 h2 p5 )_yt @@ -8856,7 +8856,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE ccsdt_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -9010,7 +9010,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt @@ -9082,7 +9082,7 @@ C i1 ( h6 h7 h1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h6 h7 h10 p5 p8 p9 )_y @@ -9343,7 +9343,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdt_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p3 p11 h1 h2 )_t * i1 ( p4 p11 )_yt @@ -9508,7 +9508,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p3 p11 h1 h2 END SUBROUTINE ccsdt_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p6 p11 )_y @@ -9684,7 +9684,7 @@ C i1 ( p3 p11 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt @@ -9741,7 +9741,7 @@ C i1 ( p3 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p11 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p5 p6 p11 )_y @@ -9967,7 +9967,7 @@ C i1 ( p3 p11 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 END SUBROUTINE ccsdt_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h12 h13 ) * t ( p3 p4 h12 h13 )_t * i1 ( h12 h13 h1 h2 )_yt @@ -10130,7 +10130,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h12 h13 ) * t ( p3 p4 h12 h13 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h12 h13 p5 p6 )_y @@ -10292,7 +10292,7 @@ C i1 ( h12 h13 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt @@ -10364,7 +10364,7 @@ C i1 ( h12 h13 h1 h2 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h12 h13 p5 p6 p7 )_y @@ -10587,7 +10587,7 @@ C i1 ( h12 h13 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * i2 ( h12 h13 h2 p11 )_yt @@ -10740,7 +10740,7 @@ C i1 ( h12 h13 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h12 h13 p6 p11 )_y @@ -10895,7 +10895,7 @@ C i2 ( h12 h13 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h12 h13 END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_8_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt @@ -10967,7 +10967,7 @@ C i2 ( h12 h13 h1 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_8_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h1 p11 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h12 h13 p7 p8 p11 )_y @@ -11232,7 +11232,7 @@ C i2 ( h12 h13 h1 p11 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h11 p12 ) * t ( p3 p12 h1 h11 )_t * i1 ( h11 p4 h2 p12 )_yt @@ -11435,7 +11435,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h11 p12 ) * t ( p3 p12 h1 END SUBROUTINE ccsdt_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h8 h11 p7 p12 )_y @@ -11638,7 +11638,7 @@ C i1 ( h11 p3 h1 p12 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt @@ -11710,7 +11710,7 @@ C i1 ( h11 p3 h1 p12 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 h11 p5 p6 p12 )_y @@ -12046,7 +12046,7 @@ C i1 ( h11 p3 h1 p12 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 END SUBROUTINE ccsdt_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p3 h1 p12 )_ytt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h8 h9 h11 h1 p7 p12 )_yt @@ -12271,7 +12271,7 @@ C i1 ( h11 p3 h1 p12 )_ytt + = -1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphh_mo_9_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h1 p7 p12 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h8 h9 h11 p7 p10 p12 )_y @@ -12450,7 +12450,7 @@ C i2 ( h8 h9 h11 h1 p7 p12 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_9_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h1 p7 p12 )_yt @@ -12538,7 +12538,7 @@ C i2 ( h8 h9 h11 h1 p7 p12 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * i1 ( h7 p4 p5 p6 )_yt @@ -12788,7 +12788,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdt_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * y ( h7 h9 h10 p5 p6 p8 )_y @@ -13048,7 +13048,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt @@ -13120,7 +13120,7 @@ C i1 ( h7 p3 p5 p6 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h12 h13 h7 p11 ) * t ( p3 p4 p11 h7 h12 h13 )_t * i1 ( h7 h12 h13 h1 h2 p11 )_yt @@ -13327,7 +13327,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h12 h13 h7 p11 ) * t ( p3 p4 p11 h END SUBROUTINE ccsdt_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 )_t * y ( h7 h12 h13 p9 p10 p11 )_y @@ -13527,7 +13527,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 ) END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_yt @@ -13615,7 +13615,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_yt END SUBROUTINE ccsdt_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h12 h13 h1 h2 p11 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h12 h13 h2 p5 p11 )_yt @@ -13795,7 +13795,7 @@ C i1 ( h7 h12 h13 h1 h2 p11 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 ) END SUBROUTINE ccsdt_2pdm_pphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h12 h13 p5 p6 p11 )_y @@ -13975,7 +13975,7 @@ C i2 ( h7 h12 h13 h1 p5 p11 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h END SUBROUTINE OFFSET_ccsdt_2pdm_pphh_mo_11_2_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 00:16:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h12 h13 h1 p5 p11 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_pphp_mo.F b/src/tce/gradients/ccsdt_2pdm_pphp_mo.F index 31aa81b7bc..89eedda4dc 100644 --- a/src/tce/gradients/ccsdt_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdt_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -156,7 +156,7 @@ C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * END SUBROUTINE ccsdt_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -320,7 +320,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p3 p5 h2 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -579,7 +579,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -747,7 +747,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -875,7 +875,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -931,7 +931,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -1107,7 +1107,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsdt_2pdm_pphp_mo_3_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p3 p5 p6 )_y @@ -1330,7 +1330,7 @@ C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 END SUBROUTINE ccsdt_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h11 p3 h2 p4 )_yt @@ -1484,7 +1484,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h11 p3 p5 )_y @@ -1696,7 +1696,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt @@ -1768,7 +1768,7 @@ C i1 ( h11 p1 h2 p3 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_yt + = -1/8 * P( 2 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h7 h8 h11 p3 p5 p6 )_y @@ -2113,7 +2113,7 @@ c &b - 1))))) END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_ytt + = 1/2 * Sum ( h10 ) * t ( p1 h10 )_t * i2 ( h10 h11 h2 p3 )_yt @@ -2267,7 +2267,7 @@ C i1 ( h11 p1 h2 p3 )_ytt + = 1/2 * Sum ( h10 ) * t ( p1 h10 )_t * i2 ( h10 END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h10 h11 p1 p5 )_y @@ -2430,7 +2430,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt @@ -2502,7 +2502,7 @@ C i2 ( h10 h11 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_4_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h10 h11 p1 p7 p8 )_y @@ -2772,7 +2772,7 @@ c &)))) END SUBROUTINE ccsdt_2pdm_pphp_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 h2 p3 )_ytt + = -1/2 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * i2 ( h8 h9 h11 h2 p3 p7 )_yt @@ -2971,7 +2971,7 @@ C i1 ( h11 p1 h2 p3 )_ytt + = -1/2 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t END SUBROUTINE ccsdt_2pdm_pphp_mo_4_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h2 p1 p7 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h9 h11 p1 p5 p7 )_y @@ -3186,7 +3186,7 @@ c &b - 1 + noab * (h9b - 1 + noab * (h8b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_4_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h11 h2 p1 p7 )_yt @@ -3274,7 +3274,7 @@ C i2 ( h8 h9 h11 h2 p1 p7 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yt @@ -3437,7 +3437,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE ccsdt_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -3600,7 +3600,7 @@ c &)) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt @@ -3672,7 +3672,7 @@ C i1 ( h5 h6 h2 p1 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h5 h6 h9 p1 p7 p8 )_y @@ -3929,7 +3929,7 @@ c &)) END SUBROUTINE ccsdt_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 h8 )_t * i1 ( h6 h7 h8 h2 p4 p5 )_yt @@ -4132,7 +4132,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 END SUBROUTINE ccsdt_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h2 )_t * y ( h6 h7 h8 p1 p5 p9 )_y @@ -4341,7 +4341,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt @@ -4429,7 +4429,7 @@ C i1 ( h6 h7 h8 h2 p1 p5 )_yt END SUBROUTINE ccsdt_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i1 ( h6 p3 p4 p5 )_yt @@ -4638,7 +4638,7 @@ c END IF END SUBROUTINE ccsdt_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( h6 h8 h9 p3 p5 p7 )_y @@ -4963,7 +4963,7 @@ C i1 ( h6 p1 p3 p5 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( END SUBROUTINE OFFSET_ccsdt_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 00:16:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 p3 p5 )_yt diff --git a/src/tce/gradients/ccsdt_2pdm_pppp_mo.F b/src/tce/gradients/ccsdt_2pdm_pppp_mo.F index 75780634a1..af775ba389 100644 --- a/src/tce/gradients/ccsdt_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsdt_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,k_i0_o &ffset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -53,7 +53,7 @@ C i1 ( h9 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t END SUBROUTINE ccsdt_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -216,7 +216,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsdt_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -437,7 +437,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE ccsdt_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 ( h9 p2 p3 p4 )_yt @@ -591,7 +591,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h9 ) * t ( p1 h9 )_t * i1 END SUBROUTINE ccsdt_2pdm_pppp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h9 p2 p3 )_y @@ -745,7 +745,7 @@ C i1 ( h9 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h9 p2 p3 END SUBROUTINE OFFSET_ccsdt_2pdm_pppp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt @@ -817,7 +817,7 @@ C i1 ( h9 p1 p2 p3 )_yt END SUBROUTINE ccsdt_2pdm_pppp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 00:17:12 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 h9 p2 p3 p5 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_hh_mo.F b/src/tce/gradients/ccsdtq_1pdm_hh_mo.F index 2bde1ee4d5..5885b4e7af 100644 --- a/src/tce/gradients/ccsdtq_1pdm_hh_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -44,7 +44,7 @@ C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p END SUBROUTINE ccsdtq_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -172,7 +172,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE ccsdtq_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -348,7 +348,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE ccsdtq_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -571,7 +571,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdtq_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 16:18:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_hp_mo.F b/src/tce/gradients/ccsdtq_1pdm_hp_mo.F index 7a36beb12b..f0120aea1a 100644 --- a/src/tce/gradients/ccsdtq_1pdm_hp_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_hp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdtq_1pdm_hp_mo(d_i0,d_y1,k_i0_offset,k_y1_offset) -C $Id: ccsdtq_1pdm_hp_mo.F,v 1.1 2008-10-01 16:18:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y @@ -17,7 +17,7 @@ C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y RETURN END SUBROUTINE ccsdtq_1pdm_hp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_1pdm_hp_mo.F,v 1.1 2008-10-01 16:18:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_y + = 1 * y ( h2 p1 )_y diff --git a/src/tce/gradients/ccsdtq_1pdm_ph_mo.F b/src/tce/gradients/ccsdtq_1pdm_ph_mo.F index e43a8d94be..f284f28049 100644 --- a/src/tce/gradients/ccsdtq_1pdm_ph_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_ph_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -117,7 +117,7 @@ C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_ RETURN END SUBROUTINE ccsdtq_1pdm_ph_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t @@ -202,7 +202,7 @@ C i0 ( p2 h1 )_t + = 1 * t ( p2 h1 )_t END SUBROUTINE ccsdtq_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_y @@ -364,7 +364,7 @@ C i0 ( p2 h1 )_yt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * y ( h4 p3 )_ END SUBROUTINE ccsdtq_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -606,7 +606,7 @@ C i0 ( p2 h1 )_yt + = 1/4 * Sum ( h5 h6 p3 p4 ) * t ( p2 p3 p4 h1 h5 h6 )_t END SUBROUTINE ccsdtq_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yt + = 1/36 * Sum ( h6 h7 h8 p3 p4 p5 ) * t ( p2 p3 p4 p5 h1 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -965,7 +965,7 @@ C i0 ( p2 h1 )_yt + = 1/36 * Sum ( h6 h7 h8 p3 p4 p5 ) * t ( p2 p3 p4 p5 h1 END SUBROUTINE ccsdtq_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p2 h11 )_t * i1 ( h11 h1 )_yt @@ -1093,7 +1093,7 @@ C i0 ( p2 h1 )_ytt + = -1 * Sum ( h11 ) * t ( p2 h11 )_t * i1 ( h11 h1 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h11 p3 )_y @@ -1221,7 +1221,7 @@ C i1 ( h11 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h11 p3 )_y END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt @@ -1277,7 +1277,7 @@ C i1 ( h11 h1 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h11 p3 p4 )_y @@ -1453,7 +1453,7 @@ C i1 ( h11 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h END SUBROUTINE ccsdtq_1pdm_ph_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h11 p3 p4 p5 )_y @@ -1679,7 +1679,7 @@ C i1 ( h11 h1 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE ccsdtq_1pdm_ph_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h7 h8 h9 h11 p3 p4 p5 p6 )_y @@ -1959,7 +1959,7 @@ C i1 ( h11 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 END SUBROUTINE ccsdtq_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h8 h9 p11 ) * t ( p2 p11 h8 h9 )_t * i1 ( h8 h9 h1 p11 )_yt @@ -2125,7 +2125,7 @@ C i0 ( p2 h1 )_ytt + = -1/2 * Sum ( h8 h9 p11 ) * t ( p2 p11 h8 h9 )_t * i1 END SUBROUTINE ccsdtq_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h9 p6 p11 )_y @@ -2279,7 +2279,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h9 p6 p END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt @@ -2351,7 +2351,7 @@ C i1 ( h8 h9 h1 p11 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h8 h9 p3 p4 p11 )_y @@ -2612,7 +2612,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE ccsdtq_1pdm_ph_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 h1 p11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h6 h7 h8 h9 p3 p4 p5 p11 )_y @@ -3085,7 +3085,7 @@ C i1 ( h8 h9 h1 p11 )_yt + = 1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 END SUBROUTINE ccsdtq_1pdm_ph_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h7 )_t * i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -3290,7 +3290,7 @@ C i0 ( p2 h1 )_ytt + = -1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p2 p3 p4 h5 h6 h END SUBROUTINE ccsdtq_1pdm_ph_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 h7 p3 p4 p8 )_y @@ -3464,7 +3464,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h5 h6 END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_7_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt @@ -3552,7 +3552,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt END SUBROUTINE ccsdtq_1pdm_ph_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h5 h6 h7 h10 p3 p4 p8 p9 )_y @@ -3999,7 +3999,7 @@ C i1 ( h5 h6 h7 h1 p3 p4 )_yt + = 1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 END SUBROUTINE ccsdtq_1pdm_ph_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytt + = -1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p2 p3 p4 p5 h6 h7 h8 h9 )_t * i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt @@ -4247,7 +4247,7 @@ C i0 ( p2 h1 )_ytt + = -1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p2 p3 p4 END SUBROUTINE ccsdtq_1pdm_ph_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h6 h7 h8 h9 p3 p4 p5 p10 )_y @@ -4450,7 +4450,7 @@ C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_1pdm_ph_mo_8_1(l_a_offset,k_a_offset,size &) -C $Id: ccsdtq_1pdm_ph_mo.F,v 1.1 2008-10-01 16:18:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h9 h1 p3 p4 p5 )_yt diff --git a/src/tce/gradients/ccsdtq_1pdm_pp_mo.F b/src/tce/gradients/ccsdtq_1pdm_pp_mo.F index c736e3b168..c8af324d87 100644 --- a/src/tce/gradients/ccsdtq_1pdm_pp_mo.F +++ b/src/tce/gradients/ccsdtq_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 END SUBROUTINE ccsdtq_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE ccsdtq_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE ccsdtq_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y @@ -571,7 +571,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE ccsdtq_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: ccsdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 16:18:53 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 h6 h7 h8 h9 )_t * y ( h6 h7 h8 h9 p2 p3 p4 p5 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F index 325eb43bed..1b6332f2aa 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y2,d_y3, &d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k &_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -78,7 +78,7 @@ C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h END SUBROUTINE ccsdtq_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -240,7 +240,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE ccsdtq_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -460,7 +460,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE ccsdtq_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h3 h4 h9 h10 p5 p6 p7 p8 )_y @@ -785,7 +785,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * i1 ( h2 h3 h4 p11 )_yt @@ -937,7 +937,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p11 )_y @@ -1091,7 +1091,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p6 p END SUBROUTINE OFFSET_ccsdtq_2pdm_hhhh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt @@ -1163,7 +1163,7 @@ C i1 ( h2 h3 h1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h3 h7 p5 p6 p11 )_y @@ -1424,7 +1424,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = -1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y END SUBROUTINE ccsdtq_2pdm_hhhh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p11 )_yt + = 1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h3 h8 h9 p5 p6 p7 p11 )_y @@ -1897,7 +1897,7 @@ C i1 ( h2 h3 h1 p11 )_yt + = 1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i1 ( h2 h3 h7 h4 p5 p6 )_yt @@ -2086,7 +2086,7 @@ C i0 ( h2 h3 h1 h4 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 END SUBROUTINE ccsdtq_2pdm_hhhh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h2 h3 h7 h10 p5 p6 p8 p9 )_y @@ -3064,7 +3064,7 @@ C i1 ( h2 h3 h7 h1 p5 p6 )_yt + = 1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 ) END SUBROUTINE OFFSET_ccsdtq_2pdm_hhhh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 16:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h7 h1 p5 p6 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F index 73b27efd44..019766eefc 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhhp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h2 p1 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 END SUBROUTINE ccsdtq_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h3 h4 p1 p5 )_y @@ -200,7 +200,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h3 h4 h7 p1 p5 p6 )_y @@ -457,7 +457,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hhhp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 16:19:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h3 h4 h8 h9 p1 p5 p6 p7 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F index 7c721b18f4..c9fe35627a 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE ccsdtq_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: ccsdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 16:19:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE ccsdtq_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 16:19:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 1 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F b/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F index 6e6bac845e..90894ae78f 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -251,7 +251,7 @@ C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 END SUBROUTINE ccsdtq_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h4 p5 )_y @@ -415,7 +415,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h4 h7 p5 p6 )_y @@ -674,7 +674,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h4 h8 h9 p5 p6 p7 )_y @@ -1149,7 +1149,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yt @@ -1317,7 +1317,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -1445,7 +1445,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -1501,7 +1501,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1677,7 +1677,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 p5 p6 p7 )_y @@ -1900,7 +1900,7 @@ C i1 ( h2 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdtq_2pdm_hphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h9 h10 h11 )_t * y ( h2 h9 h10 h11 p5 p6 p7 p8 )_y @@ -2180,7 +2180,7 @@ C i1 ( h2 h1 )_yt + = 1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytt + = 1/4 * P( 2 ) * Sum ( h12 ) * t ( p3 h12 )_t * i1 ( h1 h12 h2 h4 )_yt @@ -2333,7 +2333,7 @@ c &)) END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h12 p5 p6 )_y @@ -2505,7 +2505,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt @@ -2577,7 +2577,7 @@ C i1 ( h4 h12 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h4 h8 h12 p5 p6 p7 )_y @@ -2827,7 +2827,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h12 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h4 h9 h10 h12 p5 p6 p7 p8 )_y @@ -3216,7 +3216,7 @@ C i1 ( h4 h12 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h12 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h12 h4 p5 )_yt @@ -3368,7 +3368,7 @@ C i1 ( h2 h12 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h12 p5 p6 )_y @@ -3538,7 +3538,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h12 p5 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt @@ -3610,7 +3610,7 @@ C i2 ( h2 h12 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h12 p5 p7 p8 )_y @@ -3965,7 +3965,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = -1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 h1 p5 )_yt + = 1/6 * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h1 h10 h11 )_t * y ( h2 h10 h11 h12 p5 p7 p8 p9 )_y @@ -4709,7 +4709,7 @@ C i2 ( h2 h12 h1 p5 )_yt + = 1/6 * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h12 h1 h4 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i2 ( h2 h7 h12 h4 p5 p6 )_yt @@ -4908,7 +4908,7 @@ C i1 ( h2 h12 h1 h4 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h12 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h2 h7 h10 h12 p5 p6 p8 p9 )_y @@ -5888,7 +5888,7 @@ C i2 ( h2 h7 h12 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h12 h1 p5 p6 )_yt @@ -5976,7 +5976,7 @@ C i2 ( h2 h7 h12 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/2 * P( 4 ) * Sum ( h10 p12 ) * t ( p3 p12 h1 h10 )_t * i1 ( h2 h10 h4 p12 )_yt @@ -6185,7 +6185,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h10 p7 p12 )_y @@ -6355,7 +6355,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h10 p END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt @@ -6427,7 +6427,7 @@ C i1 ( h2 h10 h1 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h2 h9 h10 p7 p8 p12 )_y @@ -6782,7 +6782,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdtq_2pdm_hphh_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h1 p12 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h2 h8 h9 h10 p5 p6 p7 p12 )_y @@ -7523,7 +7523,7 @@ C i1 ( h2 h10 h1 p12 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = -1/8 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h2 h7 h8 h4 p5 p6 )_yt @@ -7811,7 +7811,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 h8 p5 p6 p9 )_y @@ -8034,7 +8034,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * y ( h2 h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt @@ -8122,7 +8122,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h2 h7 h8 h11 p5 p6 p9 p10 )_y @@ -9105,7 +9105,7 @@ C i1 ( h2 h7 h8 h1 p5 p6 )_yt + = 1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t * i1 ( h4 p3 p10 p12 )_yt @@ -9268,7 +9268,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h1 h8 h9 p7 p10 p12 )_y @@ -9538,7 +9538,7 @@ c &3b - noab - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt @@ -9610,7 +9610,7 @@ C i1 ( h1 p3 p10 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 p10 p12 )_yt + = 1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h1 h7 h8 h9 p5 p6 p10 p12 )_y @@ -10092,7 +10092,7 @@ c &3b - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytt + = 1/72 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * i1 ( h2 h8 h9 h10 h4 p5 p6 p7 )_yt @@ -10502,7 +10502,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_hphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * y ( h2 h8 h9 h10 p5 p6 p7 p11 )_y @@ -10837,7 +10837,7 @@ C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt @@ -10940,7 +10940,7 @@ C i1 ( h2 h8 h9 h10 h1 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_ytt + = -1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * i1 ( h4 h8 p3 p5 p6 p7 )_yt @@ -11144,7 +11144,7 @@ C i0 ( h4 p3 h1 h2 )_ytt + = -1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_hphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 p3 p5 p6 p7 )_yt + = -1/2 * P( 2 ) * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * y ( h1 h8 h10 h11 p5 p6 p7 p9 )_y @@ -11869,7 +11869,7 @@ c & * (h8b - 1 + noab * (h1b - 1 + noab * (p3b - noab - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 p3 p5 p6 p7 )_yt @@ -11957,7 +11957,7 @@ C i1 ( h1 h8 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * i1 ( h2 p3 h4 p12 )_ytt @@ -12111,7 +12111,7 @@ C i0 ( h2 p3 h1 h4 )_yttt + = -1/4 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt + = 1/2 * P( 2 ) * Sum ( h13 h8 p11 ) * t ( p3 p11 h8 h13 )_t * i2 ( h1 h8 h13 h2 p11 p12 )_yt @@ -12312,7 +12312,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt @@ -12384,7 +12384,7 @@ C i1 ( h1 p3 h2 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 h13 p6 p11 p12 )_y @@ -12624,7 +12624,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt @@ -12712,7 +12712,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_1_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 h8 h13 p5 p6 p11 p12 )_y @@ -13702,7 +13702,7 @@ C i2 ( h2 h8 h13 h1 p11 p12 )_yt + = 1 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 h2 p12 )_ytt + = 1/12 * P( 2 ) * Sum ( h9 h10 h11 p7 p8 ) * t ( p3 p7 p8 h9 h10 h11 )_t * i2 ( h1 h9 h10 h11 h2 p7 p8 p12 )_yt @@ -13957,7 +13957,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_hphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h9 h10 h11 p6 p7 p8 p12 )_y @@ -14292,7 +14292,7 @@ C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_hphh_mo_11_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 16:20:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h9 h10 h11 h1 p7 p8 p12 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F index 8007694d66..2652139ce8 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -100,7 +100,7 @@ C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt + = 1/2 * P( 2 ) * Sum ( p10 ) * t ( END SUBROUTINE ccsdtq_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * y ( h4 p3 )_y @@ -257,7 +257,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h4 h6 p3 p5 )_y @@ -481,7 +481,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h4 h7 h8 p3 p5 p6 )_y @@ -825,7 +825,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p1 p5 p6 p7 h2 h8 h9 h10 )_t * y ( h4 h8 h9 h10 p3 p5 p6 p7 )_y @@ -1384,7 +1384,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h2 h11 h4 p3 )_yt @@ -1537,7 +1537,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h11 p1 p5 )_y @@ -1716,7 +1716,7 @@ c &))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt @@ -1788,7 +1788,7 @@ C i1 ( h4 h11 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h11 p1 p5 p6 )_y @@ -2152,7 +2152,7 @@ c &))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h11 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h4 h8 h9 h11 p1 p5 p6 p7 )_y @@ -2902,7 +2902,7 @@ c &))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = -1/4 * P( 2 ) * Sum ( h12 h9 p11 ) * t ( p1 p11 h9 h12 )_t * i1 ( h2 h9 h12 h4 p3 p11 )_yt @@ -3092,7 +3092,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt + = -1/2 * P( 2 ) * Sum ( p8 ) * t ( p8 h2 )_t * y ( h4 h9 h12 p1 p8 p11 )_y @@ -3433,7 +3433,7 @@ c &2b - 1 + noab * (h9b - 1 + noab * (h4b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt @@ -3521,7 +3521,7 @@ C i1 ( h4 h9 h12 h2 p1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_hphp_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h9 h12 h2 p1 p11 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h4 h7 h9 h12 p1 p5 p6 p11 )_y @@ -5311,7 +5311,7 @@ c &2b - 1 + noab * (h9b - 1 + noab * (h4b - 1))))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * i1 ( h2 h7 h8 h9 h4 p3 p5 p6 )_yt @@ -5541,7 +5541,7 @@ c & - 1))))) END SUBROUTINE ccsdtq_2pdm_hphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt + = 1/2 * P( 2 ) * Sum ( p10 ) * t ( p10 h2 )_t * y ( h4 h7 h8 h9 p1 p5 p6 p10 )_y @@ -6244,7 +6244,7 @@ c &+ noab * (h4b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_hphp_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 16:20:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h8 h9 h2 p1 p5 p6 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F b/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F index 8efccb6b06..dac61714f4 100644 --- a/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_hppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h4 p1 p2 p3 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 END SUBROUTINE ccsdtq_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -200,7 +200,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h4 h6 h7 p2 p3 p5 )_y @@ -457,7 +457,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_hppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 16:20:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h4 h7 h8 h9 p2 p3 p5 p6 )_y diff --git a/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F b/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F index d3f2c85c2d..e1da551c3a 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -849,7 +849,7 @@ C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p RETURN END SUBROUTINE ccsdtq_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t @@ -949,7 +949,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 1 * t ( p3 p4 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -1169,7 +1169,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -1737,7 +1737,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t @@ -1898,7 +1898,7 @@ C i0 ( p3 p4 h1 h2 )_tt + = 1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_t RETURN END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t @@ -1983,7 +1983,7 @@ C i1 ( p3 h1 )_t + = 1 * t ( p3 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_t @@ -2039,7 +2039,7 @@ C i1 ( p3 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -2201,7 +2201,7 @@ C i1 ( p3 h1 )_yt + = 2 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -2443,7 +2443,7 @@ C i1 ( p3 h1 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h8 h9 h10 p5 p6 p7 )_y @@ -2807,7 +2807,7 @@ C i1 ( p3 h1 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h13 h1 )_yt @@ -2935,7 +2935,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h13 ) * t ( p3 h13 )_t * i2 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h13 p7 )_y @@ -3063,7 +3063,7 @@ C i2 ( h13 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h13 p7 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt @@ -3119,7 +3119,7 @@ C i2 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1_1(d_a,k_a_offset,d_c,k_c_offs &et) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y @@ -3204,7 +3204,7 @@ C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_5_1_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y @@ -3260,7 +3260,7 @@ C i3 ( h13 p7 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_1_2(d_a,k_a_offset,d_c,k_c_offs &et) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y @@ -3345,7 +3345,7 @@ C i3 ( h13 p7 )_y + = 1 * y ( h13 p7 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h13 p6 p7 )_y @@ -3521,7 +3521,7 @@ C i2 ( h13 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h10 )_t * y ( h9 h10 h13 p6 p7 p8 )_y @@ -3750,7 +3750,7 @@ C i2 ( h13 h1 )_yt + = 1/6 * Sum ( h9 h10 p6 p7 p8 ) * t ( p6 p7 p8 h1 h9 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_5_4(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h1 )_yt + = -1/72 * Sum ( h10 h11 h12 p6 p7 p8 p9 ) * t ( p6 p7 p8 p9 h1 h10 h11 h12 )_t * y ( h10 h11 h12 h13 p6 p7 p8 p9 )_y @@ -4030,7 +4030,7 @@ C i2 ( h13 h1 )_yt + = -1/72 * Sum ( h10 h11 h12 p6 p7 p8 p9 ) * t ( p6 p7 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1 * Sum ( h10 h11 p13 ) * t ( p3 p13 h10 h11 )_t * i2 ( h10 h11 h1 p13 )_yt @@ -4198,7 +4198,7 @@ C i1 ( p3 h1 )_ytt + = 1 * Sum ( h10 h11 p13 ) * t ( p3 p13 h10 h11 )_t * i2 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 p5 p13 )_y @@ -4353,7 +4353,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt @@ -4425,7 +4425,7 @@ C i2 ( h10 h11 h1 p13 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h10 h11 p5 p6 p13 )_y @@ -4690,7 +4690,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_6_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h1 p13 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h10 h11 p5 p6 p7 p13 )_y @@ -5163,7 +5163,7 @@ C i2 ( h10 h11 h1 p13 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h6 h7 h8 p13 p14 ) * t ( p3 p13 p14 h6 h7 h8 )_t * i2 ( h6 h7 h8 h1 p13 p14 )_yt @@ -5371,7 +5371,7 @@ C i1 ( p3 h1 )_ytt + = -1/6 * Sum ( h6 h7 h8 p13 p14 ) * t ( p3 p13 p14 h6 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 h7 h8 p5 p13 p14 )_y @@ -5548,7 +5548,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_7_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt @@ -5636,7 +5636,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_7_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h6 h7 h8 h12 p10 p11 p13 p14 )_y @@ -6084,7 +6084,7 @@ C i2 ( h6 h7 h8 h1 p13 p14 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_8(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1/72 * Sum ( h9 h10 h11 h12 p6 p7 p8 ) * t ( p3 p6 p7 p8 h9 h10 h11 h12 )_t * i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt @@ -6332,7 +6332,7 @@ C i1 ( p3 h1 )_ytt + = 1/72 * Sum ( h9 h10 h11 h12 p6 p7 p8 ) * t ( p3 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_4_8_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 h10 h11 h12 p5 p6 p7 p8 )_y @@ -6536,7 +6536,7 @@ C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_4_8_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt @@ -6639,7 +6639,7 @@ C i2 ( h9 h10 h11 h12 h1 p6 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 h13 )_t * i1 ( h13 p4 h1 h2 )_yt @@ -6793,7 +6793,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 h13 )_t * i1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h13 p5 )_y @@ -6948,7 +6948,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h13 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt @@ -7020,7 +7020,7 @@ C i1 ( h13 p3 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * y ( h7 h13 p5 p6 )_y @@ -7270,7 +7270,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h8 h9 h13 p5 p6 p7 )_y @@ -7739,7 +7739,7 @@ C i1 ( h13 p3 h1 h2 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = 1/4 * Sum ( h14 ) * t ( p3 h14 )_t * i2 ( h13 h14 h1 h2 )_yt @@ -7893,7 +7893,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = 1/4 * Sum ( h14 ) * t ( p3 h14 )_t * i2 ( h13 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h13 h14 p7 p8 )_y @@ -8055,7 +8055,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt @@ -8127,7 +8127,7 @@ C i2 ( h13 h14 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 h2 h10 )_t * y ( h10 h13 h14 p7 p8 p9 )_y @@ -8354,7 +8354,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1/3 * Sum ( h10 p7 p8 p9 ) * t ( p7 p8 p9 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_yt + = -1/24 * Sum ( h11 h12 p7 p8 p9 p10 ) * t ( p7 p8 p9 p10 h1 h2 h11 h12 )_t * y ( h11 h12 h13 h14 p7 p8 p9 p10 )_y @@ -8679,7 +8679,7 @@ C i2 ( h13 h14 h1 h2 )_yt + = -1/24 * Sum ( h11 h12 p7 p8 p9 p10 ) * t ( p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h13 h14 h2 p5 )_yt @@ -8831,7 +8831,7 @@ C i2 ( h13 h14 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 p5 p6 )_y @@ -8985,7 +8985,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt @@ -9057,7 +9057,7 @@ C i3 ( h13 h14 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 3/4 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * i4 ( h10 h13 h14 p5 p8 p9 )_y @@ -9322,7 +9322,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 3/4 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1 * y ( h10 h13 h14 p5 p8 p9 )_y @@ -9437,7 +9437,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1 * y ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_2_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y @@ -9525,7 +9525,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_2_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1/3 * y ( h10 h13 h14 p5 p8 p9 )_y @@ -9641,7 +9641,7 @@ C i4 ( h10 h13 h14 p5 p8 p9 )_y + = 1/3 * y ( h10 h13 h14 p5 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h13 h14 h1 p5 )_yt + = 1/8 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p10 h1 h11 h12 )_t * i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10119,7 +10119,7 @@ C i3 ( h13 h14 h1 p5 )_yt + = 1/8 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1 * y ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10249,7 +10249,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1 * y ( h11 h12 h13 h14 p5 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_4_3_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10353,7 +10353,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_4_3_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1/3 * y ( h11 h12 h13 h14 p5 p8 p9 p10 )_y @@ -10483,7 +10483,7 @@ C i4 ( h11 h12 h13 h14 p5 p8 p9 p10 )_y + = 1/3 * y ( h11 h12 h13 h14 p5 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h1 h2 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i3 ( h7 h13 h14 h2 p5 p6 )_yt @@ -10690,7 +10690,7 @@ C i2 ( h13 h14 h1 h2 )_ytt + = -1/8 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h13 h14 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11136,7 +11136,7 @@ C i3 ( h7 h13 h14 h1 p5 p6 )_yt + = -1 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_5_1(l_a_offset,k_a_offse &t,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h13 h14 h1 p5 p6 )_yt @@ -11224,7 +11224,7 @@ C i3 ( h7 h13 h14 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1_1(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11354,7 +11354,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_4_5_1_1(l_a_offset,k_a_off &set,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11457,7 +11457,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_4_5_1_2(d_a,k_a_offset,d_c,k_c_of &fset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 )_y @@ -11587,7 +11587,7 @@ C i4 ( h7 h10 h13 h14 p5 p6 p8 p9 )_y + = 1 * y ( h7 h10 h13 h14 p5 p6 p8 p9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 p10 ) * t ( p3 p10 h1 h11 )_t * i2 ( h11 h13 h2 p10 )_yt @@ -11785,7 +11785,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h11 p10 ) * t ( p3 p10 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h13 p5 p10 )_y @@ -11940,7 +11940,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h11 h13 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt @@ -12012,7 +12012,7 @@ C i2 ( h11 h13 h1 p10 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h11 h13 p7 p8 p10 )_y @@ -12277,7 +12277,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = 1/2 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_5_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h11 h13 h1 p10 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h11 h13 p5 p6 p7 p10 )_y @@ -12750,7 +12750,7 @@ C i2 ( h11 h13 h1 p10 )_yt + = -1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h6 h7 p12 p14 ) * t ( p3 p12 p14 h1 h6 h7 )_t * i2 ( h6 h7 h13 h2 p12 p14 )_yt @@ -13048,7 +13048,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h6 h7 p12 p14 ) * t ( p3 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 h7 h13 p5 p12 p14 )_y @@ -13226,7 +13226,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h6 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt @@ -13314,7 +13314,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_6_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = -1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h6 h7 h11 h13 p9 p10 p12 p14 )_y @@ -13761,7 +13761,7 @@ C i2 ( h6 h7 h13 h1 p12 p14 )_yt + = -1/2 * Sum ( h11 p9 p10 ) * t ( p9 p10 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t * i2 ( h13 p3 p10 p12 )_yt @@ -13925,7 +13925,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/4 * Sum ( p12 p10 ) * t ( p10 p12 h1 h2 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * y ( h8 h9 h13 p7 p10 p12 )_y @@ -14190,7 +14190,7 @@ C i2 ( h13 p3 p10 p12 )_yt + = 1 * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_7_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt @@ -14262,7 +14262,7 @@ C i2 ( h13 p3 p10 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_7_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 p10 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h13 p5 p6 p10 p12 )_y @@ -14735,7 +14735,7 @@ C i2 ( h13 p3 p10 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_8(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = -1/36 * P( 2 ) * Sum ( h10 h11 h12 p7 p8 p9 ) * t ( p3 p7 p8 p9 h1 h10 h11 h12 )_t * i2 ( h10 h11 h12 h13 h2 p7 p8 p9 )_yt @@ -15159,7 +15159,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = -1/36 * P( 2 ) * Sum ( h10 h11 h12 p7 p8 p9 ) END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_8_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h10 h11 h12 h13 p5 p7 p8 p9 )_y @@ -15363,7 +15363,7 @@ C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_8_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt @@ -15466,7 +15466,7 @@ C i2 ( h10 h11 h12 h13 h1 p7 p8 p9 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_9(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_ytt + = 1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * i2 ( h8 h13 p3 p5 p6 p7 )_yt @@ -15681,7 +15681,7 @@ C i1 ( h13 p3 h1 h2 )_ytt + = 1/12 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_9_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 p3 p5 p6 p7 )_yt + = -1 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * y ( h8 h10 h11 h13 p5 p6 p7 p9 )_y @@ -16127,7 +16127,7 @@ C i2 ( h8 h13 p3 p5 p6 p7 )_yt + = -1 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_9_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h13 p3 p5 p6 p7 )_yt @@ -16215,7 +16215,7 @@ C i2 ( h8 h13 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 p3 h1 h2 )_yttt + = -3/16 * P( 2 ) * Sum ( p14 ) * t ( p14 h1 )_t * i2 ( h13 p3 h2 p14 )_ytt @@ -16369,7 +16369,7 @@ C i1 ( h13 p3 h1 h2 )_yttt + = -3/16 * P( 2 ) * Sum ( p14 ) * t ( p14 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h9 h10 h13 h1 p8 p14 )_yt @@ -16597,7 +16597,7 @@ C i2 ( h13 p3 h1 p14 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt @@ -16669,7 +16669,7 @@ C i2 ( h13 p3 h1 p14 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( h9 h10 h13 p6 p8 p14 )_y @@ -16848,7 +16848,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt @@ -16936,7 +16936,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1 * y ( h9 h10 h13 p6 p8 p14 )_y @@ -17051,7 +17051,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1 * y ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y @@ -17139,7 +17139,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1/3 * y ( h9 h10 h13 p6 p8 p14 )_y @@ -17255,7 +17255,7 @@ C i4 ( h9 h10 h13 p6 p8 p14 )_y + = 1/3 * y ( h9 h10 h13 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = 2/3 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17702,7 +17702,7 @@ C i3 ( h9 h10 h13 h1 p8 p14 )_yt + = 2/3 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17832,7 +17832,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_1_2_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -17935,7 +17935,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_1_2_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 )_y @@ -18065,7 +18065,7 @@ C i4 ( h7 h9 h10 h13 p5 p6 p8 p14 )_y + = 1 * y ( h7 h9 h10 h13 p5 p6 p8 p14 END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 p3 h1 p14 )_ytt + = 1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 h10 h11 h12 )_t * i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt @@ -18411,7 +18411,7 @@ C i2 ( h13 p3 h1 p14 )_ytt + = 1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18615,7 +18615,7 @@ C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_2_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt @@ -18718,7 +18718,7 @@ C i3 ( h10 h11 h12 h13 h1 p8 p9 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1 * y ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18848,7 +18848,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1 * y ( h10 h11 h12 h13 p6 p8 p9 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_5_10_2_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -18952,7 +18952,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_5_10_2_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1/3 * y ( h10 h11 h12 h13 p6 p8 p9 p14 )_y @@ -19082,7 +19082,7 @@ C i4 ( h10 h11 h12 h13 p6 p8 p9 p14 )_y + = 1/3 * y ( h10 h11 h12 h13 p6 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 p4 h1 h13 )_t * i1 ( h13 h2 )_yt @@ -19247,7 +19247,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h13 ) * t ( p3 p4 h1 h13 )_ END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 p6 )_y @@ -19375,7 +19375,7 @@ C i1 ( h13 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 p6 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt @@ -19431,7 +19431,7 @@ C i1 ( h13 h1 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h13 p6 p7 )_y @@ -19607,7 +19607,7 @@ C i1 ( h13 h1 )_yt + = -1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h13 p5 p6 p7 )_y @@ -19833,7 +19833,7 @@ C i1 ( h13 h1 )_yt + = 1/12 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_6_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h1 )_yt + = -1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h9 h10 h11 )_t * y ( h9 h10 h11 h13 p5 p6 p7 p8 )_y @@ -20113,7 +20113,7 @@ C i1 ( h13 h1 )_yt + = -1/144 * Sum ( h9 h10 h11 p5 p6 p7 p8 ) * t ( p5 p6 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * i1 ( h6 h7 h2 p5 )_yt @@ -20363,7 +20363,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p4 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -20517,7 +20517,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt @@ -20589,7 +20589,7 @@ C i1 ( h6 h7 h1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t * y ( h6 h7 h10 p5 p8 p9 )_y @@ -20850,7 +20850,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/2 * Sum ( h10 p8 p9 ) * t ( p8 p9 h1 h10 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_7_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h1 p5 )_yt + = -1/12 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p10 h1 h11 h12 )_t * y ( h6 h7 h11 h12 p5 p8 p9 p10 )_y @@ -21328,7 +21328,7 @@ C i1 ( h6 h7 h1 p5 )_yt + = -1/12 * Sum ( h11 h12 p8 p9 p10 ) * t ( p8 p9 p1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p13 ) * t ( p3 p13 h1 h2 )_t * i1 ( p4 p13 )_yt @@ -21493,7 +21493,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p13 ) * t ( p3 p13 h1 h2 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p6 p13 )_y @@ -21669,7 +21669,7 @@ C i1 ( p3 p13 )_yt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt @@ -21726,7 +21726,7 @@ C i1 ( p3 p13 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p5 p6 p13 )_y @@ -21952,7 +21952,7 @@ C i1 ( p3 p13 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_8_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p13 )_yt + = -1/72 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p3 p5 p6 p7 h8 h9 h10 h11 )_t * y ( h8 h9 h10 h11 p5 p6 p7 p13 )_y @@ -22232,7 +22232,7 @@ C i1 ( p3 p13 )_yt + = -1/72 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * Sum ( h15 h14 ) * t ( p3 p4 h14 h15 )_t * i1 ( h14 h15 h1 h2 )_yt @@ -22395,7 +22395,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * Sum ( h15 h14 ) * t ( p3 p4 h14 h15 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h14 h15 p5 p6 )_y @@ -22557,7 +22557,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt @@ -22629,7 +22629,7 @@ C i1 ( h14 h15 h1 h2 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h14 h15 p5 p6 p7 )_y @@ -22852,7 +22852,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h9 h10 h14 h15 p5 p6 p7 p8 )_y @@ -23177,7 +23177,7 @@ C i1 ( h14 h15 h1 h2 )_yt + = -1/24 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * i2 ( h14 h15 h2 p10 )_yt @@ -23330,7 +23330,7 @@ C i1 ( h14 h15 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p10 ) * t ( p10 h1 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h14 h15 p6 p10 )_y @@ -23485,7 +23485,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h14 h15 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt @@ -23557,7 +23557,7 @@ C i2 ( h14 h15 h1 p10 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = 1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * y ( h9 h14 h15 p7 p8 p10 )_y @@ -23822,7 +23822,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = 1 * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h14 h15 h1 p10 )_yt + = -1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h8 h9 h14 h15 p5 p6 p7 p10 )_y @@ -24295,7 +24295,7 @@ C i2 ( h14 h15 h1 p10 )_yt + = -1/6 * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 h15 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h1 h9 )_t * i2 ( h9 h14 h15 h2 p7 p8 )_yt @@ -24502,7 +24502,7 @@ C i1 ( h14 h15 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 END SUBROUTINE ccsdtq_2pdm_pphh_mo_9_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 h15 h1 p7 p8 )_yt + = -1 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h9 h12 h14 h15 p7 p8 p10 p11 )_y @@ -24949,7 +24949,7 @@ C i2 ( h9 h14 h15 h1 p7 p8 )_yt + = -1 * Sum ( h12 p10 p11 ) * t ( p10 p11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_9_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h14 h15 h1 p7 p8 )_yt @@ -25037,7 +25037,7 @@ C i2 ( h9 h14 h15 h1 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h14 p15 ) * t ( p3 p15 h1 h14 )_t * i1 ( h14 p4 h2 p15 )_yt @@ -25240,7 +25240,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h14 p15 ) * t ( p3 p15 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h8 h14 p7 p15 )_y @@ -25443,7 +25443,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt @@ -25515,7 +25515,7 @@ C i1 ( h14 p3 h1 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * y ( h7 h8 h14 p5 p6 p15 )_y @@ -25851,7 +25851,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1/2 * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h8 h9 h10 h14 p5 p6 p7 p15 )_y @@ -26393,7 +26393,7 @@ C i1 ( h14 p3 h1 p15 )_yt + = 1/18 * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p3 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_ytt + = -1 * Sum ( h6 h13 p5 ) * t ( p3 p5 h6 h13 )_t * i2 ( h6 h13 h14 h1 p5 p15 )_yt @@ -26621,7 +26621,7 @@ C i1 ( h14 p3 h1 p15 )_ytt + = -1 * Sum ( h6 h13 p5 ) * t ( p3 p5 h6 h13 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h6 h13 h14 p5 p10 p15 )_y @@ -26802,7 +26802,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_4_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt @@ -26890,7 +26890,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1/4 * Sum ( h8 p16 p7 ) * t ( p7 p16 h1 h8 )_t * i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27337,7 +27337,7 @@ C i2 ( h6 h13 h14 h1 p5 p15 )_yt + = -1/4 * Sum ( h8 p16 p7 ) * t ( p7 p16 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2_1(d_a,k_a_offset,d_c,k_c_off &set) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27467,7 +27467,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_4_2_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27570,7 +27570,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_4_2_2(d_a,k_a_offset,d_c,k_c_off &set) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p16 )_y @@ -27700,7 +27700,7 @@ C i3 ( h6 h8 h13 h14 p5 p7 p15 p16 )_y + = 1 * y ( h6 h8 h13 h14 p5 p7 p15 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h14 p3 h1 p15 )_ytt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h7 h8 h9 )_t * i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt @@ -28041,7 +28041,7 @@ C i1 ( h14 p3 h1 p15 )_ytt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p5 p6 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_10_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t * y ( h7 h8 h9 h14 p5 p6 p12 p15 )_y @@ -28244,7 +28244,7 @@ C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_10_5_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt @@ -28347,7 +28347,7 @@ C i2 ( h7 h8 h9 h14 h1 p5 p6 p15 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * i1 ( h7 h8 h9 h2 p5 p6 )_yt @@ -28805,7 +28805,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/12 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h7 h8 h9 p5 p6 p10 )_y @@ -28982,7 +28982,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1 * Sum ( p10 ) * t ( p10 h1 )_t * y ( h7 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt @@ -29070,7 +29070,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 h12 )_t * y ( h7 h8 h9 h12 p5 p6 p10 p11 )_y @@ -29518,7 +29518,7 @@ C i1 ( h7 h8 h9 h1 p5 p6 )_yt + = 1/2 * Sum ( h12 p10 p11 ) * t ( p10 p11 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_12(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 h1 h2 h7 )_t * i1 ( h7 p4 p5 p6 )_yt @@ -29768,7 +29768,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p3 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_12_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * y ( h7 h9 h10 p5 p6 p8 )_y @@ -30028,7 +30028,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_12_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt @@ -30100,7 +30100,7 @@ C i1 ( h7 p3 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_12_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 p5 p6 )_yt + = -1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 h10 h11 h12 )_t * y ( h7 h10 h11 h12 p5 p6 p8 p9 )_y @@ -30578,7 +30578,7 @@ C i1 ( h7 p3 p5 p6 )_yt + = -1/6 * Sum ( h10 h11 h12 p8 p9 ) * t ( p3 p8 p9 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h13 h14 h15 p12 ) * t ( p3 p4 p12 h13 h14 h15 )_t * i1 ( h13 h14 h15 h1 h2 p12 )_yt @@ -30788,7 +30788,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/12 * Sum ( h13 h14 h15 p12 ) * t ( p3 p4 p12 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 )_t * y ( h13 h14 h15 p9 p10 p12 )_y @@ -30989,7 +30989,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1 * Sum ( p9 p10 ) * t ( p9 p10 h1 h2 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_13_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt @@ -31077,7 +31077,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h8 h13 h14 h15 p5 p6 p7 p12 )_y @@ -31459,7 +31459,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_yt + = 1/3 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h13 h14 h15 h1 h2 p12 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h13 h14 h15 h2 p5 p12 )_yt @@ -31641,7 +31641,7 @@ C i1 ( h13 h14 h15 h1 h2 p12 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 END SUBROUTINE ccsdtq_2pdm_pphh_mo_13_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h15 h1 p5 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h13 h14 h15 p5 p6 p12 )_y @@ -31823,7 +31823,7 @@ C i2 ( h13 h14 h15 h1 p5 p12 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_13_3_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h13 h14 h15 h1 p5 p12 )_yt @@ -31911,7 +31911,7 @@ C i2 ( h13 h14 h15 h1 p5 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_14(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p3 p5 p6 p7 h1 h2 h8 h9 )_t * i1 ( h8 h9 p4 p5 p6 p7 )_yt @@ -32370,7 +32370,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_14_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h12 )_t * y ( h8 h9 h11 h12 p5 p6 p7 p10 )_y @@ -32817,7 +32817,7 @@ C i1 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_14_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 p3 p5 p6 p7 )_yt @@ -32905,7 +32905,7 @@ C i1 ( h8 h9 p3 p5 p6 p7 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_15(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/96 * Sum ( h15 h7 h8 h9 p13 p14 ) * t ( p3 p4 p13 p14 h7 h8 h9 h15 )_t * i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt @@ -33177,7 +33177,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/96 * Sum ( h15 h7 h8 h9 p13 p14 ) * t ( p3 p END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt + = -1 * Sum ( p11 p12 ) * t ( p11 p12 h1 h2 )_t * y ( h7 h8 h9 h15 p11 p12 p13 p14 )_y @@ -33423,7 +33423,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt + = -1 * Sum ( p11 p12 ) * t ( p11 p1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_15_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt @@ -33526,7 +33526,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h9 h15 h2 p5 p13 p14 )_yt @@ -33732,7 +33732,7 @@ C i1 ( h7 h8 h9 h15 h1 h2 p13 p14 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p END SUBROUTINE ccsdtq_2pdm_pphh_mo_15_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 h9 h15 p5 p6 p13 p14 )_y @@ -33936,7 +33936,7 @@ C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_15_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt @@ -34039,7 +34039,7 @@ C i2 ( h7 h8 h9 h15 h1 p5 p13 p14 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_16(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/32 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 p6 h1 h7 h8 )_t * i1 ( h7 h8 p4 h2 p5 p6 )_yt @@ -34321,7 +34321,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/32 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p3 p5 END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_yt + = 1 * Sum ( h11 h12 p9 p10 ) * t ( p3 p9 p10 h1 h11 h12 )_t * y ( h7 h8 h11 h12 p5 p6 p9 p10 )_y @@ -34996,7 +34996,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_yt + = 1 * Sum ( h11 h12 p9 p10 ) * t ( p3 p9 p10 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_16_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_yt @@ -35084,7 +35084,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p3 h1 p5 p6 )_ytt + = -4 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h11 )_t * i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt @@ -35466,7 +35466,7 @@ C i1 ( h7 h8 p3 h1 p5 p6 )_ytt + = -4 * Sum ( h10 h11 p9 ) * t ( p3 p9 h10 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_16_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t * y ( h7 h8 h10 h11 p5 p6 p9 p12 )_y @@ -35669,7 +35669,7 @@ C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt + = -1 * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_16_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt @@ -35772,7 +35772,7 @@ C i2 ( h7 h8 h10 h11 h1 p5 p6 p9 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yttt + = -1/12 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t * i1 ( p3 p4 h2 p12 )_ytt @@ -35926,7 +35926,7 @@ C i0 ( p3 p4 h1 h2 )_yttt + = -1/12 * P( 2 ) * Sum ( p12 ) * t ( p12 h1 )_t END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_ytt + = 1 * Sum ( h6 h7 h8 p5 ) * t ( p3 p4 p5 h6 h7 h8 )_t * i2 ( h6 h7 h8 h1 p5 p12 )_yt @@ -36139,7 +36139,7 @@ C i1 ( p3 p4 h1 p12 )_ytt + = 1 * Sum ( h6 h7 h8 p5 ) * t ( p3 p4 p5 h6 h7 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_ytt @@ -36211,7 +36211,7 @@ C i1 ( p3 p4 h1 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p5 p12 )_yt + = -1 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h11 )_t * y ( h6 h7 h8 h11 p5 p9 p10 p12 )_y @@ -36657,7 +36657,7 @@ C i2 ( h6 h7 h8 h1 p5 p12 )_yt + = -1 * Sum ( h11 p9 p10 ) * t ( p9 p10 h1 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h8 h1 p5 p12 )_yt @@ -36745,7 +36745,7 @@ C i2 ( h6 h7 h8 h1 p5 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p12 )_yttt + = 3/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 p4 h1 p5 p12 )_ytt @@ -36948,7 +36948,7 @@ C i1 ( p3 p4 h1 p12 )_yttt + = 3/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p3 p5 h END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 p3 h1 p5 p12 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h10 )_t * i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt @@ -37329,7 +37329,7 @@ C i2 ( h6 h7 p3 h1 p5 p12 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p3 p8 h9 h1 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 p3 h1 p5 p12 )_ytt @@ -37419,7 +37419,7 @@ C i2 ( h6 h7 p3 h1 p5 p12 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37622,7 +37622,7 @@ C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt + = 1 * Sum ( p11 ) * t ( p11 h1 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1_1(l_a_offset,k_a_offs &et,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt @@ -37725,7 +37725,7 @@ C i3 ( h6 h7 h9 h10 h1 p5 p8 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37855,7 +37855,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_17_2_1_1_1(l_a_offset,k_a_of &fset,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -37958,7 +37958,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y END SUBROUTINE ccsdtq_2pdm_pphh_mo_17_2_1_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 )_y @@ -38088,7 +38088,7 @@ C i4 ( h6 h7 h9 h10 p5 p8 p11 p12 )_y + = 1 * y ( h6 h7 h9 h10 p5 p8 p11 p12 END SUBROUTINE ccsdtq_2pdm_pphh_mo_18(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yttt + = -1/8 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i1 ( p3 p4 p5 p6 )_ytt @@ -38251,7 +38251,7 @@ C i0 ( p3 p4 h1 h2 )_yttt + = -1/8 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * i END SUBROUTINE ccsdtq_2pdm_pphh_mo_18_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 p5 p6 )_ytt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 h9 )_t * i2 ( h8 h9 p4 p5 p6 p7 )_yt @@ -38463,7 +38463,7 @@ C i1 ( p3 p4 p5 p6 )_ytt + = 1/2 * P( 2 ) * Sum ( h8 h9 p7 ) * t ( p3 p7 h8 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_18_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 p5 p6 )_ytt @@ -38535,7 +38535,7 @@ C i1 ( p3 p4 p5 p6 )_ytt END SUBROUTINE ccsdtq_2pdm_pphh_mo_18_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h12 )_t * y ( h8 h9 h11 h12 p5 p6 p7 p10 )_y @@ -38982,7 +38982,7 @@ C i2 ( h8 h9 p3 p5 p6 p7 )_yt + = 1 * Sum ( h11 h12 p10 ) * t ( p3 p10 h11 h END SUBROUTINE OFFSET_ccsdtq_2pdm_pphh_mo_18_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 21:01:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 p3 p5 p6 p7 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F b/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F index a848765001..5d95ee417b 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -251,7 +251,7 @@ C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt + = 1/2 * P( 2 ) * Sum ( p11 ) END SUBROUTINE ccsdtq_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * y ( h5 p4 )_y @@ -415,7 +415,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p3 p5 h2 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -674,7 +674,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yt + = -1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p3 p5 p6 h2 h7 h8 h9 )_t * y ( h7 h8 h9 p4 p5 p6 )_y @@ -1149,7 +1149,7 @@ c & - noab - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yt @@ -1317,7 +1317,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -1445,7 +1445,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -1501,7 +1501,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -1677,7 +1677,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 p3 p5 p6 )_y @@ -1900,7 +1900,7 @@ C i1 ( p1 p3 )_yt + = 1/12 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 END SUBROUTINE ccsdtq_2pdm_pphp_mo_4_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/144 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p1 p5 p6 p7 h8 h9 h10 h11 )_t * y ( h8 h9 h10 h11 p3 p5 p6 p7 )_y @@ -2180,7 +2180,7 @@ C i1 ( p1 p3 )_yt + = 1/144 * Sum ( h8 h9 h10 h11 p5 p6 p7 ) * t ( p1 p5 p6 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p1 h12 )_t * i1 ( h12 p3 h2 p4 )_yt @@ -2334,7 +2334,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1 * P( 2 ) * Sum ( h12 ) * t ( p1 h12 )_t * i1 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h12 p3 p5 )_y @@ -2546,7 +2546,7 @@ c &b - 1))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt @@ -2618,7 +2618,7 @@ C i1 ( h12 p1 h2 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = -1/8 * P( 2 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * y ( h7 h8 h12 p3 p5 p6 )_y @@ -2963,7 +2963,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_yt + = 1/72 * P( 2 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p1 p5 p6 p7 h2 h8 h9 h10 )_t * y ( h8 h9 h10 h12 p3 p5 p6 p7 )_y @@ -3514,7 +3514,7 @@ c &b - 1))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 ) * t ( p1 h13 )_t * i2 ( h12 h13 h2 p3 )_yt @@ -3668,7 +3668,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 ) * t ( p1 h13 )_t * i2 ( h12 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h12 h13 p1 p5 )_y @@ -3831,7 +3831,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_4_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt @@ -3903,7 +3903,7 @@ C i2 ( h12 h13 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h12 h13 p1 p7 p8 )_y @@ -4173,7 +4173,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_4_3(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h12 h13 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h10 h11 p7 p8 p9 ) * t ( p7 p8 p9 h2 h10 h11 )_t * y ( h10 h11 h12 h13 p1 p7 p8 p9 )_y @@ -4658,7 +4658,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 h8 p11 ) * t ( p1 p11 h8 h13 )_t * i2 ( h8 h12 h13 h2 p3 p11 )_yt @@ -4859,7 +4859,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/2 * Sum ( h13 h8 p11 ) * t ( p1 p11 h8 h13 ) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h12 h13 p1 p5 p11 )_y @@ -5077,7 +5077,7 @@ c &3b - 1 + noab * (h12b - 1 + noab * (h8b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_5_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt @@ -5165,7 +5165,7 @@ C i2 ( h8 h12 h13 h2 p1 p11 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_5_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h12 h13 h2 p1 p11 )_yt + = -1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h2 h7 )_t * y ( h7 h8 h12 h13 p1 p5 p6 p11 )_y @@ -5891,7 +5891,7 @@ c &3b - 1 + noab * (h12b - 1 + noab * (h8b - 1))))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_6(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h12 p1 h2 p3 )_ytt + = 1/12 * Sum ( h9 h10 h11 p7 p8 ) * t ( p1 p7 p8 h9 h10 h11 )_t * i2 ( h9 h10 h11 h12 h2 p3 p7 p8 )_yt @@ -6147,7 +6147,7 @@ C i1 ( h12 p1 h2 p3 )_ytt + = 1/12 * Sum ( h9 h10 h11 p7 p8 ) * t ( p1 p7 p8 END SUBROUTINE ccsdtq_2pdm_pphp_mo_5_6_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h9 h10 h11 h12 p1 p5 p7 p8 )_y @@ -6443,7 +6443,7 @@ c & 1 + noab * (h9b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_5_6_1(l_a_offset,k_a_offset, &size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt @@ -6546,7 +6546,7 @@ C i2 ( h9 h10 h11 h12 h2 p1 p7 p8 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * Sum ( h12 h10 ) * t ( p1 p3 h10 h12 )_t * i1 ( h10 h12 h2 p4 )_yt @@ -6709,7 +6709,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/2 * Sum ( h12 h10 ) * t ( p1 p3 h10 h12 )_t END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h10 h12 p1 p7 )_y @@ -6872,7 +6872,7 @@ c &)))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt @@ -6944,7 +6944,7 @@ C i1 ( h10 h12 h2 p1 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/4 * P( 2 ) * Sum ( h9 p7 p8 ) * t ( p7 p8 h2 h9 )_t * y ( h9 h10 h12 p1 p7 p8 )_y @@ -7214,7 +7214,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_6_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 h12 h2 p1 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h2 h8 h9 )_t * y ( h8 h9 h10 h12 p1 p5 p6 p7 )_y @@ -7696,7 +7696,7 @@ c &)))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 h8 )_t * i1 ( h6 h7 h8 h2 p4 p5 )_yt @@ -7899,7 +7899,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = -1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p3 p5 h6 h7 END SUBROUTINE ccsdtq_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/2 * P( 2 ) * Sum ( p9 ) * t ( p9 h2 )_t * y ( h6 h7 h8 p1 p5 p9 )_y @@ -8108,7 +8108,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt @@ -8196,7 +8196,7 @@ C i1 ( h6 h7 h8 h2 p1 p5 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_7_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h8 h2 p1 p5 )_yt + = -1/4 * P( 2 ) * Sum ( h11 p9 p10 ) * t ( p9 p10 h2 h11 )_t * y ( h6 h7 h8 h11 p1 p5 p9 p10 )_y @@ -8922,7 +8922,7 @@ c & - 1 + noab * (h7b - 1 + noab * (h6b - 1))))))) END SUBROUTINE ccsdtq_2pdm_pphp_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/4 * P( 4 ) * Sum ( h10 p12 ) * t ( p1 p12 h2 h10 )_t * i1 ( h10 p3 p4 p12 )_yt @@ -9131,7 +9131,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * y ( h8 h9 h10 p3 p7 p12 )_y @@ -9486,7 +9486,7 @@ C i1 ( h10 p1 p3 p12 )_yt + = -1 * Sum ( h8 h9 p7 ) * t ( p1 p7 h8 h9 )_t * END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_8_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt @@ -9558,7 +9558,7 @@ C i1 ( h10 p1 p3 p12 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_8_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p1 p3 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h10 p3 p5 p6 p12 )_y @@ -10299,7 +10299,7 @@ C i1 ( h10 p1 p3 p12 )_yt + = -1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h END SUBROUTINE ccsdtq_2pdm_pphp_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p3 p5 p6 h7 h8 h9 h10 )_t * i1 ( h7 h8 h9 h10 h2 p4 p5 p6 )_yt @@ -10569,7 +10569,7 @@ C i0 ( p1 p3 h2 p4 )_ytt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p3 p END SUBROUTINE ccsdtq_2pdm_pphp_mo_9_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt + = -1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h2 )_t * y ( h7 h8 h9 h10 p1 p5 p6 p11 )_y @@ -10870,7 +10870,7 @@ c & + noab * (h7b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_9_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt @@ -10973,7 +10973,7 @@ C i1 ( h7 h8 h9 h10 h2 p1 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_10(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p1 p5 p6 h2 h7 h8 )_t * i1 ( h7 h8 p3 p4 p5 p6 )_yt @@ -11262,7 +11262,7 @@ c END IF END SUBROUTINE ccsdtq_2pdm_pphp_mo_10_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p1 p3 p5 p6 )_yt + = 1 * Sum ( h10 h11 p9 ) * t ( p1 p9 h10 h11 )_t * y ( h7 h8 h10 h11 p3 p5 p6 p9 )_y @@ -12240,7 +12240,7 @@ C i1 ( h7 h8 p1 p3 p5 p6 )_yt + = 1 * Sum ( h10 h11 p9 ) * t ( p1 p9 h10 h11 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_10_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 p1 p3 p5 p6 )_yt @@ -12328,7 +12328,7 @@ C i1 ( h7 h8 p1 p3 p5 p6 )_yt END SUBROUTINE ccsdtq_2pdm_pphp_mo_11(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yttt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h6 h7 p3 h2 p4 p5 )_ytt @@ -12519,7 +12519,7 @@ C i0 ( p1 p3 h2 p4 )_yttt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h END SUBROUTINE ccsdtq_2pdm_pphp_mo_11_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 h2 p3 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 )_t * i2 ( h6 h7 h9 h10 h2 p3 p5 p8 )_yt @@ -12834,7 +12834,7 @@ C i1 ( h6 h7 p1 h2 p3 p5 )_ytt + = -1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_11_1(l_a_offset,k_a_offset,s &ize) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 h2 p3 p5 )_ytt @@ -12924,7 +12924,7 @@ C i1 ( h6 h7 p1 h2 p3 p5 )_ytt END SUBROUTINE ccsdtq_2pdm_pphp_mo_11_1_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt + = 1/2 * P( 2 ) * Sum ( p11 ) * t ( p11 h2 )_t * y ( h6 h7 h9 h10 p1 p5 p8 p11 )_y @@ -13225,7 +13225,7 @@ c & + noab * (h6b - 1))))))))) END SUBROUTINE OFFSET_ccsdtq_2pdm_pphp_mo_11_1_1(l_a_offset,k_a_offset &,size) -C $Id: ccsdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 21:01:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h9 h10 h2 p1 p5 p8 )_yt diff --git a/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F b/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F index a0c7a275be..be8befdd6e 100644 --- a/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F +++ b/src/tce/gradients/ccsdtq_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE ccsdtq_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y2,d_y3, &d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset,k &_y2_offset,k_y3_offset,k_y4_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -78,7 +78,7 @@ C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h END SUBROUTINE ccsdtq_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -241,7 +241,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE ccsdtq_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -462,7 +462,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE ccsdtq_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 p6 h7 h8 h9 h10 )_t * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y @@ -784,7 +784,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 END SUBROUTINE ccsdtq_2pdm_pppp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * i1 ( h11 p2 p3 p4 )_yt @@ -938,7 +938,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/2 * P( 2 ) * Sum ( h11 ) * t ( p1 h11 )_t * END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h11 p2 p3 )_y @@ -1092,7 +1092,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = 1 * Sum ( h6 ) * t ( p1 h6 )_t * y ( h6 h11 p2 END SUBROUTINE OFFSET_ccsdtq_2pdm_pppp_mo_4_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt @@ -1164,7 +1164,7 @@ C i1 ( h11 p1 p2 p3 )_yt END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 h11 p2 p3 p5 )_y @@ -1425,7 +1425,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = -1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y END SUBROUTINE ccsdtq_2pdm_pppp_mo_4_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h11 p1 p2 p3 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h7 h8 h9 h11 p2 p3 p5 p6 )_y @@ -1898,7 +1898,7 @@ C i1 ( h11 p1 p2 p3 )_yt + = 1/6 * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 END SUBROUTINE ccsdtq_2pdm_pppp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_ytt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * i1 ( h6 h7 p2 p3 p4 p5 )_yt @@ -2090,7 +2090,7 @@ C i0 ( p1 p2 p3 p4 )_ytt + = -1/8 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 END SUBROUTINE ccsdtq_2pdm_pppp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 )_t * y ( h6 h7 h9 h10 p2 p3 p5 p8 )_y @@ -3062,7 +3062,7 @@ C i1 ( h6 h7 p1 p2 p3 p5 )_yt + = 1 * Sum ( h9 h10 p8 ) * t ( p1 p8 h9 h10 ) END SUBROUTINE OFFSET_ccsdtq_2pdm_pppp_mo_5_1(l_a_offset,k_a_offset,si &ze) -C $Id: ccsdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 16:21:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 p1 p2 p3 p5 )_yt diff --git a/src/tce/gradients/cis_1pdm_hh_mo.F b/src/tce/gradients/cis_1pdm_hh_mo.F index 7d39d39c9f..b1905ae93c 100644 --- a/src/tce/gradients/cis_1pdm_hh_mo.F +++ b/src/tce/gradients/cis_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_1pdm_hh_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset,k &_y1_offset) -C $Id: cis_1pdm_hh_mo.F,v 1.1 2008-10-02 23:14:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE cis_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cis_1pdm_hh_mo.F,v 1.1 2008-10-02 23:14:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y diff --git a/src/tce/gradients/cis_1pdm_pp_mo.F b/src/tce/gradients/cis_1pdm_pp_mo.F index ecdc58dbcf..a290894920 100644 --- a/src/tce/gradients/cis_1pdm_pp_mo.F +++ b/src/tce/gradients/cis_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_1pdm_pp_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset,k &_y1_offset) -C $Id: cis_1pdm_pp_mo.F,v 1.1 2008-10-02 23:15:20 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE cis_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: cis_1pdm_pp_mo.F,v 1.1 2008-10-02 23:15:20 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y diff --git a/src/tce/gradients/cis_2pdm_hphp_mo.F b/src/tce/gradients/cis_2pdm_hphp_mo.F index 4c5f297e18..445d22f7a3 100644 --- a/src/tce/gradients/cis_2pdm_hphp_mo.F +++ b/src/tce/gradients/cis_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cis_2pdm_hphp_mo(d_i0,d_x1,d_y1,k_i0_offset,k_x1_offset &,k_y1_offset) -C $Id: cis_2pdm_hphp_mo.F,v 1.1 2008-10-02 23:16:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y END SUBROUTINE cis_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cis_2pdm_hphp_mo.F,v 1.1 2008-10-02 23:16:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yx + = -1/4 * P( 4 ) * x ( p2 h1 )_x * y ( h3 p4 )_y diff --git a/src/tce/gradients/cis_x1.F b/src/tce/gradients/cis_x1.F index d221806e34..59aae141c8 100644 --- a/src/tce/gradients/cis_x1.F +++ b/src/tce/gradients/cis_x1.F @@ -1,6 +1,6 @@ SUBROUTINE cis_x1(d_f1,d_i0,d_v2,d_x1,k_f1_offset,k_i0_offset,k_v2 &_offset,k_x1_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -26,7 +26,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) RETURN END SUBROUTINE cis_x1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f @@ -148,7 +148,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * f ( h3 h1 )_f RETURN END SUBROUTINE cis_x1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -270,7 +270,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f RETURN END SUBROUTINE cis_x1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: cis_x1.F,v 1.1 2008-10-02 23:16:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v diff --git a/src/tce/gradients/cis_xdiagon.F b/src/tce/gradients/cis_xdiagon.F index fc5f2f5f0f..aa84b80d6a 100644 --- a/src/tce/gradients/cis_xdiagon.F +++ b/src/tce/gradients/cis_xdiagon.F @@ -1,6 +1,6 @@ subroutine cis_xdiagon(size_x1,k_x1_offset,d_r1,omega,residual) c -c $Id: cis_xdiagon.F,v 1.2 2008-10-03 17:44:21 d3p975 Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/gradients/cis_xguess.F b/src/tce/gradients/cis_xguess.F index 54bfebff8d..547d2a6e0c 100644 --- a/src/tce/gradients/cis_xguess.F +++ b/src/tce/gradients/cis_xguess.F @@ -1,6 +1,6 @@ subroutine cis_xguess(size_x1,k_x1_offset) c -c $Id: cis_xguess.F,v 1.1 2008-10-02 23:18:24 d3p975 Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/gradients/cis_xtidy.F b/src/tce/gradients/cis_xtidy.F index ba157a6430..f360f14374 100644 --- a/src/tce/gradients/cis_xtidy.F +++ b/src/tce/gradients/cis_xtidy.F @@ -1,6 +1,6 @@ subroutine cis_xtidy c -c $Id: cis_xtidy.F,v 1.1 2008-10-02 23:18:44 d3p975 Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/gradients/cisd_1pdm_hh_mo.F b/src/tce/gradients/cisd_1pdm_hh_mo.F index 7f6549cde1..b1750a4248 100644 --- a/src/tce/gradients/cisd_1pdm_hh_mo.F +++ b/src/tce/gradients/cisd_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -29,7 +29,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -157,7 +157,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_hh_mo.F,v 1.1 2008-10-01 18:48:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y diff --git a/src/tce/gradients/cisd_1pdm_pp_mo.F b/src/tce/gradients/cisd_1pdm_pp_mo.F index 6d578abf90..642de52c27 100644 --- a/src/tce/gradients/cisd_1pdm_pp_mo.F +++ b/src/tce/gradients/cisd_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset,k_ &t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -157,7 +157,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: cisd_1pdm_pp_mo.F,v 1.1 2008-10-01 18:49:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhhh_mo.F b/src/tce/gradients/cisd_2pdm_hhhh_mo.F index 8d1d7b4d88..1eeec673f2 100644 --- a/src/tce/gradients/cisd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhhh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhhh_mo.F,v 1.1 2008-10-01 18:49:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhhh_mo.F,v 1.1 2008-10-01 18:49:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhhp_mo.F b/src/tce/gradients/cisd_2pdm_hhhp_mo.F index 721bbdcca9..06d26a2247 100644 --- a/src/tce/gradients/cisd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhhp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhhp_mo.F,v 1.1 2008-10-01 18:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( END SUBROUTINE cisd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhhp_mo.F,v 1.1 2008-10-01 18:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hhpp_mo.F b/src/tce/gradients/cisd_2pdm_hhpp_mo.F index 496a45c5f2..71659e49d3 100644 --- a/src/tce/gradients/cisd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hhpp_mo(d_i0,d_t0,d_y2,k_i0_offset,k_t0_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hhpp_mo.F,v 1.1 2008-10-01 18:50:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hhpp_mo.F,v 1.1 2008-10-01 18:50:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/cisd_2pdm_hphh_mo.F b/src/tce/gradients/cisd_2pdm_hphh_mo.F index e5acdd946a..c7d5aa57e9 100644 --- a/src/tce/gradients/cisd_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisd_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hphh_mo(d_i0,d_t2,d_y1,k_i0_offset,k_t2_offse &t,k_y1_offset) -C $Id: cisd_2pdm_hphh_mo.F,v 1.1 2008-10-01 18:50:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t END SUBROUTINE cisd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphh_mo.F,v 1.1 2008-10-01 18:50:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hphp_mo.F b/src/tce/gradients/cisd_2pdm_hphp_mo.F index 51646af746..dbeb425811 100644 --- a/src/tce/gradients/cisd_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offset, &k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 END SUBROUTINE cisd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -186,7 +186,7 @@ c & - 1))))) END SUBROUTINE cisd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hphp_mo.F,v 1.1 2008-10-01 18:51:00 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/cisd_2pdm_hppp_mo.F b/src/tce/gradients/cisd_2pdm_hppp_mo.F index 8d659a8a67..22de7a8398 100644 --- a/src/tce/gradients/cisd_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_hppp_mo(d_i0,d_t1,d_y2,k_i0_offset,k_t1_offse &t,k_y2_offset) -C $Id: cisd_2pdm_hppp_mo.F,v 1.1 2008-10-01 18:51:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( END SUBROUTINE cisd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_hppp_mo.F,v 1.1 2008-10-01 18:51:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y diff --git a/src/tce/gradients/cisd_2pdm_pphh_mo.F b/src/tce/gradients/cisd_2pdm_pphh_mo.F index 87c7edc2d5..8e227dfbe7 100644 --- a/src/tce/gradients/cisd_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisd_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pphh_mo(d_i0,d_t2,d_y0,k_i0_offset,k_t2_offse &t,k_y0_offset) -C $Id: cisd_2pdm_pphh_mo.F,v 1.1 2008-10-01 18:51:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -22,7 +22,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisd_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pphh_mo.F,v 1.1 2008-10-01 18:51:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y diff --git a/src/tce/gradients/cisd_2pdm_pphp_mo.F b/src/tce/gradients/cisd_2pdm_pphp_mo.F index 6f3649e604..34bbda621c 100644 --- a/src/tce/gradients/cisd_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisd_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pphp_mo(d_i0,d_t2,d_y1,k_i0_offset,k_t2_offse &t,k_y1_offset) -C $Id: cisd_2pdm_pphp_mo.F,v 1.1 2008-10-01 18:51:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t END SUBROUTINE cisd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pphp_mo.F,v 1.1 2008-10-01 18:51:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y diff --git a/src/tce/gradients/cisd_2pdm_pppp_mo.F b/src/tce/gradients/cisd_2pdm_pppp_mo.F index ae6f18bc4f..dcacc42415 100644 --- a/src/tce/gradients/cisd_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisd_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisd_2pdm_pppp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: cisd_2pdm_pppp_mo.F,v 1.1 2008-10-01 18:52:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisd_2pdm_pppp_mo.F,v 1.1 2008-10-01 18:52:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/cisdt_1pdm_hh_mo.F b/src/tce/gradients/cisdt_1pdm_hh_mo.F index 7098c9b644..a0960e40e0 100644 --- a/src/tce/gradients/cisdt_1pdm_hh_mo.F +++ b/src/tce/gradients/cisdt_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE cisdt_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisdt_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisdt_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_hh_mo.F,v 1.1 2008-10-01 20:49:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_1pdm_pp_mo.F b/src/tce/gradients/cisdt_1pdm_pp_mo.F index 65f4d590e4..9cfe769f55 100644 --- a/src/tce/gradients/cisdt_1pdm_pp_mo.F +++ b/src/tce/gradients/cisdt_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k_i &0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offs &et,k_y3_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE cisdt_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisdt_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisdt_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: cisdt_1pdm_pp_mo.F,v 1.1 2008-10-01 20:50:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhhh_mo.F b/src/tce/gradients/cisdt_2pdm_hhhh_mo.F index 585f9573fc..0507cce320 100644 --- a/src/tce/gradients/cisdt_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhhh_mo(d_i0,d_t2,d_t3,d_y2,d_y3,k_i0_offset &,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE cisdt_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -191,7 +191,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisdt_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhh_mo.F,v 1.1 2008-10-01 20:52:01 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhhp_mo.F b/src/tce/gradients/cisdt_2pdm_hhhp_mo.F index 65bc97f266..8dad333263 100644 --- a/src/tce/gradients/cisdt_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h END SUBROUTINE cisdt_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -192,7 +192,7 @@ c &)) END SUBROUTINE cisdt_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhhp_mo.F,v 1.1 2008-10-01 20:52:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h3 h4 h7 p2 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hhpp_mo.F b/src/tce/gradients/cisdt_2pdm_hhpp_mo.F index 22f72be554..d5fe97d87a 100644 --- a/src/tce/gradients/cisdt_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hhpp_mo(d_i0,d_t0,d_t1,d_y2,d_y3,k_i0_offset &,k_t0_offset,k_t1_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -29,7 +29,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 END SUBROUTINE cisdt_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -162,7 +162,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisdt_2pdm_hhpp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hhpp_mo.F,v 1.1 2008-10-01 20:52:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 p1 p2 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hphh_mo.F b/src/tce/gradients/cisdt_2pdm_hphh_mo.F index 889ed224f7..19acb23808 100644 --- a/src/tce/gradients/cisdt_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hphh_mo(d_i0,d_t2,d_t3,d_y1,d_y2,k_i0_offset &,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h END SUBROUTINE cisdt_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -193,7 +193,7 @@ c &)) END SUBROUTINE cisdt_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphh_mo.F,v 1.1 2008-10-01 20:53:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h1 h2 h7 )_t * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hphp_mo.F b/src/tce/gradients/cisdt_2pdm_hphp_mo.F index e5740049d6..90ef96e076 100644 --- a/src/tce/gradients/cisdt_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdt_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3,k &_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_of &fset,k_y3_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 END SUBROUTINE cisdt_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -194,7 +194,7 @@ c & - 1))))) END SUBROUTINE cisdt_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -418,7 +418,7 @@ c & - 1))))) END SUBROUTINE cisdt_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hphp_mo.F,v 1.1 2008-10-01 20:53:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 p6 h1 h7 h8 )_t * y ( h3 h7 h8 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdt_2pdm_hppp_mo.F b/src/tce/gradients/cisdt_2pdm_hppp_mo.F index a804859364..c1ef9771f6 100644 --- a/src/tce/gradients/cisdt_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_y2,d_y3,k_i0_offset &,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -29,7 +29,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h END SUBROUTINE cisdt_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -192,7 +192,7 @@ c & - noab - 1))))) END SUBROUTINE cisdt_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_hppp_mo.F,v 1.1 2008-10-01 20:53:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h3 h6 h7 p2 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pphh_mo.F b/src/tce/gradients/cisdt_2pdm_pphh_mo.F index 650e8a8305..6714e0d2c4 100644 --- a/src/tce/gradients/cisdt_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pphh_mo(d_i0,d_t2,d_t3,d_y0,d_y1,k_i0_offset &,k_t2_offset,k_t3_offset,k_y0_offset,k_y1_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -29,7 +29,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE cisdt_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -166,7 +166,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisdt_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphh_mo.F,v 1.1 2008-10-01 20:54:14 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pphp_mo.F b/src/tce/gradients/cisdt_2pdm_pphp_mo.F index 905f6ae200..8d23d533f6 100644 --- a/src/tce/gradients/cisdt_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pphp_mo(d_i0,d_t2,d_t3,d_y1,d_y2,k_i0_offset &,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -29,7 +29,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h END SUBROUTINE cisdt_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -193,7 +193,7 @@ c & - noab - 1))))) END SUBROUTINE cisdt_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pphp_mo.F,v 1.1 2008-10-01 20:54:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h1 h6 h7 )_t * y ( h6 h7 p4 p5 )_y diff --git a/src/tce/gradients/cisdt_2pdm_pppp_mo.F b/src/tce/gradients/cisdt_2pdm_pppp_mo.F index 02b3747cf4..24db3cf293 100644 --- a/src/tce/gradients/cisdt_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisdt_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE cisdt_2pdm_pppp_mo(d_i0,d_t2,d_t3,d_y2,d_y3,k_i0_offset &,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -29,7 +29,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE cisdt_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -192,7 +192,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisdt_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: cisdt_2pdm_pppp_mo.F,v 1.1 2008-10-01 20:54:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdtq_1pdm_hh_mo.F b/src/tce/gradients/cisdtq_1pdm_hh_mo.F index 2b6071ff67..f9192290f3 100644 --- a/src/tce/gradients/cisdtq_1pdm_hh_mo.F +++ b/src/tce/gradients/cisdtq_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_1pdm_hh_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -44,7 +44,7 @@ C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p END SUBROUTINE cisdtq_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -172,7 +172,7 @@ C i0 ( h2 h1 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE cisdtq_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -348,7 +348,7 @@ C i0 ( h2 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE cisdtq_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 )_t * y ( h2 h6 h7 p3 p4 p5 )_y @@ -571,7 +571,7 @@ C i0 ( h2 h1 )_yt + = -1/12 * Sum ( h6 h7 p3 p4 p5 ) * t ( p3 p4 p5 h1 h6 h7 END SUBROUTINE cisdtq_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_hh_mo.F,v 1.1 2008-10-01 22:19:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yt + = -1/144 * Sum ( h7 h8 h9 p3 p4 p5 p6 ) * t ( p3 p4 p5 p6 h1 h7 h8 h9 )_t * y ( h2 h7 h8 h9 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_1pdm_pp_mo.F b/src/tce/gradients/cisdtq_1pdm_pp_mo.F index a08483b713..60ea3a7051 100644 --- a/src/tce/gradients/cisdtq_1pdm_pp_mo.F +++ b/src/tce/gradients/cisdtq_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_1pdm_pp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2,d_ &y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offse &t,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -44,7 +44,7 @@ C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 END SUBROUTINE cisdtq_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -172,7 +172,7 @@ C i0 ( p1 p2 )_yt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE cisdtq_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -348,7 +348,7 @@ C i0 ( p1 p2 )_yt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 END SUBROUTINE cisdtq_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 )_t * y ( h5 h6 h7 p2 p3 p4 )_y @@ -571,7 +571,7 @@ C i0 ( p1 p2 )_yt + = 1/12 * Sum ( h5 h6 h7 p3 p4 ) * t ( p1 p3 p4 h5 h6 h7 END SUBROUTINE cisdtq_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: cisdtq_1pdm_pp_mo.F,v 1.1 2008-10-01 22:19:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yt + = 1/144 * Sum ( h6 h7 h8 h9 p3 p4 p5 ) * t ( p1 p3 p4 p5 h6 h7 h8 h9 )_t * y ( h6 h7 h8 h9 p2 p3 p4 p5 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F b/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F index 0f87c73638..6d63cf80db 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhhh_mo(d_i0,d_t2,d_t3,d_t4,d_y2,d_y3,d_y4, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 END SUBROUTINE cisdtq_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -199,7 +199,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE cisdtq_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h8 )_t * y ( h3 h4 h8 p5 p6 p7 )_y @@ -419,7 +419,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/6 * Sum ( h8 p5 p6 p7 ) * t ( p5 p6 p7 h1 h2 h END SUBROUTINE cisdtq_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhh_mo.F,v 1.1 2008-10-01 22:19:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/48 * Sum ( h9 h10 p5 p6 p7 p8 ) * t ( p5 p6 p7 p8 h1 h2 h9 h10 )_t * y ( h3 h4 h9 h10 p5 p6 p7 p8 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F b/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F index e734fc5f83..9077774490 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhhp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhhp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 h1 p2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 END SUBROUTINE cisdtq_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * y ( h3 h4 p2 p5 )_y @@ -200,7 +200,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h3 h4 h7 p2 p5 p6 )_y @@ -457,7 +457,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hhhp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhhp_mo.F,v 1.1 2008-10-01 22:20:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 p2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p5 p6 p7 h1 h8 h9 )_t * y ( h3 h4 h8 h9 p2 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F b/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F index 9d2547cb8e..ddc23e3944 100644 --- a/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hhpp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hhpp_mo(d_i0,d_t0,d_t1,d_t2,d_y2,d_y3,d_y4, &k_i0_offset,k_t0_offset,k_t1_offset,k_t2_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -37,7 +37,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t END SUBROUTINE cisdtq_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y @@ -170,7 +170,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * t ( )_t * y ( h3 h4 p1 p2 )_y END SUBROUTINE cisdtq_2pdm_hhpp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 p1 p2 p5 )_y @@ -387,7 +387,7 @@ C i0 ( h3 h4 p1 p2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * y ( h3 h4 h6 END SUBROUTINE cisdtq_2pdm_hhpp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hhpp_mo.F,v 1.1 2008-10-01 22:20:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h3 h4 h7 h8 p1 p2 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hphh_mo.F b/src/tce/gradients/cisdtq_2pdm_hphh_mo.F index ebfffa693f..7d36f7e71c 100644 --- a/src/tce/gradients/cisdtq_2pdm_hphh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hphh_mo(d_i0,d_t2,d_t3,d_t4,d_y1,d_y2,d_y3, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y1_offset,k_y2_o &ffset,k_y3_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p4 h1 h2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p4 END SUBROUTINE cisdtq_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p4 p5 h1 h2 )_t * y ( h3 p5 )_y @@ -201,7 +201,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/4 * P( 2 ) * Sum ( h7 p5 p6 ) * t ( p4 p5 p6 h1 h2 h7 )_t * y ( h3 h7 p5 p6 )_y @@ -460,7 +460,7 @@ c &)) END SUBROUTINE cisdtq_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphh_mo.F,v 1.1 2008-10-01 22:20:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt + = 1/24 * P( 2 ) * Sum ( h8 h9 p5 p6 p7 ) * t ( p4 p5 p6 p7 h1 h2 h8 h9 )_t * y ( h3 h8 h9 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hphp_mo.F b/src/tce/gradients/cisdtq_2pdm_hphp_mo.F index bb44abbe64..023846bea3 100644 --- a/src/tce/gradients/cisdtq_2pdm_hphp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_y2, &d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_off &set,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -44,7 +44,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t END SUBROUTINE cisdtq_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * t ( p2 h1 )_t * y ( h3 p4 )_y @@ -201,7 +201,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -425,7 +425,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/16 * P( 4 ) * Sum ( h7 h8 p5 p6 ) * t ( p2 p5 p6 h1 h7 h8 )_t * y ( h3 h7 h8 p4 p5 p6 )_y @@ -769,7 +769,7 @@ c & - 1))))) END SUBROUTINE cisdtq_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hphp_mo.F,v 1.1 2008-10-01 22:21:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/144 * P( 4 ) * Sum ( h8 h9 h10 p5 p6 p7 ) * t ( p2 p5 p6 p7 h1 h8 h9 h10 )_t * y ( h3 h8 h9 h10 p4 p5 p6 p7 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_hppp_mo.F b/src/tce/gradients/cisdtq_2pdm_hppp_mo.F index cbf0f7550b..5bd17f06c8 100644 --- a/src/tce/gradients/cisdtq_2pdm_hppp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_hppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_hppp_mo(d_i0,d_t1,d_t2,d_t3,d_y2,d_y3,d_y4, &k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -37,7 +37,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 END SUBROUTINE cisdtq_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * y ( h3 h5 p2 p4 )_y @@ -200,7 +200,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h3 h6 h7 p2 p4 p5 )_y @@ -454,7 +454,7 @@ C i0 ( h3 p1 p2 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h END SUBROUTINE cisdtq_2pdm_hppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_hppp_mo.F,v 1.1 2008-10-01 22:21:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p1 p2 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p1 p5 p6 h7 h8 h9 )_t * y ( h3 h7 h8 h9 p2 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pphh_mo.F b/src/tce/gradients/cisdtq_2pdm_pphh_mo.F index cf68cb5345..191ea33215 100644 --- a/src/tce/gradients/cisdtq_2pdm_pphh_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pphh_mo(d_i0,d_t2,d_t3,d_t4,d_y0,d_y1,d_y2, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y0_offset,k_y1_o &ffset,k_y2_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -37,7 +37,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h END SUBROUTINE cisdtq_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y @@ -174,7 +174,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * t ( p3 p4 h1 h2 )_t * y ( )_y END SUBROUTINE cisdtq_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * y ( h6 p5 )_y @@ -394,7 +394,7 @@ C i0 ( p3 p4 h1 h2 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p4 p5 h1 h2 h6 )_t * END SUBROUTINE cisdtq_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphh_mo.F,v 1.1 2008-10-01 22:21:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt + = 1/4 * Sum ( h7 h8 p5 p6 ) * t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t * y ( h7 h8 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pphp_mo.F b/src/tce/gradients/cisdtq_2pdm_pphp_mo.F index f3fbe40352..99e60a224d 100644 --- a/src/tce/gradients/cisdtq_2pdm_pphp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pphp_mo(d_i0,d_t2,d_t3,d_t4,d_y1,d_y2,d_y3, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y1_offset,k_y2_o &ffset,k_y3_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -37,7 +37,7 @@ C i0 ( p2 p3 h1 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p2 END SUBROUTINE cisdtq_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/2 * P( 2 ) * Sum ( h5 ) * t ( p2 p3 h1 h5 )_t * y ( h5 p4 )_y @@ -201,7 +201,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/4 * P( 2 ) * Sum ( h6 h7 p5 ) * t ( p2 p3 p5 h1 h6 h7 )_t * y ( h6 h7 p4 p5 )_y @@ -460,7 +460,7 @@ c & - noab - 1))))) END SUBROUTINE cisdtq_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pphp_mo.F,v 1.1 2008-10-01 22:22:15 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt + = 1/24 * P( 2 ) * Sum ( h7 h8 h9 p5 p6 ) * t ( p2 p3 p5 p6 h1 h7 h8 h9 )_t * y ( h7 h8 h9 p4 p5 p6 )_y diff --git a/src/tce/gradients/cisdtq_2pdm_pppp_mo.F b/src/tce/gradients/cisdtq_2pdm_pppp_mo.F index fc308d9777..6992122819 100644 --- a/src/tce/gradients/cisdtq_2pdm_pppp_mo.F +++ b/src/tce/gradients/cisdtq_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE cisdtq_2pdm_pppp_mo(d_i0,d_t2,d_t3,d_t4,d_y2,d_y3,d_y4, &k_i0_offset,k_t2_offset,k_t3_offset,k_t4_offset,k_y2_offset,k_y3_o &ffset,k_y4_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 END SUBROUTINE cisdtq_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -200,7 +200,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE cisdtq_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h8 )_t * y ( h6 h7 h8 p3 p4 p5 )_y @@ -421,7 +421,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/6 * Sum ( h6 h7 h8 p5 ) * t ( p1 p2 p5 h6 h7 h END SUBROUTINE cisdtq_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: cisdtq_2pdm_pppp_mo.F,v 1.1 2008-10-01 22:22:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/48 * Sum ( h7 h8 h9 h10 p5 p6 ) * t ( p1 p2 p5 p6 h7 h8 h9 h10 )_t * y ( h7 h8 h9 h10 p3 p4 p5 p6 )_y diff --git a/src/tce/gradients/eomccsd_1pdm_hh_mo.F b/src/tce/gradients/eomccsd_1pdm_hh_mo.F index d5b6e6d365..77d4ec53be 100644 --- a/src/tce/gradients/eomccsd_1pdm_hh_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_hh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_hh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -72,7 +72,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p END SUBROUTINE eomccsd_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y @@ -200,7 +200,7 @@ C i0 ( h2 h1 )_yx + = -1 * Sum ( p3 ) * x ( p3 h1 )_x * y ( h2 p3 )_y END SUBROUTINE eomccsd_1pdm_hh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 h5 p3 p4 )_y @@ -376,7 +376,7 @@ C i0 ( h2 h1 )_yx + = -1/2 * Sum ( h5 p3 p4 ) * x ( p3 p4 h1 h5 )_x * y ( h2 END SUBROUTINE eomccsd_1pdm_hh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt @@ -493,7 +493,7 @@ C i0 ( h1 h2 )_ytx + = -1 * x ( )_x * i1 ( h1 h2 )_yt END SUBROUTINE eomccsd_1pdm_hh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -621,7 +621,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_hh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -677,7 +677,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_1pdm_hh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y @@ -853,7 +853,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h2 END SUBROUTINE eomccsd_1pdm_hh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx @@ -981,7 +981,7 @@ C i0 ( h2 h1 )_yxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( h2 p3 )_yx END SUBROUTINE eomccsd_1pdm_hh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_y @@ -1142,7 +1142,7 @@ C i1 ( h1 p3 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h1 h5 p3 p4 )_ END SUBROUTINE OFFSET_eomccsd_1pdm_hh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p3 )_yx diff --git a/src/tce/gradients/eomccsd_1pdm_hp_mo.F b/src/tce/gradients/eomccsd_1pdm_hp_mo.F index d41a39dc15..1d3042baff 100644 --- a/src/tce/gradients/eomccsd_1pdm_hp_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_hp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_1pdm_hp_mo(d_i0,d_x0,d_x1,d_y1,d_y2,k_i0_offset &,k_x0_offset,k_x1_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_ END SUBROUTINE eomccsd_1pdm_hp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE eomccsd_1pdm_hp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h2 h4 p1 p3 )_y diff --git a/src/tce/gradients/eomccsd_1pdm_ph_mo.F b/src/tce/gradients/eomccsd_1pdm_ph_mo.F index 8015202a51..97423d9ac1 100644 --- a/src/tce/gradients/eomccsd_1pdm_ph_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_ph_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_ph_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -194,7 +194,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 END SUBROUTINE eomccsd_1pdm_ph_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_y @@ -356,7 +356,7 @@ C i0 ( p2 h1 )_yx + = 1 * Sum ( h4 p3 ) * x ( p2 p3 h1 h4 )_x * y ( h4 p3 )_ END SUBROUTINE eomccsd_1pdm_ph_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yx @@ -484,7 +484,7 @@ C i0 ( p2 h1 )_yxt + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h7 p4 )_y @@ -612,7 +612,7 @@ C i1 ( h7 h1 )_yx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * y ( h7 p4 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx @@ -668,7 +668,7 @@ C i1 ( h7 h1 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 h7 p4 p5 )_y @@ -844,7 +844,7 @@ C i1 ( h7 h1 )_yx + = -1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h1 h6 )_x * y ( h6 END SUBROUTINE eomccsd_1pdm_ph_mo_2_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ytx + = 1 * x ( )_x * i2 ( h7 h1 )_yt @@ -961,7 +961,7 @@ C i1 ( h7 h1 )_ytx + = 1 * x ( )_x * i2 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_2_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1089,7 +1089,7 @@ C i2 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt @@ -1145,7 +1145,7 @@ C i2 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_2_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -1321,7 +1321,7 @@ C i2 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1pdm_ph_mo_2_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_yx @@ -1449,7 +1449,7 @@ C i1 ( h7 h1 )_yxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h7 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_2_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h7 p3 p5 )_y @@ -1610,7 +1610,7 @@ C i2 ( h7 p3 )_yx + = -1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 h7 p3 p5 ) END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_2_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p3 )_yx @@ -1666,7 +1666,7 @@ C i2 ( h7 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt @@ -1794,7 +1794,7 @@ C i0 ( p2 h1 )_ytx + = -1 * Sum ( h7 ) * x ( p2 h7 )_x * i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y @@ -1922,7 +1922,7 @@ C i1 ( h7 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h7 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt @@ -1978,7 +1978,7 @@ C i1 ( h7 h1 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 h7 p3 p4 )_y @@ -2154,7 +2154,7 @@ C i1 ( h7 h1 )_yt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * y ( h5 END SUBROUTINE eomccsd_1pdm_ph_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx @@ -2274,7 +2274,7 @@ C i0 ( p2 h1 )_yxt + = 1 * t ( p2 h1 )_t * i1 ( )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y @@ -2391,7 +2391,7 @@ C i1 ( )_yx + = 1 * Sum ( h4 p3 ) * x ( p3 h4 )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -2425,7 +2425,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_4_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -2581,7 +2581,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 END SUBROUTINE eomccsd_1pdm_ph_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_yx @@ -2743,7 +2743,7 @@ C i0 ( p2 h1 )_yxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_1pdm_ph_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y @@ -2860,7 +2860,7 @@ C i1 ( h4 p3 )_yx + = 1 * x ( )_x * y ( h4 p3 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx @@ -2916,7 +2916,7 @@ C i1 ( h4 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_5_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -3077,7 +3077,7 @@ C i1 ( h4 p3 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h4 h6 p3 p5 )_ END SUBROUTINE eomccsd_1pdm_ph_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h5 h6 h1 p4 )_yt @@ -3243,7 +3243,7 @@ C i0 ( p2 h1 )_ytx + = 1/2 * Sum ( h5 h6 p4 ) * x ( p2 p4 h5 h6 )_x * i1 ( h END SUBROUTINE eomccsd_1pdm_ph_mo_6_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p4 )_y @@ -3397,7 +3397,7 @@ C i1 ( h5 h6 h1 p4 )_yt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h5 h6 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_6_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 p4 )_yt @@ -3469,7 +3469,7 @@ C i1 ( h5 h6 h1 p4 )_yt END SUBROUTINE eomccsd_1pdm_ph_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_yx @@ -3635,7 +3635,7 @@ C i0 ( p2 h1 )_yxt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( END SUBROUTINE eomccsd_1pdm_ph_mo_7_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p6 )_y @@ -3789,7 +3789,7 @@ C i1 ( h4 h5 h1 p3 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_7_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_yx @@ -3861,7 +3861,7 @@ C i1 ( h4 h5 h1 p3 )_yx END SUBROUTINE eomccsd_1pdm_ph_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt @@ -3978,7 +3978,7 @@ C i0 ( p2 h1 )_yttx + = 1/2 * x ( )_x * i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1pdm_ph_mo_8_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 h5 h1 p3 )_yt @@ -4144,7 +4144,7 @@ C i1 ( p2 h1 )_ytt + = -1 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i2 ( h4 END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_8_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 h1 )_ytt @@ -4200,7 +4200,7 @@ C i1 ( p2 h1 )_ytt END SUBROUTINE eomccsd_1pdm_ph_mo_8_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p6 )_y @@ -4354,7 +4354,7 @@ C i2 ( h4 h5 h1 p3 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h4 h5 p3 p END SUBROUTINE OFFSET_eomccsd_1pdm_ph_mo_8_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h5 h1 p3 )_yt diff --git a/src/tce/gradients/eomccsd_1pdm_pp_mo.F b/src/tce/gradients/eomccsd_1pdm_pp_mo.F index d9dbdda3a7..c6b51c43e0 100644 --- a/src/tce/gradients/eomccsd_1pdm_pp_mo.F +++ b/src/tce/gradients/eomccsd_1pdm_pp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_1pdm_pp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1,d &_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_ &x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -72,7 +72,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h END SUBROUTINE eomccsd_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y @@ -200,7 +200,7 @@ C i0 ( p1 p2 )_yx + = 1 * Sum ( h3 ) * x ( p1 h3 )_x * y ( h3 p2 )_y END SUBROUTINE eomccsd_1pdm_pp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -376,7 +376,7 @@ C i0 ( p1 p2 )_yx + = 1/2 * Sum ( h4 h5 p3 ) * x ( p1 p3 h4 h5 )_x * y ( h4 END SUBROUTINE eomccsd_1pdm_pp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx @@ -504,7 +504,7 @@ C i0 ( p1 p2 )_yxt + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * i1 ( h3 p2 )_yx END SUBROUTINE eomccsd_1pdm_pp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y @@ -621,7 +621,7 @@ C i1 ( h3 p1 )_yx + = 1 * x ( )_x * y ( h3 p1 )_y END SUBROUTINE OFFSET_eomccsd_1pdm_pp_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -677,7 +677,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_1pdm_pp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_y @@ -838,7 +838,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h5 p4 ) * x ( p4 h5 )_x * y ( h3 h5 p1 p4 )_ END SUBROUTINE eomccsd_1pdm_pp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt @@ -955,7 +955,7 @@ C i0 ( p1 p2 )_ytx + = 1/2 * x ( )_x * i1 ( p1 p2 )_yt END SUBROUTINE eomccsd_1pdm_pp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 p2 p3 )_y @@ -1131,7 +1131,7 @@ C i1 ( p1 p2 )_yt + = 1 * Sum ( h4 h5 p3 ) * t ( p1 p3 h4 h5 )_t * y ( h4 h5 END SUBROUTINE OFFSET_eomccsd_1pdm_pp_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p2 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F b/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F index ce9be08c0f..d0efa0f3bb 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhhh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hhhh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y2 &,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2_ &offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( h3 h4 p5 p6 )_y @@ -82,7 +82,7 @@ C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( h3 h4 p5 p6 )_y @@ -244,7 +244,7 @@ C i0 ( h3 h4 h1 h2 )_yx + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * y ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h1 h4 )_yxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( h2 h3 h4 p5 )_yx @@ -396,7 +396,7 @@ C i0 ( h2 h3 h1 h4 )_yxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h2 h3 p5 p6 )_y @@ -550,7 +550,7 @@ C i1 ( h2 h3 h1 p5 )_yx + = -1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h2 h3 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 p5 )_yx @@ -622,7 +622,7 @@ C i1 ( h2 h3 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hhhh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 h3 h4 )_ytx + = 1/2 * x ( )_x * i1 ( h1 h2 h3 h4 )_yt @@ -754,7 +754,7 @@ C i0 ( h1 h2 h3 h4 )_ytx + = 1/2 * x ( )_x * i1 ( h1 h2 h3 h4 )_yt END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -916,7 +916,7 @@ C i1 ( h3 h4 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h1 h2 )_yt @@ -988,7 +988,7 @@ C i1 ( h3 h4 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h3 h4 p5 )_yt @@ -1140,7 +1140,7 @@ C i1 ( h2 h3 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hhhh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p6 )_y @@ -1294,7 +1294,7 @@ C i2 ( h2 h3 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h3 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_hhhh_mo_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h3 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F b/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F index 3318c03c3a..72d68669f2 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhhp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hhhp_mo(d_i0,d_t1,d_x0,d_x1,d_y2,k_i0_offs &et,k_t1_offset,k_x0_offset,k_x1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p5 h2 )_x * y ( h3 h4 p1 p5 )_y @@ -45,7 +45,7 @@ C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x END SUBROUTINE eomccsd_2pdm_hhhp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p5 h2 )_x * y ( h3 h4 p1 p5 )_y @@ -212,7 +212,7 @@ c END SUBROUTINE eomccsd_2pdm_hhhp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h3 h4 p1 )_xty + = -1/2 * P( 2 ) * Sum ( p5 ) * y ( h2 h3 p1 p5 )_y * i1 ( p5 h4 )_xt @@ -380,7 +380,7 @@ c &)) END SUBROUTINE eomccsd_2pdm_hhhp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x @@ -500,7 +500,7 @@ C i1 ( p5 h2 )_xt + = 1 * t ( p5 h2 )_t * x ( )_x END SUBROUTINE OFFSET_eomccsd_2pdm_hhhp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 h2 )_xt diff --git a/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F b/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F index b893a6cc7d..e780e3b4de 100644 --- a/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hhpp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hhpp_mo(d_i0,d_x0,d_y2,k_i0_offset,k_x0_of &fset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y END SUBROUTINE eomccsd_2pdm_hhpp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yx + = 1 * x ( )_x * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/eomccsd_2pdm_hphh_mo.F b/src/tce/gradients/eomccsd_2pdm_hphh_mo.F index 71435b1f9a..0f81454da7 100644 --- a/src/tce/gradients/eomccsd_2pdm_hphh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hphh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * y ( h4 p5 )_y @@ -254,7 +254,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yx + = -1/2 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * y ( h4 p5 )_y @@ -422,7 +422,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytx + = -1/2 * P( 4 ) * x ( p3 h1 )_x * i1 ( h2 h4 )_yt @@ -599,7 +599,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -727,7 +727,7 @@ C i1 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt @@ -783,7 +783,7 @@ C i1 ( h2 h1 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -959,7 +959,7 @@ C i1 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yxt + = -1/2 * P( 4 ) * t ( p3 h1 )_t * i1 ( h2 h4 )_yx @@ -1134,7 +1134,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1 * Sum ( p5 ) * x ( p5 h1 )_x * y ( h2 p5 )_y @@ -1262,7 +1262,7 @@ C i1 ( h2 h1 )_yx + = 1 * Sum ( p5 ) * x ( p5 h1 )_x * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx @@ -1318,7 +1318,7 @@ C i1 ( h2 h1 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h1 h7 )_x * y ( h2 h7 p5 p6 )_y @@ -1494,7 +1494,7 @@ C i1 ( h2 h1 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h1 h7 )_x * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h1 h2 )_yt @@ -1611,7 +1611,7 @@ C i1 ( h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y @@ -1739,7 +1739,7 @@ C i2 ( h2 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt @@ -1795,7 +1795,7 @@ C i2 ( h2 h1 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 h7 p5 p6 )_y @@ -1971,7 +1971,7 @@ C i2 ( h2 h1 )_yt + = 1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h2 END SUBROUTINE eomccsd_2pdm_hphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h1 )_yxt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 p5 )_yx @@ -2099,7 +2099,7 @@ C i1 ( h2 h1 )_yxt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_y @@ -2260,7 +2260,7 @@ C i2 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h1 p5 )_yx @@ -2316,7 +2316,7 @@ C i2 ( h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( h4 p5 )_yx @@ -2485,7 +2485,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx + = 1 * x ( )_x * y ( h1 p5 )_y @@ -2602,7 +2602,7 @@ C i1 ( h1 p5 )_yx + = 1 * x ( )_x * y ( h1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx @@ -2658,7 +2658,7 @@ C i1 ( h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_y @@ -2819,7 +2819,7 @@ C i1 ( h1 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h1 h7 p5 p6 )_ END SUBROUTINE eomccsd_2pdm_hphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_yxt + = 1/4 * P( 2 ) * Sum ( h8 ) * t ( p3 h8 )_t * i1 ( h1 h8 h2 h4 )_yx @@ -2976,7 +2976,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h8 h1 h2 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * y ( h4 h8 p6 p7 )_y @@ -3148,7 +3148,7 @@ C i1 ( h4 h8 h1 h2 )_yx + = -1 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h8 h1 h2 )_yx @@ -3220,7 +3220,7 @@ C i1 ( h4 h8 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h8 h1 h4 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h8 h4 p5 )_yx @@ -3372,7 +3372,7 @@ C i1 ( h2 h8 h1 h4 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h8 p5 p7 )_y @@ -3542,7 +3542,7 @@ C i2 ( h2 h8 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h8 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 p5 )_yx @@ -3614,7 +3614,7 @@ C i2 ( h2 h8 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h8 h2 h4 )_ytx + = 1 * x ( )_x * i2 ( h1 h8 h2 h4 )_yt @@ -3746,7 +3746,7 @@ C i1 ( h1 h8 h2 h4 )_ytx + = 1 * x ( )_x * i2 ( h1 h8 h2 h4 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h8 p5 p6 )_y @@ -3918,7 +3918,7 @@ C i2 ( h4 h8 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h8 h1 h2 )_yt @@ -3990,7 +3990,7 @@ C i2 ( h4 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h2 h8 h4 p5 )_yt @@ -4142,7 +4142,7 @@ C i2 ( h2 h8 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_5_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 p5 p6 )_y @@ -4312,7 +4312,7 @@ C i3 ( h2 h8 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h8 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_5_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h8 h1 p5 )_yt @@ -4384,7 +4384,7 @@ C i3 ( h2 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_ytx + = -1/2 * P( 4 ) * Sum ( h7 p6 ) * x ( p3 p6 h1 h7 )_x * i1 ( h2 h7 h4 p6 )_yt @@ -4601,7 +4601,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 p6 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -4771,7 +4771,7 @@ C i1 ( h2 h7 h1 p6 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 p6 )_yt @@ -4843,7 +4843,7 @@ C i1 ( h2 h7 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p3 h1 h4 )_yxt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h2 h6 h4 p5 )_yx @@ -5059,7 +5059,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h6 p5 p7 )_y @@ -5229,7 +5229,7 @@ C i1 ( h2 h6 h1 p5 )_yx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h1 p5 )_yx @@ -5301,7 +5301,7 @@ C i1 ( h2 h6 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_hphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h1 h6 h2 p5 )_ytx + = 1 * x ( )_x * i2 ( h1 h6 h2 p5 )_yt @@ -5434,7 +5434,7 @@ C i1 ( h1 h6 h2 p5 )_ytx + = 1 * x ( )_x * i2 ( h1 h6 h2 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 )_y @@ -5604,7 +5604,7 @@ C i2 ( h2 h6 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h2 h6 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h1 p5 )_yt @@ -5676,7 +5676,7 @@ C i2 ( h2 h6 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p3 h2 h4 )_ytx + = 1/4 * P( 2 ) * Sum ( h7 ) * x ( p3 h7 )_x * i1 ( h1 h7 h2 h4 )_yt @@ -5834,7 +5834,7 @@ c END SUBROUTINE eomccsd_2pdm_hphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h4 h7 p5 p6 )_y @@ -6006,7 +6006,7 @@ C i1 ( h4 h7 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h1 h2 )_yt @@ -6078,7 +6078,7 @@ C i1 ( h4 h7 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_hphh_mo_8_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h2 h7 h4 p5 )_yt @@ -6230,7 +6230,7 @@ C i1 ( h2 h7 h1 h4 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_hphh_mo_8_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 )_y @@ -6400,7 +6400,7 @@ C i2 ( h2 h7 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h2 h7 p5 p6 END SUBROUTINE OFFSET_eomccsd_2pdm_hphh_mo_8_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_hphp_mo.F b/src/tce/gradients/eomccsd_2pdm_hphp_mo.F index 9cc23155bb..ad056bbf21 100644 --- a/src/tce/gradients/eomccsd_2pdm_hphp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_hphp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * x ( p1 h2 )_x * y ( h4 p3 )_y @@ -118,7 +118,7 @@ C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y END SUBROUTINE eomccsd_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * x ( p1 h2 )_x * y ( h4 p3 )_y @@ -280,7 +280,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yx + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * x ( p1 p5 h2 h6 )_x * y ( h4 h6 p3 p5 )_y @@ -509,7 +509,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yxt + = -1/4 * P( 4 ) * t ( p1 h2 )_t * i1 ( h4 p3 )_yx @@ -671,7 +671,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y @@ -788,7 +788,7 @@ C i1 ( h2 p1 )_yx + = 1 * x ( )_x * y ( h2 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx @@ -844,7 +844,7 @@ C i1 ( h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_hphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h2 h6 p1 p5 )_y @@ -1005,7 +1005,7 @@ C i1 ( h2 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h2 h6 p1 p5 )_ END SUBROUTINE eomccsd_2pdm_hphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_yxt + = 1/2 * P( 2 ) * Sum ( h7 ) * t ( p1 h7 )_t * i1 ( h2 h7 h4 p3 )_yx @@ -1163,7 +1163,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h2 p1 )_yx + = 1/2 * P( 2 ) * Sum ( p6 ) * x ( p6 h2 )_x * y ( h4 h7 p1 p6 )_y @@ -1344,7 +1344,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h7 h2 p1 )_yx @@ -1416,7 +1416,7 @@ C i1 ( h4 h7 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_hphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 h4 p1 )_ytx + = 1 * x ( )_x * i2 ( h2 h7 h4 p1 )_yt @@ -1549,7 +1549,7 @@ C i1 ( h2 h7 h4 p1 )_ytx + = 1 * x ( )_x * i2 ( h2 h7 h4 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h7 p1 p5 )_y @@ -1730,7 +1730,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h7 h2 p1 )_yt @@ -1802,7 +1802,7 @@ C i2 ( h4 h7 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 h4 p3 )_ytx + = 1/2 * P( 2 ) * Sum ( h6 ) * x ( p1 h6 )_x * i1 ( h2 h6 h4 p3 )_yt @@ -1959,7 +1959,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h4 h6 p1 p5 )_y @@ -2140,7 +2140,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h6 h2 p1 )_yt @@ -2212,7 +2212,7 @@ C i1 ( h4 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_hphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 h2 p3 )_yxt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i1 ( h4 h6 p3 p5 )_yx @@ -2414,7 +2414,7 @@ c END SUBROUTINE eomccsd_2pdm_hphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y @@ -2573,7 +2573,7 @@ C i1 ( h2 h6 p1 p5 )_yx + = 1 * x ( )_x * y ( h2 h6 p1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_hphp_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 p1 p5 )_yx diff --git a/src/tce/gradients/eomccsd_2pdm_hppp_mo.F b/src/tce/gradients/eomccsd_2pdm_hppp_mo.F index a4ce1a83e2..6b5c866eae 100644 --- a/src/tce/gradients/eomccsd_2pdm_hppp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_hppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_hppp_mo(d_i0,d_t1,d_x0,d_x1,d_y2,k_i0_offs &et,k_t1_offset,k_x0_offset,k_x1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -45,7 +45,7 @@ C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x END SUBROUTINE eomccsd_2pdm_hppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p1 p2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 h5 )_x * y ( h4 h5 p2 p3 )_y @@ -212,7 +212,7 @@ c END SUBROUTINE eomccsd_2pdm_hppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h4 p3 p1 p2 )_xty + = -1/2 * P( 2 ) * Sum ( h5 ) * y ( h4 h5 p1 p2 )_y * i1 ( p3 h5 )_xt @@ -380,7 +380,7 @@ c END SUBROUTINE eomccsd_2pdm_hppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x @@ -500,7 +500,7 @@ C i1 ( p1 h5 )_xt + = 1 * t ( p1 h5 )_t * x ( )_x END SUBROUTINE OFFSET_eomccsd_2pdm_hppp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h5 )_xt diff --git a/src/tce/gradients/eomccsd_2pdm_pphh_mo.F b/src/tce/gradients/eomccsd_2pdm_pphh_mo.F index db9e07414c..f87e95be18 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphh_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphh_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pphh_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_yx @@ -703,7 +703,7 @@ C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y END SUBROUTINE eomccsd_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_yx @@ -857,7 +857,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * y ( h10 p6 )_y @@ -1012,7 +1012,7 @@ C i1 ( h10 p3 h1 h2 )_yx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * y ( h10 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yx @@ -1084,7 +1084,7 @@ C i1 ( h10 p3 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_yx @@ -1239,7 +1239,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx + = 1 * x ( )_x * y ( h10 p5 )_y @@ -1356,7 +1356,7 @@ C i2 ( h10 p5 )_yx + = 1 * x ( )_x * y ( h10 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx @@ -1412,7 +1412,7 @@ C i2 ( h10 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h8 h10 p5 p7 )_y @@ -1573,7 +1573,7 @@ C i2 ( h10 p5 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h8 h10 p5 p7 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = 1/4 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_yx @@ -1727,7 +1727,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = 1/4 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h9 h10 p7 p8 )_y @@ -1889,7 +1889,7 @@ C i2 ( h9 h10 h1 h2 )_yx + = 1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yx @@ -1961,7 +1961,7 @@ C i2 ( h9 h10 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yx @@ -2113,7 +2113,7 @@ C i2 ( h9 h10 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h10 p5 p8 )_y @@ -2267,7 +2267,7 @@ C i3 ( h9 h10 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yx @@ -2339,7 +2339,7 @@ C i3 ( h9 h10 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytx + = 1 * x ( )_x * i3 ( h9 h10 h1 h2 )_yt @@ -2471,7 +2471,7 @@ C i2 ( h9 h10 h1 h2 )_ytx + = 1 * x ( )_x * i3 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -2633,7 +2633,7 @@ C i3 ( h9 h10 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_3_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_yt @@ -2705,7 +2705,7 @@ C i3 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i4 ( h9 h10 h2 p5 )_yt @@ -2857,7 +2857,7 @@ C i3 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i4 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_3_3_2_1(d_a,k_a_offset,d_b,k_b_o &ffset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -3011,7 +3011,7 @@ C i4 ( h9 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_3_3_2_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h9 h10 h1 p5 )_yt @@ -3083,7 +3083,7 @@ C i4 ( h9 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * i2 ( h8 h10 h2 p7 )_yt @@ -3280,7 +3280,7 @@ C i1 ( h10 p3 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h10 p5 p7 )_y @@ -3434,7 +3434,7 @@ C i2 ( h8 h10 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p7 )_yt @@ -3506,7 +3506,7 @@ C i2 ( h8 h10 h1 p7 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 )_t * i2 ( h7 h10 h2 p9 )_yx @@ -3703,7 +3703,7 @@ C i1 ( h10 p3 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h7 p9 ) * t ( p3 p9 h1 h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h7 h10 p8 p9 )_y @@ -3857,7 +3857,7 @@ C i2 ( h7 h10 h1 p9 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h7 h10 p8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_5_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_yx @@ -3929,7 +3929,7 @@ C i2 ( h7 h10 h1 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h10 h1 p9 )_ytx + = 1 * x ( )_x * i3 ( h7 h10 h1 p9 )_yt @@ -4062,7 +4062,7 @@ C i2 ( h7 h10 h1 p9 )_ytx + = 1 * x ( )_x * i3 ( h7 h10 h1 p9 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_5_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h10 p5 p9 )_y @@ -4216,7 +4216,7 @@ C i3 ( h7 h10 h1 p9 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_5_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h10 h1 p9 )_yt @@ -4288,7 +4288,7 @@ C i3 ( h7 h10 h1 p9 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_ytx + = 1/2 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_yt @@ -4442,7 +4442,7 @@ C i1 ( h10 p3 h1 h2 )_ytx + = 1/2 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h8 h10 p5 p6 )_y @@ -4604,7 +4604,7 @@ C i2 ( h8 h10 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_6_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_yt @@ -4676,7 +4676,7 @@ C i2 ( h8 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_yt @@ -4828,7 +4828,7 @@ C i2 ( h8 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_1_6_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h10 p5 p6 )_y @@ -4982,7 +4982,7 @@ C i3 ( h8 h10 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h8 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_1_6_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_yt @@ -5054,7 +5054,7 @@ C i3 ( h8 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 p4 h1 h9 )_x * i1 ( h9 h2 )_yt @@ -5219,7 +5219,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 p4 h1 h9 )_x END SUBROUTINE eomccsd_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -5347,7 +5347,7 @@ C i1 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt @@ -5403,7 +5403,7 @@ C i1 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -5579,7 +5579,7 @@ C i1 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yx @@ -5741,7 +5741,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p3 p5 h1 h6 )_x * y ( h6 p5 )_y @@ -5903,7 +5903,7 @@ C i1 ( p3 h1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p3 p5 h1 h6 )_x * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx @@ -5959,7 +5959,7 @@ C i1 ( p3 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = -1 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h10 h1 )_yx @@ -6087,7 +6087,7 @@ C i1 ( p3 h1 )_yxt + = -1 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h10 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h10 p6 )_y @@ -6215,7 +6215,7 @@ C i2 ( h10 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h10 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx @@ -6271,7 +6271,7 @@ C i2 ( h10 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h8 h10 p6 p7 )_y @@ -6447,7 +6447,7 @@ C i2 ( h10 h1 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_ytx + = 1/2 * x ( )_x * i3 ( h10 h1 )_yt @@ -6564,7 +6564,7 @@ C i2 ( h10 h1 )_ytx + = 1/2 * x ( )_x * i3 ( h10 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i4 ( h10 p7 )_y @@ -6692,7 +6692,7 @@ C i3 ( h10 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i4 ( h10 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_3_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt @@ -6748,7 +6748,7 @@ C i3 ( h10 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y @@ -6833,7 +6833,7 @@ C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_3_1_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y @@ -6889,7 +6889,7 @@ C i4 ( h10 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y @@ -6974,7 +6974,7 @@ C i4 ( h10 p7 )_y + = 1 * y ( h10 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_3_2(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h10 p6 p7 )_y @@ -7150,7 +7150,7 @@ C i3 ( h10 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h1 )_yxt + = 1/2 * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h10 p9 )_yx @@ -7278,7 +7278,7 @@ C i2 ( h10 h1 )_yxt + = 1/2 * Sum ( p9 ) * t ( p9 h1 )_t * i3 ( h10 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p9 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * i4 ( h8 h10 p7 p9 )_y @@ -7439,7 +7439,7 @@ C i3 ( h10 p9 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * i4 ( h8 h10 p7 p9 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_4_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p9 )_yx @@ -7495,7 +7495,7 @@ C i3 ( h10 p9 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1_1(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y @@ -7595,7 +7595,7 @@ C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_2_4_1_1(l_a_offset,k_a_of &fset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y @@ -7665,7 +7665,7 @@ C i4 ( h8 h10 p7 p9 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_2_4_1_2(d_a,k_a_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y @@ -7765,7 +7765,7 @@ C i4 ( h8 h10 p7 p9 )_y + = 1 * y ( h8 h10 p7 p9 )_y END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytx + = -1 * Sum ( h9 ) * x ( p3 h9 )_x * i2 ( h9 h1 )_yt @@ -7893,7 +7893,7 @@ C i1 ( p3 h1 )_ytx + = -1 * Sum ( h9 ) * x ( p3 h9 )_x * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -8021,7 +8021,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -8077,7 +8077,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -8253,7 +8253,7 @@ C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = 1/2 * t ( p3 h1 )_t * i2 ( )_yx @@ -8373,7 +8373,7 @@ C i1 ( p3 h1 )_yxt + = 1/2 * t ( p3 h1 )_t * i2 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -8490,7 +8490,7 @@ C i2 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -8524,7 +8524,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_4_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -8680,7 +8680,7 @@ C i2 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 p5 )_yx @@ -8842,7 +8842,7 @@ C i1 ( p3 h1 )_yxt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 p5 END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx + = 1 * x ( )_x * y ( h6 p5 )_y @@ -8959,7 +8959,7 @@ C i2 ( h6 p5 )_yx + = 1 * x ( )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_5_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx @@ -9015,7 +9015,7 @@ C i2 ( h6 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_5_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p5 p7 )_y @@ -9176,7 +9176,7 @@ C i2 ( h6 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p5 p7 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_3_6(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytx + = 1/2 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * i2 ( h7 h8 h1 p6 )_yt @@ -9342,7 +9342,7 @@ C i1 ( p3 h1 )_ytx + = 1/2 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_mo_3_6_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -9496,7 +9496,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_6_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -9568,7 +9568,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_7(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yxt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 h1 p5 )_yx @@ -9734,7 +9734,7 @@ C i1 ( p3 h1 )_yxt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_3_7_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h6 h7 p5 p8 )_y @@ -9888,7 +9888,7 @@ C i2 ( h6 h7 h1 p5 )_yx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h6 h7 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_7_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yx @@ -9960,7 +9960,7 @@ C i2 ( h6 h7 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yttx + = -1/2 * x ( )_x * i2 ( p3 h1 )_ytt @@ -10077,7 +10077,7 @@ C i1 ( p3 h1 )_yttx + = -1/2 * x ( )_x * i2 ( p3 h1 )_ytt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 h1 )_ytt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i3 ( h7 h8 h1 p6 )_yt @@ -10243,7 +10243,7 @@ C i2 ( p3 h1 )_ytt + = -1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i3 ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_8_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 h1 )_ytt @@ -10299,7 +10299,7 @@ C i2 ( p3 h1 )_ytt END SUBROUTINE eomccsd_2pdm_pphh_mo_3_8_1_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -10453,7 +10453,7 @@ C i3 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_3_8_1_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h7 h8 h1 p6 )_yt @@ -10525,7 +10525,7 @@ C i3 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1 * P( 4 ) * x ( p3 h1 )_x * i1 ( p4 h2 )_yt @@ -10687,7 +10687,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1 * P( 4 ) * x ( p3 h1 )_x * i1 ( p4 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -10849,7 +10849,7 @@ C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt @@ -10905,7 +10905,7 @@ C i1 ( p3 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -11033,7 +11033,7 @@ C i1 ( p3 h1 )_ytt + = -1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y @@ -11161,7 +11161,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h9 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -11217,7 +11217,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_4_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 h9 p5 p6 )_y @@ -11393,7 +11393,7 @@ C i2 ( h9 h1 )_yt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * y ( h7 END SUBROUTINE eomccsd_2pdm_pphh_mo_4_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( h6 h7 h1 p5 )_yt @@ -11559,7 +11559,7 @@ C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_4_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p8 )_y @@ -11713,7 +11713,7 @@ C i2 ( h6 h7 h1 p5 )_yt + = -1 * Sum ( p8 ) * t ( p8 h1 )_t * y ( h6 h7 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_4_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h7 h1 p5 )_yt @@ -11785,7 +11785,7 @@ C i2 ( h6 h7 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yx @@ -11950,7 +11950,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h5 p6 )_y @@ -12078,7 +12078,7 @@ C i1 ( h5 h1 )_yx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx @@ -12134,7 +12134,7 @@ C i1 ( h5 h1 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h5 h8 p6 p7 )_y @@ -12310,7 +12310,7 @@ C i1 ( h5 h1 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h1 h8 )_x * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ytx + = 1 * x ( )_x * i2 ( h5 h1 )_yt @@ -12427,7 +12427,7 @@ C i1 ( h5 h1 )_ytx + = 1 * x ( )_x * i2 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -12555,7 +12555,7 @@ C i2 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt @@ -12611,7 +12611,7 @@ C i2 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_5_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -12787,7 +12787,7 @@ C i2 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_mo_5_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_yx @@ -12915,7 +12915,7 @@ C i1 ( h5 h1 )_yxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h5 h8 p6 p7 )_y @@ -13076,7 +13076,7 @@ C i2 ( h5 p6 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h5 h8 p6 p7 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_5_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_yx @@ -13132,7 +13132,7 @@ C i2 ( h5 p6 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_yt @@ -13286,7 +13286,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -13441,7 +13441,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -13513,7 +13513,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_6_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_yt @@ -13710,7 +13710,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_2pdm_pphh_mo_6_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h6 h9 p5 p7 )_y @@ -13864,7 +13864,7 @@ C i2 ( h6 h9 h1 p5 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * y ( h6 h9 p5 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_6_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_yt @@ -13936,7 +13936,7 @@ C i2 ( h6 h9 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * t ( p3 p4 h1 h2 )_t * i1 ( )_yx @@ -14073,7 +14073,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * t ( p3 p4 h1 h2 )_t * i1 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -14190,7 +14190,7 @@ C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -14224,7 +14224,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -14380,7 +14380,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_2pdm_pphh_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1/2 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_yt @@ -14545,7 +14545,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1/2 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x END SUBROUTINE eomccsd_2pdm_pphh_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * y ( h6 h7 p5 p8 )_y @@ -14721,7 +14721,7 @@ C i1 ( p3 p8 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * y ( h6 h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_yt @@ -14777,7 +14777,7 @@ C i1 ( p3 p8 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1/4 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * i1 ( h9 h11 h1 h2 )_yx @@ -14940,7 +14940,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1/4 * Sum ( h11 h9 ) * t ( p3 p4 h9 h11 )_t * END SUBROUTINE eomccsd_2pdm_pphh_mo_9_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( h9 h11 p7 p8 )_y @@ -15102,7 +15102,7 @@ C i1 ( h9 h11 h1 h2 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yx @@ -15174,7 +15174,7 @@ C i1 ( h9 h11 h1 h2 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_9_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h9 h11 h2 p7 )_yx @@ -15326,7 +15326,7 @@ C i1 ( h9 h11 h1 h2 )_yxt + = -2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_2pdm_pphh_mo_9_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p7 )_yx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h11 p7 p8 )_y @@ -15480,7 +15480,7 @@ C i2 ( h9 h11 h1 p7 )_yx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * y ( h9 h11 p7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 p7 )_yx @@ -15552,7 +15552,7 @@ C i2 ( h9 h11 h1 p7 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h11 h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h9 h11 h1 h2 )_yt @@ -15684,7 +15684,7 @@ C i1 ( h9 h11 h1 h2 )_ytx + = 1 * x ( )_x * i2 ( h9 h11 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h9 h11 p5 p6 )_y @@ -15846,7 +15846,7 @@ C i2 ( h9 h11 h1 h2 )_yt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_yt @@ -15918,7 +15918,7 @@ C i2 ( h9 h11 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h11 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h11 h2 p5 )_yt @@ -16070,7 +16070,7 @@ C i2 ( h9 h11 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_mo_9_3_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h11 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h11 p5 p6 )_y @@ -16224,7 +16224,7 @@ C i3 ( h9 h11 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h11 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_9_3_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h11 h1 p5 )_yt @@ -16296,7 +16296,7 @@ C i3 ( h9 h11 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_10(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yx @@ -16499,7 +16499,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_10_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * y ( h6 h8 p5 p7 )_y @@ -16702,7 +16702,7 @@ C i1 ( h6 p3 h1 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p3 p7 h1 h8 )_x * y ( h6 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_10_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yx @@ -16774,7 +16774,7 @@ C i1 ( h6 p3 h1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_10_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yxt + = 1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h6 h8 p5 p7 )_yx @@ -16977,7 +16977,7 @@ C i1 ( h6 p3 h1 p5 )_yxt + = 1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 END SUBROUTINE eomccsd_2pdm_pphh_mo_10_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p5 p7 )_yx + = 1 * x ( )_x * y ( h6 h8 p5 p7 )_y @@ -17110,7 +17110,7 @@ C i2 ( h6 h8 p5 p7 )_yx + = 1 * x ( )_x * y ( h6 h8 p5 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_10_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p5 p7 )_yx @@ -17182,7 +17182,7 @@ C i2 ( h6 h8 p5 p7 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_11(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytx + = 1/4 * Sum ( h7 h8 ) * x ( p3 p4 h7 h8 )_x * i1 ( h7 h8 h1 h2 )_yt @@ -17345,7 +17345,7 @@ C i0 ( p3 p4 h1 h2 )_ytx + = 1/4 * Sum ( h7 h8 ) * x ( p3 p4 h7 h8 )_x * i1 END SUBROUTINE eomccsd_2pdm_pphh_mo_11_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -17507,7 +17507,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_11_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -17579,7 +17579,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_11_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -17731,7 +17731,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_mo_11_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -17885,7 +17885,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_11_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -17957,7 +17957,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_12(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yx @@ -18122,7 +18122,7 @@ C i0 ( p3 p4 h1 h2 )_yxt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE eomccsd_2pdm_pphh_mo_12_1(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -18298,7 +18298,7 @@ C i1 ( p3 p5 )_yx + = 1 * Sum ( h7 h8 p6 ) * x ( p3 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_12_1(l_a_offset,k_a_offset, &size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yx @@ -18354,7 +18354,7 @@ C i1 ( p3 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphh_mo_12_2(d_a,k_a_offset,d_b,k_b_offset &,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_ytx + = 1 * x ( )_x * i2 ( p3 p5 )_yt @@ -18471,7 +18471,7 @@ C i1 ( p3 p5 )_ytx + = 1 * x ( )_x * i2 ( p3 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_mo_12_2_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -18647,7 +18647,7 @@ C i2 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_mo_12_2_1(l_a_offset,k_a_offse &t,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p3 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F b/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F index 87fc16f30b..fb07d5315f 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphh_zvec_mo.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_2pdm_pphh_zvec_mo(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0 &_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -223,7 +223,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( h9 p4 h1 h2 )_yt @@ -377,7 +377,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h9 ) * t ( p3 h9 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p5 )_y @@ -532,7 +532,7 @@ C i1 ( h9 p3 h1 h2 )_yt + = -1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * y ( h9 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_yt @@ -604,7 +604,7 @@ C i1 ( h9 p3 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h10 h1 h2 )_yt @@ -758,7 +758,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = 1/4 * Sum ( h10 ) * t ( p3 h10 )_t * i2 ( h9 h1 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h9 h10 p7 p8 )_y @@ -920,7 +920,7 @@ C i2 ( h9 h10 h1 h2 )_yt + = -1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_yt @@ -992,7 +992,7 @@ C i2 ( h9 h10 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_2(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_yt @@ -1144,7 +1144,7 @@ C i2 ( h9 h10 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_2_2_1(d_a,k_a_offset,d_b,k_ &b_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 p6 )_y @@ -1298,7 +1298,7 @@ C i3 ( h9 h10 h1 p5 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_2_2_1(l_a_offset,k_a &_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_yt @@ -1370,7 +1370,7 @@ C i3 ( h9 h10 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_3(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * i2 ( h8 h9 h2 p7 )_yt @@ -1567,7 +1567,7 @@ C i1 ( h9 p3 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 ) END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_1_3_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p7 )_y @@ -1721,7 +1721,7 @@ C i2 ( h8 h9 h1 p7 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h8 h9 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_1_3_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h1 p7 )_yt @@ -1793,7 +1793,7 @@ C i2 ( h8 h9 h1 p7 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -1958,7 +1958,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y @@ -2086,7 +2086,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h5 p6 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_2_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -2142,7 +2142,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_2_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -2318,7 +2318,7 @@ C i1 ( h5 h1 )_yt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yt @@ -2480,7 +2480,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1 * P( 4 ) * t ( p3 h1 )_t * i1 ( p4 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_y @@ -2642,7 +2642,7 @@ C i1 ( p3 h1 )_yt + = 1 * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * y ( h6 p5 )_ END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yt @@ -2698,7 +2698,7 @@ C i1 ( p3 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt @@ -2826,7 +2826,7 @@ C i1 ( p3 h1 )_ytt + = -1/2 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y @@ -2954,7 +2954,7 @@ C i2 ( h9 h1 )_yt + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i3 ( h9 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt @@ -3010,7 +3010,7 @@ C i2 ( h9 h1 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1_1(d_a,k_a_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -3095,7 +3095,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_2_1_1(l_a_offset,k_a &_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y @@ -3151,7 +3151,7 @@ C i3 ( h9 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_1_2(d_a,k_a_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y @@ -3236,7 +3236,7 @@ C i3 ( h9 p7 )_y + = 1 * y ( h9 p7 )_y END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_2_2(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h9 p6 p7 )_y @@ -3412,7 +3412,7 @@ C i2 ( h9 h1 )_yt + = -1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h8 h END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_3(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_ytt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h7 h8 h1 p6 )_yt @@ -3578,7 +3578,7 @@ C i1 ( p3 h1 )_ytt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * i2 ( h END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_3_3_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -3732,7 +3732,7 @@ C i2 ( h7 h8 h1 p6 )_yt + = -1 * Sum ( p5 ) * t ( p5 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_3_3_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p6 )_yt @@ -3804,7 +3804,7 @@ C i2 ( h7 h8 h1 p6 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_4(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -3969,7 +3969,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_4_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -4145,7 +4145,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_4_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -4201,7 +4201,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 ( h7 h8 h1 h2 )_yt @@ -4364,7 +4364,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h7 h8 ) * t ( p3 p4 h7 h8 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 h8 p5 p6 )_y @@ -4526,7 +4526,7 @@ C i1 ( h7 h8 h1 h2 )_yt + = 1 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_5_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt @@ -4598,7 +4598,7 @@ C i1 ( h7 h8 h1 h2 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_2(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h7 h8 h2 p5 )_yt @@ -4750,7 +4750,7 @@ C i1 ( h7 h8 h1 h2 )_ytt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_5_2_1(d_a,k_a_offset,d_b,k_b_ &offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p6 )_y @@ -4904,7 +4904,7 @@ C i2 ( h7 h8 h1 p5 )_yt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * y ( h7 h8 p5 p END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_5_2_1(l_a_offset,k_a_o &ffset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h1 p5 )_yt @@ -4976,7 +4976,7 @@ C i2 ( h7 h8 h1 p5 )_yt END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_6(d_a,k_a_offset,d_b,k_b_offs &et,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -5179,7 +5179,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE eomccsd_2pdm_pphh_zvec_mo_6_1(d_a,k_a_offset,d_b,k_b_of &fset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -5382,7 +5382,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 END SUBROUTINE OFFSET_eomccsd_2pdm_pphh_zvec_mo_6_1(l_a_offset,k_a_off &set,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pphp_mo.F b/src/tce/gradients/eomccsd_2pdm_pphp_mo.F index 0a08a11115..336b604a45 100644 --- a/src/tce/gradients/eomccsd_2pdm_pphp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pphp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pphp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y1 &,d_y2,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset, &k_x2_offset,k_y1_offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 p3 h2 h5 )_x * y ( h5 p4 )_y @@ -254,7 +254,7 @@ C i1 ( h7 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 END SUBROUTINE eomccsd_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yx + = -1/2 * P( 2 ) * Sum ( h5 ) * x ( p1 p3 h2 h5 )_x * y ( h5 p4 )_y @@ -422,7 +422,7 @@ c END SUBROUTINE eomccsd_2pdm_pphp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = -1/2 * P( 4 ) * x ( p1 h2 )_x * i1 ( p3 p4 )_yt @@ -592,7 +592,7 @@ c END IF END SUBROUTINE eomccsd_2pdm_pphp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y @@ -720,7 +720,7 @@ C i1 ( p1 p3 )_yt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * y ( h5 p3 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt @@ -776,7 +776,7 @@ C i1 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -952,7 +952,7 @@ C i1 ( p1 p3 )_yt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 END SUBROUTINE eomccsd_2pdm_pphp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = -1/2 * P( 4 ) * t ( p1 h2 )_t * i1 ( p3 p4 )_yx @@ -1122,7 +1122,7 @@ c END IF END SUBROUTINE eomccsd_2pdm_pphp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx + = 1 * Sum ( h5 ) * x ( p1 h5 )_x * y ( h5 p3 )_y @@ -1250,7 +1250,7 @@ C i1 ( p1 p3 )_yx + = 1 * Sum ( h5 ) * x ( p1 h5 )_x * y ( h5 p3 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx @@ -1306,7 +1306,7 @@ C i1 ( p1 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p1 p5 h6 h7 )_x * y ( h6 h7 p3 p5 )_y @@ -1482,7 +1482,7 @@ C i1 ( p1 p3 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p1 p5 h6 h7 )_x * y ( h6 END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_yxt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * i2 ( h5 p3 )_yx @@ -1610,7 +1610,7 @@ C i1 ( p1 p3 )_yxt + = 1 * Sum ( h5 ) * t ( p1 h5 )_t * i2 ( h5 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y @@ -1727,7 +1727,7 @@ C i2 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx @@ -1783,7 +1783,7 @@ C i2 ( h5 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_3_3_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -1944,7 +1944,7 @@ C i2 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ END SUBROUTINE eomccsd_2pdm_pphp_mo_3_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_ytx + = 1/2 * x ( )_x * i2 ( p1 p3 )_yt @@ -2061,7 +2061,7 @@ C i1 ( p1 p3 )_ytx + = 1/2 * x ( )_x * i2 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_3_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 p3 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 p3 p5 )_y @@ -2237,7 +2237,7 @@ C i2 ( p1 p3 )_yt + = 1 * Sum ( h6 h7 p5 ) * t ( p1 p5 h6 h7 )_t * y ( h6 h7 END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_3_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p1 p3 )_yt @@ -2293,7 +2293,7 @@ C i2 ( p1 p3 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p1 p3 h2 h5 )_t * i1 ( h5 p4 )_yx @@ -2460,7 +2460,7 @@ c END SUBROUTINE eomccsd_2pdm_pphp_mo_4_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y @@ -2577,7 +2577,7 @@ C i1 ( h5 p1 )_yx + = 1 * x ( )_x * y ( h5 p1 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_4_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx @@ -2633,7 +2633,7 @@ C i1 ( h5 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_4_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -2794,7 +2794,7 @@ C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ END SUBROUTINE eomccsd_2pdm_pphp_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = 1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( h8 p3 h2 p4 )_yx @@ -2948,7 +2948,7 @@ C i0 ( p1 p3 h2 p4 )_yxt + = 1 * P( 2 ) * Sum ( h8 ) * t ( p1 h8 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pphp_mo_5_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yx + = -1/2 * P( 2 ) * Sum ( h7 p6 ) * x ( p1 p6 h2 h7 )_x * y ( h7 h8 p3 p6 )_y @@ -3161,7 +3161,7 @@ c & - 1))))) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yx @@ -3233,7 +3233,7 @@ C i1 ( h8 p1 h2 p3 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * Sum ( h9 ) * t ( p1 h9 )_t * i2 ( h8 h9 h2 p3 )_yx @@ -3387,7 +3387,7 @@ C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * Sum ( h9 ) * t ( p1 h9 )_t * i2 ( h8 h9 END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_yx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h2 )_x * y ( h8 h9 p1 p7 )_y @@ -3551,7 +3551,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_yx @@ -3623,7 +3623,7 @@ C i2 ( h8 h9 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_2(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h9 h2 p1 )_ytx + = 1 * x ( )_x * i3 ( h8 h9 h2 p1 )_yt @@ -3756,7 +3756,7 @@ C i2 ( h8 h9 h2 p1 )_ytx + = 1 * x ( )_x * i3 ( h8 h9 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_2_2_1(d_a,k_a_offset,d_b,k_b_off &set,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h2 p1 )_yt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h8 h9 p1 p5 )_y @@ -3922,7 +3922,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_2_2_1(l_a_offset,k_a_offs &et,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h9 h2 p1 )_yt @@ -3994,7 +3994,7 @@ C i3 ( h8 h9 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_ytx + = -1 * Sum ( h7 ) * x ( p1 h7 )_x * i2 ( h7 h8 h2 p3 )_yt @@ -4148,7 +4148,7 @@ C i1 ( h8 p1 h2 p3 )_ytx + = -1 * Sum ( h7 ) * x ( p1 h7 )_x * i2 ( h7 h8 h2 END SUBROUTINE eomccsd_2pdm_pphp_mo_5_3_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h7 h8 p1 p5 )_y @@ -4314,7 +4314,7 @@ c END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_3_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h2 p1 )_yt @@ -4386,7 +4386,7 @@ C i2 ( h7 h8 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_5_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p1 h2 p3 )_yxt + = -1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * i2 ( h6 h8 p3 p5 )_yx @@ -4583,7 +4583,7 @@ c & - 1))))) END SUBROUTINE eomccsd_2pdm_pphp_mo_5_4_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p1 p5 )_yx + = 1 * x ( )_x * y ( h6 h8 p1 p5 )_y @@ -4726,7 +4726,7 @@ C i2 ( h6 h8 p1 p5 )_yx + = 1 * x ( )_x * y ( h6 h8 p1 p5 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_5_4_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h8 p1 p5 )_yx @@ -4798,7 +4798,7 @@ C i2 ( h6 h8 p1 p5 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_6(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = 1/2 * Sum ( h6 h7 ) * x ( p1 p3 h6 h7 )_x * i1 ( h6 h7 h2 p4 )_yt @@ -4961,7 +4961,7 @@ C i0 ( p1 p3 h2 p4 )_ytx + = 1/2 * Sum ( h6 h7 ) * x ( p1 p3 h6 h7 )_x * i1 END SUBROUTINE eomccsd_2pdm_pphp_mo_6_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h2 )_t * y ( h6 h7 p1 p5 )_y @@ -5125,7 +5125,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_6_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h7 h2 p1 )_yt @@ -5197,7 +5197,7 @@ C i1 ( h6 h7 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_7(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 ( h5 h6 h2 p4 )_yx @@ -5360,7 +5360,7 @@ C i0 ( p1 p3 h2 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p3 h5 h6 )_t * i1 END SUBROUTINE eomccsd_2pdm_pphp_mo_7_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h2 )_x * y ( h5 h6 p1 p7 )_y @@ -5524,7 +5524,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_7_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_yx @@ -5596,7 +5596,7 @@ C i1 ( h5 h6 h2 p1 )_yx END SUBROUTINE eomccsd_2pdm_pphp_mo_7_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h2 p1 )_ytx + = 1 * x ( )_x * i2 ( h5 h6 h2 p1 )_yt @@ -5729,7 +5729,7 @@ C i1 ( h5 h6 h2 p1 )_ytx + = 1 * x ( )_x * i2 ( h5 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_7_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h2 p1 )_yt + = -1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h2 )_t * y ( h5 h6 p1 p7 )_y @@ -5893,7 +5893,7 @@ c &)) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_7_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h2 p1 )_yt @@ -5965,7 +5965,7 @@ C i2 ( h5 h6 h2 p1 )_yt END SUBROUTINE eomccsd_2pdm_pphp_mo_8(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p3 h2 p4 )_ytx + = -1 * P( 2 ) * Sum ( h7 ) * x ( p1 h7 )_x * i1 ( h7 p3 h2 p4 )_yt @@ -6119,7 +6119,7 @@ C i0 ( p1 p3 h2 p4 )_ytx + = -1 * P( 2 ) * Sum ( h7 ) * x ( p1 h7 )_x * i1 ( END SUBROUTINE eomccsd_2pdm_pphp_mo_8_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p1 h2 p3 )_yt + = 1/2 * P( 2 ) * Sum ( h6 p5 ) * t ( p1 p5 h2 h6 )_t * y ( h6 h7 p3 p5 )_y @@ -6332,7 +6332,7 @@ c & - 1))))) END SUBROUTINE OFFSET_eomccsd_2pdm_pphp_mo_8_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p1 h2 p3 )_yt diff --git a/src/tce/gradients/eomccsd_2pdm_pppp_mo.F b/src/tce/gradients/eomccsd_2pdm_pppp_mo.F index d7547a2c75..f3c1e227a1 100644 --- a/src/tce/gradients/eomccsd_2pdm_pppp_mo.F +++ b/src/tce/gradients/eomccsd_2pdm_pppp_mo.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_2pdm_pppp_mo(d_i0,d_t1,d_t2,d_x0,d_x1,d_x2,d_y2 &,k_i0_offset,k_t1_offset,k_t2_offset,k_x0_offset,k_x1_offset,k_x2_ &offset,k_y2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -82,7 +82,7 @@ C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE eomccsd_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -245,7 +245,7 @@ C i0 ( p1 p2 p3 p4 )_yx + = 1/2 * Sum ( h5 h6 ) * x ( p1 p2 h5 h6 )_x * y ( END SUBROUTINE eomccsd_2pdm_pppp_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( h5 p2 p3 p4 )_yx @@ -399,7 +399,7 @@ C i0 ( p1 p2 p3 p4 )_yxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p1 h5 )_t * i1 ( END SUBROUTINE eomccsd_2pdm_pppp_mo_2_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yx + = -1 * Sum ( h6 ) * x ( p1 h6 )_x * y ( h5 h6 p2 p3 )_y @@ -553,7 +553,7 @@ C i1 ( h5 p1 p2 p3 )_yx + = -1 * Sum ( h6 ) * x ( p1 h6 )_x * y ( h5 h6 p2 p END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_2_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yx @@ -625,7 +625,7 @@ C i1 ( h5 p1 p2 p3 )_yx END SUBROUTINE eomccsd_2pdm_pppp_mo_2_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 p2 p3 )_yxt + = 1/2 * Sum ( h6 ) * t ( p1 h6 )_t * i2 ( h5 h6 p2 p3 )_yx @@ -779,7 +779,7 @@ C i1 ( h5 p1 p2 p3 )_yxt + = 1/2 * Sum ( h6 ) * t ( p1 h6 )_t * i2 ( h5 h6 p END SUBROUTINE eomccsd_2pdm_pppp_mo_2_2_1(d_a,k_a_offset,d_b,k_b_offse &t,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 p1 p2 )_yx + = -1 * x ( )_x * y ( h5 h6 p1 p2 )_y @@ -912,7 +912,7 @@ C i2 ( h5 h6 p1 p2 )_yx + = -1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_2_2_1(l_a_offset,k_a_offset &,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 p1 p2 )_yx @@ -984,7 +984,7 @@ C i2 ( h5 h6 p1 p2 )_yx END SUBROUTINE eomccsd_2pdm_pppp_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * i1 ( h5 h6 p3 p4 )_yx @@ -1147,7 +1147,7 @@ C i0 ( p1 p2 p3 p4 )_yxt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * i1 END SUBROUTINE eomccsd_2pdm_pppp_mo_3_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y @@ -1280,7 +1280,7 @@ C i1 ( h5 h6 p1 p2 )_yx + = 1 * x ( )_x * y ( h5 h6 p1 p2 )_y END SUBROUTINE OFFSET_eomccsd_2pdm_pppp_mo_3_1(l_a_offset,k_a_offset,s &ize) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 p1 p2 )_yx diff --git a/src/tce/gradients/eomccsd_x1_grad.F b/src/tce/gradients/eomccsd_x1_grad.F index 70ace741ae..b6fb1d9615 100644 --- a/src/tce/gradients/eomccsd_x1_grad.F +++ b/src/tce/gradients/eomccsd_x1_grad.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x1_grad(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offse &t,k_x2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -204,7 +204,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p END SUBROUTINE eomccsd_x1_grad_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f @@ -331,7 +331,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h6 ) * x ( p2 h6 )_x * i1 ( h6 h1 )_f RETURN END SUBROUTINE eomccsd_x1_grad_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f @@ -415,7 +415,7 @@ C i1 ( h6 h1 )_f + = 1 * f ( h6 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_f @@ -471,7 +471,7 @@ C i1 ( h6 h1 )_f END SUBROUTINE eomccsd_x1_grad_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f @@ -598,7 +598,7 @@ C i1 ( h6 h1 )_ft + = 1 * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h6 p7 )_f RETURN END SUBROUTINE eomccsd_x1_grad_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -683,7 +683,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f END SUBROUTINE OFFSET_eomccsd_x1_grad_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -739,7 +739,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_grad_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_v @@ -900,7 +900,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h6 p4 p7 )_ END SUBROUTINE eomccsd_x1_grad_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 )_v @@ -1045,7 +1045,7 @@ C i1 ( h6 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 h1 p3 ) END SUBROUTINE eomccsd_x1_grad_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h6 p3 p4 )_v @@ -1221,7 +1221,7 @@ C i1 ( h6 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE eomccsd_x1_grad_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f @@ -1348,7 +1348,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * i1 ( p2 p6 )_f RETURN END SUBROUTINE eomccsd_x1_grad_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f @@ -1432,7 +1432,7 @@ C i1 ( p2 p6 )_f + = 1 * f ( p2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_f @@ -1488,7 +1488,7 @@ C i1 ( p2 p6 )_f END SUBROUTINE eomccsd_x1_grad_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_v @@ -1633,7 +1633,7 @@ C i1 ( p2 p6 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 p3 p6 )_ END SUBROUTINE eomccsd_x1_grad_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 )_v @@ -1770,7 +1770,7 @@ C i0 ( p2 h1 )_xv + = -1 * Sum ( p4 h3 ) * x ( p4 h3 )_x * v ( h3 p2 h1 p4 ) END SUBROUTINE eomccsd_x1_grad_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 )_f @@ -1931,7 +1931,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p7 h6 ) * x ( p2 p7 h1 h6 )_x * i1 ( h6 p7 ) RETURN END SUBROUTINE eomccsd_x1_grad_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -2015,7 +2015,7 @@ C i1 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_f @@ -2071,7 +2071,7 @@ C i1 ( h6 p7 )_f END SUBROUTINE eomccsd_x1_grad_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -2232,7 +2232,7 @@ C i1 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_x1_grad_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h6 h8 h1 p7 )_v @@ -2397,7 +2397,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p7 h6 h8 ) * x ( p2 p7 h6 h8 )_x * i1 ( h RETURN END SUBROUTINE eomccsd_x1_grad_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v @@ -2498,7 +2498,7 @@ C i1 ( h6 h8 h1 p7 )_v + = 1 * v ( h6 h8 h1 p7 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_v @@ -2568,7 +2568,7 @@ C i1 ( h6 h8 h1 p7 )_v END SUBROUTINE eomccsd_x1_grad_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 )_v @@ -2722,7 +2722,7 @@ C i1 ( h6 h8 h1 p7 )_vt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * v ( h6 h8 p3 p7 END SUBROUTINE eomccsd_x1_grad_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 p2 p4 p5 )_v @@ -2890,7 +2890,7 @@ C i0 ( p2 h1 )_xv + = -1/2 * Sum ( p4 p5 h3 ) * x ( p4 p5 h1 h3 )_x * v ( h3 END SUBROUTINE eomccsd_x1_grad_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx @@ -3018,7 +3018,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h8 ) * t ( p2 h8 )_t * i1 ( h8 h1 )_fx END SUBROUTINE eomccsd_x1_grad_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f @@ -3145,7 +3145,7 @@ C i1 ( h8 h1 )_fx + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * i2 ( h8 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_fx @@ -3200,7 +3200,7 @@ C i1 ( h8 h1 )_fx RETURN END SUBROUTINE eomccsd_x1_grad_7_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f @@ -3285,7 +3285,7 @@ C i2 ( h8 p3 )_f + = 1 * f ( h8 p3 )_f END SUBROUTINE OFFSET_eomccsd_x1_grad_7_1_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_f @@ -3341,7 +3341,7 @@ C i2 ( h8 p3 )_f END SUBROUTINE eomccsd_x1_grad_7_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 )_v @@ -3502,7 +3502,7 @@ C i2 ( h8 p3 )_vt + = -1 * Sum ( h5 p4 ) * t ( p4 h5 )_t * v ( h5 h8 p3 p4 ) END SUBROUTINE eomccsd_x1_grad_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 )_v @@ -3647,7 +3647,7 @@ C i1 ( h8 h1 )_vx + = -1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 h8 h1 p5 ) END SUBROUTINE eomccsd_x1_grad_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 h8 p5 p6 )_v @@ -3823,7 +3823,7 @@ C i1 ( h8 h1 )_vx + = -1/2 * Sum ( h4 p5 p6 ) * x ( p5 p6 h1 h4 )_x * v ( h4 END SUBROUTINE eomccsd_x1_grad_7_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx @@ -3951,7 +3951,7 @@ C i1 ( h8 h1 )_vxt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_grad_7_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 )_v @@ -4112,7 +4112,7 @@ C i2 ( h8 p3 )_vx + = -1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h5 h8 p3 p6 ) END SUBROUTINE OFFSET_eomccsd_x1_grad_7_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p3 )_vx @@ -4168,7 +4168,7 @@ C i2 ( h8 p3 )_vx END SUBROUTINE eomccsd_x1_grad_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx @@ -4296,7 +4296,7 @@ C i0 ( p2 h1 )_vxt + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_grad_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_v @@ -4440,7 +4440,7 @@ C i1 ( p2 p3 )_vx + = 1 * Sum ( h4 p5 ) * x ( p5 h4 )_x * v ( h4 p2 p3 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p2 p3 )_vx @@ -4496,7 +4496,7 @@ C i1 ( p2 p3 )_vx END SUBROUTINE eomccsd_x1_grad_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 )_vx @@ -4658,7 +4658,7 @@ C i0 ( p2 h1 )_vxt + = 1 * Sum ( h4 p3 ) * t ( p2 p3 h1 h4 )_t * i1 ( h4 p3 END SUBROUTINE eomccsd_x1_grad_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_v @@ -4818,7 +4818,7 @@ C i1 ( h4 p3 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h4 h5 p3 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p3 )_vx @@ -4874,7 +4874,7 @@ C i1 ( h4 p3 )_vx END SUBROUTINE eomccsd_x1_grad_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_vx @@ -5040,7 +5040,7 @@ C i0 ( p2 h1 )_vxt + = 1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h END SUBROUTINE eomccsd_x1_grad_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 )_v @@ -5193,7 +5193,7 @@ C i1 ( h4 h5 h1 p3 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( h4 h5 p3 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x1_grad_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vx diff --git a/src/tce/gradients/eomccsd_x2_grad.F b/src/tce/gradients/eomccsd_x2_grad.F index 6d75e548cf..569641e217 100644 --- a/src/tce/gradients/eomccsd_x2_grad.F +++ b/src/tce/gradients/eomccsd_x2_grad.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_x2_grad(d_f1,d_i0,d_t1,d_t2,d_v2,d_x1,d_x2,k_f1 &_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_x1_offse &t,k_x2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -470,7 +470,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v END SUBROUTINE eomccsd_x2_grad_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( h9 p4 h1 h2 )_v @@ -623,7 +623,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( h9 ) * x ( p3 h9 )_x * i1 ( RETURN END SUBROUTINE eomccsd_x2_grad_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v @@ -724,7 +724,7 @@ C i1 ( h9 p3 h1 h2 )_v + = 1 * v ( h9 p3 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_v @@ -794,7 +794,7 @@ C i1 ( h9 p3 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 p3 h2 p5 )_v @@ -947,7 +947,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_grad_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v @@ -1049,7 +1049,7 @@ C i2 ( h9 p3 h1 p5 )_v + = 1 * v ( h9 p3 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_1_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_v @@ -1119,7 +1119,7 @@ C i2 ( h9 p3 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 p6 )_v @@ -1273,7 +1273,7 @@ C i2 ( h9 p3 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 p3 p5 END SUBROUTINE eomccsd_x2_grad_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 p8 )_f @@ -1427,7 +1427,7 @@ C i1 ( h9 p3 h1 h2 )_ft + = -1 * Sum ( p8 ) * t ( p3 p8 h1 h2 )_t * i2 ( h9 RETURN END SUBROUTINE eomccsd_x2_grad_1_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f @@ -1512,7 +1512,7 @@ C i2 ( h9 p8 )_f + = 1 * f ( h9 p8 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_1_3_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_f @@ -1568,7 +1568,7 @@ C i2 ( h9 p8 )_f END SUBROUTINE eomccsd_x2_grad_1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_v @@ -1729,7 +1729,7 @@ C i2 ( h9 p8 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h9 p6 p8 )_ END SUBROUTINE eomccsd_x2_grad_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h9 h2 p5 )_v @@ -1925,7 +1925,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t RETURN END SUBROUTINE eomccsd_x2_grad_1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v @@ -2027,7 +2027,7 @@ C i2 ( h6 h9 h1 p5 )_v + = 1 * v ( h6 h9 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_1_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_v @@ -2097,7 +2097,7 @@ C i2 ( h6 h9 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p7 )_v @@ -2251,7 +2251,7 @@ C i2 ( h6 h9 h1 p5 )_vt + = -1 * Sum ( p7 ) * t ( p7 h1 )_t * v ( h6 h9 p5 p END SUBROUTINE eomccsd_x2_grad_1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 p3 p5 p6 )_v @@ -2416,7 +2416,7 @@ C i1 ( h9 p3 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p3 p4 h2 p5 )_v @@ -2572,7 +2572,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 2 ) * Sum ( p5 ) * x ( p5 h1 )_x * v ( p END SUBROUTINE eomccsd_x2_grad_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * i1 ( h8 h2 )_f @@ -2736,7 +2736,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h8 ) * x ( p3 p4 h1 h8 )_x * RETURN END SUBROUTINE eomccsd_x2_grad_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f @@ -2820,7 +2820,7 @@ C i1 ( h8 h1 )_f + = 1 * f ( h8 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_f @@ -2876,7 +2876,7 @@ C i1 ( h8 h1 )_f END SUBROUTINE eomccsd_x2_grad_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f @@ -3003,7 +3003,7 @@ C i1 ( h8 h1 )_ft + = 1 * Sum ( p9 ) * t ( p9 h1 )_t * i2 ( h8 p9 )_f RETURN END SUBROUTINE eomccsd_x2_grad_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f @@ -3088,7 +3088,7 @@ C i2 ( h8 p9 )_f + = 1 * f ( h8 p9 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_3_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_f @@ -3144,7 +3144,7 @@ C i2 ( h8 p9 )_f END SUBROUTINE eomccsd_x2_grad_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_v @@ -3305,7 +3305,7 @@ C i2 ( h8 p9 )_vt + = 1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h8 p6 p9 )_ END SUBROUTINE eomccsd_x2_grad_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 )_v @@ -3450,7 +3450,7 @@ C i1 ( h8 h1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 h1 p5 ) END SUBROUTINE eomccsd_x2_grad_3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 h8 p5 p6 )_v @@ -3626,7 +3626,7 @@ C i1 ( h8 h1 )_vt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h1 h7 )_t * v ( h7 END SUBROUTINE eomccsd_x2_grad_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * i1 ( p4 p8 )_f @@ -3790,7 +3790,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p8 ) * x ( p3 p8 h1 h2 )_x * RETURN END SUBROUTINE eomccsd_x2_grad_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f @@ -3874,7 +3874,7 @@ C i1 ( p3 p8 )_f + = 1 * f ( p3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_f @@ -3930,7 +3930,7 @@ C i1 ( p3 p8 )_f END SUBROUTINE eomccsd_x2_grad_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_v @@ -4075,7 +4075,7 @@ C i1 ( p3 p8 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p3 p5 p8 )_ END SUBROUTINE eomccsd_x2_grad_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 h7 p5 p8 )_v @@ -4251,7 +4251,7 @@ C i1 ( p3 p8 )_vt + = 1/2 * Sum ( h6 h7 p5 ) * t ( p3 p5 h6 h7 )_t * v ( h6 END SUBROUTINE eomccsd_x2_grad_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 ( h9 h10 h1 h2 )_v @@ -4413,7 +4413,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( h9 h10 ) * x ( p3 p4 h9 h10 )_x * i1 RETURN END SUBROUTINE eomccsd_x2_grad_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v @@ -4511,7 +4511,7 @@ C i1 ( h9 h10 h1 h2 )_v + = 1 * v ( h9 h10 h1 h2 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_v @@ -4581,7 +4581,7 @@ C i1 ( h9 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h9 h10 h2 p5 )_v @@ -4732,7 +4732,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( RETURN END SUBROUTINE eomccsd_x2_grad_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v @@ -4834,7 +4834,7 @@ C i2 ( h9 h10 h1 p5 )_v + = 1 * v ( h9 h10 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_5_2_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_v @@ -4904,7 +4904,7 @@ C i2 ( h9 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 p5 p6 )_v @@ -5058,7 +5058,7 @@ C i2 ( h9 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h9 h10 END SUBROUTINE eomccsd_x2_grad_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h9 h10 p5 p6 )_v @@ -5220,7 +5220,7 @@ C i1 ( h9 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_x * i1 ( h7 p4 h2 p8 )_v @@ -5422,7 +5422,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = -1 * P( 4 ) * Sum ( p8 h7 ) * x ( p3 p8 h1 h7 )_ RETURN END SUBROUTINE eomccsd_x2_grad_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v @@ -5523,7 +5523,7 @@ C i1 ( h7 p3 h1 p8 )_v + = 1 * v ( h7 p3 h1 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_v @@ -5593,7 +5593,7 @@ C i1 ( h7 p3 h1 p8 )_v END SUBROUTINE eomccsd_x2_grad_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 )_v @@ -5747,7 +5747,7 @@ C i1 ( h7 p3 h1 p8 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h7 p3 p5 p8 END SUBROUTINE eomccsd_x2_grad_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( p3 p4 p5 p6 )_v @@ -5910,7 +5910,7 @@ C i0 ( p3 p4 h1 h2 )_xv + = 1/2 * Sum ( p5 p6 ) * x ( p5 p6 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_grad_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 ( h10 p4 h1 h2 )_vx @@ -6064,7 +6064,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h10 ) * t ( p3 h10 )_t * i1 END SUBROUTINE eomccsd_x2_grad_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h1 h2 )_v @@ -6217,7 +6217,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * Sum ( h8 ) * x ( p3 h8 )_x * i2 ( h8 h10 h RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx @@ -6288,7 +6288,7 @@ C i1 ( h10 p3 h1 h2 )_vx RETURN END SUBROUTINE eomccsd_x2_grad_8_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v @@ -6387,7 +6387,7 @@ C i2 ( h8 h10 h1 h2 )_v + = 1 * v ( h8 h10 h1 h2 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_v @@ -6457,7 +6457,7 @@ C i2 ( h8 h10 h1 h2 )_v END SUBROUTINE eomccsd_x2_grad_8_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h8 h10 h2 p5 )_v @@ -6608,7 +6608,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( RETURN END SUBROUTINE eomccsd_x2_grad_8_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v @@ -6710,7 +6710,7 @@ C i3 ( h8 h10 h1 p5 )_v + = 1 * v ( h8 h10 h1 p5 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_1_2_1(l_a_offset,k_a_offset,si &ze) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_v @@ -6780,7 +6780,7 @@ C i3 ( h8 h10 h1 p5 )_v END SUBROUTINE eomccsd_x2_grad_8_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 p5 p6 )_v @@ -6934,7 +6934,7 @@ C i3 ( h8 h10 h1 p5 )_vt + = -1/2 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h8 h10 END SUBROUTINE eomccsd_x2_grad_8_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h8 h10 p5 p6 )_v @@ -7096,7 +7096,7 @@ C i2 ( h8 h10 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE eomccsd_x2_grad_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h10 p3 h2 p6 )_v @@ -7252,7 +7252,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = 1 * P( 2 ) * Sum ( p6 ) * x ( p6 h1 )_x * v ( h END SUBROUTINE eomccsd_x2_grad_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 p5 )_f @@ -7406,7 +7406,7 @@ C i1 ( h10 p3 h1 h2 )_fx + = 1 * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * i2 ( h10 RETURN END SUBROUTINE eomccsd_x2_grad_8_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f @@ -7491,7 +7491,7 @@ C i2 ( h10 p5 )_f + = 1 * f ( h10 p5 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_8_3_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_f @@ -7547,7 +7547,7 @@ C i2 ( h10 p5 )_f END SUBROUTINE eomccsd_x2_grad_8_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 )_v @@ -7708,7 +7708,7 @@ C i2 ( h10 p5 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h7 h10 p5 p6 END SUBROUTINE eomccsd_x2_grad_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 )_x * i2 ( h8 h10 h2 p9 )_v @@ -7904,7 +7904,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1 * P( 2 ) * Sum ( h8 p9 ) * x ( p3 p9 h1 h8 ) RETURN END SUBROUTINE eomccsd_x2_grad_8_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v @@ -8006,7 +8006,7 @@ C i2 ( h8 h10 h1 p9 )_v + = 1 * v ( h8 h10 h1 p9 )_v END SUBROUTINE OFFSET_eomccsd_x2_grad_8_4_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_v @@ -8076,7 +8076,7 @@ C i2 ( h8 h10 h1 p9 )_v END SUBROUTINE eomccsd_x2_grad_8_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 p9 )_v @@ -8230,7 +8230,7 @@ C i2 ( h8 h10 h1 p9 )_vt + = 1 * Sum ( p5 ) * t ( p5 h1 )_t * v ( h8 h10 p5 END SUBROUTINE eomccsd_x2_grad_8_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v ( h10 p3 p6 p7 )_v @@ -8395,7 +8395,7 @@ C i1 ( h10 p3 h1 h2 )_vx + = -1/2 * Sum ( p6 p7 ) * x ( p6 p7 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_grad_8_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h1 h2 )_vx @@ -8549,7 +8549,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( h9 ) * t ( p3 h9 )_t * i2 ( h9 h10 h END SUBROUTINE eomccsd_x2_grad_8_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h9 h10 h2 p7 )_v @@ -8703,7 +8703,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = 1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( END SUBROUTINE OFFSET_eomccsd_x2_grad_8_6_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx @@ -8775,7 +8775,7 @@ C i2 ( h9 h10 h1 h2 )_vx END SUBROUTINE eomccsd_x2_grad_8_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h9 h10 p7 p8 )_v @@ -8937,7 +8937,7 @@ C i2 ( h9 h10 h1 h2 )_vx + = -1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v END SUBROUTINE eomccsd_x2_grad_8_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 ( h9 h10 h2 p5 )_vx @@ -9089,7 +9089,7 @@ C i2 ( h9 h10 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i3 END SUBROUTINE eomccsd_x2_grad_8_6_3_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 p8 )_v @@ -9243,7 +9243,7 @@ C i3 ( h9 h10 h1 p5 )_vx + = -1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h9 h10 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_6_3_1(l_a_offset,k_a_offset,si &ze) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h9 h10 h1 p5 )_vx @@ -9315,7 +9315,7 @@ C i3 ( h9 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 ( h10 p3 h2 p5 )_vx @@ -9469,7 +9469,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i2 END SUBROUTINE eomccsd_x2_grad_8_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 p7 )_v @@ -9623,7 +9623,7 @@ C i2 ( h10 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h10 p3 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_7_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p3 h1 p5 )_vx @@ -9695,7 +9695,7 @@ C i2 ( h10 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h10 p5 )_vx @@ -9850,7 +9850,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i2 ( h1 END SUBROUTINE eomccsd_x2_grad_8_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 )_v @@ -10011,7 +10011,7 @@ C i2 ( h10 p5 )_vx + = -1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h7 h10 p5 p8 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_8_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 p5 )_vx @@ -10067,7 +10067,7 @@ C i2 ( h10 p5 )_vx END SUBROUTINE eomccsd_x2_grad_8_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i2 ( h6 h10 h2 p5 )_vx @@ -10264,7 +10264,7 @@ C i1 ( h10 p3 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 ) END SUBROUTINE eomccsd_x2_grad_8_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 p8 )_v @@ -10418,7 +10418,7 @@ C i2 ( h6 h10 h1 p5 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h6 h10 p5 END SUBROUTINE OFFSET_eomccsd_x2_grad_8_9_1(l_a_offset,k_a_offset,size &) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 h10 h1 p5 )_vx @@ -10490,7 +10490,7 @@ C i2 ( h6 h10 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( p3 p4 h2 p5 )_vx @@ -10644,7 +10644,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * i1 ( END SUBROUTINE eomccsd_x2_grad_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 )_v @@ -10797,7 +10797,7 @@ C i1 ( p3 p4 h1 p5 )_vx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * v ( p3 p4 p5 p6 RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p4 h1 p5 )_vx @@ -10869,7 +10869,7 @@ C i1 ( p3 p4 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -11034,7 +11034,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_x2_grad_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f @@ -11161,7 +11161,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p9 ) * x ( p9 h1 )_x * i2 ( h5 p9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx @@ -11216,7 +11216,7 @@ C i1 ( h5 h1 )_fx RETURN END SUBROUTINE eomccsd_x2_grad_10_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f @@ -11301,7 +11301,7 @@ C i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f END SUBROUTINE OFFSET_eomccsd_x2_grad_10_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_f @@ -11357,7 +11357,7 @@ C i2 ( h5 p9 )_f END SUBROUTINE eomccsd_x2_grad_10_1_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 )_v @@ -11518,7 +11518,7 @@ C i2 ( h5 p9 )_vt + = -1 * Sum ( h7 p6 ) * t ( p6 h7 )_t * v ( h5 h7 p6 p9 ) END SUBROUTINE eomccsd_x2_grad_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_v @@ -11663,7 +11663,7 @@ C i1 ( h5 h1 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h5 h6 h1 p7 )_ END SUBROUTINE eomccsd_x2_grad_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -11839,7 +11839,7 @@ C i1 ( h5 h1 )_vx + = 1/2 * Sum ( h6 p7 p8 ) * x ( p7 p8 h1 h6 )_x * v ( h5 END SUBROUTINE eomccsd_x2_grad_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx @@ -11967,7 +11967,7 @@ C i1 ( h5 h1 )_vxt + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_grad_10_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_v @@ -12128,7 +12128,7 @@ C i2 ( h5 p6 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h5 h7 p6 p8 )_ END SUBROUTINE OFFSET_eomccsd_x2_grad_10_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p6 )_vx @@ -12184,7 +12184,7 @@ C i2 ( h5 p6 )_vx END SUBROUTINE eomccsd_x2_grad_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_vx @@ -12347,7 +12347,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( END SUBROUTINE eomccsd_x2_grad_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( h5 h6 h2 p7 )_v @@ -12500,7 +12500,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = -1/2 * P( 2 ) * Sum ( p7 ) * x ( p7 h1 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx @@ -12572,7 +12572,7 @@ C i1 ( h5 h6 h1 h2 )_vx END SUBROUTINE eomccsd_x2_grad_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( h5 h6 p7 p8 )_v @@ -12734,7 +12734,7 @@ C i1 ( h5 h6 h1 h2 )_vx + = 1/4 * Sum ( p7 p8 ) * x ( p7 p8 h1 h2 )_x * v ( END SUBROUTINE eomccsd_x2_grad_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 ( h5 h6 h2 p7 )_vx @@ -12886,7 +12886,7 @@ C i1 ( h5 h6 h1 h2 )_vxt + = 1/2 * P( 2 ) * Sum ( p7 ) * t ( p7 h1 )_t * i2 END SUBROUTINE eomccsd_x2_grad_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 )_v @@ -13040,7 +13040,7 @@ C i2 ( h5 h6 h1 p7 )_vx + = 1 * Sum ( p8 ) * x ( p8 h1 )_x * v ( h5 h6 p7 p8 END SUBROUTINE OFFSET_eomccsd_x2_grad_11_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h1 p7 )_vx @@ -13112,7 +13112,7 @@ C i2 ( h5 h6 h1 p7 )_vx END SUBROUTINE eomccsd_x2_grad_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_vx @@ -13277,7 +13277,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t END SUBROUTINE eomccsd_x2_grad_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_v @@ -13421,7 +13421,7 @@ C i1 ( p3 p5 )_vx + = 1 * Sum ( h6 p7 ) * x ( p7 h6 )_x * v ( h6 p3 p5 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx @@ -13477,7 +13477,7 @@ C i1 ( p3 p5 )_vx END SUBROUTINE eomccsd_x2_grad_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -13653,7 +13653,7 @@ C i1 ( p3 p5 )_vx + = 1/2 * Sum ( h6 h7 p8 ) * x ( p3 p8 h6 h7 )_x * v ( h6 END SUBROUTINE eomccsd_x2_grad_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_vx @@ -13856,7 +13856,7 @@ C i0 ( p3 p4 h1 h2 )_vxt + = 1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE eomccsd_x2_grad_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 )_v @@ -14009,7 +14009,7 @@ C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( p7 ) * x ( p7 h1 )_x * v ( h6 p3 p5 p7 RETURN END SUBROUTINE OFFSET_eomccsd_x2_grad_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx @@ -14081,7 +14081,7 @@ C i1 ( h6 p3 h1 p5 )_vx END SUBROUTINE eomccsd_x2_grad_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p3 p8 h1 h7 )_x * v ( h6 h7 p5 p8 )_v diff --git a/src/tce/gradients/eomccsd_z1.F b/src/tce/gradients/eomccsd_z1.F index 3186b4ce89..d4c9ec095b 100644 --- a/src/tce/gradients/eomccsd_z1.F +++ b/src/tce/gradients/eomccsd_z1.F @@ -1,7 +1,7 @@ SUBROUTINE eomccsd_z1(d_f1,d_i0,d_t1,d_t2,d_v2,d_x2,d_y1,d_y2,d_z1 &,d_z2,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset, &k_x2_offset,k_y1_offset,k_y2_offset,k_z1_offset,k_z2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f @@ -763,7 +763,7 @@ c END SUBROUTINE eomccsd_z1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f @@ -889,7 +889,7 @@ C i0 ( h2 p1 )_zf + = -1 * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h2 h7 )_f RETURN END SUBROUTINE eomccsd_z1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f @@ -973,7 +973,7 @@ C i1 ( h2 h7 )_f + = 1 * f ( h2 h7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_f @@ -1029,7 +1029,7 @@ C i1 ( h2 h7 )_f END SUBROUTINE eomccsd_z1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f @@ -1156,7 +1156,7 @@ C i1 ( h2 h7 )_ft + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * i2 ( h2 p3 )_f RETURN END SUBROUTINE eomccsd_z1_1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f @@ -1240,7 +1240,7 @@ C i2 ( h2 p3 )_f + = 1 * f ( h2 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_1_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_f @@ -1296,7 +1296,7 @@ C i2 ( h2 p3 )_f END SUBROUTINE eomccsd_z1_1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_v @@ -1457,7 +1457,7 @@ C i2 ( h2 p3 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h2 h6 p3 p5 )_ END SUBROUTINE eomccsd_z1_1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_v @@ -1602,7 +1602,7 @@ C i1 ( h2 h7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 h7 p3 )_ END SUBROUTINE eomccsd_z1_1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 h6 p3 p4 )_v @@ -1778,7 +1778,7 @@ C i1 ( h2 h7 )_vt + = -1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h7 )_t * v ( h2 END SUBROUTINE eomccsd_z1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = 1 * Sum ( p7 ) * z ( h2 p7 )_z * i1 ( p7 p1 )_f @@ -1904,7 +1904,7 @@ C i0 ( h2 p1 )_zf + = 1 * Sum ( p7 ) * z ( h2 p7 )_z * i1 ( p7 p1 )_f RETURN END SUBROUTINE eomccsd_z1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f @@ -1988,7 +1988,7 @@ C i1 ( p7 p1 )_f + = 1 * f ( p7 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_f @@ -2044,7 +2044,7 @@ C i1 ( p7 p1 )_f END SUBROUTINE eomccsd_z1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 )_v @@ -2189,7 +2189,7 @@ C i1 ( p7 p1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p7 p1 p3 ) END SUBROUTINE eomccsd_z1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt @@ -2317,7 +2317,7 @@ C i1 ( p7 p1 )_vtt + = -1 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_z1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_v @@ -2477,7 +2477,7 @@ C i2 ( h4 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h4 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z1_2_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 p1 )_vt @@ -2533,7 +2533,7 @@ C i2 ( h4 p1 )_vt END SUBROUTINE eomccsd_z1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = -1 * Sum ( h4 p3 ) * z ( h4 p3 )_z * v ( h2 p3 h4 p1 )_v @@ -2669,7 +2669,7 @@ C i0 ( h2 p1 )_zv + = -1 * Sum ( h4 p3 ) * z ( h4 p3 )_z * v ( h2 p3 h4 p1 ) END SUBROUTINE eomccsd_z1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zf + = 1 * Sum ( h11 p9 ) * z ( h2 h11 p1 p9 )_z * i1 ( p9 h11 )_f @@ -2829,7 +2829,7 @@ C i0 ( h2 p1 )_zf + = 1 * Sum ( h11 p9 ) * z ( h2 h11 p1 p9 )_z * i1 ( p9 h1 RETURN END SUBROUTINE eomccsd_z1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f @@ -2913,7 +2913,7 @@ C i1 ( p9 h11 )_f + = 1 * f ( p9 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_f @@ -2969,7 +2969,7 @@ C i1 ( p9 h11 )_f END SUBROUTINE eomccsd_z1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f @@ -3096,7 +3096,7 @@ C i1 ( p9 h11 )_ft + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_f RETURN END SUBROUTINE eomccsd_z1_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f @@ -3180,7 +3180,7 @@ C i2 ( h10 h11 )_f + = 1 * f ( h10 h11 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_f @@ -3236,7 +3236,7 @@ C i2 ( h10 h11 )_f END SUBROUTINE eomccsd_z1_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f @@ -3363,7 +3363,7 @@ C i2 ( h10 h11 )_ft + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * i3 ( h10 p3 )_f RETURN END SUBROUTINE eomccsd_z1_4_2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f @@ -3447,7 +3447,7 @@ C i3 ( h10 p3 )_f + = 1 * f ( h10 p3 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_f @@ -3503,7 +3503,7 @@ C i3 ( h10 p3 )_f END SUBROUTINE eomccsd_z1_4_2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 )_v @@ -3664,7 +3664,7 @@ C i3 ( h10 p3 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 h10 p3 p7 END SUBROUTINE eomccsd_z1_4_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 p5 )_v @@ -3809,7 +3809,7 @@ C i2 ( h10 h11 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h10 h11 END SUBROUTINE eomccsd_z1_4_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 h10 p3 p4 )_v @@ -3985,7 +3985,7 @@ C i2 ( h10 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( END SUBROUTINE eomccsd_z1_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f @@ -4112,7 +4112,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( p9 p7 )_f RETURN END SUBROUTINE eomccsd_z1_4_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f @@ -4196,7 +4196,7 @@ C i2 ( p9 p7 )_f + = 1 * f ( p9 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_f @@ -4252,7 +4252,7 @@ C i2 ( p9 p7 )_f END SUBROUTINE eomccsd_z1_4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_v @@ -4397,7 +4397,7 @@ C i2 ( p9 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p9 p5 p7 )_ END SUBROUTINE eomccsd_z1_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 )_f @@ -4558,7 +4558,7 @@ C i1 ( p9 h11 )_ft + = 1 * Sum ( h5 p4 ) * t ( p4 p9 h5 h11 )_t * i2 ( h5 p4 RETURN END SUBROUTINE eomccsd_z1_4_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f @@ -4642,7 +4642,7 @@ C i2 ( h5 p4 )_f + = 1 * f ( h5 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_f @@ -4698,7 +4698,7 @@ C i2 ( h5 p4 )_f END SUBROUTINE eomccsd_z1_4_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_v @@ -4859,7 +4859,7 @@ C i2 ( h5 p4 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h5 h8 p4 p7 )_ END SUBROUTINE eomccsd_z1_4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 )_v @@ -4996,7 +4996,7 @@ C i1 ( p9 h11 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p9 h11 p3 END SUBROUTINE eomccsd_z1_4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h5 h6 h11 p4 )_v @@ -5163,7 +5163,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h5 h6 p4 ) * t ( p4 p9 h5 h6 )_t * i2 ( h RETURN END SUBROUTINE eomccsd_z1_4_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v @@ -5262,7 +5262,7 @@ C i2 ( h5 h6 h11 p4 )_v + = 1 * v ( h5 h6 h11 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_4_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_v @@ -5332,7 +5332,7 @@ C i2 ( h5 h6 h11 p4 )_v END SUBROUTINE eomccsd_z1_4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 p7 )_v @@ -5486,7 +5486,7 @@ C i2 ( h5 h6 h11 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * v ( h5 h6 p4 END SUBROUTINE eomccsd_z1_4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h6 p9 p3 p4 )_v @@ -5654,7 +5654,7 @@ C i1 ( p9 h11 )_vt + = 1/2 * Sum ( h6 p3 p4 ) * t ( p3 p4 h6 h11 )_t * v ( h END SUBROUTINE eomccsd_z1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h12 h10 p9 ) * z ( h10 h12 p1 p9 )_z * i1 ( h2 p9 h10 h12 )_v @@ -5818,7 +5818,7 @@ C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h12 h10 p9 ) * z ( h10 h12 p1 p9 )_z * i1 RETURN END SUBROUTINE eomccsd_z1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_v + = -1 * v ( h2 p9 h10 h12 )_v @@ -5919,7 +5919,7 @@ C i1 ( h2 p9 h10 h12 )_v + = -1 * v ( h2 p9 h10 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_v @@ -5989,7 +5989,7 @@ C i1 ( h2 p9 h10 h12 )_v END SUBROUTINE eomccsd_z1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p9 h10 h12 )_t * i2 ( h2 p5 )_f @@ -6143,7 +6143,7 @@ C i1 ( h2 p9 h10 h12 )_ft + = -1 * Sum ( p5 ) * t ( p5 p9 h10 h12 )_t * i2 ( RETURN END SUBROUTINE eomccsd_z1_5_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f @@ -6227,7 +6227,7 @@ C i2 ( h2 p5 )_f + = 1 * f ( h2 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_f @@ -6283,7 +6283,7 @@ C i2 ( h2 p5 )_f END SUBROUTINE eomccsd_z1_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_v @@ -6444,7 +6444,7 @@ C i2 ( h2 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h2 h8 p5 p7 )_ END SUBROUTINE eomccsd_z1_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = 1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h10 h12 )_v @@ -6587,7 +6587,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = 1 * Sum ( h7 ) * t ( p9 h7 )_t * i2 ( h2 h7 h1 RETURN END SUBROUTINE eomccsd_z1_5_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_v + = 1 * v ( h2 h7 h10 h12 )_v @@ -6695,7 +6695,7 @@ C i2 ( h2 h7 h10 h12 )_v + = 1 * v ( h2 h7 h10 h12 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_v @@ -6765,7 +6765,7 @@ C i2 ( h2 h7 h10 h12 )_v END SUBROUTINE eomccsd_z1_5_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h10 p3 )_v @@ -6918,7 +6918,7 @@ C i2 ( h2 h7 h10 h12 )_vt + = 2 * Sum ( p3 ) * t ( p3 h12 )_t * i3 ( h2 h7 h RETURN END SUBROUTINE eomccsd_z1_5_3_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_v + = 1 * v ( h2 h7 h10 p3 )_v @@ -7027,7 +7027,7 @@ C i3 ( h2 h7 h10 p3 )_v + = 1 * v ( h2 h7 h10 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_3_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_v @@ -7097,7 +7097,7 @@ C i3 ( h2 h7 h10 p3 )_v END SUBROUTINE eomccsd_z1_5_3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_ &c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h7 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 h7 p3 p5 )_v @@ -7267,7 +7267,7 @@ C i3 ( h2 h7 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 h7 END SUBROUTINE eomccsd_z1_5_3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h7 h10 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * v ( h2 h7 p3 p4 )_v @@ -7439,7 +7439,7 @@ C i2 ( h2 h7 h10 h12 )_vt + = 1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * END SUBROUTINE eomccsd_z1_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p9 h10 p3 )_v @@ -7594,7 +7594,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( p3 ) * t ( p3 h12 )_t * i2 ( h2 p9 RETURN END SUBROUTINE eomccsd_z1_5_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_v + = 1 * v ( h2 p9 h10 p3 )_v @@ -7695,7 +7695,7 @@ C i2 ( h2 p9 h10 p3 )_v + = 1 * v ( h2 p9 h10 p3 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_v @@ -7765,7 +7765,7 @@ C i2 ( h2 p9 h10 p3 )_v END SUBROUTINE eomccsd_z1_5_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p9 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 p9 p3 p5 )_v @@ -7919,7 +7919,7 @@ C i2 ( h2 p9 h10 p3 )_vt + = -1/2 * Sum ( p5 ) * t ( p5 h10 )_t * v ( h2 p9 END SUBROUTINE eomccsd_z1_5_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h12 )_t * i2 ( h2 h6 h10 p4 )_v @@ -8107,7 +8107,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -2 * Sum ( h6 p4 ) * t ( p4 p9 h6 h12 )_t * i2 RETURN END SUBROUTINE eomccsd_z1_5_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v @@ -8216,7 +8216,7 @@ C i2 ( h2 h6 h10 p4 )_v + = 1 * v ( h2 h6 h10 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_5_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_v @@ -8286,7 +8286,7 @@ C i2 ( h2 h6 h10 p4 )_v END SUBROUTINE eomccsd_z1_5_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h2 h6 p4 p7 )_v @@ -8456,7 +8456,7 @@ C i2 ( h2 h6 h10 p4 )_vt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h2 h6 p4 END SUBROUTINE eomccsd_z1_5_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h10 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * v ( h2 p9 p3 p4 )_v @@ -8621,7 +8621,7 @@ C i1 ( h2 p9 h10 h12 )_vt + = -1/2 * Sum ( p3 p4 ) * t ( p3 p4 h10 h12 )_t * END SUBROUTINE eomccsd_z1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h7 p8 p5 ) * z ( h2 h7 p5 p8 )_z * i1 ( p5 p8 h7 p1 )_v @@ -8785,7 +8785,7 @@ C i0 ( h2 p1 )_zv + = 1/2 * Sum ( h7 p8 p5 ) * z ( h2 h7 p5 p8 )_z * i1 ( p5 RETURN END SUBROUTINE eomccsd_z1_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v @@ -8886,7 +8886,7 @@ C i1 ( p5 p8 h7 p1 )_v + = -1 * v ( p5 p8 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_v @@ -8956,7 +8956,7 @@ C i1 ( p5 p8 h7 p1 )_v END SUBROUTINE eomccsd_z1_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 )_v @@ -9110,7 +9110,7 @@ C i1 ( p5 p8 h7 p1 )_vt + = 1 * Sum ( p3 ) * t ( p3 h7 )_t * v ( p5 p8 p1 p3 END SUBROUTINE eomccsd_z1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_zt * f ( h3 p1 )_f @@ -9237,7 +9237,7 @@ C i0 ( h2 p1 )_ztf + = -1 * Sum ( h3 ) * i1 ( h2 h3 )_zt * f ( h3 p1 )_f END SUBROUTINE eomccsd_z1_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * z ( h2 p4 )_z @@ -9366,7 +9366,7 @@ C i1 ( h2 h3 )_zt + = 1 * Sum ( p4 ) * t ( p4 h3 )_t * z ( h2 p4 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt @@ -9424,7 +9424,7 @@ C i1 ( h2 h3 )_zt END SUBROUTINE eomccsd_z1_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_zt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * z ( h2 h6 p4 p5 )_z @@ -9602,7 +9602,7 @@ C i1 ( h2 h3 )_zt + = 1/2 * Sum ( h6 p4 p5 ) * t ( p4 p5 h3 h6 )_t * z ( h2 END SUBROUTINE eomccsd_z1_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 h6 p4 p5 )_y @@ -9778,7 +9778,7 @@ C i1 ( h2 h3 )_yx + = 1/2 * Sum ( h6 p4 p5 ) * x ( p4 p5 h3 h6 )_x * y ( h2 END SUBROUTINE eomccsd_z1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( h8 h9 ) * i1 ( h8 h9 )_zt * v ( h2 h9 h8 p1 )_v @@ -9922,7 +9922,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( h8 h9 ) * i1 ( h8 h9 )_zt * v ( h2 h9 h8 p1 END SUBROUTINE eomccsd_z1_8_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * z ( h8 p3 )_z @@ -10051,7 +10051,7 @@ C i1 ( h8 h9 )_zt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * z ( h8 p3 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_8_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt @@ -10109,7 +10109,7 @@ C i1 ( h8 h9 )_zt END SUBROUTINE eomccsd_z1_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * z ( h5 h8 p3 p4 )_z @@ -10287,7 +10287,7 @@ C i1 ( h8 h9 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h9 )_t * z ( h5 END SUBROUTINE eomccsd_z1_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 h9 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h7 h9 )_x * y ( h7 h8 p5 p6 )_y @@ -10463,7 +10463,7 @@ C i1 ( h8 h9 )_yx + = 1/2 * Sum ( h7 p5 p6 ) * x ( p5 p6 h7 h9 )_x * y ( h7 END SUBROUTINE eomccsd_z1_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p8 p9 ) * i1 ( p8 p9 )_zt * v ( h2 p9 p1 p8 )_v @@ -10607,7 +10607,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p8 p9 ) * i1 ( p8 p9 )_zt * v ( h2 p9 p1 p8 END SUBROUTINE eomccsd_z1_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt + = 1 * Sum ( h4 ) * t ( p8 h4 )_t * z ( h4 p9 )_z @@ -10736,7 +10736,7 @@ C i1 ( p8 p9 )_zt + = 1 * Sum ( h4 ) * t ( p8 h4 )_t * z ( h4 p9 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt @@ -10794,7 +10794,7 @@ C i1 ( p8 p9 )_zt END SUBROUTINE eomccsd_z1_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_zt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p8 h5 h6 )_t * z ( h5 h6 p3 p9 )_z @@ -10972,7 +10972,7 @@ C i1 ( p8 p9 )_zt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p8 h5 h6 )_t * z ( h5 END SUBROUTINE eomccsd_z1_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p8 p9 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p5 p8 h6 h7 )_x * y ( h6 h7 p5 p9 )_y @@ -11148,7 +11148,7 @@ C i1 ( p8 p9 )_yx + = 1/2 * Sum ( h6 h7 p5 ) * x ( p5 p8 h6 h7 )_x * y ( h6 END SUBROUTINE eomccsd_z1_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p9 h11 ) * i1 ( p9 h11 )_zt * v ( h2 h11 p1 p9 )_v @@ -11309,7 +11309,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p9 h11 ) * i1 ( p9 h11 )_zt * v ( h2 h11 p1 END SUBROUTINE eomccsd_z1_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * z ( h5 p3 )_z @@ -11472,7 +11472,7 @@ C i1 ( p9 h11 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * z ( h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_zt @@ -11530,7 +11530,7 @@ C i1 ( p9 h11 )_zt END SUBROUTINE eomccsd_z1_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ztt + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_zt @@ -11660,7 +11660,7 @@ C i1 ( p9 h11 )_ztt + = -1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h10 h11 )_z END SUBROUTINE eomccsd_z1_10_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * z ( h10 p5 )_z @@ -11789,7 +11789,7 @@ C i2 ( h10 h11 )_zt + = 1 * Sum ( p5 ) * t ( p5 h11 )_t * z ( h10 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt @@ -11847,7 +11847,7 @@ C i2 ( h10 h11 )_zt END SUBROUTINE eomccsd_z1_10_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h5 h10 p3 p4 )_z @@ -12025,7 +12025,7 @@ C i2 ( h10 h11 )_zt + = 1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( END SUBROUTINE eomccsd_z1_10_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h10 h11 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h11 )_x * y ( h8 h10 p6 p7 )_y @@ -12201,7 +12201,7 @@ C i2 ( h10 h11 )_yx + = 1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h11 )_x * y ( END SUBROUTINE eomccsd_z1_10_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ztt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( h5 h6 h11 p3 )_zt @@ -12371,7 +12371,7 @@ C i1 ( p9 h11 )_ztt + = 1/2 * Sum ( h5 h6 p3 ) * t ( p3 p9 h5 h6 )_t * i2 ( END SUBROUTINE eomccsd_z1_10_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p3 )_zt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * z ( h5 h6 p3 p7 )_z @@ -12526,7 +12526,7 @@ C i2 ( h5 h6 h11 p3 )_zt + = -1 * Sum ( p7 ) * t ( p7 h11 )_t * z ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h6 h11 p3 )_zt @@ -12600,7 +12600,7 @@ C i2 ( h5 h6 h11 p3 )_zt END SUBROUTINE eomccsd_z1_10_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h11 )_x * y ( h6 p5 )_y @@ -12762,7 +12762,7 @@ C i1 ( p9 h11 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 p9 h6 h11 )_x * y ( h6 p5 END SUBROUTINE eomccsd_z1_10_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( h7 h8 h11 p6 )_yt @@ -12930,7 +12930,7 @@ C i1 ( p9 h11 )_ytx + = -1/2 * Sum ( h7 h8 p6 ) * x ( p6 p9 h7 h8 )_x * i2 ( END SUBROUTINE eomccsd_z1_10_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h11 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h7 h8 p3 p6 )_y @@ -13083,7 +13083,7 @@ C i2 ( h7 h8 h11 p6 )_yt + = -1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h7 h8 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 h8 h11 p6 )_yt @@ -13155,7 +13155,7 @@ C i2 ( h7 h8 h11 p6 )_yt END SUBROUTINE eomccsd_z1_10_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 h11 )_yxt + = 1/4 * t ( p9 h11 )_t * i2 ( )_yx @@ -13275,7 +13275,7 @@ C i1 ( p9 h11 )_yxt + = 1/4 * t ( p9 h11 )_t * i2 ( )_yx END SUBROUTINE eomccsd_z1_10_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx + = 1 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -13430,7 +13430,7 @@ C i2 ( )_yx + = 1 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_10_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( )_yx @@ -13464,7 +13464,7 @@ C i2 ( )_yx END SUBROUTINE eomccsd_z1_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = -1/2 * Sum ( p9 h11 h12 ) * i1 ( h2 p9 h11 h12 )_zt * v ( h11 h12 p1 p9 )_v @@ -13631,7 +13631,7 @@ C i0 ( h2 p1 )_ztv + = -1/2 * Sum ( p9 h11 h12 ) * i1 ( h2 p9 h11 h12 )_zt * END SUBROUTINE eomccsd_z1_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_zt + = 1 * Sum ( p3 ) * t ( p3 p9 h11 h12 )_t * z ( h2 p3 )_z @@ -13787,7 +13787,7 @@ C i1 ( h2 p9 h11 h12 )_zt + = 1 * Sum ( p3 ) * t ( p3 p9 h11 h12 )_t * z ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_zt @@ -13861,7 +13861,7 @@ C i1 ( h2 p9 h11 h12 )_zt END SUBROUTINE eomccsd_z1_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 h10 h11 h12 )_zt @@ -14008,7 +14008,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 1/2 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h2 END SUBROUTINE eomccsd_z1_11_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_zt + = -1 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * z ( h2 h10 p3 p4 )_z @@ -14181,7 +14181,7 @@ C i2 ( h2 h10 h11 h12 )_zt + = -1 * Sum ( p3 p4 ) * t ( p3 p4 h11 h12 )_t * RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_zt @@ -14255,7 +14255,7 @@ C i2 ( h2 h10 h11 h12 )_zt END SUBROUTINE eomccsd_z1_11_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i3 ( h2 h10 h12 p5 )_zt @@ -14411,7 +14411,7 @@ C i2 ( h2 h10 h11 h12 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i3 ( h2 h END SUBROUTINE eomccsd_z1_11_2_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h12 p5 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h10 p5 p7 )_z @@ -14582,7 +14582,7 @@ C i3 ( h2 h10 h12 p5 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h10 p RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i3 ( h2 h10 h12 p5 )_zt @@ -14656,7 +14656,7 @@ C i3 ( h2 h10 h12 p5 )_zt END SUBROUTINE eomccsd_z1_11_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h11 h12 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h11 h12 )_x * y ( h2 h10 p7 p8 )_y @@ -14828,7 +14828,7 @@ C i2 ( h2 h10 h11 h12 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h11 h12 )_x * END SUBROUTINE eomccsd_z1_11_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * i2 ( h2 h5 h12 p3 )_zt @@ -15019,7 +15019,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 2 * Sum ( h5 p3 ) * t ( p3 p9 h5 h11 )_t * i2 END SUBROUTINE eomccsd_z1_11_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h12 p3 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h5 p3 p7 )_z @@ -15190,7 +15190,7 @@ C i2 ( h2 h5 h12 p3 )_zt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * z ( h2 h5 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h5 h12 p3 )_zt @@ -15264,7 +15264,7 @@ C i2 ( h2 h5 h12 p3 )_zt END SUBROUTINE eomccsd_z1_11_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ztt + = 1 * t ( p9 h12 )_t * i2 ( h2 h11 )_zt @@ -15412,7 +15412,7 @@ C i1 ( h2 p9 h11 h12 )_ztt + = 1 * t ( p9 h12 )_t * i2 ( h2 h11 )_zt END SUBROUTINE eomccsd_z1_11_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_zt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h2 h5 p3 p4 )_z @@ -15589,7 +15589,7 @@ C i2 ( h2 h11 )_zt + = -1 * Sum ( h5 p3 p4 ) * t ( p3 p4 h5 h11 )_t * z ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h11 )_zt @@ -15647,7 +15647,7 @@ C i2 ( h2 h11 )_zt END SUBROUTINE eomccsd_z1_11_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_yx + = 1 * Sum ( p6 ) * x ( p6 p9 h11 h12 )_x * y ( h2 p6 )_y @@ -15802,7 +15802,7 @@ C i1 ( h2 p9 h11 h12 )_yx + = 1 * Sum ( p6 ) * x ( p6 p9 h11 h12 )_x * y ( h END SUBROUTINE eomccsd_z1_11_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p9 h8 h12 )_x * i2 ( h2 h8 h11 p7 )_yt @@ -15991,7 +15991,7 @@ C i1 ( h2 p9 h11 h12 )_ytx + = 2 * Sum ( h8 p7 ) * x ( p7 p9 h8 h12 )_x * i2 END SUBROUTINE eomccsd_z1_11_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h11 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h8 p3 p7 )_y @@ -16160,7 +16160,7 @@ C i2 ( h2 h8 h11 p7 )_yt + = 1 * Sum ( p3 ) * t ( p3 h11 )_t * y ( h2 h8 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h8 h11 p7 )_yt @@ -16232,7 +16232,7 @@ C i2 ( h2 h8 h11 p7 )_yt END SUBROUTINE eomccsd_z1_11_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p9 h11 h12 )_yxt + = -1 * t ( p9 h11 )_t * i2 ( h2 h12 )_yx @@ -16378,7 +16378,7 @@ C i1 ( h2 p9 h11 h12 )_yxt + = -1 * t ( p9 h11 )_t * i2 ( h2 h12 )_yx END SUBROUTINE eomccsd_z1_11_7_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h12 )_x * y ( h2 h8 p6 p7 )_y @@ -16553,7 +16553,7 @@ C i2 ( h2 h12 )_yx + = -1 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h12 )_x * y ( h2 RETURN END SUBROUTINE OFFSET_eomccsd_z1_11_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h12 )_yx @@ -16609,7 +16609,7 @@ C i2 ( h2 h12 )_yx END SUBROUTINE eomccsd_z1_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_zt * v ( h4 p5 h6 p1 )_v @@ -16756,7 +16756,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( h6 h4 p5 ) * i1 ( h2 h6 h4 p5 )_zt * v ( h4 END SUBROUTINE eomccsd_z1_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_zt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * z ( h2 h6 p3 p5 )_z @@ -16927,7 +16927,7 @@ C i1 ( h2 h6 h4 p5 )_zt + = 1 * Sum ( p3 ) * t ( p3 h4 )_t * z ( h2 h6 p3 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 h4 p5 )_zt @@ -17001,7 +17001,7 @@ C i1 ( h2 h6 h4 p5 )_zt END SUBROUTINE eomccsd_z1_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = -1/4 * Sum ( h10 h9 h8 ) * i1 ( h2 h10 h8 h9 )_zt * v ( h8 h9 h10 p1 )_v @@ -17160,7 +17160,7 @@ C i0 ( h2 p1 )_ztv + = -1/4 * Sum ( h10 h9 h8 ) * i1 ( h2 h10 h8 h9 )_zt * v END SUBROUTINE eomccsd_z1_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_zt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h8 h9 )_t * z ( h2 h10 p3 p4 )_z @@ -17333,7 +17333,7 @@ C i1 ( h2 h10 h8 h9 )_zt + = 1 * Sum ( p3 p4 ) * t ( p3 p4 h8 h9 )_t * z ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_zt @@ -17407,7 +17407,7 @@ C i1 ( h2 h10 h8 h9 )_zt END SUBROUTINE eomccsd_z1_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_ztt + = -2 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( h2 h10 h8 p3 )_zt @@ -17563,7 +17563,7 @@ C i1 ( h2 h10 h8 h9 )_ztt + = -2 * Sum ( p3 ) * t ( p3 h9 )_t * i2 ( h2 h10 END SUBROUTINE eomccsd_z1_13_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h8 p3 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h2 h10 p3 p5 )_z @@ -17734,7 +17734,7 @@ C i2 ( h2 h10 h8 p3 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h2 h10 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_13_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h10 h8 p3 )_zt @@ -17808,7 +17808,7 @@ C i2 ( h2 h10 h8 p3 )_zt END SUBROUTINE eomccsd_z1_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h10 h8 h9 )_yx + = 1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h2 h10 p6 p7 )_y @@ -17980,7 +17980,7 @@ C i1 ( h2 h10 h8 h9 )_yx + = 1 * Sum ( p6 p7 ) * x ( p6 p7 h8 h9 )_x * y ( h END SUBROUTINE eomccsd_z1_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_ztv + = 1 * Sum ( p11 h9 p10 ) * i1 ( h2 p11 h9 p10 )_zt * v ( h9 p10 p1 p11 )_v @@ -18135,7 +18135,7 @@ C i0 ( h2 p1 )_ztv + = 1 * Sum ( p11 h9 p10 ) * i1 ( h2 p11 h9 p10 )_zt * v END SUBROUTINE eomccsd_z1_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h9 )_t * z ( h2 h5 p3 p10 )_z @@ -18339,7 +18339,7 @@ C i1 ( h2 p11 h9 p10 )_zt + = 1 * Sum ( h5 p3 ) * t ( p3 p11 h5 h9 )_t * z ( RETURN END SUBROUTINE OFFSET_eomccsd_z1_14_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_zt @@ -18413,7 +18413,7 @@ C i1 ( h2 p11 h9 p10 )_zt END SUBROUTINE eomccsd_z1_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_ztt + = -1 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 h9 p10 )_zt @@ -18559,7 +18559,7 @@ C i1 ( h2 p11 h9 p10 )_ztt + = -1 * Sum ( h4 ) * t ( p11 h4 )_t * i2 ( h2 h4 END SUBROUTINE eomccsd_z1_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * z ( h2 h4 p5 p10 )_z @@ -18730,7 +18730,7 @@ C i2 ( h2 h4 h9 p10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * z ( h2 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z1_14_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 p10 )_zt @@ -18804,7 +18804,7 @@ C i2 ( h2 h4 h9 p10 )_zt END SUBROUTINE eomccsd_z1_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p11 h9 p10 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 p11 h7 h9 )_x * y ( h2 h7 p6 p10 )_y @@ -19007,7 +19007,7 @@ C i1 ( h2 p11 h9 p10 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 p11 h7 h9 )_x * y ( END SUBROUTINE eomccsd_z1_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1/2 * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h2 h6 )_vx @@ -19133,7 +19133,7 @@ C i0 ( h2 p1 )_vxy + = 1/2 * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h2 h6 )_vx END SUBROUTINE eomccsd_z1_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 )_vx + = 1 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h6 )_x * v ( h2 h3 p4 p5 )_v @@ -19308,7 +19308,7 @@ C i1 ( h2 h6 )_vx + = 1 * Sum ( h3 p4 p5 ) * x ( p4 p5 h3 h6 )_x * v ( h2 h3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_15_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 h6 )_vx @@ -19364,7 +19364,7 @@ C i1 ( h2 h6 )_vx END SUBROUTINE eomccsd_z1_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_vxy + = 1/4 * y ( h2 p1 )_y * i1 ( )_vx @@ -19482,7 +19482,7 @@ C i0 ( h2 p1 )_vxy + = 1/4 * y ( h2 p1 )_y * i1 ( )_vx END SUBROUTINE eomccsd_z1_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx + = 1 * Sum ( h3 h4 p5 p6 ) * x ( p5 p6 h3 h4 )_x * v ( h3 h4 p5 p6 )_v @@ -19637,7 +19637,7 @@ C i1 ( )_vx + = 1 * Sum ( h3 h4 p5 p6 ) * x ( p5 p6 h3 h4 )_x * v ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_16_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx @@ -19671,7 +19671,7 @@ C i1 ( )_vx END SUBROUTINE eomccsd_z1_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_yxf + = 1/4 * i1 ( )_yx * f ( h2 p1 )_f @@ -19786,7 +19786,7 @@ C i0 ( h2 p1 )_yxf + = 1/4 * i1 ( )_yx * f ( h2 p1 )_f END SUBROUTINE eomccsd_z1_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 p4 )_y @@ -19941,7 +19941,7 @@ C i1 ( )_yx + = 1 * Sum ( h5 h6 p3 p4 ) * x ( p3 p4 h5 h6 )_x * y ( h5 h6 p3 RETURN END SUBROUTINE OFFSET_eomccsd_z1_17_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -19975,7 +19975,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_z1_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = 1/2 * Sum ( p7 h9 h10 ) * y ( h9 h10 p1 p7 )_y * i1 ( h2 p7 h9 h10 )_fx @@ -20139,7 +20139,7 @@ C i0 ( h2 p1 )_fxy + = 1/2 * Sum ( p7 h9 h10 ) * y ( h9 h10 p1 p7 )_y * i1 ( END SUBROUTINE eomccsd_z1_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_fx + = -1 * Sum ( p6 ) * x ( p6 p7 h9 h10 )_x * i2 ( h2 p6 )_f @@ -20293,7 +20293,7 @@ C i1 ( h2 p7 h9 h10 )_fx + = -1 * Sum ( p6 ) * x ( p6 p7 h9 h10 )_x * i2 ( h RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_fx @@ -20364,7 +20364,7 @@ C i1 ( h2 p7 h9 h10 )_fx RETURN END SUBROUTINE eomccsd_z1_18_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f @@ -20448,7 +20448,7 @@ C i2 ( h2 p6 )_f + = 1 * f ( h2 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_f @@ -20504,7 +20504,7 @@ C i2 ( h2 p6 )_f END SUBROUTINE eomccsd_z1_18_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 )_v @@ -20665,7 +20665,7 @@ C i2 ( h2 p6 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h2 h4 p3 p6 ) END SUBROUTINE eomccsd_z1_18_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vx + = -2 * Sum ( h6 p4 ) * x ( p4 p7 h6 h10 )_x * i2 ( h2 h6 h9 p4 )_v @@ -20853,7 +20853,7 @@ C i1 ( h2 p7 h9 h10 )_vx + = -2 * Sum ( h6 p4 ) * x ( p4 p7 h6 h10 )_x * i2 RETURN END SUBROUTINE eomccsd_z1_18_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v @@ -20962,7 +20962,7 @@ C i2 ( h2 h6 h9 p4 )_v + = 1 * v ( h2 h6 h9 p4 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_v @@ -21032,7 +21032,7 @@ C i2 ( h2 h6 h9 p4 )_v END SUBROUTINE eomccsd_z1_18_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h6 h9 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h2 h6 p3 p4 )_v @@ -21202,7 +21202,7 @@ C i2 ( h2 h6 h9 p4 )_vt + = 1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h2 h6 p3 p4 END SUBROUTINE eomccsd_z1_18_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vx + = -1/2 * Sum ( p4 p5 ) * x ( p4 p5 h9 h10 )_x * v ( h2 p7 p4 p5 )_v @@ -21367,7 +21367,7 @@ C i1 ( h2 p7 h9 h10 )_vx + = -1/2 * Sum ( p4 p5 ) * x ( p4 p5 h9 h10 )_x * v END SUBROUTINE eomccsd_z1_18_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h2 p7 h9 h10 )_vxt + = -1/2 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h2 h4 h9 h10 )_vx @@ -21511,7 +21511,7 @@ C i1 ( h2 p7 h9 h10 )_vxt + = -1/2 * Sum ( h4 ) * t ( p7 h4 )_t * i2 ( h2 h4 END SUBROUTINE eomccsd_z1_18_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 h10 )_vx + = -1 * Sum ( p5 p6 ) * x ( p5 p6 h9 h10 )_x * v ( h2 h4 p5 p6 )_v @@ -21682,7 +21682,7 @@ C i2 ( h2 h4 h9 h10 )_vx + = -1 * Sum ( p5 p6 ) * x ( p5 p6 h9 h10 )_x * v ( RETURN END SUBROUTINE OFFSET_eomccsd_z1_18_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h2 h4 h9 h10 )_vx @@ -21754,7 +21754,7 @@ C i2 ( h2 h4 h9 h10 )_vx END SUBROUTINE eomccsd_z1_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 p1 )_fxy + = 1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 h9 )_fx @@ -21914,7 +21914,7 @@ C i0 ( h2 p1 )_fxy + = 1 * Sum ( p10 h9 ) * y ( h2 h9 p1 p10 )_y * i1 ( p10 END SUBROUTINE eomccsd_z1_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx + = 1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 )_f @@ -22075,7 +22075,7 @@ C i1 ( p10 h9 )_fx + = 1 * Sum ( h6 p7 ) * x ( p7 p10 h6 h9 )_x * i2 ( h6 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_fx @@ -22130,7 +22130,7 @@ C i1 ( p10 h9 )_fx RETURN END SUBROUTINE eomccsd_z1_19_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f @@ -22214,7 +22214,7 @@ C i2 ( h6 p7 )_f + = 1 * f ( h6 p7 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_f @@ -22270,7 +22270,7 @@ C i2 ( h6 p7 )_f END SUBROUTINE eomccsd_z1_19_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_v @@ -22431,7 +22431,7 @@ C i2 ( h6 p7 )_vt + = 1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 h6 p3 p7 )_ END SUBROUTINE eomccsd_z1_19_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( h5 h7 h9 p8 )_v @@ -22598,7 +22598,7 @@ C i1 ( p10 h9 )_vx + = -1/2 * Sum ( h7 h5 p8 ) * x ( p8 p10 h5 h7 )_x * i2 ( RETURN END SUBROUTINE eomccsd_z1_19_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v @@ -22697,7 +22697,7 @@ C i2 ( h5 h7 h9 p8 )_v + = -1 * v ( h5 h7 h9 p8 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_v @@ -22767,7 +22767,7 @@ C i2 ( h5 h7 h9 p8 )_v END SUBROUTINE eomccsd_z1_19_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p8 )_v @@ -22921,7 +22921,7 @@ C i2 ( h5 h7 h9 p8 )_vt + = -1 * Sum ( p3 ) * t ( p3 h9 )_t * v ( h5 h7 p3 p END SUBROUTINE eomccsd_z1_19_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 p10 p5 p6 )_v @@ -23089,7 +23089,7 @@ C i1 ( p10 h9 )_vx + = 1/2 * Sum ( h3 p5 p6 ) * x ( p5 p6 h3 h9 )_x * v ( h3 END SUBROUTINE eomccsd_z1_19_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 h9 )_vxt + = 1/2 * Sum ( h4 ) * t ( p10 h4 )_t * i2 ( h4 h9 )_vx @@ -23217,7 +23217,7 @@ C i1 ( p10 h9 )_vxt + = 1/2 * Sum ( h4 ) * t ( p10 h4 )_t * i2 ( h4 h9 )_vx END SUBROUTINE eomccsd_z1_19_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vx + = 1 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h4 h5 p6 p7 )_v @@ -23392,7 +23392,7 @@ C i2 ( h4 h9 )_vx + = 1 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h4 h5 RETURN END SUBROUTINE OFFSET_eomccsd_z1_19_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h4 h9 )_vx diff --git a/src/tce/gradients/eomccsd_z2.F b/src/tce/gradients/eomccsd_z2.F index e1150b89e9..05ed6d5064 100644 --- a/src/tce/gradients/eomccsd_z2.F +++ b/src/tce/gradients/eomccsd_z2.F @@ -2,7 +2,7 @@ &,d_z1,d_z2,k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_of &fset,k_x1_offset,k_x2_offset,k_y1_offset,k_y2_offset,k_z1_offset,k &_z2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f @@ -639,7 +639,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 END SUBROUTINE eomccsd_z2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f @@ -799,7 +799,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 4 ) * z ( h3 p1 )_z * i1 ( h4 p2 )_f RETURN END SUBROUTINE eomccsd_z2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f @@ -883,7 +883,7 @@ C i1 ( h3 p1 )_f + = 1 * f ( h3 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_f @@ -939,7 +939,7 @@ C i1 ( h3 p1 )_f END SUBROUTINE eomccsd_z2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -1100,7 +1100,7 @@ C i1 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ END SUBROUTINE eomccsd_z2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( h3 h4 h7 p2 )_v @@ -1252,7 +1252,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( h7 ) * z ( h7 p1 )_z * i1 ( RETURN END SUBROUTINE eomccsd_z2_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v @@ -1353,7 +1353,7 @@ C i1 ( h3 h4 h7 p1 )_v + = 1 * v ( h3 h4 h7 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_v @@ -1423,7 +1423,7 @@ C i1 ( h3 h4 h7 p1 )_v END SUBROUTINE eomccsd_z2_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p5 )_v @@ -1577,7 +1577,7 @@ C i1 ( h3 h4 h7 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h7 )_t * v ( h3 h4 p1 p END SUBROUTINE eomccsd_z2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( p5 ) * i1 ( h3 p5 )_z * v ( h4 p5 p1 p2 )_v @@ -1731,7 +1731,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 2 ) * Sum ( p5 ) * i1 ( h3 p5 )_z * v ( RETURN END SUBROUTINE eomccsd_z2_3_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z @@ -1817,7 +1817,7 @@ C i1 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_z @@ -1875,7 +1875,7 @@ C i1 ( h3 p5 )_z END SUBROUTINE eomccsd_z2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h3 h7 p5 p6 )_y @@ -2036,7 +2036,7 @@ C i1 ( h3 p5 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h3 h7 p5 p6 )_ END SUBROUTINE eomccsd_z2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = -1 * P( 2 ) * Sum ( h9 ) * z ( h3 h9 p1 p2 )_z * i1 ( h4 h9 )_f @@ -2199,7 +2199,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = -1 * P( 2 ) * Sum ( h9 ) * z ( h3 h9 p1 p2 )_z * RETURN END SUBROUTINE eomccsd_z2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f @@ -2283,7 +2283,7 @@ C i1 ( h3 h9 )_f + = 1 * f ( h3 h9 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_f @@ -2339,7 +2339,7 @@ C i1 ( h3 h9 )_f END SUBROUTINE eomccsd_z2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f @@ -2466,7 +2466,7 @@ C i1 ( h3 h9 )_ft + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_f RETURN END SUBROUTINE eomccsd_z2_4_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f @@ -2550,7 +2550,7 @@ C i2 ( h3 p5 )_f + = 1 * f ( h3 p5 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_4_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_f @@ -2606,7 +2606,7 @@ C i2 ( h3 p5 )_f END SUBROUTINE eomccsd_z2_4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_v @@ -2767,7 +2767,7 @@ C i2 ( h3 p5 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_z2_4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_v @@ -2912,7 +2912,7 @@ C i1 ( h3 h9 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 h9 p5 )_ END SUBROUTINE eomccsd_z2_4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 h8 p5 p6 )_v @@ -3088,7 +3088,7 @@ C i1 ( h3 h9 )_vt + = -1/2 * Sum ( h8 p5 p6 ) * t ( p5 p6 h8 h9 )_t * v ( h3 END SUBROUTINE eomccsd_z2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 2 ) * Sum ( p10 ) * z ( h3 h4 p1 p10 )_z * i1 ( p10 p2 )_f @@ -3251,7 +3251,7 @@ C i0 ( h3 h4 p1 p2 )_zf + = 1 * P( 2 ) * Sum ( p10 ) * z ( h3 h4 p1 p10 )_z RETURN END SUBROUTINE eomccsd_z2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f @@ -3335,7 +3335,7 @@ C i1 ( p10 p1 )_f + = 1 * f ( p10 p1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_5_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_f @@ -3392,7 +3392,7 @@ C i1 ( p10 p1 )_f END SUBROUTINE eomccsd_z2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 )_v @@ -3537,7 +3537,7 @@ C i1 ( p10 p1 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 p10 p1 p5 END SUBROUTINE eomccsd_z2_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h7 h8 p1 p6 )_v @@ -3713,7 +3713,7 @@ C i1 ( p10 p1 )_vt + = 1/2 * Sum ( h7 h8 p6 ) * t ( p6 p10 h7 h8 )_t * v ( h END SUBROUTINE eomccsd_z2_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt @@ -3841,7 +3841,7 @@ C i1 ( p10 p1 )_vtt + = -1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_z2_5_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_v @@ -4001,7 +4001,7 @@ C i2 ( h6 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_5_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vt @@ -4057,7 +4057,7 @@ C i2 ( h6 p1 )_vt END SUBROUTINE eomccsd_z2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( h9 h10 ) * z ( h9 h10 p1 p2 )_z * i1 ( h3 h4 h9 h10 )_v @@ -4218,7 +4218,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( h9 h10 ) * z ( h9 h10 p1 p2 )_z * i1 RETURN END SUBROUTINE eomccsd_z2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v @@ -4316,7 +4316,7 @@ C i1 ( h3 h4 h9 h10 )_v + = 1 * v ( h3 h4 h9 h10 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_6_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_v @@ -4386,7 +4386,7 @@ C i1 ( h3 h4 h9 h10 )_v END SUBROUTINE eomccsd_z2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h10 p5 )_v @@ -4539,7 +4539,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = -2 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 h4 h1 RETURN END SUBROUTINE eomccsd_z2_6_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v @@ -4638,7 +4638,7 @@ C i2 ( h3 h4 h10 p5 )_v + = 1 * v ( h3 h4 h10 p5 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_6_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_v @@ -4708,7 +4708,7 @@ C i2 ( h3 h4 h10 p5 )_v END SUBROUTINE eomccsd_z2_6_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 p5 p7 )_v @@ -4862,7 +4862,7 @@ C i2 ( h3 h4 h10 p5 )_vt + = -1/2 * Sum ( p7 ) * t ( p7 h10 )_t * v ( h3 h4 END SUBROUTINE eomccsd_z2_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v ( h3 h4 p5 p6 )_v @@ -5024,7 +5024,7 @@ C i1 ( h3 h4 h9 h10 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h9 h10 )_t * v END SUBROUTINE eomccsd_z2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 4 ) * Sum ( h9 p7 ) * z ( h3 h9 p1 p7 )_z * i1 ( h4 p7 h9 p2 )_v @@ -5225,7 +5225,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = -1 * P( 4 ) * Sum ( h9 p7 ) * z ( h3 h9 p1 p7 )_ RETURN END SUBROUTINE eomccsd_z2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v @@ -5326,7 +5326,7 @@ C i1 ( h3 p7 h9 p1 )_v + = 1 * v ( h3 p7 h9 p1 )_v RETURN END SUBROUTINE OFFSET_eomccsd_z2_7_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_v @@ -5396,7 +5396,7 @@ C i1 ( h3 p7 h9 p1 )_v END SUBROUTINE eomccsd_z2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p5 )_v @@ -5550,7 +5550,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 p7 p1 p END SUBROUTINE eomccsd_z2_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h3 h8 p1 p6 )_v @@ -5753,7 +5753,7 @@ C i1 ( h3 p7 h9 p1 )_vt + = -1 * Sum ( h8 p6 ) * t ( p6 p7 h8 h9 )_t * v ( h END SUBROUTINE eomccsd_z2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( p5 p6 ) * z ( h3 h4 p5 p6 )_z * v ( p5 p6 p1 p2 )_v @@ -5915,7 +5915,7 @@ C i0 ( h3 h4 p1 p2 )_zv + = 1/2 * Sum ( p5 p6 ) * z ( h3 h4 p5 p6 )_z * v ( END SUBROUTINE eomccsd_z2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 2 ) * Sum ( h10 ) * i1 ( h3 h10 )_zt * v ( h4 h10 p1 p2 )_v @@ -6078,7 +6078,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 2 ) * Sum ( h10 ) * i1 ( h3 h10 )_zt * v END SUBROUTINE eomccsd_z2_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * i2 ( h3 p5 )_z @@ -6207,7 +6207,7 @@ C i1 ( h3 h10 )_zt + = 1 * Sum ( p5 ) * t ( p5 h10 )_t * i2 ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt @@ -6264,7 +6264,7 @@ C i1 ( h3 h10 )_zt RETURN END SUBROUTINE eomccsd_z2_9_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z @@ -6350,7 +6350,7 @@ C i2 ( h3 p5 )_z + = 1 * z ( h3 p5 )_z RETURN END SUBROUTINE OFFSET_eomccsd_z2_9_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_z @@ -6408,7 +6408,7 @@ C i2 ( h3 p5 )_z END SUBROUTINE eomccsd_z2_9_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h3 h8 p5 p7 )_y @@ -6569,7 +6569,7 @@ C i2 ( h3 p5 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h3 h8 p5 p7 )_ END SUBROUTINE eomccsd_z2_9_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_zt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * z ( h3 h7 p5 p6 )_z @@ -6747,7 +6747,7 @@ C i1 ( h3 h10 )_zt + = -1/2 * Sum ( h7 p5 p6 ) * t ( p5 p6 h7 h10 )_t * z ( END SUBROUTINE eomccsd_z2_9_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h3 p6 )_y @@ -6875,7 +6875,7 @@ C i1 ( h3 h10 )_yx + = 1 * Sum ( p6 ) * x ( p6 h10 )_x * y ( h3 p6 )_y END SUBROUTINE eomccsd_z2_9_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( h3 h8 p6 p7 )_y @@ -7051,7 +7051,7 @@ C i1 ( h3 h10 )_yx + = -1/2 * Sum ( h8 p6 p7 ) * x ( p6 p7 h8 h10 )_x * y ( END SUBROUTINE eomccsd_z2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_zt * f ( h5 p2 )_f @@ -7207,7 +7207,7 @@ C i0 ( h3 h4 p1 p2 )_ztf + = 1 * P( 2 ) * Sum ( h5 ) * i1 ( h3 h4 h5 p1 )_zt END SUBROUTINE eomccsd_z2_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_zt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * z ( h3 h4 p1 p6 )_z @@ -7362,7 +7362,7 @@ C i1 ( h3 h4 h5 p1 )_zt + = -1 * Sum ( p6 ) * t ( p6 h5 )_t * z ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_zt @@ -7436,7 +7436,7 @@ C i1 ( h3 h4 h5 p1 )_zt END SUBROUTINE eomccsd_z2_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p6 )_y @@ -7590,7 +7590,7 @@ C i1 ( h3 h4 h5 p1 )_yx + = -1 * Sum ( p6 ) * x ( p6 h5 )_x * y ( h3 h4 p1 p END SUBROUTINE eomccsd_z2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 4 ) * Sum ( h9 h8 ) * i1 ( h3 h9 h8 p1 )_zt * v ( h4 h8 h9 p2 )_v @@ -7778,7 +7778,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * P( 4 ) * Sum ( h9 h8 ) * i1 ( h3 h9 h8 p1 ) END SUBROUTINE eomccsd_z2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h9 p1 p5 )_z @@ -7949,7 +7949,7 @@ C i1 ( h3 h9 h8 p1 )_zt + = 1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h9 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_zt @@ -8023,7 +8023,7 @@ C i1 ( h3 h9 h8 p1 )_zt END SUBROUTINE eomccsd_z2_11_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 h8 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h9 p1 p7 )_y @@ -8193,7 +8193,7 @@ C i1 ( h3 h9 h8 p1 )_yx + = 1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h9 p1 p7 END SUBROUTINE eomccsd_z2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1 * Sum ( h8 p9 ) * i1 ( h3 h4 h8 p9 )_zt * v ( h8 p9 p1 p2 )_v @@ -8345,7 +8345,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1 * Sum ( h8 p9 ) * i1 ( h3 h4 h8 p9 )_zt * v ( END SUBROUTINE eomccsd_z2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_zt + = -1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h4 p5 p9 )_z @@ -8500,7 +8500,7 @@ C i1 ( h3 h4 h8 p9 )_zt + = -1 * Sum ( p5 ) * t ( p5 h8 )_t * z ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_zt @@ -8574,7 +8574,7 @@ C i1 ( h3 h4 h8 p9 )_zt END SUBROUTINE eomccsd_z2_12_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h8 p9 )_yx + = -1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h4 p7 p9 )_y @@ -8728,7 +8728,7 @@ C i1 ( h3 h4 h8 p9 )_yx + = -1 * Sum ( p7 ) * x ( p7 h8 )_x * y ( h3 h4 p7 p END SUBROUTINE eomccsd_z2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = 1/2 * P( 2 ) * Sum ( p10 ) * i1 ( p10 p1 )_zt * v ( h3 h4 p2 p10 )_v @@ -8892,7 +8892,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = 1/2 * P( 2 ) * Sum ( p10 ) * i1 ( p10 p1 )_zt * END SUBROUTINE eomccsd_z2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_zt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * z ( h7 h8 p1 p5 )_z @@ -9069,7 +9069,7 @@ C i1 ( p10 p1 )_zt + = -1 * Sum ( h7 h8 p5 ) * t ( p5 p10 h7 h8 )_t * z ( h7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_zt @@ -9128,7 +9128,7 @@ C i1 ( p10 p1 )_zt END SUBROUTINE eomccsd_z2_13_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_yx + = -1 * Sum ( h7 h8 p6 ) * x ( p6 p10 h7 h8 )_x * y ( h7 h8 p1 p6 )_y @@ -9304,7 +9304,7 @@ C i1 ( p10 p1 )_yx + = -1 * Sum ( h7 h8 p6 ) * x ( p6 p10 h7 h8 )_x * y ( h7 END SUBROUTINE eomccsd_z2_13_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p10 p1 )_yxt + = 2 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_yx @@ -9432,7 +9432,7 @@ C i1 ( p10 p1 )_yxt + = 2 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h6 p1 )_yx END SUBROUTINE eomccsd_z2_13_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p1 p7 )_y @@ -9592,7 +9592,7 @@ C i2 ( h6 p1 )_yx + = 1 * Sum ( h8 p7 ) * x ( p7 h8 )_x * y ( h6 h8 p1 p7 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_13_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_yx @@ -9648,7 +9648,7 @@ C i2 ( h6 p1 )_yx END SUBROUTINE eomccsd_z2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_ztv + = -1/4 * Sum ( h11 h10 ) * i1 ( h3 h4 h10 h11 )_zt * v ( h10 h11 p1 p2 )_v @@ -9812,7 +9812,7 @@ C i0 ( h3 h4 p1 p2 )_ztv + = -1/4 * Sum ( h11 h10 ) * i1 ( h3 h4 h10 h11 )_z END SUBROUTINE eomccsd_z2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_zt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h10 h11 )_t * z ( h3 h4 p5 p6 )_z @@ -9975,7 +9975,7 @@ C i1 ( h3 h4 h10 h11 )_zt + = -1 * Sum ( p5 p6 ) * t ( p5 p6 h10 h11 )_t * z RETURN END SUBROUTINE OFFSET_eomccsd_z2_14_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_zt @@ -10049,7 +10049,7 @@ C i1 ( h3 h4 h10 h11 )_zt END SUBROUTINE eomccsd_z2_14_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h10 p5 )_zt @@ -10205,7 +10205,7 @@ C i1 ( h3 h4 h10 h11 )_ztt + = -2 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE eomccsd_z2_14_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_zt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * z ( h3 h4 p5 p7 )_z @@ -10360,7 +10360,7 @@ C i2 ( h3 h4 h10 p5 )_zt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * z ( h3 h4 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_14_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_zt @@ -10434,7 +10434,7 @@ C i2 ( h3 h4 h10 p5 )_zt END SUBROUTINE eomccsd_z2_14_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h10 p5 )_yx + = -2 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 p8 )_y @@ -10588,7 +10588,7 @@ C i2 ( h3 h4 h10 p5 )_yx + = -2 * Sum ( p8 ) * x ( p8 h10 )_x * y ( h3 h4 p5 END SUBROUTINE eomccsd_z2_14_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h10 h11 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h11 )_x * y ( h3 h4 p7 p8 )_y @@ -10750,7 +10750,7 @@ C i1 ( h3 h4 h10 h11 )_yx + = -1 * Sum ( p7 p8 ) * x ( p7 p8 h10 h11 )_x * y END SUBROUTINE eomccsd_z2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_zttv + = -1 * P( 4 ) * Sum ( p10 h9 ) * i1 ( h3 p10 h9 p1 )_ztt * v ( h4 h9 p2 p10 )_v @@ -10954,7 +10954,7 @@ C i0 ( h3 h4 p1 p2 )_zttv + = -1 * P( 4 ) * Sum ( p10 h9 ) * i1 ( h3 p10 h9 END SUBROUTINE eomccsd_z2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_ztt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h9 p1 )_zt @@ -11099,7 +11099,7 @@ C i1 ( h3 p10 h9 p1 )_ztt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h RETURN END SUBROUTINE OFFSET_eomccsd_z2_15_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_ztt @@ -11173,7 +11173,7 @@ C i1 ( h3 p10 h9 p1 )_ztt END SUBROUTINE eomccsd_z2_15_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_zt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * z ( h3 h6 p1 p7 )_z @@ -11344,7 +11344,7 @@ C i2 ( h3 h6 h9 p1 )_zt + = 1 * Sum ( p7 ) * t ( p7 h9 )_t * z ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_15_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_zt @@ -11418,7 +11418,7 @@ C i2 ( h3 h6 h9 p1 )_zt END SUBROUTINE eomccsd_z2_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 p10 h8 h9 )_x * y ( h3 h8 p1 p7 )_y @@ -11621,7 +11621,7 @@ C i1 ( h3 p10 h9 p1 )_yx + = -1 * Sum ( h8 p7 ) * x ( p7 p10 h8 h9 )_x * y ( END SUBROUTINE eomccsd_z2_16(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = 1 * i1 ( )_yx * v ( h3 h4 p1 p2 )_v @@ -11752,7 +11752,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = 1 * i1 ( )_yx * v ( h3 h4 p1 p2 )_v END SUBROUTINE eomccsd_z2_16_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y @@ -11868,7 +11868,7 @@ C i1 ( )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h6 p5 )_y RETURN END SUBROUTINE OFFSET_eomccsd_z2_16_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx @@ -11902,7 +11902,7 @@ C i1 ( )_yx END SUBROUTINE eomccsd_z2_16_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 p5 p6 )_y @@ -12058,7 +12058,7 @@ C i1 ( )_yx + = 1/4 * Sum ( h7 h8 p5 p6 ) * x ( p5 p6 h7 h8 )_x * y ( h7 h8 END SUBROUTINE eomccsd_z2_17(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( h3 h4 h6 p2 )_vx @@ -12210,7 +12210,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 2 ) * Sum ( h6 ) * y ( h6 p1 )_y * i1 ( END SUBROUTINE eomccsd_z2_17_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p5 )_v @@ -12363,7 +12363,7 @@ C i1 ( h3 h4 h6 p1 )_vx + = -1 * Sum ( p5 ) * x ( p5 h6 )_x * v ( h3 h4 p1 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_17_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h6 p1 )_vx @@ -12435,7 +12435,7 @@ C i1 ( h3 h4 h6 p1 )_vx END SUBROUTINE eomccsd_z2_18(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx @@ -12595,7 +12595,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 4 ) * y ( h3 p1 )_y * i1 ( h4 p2 )_vx END SUBROUTINE eomccsd_z2_18_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_v @@ -12755,7 +12755,7 @@ C i1 ( h3 p1 )_vx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * v ( h3 h5 p1 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_18_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_vx @@ -12811,7 +12811,7 @@ C i1 ( h3 p1 )_vx END SUBROUTINE eomccsd_z2_19(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 4 ) * i1 ( h3 p1 )_yx * f ( h4 p2 )_f @@ -12971,7 +12971,7 @@ C i0 ( h3 h4 p1 p2 )_yxf + = 1 * P( 4 ) * i1 ( h3 p1 )_yx * f ( h4 p2 )_f END SUBROUTINE eomccsd_z2_19_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h3 h6 p1 p5 )_y @@ -13131,7 +13131,7 @@ C i1 ( h3 p1 )_yx + = 1 * Sum ( h6 p5 ) * x ( p5 h6 )_x * y ( h3 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_19_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p1 )_yx @@ -13187,7 +13187,7 @@ C i1 ( h3 p1 )_yx END SUBROUTINE eomccsd_z2_20(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y * i1 ( h4 h9 )_fx @@ -13350,7 +13350,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = -1 * P( 2 ) * Sum ( h9 ) * y ( h3 h9 p1 p2 )_y END SUBROUTINE eomccsd_z2_20_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f @@ -13477,7 +13477,7 @@ C i1 ( h3 h9 )_fx + = 1 * Sum ( p8 ) * x ( p8 h9 )_x * i2 ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_fx @@ -13532,7 +13532,7 @@ C i1 ( h3 h9 )_fx RETURN END SUBROUTINE eomccsd_z2_20_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f @@ -13616,7 +13616,7 @@ C i2 ( h3 p8 )_f + = 1 * f ( h3 p8 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_1_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_f @@ -13672,7 +13672,7 @@ C i2 ( h3 p8 )_f END SUBROUTINE eomccsd_z2_20_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 )_v @@ -13833,7 +13833,7 @@ C i2 ( h3 p8 )_vt + = -1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p5 p8 ) END SUBROUTINE eomccsd_z2_20_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_v @@ -13978,7 +13978,7 @@ C i1 ( h3 h9 )_vx + = 1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h3 h5 h9 p7 )_ END SUBROUTINE eomccsd_z2_20_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 h5 p6 p7 )_v @@ -14154,7 +14154,7 @@ C i1 ( h3 h9 )_vx + = -1/2 * Sum ( h5 p6 p7 ) * x ( p6 p7 h5 h9 )_x * v ( h3 END SUBROUTINE eomccsd_z2_20_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx @@ -14282,7 +14282,7 @@ C i1 ( h3 h9 )_vxt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * i2 ( h3 p5 )_vx END SUBROUTINE eomccsd_z2_20_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_v @@ -14442,7 +14442,7 @@ C i2 ( h3 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h3 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_20_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p5 )_vx @@ -14498,7 +14498,7 @@ C i2 ( h3 p5 )_vx END SUBROUTINE eomccsd_z2_21(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_fxy + = 1 * y ( h3 h4 p1 p2 )_y * i1 ( )_fx @@ -14633,7 +14633,7 @@ C i0 ( h3 h4 p1 p2 )_fxy + = 1 * y ( h3 h4 p1 p2 )_y * i1 ( )_fx END SUBROUTINE eomccsd_z2_21_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_fx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * f ( h5 p6 )_f @@ -14749,7 +14749,7 @@ C i1 ( )_fx + = 1 * Sum ( h5 p6 ) * x ( p6 h5 )_x * f ( h5 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_z2_21_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_fx @@ -14783,7 +14783,7 @@ C i1 ( )_fx END SUBROUTINE eomccsd_z2_21_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vx + = 1/4 * Sum ( h5 h6 p7 p8 ) * x ( p7 p8 h5 h6 )_x * v ( h5 h6 p7 p8 )_v @@ -14939,7 +14939,7 @@ C i1 ( )_vx + = 1/4 * Sum ( h5 h6 p7 p8 ) * x ( p7 p8 h5 h6 )_x * v ( h5 h6 END SUBROUTINE eomccsd_z2_21_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vxt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * i2 ( h6 p5 )_vx @@ -15056,7 +15056,7 @@ C i1 ( )_vxt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * i2 ( h6 p5 )_vx END SUBROUTINE eomccsd_z2_21_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_v @@ -15216,7 +15216,7 @@ C i2 ( h6 p5 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p5 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_21_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p5 )_vx @@ -15272,7 +15272,7 @@ C i2 ( h6 p5 )_vx END SUBROUTINE eomccsd_z2_22(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_yxv + = -1 * P( 2 ) * Sum ( h5 ) * i1 ( h5 p1 )_yx * v ( h3 h4 h5 p2 )_v @@ -15426,7 +15426,7 @@ C i0 ( h3 h4 p1 p2 )_yxv + = -1 * P( 2 ) * Sum ( h5 ) * i1 ( h5 p1 )_yx * v END SUBROUTINE eomccsd_z2_22_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_y @@ -15586,7 +15586,7 @@ C i1 ( h5 p1 )_yx + = 1 * Sum ( h7 p6 ) * x ( p6 h7 )_x * y ( h5 h7 p1 p6 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_22_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p1 )_yx @@ -15642,7 +15642,7 @@ C i1 ( h5 p1 )_yx END SUBROUTINE eomccsd_z2_23(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 ( h3 h4 h9 h11 )_vx @@ -15803,7 +15803,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * Sum ( h11 h9 ) * y ( h9 h11 p1 p2 )_y * i1 END SUBROUTINE eomccsd_z2_23_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 p6 )_v @@ -15956,7 +15956,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = 1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 h4 h11 RETURN END SUBROUTINE OFFSET_eomccsd_z2_23_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx @@ -16028,7 +16028,7 @@ C i1 ( h3 h4 h9 h11 )_vx END SUBROUTINE eomccsd_z2_23_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v ( h3 h4 p5 p6 )_v @@ -16190,7 +16190,7 @@ C i1 ( h3 h4 h9 h11 )_vx + = -1/4 * Sum ( p5 p6 ) * x ( p5 p6 h9 h11 )_x * v END SUBROUTINE eomccsd_z2_23_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 h9 p5 )_vx @@ -16344,7 +16344,7 @@ C i1 ( h3 h4 h9 h11 )_vxt + = -1 * Sum ( p5 ) * t ( p5 h11 )_t * i2 ( h3 h4 END SUBROUTINE eomccsd_z2_23_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p7 )_v @@ -16497,7 +16497,7 @@ C i2 ( h3 h4 h9 p5 )_vx + = -1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h4 p5 p RETURN END SUBROUTINE OFFSET_eomccsd_z2_23_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h4 h9 p5 )_vx @@ -16569,7 +16569,7 @@ C i2 ( h3 h4 h9 p5 )_vx END SUBROUTINE eomccsd_z2_24(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p10 h9 ) * y ( h3 h9 p1 p10 )_y * i1 ( h4 p10 h9 p2 )_vx @@ -16770,7 +16770,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = -1 * P( 4 ) * Sum ( p10 h9 ) * y ( h3 h9 p1 p10 END SUBROUTINE eomccsd_z2_24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 p10 p1 p6 )_v @@ -16923,7 +16923,7 @@ C i1 ( h3 p10 h9 p1 )_vx + = -1 * Sum ( p6 ) * x ( p6 h9 )_x * v ( h3 p10 p1 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vx @@ -16995,7 +16995,7 @@ C i1 ( h3 p10 h9 p1 )_vx END SUBROUTINE eomccsd_z2_24_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p10 h7 )_x * i2 ( h3 h7 h9 p1 )_vt @@ -17139,7 +17139,7 @@ C i1 ( h3 p10 h9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p10 h7 )_x * i2 ( h3 h7 h END SUBROUTINE eomccsd_z2_24_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h9 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 h7 p1 p5 )_v @@ -17308,7 +17308,7 @@ C i2 ( h3 h7 h9 p1 )_vt + = 1 * Sum ( p5 ) * t ( p5 h9 )_t * v ( h3 h7 p1 p5 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_2_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h7 h9 p1 )_vt @@ -17380,7 +17380,7 @@ C i2 ( h3 h7 h9 p1 )_vt END SUBROUTINE eomccsd_z2_24_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h9 p1 )_vx @@ -17524,7 +17524,7 @@ C i1 ( h3 p10 h9 p1 )_vxt + = 1 * Sum ( h6 ) * t ( p10 h6 )_t * i2 ( h3 h6 h END SUBROUTINE eomccsd_z2_24_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h6 p1 p7 )_v @@ -17693,7 +17693,7 @@ C i2 ( h3 h6 h9 p1 )_vx + = 1 * Sum ( p7 ) * x ( p7 h9 )_x * v ( h3 h6 p1 p7 RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 h6 h9 p1 )_vx @@ -17765,7 +17765,7 @@ C i2 ( h3 h6 h9 p1 )_vx END SUBROUTINE eomccsd_z2_24_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 p10 h9 p1 )_vtx + = -1 * x ( p10 h9 )_x * i2 ( h3 p1 )_vt @@ -17901,7 +17901,7 @@ C i1 ( h3 p10 h9 p1 )_vtx + = -1 * x ( p10 h9 )_x * i2 ( h3 p1 )_vt END SUBROUTINE eomccsd_z2_24_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_v @@ -18061,7 +18061,7 @@ C i2 ( h3 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h3 h6 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_24_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h3 p1 )_vt @@ -18117,7 +18117,7 @@ C i2 ( h3 p1 )_vt END SUBROUTINE eomccsd_z2_25(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * i1 ( p9 p2 )_vx @@ -18280,7 +18280,7 @@ C i0 ( h3 h4 p1 p2 )_vxy + = 1 * P( 2 ) * Sum ( p9 ) * y ( h3 h4 p1 p9 )_y * END SUBROUTINE eomccsd_z2_25_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 )_v @@ -18424,7 +18424,7 @@ C i1 ( p9 p1 )_vx + = -1 * Sum ( h5 p7 ) * x ( p7 h5 )_x * v ( h5 p9 p1 p7 ) RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx @@ -18480,7 +18480,7 @@ C i1 ( p9 p1 )_vx END SUBROUTINE eomccsd_z2_25_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 h6 p1 p7 )_v @@ -18656,7 +18656,7 @@ C i1 ( p9 p1 )_vx + = 1/2 * Sum ( h5 h6 p7 ) * x ( p7 p9 h5 h6 )_x * v ( h5 END SUBROUTINE eomccsd_z2_25_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx @@ -18784,7 +18784,7 @@ C i1 ( p9 p1 )_vxt + = -1 * Sum ( h6 ) * t ( p9 h6 )_t * i2 ( h6 p1 )_vx END SUBROUTINE eomccsd_z2_25_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_v @@ -18944,7 +18944,7 @@ C i2 ( h6 p1 )_vx + = 1 * Sum ( h7 p8 ) * x ( p8 h7 )_x * v ( h6 h7 p1 p8 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_3_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h6 p1 )_vx @@ -19000,7 +19000,7 @@ C i2 ( h6 p1 )_vx END SUBROUTINE eomccsd_z2_25_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt @@ -19128,7 +19128,7 @@ C i1 ( p9 p1 )_vtx + = 1 * Sum ( h7 ) * x ( p9 h7 )_x * i2 ( h7 p1 )_vt END SUBROUTINE eomccsd_z2_25_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_v @@ -19288,7 +19288,7 @@ C i2 ( h7 p1 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h7 p1 p5 )_ RETURN END SUBROUTINE OFFSET_eomccsd_z2_25_4_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i2 ( h7 p1 )_vt diff --git a/src/tce/gradients/mp2_1pdm_hh_mo.F b/src/tce/gradients/mp2_1pdm_hh_mo.F index b2da0af261..d7d91d3468 100644 --- a/src/tce/gradients/mp2_1pdm_hh_mo.F +++ b/src/tce/gradients/mp2_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp2_1pdm_hh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp2_1pdm_hh_mo.F,v 1.1 2008-10-02 00:28:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp2_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp2_1pdm_hh_mo.F,v 1.1 2008-10-02 00:28:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp2_1pdm_pp_mo.F b/src/tce/gradients/mp2_1pdm_pp_mo.F index 7a403b91e5..4f35bcfbf4 100644 --- a/src/tce/gradients/mp2_1pdm_pp_mo.F +++ b/src/tce/gradients/mp2_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp2_1pdm_pp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp2_1pdm_pp_mo.F,v 1.1 2008-10-02 00:28:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp2_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp2_1pdm_pp_mo.F,v 1.1 2008-10-02 00:28:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp2_2pdm_pphh_mo.F b/src/tce/gradients/mp2_2pdm_pphh_mo.F index 3ebb25eef4..287b8b3c35 100644 --- a/src/tce/gradients/mp2_2pdm_pphh_mo.F +++ b/src/tce/gradients/mp2_2pdm_pphh_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp2_2pdm_pphh_mo(d_i0,d_t2,k_i0_offset,k_t2_offset) -C $Id: mp2_2pdm_pphh_mo.F,v 1.1 2008-10-02 00:29:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t @@ -17,7 +17,7 @@ C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t RETURN END SUBROUTINE mp2_2pdm_pphh_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp2_2pdm_pphh_mo.F,v 1.1 2008-10-02 00:29:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_t + = 2 * t ( p3 p4 h1 h2 )_t diff --git a/src/tce/gradients/mp3_1pdm_hh_mo.F b/src/tce/gradients/mp3_1pdm_hh_mo.F index 804550f603..bcd9ea707e 100644 --- a/src/tce/gradients/mp3_1pdm_hh_mo.F +++ b/src/tce/gradients/mp3_1pdm_hh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_1pdm_hh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp3_1pdm_hh_mo.F,v 1.1 2008-10-02 17:35:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h END SUBROUTINE mp3_1pdm_hh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp3_1pdm_hh_mo.F,v 1.1 2008-10-02 17:35:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp3_1pdm_pp_mo.F b/src/tce/gradients/mp3_1pdm_pp_mo.F index 2ba84b7615..6403cee14b 100644 --- a/src/tce/gradients/mp3_1pdm_pp_mo.F +++ b/src/tce/gradients/mp3_1pdm_pp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_1pdm_pp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k &_y2_offset) -C $Id: mp3_1pdm_pp_mo.F,v 1.1 2008-10-02 17:36:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 END SUBROUTINE mp3_1pdm_pp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: mp3_1pdm_pp_mo.F,v 1.1 2008-10-02 17:36:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp3_2pdm_hhhh_mo.F b/src/tce/gradients/mp3_2pdm_hhhh_mo.F index 777baca9d9..c79358c6cd 100644 --- a/src/tce/gradients/mp3_2pdm_hhhh_mo.F +++ b/src/tce/gradients/mp3_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_hhhh_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_hhhh_mo.F,v 1.1 2008-10-02 17:36:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( END SUBROUTINE mp3_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_hhhh_mo.F,v 1.1 2008-10-02 17:36:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/mp3_2pdm_hhpp_mo.F b/src/tce/gradients/mp3_2pdm_hhpp_mo.F index c4c7cc5294..e85adf3438 100644 --- a/src/tce/gradients/mp3_2pdm_hhpp_mo.F +++ b/src/tce/gradients/mp3_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp3_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: mp3_2pdm_hhpp_mo.F,v 1.1 2008-10-02 17:37:50 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE mp3_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp3_2pdm_hhpp_mo.F,v 1.1 2008-10-02 17:37:50 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/mp3_2pdm_hphp_mo.F b/src/tce/gradients/mp3_2pdm_hphp_mo.F index adb5d30e89..33e4bc3ea0 100644 --- a/src/tce/gradients/mp3_2pdm_hphp_mo.F +++ b/src/tce/gradients/mp3_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_hphp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_hphp_mo.F,v 1.1 2008-10-02 17:38:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 END SUBROUTINE mp3_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_hphp_mo.F,v 1.1 2008-10-02 17:38:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt + = -1/4 * P( 4 ) * Sum ( h6 p5 ) * t ( p2 p5 h1 h6 )_t * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/mp3_2pdm_pppp_mo.F b/src/tce/gradients/mp3_2pdm_pppp_mo.F index 0a639e7836..64e546f512 100644 --- a/src/tce/gradients/mp3_2pdm_pppp_mo.F +++ b/src/tce/gradients/mp3_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp3_2pdm_pppp_mo(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offs &et,k_y2_offset) -C $Id: mp3_2pdm_pppp_mo.F,v 1.1 2008-10-02 17:38:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( END SUBROUTINE mp3_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp3_2pdm_pppp_mo.F,v 1.1 2008-10-02 17:38:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt + = 1/2 * Sum ( h5 h6 ) * t ( p1 p2 h5 h6 )_t * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_II.F b/src/tce/gradients/mp4_1pdm_hh_mo_II.F index 57673d410f..4b1af99a45 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_II.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_II.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_hh_mo_II(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: mp4_1pdm_hh_mo_II.F,v 1.1 2008-10-02 19:13:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h END SUBROUTINE mp4_1pdm_hh_mo_II_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: mp4_1pdm_hh_mo_II.F,v 1.1 2008-10-02 19:13:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F b/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F index 042af6fca5..fb953eea15 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_III_a.F @@ -1,7 +1,7 @@ SUBROUTINE mp4_1pdm_hh_mo_III_a(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3 &,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_ &offset,k_y3_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -37,7 +37,7 @@ C i0 ( h2 h1 )_ty + = -1/12 * Sum ( p5 p6 p7 h3 h4 ) * t ( p5 p6 p7 h1 h3 h4 END SUBROUTINE mp4_1pdm_hh_mo_III_a_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y @@ -165,7 +165,7 @@ C i0 ( h2 h1 )_ty + = -1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y END SUBROUTINE mp4_1pdm_hh_mo_III_a_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -341,7 +341,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp4_1pdm_hh_mo_III_a_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_a.F,v 1.1 2008-10-02 19:13:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/12 * Sum ( p5 p6 p7 h3 h4 ) * t ( p5 p6 p7 h1 h3 h4 )_t * y ( h2 h3 h4 p5 p6 p7 )_y diff --git a/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F b/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F index d65fd33a86..149062e79a 100644 --- a/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F +++ b/src/tce/gradients/mp4_1pdm_hh_mo_III_b.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_hh_mo_III_b(d_i0,d_t2,d_y2,k_i0_offset,k_t2_of &fset,k_y2_offset) -C $Id: mp4_1pdm_hh_mo_III_b.F,v 1.1 2008-10-02 19:13:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 END SUBROUTINE mp4_1pdm_hh_mo_III_b_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_hh_mo_III_b.F,v 1.1 2008-10-02 19:13:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_ty + = -1/2 * Sum ( p4 p5 h3 ) * t ( p4 p5 h1 h3 )_t * y ( h2 h3 p4 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_II.F b/src/tce/gradients/mp4_1pdm_pp_mo_II.F index b56bf460fc..9cf1a2f9c6 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_II.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_II.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_pp_mo_II(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offse &t,k_y2_offset) -C $Id: mp4_1pdm_pp_mo_II.F,v 1.1 2008-10-02 19:14:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 END SUBROUTINE mp4_1pdm_pp_mo_II_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k &_c_offset) -C $Id: mp4_1pdm_pp_mo_II.F,v 1.1 2008-10-02 19:14:04 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F b/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F index 77fb2b9636..a7d95547cf 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_III_a.F @@ -1,7 +1,7 @@ SUBROUTINE mp4_1pdm_pp_mo_III_a(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y3 &,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2_ &offset,k_y3_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -37,7 +37,7 @@ C i0 ( p1 p2 )_ty + = 1/12 * Sum ( p6 p7 h3 h4 h5 ) * t ( p1 p6 p7 h3 h4 h5 END SUBROUTINE mp4_1pdm_pp_mo_III_a_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y @@ -165,7 +165,7 @@ C i0 ( p1 p2 )_ty + = 1 * Sum ( h3 ) * t ( p1 h3 )_t * y ( h3 p2 )_y END SUBROUTINE mp4_1pdm_pp_mo_III_a_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -341,7 +341,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp4_1pdm_pp_mo_III_a_3(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_a.F,v 1.1 2008-10-02 19:14:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/12 * Sum ( p6 p7 h3 h4 h5 ) * t ( p1 p6 p7 h3 h4 h5 )_t * y ( h3 h4 h5 p2 p6 p7 )_y diff --git a/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F b/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F index ac40fd9620..e17ba93811 100644 --- a/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F +++ b/src/tce/gradients/mp4_1pdm_pp_mo_III_b.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_1pdm_pp_mo_III_b(d_i0,d_t2,d_y2,k_i0_offset,k_t2_of &fset,k_y2_offset) -C $Id: mp4_1pdm_pp_mo_III_b.F,v 1.1 2008-10-02 19:14:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 END SUBROUTINE mp4_1pdm_pp_mo_III_b_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_1pdm_pp_mo_III_b.F,v 1.1 2008-10-02 19:14:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_ty + = 1/2 * Sum ( p5 h3 h4 ) * t ( p1 p5 h3 h4 )_t * y ( h3 h4 p2 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_hhhh_mo.F b/src/tce/gradients/mp4_2pdm_hhhh_mo.F index f3c8857008..722f1410be 100644 --- a/src/tce/gradients/mp4_2pdm_hhhh_mo.F +++ b/src/tce/gradients/mp4_2pdm_hhhh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hhhh_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hhhh_mo.F,v 1.1 2008-10-02 19:15:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( h3 h4 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( END SUBROUTINE mp4_2pdm_hhhh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hhhh_mo.F,v 1.1 2008-10-02 19:15:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 h1 h2 )_yt2 + = 1 * Sum ( p5 p6 ) * t2 ( p5 p6 h1 h2 )_t2 * y ( h3 h4 p5 p6 )_y diff --git a/src/tce/gradients/mp4_2pdm_hhpp_mo.F b/src/tce/gradients/mp4_2pdm_hhpp_mo.F index 2d71ebf8ab..6c531cd2f0 100644 --- a/src/tce/gradients/mp4_2pdm_hhpp_mo.F +++ b/src/tce/gradients/mp4_2pdm_hhpp_mo.F @@ -1,5 +1,5 @@ SUBROUTINE mp4_2pdm_hhpp_mo(d_i0,d_y2,k_i0_offset,k_y2_offset) -C $Id: mp4_2pdm_hhpp_mo.F,v 1.1 2008-10-02 19:16:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y @@ -17,7 +17,7 @@ C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y RETURN END SUBROUTINE mp4_2pdm_hhpp_mo_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mp4_2pdm_hhpp_mo.F,v 1.1 2008-10-02 19:16:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 h4 p1 p2 )_y + = 2 * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/mp4_2pdm_hphh_mo.F b/src/tce/gradients/mp4_2pdm_hphh_mo.F index f64797bb11..9a7a6befc9 100644 --- a/src/tce/gradients/mp4_2pdm_hphh_mo.F +++ b/src/tce/gradients/mp4_2pdm_hphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hphh_mo(d_i0,d_t23,d_y2,k_i0_offset,k_t23_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hphh_mo.F,v 1.1 2008-10-02 19:17:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 h1 h2 h7 )_t2 * y ( h3 h7 p5 p6 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 END SUBROUTINE mp4_2pdm_hphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hphh_mo.F,v 1.1 2008-10-02 19:17:09 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p4 h1 h2 )_yt2 + = 1/2 * P( 2 ) * Sum ( h7 p5 p6 ) * t2 ( p4 p5 p6 h1 h2 h7 )_t2 * y ( h3 h7 p5 p6 )_y diff --git a/src/tce/gradients/mp4_2pdm_hphp_mo.F b/src/tce/gradients/mp4_2pdm_hphp_mo.F index 7508c9ca4c..10ddc6fc89 100644 --- a/src/tce/gradients/mp4_2pdm_hphp_mo.F +++ b/src/tce/gradients/mp4_2pdm_hphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_hphp_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_hphp_mo.F,v 1.1 2008-10-02 19:17:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h6 )_t2 * y ( h3 h6 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h END SUBROUTINE mp4_2pdm_hphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_hphp_mo.F,v 1.1 2008-10-02 19:17:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h3 p2 h1 p4 )_yt2 + = -1/2 * P( 4 ) * Sum ( h6 p5 ) * t2 ( p2 p5 h1 h6 )_t2 * y ( h3 h6 p4 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_pphh_mo.F b/src/tce/gradients/mp4_2pdm_pphh_mo.F index c2c6d6aec2..a2950d551e 100644 --- a/src/tce/gradients/mp4_2pdm_pphh_mo.F +++ b/src/tce/gradients/mp4_2pdm_pphh_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pphh_mo(d_i0,d_t12,d_y2,k_i0_offset,k_t12_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 @@ -94,7 +94,7 @@ C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * END SUBROUTINE mp4_2pdm_pphh_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 @@ -231,7 +231,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * t1 ( p3 p4 h1 h2 )_t1 * i1 ( )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_1_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt1 + = 1 * Sum ( h7 h8 p5 p6 ) * t1 ( p5 p6 h7 h8 )_t1 * y ( h7 h8 p5 p6 )_y @@ -387,7 +387,7 @@ C i1 ( )_yt1 + = 1 * Sum ( h7 h8 p5 p6 ) * t1 ( p5 p6 h7 h8 )_t1 * y ( h7 h8 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_1_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt1 @@ -421,7 +421,7 @@ C i1 ( )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_2(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( p5 ) * t1 ( p3 p5 h1 h2 )_t1 * i1 ( p4 p5 )_yt1 @@ -586,7 +586,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( p5 ) * t1 ( p3 p5 h1 h2 ) END SUBROUTINE mp4_2pdm_pphh_mo_2_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt1 + = 1 * Sum ( h7 h8 p6 ) * t1 ( p3 p6 h7 h8 )_t1 * y ( h7 h8 p5 p6 )_y @@ -762,7 +762,7 @@ C i1 ( p3 p5 )_yt1 + = 1 * Sum ( h7 h8 p6 ) * t1 ( p3 p6 h7 h8 )_t1 * y ( h7 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_2_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt1 @@ -818,7 +818,7 @@ C i1 ( p3 p5 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_3(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * Sum ( h7 h8 ) * t1 ( p3 p4 h7 h8 )_t1 * i1 ( h7 h8 h1 h2 )_yt1 @@ -981,7 +981,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1/2 * Sum ( h7 h8 ) * t1 ( p3 p4 h7 h8 )_t1 * END SUBROUTINE mp4_2pdm_pphh_mo_3_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h1 h2 )_t1 * y ( h7 h8 p5 p6 )_y @@ -1143,7 +1143,7 @@ C i1 ( h7 h8 h1 h2 )_yt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h1 h2 )_t1 * y ( END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_3_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h8 h1 h2 )_yt1 @@ -1215,7 +1215,7 @@ C i1 ( h7 h8 h1 h2 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_4(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( h5 ) * t1 ( p3 p4 h1 h5 )_t1 * i1 ( h5 h2 )_yt1 @@ -1380,7 +1380,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = -1 * P( 2 ) * Sum ( h5 ) * t1 ( p3 p4 h1 h5 ) END SUBROUTINE mp4_2pdm_pphh_mo_4_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt1 + = 1 * Sum ( h8 p6 p7 ) * t1 ( p6 p7 h1 h8 )_t1 * y ( h5 h8 p6 p7 )_y @@ -1556,7 +1556,7 @@ C i1 ( h5 h1 )_yt1 + = 1 * Sum ( h8 p6 p7 ) * t1 ( p6 p7 h1 h8 )_t1 * y ( h5 END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_4_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt1 @@ -1612,7 +1612,7 @@ C i1 ( h5 h1 )_yt1 END SUBROUTINE mp4_2pdm_pphh_mo_5(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1 * P( 4 ) * Sum ( h6 p5 ) * t1 ( p3 p5 h1 h6 )_t1 * i1 ( h6 p4 h2 p5 )_yt1 @@ -1815,7 +1815,7 @@ C i0 ( p3 p4 h1 h2 )_yt1t1 + = 1 * P( 4 ) * Sum ( h6 p5 ) * t1 ( p3 p5 h1 h6 END SUBROUTINE mp4_2pdm_pphh_mo_5_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * y ( h6 h8 p5 p7 )_y @@ -2018,7 +2018,7 @@ C i1 ( h6 p3 h1 p5 )_yt1 + = 1 * Sum ( h8 p7 ) * t1 ( p3 p7 h1 h8 )_t1 * y ( END SUBROUTINE OFFSET_mp4_2pdm_pphh_mo_5_1(l_a_offset,k_a_offset,siz &e) -C $Id: mp4_2pdm_pphh_mo.F,v 1.1 2008-10-02 19:17:46 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt1 diff --git a/src/tce/gradients/mp4_2pdm_pphp_mo.F b/src/tce/gradients/mp4_2pdm_pphp_mo.F index 62454c1996..2871d778da 100644 --- a/src/tce/gradients/mp4_2pdm_pphp_mo.F +++ b/src/tce/gradients/mp4_2pdm_pphp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pphp_mo(d_i0,d_t23,d_y2,k_i0_offset,k_t23_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pphp_mo.F,v 1.1 2008-10-02 19:18:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 h1 h6 h7 )_t2 * y ( h6 h7 p4 p5 )_y @@ -22,7 +22,7 @@ C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 END SUBROUTINE mp4_2pdm_pphp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pphp_mo.F,v 1.1 2008-10-02 19:18:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p3 h1 p4 )_yt2 + = 1/2 * P( 2 ) * Sum ( h6 h7 p5 ) * t2 ( p2 p3 p5 h1 h6 h7 )_t2 * y ( h6 h7 p4 p5 )_y diff --git a/src/tce/gradients/mp4_2pdm_pppp_mo.F b/src/tce/gradients/mp4_2pdm_pppp_mo.F index 9805aef754..630fa61bf1 100644 --- a/src/tce/gradients/mp4_2pdm_pppp_mo.F +++ b/src/tce/gradients/mp4_2pdm_pppp_mo.F @@ -1,6 +1,6 @@ SUBROUTINE mp4_2pdm_pppp_mo(d_i0,d_t22,d_y2,k_i0_offset,k_t22_of &fset,k_y2_offset) -C $Id: mp4_2pdm_pppp_mo.F,v 1.1 2008-10-02 19:18:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( h5 h6 p3 p4 )_y @@ -22,7 +22,7 @@ C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( END SUBROUTINE mp4_2pdm_pppp_mo_1(d_a,k_a_offset,d_b,k_b_offset,d_c, &k_c_offset) -C $Id: mp4_2pdm_pppp_mo.F,v 1.1 2008-10-02 19:18:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p4 )_yt2 + = 1 * Sum ( h5 h6 ) * t2 ( p1 p2 h5 h6 )_t2 * y ( h5 h6 p3 p4 )_y diff --git a/src/tce/gradients/tce_cis_denominator.F b/src/tce/gradients/tce_cis_denominator.F index 790d7d0be4..e9d4f5a9d8 100644 --- a/src/tce/gradients/tce_cis_denominator.F +++ b/src/tce/gradients/tce_cis_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE tce_cis_denominator(d_i0,d_x1,d_y1,k_i0_offset,k_x1_off &set,k_y1_offset) -C $Id: tce_cis_denominator.F,v 1.1 2008-10-02 23:20:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y @@ -22,7 +22,7 @@ C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y END SUBROUTINE tce_cis_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_c &,k_c_offset) -C $Id: tce_cis_denominator.F,v 1.1 2008-10-02 23:20:29 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yx + = 1 * Sum ( h2 p1 ) * x ( p1 h2 )_x * y ( h2 p1 )_y diff --git a/src/tce/gradients/tce_cisd_denominator.F b/src/tce/gradients/tce_cisd_denominator.F index ab4cbb5bc6..065b0e8680 100644 --- a/src/tce/gradients/tce_cisd_denominator.F +++ b/src/tce/gradients/tce_cisd_denominator.F @@ -1,6 +1,6 @@ SUBROUTINE tce_cisd_denominator(d_i0,d_t1,d_t2,d_y1,d_y2,k_i0_offs &et,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -29,7 +29,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisd_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -146,7 +146,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisd_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d_ &c,k_c_offset) -C $Id: tce_cisd_denominator.F,v 1.1 2008-10-01 18:53:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/tce_cisdt_denominator.F b/src/tce/gradients/tce_cisdt_denominator.F index 1c7f9f46af..bdad150b6c 100644 --- a/src/tce/gradients/tce_cisdt_denominator.F +++ b/src/tce/gradients/tce_cisdt_denominator.F @@ -1,7 +1,7 @@ SUBROUTINE tce_cisdt_denominator(d_i0,d_t1,d_t2,d_t3,d_y1,d_y2,d_y &3,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_y1_offset,k_y2 &_offset,k_y3_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -37,7 +37,7 @@ C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t END SUBROUTINE tce_cisdt_denominator_1(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -154,7 +154,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisdt_denominator_2(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -310,7 +310,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisdt_denominator_3(d_a,k_a_offset,d_b,k_b_offset,d &_c,k_c_offset) -C $Id: tce_cisdt_denominator.F,v 1.1 2008-10-01 20:55:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t * y ( h4 h5 h6 p1 p2 p3 )_y diff --git a/src/tce/gradients/tce_cisdtq_denominator.F b/src/tce/gradients/tce_cisdtq_denominator.F index 4749d9b717..a51087d2d3 100644 --- a/src/tce/gradients/tce_cisdtq_denominator.F +++ b/src/tce/gradients/tce_cisdtq_denominator.F @@ -1,7 +1,7 @@ SUBROUTINE tce_cisdtq_denominator(d_i0,d_t1,d_t2,d_t3,d_t4,d_y1,d_ &y2,d_y3,d_y4,k_i0_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_ &offset,k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -44,7 +44,7 @@ C i0 ( )_yt + = 1/576 * Sum ( h5 h6 h7 h8 p1 p2 p3 p4 ) * t ( p1 p2 p3 p4 h5 END SUBROUTINE tce_cisdtq_denominator_1(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y @@ -161,7 +161,7 @@ C i0 ( )_yt + = 1 * Sum ( h2 p1 ) * t ( p1 h2 )_t * y ( h2 p1 )_y END SUBROUTINE tce_cisdtq_denominator_2(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -317,7 +317,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_cisdtq_denominator_3(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t * y ( h4 h5 h6 p1 p2 p3 )_y @@ -501,7 +501,7 @@ C i0 ( )_yt + = 1/36 * Sum ( h4 h5 h6 p1 p2 p3 ) * t ( p1 p2 p3 h4 h5 h6 )_t END SUBROUTINE tce_cisdtq_denominator_4(d_a,k_a_offset,d_b,k_b_offset, &d_c,k_c_offset) -C $Id: tce_cisdtq_denominator.F,v 1.1 2008-10-01 22:23:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/576 * Sum ( h5 h6 h7 h8 p1 p2 p3 p4 ) * t ( p1 p2 p3 p4 h5 h6 h7 h8 )_t * y ( h5 h6 h7 h8 p1 p2 p3 p4 )_y diff --git a/src/tce/gradients/tce_dens_pphh_offset.F b/src/tce/gradients/tce_dens_pphh_offset.F index 9c294bcf75..fdb5a3d924 100644 --- a/src/tce/gradients/tce_dens_pphh_offset.F +++ b/src/tce/gradients/tce_dens_pphh_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_dens_pphh_offset(l_a_offset,k_a_offset,size) -C $Id: tce_dens_pphh_offset.F,v 1.1 2008-09-30 19:30:39 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C dens_pphp ( p1 p2 h3 h4 ) diff --git a/src/tce/gradients/tce_eom_xdiagon_grad.F b/src/tce/gradients/tce_eom_xdiagon_grad.F index 523dd2ad27..ba1c0ad5f9 100644 --- a/src/tce/gradients/tce_eom_xdiagon_grad.F +++ b/src/tce/gradients/tce_eom_xdiagon_grad.F @@ -3,7 +3,7 @@ 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual) c -c $Id: tce_eom_xdiagon.F,v 1.3 2005/12/16 22:16:04 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/gradients/tce_grad1.F b/src/tce/gradients/tce_grad1.F index ef6232face..e63b6a1dba 100644 --- a/src/tce/gradients/tce_grad1.F +++ b/src/tce/gradients/tce_grad1.F @@ -2,7 +2,7 @@ $ frc_kin, frc_wgh, g_force, $ g_dens, g_wdens, basis, geom, nproc, nat, $ max_at_bf, rtdb, oskel ) -c$Id: tce_grad1.F,v 1.1 2008-09-30 19:33:22 d3p975 Exp $ +c$Id$ C one electron contribution to RHF, ROHF and UHF gradients C now also UMP2 @@ -274,7 +274,7 @@ c $ dens, wdens, frc_nuc, c $ frc_kin, frc_wgh, g_force, c $ g_dens, g_wdens, basis, geom, nproc, nat, c $ max_at_bf, rtdb, oskel ) -cc$Id: tce_grad1.F,v 1.1 2008-09-30 19:33:22 d3p975 Exp $ +cc$Id$ c cC one electron contribution to RHF, ROHF and UHF gradients cC now also UMP2 diff --git a/src/tce/gradients/tce_grad2.F b/src/tce/gradients/tce_grad2.F index 4fd28d2056..bf21133920 100644 --- a/src/tce/gradients/tce_grad2.F +++ b/src/tce/gradients/tce_grad2.F @@ -14,7 +14,7 @@ $ nopen,nbf,pdm2,pdm2a,pdm2b,pdm2c,pdm2d,coeff, $ nshblocks, shmap, shglo, shghi, bfglo, bfghi, bfmap, rbfmap, $ bftoat, shbflo, shbfhi, jfac, kfac, exso) -c $Id: tce_grad2.F,v 1.1 2008-09-30 19:33:35 d3p975 Exp $ +c $Id$ implicit none #include "errquit.fh" #include "sym.fh" diff --git a/src/tce/gradients/tce_grad_force.F b/src/tce/gradients/tce_grad_force.F index e77650949e..ac3ef72d5d 100644 --- a/src/tce/gradients/tce_grad_force.F +++ b/src/tce/gradients/tce_grad_force.F @@ -4,7 +4,7 @@ 1 d_2pdm, k_2pdm_offset, size_2pdm, 1 noab,nvab,k_range,k_offset,k_spin, 1 k_movecs_sorted,restricted) -c $Id: tce_grad_force.F,v 1.2 2008-10-01 18:59:13 d3p975 Exp $ +c $Id$ C calculate energy gradients with respect to nuclear coordinates C------------------------------------------------------------------------------ implicit none diff --git a/src/tce/gradients/tce_grad_tidy.F b/src/tce/gradients/tce_grad_tidy.F index f03544dd7e..9a262d949e 100644 --- a/src/tce/gradients/tce_grad_tidy.F +++ b/src/tce/gradients/tce_grad_tidy.F @@ -1,6 +1,6 @@ subroutine tce_grad_tidy(rtdb) c -c $Id: tce_grad_tidy.F,v 1.1 2008-09-30 19:36:10 d3p975 Exp $ +c $Id$ c c Terminate TCE modulem. c diff --git a/src/tce/gradients/tce_gradients_doit.F b/src/tce/gradients/tce_gradients_doit.F index 964049a909..6823a6e2b4 100644 --- a/src/tce/gradients/tce_gradients_doit.F +++ b/src/tce/gradients/tce_gradients_doit.F @@ -5,7 +5,7 @@ 1 noab,nvab,k_range,k_offset,k_spin, 1 k_movecs_sorted,restricted) c -c$Id: tce_gradients_doit.F,v 1.1 2008-09-30 19:35:19 d3p975 Exp $ +c$Id$ implicit none #include "errquit.fh" #include "mafdecls.fh" diff --git a/src/tce/gradients/tce_mp2_norm.F b/src/tce/gradients/tce_mp2_norm.F index 03ed02ddfa..b5902176d6 100644 --- a/src/tce/gradients/tce_mp2_norm.F +++ b/src/tce/gradients/tce_mp2_norm.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mp2_norm(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k_y &2_offset) -C $Id: tce_mp2_norm.F,v 1.1 2008-10-02 19:23:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y @@ -22,7 +22,7 @@ C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 END SUBROUTINE tce_mp2_norm_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce_mp2_norm.F,v 1.1 2008-10-02 19:23:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_yt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * y ( h3 h4 p1 p2 )_y diff --git a/src/tce/gradients/tce_mp4_t24.F b/src/tce/gradients/tce_mp4_t24.F index 3dfff29703..a2707af925 100644 --- a/src/tce/gradients/tce_mp4_t24.F +++ b/src/tce/gradients/tce_mp4_t24.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mp4_t24(d_i0,d_t2,d_y2,k_i0_offset,k_t2_offset,k_y2 &_offset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt @@ -89,7 +89,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y END SUBROUTINE tce_mp4_t24_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt @@ -224,7 +224,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * t ( p3 p4 h1 h2 )_t * i1 ( )_yt END SUBROUTINE tce_mp4_t24_1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt + = 1 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -379,7 +379,7 @@ C i1 ( )_yt + = 1 * Sum ( h7 h8 p5 p6 ) * t ( p5 p6 h7 h8 )_t * y ( h7 h8 p5 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_1_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_yt @@ -413,7 +413,7 @@ C i1 ( )_yt END SUBROUTINE tce_mp4_t24_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_yt @@ -576,7 +576,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_ END SUBROUTINE tce_mp4_t24_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 p5 p6 )_y @@ -751,7 +751,7 @@ C i1 ( p3 p5 )_yt + = 1 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * y ( h7 h8 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_2_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_yt @@ -807,7 +807,7 @@ C i1 ( p3 p5 )_yt END SUBROUTINE tce_mp4_t24_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 ( h5 h6 h1 h2 )_yt @@ -968,7 +968,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/4 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * i1 END SUBROUTINE tce_mp4_t24_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h5 h6 p7 p8 )_y @@ -1129,7 +1129,7 @@ C i1 ( h5 h6 h1 h2 )_yt + = 1 * Sum ( p7 p8 ) * t ( p7 p8 h1 h2 )_t * y ( h5 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_3_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h6 h1 h2 )_yt @@ -1201,7 +1201,7 @@ C i1 ( h5 h6 h1 h2 )_yt END SUBROUTINE tce_mp4_t24_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_yt @@ -1364,7 +1364,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = -1/2 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_ END SUBROUTINE tce_mp4_t24_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt + = 1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 p6 p7 )_y @@ -1539,7 +1539,7 @@ C i1 ( h5 h1 )_yt + = 1 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * y ( h5 h8 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_4_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_yt @@ -1595,7 +1595,7 @@ C i1 ( h5 h1 )_yt END SUBROUTINE tce_mp4_t24_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_yt @@ -1796,7 +1796,7 @@ C i0 ( p3 p4 h1 h2 )_ytt + = 1/2 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 END SUBROUTINE tce_mp4_t24_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 h8 p5 p7 )_y @@ -1998,7 +1998,7 @@ C i1 ( h6 p3 h1 p5 )_yt + = 1 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * y ( h6 RETURN END SUBROUTINE OFFSET_tce_mp4_t24_5_1(l_a_offset,k_a_offset,size) -C $Id: tce_mp4_t24.F,v 1.1 2008-10-02 19:20:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_yt diff --git a/src/tce/gradients/tce_zvec_x1_offset.F b/src/tce/gradients/tce_zvec_x1_offset.F index ca32d49824..71bc7bef3e 100644 --- a/src/tce/gradients/tce_zvec_x1_offset.F +++ b/src/tce/gradients/tce_zvec_x1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_zvec_x1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_zvec_x1_offset.F,v 1.1 2008-09-30 19:37:07 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/gradients/wdm_hh_mo_a.F b/src/tce/gradients/wdm_hh_mo_a.F index b7ab56b3ae..e114ae901f 100644 --- a/src/tce/gradients/wdm_hh_mo_a.F +++ b/src/tce/gradients/wdm_hh_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_fd + = -1/2 * Sum ( h3 ) * d ( h3 h1 )_d * f ( h2 h3 )_f @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_fd + = -1/2 * Sum ( h3 ) * d ( h1 h3 )_d * f ( h3 h2 )_f END SUBROUTINE wdm_hh_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_fd + = -1/2 * Sum ( h3 ) * d ( h3 h1 )_d * f ( h2 h3 )_f @@ -159,7 +159,7 @@ c & 1 + noab * (h2b - 1))) END SUBROUTINE wdm_hh_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_a.F,v 1.1 2008-09-30 19:40:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_fd + = -1/2 * Sum ( h3 ) * d ( h1 h3 )_d * f ( h3 h2 )_f diff --git a/src/tce/gradients/wdm_hh_mo_b_a_a.F b/src/tce/gradients/wdm_hh_mo_b_a_a.F index 2286c9bfe3..df6ca97ffa 100644 --- a/src/tce/gradients/wdm_hh_mo_b_a_a.F +++ b/src/tce/gradients/wdm_hh_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_a_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_a_a.F,v 1.1 2008-09-30 19:40:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 END SUBROUTINE wdm_hh_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_a_a.F,v 1.1 2008-09-30 19:40:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h1 h3 h2 h4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_a_b.F b/src/tce/gradients/wdm_hh_mo_b_a_b.F index 998978e0cc..48e0620424 100644 --- a/src/tce/gradients/wdm_hh_mo_b_a_b.F +++ b/src/tce/gradients/wdm_hh_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_a_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_a_b.F,v 1.1 2008-09-30 19:40:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 END SUBROUTINE wdm_hh_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_a_b.F,v 1.1 2008-09-30 19:40:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h2 h3 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_b_a.F b/src/tce/gradients/wdm_hh_mo_b_b_a.F index 6695299f09..53c466b3ac 100644 --- a/src/tce/gradients/wdm_hh_mo_b_b_a.F +++ b/src/tce/gradients/wdm_hh_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_b_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_b_a.F,v 1.1 2008-09-30 19:40:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 END SUBROUTINE wdm_hh_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_b_a.F,v 1.1 2008-09-30 19:40:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 h2 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_b_b_b.F b/src/tce/gradients/wdm_hh_mo_b_b_b.F index 226c69b5e6..2be5bdf9a3 100644 --- a/src/tce/gradients/wdm_hh_mo_b_b_b.F +++ b/src/tce/gradients/wdm_hh_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_b_b_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_b_b_b.F,v 1.1 2008-09-30 19:41:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 END SUBROUTINE wdm_hh_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_b_b_b.F,v 1.1 2008-09-30 19:41:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( h1 p4 h2 p3 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_a.F b/src/tce/gradients/wdm_hh_mo_c_a.F index dc8587bd1a..05fb585853 100644 --- a/src/tce/gradients/wdm_hh_mo_c_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h2 h5 h3 h4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h2 h5 h3 h4 )_v @@ -218,7 +218,7 @@ c END SUBROUTINE wdm_hh_mo_c_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_a.F,v 1.1 2008-09-30 19:41:25 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 h4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_b_a.F b/src/tce/gradients/wdm_hh_mo_c_b_a.F index b2fafb7781..a541828019 100644 --- a/src/tce/gradients/wdm_hh_mo_c_b_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_b_a.F,v 1.1 2008-09-30 19:41:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_b_a.F,v 1.1 2008-09-30 19:41:35 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( h2 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_b_b.F b/src/tce/gradients/wdm_hh_mo_c_b_b.F index 4ce1bfdc27..d4daec7052 100644 --- a/src/tce/gradients/wdm_hh_mo_c_b_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_b_b.F,v 1.1 2008-09-30 19:41:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 h2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_b_b.F,v 1.1 2008-09-30 19:41:43 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_c_a.F b/src/tce/gradients/wdm_hh_mo_c_c_a.F index 7dbb1e86bd..a236da0492 100644 --- a/src/tce/gradients/wdm_hh_mo_c_c_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_c_a.F,v 1.1 2008-09-30 19:41:51 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 h5 h3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_c_a.F,v 1.1 2008-09-30 19:41:51 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h2 h5 h3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_c_b.F b/src/tce/gradients/wdm_hh_mo_c_c_b.F index eb3dd5b232..a5b85405c8 100644 --- a/src/tce/gradients/wdm_hh_mo_c_c_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_c_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_c_b.F,v 1.1 2008-09-30 19:41:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h2 h5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_c_b.F,v 1.1 2008-09-30 19:41:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_d.F b/src/tce/gradients/wdm_hh_mo_c_d.F index 026c4a0df6..450682237f 100644 --- a/src/tce/gradients/wdm_hh_mo_c_d.F +++ b/src/tce/gradients/wdm_hh_mo_c_d.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_d(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( h2 p5 h3 p4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 END SUBROUTINE wdm_hh_mo_c_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/2 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( h2 p5 h3 p4 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE wdm_hh_mo_c_d_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hh_mo_c_d.F,v 1.1 2008-09-30 19:42:08 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/2 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_e_a.F b/src/tce/gradients/wdm_hh_mo_c_e_a.F index 8a435b1b78..cdf6309602 100644 --- a/src/tce/gradients/wdm_hh_mo_c_e_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_e_a.F,v 1.1 2008-09-30 19:42:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_e_a.F,v 1.1 2008-09-30 19:42:16 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h2 h5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_e_b.F b/src/tce/gradients/wdm_hh_mo_c_e_b.F index e8576229cd..0b0a01a0b3 100644 --- a/src/tce/gradients/wdm_hh_mo_c_e_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_e_b.F,v 1.1 2008-09-30 19:42:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h2 h5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hh_mo_c_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_e_b.F,v 1.1 2008-09-30 19:42:24 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h2 h5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_f_a.F b/src/tce/gradients/wdm_hh_mo_c_f_a.F index a13fc3454f..7828e6e98b 100644 --- a/src/tce/gradients/wdm_hh_mo_c_f_a.F +++ b/src/tce/gradients/wdm_hh_mo_c_f_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_f_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_f_a.F,v 1.1 2008-09-30 19:42:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 p5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 END SUBROUTINE wdm_hh_mo_c_f_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_f_a.F,v 1.1 2008-09-30 19:42:33 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h2 h1 )_vd + = -1/4 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( h2 p5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hh_mo_c_f_b.F b/src/tce/gradients/wdm_hh_mo_c_f_b.F index 3ec9c69e9d..09bbec5952 100644 --- a/src/tce/gradients/wdm_hh_mo_c_f_b.F +++ b/src/tce/gradients/wdm_hh_mo_c_f_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_c_f_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hh_mo_c_f_b.F,v 1.1 2008-09-30 19:42:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 h2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hh_mo_c_f_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hh_mo_c_f_b.F,v 1.1 2008-09-30 19:42:40 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vd + = -1/4 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 h2 p5 )_v diff --git a/src/tce/gradients/wdm_hh_mo_d.F b/src/tce/gradients/wdm_hh_mo_d.F index 90c86d1429..54af447128 100644 --- a/src/tce/gradients/wdm_hh_mo_d.F +++ b/src/tce/gradients/wdm_hh_mo_d.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hh_mo_d(d_i0,d_v2,d_z1,k_i0_offset,k_v2_offset,k_z1 &_offset) -C $Id: wdm_hh_mo_d.F,v 1.1 2008-09-30 19:42:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 ) END SUBROUTINE wdm_hh_mo_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hh_mo_d.F,v 1.1 2008-09-30 19:42:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 h2 )_vz + = -2 * Sum ( h4 p3 ) * z ( p3 h4 )_z * v ( h1 h4 h2 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_a.F b/src/tce/gradients/wdm_hp_mo_a.F index 40c1d39e10..f1b03e5c7b 100644 --- a/src/tce/gradients/wdm_hp_mo_a.F +++ b/src/tce/gradients/wdm_hp_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p2 )_d * f ( h1 p3 )_f @@ -25,7 +25,7 @@ C i0 ( p2 h1 )_fd + = -1/2 * Sum ( p3 ) * d ( p2 p3 )_d * f ( p3 h1 )_f END SUBROUTINE wdm_hp_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p2 )_d * f ( h1 p3 )_f @@ -157,7 +157,7 @@ c END SUBROUTINE wdm_hp_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_a.F,v 1.1 2008-09-30 19:44:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fd + = -1/2 * Sum ( p3 ) * d ( p2 p3 )_d * f ( p3 h1 )_f diff --git a/src/tce/gradients/wdm_hp_mo_b_a_a.F b/src/tce/gradients/wdm_hp_mo_b_a_a.F index af9059e178..0e27d34d75 100644 --- a/src/tce/gradients/wdm_hp_mo_b_a_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_a_a.F,v 1.1 2008-09-30 19:44:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hp_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_a_a.F,v 1.1 2008-09-30 19:44:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_a_b.F b/src/tce/gradients/wdm_hp_mo_b_a_b.F index 8476af1164..6268160d86 100644 --- a/src/tce/gradients/wdm_hp_mo_b_a_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_a_b.F,v 1.1 2008-09-30 19:44:57 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_a_b.F,v 1.1 2008-09-30 19:44:57 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_b_a.F b/src/tce/gradients/wdm_hp_mo_b_b_a.F index 079557bbbf..6057e9c4aa 100644 --- a/src/tce/gradients/wdm_hp_mo_b_b_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_b_a.F,v 1.1 2008-09-30 19:45:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_hp_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_b_a.F,v 1.1 2008-09-30 19:45:06 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_b_b.F b/src/tce/gradients/wdm_hp_mo_b_b_b.F index 4110c6d33c..46868d5214 100644 --- a/src/tce/gradients/wdm_hp_mo_b_b_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_b_b.F,v 1.1 2008-09-30 19:45:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_b_b.F,v 1.1 2008-09-30 19:45:13 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_c.F b/src/tce/gradients/wdm_hp_mo_b_c.F index b91a92c64a..6f8a4652ac 100644 --- a/src/tce/gradients/wdm_hp_mo_b_c.F +++ b/src/tce/gradients/wdm_hp_mo_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -189,7 +189,7 @@ c &,int_mb(k_range+p2b-1),2,1,1.0d0/2.0d0) END SUBROUTINE wdm_hp_mo_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_c.F,v 1.1 2008-09-30 19:45:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_d_a.F b/src/tce/gradients/wdm_hp_mo_b_d_a.F index fe3b369628..bde64e9921 100644 --- a/src/tce/gradients/wdm_hp_mo_b_d_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_d_a.F,v 1.1 2008-09-30 19:45:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 END SUBROUTINE wdm_hp_mo_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_d_a.F,v 1.1 2008-09-30 19:45:37 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_d_b.F b/src/tce/gradients/wdm_hp_mo_b_d_b.F index 11c2979c89..02c963fa94 100644 --- a/src/tce/gradients/wdm_hp_mo_b_d_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_d_b.F,v 1.1 2008-09-30 19:45:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_d_b.F,v 1.1 2008-09-30 19:45:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_e_a.F b/src/tce/gradients/wdm_hp_mo_b_e_a.F index 896f10f70e..450f0b3274 100644 --- a/src/tce/gradients/wdm_hp_mo_b_e_a.F +++ b/src/tce/gradients/wdm_hp_mo_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_e_a.F,v 1.1 2008-09-30 19:45:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_hp_mo_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_e_a.F,v 1.1 2008-09-30 19:45:55 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_e_b.F b/src/tce/gradients/wdm_hp_mo_b_e_b.F index a147b51416..36e3502799 100644 --- a/src/tce/gradients/wdm_hp_mo_b_e_b.F +++ b/src/tce/gradients/wdm_hp_mo_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_hp_mo_b_e_b.F,v 1.1 2008-09-30 19:46:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_hp_mo_b_e_b.F,v 1.1 2008-09-30 19:46:02 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_b_f.F b/src/tce/gradients/wdm_hp_mo_b_f.F index e1eed13ba6..cf4a0f5abd 100644 --- a/src/tce/gradients/wdm_hp_mo_b_f.F +++ b/src/tce/gradients/wdm_hp_mo_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 END SUBROUTINE wdm_hp_mo_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -208,7 +208,7 @@ c &,int_mb(k_range+p2b-1),2,1,-1.0d0/4.0d0) END SUBROUTINE wdm_hp_mo_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_hp_mo_b_f.F,v 1.1 2008-09-30 19:46:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 p5 p3 p4 )_v diff --git a/src/tce/gradients/wdm_hp_mo_c.F b/src/tce/gradients/wdm_hp_mo_c.F index 0e2865d419..156010e3e3 100644 --- a/src/tce/gradients/wdm_hp_mo_c.F +++ b/src/tce/gradients/wdm_hp_mo_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_hp_mo_c(d_f1,d_i0,d_z1,k_f1_offset,k_i0_offset,k_z1 &_offset) -C $Id: wdm_hp_mo_c.F,v 1.1 2008-09-30 19:46:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f END SUBROUTINE wdm_hp_mo_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_hp_mo_c.F,v 1.1 2008-09-30 19:46:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fz + = -1 * Sum ( h3 ) * z ( p2 h3 )_z * f ( h3 h1 )_f diff --git a/src/tce/gradients/wdm_pp_mo_a.F b/src/tce/gradients/wdm_pp_mo_a.F index 0ac4d0f38b..fb4a973f78 100644 --- a/src/tce/gradients/wdm_pp_mo_a.F +++ b/src/tce/gradients/wdm_pp_mo_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_a(d_d1,d_f1,d_i0,k_d1_offset,k_f1_offset,k_i0 &_offset) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p1 )_d * f ( p2 p3 )_f @@ -25,7 +25,7 @@ C i0 ( p1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p1 p3 )_d * f ( p3 p2 )_f END SUBROUTINE wdm_pp_mo_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_fd + = -1/2 * Sum ( p3 ) * d ( p3 p1 )_d * f ( p2 p3 )_f @@ -159,7 +159,7 @@ c & noab - 1 + nvab * (p2b - noab - 1))) END SUBROUTINE wdm_pp_mo_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: wdm_pp_mo_a.F,v 1.1 2008-09-30 19:48:18 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_fd + = -1/2 * Sum ( p3 ) * d ( p1 p3 )_d * f ( p3 p2 )_f diff --git a/src/tce/gradients/wdm_pp_mo_b_a_a.F b/src/tce/gradients/wdm_pp_mo_b_a_a.F index 1608b49677..55a22f7b95 100644 --- a/src/tce/gradients/wdm_pp_mo_b_a_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_a_a.F,v 1.1 2008-09-30 19:48:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 h4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_pp_mo_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_a_a.F,v 1.1 2008-09-30 19:48:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 h5 ) * d ( h5 p1 h3 h4 )_d * v ( h3 h4 h5 p2 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_a_b.F b/src/tce/gradients/wdm_pp_mo_b_a_b.F index e334cb7e07..ebb73cd4dc 100644 --- a/src/tce/gradients/wdm_pp_mo_b_a_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_a_b.F,v 1.1 2008-09-30 19:48:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 p2 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_a_b.F,v 1.1 2008-09-30 19:48:38 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p1 )_d * v ( h5 p2 h3 h4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_b_a.F b/src/tce/gradients/wdm_pp_mo_b_b_a.F index a6df577c83..b100e561f2 100644 --- a/src/tce/gradients/wdm_pp_mo_b_b_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_b_a.F,v 1.1 2008-09-30 19:48:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE wdm_pp_mo_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_b_a.F,v 1.1 2008-09-30 19:48:48 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( h4 h3 p5 ) * d ( p1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_b_b.F b/src/tce/gradients/wdm_pp_mo_b_b_b.F index cd3bd3add1..dc5aa8718f 100644 --- a/src/tce/gradients/wdm_pp_mo_b_b_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_b_b.F,v 1.1 2008-09-30 19:48:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_b_b.F,v 1.1 2008-09-30 19:48:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p1 p5 )_d * v ( p2 p5 h3 h4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_c.F b/src/tce/gradients/wdm_pp_mo_b_c.F index 1337c78fe0..56c73398fb 100644 --- a/src/tce/gradients/wdm_pp_mo_b_c.F +++ b/src/tce/gradients/wdm_pp_mo_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 h5 ) * d ( h5 p1 h4 p3 )_d * v ( h4 p3 h5 p2 )_v @@ -25,7 +25,7 @@ C i0 ( p2 p1 )_vd + = -1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 h5 ) * d ( h5 p1 h4 p3 )_d * v ( h4 p3 h5 p2 )_v @@ -179,7 +179,7 @@ c END SUBROUTINE wdm_pp_mo_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_c.F,v 1.1 2008-09-30 19:49:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p1 )_d * v ( h5 p2 h4 p3 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_d_a.F b/src/tce/gradients/wdm_pp_mo_b_d_a.F index 54c9f89a52..75c15cae38 100644 --- a/src/tce/gradients/wdm_pp_mo_b_d_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_d_a.F,v 1.1 2008-09-30 19:49:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 p3 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 END SUBROUTINE wdm_pp_mo_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_d_a.F,v 1.1 2008-09-30 19:49:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/2 * Sum ( h4 p3 p5 ) * d ( p1 p5 h4 p3 )_d * v ( h4 p3 p2 p5 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_d_b.F b/src/tce/gradients/wdm_pp_mo_b_d_b.F index 4def0ced37..7726f34dd4 100644 --- a/src/tce/gradients/wdm_pp_mo_b_d_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_d_b.F,v 1.1 2008-09-30 19:49:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_d_b.F,v 1.1 2008-09-30 19:49:27 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p1 p5 )_d * v ( p2 p5 h4 p3 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_e_a.F b/src/tce/gradients/wdm_pp_mo_b_e_a.F index 73f0045902..9d2ab854bf 100644 --- a/src/tce/gradients/wdm_pp_mo_b_e_a.F +++ b/src/tce/gradients/wdm_pp_mo_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_e_a.F,v 1.1 2008-09-30 19:49:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 END SUBROUTINE wdm_pp_mo_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_e_a.F,v 1.1 2008-09-30 19:49:36 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 h5 ) * d ( h5 p1 p3 p4 )_d * v ( p3 p4 h5 p2 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_e_b.F b/src/tce/gradients/wdm_pp_mo_b_e_b.F index c1272dcede..4c2eb640e5 100644 --- a/src/tce/gradients/wdm_pp_mo_b_e_b.F +++ b/src/tce/gradients/wdm_pp_mo_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset, &k_v2_offset) -C $Id: wdm_pp_mo_b_e_b.F,v 1.1 2008-09-30 19:49:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 p2 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 END SUBROUTINE wdm_pp_mo_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c &_offset) -C $Id: wdm_pp_mo_b_e_b.F,v 1.1 2008-09-30 19:49:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p1 )_d * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/gradients/wdm_pp_mo_b_f.F b/src/tce/gradients/wdm_pp_mo_b_f.F index 57f805f8f9..37643681b8 100644 --- a/src/tce/gradients/wdm_pp_mo_b_f.F +++ b/src/tce/gradients/wdm_pp_mo_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE wdm_pp_mo_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_ &v2_offset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -25,7 +25,7 @@ C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p1 p5 )_d * v ( p2 END SUBROUTINE wdm_pp_mo_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 )_vd + = -1/4 * Sum ( p4 p3 p5 ) * d ( p1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -211,7 +211,7 @@ c END SUBROUTINE wdm_pp_mo_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: wdm_pp_mo_b_f.F,v 1.1 2008-09-30 19:49:58 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 p1 )_vd + = -1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p1 p5 )_d * v ( p2 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_a.F b/src/tce/gradients/zvec_x_a_a.F index e29669323c..25e63bf704 100644 --- a/src/tce/gradients/zvec_x_a_a.F +++ b/src/tce/gradients/zvec_x_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h5 p2 h3 h4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h5 h3 h4 ) * d ( h3 h4 h1 h5 )_d * v ( h5 p2 h3 h4 )_v @@ -205,7 +205,7 @@ c END SUBROUTINE zvec_x_a_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_a.F,v 1.1 2008-09-30 19:53:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( h3 h4 h5 ) * d ( h1 h5 h3 h4 )_d * v ( h3 h4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_b_a.F b/src/tce/gradients/zvec_x_a_b_a.F index 62af287db2..75bacdbae2 100644 --- a/src/tce/gradients/zvec_x_a_b_a.F +++ b/src/tce/gradients/zvec_x_a_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_b_a.F,v 1.1 2008-09-30 19:53:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 END SUBROUTINE zvec_x_a_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_b_a.F,v 1.1 2008-09-30 19:53:42 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/4 * Sum ( p5 h3 h4 ) * d ( h3 h4 h1 p5 )_d * v ( p2 p5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_a_b_b.F b/src/tce/gradients/zvec_x_a_b_b.F index 2981a56992..2a87db27d2 100644 --- a/src/tce/gradients/zvec_x_a_b_b.F +++ b/src/tce/gradients/zvec_x_a_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_b_b.F,v 1.1 2008-09-30 19:53:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_a_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_b_b.F,v 1.1 2008-09-30 19:53:49 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( h3 h4 p5 ) * d ( h1 p5 h3 h4 )_d * v ( h3 h4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_a_c_a.F b/src/tce/gradients/zvec_x_a_c_a.F index f29449fb32..b7d16028b2 100644 --- a/src/tce/gradients/zvec_x_a_c_a.F +++ b/src/tce/gradients/zvec_x_a_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_c_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_c_a.F,v 1.1 2008-09-30 19:54:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p2 h3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1 * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p END SUBROUTINE zvec_x_a_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_c_a.F,v 1.1 2008-09-30 19:54:31 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = (1/2) * Sum ( h5 h3 p4 ) * d ( h3 p4 h1 h5 )_d * v ( h5 p2 h3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_c_b.F b/src/tce/gradients/zvec_x_a_c_b.F index 1150dfdc31..8410947d5c 100644 --- a/src/tce/gradients/zvec_x_a_c_b.F +++ b/src/tce/gradients/zvec_x_a_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_c_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_c_b.F,v 1.1 2008-09-30 19:54:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1 * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p END SUBROUTINE zvec_x_a_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_c_b.F,v 1.1 2008-09-30 19:54:45 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = (1/2) * Sum ( h3 p4 h5 ) * d ( h1 h5 h3 p4 )_d * v ( h3 p4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_d.F b/src/tce/gradients/zvec_x_a_d.F index 8e57a53c03..27fd50add9 100644 --- a/src/tce/gradients/zvec_x_a_d.F +++ b/src/tce/gradients/zvec_x_a_d.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_d(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( p2 p5 h3 p4 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 END SUBROUTINE zvec_x_a_d_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( p5 h3 p4 ) * d ( h3 p4 h1 p5 )_d * v ( p2 p5 h3 p4 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE zvec_x_a_d_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_a_d.F,v 1.1 2008-09-30 19:54:54 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( h3 p4 p5 ) * d ( h1 p5 h3 p4 )_d * v ( h3 p4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_a_e_a.F b/src/tce/gradients/zvec_x_a_e_a.F index cf18463621..a32fc4ecf1 100644 --- a/src/tce/gradients/zvec_x_a_e_a.F +++ b/src/tce/gradients/zvec_x_a_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_e_a.F,v 1.1 2008-09-30 19:55:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 p2 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 END SUBROUTINE zvec_x_a_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_e_a.F,v 1.1 2008-09-30 19:55:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h5 p3 p4 ) * d ( p3 p4 h1 h5 )_d * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_e_b.F b/src/tce/gradients/zvec_x_a_e_b.F index 2cd359c9b6..a807d5be63 100644 --- a/src/tce/gradients/zvec_x_a_e_b.F +++ b/src/tce/gradients/zvec_x_a_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_e_b.F,v 1.1 2008-09-30 19:55:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h5 p2 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_a_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_e_b.F,v 1.1 2008-09-30 19:55:17 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p3 p4 h5 ) * d ( h1 h5 p3 p4 )_d * v ( p3 p4 h5 p2 )_v diff --git a/src/tce/gradients/zvec_x_a_f_a.F b/src/tce/gradients/zvec_x_a_f_a.F index a0c66cd664..0b4f89ceaf 100644 --- a/src/tce/gradients/zvec_x_a_f_a.F +++ b/src/tce/gradients/zvec_x_a_f_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_f_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_f_a.F,v 1.1 2008-09-30 19:55:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 p5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 END SUBROUTINE zvec_x_a_f_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_f_a.F,v 1.1 2008-09-30 19:55:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( p5 p3 p4 ) * d ( p3 p4 h1 p5 )_d * v ( p2 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_a_f_b.F b/src/tce/gradients/zvec_x_a_f_b.F index ab40354342..c1318d71a6 100644 --- a/src/tce/gradients/zvec_x_a_f_b.F +++ b/src/tce/gradients/zvec_x_a_f_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_a_f_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_a_f_b.F,v 1.1 2008-09-30 19:55:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_a_f_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_a_f_b.F,v 1.1 2008-09-30 19:55:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/4) * Sum ( p3 p4 p5 ) * d ( h1 p5 p3 p4 )_d * v ( p3 p4 p2 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_a_a.F b/src/tce/gradients/zvec_x_b_a_a.F index 69f928f293..f115e671b5 100644 --- a/src/tce/gradients/zvec_x_b_a_a.F +++ b/src/tce/gradients/zvec_x_b_a_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_a_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_a_a.F,v 1.1 2008-09-30 19:55:47 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_b_a_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_a_a.F,v 1.1 2008-09-30 19:55:47 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( h4 h3 h5 ) * d ( h5 p2 h3 h4 )_d * v ( h3 h4 h1 h5 )_v diff --git a/src/tce/gradients/zvec_x_b_a_b.F b/src/tce/gradients/zvec_x_b_a_b.F index 4e40c2a80b..31d6e7bb84 100644 --- a/src/tce/gradients/zvec_x_b_a_b.F +++ b/src/tce/gradients/zvec_x_b_a_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_a_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_a_b.F,v 1.1 2008-09-30 19:55:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 END SUBROUTINE zvec_x_b_a_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_a_b.F,v 1.1 2008-09-30 19:55:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/4) * Sum ( h5 h4 h3 ) * d ( h3 h4 h5 p2 )_d * v ( h1 h5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_b_b_a.F b/src/tce/gradients/zvec_x_b_b_a.F index 670280460a..9c0d60b7d9 100644 --- a/src/tce/gradients/zvec_x_b_b_a.F +++ b/src/tce/gradients/zvec_x_b_b_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_b_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_b_a.F,v 1.1 2008-09-30 19:56:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1/2 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 END SUBROUTINE zvec_x_b_b_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_b_a.F,v 1.1 2008-09-30 19:56:11 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( h4 h3 p5 ) * d ( p2 p5 h3 h4 )_d * v ( h3 h4 h1 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_b_b.F b/src/tce/gradients/zvec_x_b_b_b.F index fdebaef7bf..1862c02710 100644 --- a/src/tce/gradients/zvec_x_b_b_b.F +++ b/src/tce/gradients/zvec_x_b_b_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_b_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_b_b.F,v 1.1 2008-09-30 19:56:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 END SUBROUTINE zvec_x_b_b_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_b_b.F,v 1.1 2008-09-30 19:56:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p5 h4 h3 ) * d ( h3 h4 p2 p5 )_d * v ( h1 p5 h3 h4 )_v diff --git a/src/tce/gradients/zvec_x_b_c.F b/src/tce/gradients/zvec_x_b_c.F index ca80beb521..4fff5fdefa 100644 --- a/src/tce/gradients/zvec_x_b_c.F +++ b/src/tce/gradients/zvec_x_b_c.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_c(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 END SUBROUTINE zvec_x_b_c_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( h4 p3 h5 ) * d ( h5 p2 h4 p3 )_d * v ( h4 p3 h1 h5 )_v @@ -184,7 +184,7 @@ c END SUBROUTINE zvec_x_b_c_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_c.F,v 1.1 2008-09-30 19:56:26 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( h5 h4 p3 ) * d ( h4 p3 h5 p2 )_d * v ( h1 h5 h4 p3 )_v diff --git a/src/tce/gradients/zvec_x_b_d_a.F b/src/tce/gradients/zvec_x_b_d_a.F index 1d9594d6d1..390470633a 100644 --- a/src/tce/gradients/zvec_x_b_d_a.F +++ b/src/tce/gradients/zvec_x_b_d_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_d_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_d_a.F,v 1.1 2008-09-30 19:56:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = -1 * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p END SUBROUTINE zvec_x_b_d_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_d_a.F,v 1.1 2008-09-30 19:56:34 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = (1/2) * Sum ( h4 p3 p5 ) * d ( p2 p5 h4 p3 )_d * v ( h4 p3 h1 p5 )_v diff --git a/src/tce/gradients/zvec_x_b_d_b.F b/src/tce/gradients/zvec_x_b_d_b.F index f823fd2a41..e5adecb882 100644 --- a/src/tce/gradients/zvec_x_b_d_b.F +++ b/src/tce/gradients/zvec_x_b_d_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_d_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_d_b.F,v 1.1 2008-09-30 19:56:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = -1 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p END SUBROUTINE zvec_x_b_d_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_d_b.F,v 1.1 2008-09-30 19:56:41 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( p5 h4 p3 ) * d ( h4 p3 p2 p5 )_d * v ( h1 p5 h4 p3 )_v diff --git a/src/tce/gradients/zvec_x_b_e_a.F b/src/tce/gradients/zvec_x_b_e_a.F index 4c54d569e5..cc7503bbc1 100644 --- a/src/tce/gradients/zvec_x_b_e_a.F +++ b/src/tce/gradients/zvec_x_b_e_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_e_a(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_e_a.F,v 1.1 2008-09-30 19:56:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v @@ -22,7 +22,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 END SUBROUTINE zvec_x_b_e_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_e_a.F,v 1.1 2008-09-30 19:56:52 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/4) * Sum ( p4 p3 h5 ) * d ( h5 p2 p3 p4 )_d * v ( p3 p4 h1 h5 )_v diff --git a/src/tce/gradients/zvec_x_b_e_b.F b/src/tce/gradients/zvec_x_b_e_b.F index c8e551b05b..74894add10 100644 --- a/src/tce/gradients/zvec_x_b_e_b.F +++ b/src/tce/gradients/zvec_x_b_e_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_e_b(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v &2_offset) -C $Id: zvec_x_b_e_b.F,v 1.1 2008-09-30 19:56:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v @@ -22,7 +22,7 @@ C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 END SUBROUTINE zvec_x_b_e_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: zvec_x_b_e_b.F,v 1.1 2008-09-30 19:56:59 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -1/4 * Sum ( h5 p4 p3 ) * d ( p3 p4 h5 p2 )_d * v ( h1 h5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_b_f.F b/src/tce/gradients/zvec_x_b_f.F index 4ccba82bf5..27df0e1510 100644 --- a/src/tce/gradients/zvec_x_b_f.F +++ b/src/tce/gradients/zvec_x_b_f.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_b_f(d_d2,d_i0,d_v2,k_d2_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -1/2 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = -1/2 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 END SUBROUTINE zvec_x_b_f_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/4 * Sum ( p4 p3 p5 ) * d ( p2 p5 p3 p4 )_d * v ( p3 p4 h1 p5 )_v @@ -196,7 +196,7 @@ c END SUBROUTINE zvec_x_b_f_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_b_f.F,v 1.1 2008-09-30 19:57:10 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/4 * Sum ( p5 p4 p3 ) * d ( p3 p4 p2 p5 )_d * v ( h1 p5 p3 p4 )_v diff --git a/src/tce/gradients/zvec_x_c_a.F b/src/tce/gradients/zvec_x_c_a.F index 631d81798c..4aeb0aba3c 100644 --- a/src/tce/gradients/zvec_x_c_a.F +++ b/src/tce/gradients/zvec_x_c_a.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_c_a(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h3 p2 )_v @@ -25,7 +25,7 @@ C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h3 p2 h1 h4 END SUBROUTINE zvec_x_c_a_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = 1/2 * Sum ( h4 h3 ) * d ( h3 h4 )_d * v ( h1 h4 h3 p2 )_v @@ -171,7 +171,7 @@ c END SUBROUTINE zvec_x_c_a_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_a.F,v 1.1 2008-09-30 19:57:19 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1/2 * Sum ( h3 h4 ) * d ( h4 h3 )_d * v ( h3 p2 h1 h4 )_v diff --git a/src/tce/gradients/zvec_x_c_b.F b/src/tce/gradients/zvec_x_c_b.F index 2237f4bfca..b7dc85f96f 100644 --- a/src/tce/gradients/zvec_x_c_b.F +++ b/src/tce/gradients/zvec_x_c_b.F @@ -1,6 +1,6 @@ SUBROUTINE zvec_x_c_b(d_d1,d_i0,d_v2,k_d1_offset,k_i0_offset,k_v2_ &offset) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = 1 * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( p2 p4 h1 p3 )_v @@ -25,7 +25,7 @@ C i0 ( h1 p2 )_vd + = 1 * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 p2 p4 )_ END SUBROUTINE zvec_x_c_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vd + = -(1/2) * Sum ( p4 p3 ) * d ( p3 p4 )_d * v ( p2 p4 h1 p3 )_v @@ -173,7 +173,7 @@ c END SUBROUTINE zvec_x_c_b_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: zvec_x_c_b.F,v 1.1 2008-09-30 19:57:28 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( h1 p2 )_vd + = -(1/2) * Sum ( p3 p4 ) * d ( p4 p3 )_d * v ( h1 p3 p2 p4 )_v diff --git a/src/tce/hbar.F b/src/tce/hbar.F index e99d8b670e..d991ad5019 100644 --- a/src/tce/hbar.F +++ b/src/tce/hbar.F @@ -1,6 +1,6 @@ logical function hbar_restore(ivec,jvec,hbar) c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Read (if exist) hbar(ivec,jvec) c @@ -58,7 +58,7 @@ c write(LuOut,*) 'Restoring H bar(',ivec,jvec,') = ',hbar end subroutine hbar_store(ivec,jvec,hbar) c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Write hbar(ivec,jvec) c @@ -111,7 +111,7 @@ c write(LuOut,*) 'Storing H bar(',ivec,jvec,') = ',hbar end subroutine hbar_init c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Initialize hbar file c @@ -142,7 +142,7 @@ c end subroutine hbar_tidy c -c $Id: hbar.F,v 1.3 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Terminate hbar file c diff --git a/src/tce/include/GNUmakefile b/src/tce/include/GNUmakefile index d82004f40f..4875bff547 100644 --- a/src/tce/include/GNUmakefile +++ b/src/tce/include/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2003-09-16 21:54:08 sohirata Exp $ +#$Id$ include ../../config/makefile.h include ../../config/makelib.h diff --git a/src/tce/include/tce_diis.fh b/src/tce/include/tce_diis.fh index d1bb228d8e..1ce14f5a02 100644 --- a/src/tce/include/tce_diis.fh +++ b/src/tce/include/tce_diis.fh @@ -1,4 +1,4 @@ -c $Id: tce_diis.fh,v 1.9 2008-09-30 19:03:06 jhammond Exp $ +c $Id$ c c Include file for TCE module c diff --git a/src/tce/include/tce_main.fh b/src/tce/include/tce_main.fh index 038dd81262..19478c7efa 100644 --- a/src/tce/include/tce_main.fh +++ b/src/tce/include/tce_main.fh @@ -1,4 +1,4 @@ -c $Id: tce_main.fh,v 1.20 2008-12-13 21:57:50 jhammond Exp $ +c $Id$ c c Include file for TCE module c diff --git a/src/tce/lccd/GNUmakefile b/src/tce/lccd/GNUmakefile index 0962de20f0..5f21caec16 100644 --- a/src/tce/lccd/GNUmakefile +++ b/src/tce/lccd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = lccd_e.o lccd_t2.o diff --git a/src/tce/lccd/lccd_e.F b/src/tce/lccd/lccd_e.F index 3026b18cf8..aacefb8c71 100644 --- a/src/tce/lccd/lccd_e.F +++ b/src/tce/lccd/lccd_e.F @@ -1,6 +1,6 @@ SUBROUTINE lccd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_offs &et) -C $Id: lccd_e.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE lccd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_e.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/lccd/lccd_t2.F b/src/tce/lccd/lccd_t2.F index 70e3ba671b..7062bbf642 100644 --- a/src/tce/lccd/lccd_t2.F +++ b/src/tce/lccd/lccd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE lccd_t2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t &2_offset,k_v2_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -32,7 +32,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE lccd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -129,7 +129,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v RETURN END SUBROUTINE lccd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -290,7 +290,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE lccd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -451,7 +451,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE lccd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -610,7 +610,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( RETURN END SUBROUTINE lccd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -811,7 +811,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE lccd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccd_t2.F,v 1.3 2005-12-16 22:06:30 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/lccsd/GNUmakefile b/src/tce/lccsd/GNUmakefile index eda5e8bdac..666bbbb432 100644 --- a/src/tce/lccsd/GNUmakefile +++ b/src/tce/lccsd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = lccsd_e.o lccsd_t1.o lccsd_t2.o diff --git a/src/tce/lccsd/lccsd_e.F b/src/tce/lccsd/lccsd_e.F index 93e8d3bcd4..cc1ada9404 100644 --- a/src/tce/lccsd/lccsd_e.F +++ b/src/tce/lccsd/lccsd_e.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_e(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offse &t,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -26,7 +26,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE lccsd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f @@ -139,7 +139,7 @@ C i0 ( )_tf + = 1 * Sum ( p2 h1 ) * t ( p2 h1 )_t * f ( h1 p2 )_f RETURN END SUBROUTINE lccsd_e_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: lccsd_e.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/lccsd/lccsd_t1.F b/src/tce/lccsd/lccsd_t1.F index c637d1c978..d21bac180f 100644 --- a/src/tce/lccsd/lccsd_t1.F +++ b/src/tce/lccsd/lccsd_t1.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_t1(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -42,7 +42,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE lccsd_t1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -125,7 +125,7 @@ C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f END SUBROUTINE lccsd_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f @@ -250,7 +250,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * f ( h3 h1 )_f END SUBROUTINE lccsd_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -375,7 +375,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE lccsd_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -509,7 +509,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE lccsd_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_f @@ -668,7 +668,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p4 h3 ) * t ( p2 p4 h1 h3 )_t * f ( h3 p4 )_ END SUBROUTINE lccsd_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -833,7 +833,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 END SUBROUTINE lccsd_t1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t1.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/lccsd/lccsd_t2.F b/src/tce/lccsd/lccsd_t2.F index dd56260893..106423c6f0 100644 --- a/src/tce/lccsd/lccsd_t2.F +++ b/src/tce/lccsd/lccsd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE lccsd_t2(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -45,7 +45,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE lccsd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -143,7 +143,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE lccsd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -296,7 +296,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE lccsd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -449,7 +449,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE lccsd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * f ( h5 h2 )_f @@ -611,7 +611,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * END SUBROUTINE lccsd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * f ( p4 p5 )_f @@ -773,7 +773,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * END SUBROUTINE lccsd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( h5 h6 h1 h2 )_v @@ -933,7 +933,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( h5 h6 ) * t ( p3 p4 h5 h6 )_t * v ( END SUBROUTINE lccsd_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * v ( h6 p4 h2 p5 )_v @@ -1135,7 +1135,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ END SUBROUTINE lccsd_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: lccsd_t2.F,v 1.3 2005-12-16 22:06:13 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/lrh/GNUmakefile b/src/tce/lrh/GNUmakefile index 4dd7e8d5e2..3dc69aa773 100644 --- a/src/tce/lrh/GNUmakefile +++ b/src/tce/lrh/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.1 2007-09-18 20:21:58 kowalski Exp $ +#$Id$ OBJ_OPTIMIZE = tce_loc_j1.o tce_loc_j2.o diff --git a/src/tce/lrh/tce_loc_j1.F b/src/tce/lrh/tce_loc_j1.F index f284d9f523..a37a861705 100644 --- a/src/tce/lrh/tce_loc_j1.F +++ b/src/tce/lrh/tce_loc_j1.F @@ -1,6 +1,6 @@ subroutine tce_loc_j1(d_r1,k_r1_offset,d_t1,k_t1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -125,7 +125,7 @@ c c subroutine tce_loc_j1_one(d_r1,k_r1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -201,7 +201,7 @@ c c subroutine tce_loc_j1_inv(d_r1,k_r1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -280,7 +280,7 @@ c c subroutine tce_j1_x1_scaling(d_r1,k_r1_offset,d_j1,k_j1_offset) c -c $Id: tce_loc_j1.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/lrh/tce_loc_j2.F b/src/tce/lrh/tce_loc_j2.F index e1d3100383..1ff69891be 100644 --- a/src/tce/lrh/tce_loc_j2.F +++ b/src/tce/lrh/tce_loc_j2.F @@ -1,6 +1,6 @@ subroutine tce_loc_j2(d_r2,k_r2_offset,d_t2,k_t2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c c TO DO - initial 1.0-ing of the d_t2 file c @@ -213,7 +213,7 @@ c c subroutine tce_loc_j2_one(d_r2,k_r2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -308,7 +308,7 @@ c c subroutine tce_loc_j2_inv(d_r2,k_r2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -404,7 +404,7 @@ c c subroutine tce_j2_x2_scaling(d_r2,k_r2_offset,d_j2,k_j2_offset) c -c $Id: tce_loc_j2.F,v 1.2 2008-01-14 15:20:42 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/ma_pack.F b/src/tce/ma_pack.F index da9ad186fc..028dcb39a6 100644 --- a/src/tce/ma_pack.F +++ b/src/tce/ma_pack.F @@ -1,6 +1,6 @@ subroutine ma_pack(unpack,pack,n) c -c $Id: ma_pack.F,v 1.2 2008-10-16 14:20:16 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/ma_print_compact.F b/src/tce/ma_print_compact.F index 6c982b2677..8c77e557f7 100644 --- a/src/tce/ma_print_compact.F +++ b/src/tce/ma_print_compact.F @@ -1,6 +1,6 @@ subroutine ma_print_compact(vector,ndim,mdim,title) c -c $Id: ma_print_compact.F,v 1.2 2004-10-28 18:16:40 edo Exp $ +c $Id$ c implicit none diff --git a/src/tce/ma_scale.F b/src/tce/ma_scale.F index d337bb1d4d..33649a1351 100644 --- a/src/tce/ma_scale.F +++ b/src/tce/ma_scale.F @@ -1,6 +1,6 @@ subroutine ma_scale(a,n,scalar) c -c $Id: ma_scale.F,v 1.1 2002-10-18 23:42:06 sohirata Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/ma_transpose.F b/src/tce/ma_transpose.F index e070306dbc..33be5eff91 100644 --- a/src/tce/ma_transpose.F +++ b/src/tce/ma_transpose.F @@ -3,7 +3,7 @@ c 6 or 7 works well here c subroutine ma_transpose(a,n) c -c $Id: ma_transpose.F,v 1.2 2008-10-05 23:34:03 jhammond Exp $ +c $Id$ c implicit none c#include "mafdecls.fh" diff --git a/src/tce/mbpt1/GNUmakefile b/src/tce/mbpt1/GNUmakefile index 4b3bc439b6..214bf3f04f 100644 --- a/src/tce/mbpt1/GNUmakefile +++ b/src/tce/mbpt1/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt1_t1.o mbpt1_t2.o diff --git a/src/tce/mbpt1/mbpt1_t1.F b/src/tce/mbpt1/mbpt1_t1.F index a5c6b64d62..627eefece5 100644 --- a/src/tce/mbpt1/mbpt1_t1.F +++ b/src/tce/mbpt1/mbpt1_t1.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt1_t1(d_f1,d_i0,d_t11,d_t12,k_f1_offset,k_i0_offset, &k_t11_offset,k_t12_offset) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f @@ -30,7 +30,7 @@ C i0 ( p1 h9 )_t1f + = -1 * Sum ( p3 h2 ) * t1 ( p1 p3 h2 h9 )_t1 * f ( h2 p END SUBROUTINE mbpt1_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f @@ -155,7 +155,7 @@ C i0 ( p1 h9 )_t1f + = -1 * Sum ( h2 ) * t1 ( p1 h2 )_t1 * f ( h2 h9 )_f END SUBROUTINE mbpt1_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = 1 * Sum ( p2 ) * t1 ( p2 h9 )_t1 * f ( p1 p2 )_f @@ -280,7 +280,7 @@ C i0 ( p1 h9 )_t1f + = 1 * Sum ( p2 ) * t1 ( p2 h9 )_t1 * f ( p1 p2 )_f END SUBROUTINE mbpt1_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t1.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1f + = -1 * Sum ( p3 h2 ) * t1 ( p1 p3 h2 h9 )_t1 * f ( h2 p3 )_f diff --git a/src/tce/mbpt1/mbpt1_t2.F b/src/tce/mbpt1/mbpt1_t2.F index aa76634c37..940f7b9628 100644 --- a/src/tce/mbpt1/mbpt1_t2.F +++ b/src/tce/mbpt1/mbpt1_t2.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt1_t2(d_f1,d_i0,d_t11,d_t12,d_v2,k_f1_offset,k_i0_of &fset,k_t11_offset,k_t12_offset,k_v2_offset) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f @@ -34,7 +34,7 @@ C i0 ( p1 p2 h9 h10 )_v + = 1 * v ( p1 p2 h9 h10 )_v END SUBROUTINE mbpt1_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f @@ -193,7 +193,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 4 ) * t1 ( p1 h9 )_t1 * f ( p2 h10 )_f END SUBROUTINE mbpt1_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * f ( h3 h10 )_f @@ -355,7 +355,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt1_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * f ( p2 p3 )_f @@ -516,7 +516,7 @@ C i0 ( p1 p2 h9 h10 )_t1f + = 1 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_ RETURN END SUBROUTINE mbpt1_t2_4(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt1_t2.F,v 1.3 2005-12-16 22:05:51 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_v + = 1 * v ( p1 p2 h9 h10 )_v diff --git a/src/tce/mbpt2/GNUmakefile b/src/tce/mbpt2/GNUmakefile index 3d6e85a3bf..6bd2fe0ab1 100644 --- a/src/tce/mbpt2/GNUmakefile +++ b/src/tce/mbpt2/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2007/09/19 22:13:48 d3p975 Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt2_e.o mbpt2_t1.o mbpt2_t2.o mbpt2_t2_b.o mbpt2_t3.o \ mbpt2_t1_sd.o mbpt2_t2_sd.o diff --git a/src/tce/mbpt2/mbpt2_e.F b/src/tce/mbpt2/mbpt2_e.F index 7284928b16..e2e3afb4e6 100644 --- a/src/tce/mbpt2/mbpt2_e.F +++ b/src/tce/mbpt2/mbpt2_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_e(d_i0,d_t12,d_v2,k_i0_offset,k_t12_offset,k_v2_o &ffset) -C $Id: mbpt2_e.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 RETURN END SUBROUTINE mbpt2_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt2_e.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt1 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/mbpt2/mbpt2_t1.F b/src/tce/mbpt2/mbpt2_t1.F index a3614e82c4..f1c4232d56 100644 --- a/src/tce/mbpt2/mbpt2_t1.F +++ b/src/tce/mbpt2/mbpt2_t1.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t1(d_f1,d_i0,d_t11,d_t12,d_t21,d_t22,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_t22_offs &et,k_v2_offset) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -46,7 +46,7 @@ C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( END SUBROUTINE mbpt2_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -171,7 +171,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f END SUBROUTINE mbpt2_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f @@ -296,7 +296,7 @@ C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f END SUBROUTINE mbpt2_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( p3 h2 ) * t2 ( p1 p3 h2 h9 )_t2 * f ( h2 p3 )_f @@ -455,7 +455,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( p3 h2 ) * t2 ( p1 p3 h2 h9 )_t2 * f ( h2 p END SUBROUTINE mbpt2_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p2 )_v @@ -589,7 +589,7 @@ C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p END SUBROUTINE mbpt2_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 p2 )_v @@ -754,7 +754,7 @@ C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( END SUBROUTINE mbpt2_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t1.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( h4 p1 p2 p3 )_v diff --git a/src/tce/mbpt2/mbpt2_t1_sd.F b/src/tce/mbpt2/mbpt2_t1_sd.F index 964b35c4f6..5e133bc250 100644 --- a/src/tce/mbpt2/mbpt2_t1_sd.F +++ b/src/tce/mbpt2/mbpt2_t1_sd.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t1_sd(d_f1,d_i0,d_t11,d_t12,d_t21,d_v2,k_f1_offse &t,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -40,7 +40,7 @@ C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( END SUBROUTINE mbpt2_t1_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f @@ -166,7 +166,7 @@ C i0 ( p1 h9 )_t2f + = -1 * Sum ( h2 ) * t2 ( p1 h2 )_t2 * f ( h2 h9 )_f END SUBROUTINE mbpt2_t1_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f @@ -292,7 +292,7 @@ C i0 ( p1 h9 )_t2f + = 1 * Sum ( p2 ) * t2 ( p2 h9 )_t2 * f ( p1 p2 )_f END SUBROUTINE mbpt2_t1_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p2 )_v @@ -427,7 +427,7 @@ C i0 ( p1 h9 )_vt1 + = -1 * Sum ( h3 p2 ) * t1 ( p2 h3 )_t1 * v ( h3 p1 h9 p END SUBROUTINE mbpt2_t1_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 p2 )_v @@ -593,7 +593,7 @@ C i0 ( p1 h9 )_vt1 + = -1/2 * Sum ( h3 h4 p2 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( END SUBROUTINE mbpt2_t1_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt1 + = 1/2 * Sum ( h4 p2 p3 ) * t1 ( p2 p3 h4 h9 )_t1 * v ( h4 p1 p2 p3 )_v diff --git a/src/tce/mbpt2/mbpt2_t2.F b/src/tce/mbpt2/mbpt2_t2.F index 5f45571d45..f9e612324b 100644 --- a/src/tce/mbpt2/mbpt2_t2.F +++ b/src/tce/mbpt2/mbpt2_t2.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t2(d_f1,d_i0,d_t11,d_t12,d_t22,d_t23,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_t23_offs &et,k_v2_offset) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -52,7 +52,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -214,7 +214,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -376,7 +376,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * Sum ( p4 h3 ) * t2 ( p1 p2 p4 h3 h9 h10 )_t2 * f ( h3 p4 )_f @@ -605,7 +605,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * Sum ( p4 h3 ) * t2 ( p1 p2 p4 h3 h9 h10 )_ END SUBROUTINE mbpt2_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -758,7 +758,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -911,7 +911,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -1071,7 +1071,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1273,7 +1273,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t2.F,v 1.4 2007-09-19 22:11:56 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t2_b.F b/src/tce/mbpt2/mbpt2_t2_b.F index f238653dea..01141a4e02 100644 --- a/src/tce/mbpt2/mbpt2_t2_b.F +++ b/src/tce/mbpt2/mbpt2_t2_b.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t2_b(d_f1,d_i0,d_t11,d_t12,d_t21,d_t22,d_v2,k_f1_ &offset,k_i0_offset,k_t11_offset,k_t12_offset,k_t21_offset,k_t22_of &fset,k_v2_offset) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f @@ -52,7 +52,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_b_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f @@ -211,7 +211,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 4 ) * t2 ( p1 h9 )_t2 * f ( p2 h10 )_f END SUBROUTINE mbpt2_t2_b_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -373,7 +373,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_b_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -535,7 +535,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_b_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -688,7 +688,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_b_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -841,7 +841,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_b_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -1001,7 +1001,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_b_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1203,7 +1203,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_b_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t2_b.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t2_sd.F b/src/tce/mbpt2/mbpt2_t2_sd.F index d0bdc86032..1fd077852e 100644 --- a/src/tce/mbpt2/mbpt2_t2_sd.F +++ b/src/tce/mbpt2/mbpt2_t2_sd.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t2_sd(d_f1,d_i0,d_t11,d_t12,d_t22,d_v2,k_f1_offse &t,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -46,7 +46,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * END SUBROUTINE mbpt2_t2_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t2 * f ( h3 h10 )_f @@ -209,7 +209,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt2_t2_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_t2 * f ( p2 p3 )_f @@ -372,7 +372,7 @@ C i0 ( p1 p2 h9 h10 )_t2f + = 1 * P( 2 ) * Sum ( p3 ) * t2 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt2_t2_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v ( h3 p2 h9 h10 )_v @@ -526,7 +526,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( h3 ) * t1 ( p1 h3 )_t1 * v END SUBROUTINE mbpt2_t2_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v ( p1 p2 h10 p3 )_v @@ -680,7 +680,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = -1 * P( 2 ) * Sum ( p3 ) * t1 ( p3 h9 )_t1 * v END SUBROUTINE mbpt2_t2_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * v ( h3 h4 h9 h10 )_v @@ -841,7 +841,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * END SUBROUTINE mbpt2_t2_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * v ( h4 p2 h10 p3 )_v @@ -1044,7 +1044,7 @@ C i0 ( p1 p2 h9 h10 )_vt1 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 END SUBROUTINE mbpt2_t2_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1 + = 1/2 * Sum ( p3 p4 ) * t1 ( p3 p4 h9 h10 )_t1 * v ( p1 p2 p3 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t3.F b/src/tce/mbpt2/mbpt2_t3.F index 7cf6d2d542..17456f7546 100644 --- a/src/tce/mbpt2/mbpt2_t3.F +++ b/src/tce/mbpt2/mbpt2_t3.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt2_t3(d_f1,d_i0,d_t11,d_t12,d_t22,d_t23,d_v2,k_f1_of &fset,k_i0_offset,k_t11_offset,k_t12_offset,k_t22_offset,k_t23_offs &et,k_v2_offset) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f ( p3 h11 )_f @@ -76,7 +76,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = -1 * P( 9 ) * Sum ( p4 ) * t1 ( p1 p4 h END SUBROUTINE mbpt2_t3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f ( p3 h11 )_f @@ -295,7 +295,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 9 ) * t2 ( p1 p2 h9 h10 )_t2 * f END SUBROUTINE mbpt2_t3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = -1 * P( 3 ) * Sum ( h4 ) * t2 ( p1 p2 p3 h4 h9 h10 )_t2 * f ( h4 h11 )_f @@ -490,7 +490,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = -1 * P( 3 ) * Sum ( h4 ) * t2 ( p1 p2 p END SUBROUTINE mbpt2_t3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 3 ) * Sum ( p4 ) * t2 ( p1 p2 p4 h9 h10 h11 )_t2 * f ( p3 p4 )_f @@ -685,7 +685,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_t2f + = 1 * P( 3 ) * Sum ( p4 ) * t2 ( p1 p2 p4 END SUBROUTINE mbpt2_t3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * t1 ( p1 p2 h9 h10 )_t1 * i1 ( p3 h11 )_ft1 @@ -905,7 +905,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * t1 ( p1 p2 h9 h10 )_t1 * END SUBROUTINE mbpt2_t3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h9 )_ft1 + = -1 * Sum ( h5 p4 ) * t1 ( p1 p4 h5 h9 )_t1 * f ( h5 p4 )_f @@ -1063,7 +1063,7 @@ C i1 ( p1 h9 )_ft1 + = -1 * Sum ( h5 p4 ) * t1 ( p1 p4 h5 h9 )_t1 * f ( h5 p RETURN END SUBROUTINE OFFSET_mbpt2_t3_4_1(l_a_offset,k_a_offset,size) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 h9 )_ft1 @@ -1119,7 +1119,7 @@ C i1 ( p1 h9 )_ft1 END SUBROUTINE mbpt2_t3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * Sum ( h6 ) * t1 ( p1 p2 h6 h9 )_t1 * i1 ( h6 p3 h10 h11 )_ft1 @@ -1357,7 +1357,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_ft1t1 + = 1 * P( 9 ) * Sum ( h6 ) * t1 ( p1 p2 END SUBROUTINE mbpt2_t3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_ft1 + = -1 * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * f ( h6 p4 )_f @@ -1508,7 +1508,7 @@ C i1 ( h6 p1 h9 h10 )_ft1 + = -1 * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * f ( RETURN END SUBROUTINE OFFSET_mbpt2_t3_5_1(l_a_offset,k_a_offset,size) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_ft1 @@ -1579,7 +1579,7 @@ C i1 ( h6 p1 h9 h10 )_ft1 RETURN END SUBROUTINE mbpt2_t3_5_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p1 h9 h10 )_v + = 1 * v ( h6 p1 h9 h10 )_v @@ -1679,7 +1679,7 @@ C i1 ( h6 p1 h9 h10 )_v + = 1 * v ( h6 p1 h9 h10 )_v END SUBROUTINE mbpt2_t3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = 1 * P( 9 ) * t1 ( p1 h9 )_t1 * v ( p2 p3 h10 h11 )_v @@ -1897,7 +1897,7 @@ C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = 1 * P( 9 ) * t1 ( p1 h9 )_t1 * v ( p2 p END SUBROUTINE mbpt2_t3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t3.F,v 1.4 2007-09-19 22:12:30 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 h9 h10 h11 )_vt1 + = -1 * P( 9 ) * Sum ( p4 ) * t1 ( p1 p4 h9 h10 )_t1 * v ( p2 p3 h11 p4 )_v diff --git a/src/tce/mbpt2/mbpt2_t4.F b/src/tce/mbpt2/mbpt2_t4.F index 939993e33b..8df5a8f931 100644 --- a/src/tce/mbpt2/mbpt2_t4.F +++ b/src/tce/mbpt2/mbpt2_t4.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt2_t4(d_f1,d_i0,d_t12,d_t23,d_t24,d_v2,k_f1_offset,k &_i0_offset,k_t12_offset,k_t23_offset,k_t24_offset,k_v2_offset) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f @@ -37,7 +37,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_vt1 + = 1 * P( 36 ) * t1 ( p1 p2 h9 h10 END SUBROUTINE mbpt2_t4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 h10 h11 )_t2 * f ( p30 h38 )_f @@ -367,7 +367,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 16 ) * t2 ( p1 p2 p3 h9 END SUBROUTINE mbpt2_t4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( h4 ) * t2 ( p1 p2 p3 p30 h4 h9 h10 h11 )_t2 * f ( h4 h38 )_f @@ -604,7 +604,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( h4 ) * t2 ( END SUBROUTINE mbpt2_t4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( p4 ) * t2 ( p1 p2 p3 p4 h9 h10 h11 h38 )_t2 * f ( p30 p4 )_f @@ -841,7 +841,7 @@ C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_t2f + = 1 * P( 4 ) * Sum ( p4 ) * t2 ( END SUBROUTINE mbpt2_t4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt2_t4.F,v 1.3 2005-12-16 22:05:10 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 p3 p30 h9 h10 h11 h38 )_vt1 + = 1 * P( 36 ) * t1 ( p1 p2 h9 h10 )_t1 * v ( p3 p30 h11 h38 )_v diff --git a/src/tce/mbpt3/GNUmakefile b/src/tce/mbpt3/GNUmakefile index 15af3e50aa..d9266be1db 100644 --- a/src/tce/mbpt3/GNUmakefile +++ b/src/tce/mbpt3/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005/12/20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt3_e.o mbpt3_t1.o mbpt3_t2.o mbpt3_t1_sd.o mbpt3_t2_sd.o diff --git a/src/tce/mbpt3/mbpt3_e.F b/src/tce/mbpt3/mbpt3_e.F index ddb4e8e559..b8fb038d98 100644 --- a/src/tce/mbpt3/mbpt3_e.F +++ b/src/tce/mbpt3/mbpt3_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt3_e(d_i0,d_t22,d_v2,k_i0_offset,k_t22_offset,k_v2_o &ffset) -C $Id: mbpt3_e.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 RETURN END SUBROUTINE mbpt3_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt3_e.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt2 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/mbpt3/mbpt3_t1.F b/src/tce/mbpt3/mbpt3_t1.F index 46b3c4783b..94fba67278 100644 --- a/src/tce/mbpt3/mbpt3_t1.F +++ b/src/tce/mbpt3/mbpt3_t1.F @@ -2,7 +2,7 @@ &d_t32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t11_offset,k_t21 &_offset,k_t22_offset,k_t23_offset,k_t31_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -59,7 +59,7 @@ C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 END SUBROUTINE mbpt3_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -184,7 +184,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f END SUBROUTINE mbpt3_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f @@ -309,7 +309,7 @@ C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f END SUBROUTINE mbpt3_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p3 )_f @@ -468,7 +468,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p END SUBROUTINE mbpt3_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p2 )_v @@ -602,7 +602,7 @@ C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p END SUBROUTINE mbpt3_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 p2 )_v @@ -767,7 +767,7 @@ C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( END SUBROUTINE mbpt3_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( h4 p1 p2 p3 )_v @@ -932,7 +932,7 @@ C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( END SUBROUTINE mbpt3_t1_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/4 * Sum ( h4 h5 p2 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_t2 * v ( h4 h5 p2 p3 )_v @@ -1171,7 +1171,7 @@ C i0 ( p1 h9 )_vt2 + = 1/4 * Sum ( h4 h5 p2 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_ END SUBROUTINE mbpt3_t1_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t1.F,v 1.3 2005-12-16 22:04:52 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 diff --git a/src/tce/mbpt3/mbpt3_t1_sd.F b/src/tce/mbpt3/mbpt3_t1_sd.F index 5ab8d0fdaf..71eba290fa 100644 --- a/src/tce/mbpt3/mbpt3_t1_sd.F +++ b/src/tce/mbpt3/mbpt3_t1_sd.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt3_t1_sd(d_e20,d_f1,d_i0,d_t11,d_t21,d_t22,d_t31,d_t &32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t11_offset,k_t21_of &fset,k_t22_offset,k_t31_offset,k_t32_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -53,7 +53,7 @@ C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 END SUBROUTINE mbpt3_t1_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f @@ -179,7 +179,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( h2 ) * t3 ( p1 h2 )_t3 * f ( h2 h9 )_f END SUBROUTINE mbpt3_t1_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f @@ -305,7 +305,7 @@ C i0 ( p1 h9 )_t3f + = 1 * Sum ( p2 ) * t3 ( p2 h9 )_t3 * f ( p1 p2 )_f END SUBROUTINE mbpt3_t1_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p3 )_f @@ -465,7 +465,7 @@ C i0 ( p1 h9 )_t3f + = -1 * Sum ( p3 h2 ) * t3 ( p1 p3 h2 h9 )_t3 * f ( h2 p END SUBROUTINE mbpt3_t1_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p2 )_v @@ -600,7 +600,7 @@ C i0 ( p1 h9 )_vt2 + = -1 * Sum ( h3 p2 ) * t2 ( p2 h3 )_t2 * v ( h3 p1 h9 p END SUBROUTINE mbpt3_t1_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 p2 )_v @@ -766,7 +766,7 @@ C i0 ( p1 h9 )_vt2 + = -1/2 * Sum ( h3 h4 p2 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( END SUBROUTINE mbpt3_t1_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( h4 p1 p2 p3 )_v @@ -932,7 +932,7 @@ C i0 ( p1 h9 )_vt2 + = 1/2 * Sum ( h4 p2 p3 ) * t2 ( p2 p3 h4 h9 )_t2 * v ( END SUBROUTINE mbpt3_t1_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 h9 )_t1e2 + = -1 * e2 ( )_e2 * t1 ( p1 h9 )_t1 diff --git a/src/tce/mbpt3/mbpt3_t2.F b/src/tce/mbpt3/mbpt3_t2.F index 0b7686f289..246c2a3d5f 100644 --- a/src/tce/mbpt3/mbpt3_t2.F +++ b/src/tce/mbpt3/mbpt3_t2.F @@ -2,7 +2,7 @@ &d_t32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t12_offset,k_t21 &_offset,k_t22_offset,k_t23_offset,k_t31_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -137,7 +137,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 END SUBROUTINE mbpt3_t2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -296,7 +296,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f END SUBROUTINE mbpt3_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t3 * f ( h3 h10 )_f @@ -458,7 +458,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt3_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_t3 * f ( p2 p3 )_f @@ -620,7 +620,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt3_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v ( h3 p2 h9 h10 )_v @@ -773,7 +773,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v END SUBROUTINE mbpt3_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v ( p1 p2 h10 p3 )_v @@ -926,7 +926,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v END SUBROUTINE mbpt3_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 h10 )_v @@ -1086,7 +1086,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * END SUBROUTINE mbpt3_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 )_t2 * v ( h4 p2 h10 p3 )_v @@ -1288,7 +1288,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 END SUBROUTINE mbpt3_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * v ( p1 p2 p3 p4 )_v @@ -1448,7 +1448,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * END SUBROUTINE mbpt3_t2_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h4 h5 p3 ) * t2 ( p1 p2 p3 h4 h5 h9 )_t2 * v ( h4 h5 h10 p3 )_v @@ -1697,7 +1697,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h4 h5 p3 ) * t2 ( p1 p2 END SUBROUTINE mbpt3_t2_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h5 p3 p4 ) * t2 ( p1 p3 p4 h5 h9 h10 )_t2 * v ( h5 p2 p3 p4 )_v @@ -1958,7 +1958,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1/2 * P( 2 ) * Sum ( h5 p3 p4 ) * t2 ( p1 p3 END SUBROUTINE mbpt3_t2_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 @@ -2092,7 +2092,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 END SUBROUTINE mbpt3_t2_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2245,7 +2245,7 @@ C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 RETURN END SUBROUTINE OFFSET_mbpt3_t2_11_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 @@ -2278,7 +2278,7 @@ C i1 ( )_vt1 RETURN END SUBROUTINE mbpt3_t2_11_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_e2 + = -4 * e2 ( )_e2 @@ -2342,7 +2342,7 @@ C i1 ( )_e2 + = -4 * e2 ( )_e2 END SUBROUTINE mbpt3_t2_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * i1 ( p2 p3 )_vt1 @@ -2504,7 +2504,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h END SUBROUTINE mbpt3_t2_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2677,7 +2677,7 @@ C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 RETURN END SUBROUTINE OFFSET_mbpt3_t2_12_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 @@ -2733,7 +2733,7 @@ C i1 ( p1 p3 )_vt1 END SUBROUTINE mbpt3_t2_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * i1 ( h3 h4 h9 h10 )_vt1 @@ -2893,7 +2893,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 END SUBROUTINE mbpt3_t2_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v ( h3 h4 p5 p6 )_v @@ -3052,7 +3052,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_13_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 @@ -3124,7 +3124,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 END SUBROUTINE mbpt3_t2_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * i1 ( h3 h10 )_vt1 @@ -3286,7 +3286,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 END SUBROUTINE mbpt3_t2_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h3 h6 p4 p5 )_v @@ -3459,7 +3459,7 @@ C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h RETURN END SUBROUTINE OFFSET_mbpt3_t2_14_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 @@ -3515,7 +3515,7 @@ C i1 ( h3 h9 )_vt1 END SUBROUTINE mbpt3_t2_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * i1 ( h4 p2 h10 p3 )_vt1 @@ -3715,7 +3715,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h END SUBROUTINE mbpt3_t2_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v ( h4 h6 p3 p5 )_v @@ -3915,7 +3915,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_15_1(l_a_offset,k_a_offset,size) -C $Id: mbpt3_t2.F,v 1.4 2007-09-19 22:15:21 d3p975 Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 diff --git a/src/tce/mbpt3/mbpt3_t2_sd.F b/src/tce/mbpt3/mbpt3_t2_sd.F index 05a58d6486..bfebe288b3 100644 --- a/src/tce/mbpt3/mbpt3_t2_sd.F +++ b/src/tce/mbpt3/mbpt3_t2_sd.F @@ -1,7 +1,7 @@ SUBROUTINE mbpt3_t2_sd(d_e20,d_f1,d_i0,d_t12,d_t21,d_t22,d_t31,d_t &32,d_v2,k_e20_offset,k_f1_offset,k_i0_offset,k_t12_offset,k_t21_of &fset,k_t22_offset,k_t31_offset,k_t32_offset,k_v2_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -128,7 +128,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 END SUBROUTINE mbpt3_t2_sd_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f @@ -288,7 +288,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 4 ) * t3 ( p1 h9 )_t3 * f ( p2 h10 )_f END SUBROUTINE mbpt3_t2_sd_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t3 * f ( h3 h10 )_f @@ -451,7 +451,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( h3 ) * t3 ( p1 p2 h3 h9 )_t END SUBROUTINE mbpt3_t2_sd_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_t3 * f ( p2 p3 )_f @@ -614,7 +614,7 @@ C i0 ( p1 p2 h9 h10 )_t3f + = 1 * P( 2 ) * Sum ( p3 ) * t3 ( p1 p3 h9 h10 )_ END SUBROUTINE mbpt3_t2_sd_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v ( h3 p2 h9 h10 )_v @@ -768,7 +768,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( h3 ) * t2 ( p1 h3 )_t2 * v END SUBROUTINE mbpt3_t2_sd_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v ( p1 p2 h10 p3 )_v @@ -922,7 +922,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = -1 * P( 2 ) * Sum ( p3 ) * t2 ( p3 h9 )_t2 * v END SUBROUTINE mbpt3_t2_sd_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * v ( h3 h4 h9 h10 )_v @@ -1083,7 +1083,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( h3 h4 ) * t2 ( p1 p2 h3 h4 )_t2 * END SUBROUTINE mbpt3_t2_sd_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 )_t2 * v ( h4 p2 h10 p3 )_v @@ -1286,7 +1286,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1 * P( 4 ) * Sum ( h4 p3 ) * t2 ( p1 p3 h4 h9 END SUBROUTINE mbpt3_t2_sd_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * v ( p1 p2 p3 p4 )_v @@ -1447,7 +1447,7 @@ C i0 ( p1 p2 h9 h10 )_vt2 + = 1/2 * Sum ( p3 p4 ) * t2 ( p3 p4 h9 h10 )_t2 * END SUBROUTINE mbpt3_t2_sd_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 @@ -1582,7 +1582,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * t1 ( p1 p2 h9 h10 )_t1 * i1 ( )_vt1 END SUBROUTINE mbpt3_t2_sd_9_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o &ffset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -1737,7 +1737,7 @@ C i1 ( )_vt1 + = 1 * Sum ( h5 h6 p3 p4 ) * t1 ( p3 p4 h5 h6 )_t1 * v ( h5 h6 RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_9_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_vt1 @@ -1770,7 +1770,7 @@ C i1 ( )_vt1 RETURN END SUBROUTINE mbpt3_t2_sd_9_2(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( )_e2 + = -4 * e2 ( )_e2 @@ -1836,7 +1836,7 @@ C i1 ( )_e2 + = -4 * e2 ( )_e2 END SUBROUTINE mbpt3_t2_sd_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h10 )_t1 * i1 ( p2 p3 )_vt1 @@ -2001,7 +2001,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 2 ) * Sum ( p3 ) * t1 ( p1 p3 h9 h END SUBROUTINE mbpt3_t2_sd_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 h6 p3 p4 )_v @@ -2176,7 +2176,7 @@ C i1 ( p1 p3 )_vt1 + = 1 * Sum ( h5 h6 p4 ) * t1 ( p1 p4 h5 h6 )_t1 * v ( h5 RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_10_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p1 p3 )_vt1 @@ -2232,7 +2232,7 @@ C i1 ( p1 p3 )_vt1 END SUBROUTINE mbpt3_t2_sd_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 * i1 ( h3 h4 h9 h10 )_vt1 @@ -2395,7 +2395,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/4 * Sum ( h3 h4 ) * t1 ( p1 p2 h3 h4 )_t1 END SUBROUTINE mbpt3_t2_sd_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v ( h3 h4 p5 p6 )_v @@ -2556,7 +2556,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 + = 1 * Sum ( p5 p6 ) * t1 ( p5 p6 h9 h10 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_11_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h4 h9 h10 )_vt1 @@ -2628,7 +2628,7 @@ C i1 ( h3 h4 h9 h10 )_vt1 END SUBROUTINE mbpt3_t2_sd_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 )_t1 * i1 ( h3 h10 )_vt1 @@ -2793,7 +2793,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = 1/2 * P( 2 ) * Sum ( h3 ) * t1 ( p1 p2 h3 h9 END SUBROUTINE mbpt3_t2_sd_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h3 h6 p4 p5 )_v @@ -2968,7 +2968,7 @@ C i1 ( h3 h9 )_vt1 + = -1 * Sum ( h6 p4 p5 ) * t1 ( p4 p5 h6 h9 )_t1 * v ( h RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_12_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h9 )_vt1 @@ -3024,7 +3024,7 @@ C i1 ( h3 h9 )_vt1 END SUBROUTINE mbpt3_t2_sd_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h4 h9 )_t1 * i1 ( h4 p2 h10 p3 )_vt1 @@ -3227,7 +3227,7 @@ C i0 ( p1 p2 h9 h10 )_vt1t1 + = -1/2 * P( 4 ) * Sum ( h4 p3 ) * t1 ( p1 p3 h END SUBROUTINE mbpt3_t2_sd_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_ &offset) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v ( h4 h6 p3 p5 )_v @@ -3429,7 +3429,7 @@ C i1 ( h4 p1 h9 p3 )_vt1 + = -1 * Sum ( h6 p5 ) * t1 ( p1 p5 h6 h9 )_t1 * v RETURN END SUBROUTINE OFFSET_mbpt3_t2_sd_13_1(l_a_offset,k_a_offset,size) -C $Id: tce.py,v 1.10 2002/12/01 21:37:34 sohirata Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 p1 h9 p3 )_vt1 diff --git a/src/tce/mbpt4/GNUmakefile b/src/tce/mbpt4/GNUmakefile index d7b5b52e25..abc57f7f04 100644 --- a/src/tce/mbpt4/GNUmakefile +++ b/src/tce/mbpt4/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = mbpt4_e.o diff --git a/src/tce/mbpt4/mbpt4_e.F b/src/tce/mbpt4/mbpt4_e.F index 6bd4845585..b83471e567 100644 --- a/src/tce/mbpt4/mbpt4_e.F +++ b/src/tce/mbpt4/mbpt4_e.F @@ -1,6 +1,6 @@ SUBROUTINE mbpt4_e(d_i0,d_t32,d_v2,k_i0_offset,k_t32_offset,k_v2_o &ffset) -C $Id: mbpt4_e.F,v 1.3 2005-12-16 22:04:29 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 h4 p1 p2 )_v @@ -21,7 +21,7 @@ C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 RETURN END SUBROUTINE mbpt4_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: mbpt4_e.F,v 1.3 2005-12-16 22:04:29 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt3 + = 1/4 * Sum ( h3 h4 p1 p2 ) * t3 ( p1 p2 h3 h4 )_t3 * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/oce.py b/src/tce/oce.py index 99c469f7bf..8e08b6a2bc 100644 --- a/src/tce/oce.py +++ b/src/tce/oce.py @@ -1,6 +1,6 @@ # Operator Contraction Engine v.1.0 # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: oce.py,v 1.9 2004-04-20 21:42:05 sohirata Exp $ +# $Id$ import string diff --git a/src/tce/put_block.F b/src/tce/put_block.F index 1b875ceab1..25f01a7bd6 100644 --- a/src/tce/put_block.F +++ b/src/tce/put_block.F @@ -1,6 +1,6 @@ subroutine put_block(d_file,array,size,offset) c -c $Id: put_block.F,v 1.15 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -147,7 +147,7 @@ c subroutine put_block_sf(d_file,array,size,offset) c -c $Id: put_block.F,v 1.15 2008-06-09 19:19:54 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/put_hash_block.F b/src/tce/put_hash_block.F index 242232757b..d9ee85f0e2 100644 --- a/src/tce/put_hash_block.F +++ b/src/tce/put_hash_block.F @@ -1,6 +1,6 @@ subroutine put_hash_block(d_file,array,size,hash,key) c -c $Id: put_hash_block.F,v 1.2 2008-06-09 19:19:53 jhammond Exp $ +c $Id$ c implicit none integer d_file @@ -22,7 +22,7 @@ c subroutine put_hash_block_sf(d_file,array,size,hash,key) c -c $Id: put_hash_block.F,v 1.2 2008-06-09 19:19:53 jhammond Exp $ +c $Id$ c implicit none integer d_file diff --git a/src/tce/qcisd/GNUmakefile b/src/tce/qcisd/GNUmakefile index 44273de0c1..7d47c121e3 100644 --- a/src/tce/qcisd/GNUmakefile +++ b/src/tce/qcisd/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.2 2005-12-20 21:19:40 edo Exp $ +#$Id$ OBJ_OPTIMIZE = qcisd_e.o qcisd_t1.o qcisd_t2.o diff --git a/src/tce/qcisd/qcisd_e.F b/src/tce/qcisd/qcisd_e.F index 93e9b24bc2..93b87d4aba 100644 --- a/src/tce/qcisd/qcisd_e.F +++ b/src/tce/qcisd/qcisd_e.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_e(d_i0,d_t2,d_v2,k_i0_offset,k_t2_offset,k_v2_off &set) -C $Id: qcisd_e.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v @@ -20,7 +20,7 @@ C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 RETURN END SUBROUTINE qcisd_e_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: qcisd_e.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( )_vt + = 1/4 * Sum ( h3 h4 p1 p2 ) * t ( p1 p2 h3 h4 )_t * v ( h3 h4 p1 p2 )_v diff --git a/src/tce/qcisd/qcisd_t1.F b/src/tce/qcisd/qcisd_t1.F index 0d1e2e820d..bf26439cd3 100644 --- a/src/tce/qcisd/qcisd_t1.F +++ b/src/tce/qcisd/qcisd_t1.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_t1(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f @@ -82,7 +82,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE qcisd_t1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f @@ -206,7 +206,7 @@ C i0 ( p2 h1 )_tf + = -1 * Sum ( h7 ) * t ( p2 h7 )_t * i1 ( h7 h1 )_f RETURN END SUBROUTINE qcisd_t1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f @@ -288,7 +288,7 @@ C i1 ( h7 h1 )_f + = 1 * f ( h7 h1 )_f RETURN END SUBROUTINE OFFSET_qcisd_t1_1_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_f @@ -344,7 +344,7 @@ C i1 ( h7 h1 )_f END SUBROUTINE qcisd_t1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 h7 p3 p4 )_v @@ -517,7 +517,7 @@ C i1 ( h7 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 END SUBROUTINE qcisd_t1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f @@ -642,7 +642,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * f ( p2 p3 )_f END SUBROUTINE qcisd_t1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 )_v @@ -776,7 +776,7 @@ C i0 ( p2 h1 )_vt + = -1 * Sum ( h4 p3 ) * t ( p3 h4 )_t * v ( h4 p2 h1 p3 ) END SUBROUTINE qcisd_t1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 )_f @@ -934,7 +934,7 @@ C i0 ( p2 h1 )_tf + = 1 * Sum ( p7 h8 ) * t ( p2 p7 h1 h8 )_t * i1 ( h8 p7 ) RETURN END SUBROUTINE qcisd_t1_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f @@ -1016,7 +1016,7 @@ C i1 ( h8 p7 )_f + = 1 * f ( h8 p7 )_f RETURN END SUBROUTINE OFFSET_qcisd_t1_4_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_f @@ -1072,7 +1072,7 @@ C i1 ( h8 p7 )_f END SUBROUTINE qcisd_t1_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_v @@ -1230,7 +1230,7 @@ C i1 ( h8 p7 )_vt + = 1 * Sum ( h6 p5 ) * t ( p5 h6 )_t * v ( h6 h8 p5 p7 )_ END SUBROUTINE qcisd_t1_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h4 h5 h1 p3 )_v @@ -1392,7 +1392,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * i1 ( h RETURN END SUBROUTINE qcisd_t1_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v @@ -1491,7 +1491,7 @@ C i1 ( h4 h5 h1 p3 )_v + = 1 * v ( h4 h5 h1 p3 )_v RETURN END SUBROUTINE OFFSET_qcisd_t1_5_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_v @@ -1561,7 +1561,7 @@ C i1 ( h4 h5 h1 p3 )_v END SUBROUTINE qcisd_t1_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p6 )_v @@ -1712,7 +1712,7 @@ C i1 ( h4 h5 h1 p3 )_vt + = -1 * Sum ( p6 ) * t ( p6 h1 )_t * v ( h4 h5 p3 p END SUBROUTINE qcisd_t1_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t1.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/qcisd/qcisd_t2.F b/src/tce/qcisd/qcisd_t2.F index 7ac4a8eeac..76bee39e3b 100644 --- a/src/tce/qcisd/qcisd_t2.F +++ b/src/tce/qcisd/qcisd_t2.F @@ -1,6 +1,6 @@ SUBROUTINE qcisd_t2(d_f1,d_i0,d_t1,d_t2,d_v2,k_f1_offset,k_i0_offs &et,k_t1_offset,k_t2_offset,k_v2_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -98,7 +98,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( RETURN END SUBROUTINE qcisd_t2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v @@ -196,7 +196,7 @@ C i0 ( p3 p4 h1 h2 )_v + = 1 * v ( p3 p4 h1 h2 )_v END SUBROUTINE qcisd_t2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h5 p4 h1 h2 )_v @@ -349,7 +349,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * v ( h END SUBROUTINE qcisd_t2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p3 p4 h2 p5 )_v @@ -502,7 +502,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 2 ) * Sum ( p5 ) * t ( p5 h1 )_t * v ( p END SUBROUTINE qcisd_t2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_f @@ -663,7 +663,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE qcisd_t2_4_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -745,7 +745,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_qcisd_t2_4_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -801,7 +801,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE qcisd_t2_4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 h8 p6 p7 )_v @@ -974,7 +974,7 @@ C i1 ( h5 h1 )_vt + = 1/2 * Sum ( h8 p6 p7 ) * t ( p6 p7 h1 h8 )_t * v ( h5 END SUBROUTINE qcisd_t2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * i1 ( p4 p5 )_f @@ -1135,7 +1135,7 @@ C i0 ( p3 p4 h1 h2 )_tf + = 1 * P( 2 ) * Sum ( p5 ) * t ( p3 p5 h1 h2 )_t * RETURN END SUBROUTINE qcisd_t2_5_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f @@ -1217,7 +1217,7 @@ C i1 ( p3 p5 )_f + = 1 * f ( p3 p5 )_f RETURN END SUBROUTINE OFFSET_qcisd_t2_5_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_f @@ -1273,7 +1273,7 @@ C i1 ( p3 p5 )_f END SUBROUTINE qcisd_t2_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 h8 p5 p6 )_v @@ -1446,7 +1446,7 @@ C i1 ( p3 p5 )_vt + = -1/2 * Sum ( h7 h8 p6 ) * t ( p3 p6 h7 h8 )_t * v ( h7 END SUBROUTINE qcisd_t2_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 ( h7 h9 h1 h2 )_v @@ -1605,7 +1605,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1/2 * Sum ( h9 h7 ) * t ( p3 p4 h7 h9 )_t * i1 RETURN END SUBROUTINE qcisd_t2_6_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v @@ -1701,7 +1701,7 @@ C i1 ( h7 h9 h1 h2 )_v + = -1 * v ( h7 h9 h1 h2 )_v RETURN END SUBROUTINE OFFSET_qcisd_t2_6_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_v @@ -1771,7 +1771,7 @@ C i1 ( h7 h9 h1 h2 )_v END SUBROUTINE qcisd_t2_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( h7 h9 p5 p6 )_v @@ -1930,7 +1930,7 @@ C i1 ( h7 h9 h1 h2 )_vt + = -1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( END SUBROUTINE qcisd_t2_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_t * i1 ( h6 p4 h2 p5 )_v @@ -2129,7 +2129,7 @@ C i0 ( p3 p4 h1 h2 )_vt + = -1 * P( 4 ) * Sum ( h6 p5 ) * t ( p3 p5 h1 h6 )_ RETURN END SUBROUTINE qcisd_t2_7_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v @@ -2228,7 +2228,7 @@ C i1 ( h6 p3 h1 p5 )_v + = 1 * v ( h6 p3 h1 p5 )_v RETURN END SUBROUTINE OFFSET_qcisd_t2_7_1(l_a_offset,k_a_offset,size) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_v @@ -2298,7 +2298,7 @@ C i1 ( h6 p3 h1 p5 )_v END SUBROUTINE qcisd_t2_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( h6 h8 p5 p7 )_v @@ -2498,7 +2498,7 @@ C i1 ( h6 p3 h1 p5 )_vt + = -1/2 * Sum ( h8 p7 ) * t ( p3 p7 h1 h8 )_t * v ( END SUBROUTINE qcisd_t2_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: qcisd_t2.F,v 1.3 2005-12-16 22:04:05 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_vt + = 1/2 * Sum ( p5 p6 ) * t ( p5 p6 h1 h2 )_t * v ( p3 p4 p5 p6 )_v diff --git a/src/tce/reconcilefile.F b/src/tce/reconcilefile.F index c140539250..beee8278ef 100644 --- a/src/tce/reconcilefile.F +++ b/src/tce/reconcilefile.F @@ -1,6 +1,6 @@ subroutine reconcilefile(d_sf,size) c -c $Id: reconcilefile.F,v 1.10 2008-12-11 20:20:38 jhammond Exp $ +c $Id$ c c Accumulate local distributed files and update all files c with the one accumulated file diff --git a/src/tce/response/GNUmakefile b/src/tce/response/GNUmakefile index 3d5cc81a19..c8bdba4e3a 100644 --- a/src/tce/response/GNUmakefile +++ b/src/tce/response/GNUmakefile @@ -1,4 +1,4 @@ -#$Id: GNUmakefile,v 1.3 2008-08-18 02:13:40 jhammond Exp $ +#$Id$ OBJ_OPTIMIZE = \ ccsd_o1.o \ diff --git a/src/tce/response/ccsd_o1.F b/src/tce/response/ccsd_o1.F index 039247297a..7f2845e930 100644 --- a/src/tce/response/ccsd_o1.F +++ b/src/tce/response/ccsd_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_t &1_offset,k_t2_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -45,7 +45,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsd_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -127,7 +127,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o RETURN END SUBROUTINE ccsd_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -251,7 +251,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsd_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -333,7 +333,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsd_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -389,7 +389,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsd_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -513,7 +513,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t RETURN END SUBROUTINE ccsd_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -637,7 +637,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t RETURN END SUBROUTINE ccsd_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsd_o2.F b/src/tce/response/ccsd_o2.F index 51ddd519b8..c8531bb0df 100644 --- a/src/tce/response/ccsd_o2.F +++ b/src/tce/response/ccsd_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsd_o2(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_t &1_offset,k_t2_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -53,7 +53,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 RETURN END SUBROUTINE ccsd_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -214,7 +214,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsd_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -296,7 +296,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsd_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -352,7 +352,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsd_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -476,7 +476,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t RETURN END SUBROUTINE ccsd_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -636,7 +636,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p RETURN END SUBROUTINE ccsd_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -787,7 +787,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsd_o2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -937,7 +937,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsd_o2_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsd_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdt_o1.F b/src/tce/response/ccsdt_o1.F index 424e932357..09ae756927 100644 --- a/src/tce/response/ccsdt_o1.F +++ b/src/tce/response/ccsdt_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k_ &t1_offset,k_t2_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -48,7 +48,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsdt_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -131,7 +131,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o END SUBROUTINE ccsdt_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -255,7 +255,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsdt_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -337,7 +337,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdt_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -393,7 +393,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdt_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -518,7 +518,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdt_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -643,7 +643,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdt_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o1.F,v 1.1 2007-08-11 01:21:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsdt_o2.F b/src/tce/response/ccsdt_o2.F index dcd4fcd8cb..24804f4fc5 100644 --- a/src/tce/response/ccsdt_o2.F +++ b/src/tce/response/ccsdt_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o2(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_offs &et,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -62,7 +62,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 END SUBROUTINE ccsdt_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -223,7 +223,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsdt_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -305,7 +305,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdt_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -361,7 +361,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdt_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -486,7 +486,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t END SUBROUTINE ccsdt_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -647,7 +647,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p END SUBROUTINE ccsdt_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 h1 h2 h5 )_t @@ -861,7 +861,7 @@ C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 END SUBROUTINE ccsdt_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -1012,7 +1012,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsdt_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -1162,7 +1162,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsdt_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdt_o3.F b/src/tce/response/ccsdt_o3.F index 93bed44111..81e89cba37 100644 --- a/src/tce/response/ccsdt_o3.F +++ b/src/tce/response/ccsdt_o3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdt_o3(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_offs &et,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -73,7 +73,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 END SUBROUTINE ccsdt_o3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -262,7 +262,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * END SUBROUTINE ccsdt_o3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * t ( p5 p6 p7 h1 h2 h3 )_t @@ -451,7 +451,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * END SUBROUTINE ccsdt_o3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_ot @@ -644,7 +644,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE ccsdt_o3_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t @@ -768,7 +768,7 @@ C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdt_o3_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot @@ -824,7 +824,7 @@ C i1 ( h7 h1 )_ot END SUBROUTINE ccsdt_o3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t * i1 ( h7 p5 p6 h1 h2 h3 )_ot @@ -996,7 +996,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t END SUBROUTINE ccsdt_o3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 p8 h1 h2 h3 )_t @@ -1166,7 +1166,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 RETURN END SUBROUTINE OFFSET_ccsdt_o3_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot @@ -1254,7 +1254,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot END SUBROUTINE ccsdt_o3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset &) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h8 )_t * i1 ( h8 p6 h2 h3 )_ot @@ -1488,7 +1488,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h END SUBROUTINE ccsdt_o3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h2 )_t @@ -1638,7 +1638,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h RETURN END SUBROUTINE OFFSET_ccsdt_o3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdt_o3.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o1.F b/src/tce/response/ccsdtq_o1.F index b0100eacd9..c98e630d5c 100644 --- a/src/tce/response/ccsdtq_o1.F +++ b/src/tce/response/ccsdtq_o1.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o1(d_i0,d_o1,d_t1,d_t2,k_i0_offset,k_o1_offset,k &_t1_offset,k_t2_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -48,7 +48,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_ RETURN END SUBROUTINE ccsdtq_o1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o @@ -131,7 +131,7 @@ C i0 ( p2 h1 )_o + = 1 * o ( p2 h1 )_o END SUBROUTINE ccsdtq_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o @@ -255,7 +255,7 @@ C i0 ( p2 h1 )_to + = -1 * Sum ( h5 ) * t ( p2 h5 )_t * i1 ( h5 h1 )_o RETURN END SUBROUTINE ccsdtq_o1_2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -337,7 +337,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdtq_o1_2_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -393,7 +393,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdtq_o1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t @@ -519,7 +519,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p3 ) * o ( h5 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdtq_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t @@ -644,7 +644,7 @@ C i0 ( p2 h1 )_to + = 1 * Sum ( p3 ) * o ( p2 p3 )_o * t ( p3 h1 )_t END SUBROUTINE ccsdtq_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o1.F,v 1.1 2007-08-11 01:21:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_to + = 1 * Sum ( p4 h3 ) * o ( h3 p4 )_o * t ( p2 p4 h1 h3 )_t diff --git a/src/tce/response/ccsdtq_o2.F b/src/tce/response/ccsdtq_o2.F index 4aa8e4fa36..d7b64c4957 100644 --- a/src/tce/response/ccsdtq_o2.F +++ b/src/tce/response/ccsdtq_o2.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o2(d_i0,d_o1,d_t1,d_t2,d_t3,k_i0_offset,k_o1_off &set,k_t1_offset,k_t2_offset,k_t3_offset) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -62,7 +62,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 END SUBROUTINE ccsdtq_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_o @@ -223,7 +223,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * RETURN END SUBROUTINE ccsdtq_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o @@ -305,7 +305,7 @@ C i1 ( h5 h1 )_o + = 1 * o ( h5 h1 )_o RETURN END SUBROUTINE OFFSET_ccsdtq_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_o @@ -361,7 +361,7 @@ C i1 ( h5 h1 )_o END SUBROUTINE ccsdtq_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t @@ -487,7 +487,7 @@ C i1 ( h5 h1 )_ot + = 1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p6 h1 )_t END SUBROUTINE ccsdtq_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p4 p5 h1 h2 )_t @@ -648,7 +648,7 @@ C i0 ( p3 p4 h1 h2 )_to + = -1 * P( 2 ) * Sum ( p5 ) * o ( p3 p5 )_o * t ( p END SUBROUTINE ccsdtq_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 h1 h2 h5 )_t @@ -862,7 +862,7 @@ C i0 ( p3 p4 h1 h2 )_to + = 1 * Sum ( p6 h5 ) * o ( h5 p6 )_o * t ( p3 p4 p6 END SUBROUTINE ccsdtq_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_ot @@ -1013,7 +1013,7 @@ C i0 ( p3 p4 h1 h2 )_ott + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE ccsdtq_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h2 )_t @@ -1164,7 +1164,7 @@ C i1 ( h5 p3 h1 h2 )_ot + = -1 * Sum ( p6 ) * o ( h5 p6 )_o * t ( p3 p6 h1 h RETURN END SUBROUTINE OFFSET_ccsdtq_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o2.F,v 1.1 2007-08-13 03:04:47 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o3.F b/src/tce/response/ccsdtq_o3.F index e950e24967..4f6b934d69 100644 --- a/src/tce/response/ccsdtq_o3.F +++ b/src/tce/response/ccsdtq_o3.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o3(d_i0,d_o1,d_t1,d_t2,d_t3,d_t4,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -78,7 +78,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 END SUBROUTINE ccsdtq_o3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * t ( p4 p5 p6 h2 h3 h7 )_t @@ -267,7 +267,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = -1 * P( 3 ) * Sum ( h7 ) * o ( h7 h1 )_o * END SUBROUTINE ccsdtq_o3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * t ( p5 p6 p7 h1 h2 h3 )_t @@ -456,7 +456,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * P( 3 ) * Sum ( p7 ) * o ( p4 p7 )_o * END SUBROUTINE ccsdtq_o3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * Sum ( p8 h7 ) * o ( h7 p8 )_o * t ( p4 p5 p6 p8 h1 h2 h3 h7 )_t @@ -773,7 +773,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_to + = 1 * Sum ( p8 h7 ) * o ( h7 p8 )_o * t ( p4 END SUBROUTINE ccsdtq_o3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h1 h2 h7 )_t * i1 ( h7 h3 )_ot @@ -966,7 +966,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 p5 p6 h END SUBROUTINE ccsdtq_o3_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t @@ -1091,7 +1091,7 @@ C i1 ( h7 h1 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p8 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdtq_o3_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 h1 )_ot @@ -1147,7 +1147,7 @@ C i1 ( h7 h1 )_ot END SUBROUTINE ccsdtq_o3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t * i1 ( h7 p5 p6 h1 h2 h3 )_ot @@ -1319,7 +1319,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 3 ) * Sum ( h7 ) * t ( p4 h7 )_t END SUBROUTINE ccsdtq_o3_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 p8 h1 h2 h3 )_t @@ -1490,7 +1490,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot + = 1 * Sum ( p8 ) * o ( h7 p8 )_o * t ( p4 p5 RETURN END SUBROUTINE OFFSET_ccsdtq_o3_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h7 p4 p5 h1 h2 h3 )_ot @@ -1578,7 +1578,7 @@ C i1 ( h7 p4 p5 h1 h2 h3 )_ot END SUBROUTINE ccsdtq_o3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h8 )_t * i1 ( h8 p6 h2 h3 )_ot @@ -1812,7 +1812,7 @@ C i0 ( p4 p5 p6 h1 h2 h3 )_ott + = -1 * P( 9 ) * Sum ( h8 ) * t ( p4 p5 h1 h END SUBROUTINE ccsdtq_o3_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h2 )_t @@ -1963,7 +1963,7 @@ C i1 ( h8 p4 h1 h2 )_ot + = -1 * Sum ( p7 ) * o ( h8 p7 )_o * t ( p4 p7 h1 h RETURN END SUBROUTINE OFFSET_ccsdtq_o3_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o3.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h8 p4 h1 h2 )_ot diff --git a/src/tce/response/ccsdtq_o4.F b/src/tce/response/ccsdtq_o4.F index a2f6810b2d..0562f1bba1 100644 --- a/src/tce/response/ccsdtq_o4.F +++ b/src/tce/response/ccsdtq_o4.F @@ -1,6 +1,6 @@ SUBROUTINE ccsdtq_o4(d_i0,d_o1,d_t1,d_t2,d_t3,d_t4,k_i0_offset,k_o &1_offset,k_t1_offset,k_t2_offset,k_t3_offset,k_t4_offset) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 )_o * t ( p5 p6 p7 p8 h2 h3 h4 h9 )_t @@ -88,7 +88,7 @@ C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( END SUBROUTINE ccsdtq_o4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 )_o * t ( p5 p6 p7 p8 h2 h3 h4 h9 )_t @@ -320,7 +320,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = 1 * P( 4 ) * Sum ( h9 ) * o ( h9 h1 END SUBROUTINE ccsdtq_o4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = -1 * P( 4 ) * Sum ( p9 ) * o ( p5 p9 )_o * t ( p6 p7 p8 p9 h1 h2 h3 h4 )_t @@ -552,7 +552,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_to + = -1 * P( 4 ) * Sum ( p9 ) * o ( p5 p9 END SUBROUTINE ccsdtq_o4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p6 p7 p8 h1 h2 h3 h9 )_t * i1 ( h9 h4 )_ot @@ -788,7 +788,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 p END SUBROUTINE ccsdtq_o4_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p10 h1 )_t @@ -913,7 +913,7 @@ C i1 ( h9 h1 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p10 h1 )_t RETURN END SUBROUTINE OFFSET_ccsdtq_o4_3_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 h1 )_ot @@ -969,7 +969,7 @@ C i1 ( h9 h1 )_ot END SUBROUTINE ccsdtq_o4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 h9 )_t * i1 ( h9 p6 p7 p8 h1 h2 h3 h4 )_ot @@ -1169,7 +1169,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 4 ) * Sum ( h9 ) * t ( p5 h END SUBROUTINE ccsdtq_o4_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p6 p7 p10 h1 h2 h3 h4 )_t @@ -1369,7 +1369,7 @@ C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * RETURN END SUBROUTINE OFFSET_ccsdtq_o4_4_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot @@ -1472,7 +1472,7 @@ C i1 ( h9 p5 p6 p7 h1 h2 h3 h4 )_ot END SUBROUTINE ccsdtq_o4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 p7 h1 h2 h9 )_t * i1 ( h9 p8 h3 h4 )_ot @@ -1905,7 +1905,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 END SUBROUTINE ccsdtq_o4_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 h1 h2 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p10 h1 h2 )_t @@ -2056,7 +2056,7 @@ C i1 ( h9 p5 h1 h2 )_ot + = -1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p10 h RETURN END SUBROUTINE OFFSET_ccsdtq_o4_5_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 h1 h2 )_ot @@ -2128,7 +2128,7 @@ C i1 ( h9 p5 h1 h2 )_ot END SUBROUTINE ccsdtq_o4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offse &t) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 p6 h1 h9 )_t * i1 ( h9 p7 p8 h2 h3 h4 )_ot @@ -2551,7 +2551,7 @@ C i0 ( p5 p6 p7 p8 h1 h2 h3 h4 )_ott + = -1 * P( 24 ) * Sum ( h9 ) * t ( p5 END SUBROUTINE ccsdtq_o4_6_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off &set) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 p6 p10 h1 h2 h3 )_t @@ -2725,7 +2725,7 @@ C i1 ( h9 p5 p6 h1 h2 h3 )_ot + = 1 * Sum ( p10 ) * o ( h9 p10 )_o * t ( p5 RETURN END SUBROUTINE OFFSET_ccsdtq_o4_6_1(l_a_offset,k_a_offset,size) -C $Id: ccsdtq_o4.F,v 1.1 2007-08-13 03:04:48 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h9 p5 p6 h1 h2 h3 )_ot diff --git a/src/tce/response/eomccsd_o1.F b/src/tce/response/eomccsd_o1.F index e3f90c9160..41b68d9181 100644 --- a/src/tce/response/eomccsd_o1.F +++ b/src/tce/response/eomccsd_o1.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_o1(d_f1,d_i0,d_t1,d_x1,d_x2,k_f1_offset,k_i0_of &fset,k_t1_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f @@ -62,7 +62,7 @@ C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f END SUBROUTINE eomccsd_o1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f @@ -186,7 +186,7 @@ C i0 ( p2 h1 )_xf + = -1 * Sum ( h3 ) * x ( p2 h3 )_x * i1 ( h3 h1 )_f RETURN END SUBROUTINE eomccsd_o1_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_f + = 1 * f ( h3 h1 )_f @@ -270,7 +270,7 @@ C i1 ( h3 h1 )_f + = 1 * f ( h3 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o1_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_f @@ -326,7 +326,7 @@ C i1 ( h3 h1 )_f END SUBROUTINE eomccsd_o1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_ft + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * f ( h3 p4 )_f @@ -454,7 +454,7 @@ C i1 ( h3 h1 )_ft + = 1 * Sum ( p4 ) * t ( p4 h1 )_t * f ( h3 p4 )_f END SUBROUTINE eomccsd_o1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f @@ -579,7 +579,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p3 ) * x ( p3 h1 )_x * f ( p2 p3 )_f END SUBROUTINE eomccsd_o1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_xf + = 1 * Sum ( p4 h3 ) * x ( p2 p4 h1 h3 )_x * f ( h3 p4 )_f @@ -738,7 +738,7 @@ C i0 ( p2 h1 )_xf + = 1 * Sum ( p4 h3 ) * x ( p2 p4 h1 h3 )_x * f ( h3 p4 )_ END SUBROUTINE eomccsd_o1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx @@ -863,7 +863,7 @@ C i0 ( p2 h1 )_fxt + = -1 * Sum ( h3 ) * t ( p2 h3 )_t * i1 ( h3 h1 )_fx END SUBROUTINE eomccsd_o1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f @@ -990,7 +990,7 @@ C i1 ( h3 h1 )_fx + = 1 * Sum ( p4 ) * x ( p4 h1 )_x * f ( h3 p4 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o1_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o1.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h3 h1 )_fx diff --git a/src/tce/response/eomccsd_o2.F b/src/tce/response/eomccsd_o2.F index c187957aba..394eea1aef 100644 --- a/src/tce/response/eomccsd_o2.F +++ b/src/tce/response/eomccsd_o2.F @@ -1,6 +1,6 @@ SUBROUTINE eomccsd_o2(d_f1,d_i0,d_t1,d_t2,d_x1,d_x2,k_f1_offset,k_ &i0_offset,k_t1_offset,k_t2_offset,k_x1_offset,k_x2_offset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * i1 ( h5 h2 )_f @@ -87,7 +87,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f END SUBROUTINE eomccsd_o2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * i1 ( h5 h2 )_f @@ -248,7 +248,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 p4 h1 h5 )_x * RETURN END SUBROUTINE eomccsd_o2_1_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f @@ -332,7 +332,7 @@ C i1 ( h5 h1 )_f + = 1 * f ( h5 h1 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o2_1_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_f @@ -388,7 +388,7 @@ C i1 ( h5 h1 )_f END SUBROUTINE eomccsd_o2_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_ft + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * f ( h5 p6 )_f @@ -516,7 +516,7 @@ C i1 ( h5 h1 )_ft + = 1 * Sum ( p6 ) * t ( p6 h1 )_t * f ( h5 p6 )_f END SUBROUTINE eomccsd_o2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * f ( p4 p5 )_f @@ -678,7 +678,7 @@ C i0 ( p3 p4 h1 h2 )_xf + = 1 * P( 2 ) * Sum ( p5 ) * x ( p3 p5 h1 h2 )_x * END SUBROUTINE eomccsd_o2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( h5 p4 h1 h2 )_fx @@ -829,7 +829,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 h5 )_t * i1 ( END SUBROUTINE eomccsd_o2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_fx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * f ( h5 p6 )_f @@ -983,7 +983,7 @@ C i1 ( h5 p3 h1 h2 )_fx + = -1 * Sum ( p6 ) * x ( p3 p6 h1 h2 )_x * f ( h5 p RETURN END SUBROUTINE OFFSET_eomccsd_o2_3_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_fx @@ -1055,7 +1055,7 @@ C i1 ( h5 p3 h1 h2 )_fx END SUBROUTINE eomccsd_o2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_ftx + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * i1 ( h5 p4 h1 h2 )_ft @@ -1206,7 +1206,7 @@ C i0 ( p3 p4 h1 h2 )_ftx + = -1 * P( 2 ) * Sum ( h5 ) * x ( p3 h5 )_x * i1 ( END SUBROUTINE eomccsd_o2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ft + = -1 * Sum ( p6 ) * t ( p3 p6 h1 h2 )_t * f ( h5 p6 )_f @@ -1360,7 +1360,7 @@ C i1 ( h5 p3 h1 h2 )_ft + = -1 * Sum ( p6 ) * t ( p3 p6 h1 h2 )_t * f ( h5 p RETURN END SUBROUTINE OFFSET_eomccsd_o2_4_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 p3 h1 h2 )_ft @@ -1432,7 +1432,7 @@ C i1 ( h5 p3 h1 h2 )_ft END SUBROUTINE eomccsd_o2_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offs &et) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t * i1 ( h5 h2 )_fx @@ -1594,7 +1594,7 @@ C i0 ( p3 p4 h1 h2 )_fxt + = -1 * P( 2 ) * Sum ( h5 ) * t ( p3 p4 h1 h5 )_t END SUBROUTINE eomccsd_o2_5_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of &fset) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f @@ -1721,7 +1721,7 @@ C i1 ( h5 h1 )_fx + = 1 * Sum ( p6 ) * x ( p6 h1 )_x * f ( h5 p6 )_f RETURN END SUBROUTINE OFFSET_eomccsd_o2_5_1(l_a_offset,k_a_offset,size) -C $Id: eomccsd_o2.F,v 1.1 2008-08-18 02:15:52 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( h5 h1 )_fx diff --git a/src/tce/sf_print.F b/src/tce/sf_print.F index fa4afdd4dd..1881d9f748 100644 --- a/src/tce/sf_print.F +++ b/src/tce/sf_print.F @@ -1,6 +1,6 @@ subroutine sf_print(sf_handle,size) c -c $Id: sf_print.F,v 1.10 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/sf_test.F b/src/tce/sf_test.F index 89d40d157b..6c709fbe75 100644 --- a/src/tce/sf_test.F +++ b/src/tce/sf_test.F @@ -1,6 +1,6 @@ subroutine sf_test c -c $Id: sf_test.F,v 1.14 2008-12-07 22:37:58 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/splitfiles.py b/src/tce/splitfiles.py index 9c06620bf8..b7bae6d647 100644 --- a/src/tce/splitfiles.py +++ b/src/tce/splitfiles.py @@ -1,6 +1,6 @@ # Usage: python splitfiles.py < inputfile.F # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: splitfiles.py,v 1.2 2003-07-25 21:26:59 sohirata Exp $ +# $Id$ import string import copy diff --git a/src/tce/sym_abelian_axis.F b/src/tce/sym_abelian_axis.F index 111cba332e..b8aa1f0917 100644 --- a/src/tce/sym_abelian_axis.F +++ b/src/tce/sym_abelian_axis.F @@ -1,6 +1,6 @@ integer function sym_abelian_axis(geom,axis) c -c $Id: sym_abelian_axis.F,v 1.3 2008-01-29 18:26:11 jhammond Exp $ +c $Id$ c c Returns irrep of a given axis if real Abelian, c otherwise returns -1. diff --git a/src/tce/tce.py b/src/tce/tce.py index 65a12d96bc..824a62d842 100644 --- a/src/tce/tce.py +++ b/src/tce/tce.py @@ -1,6 +1,6 @@ # Tensor Contraction Engine v.1.0 # (c) All rights reserved by Battelle & Pacific Northwest Nat'l Lab (2002) -# $Id: tce.py,v 1.19 2008-10-06 18:21:45 d3p975 Exp $ +# $Id$ import string import types @@ -8785,7 +8785,7 @@ class Code: return "Unknown language" # Standard headers - newline = "!$Id: tce.py,v 1.19 2008-10-06 18:21:45 d3p975 Exp $" + newline = "!$Id$" self.headers.append(newline) newline = "!This is a " + self.language + " program generated by Tensor Contraction Engine v.1.0" self.headers.append(newline) diff --git a/src/tce/tce_ao1e.F b/src/tce/tce_ao1e.F index c7c2d5c66f..16a06c82a5 100644 --- a/src/tce/tce_ao1e.F +++ b/src/tce/tce_ao1e.F @@ -1,6 +1,6 @@ subroutine tce_ao1e_shellfockbuild(rtdb,g_ao1e) c -c $Id: tce_ao1e.F,v 1.7 2008-01-14 15:20:32 jhammond Exp $ +c $Id$ c c Returns a GA handle for AO Fock matrix. c diff --git a/src/tce/tce_ao2e.F b/src/tce/tce_ao2e.F index 62e263b37e..82e9cb6bca 100644 --- a/src/tce/tce_ao2e.F +++ b/src/tce/tce_ao2e.F @@ -1,6 +1,6 @@ subroutine tce_ao2e(rtdb,d_ao2e) c -c $Id: tce_ao2e.F,v 1.18 2008-09-17 03:46:20 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky.F b/src/tce/tce_ao2e_cholesky.F index b55b2e6b8f..20ebedc65d 100644 --- a/src/tce/tce_ao2e_cholesky.F +++ b/src/tce/tce_ao2e_cholesky.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky.F,v 1.3 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_2d.F b/src/tce/tce_ao2e_cholesky_2d.F index 6efbb94b65..81dd175bf0 100644 --- a/src/tce/tce_ao2e_cholesky_2d.F +++ b/src/tce/tce_ao2e_cholesky_2d.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky_2d(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky_2d.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_4d.F b/src/tce/tce_ao2e_cholesky_4d.F index 7fc09b7f08..6bc65bcd86 100644 --- a/src/tce/tce_ao2e_cholesky_4d.F +++ b/src/tce/tce_ao2e_cholesky_4d.F @@ -1,7 +1,7 @@ subroutine tce_ao2e_cholesky_4d(rtdb, ! input & d_ao2e) ! output (first full AO matrix, then replaced by full Cholesky factor) c -c $Id: tce_ao2e_cholesky_4d.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_cholesky_orb.F b/src/tce/tce_ao2e_cholesky_orb.F index 29eb96eeb8..4ef9823abf 100644 --- a/src/tce/tce_ao2e_cholesky_orb.F +++ b/src/tce/tce_ao2e_cholesky_orb.F @@ -1,6 +1,6 @@ SUBROUTINE tce_ao2e_cholesky_orb(rtdb,d_v2,kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -1575,7 +1575,7 @@ c c c SUBROUTINE tce_4a_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1629,7 +1629,7 @@ C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) c c SUBROUTINE tce_3a1m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1686,7 +1686,7 @@ c c c SUBROUTINE tce_2a2m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1739,7 +1739,7 @@ c c c SUBROUTINE tce_1a3m_offsetx2(l_a_offset,k_a_offset,size) -C $Id: tce_ao2e_cholesky_orb.F,v 1.2 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_ao2e_disk.F b/src/tce/tce_ao2e_disk.F index 52cf2fe244..aa072cb75d 100644 --- a/src/tce/tce_ao2e_disk.F +++ b/src/tce/tce_ao2e_disk.F @@ -1,6 +1,6 @@ subroutine tce_ao2e_disk(rtdb,d_ao2e) c -c $Id: tce_ao2e_disk.F,v 1.3 2008-06-09 22:17:37 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_ao2e_new.F b/src/tce/tce_ao2e_new.F index e91f362edd..c2a6dffa31 100644 --- a/src/tce/tce_ao2e_new.F +++ b/src/tce/tce_ao2e_new.F @@ -5,7 +5,7 @@ ! & ipol, ! input & d_ao2e) ! output c -c $Id: tce_ao2e_new.F,v 1.4 2008-08-18 02:13:36 jhammond Exp $ +c $Id$ c c Returns a SF handle for the AO 2-e integral matrix. c diff --git a/src/tce/tce_aod1.F b/src/tce/tce_aod1.F index 71d4b3a377..dd0bc24646 100644 --- a/src/tce/tce_aod1.F +++ b/src/tce/tce_aod1.F @@ -1,6 +1,6 @@ subroutine tce_aod1(rtdb,g_aod1,dipole) c -c $Id: tce_aod1.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Returns a GA handle for AO Fock matrix. c diff --git a/src/tce/tce_ccsd_asym_polar.F b/src/tce/tce_ccsd_asym_polar.F index fc7cb306c7..d0ebc908ab 100644 --- a/src/tce/tce_ccsd_asym_polar.F +++ b/src/tce/tce_ccsd_asym_polar.F @@ -5,7 +5,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_asym_polar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsd_driver.F b/src/tce/tce_ccsd_driver.F index 65931386d6..d1963f1385 100644 --- a/src/tce/tce_ccsd_driver.F +++ b/src/tce/tce_ccsd_driver.F @@ -2,7 +2,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_driver.F,v 1.5 2008-02-16 02:42:52 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_hyperpolar.F b/src/tce/tce_ccsd_hyperpolar.F index bc472a43f7..c5a35aa5e4 100644 --- a/src/tce/tce_ccsd_hyperpolar.F +++ b/src/tce/tce_ccsd_hyperpolar.F @@ -6,7 +6,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c @@ -155,7 +155,7 @@ c & d_tr1c,k_tr1c_offset,d_tr2c,k_tr2c_offset, & d_yr1a,k_yr1a_offset,d_yr2a,k_yr2a_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c @@ -337,7 +337,7 @@ c & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar.F,v 1.5 2008-03-12 21:34:17 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c diff --git a/src/tce/tce_ccsd_hyperpolar_static.F b/src/tce/tce_ccsd_hyperpolar_static.F index c7e017a703..fb3c97ee87 100644 --- a/src/tce/tce_ccsd_hyperpolar_static.F +++ b/src/tce/tce_ccsd_hyperpolar_static.F @@ -6,7 +6,7 @@ & d_tr1,k_tr1_offset,d_tr2,k_tr2_offset, & d_yr1,k_yr1_offset,d_yr2,k_yr2_offset) c -c $Id: tce_ccsd_hyperpolar_static.F,v 1.1 2008-07-16 21:55:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c @@ -178,7 +178,7 @@ c & d_tr1c,k_tr1c_offset,d_tr2c,k_tr2c_offset, & d_yr1a,k_yr1a_offset,d_yr2a,k_yr2a_offset) c -c $Id: tce_ccsd_hyperpolar_static.F,v 1.1 2008-07-16 21:55:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, February 2008. c diff --git a/src/tce/tce_ccsd_lambda_driver.F b/src/tce/tce_ccsd_lambda_driver.F index 6267a6e2a7..9df27be6c2 100644 --- a/src/tce/tce_ccsd_lambda_driver.F +++ b/src/tce/tce_ccsd_lambda_driver.F @@ -3,7 +3,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_lambda_driver.F,v 1.2 2008-02-12 02:27:36 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_lambda_perturbative.F b/src/tce/tce_ccsd_lambda_perturbative.F index 6e6bdd97d9..ccc386c214 100644 --- a/src/tce/tce_ccsd_lambda_perturbative.F +++ b/src/tce/tce_ccsd_lambda_perturbative.F @@ -3,7 +3,7 @@ & d_y1,k_y1_offset,d_y2,k_y2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_lambda_perturbative.F,v 1.1 2008-05-05 17:42:09 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_lambda_response_driver.F b/src/tce/tce_ccsd_lambda_response_driver.F index 4c2dab36d3..9705f3791b 100644 --- a/src/tce/tce_ccsd_lambda_response_driver.F +++ b/src/tce/tce_ccsd_lambda_response_driver.F @@ -6,7 +6,7 @@ & d_t1,k_t1_offset,size_t1,d_t2,k_t2_offset,size_t2, & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega) c -c $Id: tce_ccsd_lambda_response_driver.F,v 1.1 2008-02-12 02:27:36 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_perturbative.F b/src/tce/tce_ccsd_perturbative.F index 82022eb07f..2b8ed353df 100644 --- a/src/tce/tce_ccsd_perturbative.F +++ b/src/tce/tce_ccsd_perturbative.F @@ -2,7 +2,7 @@ & d_t1,k_t1_offset,d_t2,k_t2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset) c -c $Id: tce_ccsd_perturbative.F,v 1.2 2008-02-12 17:19:27 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_response_driver.F b/src/tce/tce_ccsd_response_driver.F index be403e7d06..16873ef526 100644 --- a/src/tce/tce_ccsd_response_driver.F +++ b/src/tce/tce_ccsd_response_driver.F @@ -3,7 +3,7 @@ & d_t1,k_t1_offset,d_t2,k_t2_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega) c -c $Id: tce_ccsd_response_driver.F,v 1.4 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsd_symm_polar.F b/src/tce/tce_ccsd_symm_polar.F index 6532516939..4cdad4c171 100644 --- a/src/tce/tce_ccsd_symm_polar.F +++ b/src/tce/tce_ccsd_symm_polar.F @@ -9,7 +9,7 @@ & d_tr1bp,d_tr1bm,k_tr1b_offset, & d_tr2bp,d_tr2bm,k_tr2b_offset) c -c $Id: tce_ccsd_symm_polar.F,v 1.5 2008-03-09 01:34:25 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsdt_driver.F b/src/tce/tce_ccsdt_driver.F index 2f70d4ad55..2bb84c7947 100644 --- a/src/tce/tce_ccsdt_driver.F +++ b/src/tce/tce_ccsdt_driver.F @@ -3,7 +3,7 @@ & d_t3,k_t3_offset,size_t3,d_f1,k_f1_offset, & d_v2,k_v2_offset,diis_t3) c -c $Id: tce_ccsdt_driver.F,v 1.4 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_lambda_driver.F b/src/tce/tce_ccsdt_lambda_driver.F index 7cb1443cc5..a022803983 100644 --- a/src/tce/tce_ccsdt_lambda_driver.F +++ b/src/tce/tce_ccsdt_lambda_driver.F @@ -4,7 +4,7 @@ & d_t2,k_t2_offset,d_t3,k_t3_offset, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_y3) c -c $Id: tce_ccsdt_lambda_driver.F,v 1.3 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_response_driver.F b/src/tce/tce_ccsdt_response_driver.F index 33ed6ca396..0be652b2c6 100644 --- a/src/tce/tce_ccsdt_response_driver.F +++ b/src/tce/tce_ccsdt_response_driver.F @@ -4,7 +4,7 @@ & d_t2,k_t2_offset,d_t3,k_t3_offset,d_f1,k_f1_offset, & d_v2,k_v2_offset,d_o1,k_o1_offset,omega,diis_tr3) c -c $Id: tce_ccsdt_response_driver.F,v 1.3 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdt_symm_polar.F b/src/tce/tce_ccsdt_symm_polar.F index ce23880b7c..dcdaaf1e84 100644 --- a/src/tce/tce_ccsdt_symm_polar.F +++ b/src/tce/tce_ccsdt_symm_polar.F @@ -7,7 +7,7 @@ & d_tr3ap,d_tr3am,k_tr3a_offset,d_tr1bp,d_tr1bm,k_tr1b_offset, & d_tr2bp,d_tr2bm,k_tr2b_offset,d_tr3bp,d_tr3bm,k_tr3b_offset) c -c $Id: tce_ccsdt_symm_polar.F,v 1.4 2008-03-07 04:34:12 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_ccsdtq_driver.F b/src/tce/tce_ccsdtq_driver.F index 8508b8c1fe..3095619203 100644 --- a/src/tce/tce_ccsdtq_driver.F +++ b/src/tce/tce_ccsdtq_driver.F @@ -3,7 +3,7 @@ & d_t3,k_t3_offset,size_t3,d_t4,k_t4_offset,size_t4, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_t4) c -c $Id: tce_ccsdtq_driver.F,v 1.4 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_lambda_driver.F b/src/tce/tce_ccsdtq_lambda_driver.F index 06ffff3724..e48903ae6b 100644 --- a/src/tce/tce_ccsdtq_lambda_driver.F +++ b/src/tce/tce_ccsdtq_lambda_driver.F @@ -5,7 +5,7 @@ & d_t3,k_t3_offset,size_t3,d_t4,k_t4_offset,size_t4, & d_f1,k_f1_offset,d_v2,k_v2_offset,diis_y4) c -c $Id: tce_ccsdtq_lambda_driver.F,v 1.2 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_response_driver.F b/src/tce/tce_ccsdtq_response_driver.F index 877f13a99f..93595c832f 100644 --- a/src/tce/tce_ccsdtq_response_driver.F +++ b/src/tce/tce_ccsdtq_response_driver.F @@ -6,7 +6,7 @@ & d_f1,k_f1_offset,d_v2,k_v2_offset,d_o1,k_o1_offset,omega, & diis_tr4) c -c $Id: tce_ccsdtq_response_driver.F,v 1.2 2008-03-07 04:34:11 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_ccsdtq_symm_polar.F b/src/tce/tce_ccsdtq_symm_polar.F index 8d42fcb9d5..33dd97eb4b 100644 --- a/src/tce/tce_ccsdtq_symm_polar.F +++ b/src/tce/tce_ccsdtq_symm_polar.F @@ -10,7 +10,7 @@ & d_tr1bp,d_tr1bm,k_tr1b_offset,d_tr2bp,d_tr2bm,k_tr2b_offset, & d_tr3bp,d_tr3bm,k_tr3b_offset,d_tr4bp,d_tr4bm,k_tr4b_offset) c -c $Id: tce_ccsdtq_symm_polar.F,v 1.3 2008-03-07 04:34:12 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_cholesky.F b/src/tce/tce_cholesky.F index 035917fd30..f3a805ee43 100644 --- a/src/tce/tce_cholesky.F +++ b/src/tce/tce_cholesky.F @@ -1,6 +1,6 @@ logical function tce_cholesky(rtdb,dim) c -c $Id: tce_cholesky.F,v 1.2 2008-07-16 21:47:09 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_clone_x1.F b/src/tce/tce_clone_x1.F index 70c011965b..7b07aaa9a3 100644 --- a/src/tce/tce_clone_x1.F +++ b/src/tce/tce_clone_x1.F @@ -1,6 +1,6 @@ subroutine tce_clone_x1(d_x1,size_x1,irrep,title) c -c $Id: tce_clone_x1.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x2.F b/src/tce/tce_clone_x2.F index dd4fedf18c..8d5be2db29 100644 --- a/src/tce/tce_clone_x2.F +++ b/src/tce/tce_clone_x2.F @@ -1,6 +1,6 @@ subroutine tce_clone_x2(d_x2,size_x2,irrep,title) c -c $Id: tce_clone_x2.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x3.F b/src/tce/tce_clone_x3.F index 8ce91c2662..60b495a1d1 100644 --- a/src/tce/tce_clone_x3.F +++ b/src/tce/tce_clone_x3.F @@ -1,6 +1,6 @@ subroutine tce_clone_x3(d_x3,size_x3,irrep,title) c -c $Id: tce_clone_x3.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_x4.F b/src/tce/tce_clone_x4.F index fed927e203..021e96d1ab 100644 --- a/src/tce/tce_clone_x4.F +++ b/src/tce/tce_clone_x4.F @@ -1,6 +1,6 @@ subroutine tce_clone_x4(d_x4,size_x4,irrep,title) c -c $Id: tce_clone_x4.F,v 1.2 2008-02-16 02:42:53 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y1.F b/src/tce/tce_clone_y1.F index 0fa615586a..7d60117190 100644 --- a/src/tce/tce_clone_y1.F +++ b/src/tce/tce_clone_y1.F @@ -1,6 +1,6 @@ subroutine tce_clone_y1(d_y1,size_y1,irrep,title) c -c $Id: tce_clone_y1.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y2.F b/src/tce/tce_clone_y2.F index f40cb414b7..f2b6259ede 100644 --- a/src/tce/tce_clone_y2.F +++ b/src/tce/tce_clone_y2.F @@ -1,6 +1,6 @@ subroutine tce_clone_y2(d_y2,size_y2,irrep,title) c -c $Id: tce_clone_y2.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y3.F b/src/tce/tce_clone_y3.F index 2af959a680..f0c538bbca 100644 --- a/src/tce/tce_clone_y3.F +++ b/src/tce/tce_clone_y3.F @@ -1,6 +1,6 @@ subroutine tce_clone_y3(d_y3,size_y3,irrep,title) c -c $Id: tce_clone_y3.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_clone_y4.F b/src/tce/tce_clone_y4.F index bc0aa95dc3..9b7ccb7cf8 100644 --- a/src/tce/tce_clone_y4.F +++ b/src/tce/tce_clone_y4.F @@ -1,6 +1,6 @@ subroutine tce_clone_y4(d_y4,size_y4,irrep,title) c -c $Id: tce_clone_y4.F,v 1.2 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_movecs.F b/src/tce/tce_create_movecs.F index 2cc368824a..2aa8397d94 100644 --- a/src/tce/tce_create_movecs.F +++ b/src/tce/tce_create_movecs.F @@ -1,6 +1,6 @@ subroutine tce_create_movecs(rtdb) c -c $Id: tce_create_movecs.F,v 1.1 2008-02-11 17:08:23 jhammond Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_create_t1.F b/src/tce/tce_create_t1.F index 936365226a..a403c82fb4 100644 --- a/src/tce/tce_create_t1.F +++ b/src/tce/tce_create_t1.F @@ -1,7 +1,7 @@ subroutine tce_create_t1(d_t1,l_t1_offset,k_t1_offset,size_t1, & irrep,title) c -c $Id: tce_create_t1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t2.F b/src/tce/tce_create_t2.F index 636b3a71da..2a4ffde51e 100644 --- a/src/tce/tce_create_t2.F +++ b/src/tce/tce_create_t2.F @@ -5,7 +5,7 @@ & d_v2,k_v2_offset,size_2e, & ref,needt1,ioalg,model) c -c $Id: tce_create_t2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t3.F b/src/tce/tce_create_t3.F index 5583a3e66b..5a87aa03cb 100644 --- a/src/tce/tce_create_t3.F +++ b/src/tce/tce_create_t3.F @@ -1,7 +1,7 @@ subroutine tce_create_t3(d_t3,l_t3_offset,k_t3_offset,size_t3, & irrep,title) c -c $Id: tce_create_t3.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_t4.F b/src/tce/tce_create_t4.F index 2cf835e49a..3e10bd22ed 100644 --- a/src/tce/tce_create_t4.F +++ b/src/tce/tce_create_t4.F @@ -1,7 +1,7 @@ subroutine tce_create_t4(d_t4,l_t4_offset,k_t4_offset,size_t4, & irrep,title) c -c $Id: tce_create_t4.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x1.F b/src/tce/tce_create_x1.F index 914763650e..e6c5a213d5 100644 --- a/src/tce/tce_create_x1.F +++ b/src/tce/tce_create_x1.F @@ -1,7 +1,7 @@ subroutine tce_create_x1(d_x1,l_x1_offset,k_x1_offset,size_x1, & irrep,title) c -c $Id: tce_create_x1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x2.F b/src/tce/tce_create_x2.F index d3589f4678..2482af9254 100644 --- a/src/tce/tce_create_x2.F +++ b/src/tce/tce_create_x2.F @@ -1,7 +1,7 @@ subroutine tce_create_x2(d_x2,l_x2_offset,k_x2_offset,size_x2, & irrep,title) c -c $Id: tce_create_x2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x3.F b/src/tce/tce_create_x3.F index 1a5a173685..eb038b1c3d 100644 --- a/src/tce/tce_create_x3.F +++ b/src/tce/tce_create_x3.F @@ -1,7 +1,7 @@ subroutine tce_create_x3(d_x3,l_x3_offset,k_x3_offset,size_x3, & irrep,title) c -c $Id: tce_create_x3.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_x4.F b/src/tce/tce_create_x4.F index f2bfa9845d..9b554a1b88 100644 --- a/src/tce/tce_create_x4.F +++ b/src/tce/tce_create_x4.F @@ -1,7 +1,7 @@ subroutine tce_create_x4(d_x4,l_x4_offset,k_x4_offset,size_x4, & irrep,title) c -c $Id: tce_create_x4.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y1.F b/src/tce/tce_create_y1.F index 30855a24b8..91b4942190 100644 --- a/src/tce/tce_create_y1.F +++ b/src/tce/tce_create_y1.F @@ -1,7 +1,7 @@ subroutine tce_create_y1(d_y1,l_y1_offset,k_y1_offset,size_y1, & irrep,title) c -c $Id: tce_create_y1.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y2.F b/src/tce/tce_create_y2.F index ede3d1da20..cbbaaa35f7 100644 --- a/src/tce/tce_create_y2.F +++ b/src/tce/tce_create_y2.F @@ -1,7 +1,7 @@ subroutine tce_create_y2(d_y2,l_y2_offset,k_y2_offset,size_y2, & irrep,title) c -c $Id: tce_create_y2.F,v 1.3 2008-02-16 02:42:54 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y3.F b/src/tce/tce_create_y3.F index 3a47b6ec70..2ffceec6f3 100644 --- a/src/tce/tce_create_y3.F +++ b/src/tce/tce_create_y3.F @@ -1,7 +1,7 @@ subroutine tce_create_y3(d_y3,l_y3_offset,k_y3_offset,size_y3, & irrep,title) c -c $Id: tce_create_y3.F,v 1.3 2008-02-16 02:42:55 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_create_y4.F b/src/tce/tce_create_y4.F index 94892a3a6a..d72373d5f8 100644 --- a/src/tce/tce_create_y4.F +++ b/src/tce/tce_create_y4.F @@ -1,7 +1,7 @@ subroutine tce_create_y4(d_y4,l_y4_offset,k_y4_offset,size_y4, & irrep,title) c -c $Id: tce_create_y4.F,v 1.3 2008-02-16 02:42:55 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_dgeev.F b/src/tce/tce_dgeev.F index 4334a553a8..50d8f02cbc 100644 --- a/src/tce/tce_dgeev.F +++ b/src/tce/tce_dgeev.F @@ -1,7 +1,7 @@ SUBROUTINE TCE_DGEEV $ ( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, VR, $ LDVR, WORK, LWORK, INFO ) -c $Id: tce_dgeev.F,v 1.2 2002-04-28 19:09:13 sohirata Exp $ +c $Id$ c The subdoutine is identical to the original dgeev but had to be renamed, c since otherwise, for IBM SP2, dynamically linked dgeev having different c interface syntax is going to be used rather than this. diff --git a/src/tce/tce_e_offset.F b/src/tce/tce_e_offset.F index f58d98337f..b3b7920b8a 100644 --- a/src/tce/tce_e_offset.F +++ b/src/tce/tce_e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_e_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C e ( )_e diff --git a/src/tce/tce_energy.F b/src/tce/tce_energy.F index c9284c85fc..d2db51f3f1 100644 --- a/src/tce/tce_energy.F +++ b/src/tce/tce_energy.F @@ -1,6 +1,6 @@ logical function tce_energy(rtdb,excitedfragment) c -c $Id: tce_energy.F,v 1.164 2009-03-16 03:49:57 jhammond Exp $ +c $Id$ c implicit none #include "mafdecls.fh" diff --git a/src/tce/tce_energy_fragment.F b/src/tce/tce_energy_fragment.F index 09dada957c..cd76b4c09c 100644 --- a/src/tce/tce_energy_fragment.F +++ b/src/tce/tce_energy_fragment.F @@ -1,6 +1,6 @@ logical function tce_energy_fragment(rtdb) c -c $Id: tce_energy_fragment.F,v 1.7 2005-12-16 22:16:04 kowalski Exp $ +c $Id$ c c Wrapper for tce_energy for fragment MO calculations. c diff --git a/src/tce/tce_eom_init.F b/src/tce/tce_eom_init.F index 9c6d207f2b..1493f1d274 100644 --- a/src/tce/tce_eom_init.F +++ b/src/tce/tce_eom_init.F @@ -1,6 +1,6 @@ subroutine tce_eom_init c -c $Id: tce_eom_init.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Initializes file handle holders c diff --git a/src/tce/tce_eom_tidy.F b/src/tce/tce_eom_tidy.F index 270b4308f8..3ce80618ba 100644 --- a/src/tce/tce_eom_tidy.F +++ b/src/tce/tce_eom_tidy.F @@ -1,6 +1,6 @@ subroutine tce_eom_tidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c @@ -25,7 +25,7 @@ c subroutine tce_eom_xtidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c @@ -50,7 +50,7 @@ c subroutine tce_eom_ytidy c -c $Id: tce_eom_tidy.F,v 1.3 2008-01-14 15:20:33 jhammond Exp $ +c $Id$ c c Delete files for trial and product vectors c diff --git a/src/tce/tce_eom_xdiagon.F b/src/tce/tce_eom_xdiagon.F index 4a9cbe1099..7e87b87130 100644 --- a/src/tce/tce_eom_xdiagon.F +++ b/src/tce/tce_eom_xdiagon.F @@ -3,7 +3,7 @@ 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual,k_hbar,iteration) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -552,7 +552,7 @@ c 1 size_x1,size_x2, 1 imicro,xdiis) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -637,7 +637,7 @@ c & size_x1,size_x2, & c_eff,imicro_x,xdiis,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c xc(iroot) = sum(i=1,...,imicro) x(i) c @@ -687,7 +687,7 @@ c & size_x1,size_x2, & c_eff,omega,imicro,xdiis,residual) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c delta_x = (omega - H-bar) xc c @@ -780,7 +780,7 @@ c subroutine form_heff(k_x1_offset,k_x2_offset,size_x1,size_x2, & c_eff,h_eff,omega,imicro,xdiis,iter_eomcc) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -962,7 +962,7 @@ c subroutine norm_xc_vector(k_x1_offset,k_x2_offset, 1 size_x1,size_x2,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1022,7 +1022,7 @@ c subroutine eom_starts(size_x1,k_x1_offset,d_f1,k_f1_offset,d_v2, 1 k_v2_offset,k_omegax) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1192,7 +1192,7 @@ c subroutine norm_x_vector_mr(k_x1_offset,k_x2_offset, 1 size_x1,size_x2,totr) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1279,7 +1279,7 @@ c subroutine form_heff_mr(k_x1_offset,k_x2_offset,size_x1,size_x2, & c_eff,h_eff,omega,imicro,xdiis,iter_eomcc) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c @@ -1466,7 +1466,7 @@ c & size_x1,size_x2, & c_eff,omega,imicro,xdiis,residual,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c delta_x = (omega - H-bar) xc c @@ -1555,7 +1555,7 @@ c & size_x1,size_x2, & c_eff,imicro_x,xdiis,iroot) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c xc(iroot) = sum(i=1,...,imicro) x(i) c @@ -1608,7 +1608,7 @@ c 1 size_x1,size_x2, 1 imicro,xdiis) c -c $Id: tce_eom_xdiagon.F,v 1.7 2008/06/18 21:48:22 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/tce_eom_xguess.F b/src/tce/tce_eom_xguess.F index 0b48a93131..1ae60096dc 100644 --- a/src/tce/tce_eom_xguess.F +++ b/src/tce/tce_eom_xguess.F @@ -2,7 +2,7 @@ 1 size_x1,size_x2,size_x3,size_x4, 2 k_x1_offset,k_x2_offset,k_x3_offset,k_x4_offset) c -c $Id: tce_eom_xguess.F,v 1.7 2008-10-15 18:22:18 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_x diff --git a/src/tce/tce_eom_ydiagon.F b/src/tce/tce_eom_ydiagon.F index 012682a878..e941412cc4 100644 --- a/src/tce/tce_eom_ydiagon.F +++ b/src/tce/tce_eom_ydiagon.F @@ -3,7 +3,7 @@ 2 k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset, 3 d_r1,d_r2,d_r3,d_r4,omega,residual) c -c $Id: tce_eom_ydiagon.F,v 1.4 2008-01-26 00:26:18 kowalski Exp $ +c $Id$ c c Form a subspace matrix and diagonalize c diff --git a/src/tce/tce_eom_yguess.F b/src/tce/tce_eom_yguess.F index c288db7bfb..b9edb405ba 100644 --- a/src/tce/tce_eom_yguess.F +++ b/src/tce/tce_eom_yguess.F @@ -2,7 +2,7 @@ 1 size_y1,size_y2,size_y3,size_y4, 2 k_y1_offset,k_y2_offset,k_y3_offset,k_y4_offset) c -c $Id: tce_eom_yguess.F,v 1.7 2008-10-16 16:43:11 kowalski Exp $ +c $Id$ c c Generates initial trial vectors that are all singly excited c determinants within the same irrep_y diff --git a/src/tce/tce_filename.F b/src/tce/tce_filename.F index c63d37f4bd..55652065d1 100644 --- a/src/tce/tce_filename.F +++ b/src/tce/tce_filename.F @@ -1,6 +1,6 @@ subroutine tce_filename(stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -37,7 +37,7 @@ c subroutine tce_filenameindexed(index,stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -73,7 +73,7 @@ c subroutine tce_filename_4ind(index,stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -112,7 +112,7 @@ ccx call tce_filename(stub,temporary) subroutine tce_filename_sf(stub,filename) c -c $Id: tce_filename.F,v 1.9 2008-07-02 03:30:10 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_fock_create.F b/src/tce/tce_fock_create.F index ec3bb46b95..7a96149dd1 100644 --- a/src/tce/tce_fock_create.F +++ b/src/tce/tce_fock_create.F @@ -1,6 +1,6 @@ subroutine tce_fock_create(rtdb,d_f1,l_f1_offset,k_f1_offset) c -c $Id: tce_fock_create.F,v 1.2 2008-09-18 14:38:46 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fock_destroy.F b/src/tce/tce_fock_destroy.F index d5d6319a1b..b67e97dda9 100644 --- a/src/tce/tce_fock_destroy.F +++ b/src/tce/tce_fock_destroy.F @@ -1,6 +1,6 @@ subroutine tce_fock_driver(d_f1,l_f1_offset) c -c $Id: tce_fock_destroy.F,v 1.1 2008-02-11 17:08:23 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fourindex_cleanup.F b/src/tce/tce_fourindex_cleanup.F index ae69e667a1..c29566d60e 100644 --- a/src/tce/tce_fourindex_cleanup.F +++ b/src/tce/tce_fourindex_cleanup.F @@ -1,6 +1,6 @@ subroutine tce_fourindex_cleanup(d_f1,l_f1_offset,k_f1_offset) c -c $Id: tce_fourindex_cleanup.F,v 1.2 2008-02-12 17:19:28 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_fourindex_driver.F b/src/tce/tce_fourindex_driver.F index fec306fe3c..7edbfbba85 100644 --- a/src/tce/tce_fourindex_driver.F +++ b/src/tce/tce_fourindex_driver.F @@ -1,6 +1,6 @@ subroutine tce_fourindex_driver(rtdb,d_v2,l_v2_offset,k_v2_offset) c -c $Id: tce_fourindex_driver.F,v 1.2 2008-02-11 17:08:24 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_guess_t1.F b/src/tce/tce_guess_t1.F index ef2668f448..b43b0bdbe7 100644 --- a/src/tce/tce_guess_t1.F +++ b/src/tce/tce_guess_t1.F @@ -1,6 +1,6 @@ subroutine tce_guess_t1(d_t1,k_t1_offset) c -c $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" @@ -94,7 +94,7 @@ c c subroutine tce_guess_t1_zero(d_t1,k_t1_offset) c -c $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" @@ -172,7 +172,7 @@ c c SUBROUTINE t1mp2(d_f1,d_i0,d_t2,d_v2,k_f1_offset,k_i0_offset,k_t2_ &offset,k_v2_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -198,7 +198,7 @@ C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 RETURN END SUBROUTINE t1mp2_1(d_a,k_a_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_f + = 1 * f ( p2 h1 )_f @@ -284,7 +284,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE t1mp2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p2 p3 h4 h5 )_t * v ( h4 h5 h1 p3 )_v @@ -457,7 +457,7 @@ cc next = NXTVAL(-nprocs) RETURN END SUBROUTINE t1mp2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_offset) -C $Id: tce_guess_t1.F,v 1.9 2008-07-17 21:47:57 marat Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i0 ( p2 h1 )_vt + = -1/2 * Sum ( h5 p3 p4 ) * t ( p3 p4 h1 h5 )_t * v ( h5 p2 p3 p4 )_v diff --git a/src/tce/tce_guess_t2.F b/src/tce/tce_guess_t2.F index 964e1d0900..f9b77dd501 100644 --- a/src/tce/tce_guess_t2.F +++ b/src/tce/tce_guess_t2.F @@ -1,7 +1,7 @@ subroutine tce_guess_t2(d_mo2e,k_2e_offset, 1 d_t2,k_t2_offset) c -c $Id: tce_guess_t2.F,v 1.11 2008-07-17 21:47:57 marat Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_hash.F b/src/tce/tce_hash.F index 86c9b00f3c..c3a2d64e4b 100644 --- a/src/tce/tce_hash.F +++ b/src/tce/tce_hash.F @@ -1,6 +1,6 @@ subroutine tce_hash(hash,key,offset) c -c $Id: tce_hash.F,v 1.2 2006-06-06 17:10:59 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" @@ -53,7 +53,7 @@ c c subroutine tce_hash_n(hash,key,offset) c -c $Id: tce_hash.F,v 1.2 2006-06-06 17:10:59 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" diff --git a/src/tce/tce_hash_ind.F b/src/tce/tce_hash_ind.F index d76b1c26d1..21ffbd5629 100644 --- a/src/tce/tce_hash_ind.F +++ b/src/tce/tce_hash_ind.F @@ -2,7 +2,7 @@ cccx subroutine tce_hash_ind(hash,key,indexc) cccx subroutine tce_hash_ind(hash,key,offset,indexc) c -c $Id: tce_hash_ind.F,v 1.2 2006-06-05 18:25:27 kowalski Exp $ +c $Id$ c implicit none #include "util.fh" diff --git a/src/tce/tce_init.F b/src/tce/tce_init.F index 4e28dc17c8..1dd9163449 100644 --- a/src/tce/tce_init.F +++ b/src/tce/tce_init.F @@ -1,6 +1,6 @@ subroutine tce_init(rtdb) c -c $Id: tce_init.F,v 1.71 2009/01/28 18:11:42 marat Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_init_new.F b/src/tce/tce_init_new.F index 505a0fb800..bebed99611 100644 --- a/src/tce/tce_init_new.F +++ b/src/tce/tce_init_new.F @@ -1,6 +1,6 @@ subroutine tce_init_new(rtdb) c -c $Id: tce_init_new.F,v 1.2 2008-09-18 14:38:47 jhammond Exp $ +c $Id$ c c Initialize for many-electron calculations. c diff --git a/src/tce/tce_input.F b/src/tce/tce_input.F index b553a770a1..e23403fe23 100644 --- a/src/tce/tce_input.F +++ b/src/tce/tce_input.F @@ -3,7 +3,7 @@ #endif subroutine tce_input(rtdb) c -c $Id: tce_input.F,v 1.37 2009/03/05 23:48:58 d3p975 Exp $ +c $Id$ c c Input parser for TCE module for various many-electron theories. c Also sets default values for input parameters. diff --git a/src/tce/tce_make_denom1.F b/src/tce/tce_make_denom1.F index 612832fa20..52f189bb0f 100644 --- a/src/tce/tce_make_denom1.F +++ b/src/tce/tce_make_denom1.F @@ -1,7 +1,7 @@ subroutine tce_make_denom1(d_denom1,k_denom1_offset,irrep, 1 denom_power,omega,shift) c -c $Id: tce_make_denom1.F,v 1.2 2008-09-30 18:43:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_make_denom2.F b/src/tce/tce_make_denom2.F index 33c3fbfed9..bc42d44c4b 100644 --- a/src/tce/tce_make_denom2.F +++ b/src/tce/tce_make_denom2.F @@ -1,7 +1,7 @@ subroutine tce_make_denom2(d_denom2,k_denom2_offset,irrep, 1 denom_power,omega,shift) c -c $Id: tce_make_denom2.F,v 1.2 2008-09-30 18:43:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_mbpt2.F b/src/tce/tce_mbpt2.F index 783fb276ea..04238db422 100644 --- a/src/tce/tce_mbpt2.F +++ b/src/tce/tce_mbpt2.F @@ -1,7 +1,7 @@ subroutine tce_mbpt2(d_mo2e,k_2e_offset, 1 d_t2,k_t2_offset,mbpt2) c -c $Id: tce_mbpt2.F,v 1.7 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_mo1e.F b/src/tce/tce_mo1e.F index 96d8f41a0b..90422d60e4 100644 --- a/src/tce/tce_mo1e.F +++ b/src/tce/tce_mo1e.F @@ -1,6 +1,6 @@ subroutine tce_mo1e(g_ao1e,d_mo1e,k_f1_offset) c -c $Id: tce_mo1e.F,v 1.11 2008-01-14 15:20:34 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked Fock matrix transformations. c diff --git a/src/tce/tce_mo1e_offset.F b/src/tce/tce_mo1e_offset.F index d76eb9f53f..6c815b33f1 100644 --- a/src/tce/tce_mo1e_offset.F +++ b/src/tce/tce_mo1e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo1e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo1e_offset.F,v 1.6 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C f ( g6 g5 )_f diff --git a/src/tce/tce_mo2e.F b/src/tce/tce_mo2e.F index 1047aadafc..fb5f124957 100644 --- a/src/tce/tce_mo2e.F +++ b/src/tce/tce_mo2e.F @@ -1,6 +1,6 @@ subroutine tce_mo2e(rtdb,d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e.F,v 1.16 2008-10-05 02:59:09 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_2emet3.F b/src/tce/tce_mo2e_2emet3.F index af5060dcce..c3ea237582 100644 --- a/src/tce/tce_mo2e_2emet3.F +++ b/src/tce/tce_mo2e_2emet3.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet3(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet3.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -785,7 +785,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_2emet3.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet3_n5.F b/src/tce/tce_mo2e_2emet3_n5.F index 4061010b6d..4b43be165e 100644 --- a/src/tce/tce_mo2e_2emet3_n5.F +++ b/src/tce/tce_mo2e_2emet3_n5.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet3_n5(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet3_n5.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -815,7 +815,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_2emet3_n5.F,v 1.1 2008-08-18 02:13:36 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet4.F b/src/tce/tce_mo2e_2emet4.F index 2322522870..86f37eeb01 100644 --- a/src/tce/tce_mo2e_2emet4.F +++ b/src/tce/tce_mo2e_2emet4.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet4(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c ! ! ! SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE @@ -847,7 +847,7 @@ c c ! ! ! SUBROUTINE tce_4a_chop_size(size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE diff --git a/src/tce/tce_mo2e_2emet4_n5.F b/src/tce/tce_mo2e_2emet4_n5.F index e292fb3ed3..fb378365d1 100644 --- a/src/tce/tce_mo2e_2emet4_n5.F +++ b/src/tce/tce_mo2e_2emet4_n5.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_2emet4_n5(d_v2,kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c ! ! ! SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE @@ -847,7 +847,7 @@ c c ! ! ! SUBROUTINE tce_4a_chop_size(size, ! ! ! & igo,isumr,taskl_az12) -! ! ! C $Id: tce_mo2e_2emet4_n5.F,v 1.1 2008-08-18 02:13:37 jhammond Exp $ +! ! ! C $Id$ ! ! ! C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ! ! ! C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ! ! ! IMPLICIT NONE diff --git a/src/tce/tce_mo2e_disk.F b/src/tce/tce_mo2e_disk.F index b1697062f7..9555c3ebd3 100644 --- a/src/tce/tce_mo2e_disk.F +++ b/src/tce/tce_mo2e_disk.F @@ -1,6 +1,6 @@ subroutine tce_mo2e_disk(rtdb,d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e_disk.F,v 1.3 2008-10-05 02:59:09 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_disk_2eorb.F b/src/tce/tce_mo2e_disk_2eorb.F index b6538b1476..ed90870870 100644 --- a/src/tce/tce_mo2e_disk_2eorb.F +++ b/src/tce/tce_mo2e_disk_2eorb.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_disk_2eorb(rtdb,d_v2,kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_disk_2eorb.F,v 1.6 2008-07-30 14:35:32 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_hybrid_2eorb_split.F b/src/tce/tce_mo2e_hybrid_2eorb_split.F index 770a7b921c..326041ca2f 100644 --- a/src/tce/tce_mo2e_hybrid_2eorb_split.F +++ b/src/tce/tce_mo2e_hybrid_2eorb_split.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_hybrid_2eorb_split(d_v2ga,d_v2sf, 1 kax_v2_alpha_offset) -C $Id: tce_mo2e_hybrid_2eorb_split.F,v 1.2 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_incore_2eorb.F b/src/tce/tce_mo2e_incore_2eorb.F index 4d00296261..89e227c4e2 100644 --- a/src/tce/tce_mo2e_incore_2eorb.F +++ b/src/tce/tce_mo2e_incore_2eorb.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_incore_2eorb(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_incore_2eorb.F,v 1.7 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_incore_2eorb_split.F b/src/tce/tce_mo2e_incore_2eorb_split.F index 918e418ff6..3afe515ad2 100644 --- a/src/tce/tce_mo2e_incore_2eorb_split.F +++ b/src/tce/tce_mo2e_incore_2eorb_split.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_incore_2eorb_split(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_incore_2eorb_split.F,v 1.2 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_new.F b/src/tce/tce_mo2e_new.F index 863c163319..b163cd464d 100644 --- a/src/tce/tce_mo2e_new.F +++ b/src/tce/tce_mo2e_new.F @@ -1,6 +1,6 @@ subroutine tce_mo2e_new(d_ao2e,d_mo2e,k_2e_offset) c -c $Id: tce_mo2e_new.F,v 1.5 2008-10-05 02:59:08 jhammond Exp $ +c $Id$ c c Returns a SF handle for the MO 2-e integral matrix. c diff --git a/src/tce/tce_mo2e_offset.F b/src/tce/tce_mo2e_offset.F index 26f866d6ad..0fa686c2ac 100644 --- a/src/tce/tce_mo2e_offset.F +++ b/src/tce/tce_mo2e_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset.F,v 1.6 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_intorb.F b/src/tce/tce_mo2e_offset_intorb.F index 8efd5a91c1..620c0b0d88 100644 --- a/src/tce/tce_mo2e_offset_intorb.F +++ b/src/tce/tce_mo2e_offset_intorb.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset_intorb(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset_intorb.F,v 1.2 2008-01-14 15:20:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v @@ -86,7 +86,7 @@ c SUBROUTINE tce_mo2e_pairs(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_offset_intorb.F,v 1.2 2008-01-14 15:20:34 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_intorb_hybrid.F b/src/tce/tce_mo2e_offset_intorb_hybrid.F index 7294ea936a..111e1712fa 100644 --- a/src/tce/tce_mo2e_offset_intorb_hybrid.F +++ b/src/tce/tce_mo2e_offset_intorb_hybrid.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_offset_intorb_hybrid(l_a_offset,k_a_offset, 1 size) -C $Id: tce_mo2e_offset_intorb_hybrid.F,v 1.1 2008-07-28 19:28:19 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_offset_size.F b/src/tce/tce_mo2e_offset_size.F index 5f0c4be719..7fb69cf356 100644 --- a/src/tce/tce_mo2e_offset_size.F +++ b/src/tce/tce_mo2e_offset_size.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mo2e_offset_size(length) -C $Id: tce_mo2e_offset_size.F,v 1.2 2006-06-05 18:24:53 kowalski Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C v ( g3 g4 g1 g2 )_v diff --git a/src/tce/tce_mo2e_zones_4a_disk_2s_new.F b/src/tce/tce_mo2e_zones_4a_disk_2s_new.F index 8de5c55597..147e6d1214 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_2s_new.F +++ b/src/tce/tce_mo2e_zones_4a_disk_2s_new.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_2s_new(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -860,7 +860,7 @@ c c c SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -916,7 +916,7 @@ c c c SUBROUTINE tce_2a2m_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_2s_new.F,v 1.5 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F index 5b34177e65..644510733b 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -1573,7 +1573,7 @@ c c c SUBROUTINE tce_4a_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1627,7 +1627,7 @@ C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) c c SUBROUTINE tce_3a1m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1684,7 +1684,7 @@ c c c SUBROUTINE tce_2a2m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -1737,7 +1737,7 @@ c c c SUBROUTINE tce_1a3m_offsetx1(l_a_offset,k_a_offset,size) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch.F,v 1.10 2008-08-18 02:13:37 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F index 061542d920..02998b35d6 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m2.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch_m2(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch_m2.F,v 1.8 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F index 1f31b1fed4..5665a0e245 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F +++ b/src/tce/tce_mo2e_zones_4a_disk_4s_new_patch_m3.F @@ -1,6 +1,6 @@ SUBROUTINE tce_mo2e_zones_4a_disk_4s_new_patch_m3(rtdb,d_v2, 1 kax_v2_alpha_offset,size_2e) -C $Id: tce_mo2e_zones_4a_disk_4s_new_patch_m3.F,v 1.6 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga.F b/src/tce/tce_mo2e_zones_4a_disk_ga.F index d2e9a6c819..7b8e50699d 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -787,7 +787,7 @@ c c c ccx SUBROUTINE tce_4a_offset(l_a_offset,k_a_offset,size) -ccxC $Id: tce_mo2e_zones_4a_disk_ga.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +ccxC $Id$ ccxC This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 ccxC Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) ccx IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F b/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F index e21c167014..240d14cf7f 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_N5.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_N5(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_N5.F,v 1.1 2008-12-08 19:14:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F b/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F index 3c6cab1e19..411f01e927 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_chop.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_chop(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t @@ -789,7 +789,7 @@ c c SUBROUTINE tce_4a_offset_chop(l_a_offset,k_a_offset,size, & igo,isumr,taskl_az12) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE @@ -849,7 +849,7 @@ cccx DO azone4 = azone3,atpart !rho c SUBROUTINE tce_4a_chop_size(size, & igo,isumr,taskl_az12) -C $Id: tce_mo2e_zones_4a_disk_ga_chop.F,v 1.5 2008-08-18 02:13:38 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) IMPLICIT NONE diff --git a/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F b/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F index e5a28bab8a..244563ff69 100644 --- a/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F +++ b/src/tce/tce_mo2e_zones_4a_disk_ga_chop_N5.F @@ -1,7 +1,7 @@ SUBROUTINE tce_mo2e_zones_4a_disk_ga_chop_N5(rtdb,d_v2, 1 kax_v2_alpha_offset, 1 size_2e) -C $Id: tce_mo2e_zones_4a_disk_ga_chop_N5.F,v 1.1 2008-12-08 19:14:16 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_mod1.F b/src/tce/tce_mod1.F index 2f1f2a6cb6..e4c3e4bf15 100644 --- a/src/tce/tce_mod1.F +++ b/src/tce/tce_mod1.F @@ -1,6 +1,6 @@ subroutine tce_mod1(g_aod1,d_mod1) c -c $Id: tce_mod1.F,v 1.5 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked dipole matrix transformations. c diff --git a/src/tce/tce_mod1_new.F b/src/tce/tce_mod1_new.F index 2a773ae35f..f751f17045 100644 --- a/src/tce/tce_mod1_new.F +++ b/src/tce/tce_mod1_new.F @@ -1,6 +1,6 @@ subroutine tce_mod1_new(rtdb,d_mod1,mpole) c -c $Id: tce_mod1_new.F,v 1.4 2008-05-08 19:14:51 jhammond Exp $ +c $Id$ c c Spin-spatial-symmetry blocked dipole matrix transformations. c diff --git a/src/tce/tce_mod1_offset.F b/src/tce/tce_mod1_offset.F index 06abea5dc1..f6f175e2b5 100644 --- a/src/tce/tce_mod1_offset.F +++ b/src/tce/tce_mod1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mod1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_mod1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C d ( g6 g5 )_d diff --git a/src/tce/tce_mod1_offset_new.F b/src/tce/tce_mod1_offset_new.F index 84c2d9d17e..f588abf35a 100644 --- a/src/tce/tce_mod1_offset_new.F +++ b/src/tce/tce_mod1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_mod1_offset_new(l_a_offset,k_a_offset,size,irrep_q) -C $Id: tce_mod1_offset_new.F,v 1.1 2008-05-05 17:43:50 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C q ( g6 g5 )_q diff --git a/src/tce/tce_multipole_create.F b/src/tce/tce_multipole_create.F index 9a85c033c4..c20324df31 100644 --- a/src/tce/tce_multipole_create.F +++ b/src/tce/tce_multipole_create.F @@ -1,6 +1,6 @@ subroutine tce_multipole_create(rtdb,d_d1,l_d1_offset,k_d1_offset) c -c $Id: tce_multipole_create.F,v 1.2 2008-05-05 18:17:54 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_multipole_destroy.F b/src/tce/tce_multipole_destroy.F index 132c27e09b..57b92e329b 100644 --- a/src/tce/tce_multipole_destroy.F +++ b/src/tce/tce_multipole_destroy.F @@ -1,7 +1,7 @@ subroutine tce_multipole_destroy(d_mo_mp1,l_mo_mp1_offset, & multipole) c -c $Id: tce_multipole_destroy.F,v 1.1 2008-02-11 17:08:24 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_nud1.F b/src/tce/tce_nud1.F index e4a861d1db..4d089a2efd 100644 --- a/src/tce/tce_nud1.F +++ b/src/tce/tce_nud1.F @@ -1,6 +1,6 @@ subroutine tce_nud1(dipole) c -c $Id: tce_nud1.F,v 1.3 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Computes nuclear contributions of dipole moments c diff --git a/src/tce/tce_print_x1.F b/src/tce/tce_print_x1.F index 9eb287c64c..06621c7789 100644 --- a/src/tce/tce_print_x1.F +++ b/src/tce/tce_print_x1.F @@ -1,6 +1,6 @@ subroutine tce_print_x1(d_r1,k_r1_offset,r1_thresh,irrep) c -c $Id: tce_print_x1.F,v 1.11 2009-02-25 00:46:20 d3p975 Exp $ +c $Id$ c c Prints the X1 tensor c diff --git a/src/tce/tce_print_x2.F b/src/tce/tce_print_x2.F index 72b1f241e1..43578fad21 100644 --- a/src/tce/tce_print_x2.F +++ b/src/tce/tce_print_x2.F @@ -1,6 +1,6 @@ subroutine tce_print_x2(d_r2,k_r2_offset,r2_thresh,irrep) c -c $Id: tce_print_x2.F,v 1.11 2009-02-25 00:46:45 d3p975 Exp $ +c $Id$ c c Prints the X2 tensor c diff --git a/src/tce/tce_prop_start.F b/src/tce/tce_prop_start.F index 3a1b30d1e3..5fc14e8f92 100644 --- a/src/tce/tce_prop_start.F +++ b/src/tce/tce_prop_start.F @@ -1,6 +1,6 @@ logical function tce_prop_start(rtdb) c -c $Id: tce_prop_start.F,v 1.4 2008-05-08 19:14:51 jhammond Exp $ +c $Id$ c c Wrapper for tce_property - the only reason to keep this around is c because eventually there may be code wrapped around the real property diff --git a/src/tce/tce_property.F b/src/tce/tce_property.F index e6b7b420c0..6619dc035b 100644 --- a/src/tce/tce_property.F +++ b/src/tce/tce_property.F @@ -1,6 +1,6 @@ logical function tce_property(rtdb) c -c $Id: tce_property.F,v 1.18 2008-11-01 19:09:37 jhammond Exp $ +c $Id$ c c Main routine for many-electron theory calculations. c Some of the subroutines have been generated by diff --git a/src/tce/tce_reference_check.F b/src/tce/tce_reference_check.F index a45a12e1fa..46fd0cb373 100644 --- a/src/tce/tce_reference_check.F +++ b/src/tce/tce_reference_check.F @@ -1,6 +1,6 @@ subroutine tce_reference_check(rtdb,ref) c -c $Id: tce_reference_check.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +c $Id$ c c Written by Jeff Hammond, January 2008. c diff --git a/src/tce/tce_residual_t1.F b/src/tce/tce_residual_t1.F index 297d5c5784..b4ecc00fd4 100644 --- a/src/tce/tce_residual_t1.F +++ b/src/tce/tce_residual_t1.F @@ -1,6 +1,6 @@ subroutine tce_residual_t1(d_r1,k_r1_offset,residual) c -c $Id: tce_residual_t1.F,v 1.13 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -103,7 +103,7 @@ cc next = nxtval(-nprocs) subroutine tce_residual_tr1(d_r1,k_r1_offset,residual) c -c $Id: tce_residual_t1.F,v 1.13 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t2.F b/src/tce/tce_residual_t2.F index 446f5ab7ed..3a49f67856 100644 --- a/src/tce/tce_residual_t2.F +++ b/src/tce/tce_residual_t2.F @@ -1,6 +1,6 @@ subroutine tce_residual_t2(d_r2,k_r2_offset,residual) c -c $Id: tce_residual_t2.F,v 1.11 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -109,7 +109,7 @@ cc next = nxtval(-nprocs) end subroutine tce_residual_tr2(d_r2,k_r2_offset,residual) c -c $Id: tce_residual_t2.F,v 1.11 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t3.F b/src/tce/tce_residual_t3.F index 9e4adf399b..34c671092c 100644 --- a/src/tce/tce_residual_t3.F +++ b/src/tce/tce_residual_t3.F @@ -1,6 +1,6 @@ subroutine tce_residual_t3(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3.F,v 1.12 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -143,7 +143,7 @@ c end subroutine tce_residual_tr3(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3.F,v 1.12 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t3a.F b/src/tce/tce_residual_t3a.F index 269d5cdcd7..7a32c4728d 100644 --- a/src/tce/tce_residual_t3a.F +++ b/src/tce/tce_residual_t3a.F @@ -1,6 +1,6 @@ subroutine tce_residual_t3a(d_r3,k_r3_offset,residual) c -c $Id: tce_residual_t3a.F,v 1.4 2008-10-05 02:59:11 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_residual_t4.F b/src/tce/tce_residual_t4.F index fc0200caf8..090fb7cd38 100644 --- a/src/tce/tce_residual_t4.F +++ b/src/tce/tce_residual_t4.F @@ -1,6 +1,6 @@ subroutine tce_residual_t4(d_r4,k_r4_offset,residual) c -c $Id: tce_residual_t4.F,v 1.10 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -176,7 +176,7 @@ c end subroutine tce_residual_tr4(d_r4,k_r4_offset,residual) c -c $Id: tce_residual_t4.F,v 1.10 2008-10-05 02:59:10 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_restricted.F b/src/tce/tce_restricted.F index 0d65f44633..a1f284e088 100644 --- a/src/tce/tce_restricted.F +++ b/src/tce/tce_restricted.F @@ -1,6 +1,6 @@ subroutine tce_restricted_2(a1b,a2b,b1b,b2b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -33,7 +33,7 @@ c subroutine tce_restricted_4(a1b,a2b,a3b,a4b, 1 b1b,b2b,b3b,b4b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -72,7 +72,7 @@ c subroutine tce_restricted_6(a1b,a2b,a3b,a4b,a5b,a6b, 1 b1b,b2b,b3b,b4b,b5b,b6b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -117,7 +117,7 @@ c subroutine tce_restricted_8(a1b,a2b,a3b,a4b,a5b,a6b,a7b,a8b, 1 b1b,b2b,b3b,b4b,b5b,b6b,b7b,b8b) c -c $Id: tce_restricted.F,v 1.2 2008-10-16 14:20:17 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_schmidt.F b/src/tce/tce_schmidt.F index e4ff3d529f..34832d017d 100644 --- a/src/tce/tce_schmidt.F +++ b/src/tce/tce_schmidt.F @@ -1,6 +1,6 @@ subroutine tce_schmidt(n,vector) c -c $Id: tce_schmidt.F,v 1.5 2003-10-17 22:58:29 carlfahl Exp $ +c $Id$ c c Schmidt orthonormalize vectors c Written by So Hirata, Feb 2002. diff --git a/src/tce/tce_sort.F b/src/tce/tce_sort.F index ec30a714dc..0002a4a6af 100644 --- a/src/tce/tce_sort.F +++ b/src/tce/tce_sort.F @@ -1,6 +1,6 @@ subroutine tce_sort_0(unsorted,sorted,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -22,7 +22,7 @@ c subroutine tce_sort_2(unsorted,sorted,a,b, 1 i,j,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -62,7 +62,7 @@ c subroutine tce_sort_4(unsorted,sorted,a,b,c,d, 1 i,j,k,l,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -143,7 +143,7 @@ c subroutine tce_sort_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -303,7 +303,7 @@ c write(*,*) cpu subroutine tce_sort_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sort.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" @@ -564,7 +564,7 @@ c now lives under /nwdft as LR-TDDFT c subroutine tce_sort(n,value,vector,order) c -c $Id: tce_sort.F,v 1.3 2002-04-28 19:09:14 sohirata Exp $ +c $Id$ c c Sort the eigenvalues and eigenvectors c in an ascending/descending order diff --git a/src/tce/tce_sort0.F b/src/tce/tce_sort0.F index cd0e5176e3..d45a8f14ee 100644 --- a/src/tce/tce_sort0.F +++ b/src/tce/tce_sort0.F @@ -1,6 +1,6 @@ subroutine tce_sort_0(unsorted,sorted,factor) c -c $Id: tce_sort0.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none double precision sorted diff --git a/src/tce/tce_sort2.F b/src/tce/tce_sort2.F index eed647770d..a18ae6b888 100644 --- a/src/tce/tce_sort2.F +++ b/src/tce/tce_sort2.F @@ -1,6 +1,6 @@ subroutine tce_sort_2(unsorted,sorted,a,b,i,j,factor) c -c $Id: tce_sort2.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none c#include "util.fh" diff --git a/src/tce/tce_sort6.F b/src/tce/tce_sort6.F index 508341b592..2bd4755c7f 100644 --- a/src/tce/tce_sort6.F +++ b/src/tce/tce_sort6.F @@ -1,7 +1,7 @@ subroutine tce_sort_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sort6.F,v 1.1 2008-09-25 14:54:18 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_sort8.F b/src/tce/tce_sort8.F index a59728b1f8..4508c1e35f 100644 --- a/src/tce/tce_sort8.F +++ b/src/tce/tce_sort8.F @@ -1,7 +1,7 @@ subroutine tce_sort_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sort8.F,v 1.1 2008-09-25 14:54:19 jhammond Exp $ +c $Id$ c implicit none c#include "global.fh" diff --git a/src/tce/tce_sortacc.F b/src/tce/tce_sortacc.F index ac4848b253..0850748462 100644 --- a/src/tce/tce_sortacc.F +++ b/src/tce/tce_sortacc.F @@ -1,6 +1,6 @@ subroutine tce_sortacc_0(unsorted,sorted,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -22,7 +22,7 @@ c subroutine tce_sortacc_2(unsorted,sorted,a,b, 1 i,j,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -62,7 +62,7 @@ c subroutine tce_sortacc_4(unsorted,sorted,a,b,c,d, 1 i,j,k,l,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -143,7 +143,7 @@ c subroutine tce_sortacc_6(unsorted,sorted,a,b,c,d,e,f, 1 i,j,k,l,m,n,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" @@ -303,7 +303,7 @@ c write(*,*) cpu subroutine tce_sortacc_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sortacc.F,v 1.2 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_sortacc8.F b/src/tce/tce_sortacc8.F index cd64d87095..db569c3e67 100644 --- a/src/tce/tce_sortacc8.F +++ b/src/tce/tce_sortacc8.F @@ -1,7 +1,7 @@ subroutine tce_sortacc_8(unsorted,sorted,a,b,c,d,e,f,g,h, 1 i,j,k,l,m,n,o,p,factor) c -c $Id: tce_sortacc8.F,v 1.1 2008-09-25 14:54:19 jhammond Exp $ +c $Id$ c implicit none #include "global.fh" diff --git a/src/tce/tce_t1_offset.F b/src/tce/tce_t1_offset.F index 8b1fb7ddc7..787def5452 100644 --- a/src/tce/tce_t1_offset.F +++ b/src/tce/tce_t1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t1_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p5 h6 )_t diff --git a/src/tce/tce_t1_offset_new.F b/src/tce/tce_t1_offset_new.F index 9e82d413ca..45d17562be 100644 --- a/src/tce/tce_t1_offset_new.F +++ b/src/tce/tce_t1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p5 h6 )_t diff --git a/src/tce/tce_t2_offset.F b/src/tce/tce_t2_offset.F index b099fc2491..9deb042bf9 100644 --- a/src/tce/tce_t2_offset.F +++ b/src/tce/tce_t2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t2_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_t2_offset_new.F b/src/tce/tce_t2_offset_new.F index 4eac76b970..34288bd159 100644 --- a/src/tce/tce_t2_offset_new.F +++ b/src/tce/tce_t2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p1 p2 h3 h4 )_t diff --git a/src/tce/tce_t3_offset.F b/src/tce/tce_t3_offset.F index 7c2950a62f..36a023c5b3 100644 --- a/src/tce/tce_t3_offset.F +++ b/src/tce/tce_t3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t3_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t3_offset_new.F b/src/tce/tce_t3_offset_new.F index e049b2a820..39b322adaf 100644 --- a/src/tce/tce_t3_offset_new.F +++ b/src/tce/tce_t3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t3_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t3a_offset.F b/src/tce/tce_t3a_offset.F index 489f27a4b3..def383d701 100644 --- a/src/tce/tce_t3a_offset.F +++ b/src/tce/tce_t3a_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t3a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t3a_offset.F,v 1.3 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p2 p3 p4 h1 h5 h6 )_t diff --git a/src/tce/tce_t4_offset.F b/src/tce/tce_t4_offset.F index 1f7c457e39..781612681d 100644 --- a/src/tce/tce_t4_offset.F +++ b/src/tce/tce_t4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_t4_offset.F,v 1.8 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t diff --git a/src/tce/tce_t4_offset_new.F b/src/tce/tce_t4_offset_new.F index d87116f221..8803f930fc 100644 --- a/src/tce/tce_t4_offset_new.F +++ b/src/tce/tce_t4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_t4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_t4_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C t ( p3 p4 p5 p6 h1 h2 h7 h8 )_t diff --git a/src/tce/tce_tidy.F b/src/tce/tce_tidy.F index e12dd018d3..6340755292 100644 --- a/src/tce/tce_tidy.F +++ b/src/tce/tce_tidy.F @@ -1,6 +1,6 @@ subroutine tce_tidy(rtdb) c -c $Id: tce_tidy.F,v 1.11 2008-01-14 15:20:35 jhammond Exp $ +c $Id$ c c Terminate TCE modulem. c diff --git a/src/tce/tce_tile.F b/src/tce/tce_tile.F index 35e28b4463..0ec7975a32 100644 --- a/src/tce/tce_tile.F +++ b/src/tce/tce_tile.F @@ -1,6 +1,6 @@ subroutine tce_tile(rtdb) c -c $Id: tce_tile.F,v 1.28 2009-02-25 00:35:53 d3p975 Exp $ +c $Id$ c c Reorder and tile orbitals. Minimal tiling scheme is c hole(alpha), hole(beta), particle(alpha), particle(beta) diff --git a/src/tce/tce_tile_new.F b/src/tce/tce_tile_new.F index dc6bf9667c..c6688c824a 100644 --- a/src/tce/tce_tile_new.F +++ b/src/tce/tce_tile_new.F @@ -1,6 +1,6 @@ subroutine tce_tile_new(rtdb) c -c $Id: tce_tile_new.F,v 1.3 2008-12-07 22:37:57 jhammond Exp $ +c $Id$ c c Reorder and tile orbitals. Minimal tiling scheme is c hole(alpha), hole(beta), particle(alpha), particle(beta) diff --git a/src/tce/tce_x1_offset.F b/src/tce/tce_x1_offset.F index b52eb94084..a620a13212 100644 --- a/src/tce/tce_x1_offset.F +++ b/src/tce/tce_x1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/tce_x1_offset_new.F b/src/tce/tce_x1_offset_new.F index bd27ee876b..01480ee38e 100644 --- a/src/tce/tce_x1_offset_new.F +++ b/src/tce/tce_x1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 h3 )_x diff --git a/src/tce/tce_x2_offset.F b/src/tce/tce_x2_offset.F index 745efe5204..e45a3882c0 100644 --- a/src/tce/tce_x2_offset.F +++ b/src/tce/tce_x2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x2_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 p4 h1 h3 )_x diff --git a/src/tce/tce_x2_offset_new.F b/src/tce/tce_x2_offset_new.F index 31dd5c293d..0aec54a61e 100644 --- a/src/tce/tce_x2_offset_new.F +++ b/src/tce/tce_x2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p2 p4 h1 h3 )_x diff --git a/src/tce/tce_x3_offset.F b/src/tce/tce_x3_offset.F index 63f313f5b0..1d59b948c8 100644 --- a/src/tce/tce_x3_offset.F +++ b/src/tce/tce_x3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x3_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x3_offset_new.F b/src/tce/tce_x3_offset_new.F index 6f02e291d7..156182e867 100644 --- a/src/tce/tce_x3_offset_new.F +++ b/src/tce/tce_x3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x3_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x3a_offset.F b/src/tce/tce_x3a_offset.F index 727ccdd21d..d5c2e796ee 100644 --- a/src/tce/tce_x3a_offset.F +++ b/src/tce/tce_x3a_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x3a_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x3a_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 h3 h4 h9 )_x diff --git a/src/tce/tce_x4_offset.F b/src/tce/tce_x4_offset.F index 98465aaee0..78070cc897 100644 --- a/src/tce/tce_x4_offset.F +++ b/src/tce/tce_x4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_x4_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 p8 h2 h3 h4 h9 )_x diff --git a/src/tce/tce_x4_offset_new.F b/src/tce/tce_x4_offset_new.F index fe189f7883..67e6f1564e 100644 --- a/src/tce/tce_x4_offset_new.F +++ b/src/tce/tce_x4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_x4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_x4_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C x ( p5 p6 p7 p8 h2 h3 h4 h9 )_x diff --git a/src/tce/tce_xy1_offset.F b/src/tce/tce_xy1_offset.F index 8b76a61cb8..9617e1108f 100644 --- a/src/tce/tce_xy1_offset.F +++ b/src/tce/tce_xy1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_xy1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_xy1_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p3 h1 )_yx diff --git a/src/tce/tce_xy2_offset.F b/src/tce/tce_xy2_offset.F index d0fe1f7c57..8e1dbb8539 100644 --- a/src/tce/tce_xy2_offset.F +++ b/src/tce/tce_xy2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_xy2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_xy2_offset.F,v 1.2 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C i1 ( p5 p6 h1 h2 )_yx diff --git a/src/tce/tce_y1_offset.F b/src/tce/tce_y1_offset.F index 2b034bb238..9604b46de1 100644 --- a/src/tce/tce_y1_offset.F +++ b/src/tce/tce_y1_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y1_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y1_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h4 p1 )_y diff --git a/src/tce/tce_y1_offset_new.F b/src/tce/tce_y1_offset_new.F index 08bb7f3dcd..23191d9355 100644 --- a/src/tce/tce_y1_offset_new.F +++ b/src/tce/tce_y1_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y1_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y1_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h4 p1 )_y diff --git a/src/tce/tce_y2_offset.F b/src/tce/tce_y2_offset.F index cfb0e6dc1f..fb345ea170 100644 --- a/src/tce/tce_y2_offset.F +++ b/src/tce/tce_y2_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y2_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y2_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h7 h8 p1 p2 )_y diff --git a/src/tce/tce_y2_offset_new.F b/src/tce/tce_y2_offset_new.F index 600dd12baa..10f714090e 100644 --- a/src/tce/tce_y2_offset_new.F +++ b/src/tce/tce_y2_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y2_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y2_offset_new.F,v 1.1 2008-01-29 18:26:14 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h7 h8 p1 p2 )_y diff --git a/src/tce/tce_y3_offset.F b/src/tce/tce_y3_offset.F index a5ab8d72f5..ca212ad9c6 100644 --- a/src/tce/tce_y3_offset.F +++ b/src/tce/tce_y3_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y3_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y3_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/tce_y3_offset_new.F b/src/tce/tce_y3_offset_new.F index 40db6d6b45..563106bb25 100644 --- a/src/tce/tce_y3_offset_new.F +++ b/src/tce/tce_y3_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y3_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y3_offset_new.F,v 1.1 2008-01-29 18:26:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 p1 p2 p3 )_y diff --git a/src/tce/tce_y4_offset.F b/src/tce/tce_y4_offset.F index 2a8958eaae..b3cc4f14b4 100644 --- a/src/tce/tce_y4_offset.F +++ b/src/tce/tce_y4_offset.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y4_offset(l_a_offset,k_a_offset,size) -C $Id: tce_y4_offset.F,v 1.4 2008-10-05 23:07:11 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 h9 p1 p2 p3 p4 )_y diff --git a/src/tce/tce_y4_offset_new.F b/src/tce/tce_y4_offset_new.F index b32a7c15b6..7005ab802b 100644 --- a/src/tce/tce_y4_offset_new.F +++ b/src/tce/tce_y4_offset_new.F @@ -1,5 +1,5 @@ SUBROUTINE tce_y4_offset_new(l_a_offset,k_a_offset,size,irrep) -C $Id: tce_y4_offset_new.F,v 1.1 2008-01-29 18:26:15 jhammond Exp $ +C $Id$ C This is a Fortran77 program generated by Tensor Contraction Engine v.1.0 C Copyright (c) Battelle & Pacific Northwest National Laboratory (2002) C y ( h6 h7 h8 h9 p1 p2 p3 p4 )_y diff --git a/src/tce/tce_zero.F b/src/tce/tce_zero.F index 67ccf7f1ca..47e2ce86a0 100644 --- a/src/tce/tce_zero.F +++ b/src/tce/tce_zero.F @@ -1,6 +1,6 @@ subroutine tce_zero(d_sf,size) c -c $Id: tce_zero.F,v 1.16 2008-07-22 16:12:24 jhammond Exp $ +c $Id$ c c Zero scratch a file c @@ -102,7 +102,7 @@ cc next = NXTVAL(-nprocs) subroutine tce_zero_sf(d_sf,size) c -c $Id: tce_zero.F,v 1.16 2008-07-22 16:12:24 jhammond Exp $ +c $Id$ c c Zero scratch a file c