← Back to branch summary

~ubuntu-branches/ubuntu/saucy/nwchem/saucy

« back to all changes in this revision

Viewing changes to src/tce/cc3/cc3_lambda3.F

  • Committer: Package Import Robot
  • Author(s): Michael Banck, Michael Banck, Daniel Leidert
  • Date: 2012-02-09 20:02:41 UTC
  • mfrom: (1.1.1)
  • Revision ID: package-import@ubuntu.com-20120209200241-jgk03qfsphal4ug2
Tags: 6.1-1
http://bugs.debian.org/632611
https://launchpad.net/bugs/791308
* New upstream release.

[ Michael Banck ]
* debian/patches/02_makefile_flags.patch: Updated.
* debian/patches/02_makefile_flags.patch: Use internal blas and lapack code.
* debian/patches/02_makefile_flags.patch: Define GCC4 for LINUX and LINUX64
  (Closes: #632611 and LP: #791308).
* debian/control (Build-Depends): Added openssh-client.
* debian/rules (USE_SCALAPACK, SCALAPACK): Removed variables (Closes:
  #654658).
* debian/rules (LIBDIR, USE_MPIF4, ARMCI_NETWORK): New variables.
* debian/TODO: New file.
* debian/control (Build-Depends): Removed libblas-dev, liblapack-dev and
  libscalapack-mpi-dev.
* debian/patches/04_show_testsuite_diff_output.patch: New patch, shows the
  diff output for failed tests.
* debian/patches/series: Adjusted.
* debian/testsuite: Optionally run all tests if "all" is passed as option.
* debian/rules: Run debian/testsuite with "all" if DEB_BUILD_OPTIONS
  contains "checkall".

[ Daniel Leidert ]
* debian/control: Used wrap-and-sort. Added Vcs-Svn and Vcs-Browser fields.
  (Priority): Moved to extra according to policy section 2.5.
  (Standards-Version): Bumped to 3.9.2.
  (Description): Fixed a typo.
* debian/watch: Added.
* debian/patches/03_hurd-i386_define_path_max.patch: Added.
  - Define MAX_PATH if not defines to fix FTBFS on hurd.
* debian/patches/series: Adjusted.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/tce/cc3/cc3_lambda3.F
1
1
      SUBROUTINE cc3_lambda3(d_f1,d_i0,d_t1,d_t2,d_v2,d_y1,d_y2,d_y3,k_f
2
2
     &1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y1_offs
3
3
     &et,k_y2_offset,k_y3_offset)
4
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5
5
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6
6
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7
7
C     i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v
362
362
      END
363
363
      SUBROUTINE cc3_lambda3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
364
364
     &set)
365
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
365
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
366
366
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
367
367
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
368
368
C     i0 ( h4 h5 h6 p1 p2 p3 )_yv + = 1 * P( 9 ) * y ( h4 p1 )_y * i1 ( h5 h6 p2 p3 )_v
576
576
      RETURN
577
577
      END
578
578
      SUBROUTINE cc3_lambda3_1_1(d_a,k_a_offset,d_c,k_c_offset)
579
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
579
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
580
580
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
581
581
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
582
582
C     i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v
675
675
      RETURN
676
676
      END
677
677
      SUBROUTINE OFFSET_cc3_lambda3_1_1(l_a_offset,k_a_offset,size)
678
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
678
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
679
679
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
680
680
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
681
681
C     i1 ( h4 h5 p1 p2 )_v
744
744
      RETURN
745
745
      END
746
746
      SUBROUTINE cc3_lambda3_1_2(d_a,k_a_offset,d_c,k_c_offset)
747
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
747
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
748
748
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
749
749
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
750
750
C     i1 ( h4 h5 p1 p2 )_v + = 1 * v ( h4 h5 p1 p2 )_v
844
844
      END
845
845
      SUBROUTINE cc3_lambda3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
846
846
     &set)
847
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
847
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
848
848
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
849
849
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
850
850
C     i0 ( h4 h5 h6 p1 p2 p3 )_yf + = 1 * P( 9 ) * y ( h4 h5 p1 p2 )_y * i1 ( h6 p3 )_f
1059
1059
      RETURN
1060
1060
      END
1061
1061
      SUBROUTINE cc3_lambda3_2_1(d_a,k_a_offset,d_c,k_c_offset)
1062
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1062
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1063
1063
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1064
1064
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1065
1065
C     i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f
1143
1143
      RETURN
1144
1144
      END
1145
1145
      SUBROUTINE OFFSET_cc3_lambda3_2_1(l_a_offset,k_a_offset,size)
1146
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1146
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1147
1147
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1148
1148
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1149
1149
C     i1 ( h4 p1 )_f
1199
1199
      END
1200
1200
      SUBROUTINE cc3_lambda3_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
1201
1201
     &ffset)
1202
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1202
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1203
1203
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1204
1204
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1205
1205
C     i1 ( h4 p1 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * i2 ( h4 h8 p1 p7 )_v
1333
1333
      RETURN
1334
1334
      END
1335
1335
      SUBROUTINE cc3_lambda3_2_2_1(d_a,k_a_offset,d_c,k_c_offset)
1336
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1336
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1337
1337
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1338
1338
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1339
1339
C     i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v
1458
1458
      RETURN
1459
1459
      END
1460
1460
      SUBROUTINE OFFSET_cc3_lambda3_2_2_1(l_a_offset,k_a_offset,size)
1461
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1461
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1462
1462
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1463
1463
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1464
1464
C     i2 ( h4 h8 p1 p7 )_v
1527
1527
      RETURN
1528
1528
      END
1529
1529
      SUBROUTINE cc3_lambda3_2_2_2(d_a,k_a_offset,d_c,k_c_offset)
1530
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1530
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1531
1531
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1532
1532
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1533
1533
C     i2 ( h4 h8 p1 p7 )_v + = 1 * v ( h4 h8 p1 p7 )_v
1652
1652
      RETURN
1653
1653
      END
1654
1654
      SUBROUTINE cc3_lambda3_2_3(d_a,k_a_offset,d_c,k_c_offset)
1655
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1655
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1656
1656
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1657
1657
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1658
1658
C     i1 ( h4 p1 )_f + = 1 * f ( h4 p1 )_f
1737
1737
      END
1738
1738
      SUBROUTINE cc3_lambda3_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
1739
1739
     &set)
1740
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1740
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1741
1741
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1742
1742
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1743
1743
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
1970
      RETURN
1971
1971
      END
1972
1972
      SUBROUTINE cc3_lambda3_3_1(d_a,k_a_offset,d_c,k_c_offset)
1973
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
1973
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
1974
1974
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1975
1975
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1976
1976
C     i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v
2071
2071
      RETURN
2072
2072
      END
2073
2073
      SUBROUTINE OFFSET_cc3_lambda3_3_1(l_a_offset,k_a_offset,size)
2074
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2074
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2075
2075
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2076
2076
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2077
2077
C     i1 ( h4 h5 h8 p1 )_v
2141
2141
      END
2142
2142
      SUBROUTINE cc3_lambda3_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
2143
2143
     &ffset)
2144
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2144
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2145
2145
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2146
2146
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2147
2147
C     i1 ( h4 h5 h8 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h8 )_t * i2 ( h4 h5 p1 p7 )_v
2284
2284
      RETURN
2285
2285
      END
2286
2286
      SUBROUTINE cc3_lambda3_3_2_1(d_a,k_a_offset,d_c,k_c_offset)
2287
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2287
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2288
2288
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2289
2289
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2290
2290
C     i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v
2393
2393
      RETURN
2394
2394
      END
2395
2395
      SUBROUTINE OFFSET_cc3_lambda3_3_2_1(l_a_offset,k_a_offset,size)
2396
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2396
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2397
2397
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2398
2398
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2399
2399
C     i2 ( h4 h5 p1 p7 )_v
2462
2462
      RETURN
2463
2463
      END
2464
2464
      SUBROUTINE cc3_lambda3_3_2_2(d_a,k_a_offset,d_c,k_c_offset)
2465
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2465
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2466
2466
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2467
2467
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2468
2468
C     i2 ( h4 h5 p1 p7 )_v + = 1 * v ( h4 h5 p1 p7 )_v
2571
2571
      RETURN
2572
2572
      END
2573
2573
      SUBROUTINE cc3_lambda3_3_3(d_a,k_a_offset,d_c,k_c_offset)
2574
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2574
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2575
2575
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2576
2576
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2577
2577
C     i1 ( h4 h5 h8 p1 )_v + = 1 * v ( h4 h5 h8 p1 )_v
2673
2673
      END
2674
2674
      SUBROUTINE cc3_lambda3_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
2675
2675
     &set)
2676
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2676
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2677
2677
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2678
2678
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2679
2679
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
2906
      RETURN
2907
2907
      END
2908
2908
      SUBROUTINE cc3_lambda3_4_1(d_a,k_a_offset,d_c,k_c_offset)
2909
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
2909
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
2910
2910
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2911
2911
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2912
2912
C     i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v
3007
3007
      RETURN
3008
3008
      END
3009
3009
      SUBROUTINE OFFSET_cc3_lambda3_4_1(l_a_offset,k_a_offset,size)
3010
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3010
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3011
3011
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3012
3012
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3013
3013
C     i1 ( h4 p7 p1 p2 )_v
3076
3076
      RETURN
3077
3077
      END
3078
3078
      SUBROUTINE cc3_lambda3_4_2(d_a,k_a_offset,d_c,k_c_offset)
3079
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3079
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3080
3080
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3081
3081
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3082
3082
C     i1 ( h4 p7 p1 p2 )_v + = 1 * v ( h4 p7 p1 p2 )_v
3178
3178
      END
3179
3179
      SUBROUTINE cc3_lambda3_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
3180
3180
     &set)
3181
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3181
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3182
3182
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3183
3183
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3184
3184
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
3373
      RETURN
3374
3374
      END
3375
3375
      SUBROUTINE cc3_lambda3_5_1(d_a,k_a_offset,d_c,k_c_offset)
3376
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3376
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3377
3377
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3378
3378
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3379
3379
C     i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f
3457
3457
      RETURN
3458
3458
      END
3459
3459
      SUBROUTINE OFFSET_cc3_lambda3_5_1(l_a_offset,k_a_offset,size)
3460
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3460
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3461
3461
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3462
3462
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3463
3463
C     i1 ( h4 h11 )_f
3513
3513
      END
3514
3514
      SUBROUTINE cc3_lambda3_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
3515
3515
     &ffset)
3516
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3516
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3517
3517
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3518
3518
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3519
3519
C     i1 ( h4 h11 )_ft + = 1 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 p7 )_f
3640
3640
      RETURN
3641
3641
      END
3642
3642
      SUBROUTINE cc3_lambda3_5_2_1(d_a,k_a_offset,d_c,k_c_offset)
3643
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3643
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3644
3644
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3645
3645
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3646
3646
C     i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f
3724
3724
      RETURN
3725
3725
      END
3726
3726
      SUBROUTINE OFFSET_cc3_lambda3_5_2_1(l_a_offset,k_a_offset,size)
3727
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3727
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3728
3728
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3729
3729
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3730
3730
C     i2 ( h4 p7 )_f
3780
3780
      END
3781
3781
      SUBROUTINE cc3_lambda3_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
3782
3782
     &_offset)
3783
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3783
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3784
3784
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3785
3785
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3786
3786
C     i2 ( h4 p7 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h4 h10 p7 p9 )_v
3940
3940
      RETURN
3941
3941
      END
3942
3942
      SUBROUTINE cc3_lambda3_5_2_3(d_a,k_a_offset,d_c,k_c_offset)
3943
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
3943
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
3944
3944
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3945
3945
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3946
3946
C     i2 ( h4 p7 )_f + = 1 * f ( h4 p7 )_f
4025
4025
      END
4026
4026
      SUBROUTINE cc3_lambda3_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
4027
4027
     &ffset)
4028
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4028
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4029
4029
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4030
4030
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4031
4031
C     i1 ( h4 h11 )_vt + = 1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h4 h8 h11 p7 )_v
4170
4170
      END
4171
4171
      SUBROUTINE cc3_lambda3_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
4172
4172
     &ffset)
4173
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4173
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4174
4174
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4175
4175
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4176
4176
C     i1 ( h4 h11 )_vt + = -1/2 * Sum ( h10 p7 p8 ) * t ( p7 p8 h10 h11 )_t * v ( h4 h10 p7 p8 )_v
4345
4345
      RETURN
4346
4346
      END
4347
4347
      SUBROUTINE cc3_lambda3_5_5(d_a,k_a_offset,d_c,k_c_offset)
4348
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4348
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4349
4349
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4350
4350
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4351
4351
C     i1 ( h4 h11 )_f + = 1 * f ( h4 h11 )_f
4430
4430
      END
4431
4431
      SUBROUTINE cc3_lambda3_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
4432
4432
     &set)
4433
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4433
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4434
4434
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4435
4435
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4436
4436
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
4625
      RETURN
4626
4626
      END
4627
4627
      SUBROUTINE cc3_lambda3_6_1(d_a,k_a_offset,d_c,k_c_offset)
4628
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4628
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4629
4629
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4630
4630
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4631
4631
C     i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f
4709
4709
      RETURN
4710
4710
      END
4711
4711
      SUBROUTINE OFFSET_cc3_lambda3_6_1(l_a_offset,k_a_offset,size)
4712
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4712
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4713
4713
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4714
4714
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4715
4715
C     i1 ( p11 p1 )_f
4766
4766
      END
4767
4767
      SUBROUTINE cc3_lambda3_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
4768
4768
     &ffset)
4769
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4769
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4770
4770
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4771
4771
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4772
4772
C     i1 ( p11 p1 )_vt + = -1 * Sum ( h8 p7 ) * t ( p7 h8 )_t * v ( h8 p11 p1 p7 )_v
4911
4911
      END
4912
4912
      SUBROUTINE cc3_lambda3_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
4913
4913
     &ffset)
4914
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
4914
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
4915
4915
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4916
4916
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4917
4917
C     i1 ( p11 p1 )_vt + = 1/2 * Sum ( h9 h10 p8 ) * t ( p8 p11 h9 h10 )_t * v ( h9 h10 p1 p8 )_v
5087
5087
      END
5088
5088
      SUBROUTINE cc3_lambda3_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
5089
5089
     &ffset)
5090
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5090
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5091
5091
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5092
5092
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5093
5093
C     i1 ( p11 p1 )_vtt + = -1 * Sum ( h8 ) * t ( p11 h8 )_t * i2 ( h8 p1 )_vt
5215
5215
      END
5216
5216
      SUBROUTINE cc3_lambda3_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
5217
5217
     &_offset)
5218
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5218
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5219
5219
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5220
5220
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5221
5221
C     i2 ( h8 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h8 h10 p1 p9 )_v
5375
5375
      RETURN
5376
5376
      END
5377
5377
      SUBROUTINE OFFSET_cc3_lambda3_6_4_1(l_a_offset,k_a_offset,size)
5378
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5378
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5379
5379
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5380
5380
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5381
5381
C     i2 ( h8 p1 )_vt
5430
5430
      RETURN
5431
5431
      END
5432
5432
      SUBROUTINE cc3_lambda3_6_5(d_a,k_a_offset,d_c,k_c_offset)
5433
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5433
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5434
5434
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5435
5435
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5436
5436
C     i1 ( p11 p1 )_f + = 1 * f ( p11 p1 )_f
5515
5515
      END
5516
5516
      SUBROUTINE cc3_lambda3_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
5517
5517
     &set)
5518
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5518
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5519
5519
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5520
5520
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5521
5521
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
5732
      RETURN
5733
5733
      END
5734
5734
      SUBROUTINE cc3_lambda3_7_1(d_a,k_a_offset,d_c,k_c_offset)
5735
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5735
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5736
5736
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5737
5737
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5738
5738
C     i1 ( h4 h5 h11 h12 )_v + = 1 * v ( h4 h5 h11 h12 )_v
5830
5830
      RETURN
5831
5831
      END
5832
5832
      SUBROUTINE OFFSET_cc3_lambda3_7_1(l_a_offset,k_a_offset,size)
5833
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5833
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5834
5834
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5835
5835
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5836
5836
C     i1 ( h4 h5 h11 h12 )_v
5900
5900
      END
5901
5901
      SUBROUTINE cc3_lambda3_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
5902
5902
     &ffset)
5903
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
5903
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
5904
5904
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5905
5905
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5906
5906
C     i1 ( h4 h5 h11 h12 )_vt + = -2 * Sum ( p7 ) * t ( p7 h11 )_t * i2 ( h4 h5 h12 p7 )_v
6053
6053
      RETURN
6054
6054
      END
6055
6055
      SUBROUTINE cc3_lambda3_7_2_1(d_a,k_a_offset,d_c,k_c_offset)
6056
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6056
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6057
6057
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6058
6058
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6059
6059
C     i2 ( h4 h5 h12 p7 )_v + = 1 * v ( h4 h5 h12 p7 )_v
6152
6152
      RETURN
6153
6153
      END
6154
6154
      SUBROUTINE OFFSET_cc3_lambda3_7_2_1(l_a_offset,k_a_offset,size)
6155
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6155
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6156
6156
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6157
6157
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6158
6158
C     i2 ( h4 h5 h12 p7 )_v
6222
6222
      END
6223
6223
      SUBROUTINE cc3_lambda3_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
6224
6224
     &_offset)
6225
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6225
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6226
6226
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6227
6227
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6228
6228
C     i2 ( h4 h5 h12 p7 )_vt + = -1/2 * Sum ( p9 ) * t ( p9 h12 )_t * v ( h4 h5 p7 p9 )_v
6376
6376
      END
6377
6377
      SUBROUTINE cc3_lambda3_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
6378
6378
     &ffset)
6379
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6379
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6380
6380
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6381
6381
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6382
6382
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
6538
      END
6539
6539
      SUBROUTINE cc3_lambda3_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
6540
6540
     &set)
6541
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6541
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6542
6542
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6543
6543
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6544
6544
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
6848
      RETURN
6849
6849
      END
6850
6850
      SUBROUTINE cc3_lambda3_8_1(d_a,k_a_offset,d_c,k_c_offset)
6851
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6851
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6852
6852
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6853
6853
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6854
6854
C     i1 ( h4 p9 h12 p1 )_v + = 1 * v ( h4 p9 h12 p1 )_v
6949
6949
      RETURN
6950
6950
      END
6951
6951
      SUBROUTINE OFFSET_cc3_lambda3_8_1(l_a_offset,k_a_offset,size)
6952
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
6952
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
6953
6953
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6954
6954
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6955
6955
C     i1 ( h4 p9 h12 p1 )_v
7019
7019
      END
7020
7020
      SUBROUTINE cc3_lambda3_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7021
7021
     &ffset)
7022
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7022
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7023
7023
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7024
7024
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7025
7025
C     i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 p9 p1 p7 )_v
7173
7173
      END
7174
7174
      SUBROUTINE cc3_lambda3_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7175
7175
     &ffset)
7176
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7176
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7177
7177
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7178
7178
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7179
7179
C     i1 ( h4 p9 h12 p1 )_vt + = -1 * Sum ( h10 p8 ) * t ( p8 p9 h10 h12 )_t * v ( h4 h10 p1 p8 )_v
7376
7376
      END
7377
7377
      SUBROUTINE cc3_lambda3_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
7378
7378
     &ffset)
7379
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7379
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7380
7380
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7381
7381
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7382
7382
C     i1 ( h4 p9 h12 p1 )_vtt + = 1 * Sum ( h10 ) * t ( p9 h10 )_t * i2 ( h4 h10 h12 p1 )_vt
7520
7520
      END
7521
7521
      SUBROUTINE cc3_lambda3_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
7522
7522
     &_offset)
7523
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7523
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7524
7524
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7525
7525
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7526
7526
C     i2 ( h4 h10 h12 p1 )_vt + = 1 * Sum ( p7 ) * t ( p7 h12 )_t * v ( h4 h10 p1 p7 )_v
7689
7689
      RETURN
7690
7690
      END
7691
7691
      SUBROUTINE OFFSET_cc3_lambda3_8_4_1(l_a_offset,k_a_offset,size)
7692
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7692
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7693
7693
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7694
7694
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7695
7695
C     i2 ( h4 h10 h12 p1 )_vt
7761
7761
      END
7762
7762
      SUBROUTINE cc3_lambda3_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_off
7763
7763
     &set)
7764
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7764
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7765
7765
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7766
7766
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7767
7767
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
7976
      END
7977
7977
      SUBROUTINE cc3_lambda3_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
7978
7978
     &fset)
7979
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
7979
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
7980
7980
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7981
7981
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7982
7982
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
8214
      END
8215
8215
      SUBROUTINE cc3_lambda3_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
8216
8216
     &offset)
8217
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8217
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8218
8218
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8219
8219
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8220
8220
C     i1 ( h4 h5 h10 p1 )_yt + = -1 * Sum ( p7 ) * t ( p7 h10 )_t * i2 ( h4 h5 p1 p7 )_y
8357
8357
      RETURN
8358
8358
      END
8359
8359
      SUBROUTINE OFFSET_cc3_lambda3_10_1(l_a_offset,k_a_offset,size)
8360
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8360
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8361
8361
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8362
8362
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8363
8363
C     i1 ( h4 h5 h10 p1 )_yt
8428
8428
      RETURN
8429
8429
      END
8430
8430
      SUBROUTINE cc3_lambda3_10_1_1(d_a,k_a_offset,d_c,k_c_offset)
8431
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8431
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8432
8432
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8433
8433
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8434
8434
C     i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y
8537
8537
      RETURN
8538
8538
      END
8539
8539
      SUBROUTINE OFFSET_cc3_lambda3_10_1_1(l_a_offset,k_a_offset,size)
8540
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8540
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8541
8541
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8542
8542
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8543
8543
C     i2 ( h4 h5 p1 p7 )_y
8606
8606
      RETURN
8607
8607
      END
8608
8608
      SUBROUTINE cc3_lambda3_10_1_2(d_a,k_a_offset,d_c,k_c_offset)
8609
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8609
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8610
8610
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8611
8611
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8612
8612
C     i2 ( h4 h5 p1 p7 )_y + = 1 * y ( h4 h5 p1 p7 )_y
8716
8716
      END
8717
8717
      SUBROUTINE cc3_lambda3_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
8718
8718
     &offset)
8719
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8719
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8720
8720
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8721
8721
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8722
8722
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
8964
      END
8965
8965
      SUBROUTINE cc3_lambda3_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
8966
8966
     &fset)
8967
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
8967
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
8968
8968
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8969
8969
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8970
8970
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
9142
      END
9143
9143
      SUBROUTINE cc3_lambda3_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
9144
9144
     &offset)
9145
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9145
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9146
9146
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9147
9147
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9148
9148
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
9297
      RETURN
9298
9298
      END
9299
9299
      SUBROUTINE OFFSET_cc3_lambda3_11_1(l_a_offset,k_a_offset,size)
9300
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9300
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9301
9301
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9302
9302
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9303
9303
C     i1 ( h4 h5 h6 h7 p1 p2 )_yt
9384
9384
      RETURN
9385
9385
      END
9386
9386
      SUBROUTINE cc3_lambda3_11_1_1(d_a,k_a_offset,d_c,k_c_offset)
9387
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9387
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9388
9388
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9389
9389
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9390
9390
C     i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y
9515
9515
      RETURN
9516
9516
      END
9517
9517
      SUBROUTINE OFFSET_cc3_lambda3_11_1_1(l_a_offset,k_a_offset,size)
9518
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9518
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9519
9519
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9520
9520
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9521
9521
C     i2 ( h4 h5 h6 p1 p2 p8 )_y
9602
9602
      RETURN
9603
9603
      END
9604
9604
      SUBROUTINE cc3_lambda3_11_1_2(d_a,k_a_offset,d_c,k_c_offset)
9605
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9605
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9606
9606
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9607
9607
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9608
9608
C     i2 ( h4 h5 h6 p1 p2 p8 )_y + = 1 * y ( h4 h5 h6 p1 p2 p8 )_y
9734
9734
      END
9735
9735
      SUBROUTINE cc3_lambda3_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
9736
9736
     &fset)
9737
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9737
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9738
9738
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9739
9739
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9740
9740
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
9978
      END
9979
9979
      SUBROUTINE cc3_lambda3_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
9980
9980
     &offset)
9981
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
9981
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
9982
9982
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9983
9983
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9984
9984
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
10200
      RETURN
10201
10201
      END
10202
10202
      SUBROUTINE OFFSET_cc3_lambda3_12_1(l_a_offset,k_a_offset,size)
10203
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
10203
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
10204
10204
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10205
10205
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10206
10206
C     i1 ( h4 h5 h9 h8 p1 p2 )_yt
10288
10288
      END
10289
10289
      SUBROUTINE cc3_lambda3_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
10290
10290
     &fset)
10291
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
10291
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
10292
10292
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10293
10293
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10294
10294
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
10473
      END
10474
10474
      SUBROUTINE cc3_lambda3_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
10475
10475
     &offset)
10476
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
10476
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
10477
10477
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10478
10478
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10479
10479
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
10670
      RETURN
10671
10671
      END
10672
10672
      SUBROUTINE OFFSET_cc3_lambda3_13_1(l_a_offset,k_a_offset,size)
10673
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
10673
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
10674
10674
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10675
10675
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10676
10676
C     i1 ( h4 h5 h6 h8 p1 p9 )_yt
10758
10758
      END
10759
10759
      SUBROUTINE cc3_lambda3_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
10760
10760
     &fset)
10761
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
10761
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
10762
10762
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10763
10763
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10764
10764
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
11005
      END
11006
11006
      SUBROUTINE cc3_lambda3_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
11007
11007
     &offset)
11008
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11008
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11009
11009
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11010
11010
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11011
11011
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
11264
      RETURN
11265
11265
      END
11266
11266
      SUBROUTINE OFFSET_cc3_lambda3_14_1(l_a_offset,k_a_offset,size)
11267
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11267
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11268
11268
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11269
11269
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11270
11270
C     i1 ( h4 p8 p1 p2 )_yt
11336
11336
      END
11337
11337
      SUBROUTINE cc3_lambda3_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_of
11338
11338
     &fset)
11339
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11339
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11340
11340
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11341
11341
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11342
11342
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
11536
      END
11537
11537
      SUBROUTINE cc3_lambda3_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
11538
11538
     &offset)
11539
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11539
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11540
11540
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11541
11541
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11542
11542
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
11729
      RETURN
11730
11730
      END
11731
11731
      SUBROUTINE OFFSET_cc3_lambda3_15_1(l_a_offset,k_a_offset,size)
11732
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11732
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11733
11733
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11734
11734
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11735
11735
C     i1 ( h4 h5 h6 h10 h11 p1 )_yt
11817
11817
      END
11818
11818
      SUBROUTINE cc3_lambda3_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
11819
11819
     &offset)
11820
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11820
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11821
11821
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11822
11822
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11823
11823
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
11986
      END
11987
11987
      SUBROUTINE cc3_lambda3_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
11988
11988
     &c_offset)
11989
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
11989
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
11990
11990
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11991
11991
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11992
11992
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
12183
      RETURN
12184
12184
      END
12185
12185
      SUBROUTINE OFFSET_cc3_lambda3_15_2_1(l_a_offset,k_a_offset,size)
12186
 
C     $Id: cc3_lambda3.F,v 1.1 2007-11-07 17:50:34 jhammond Exp $
 
12186
C     $Id: cc3_lambda3.F 19706 2010-10-29 17:52:31Z d3y133 $
12187
12187
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
12188
12188
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
12189
12189
C     i2 ( h4 h5 h6 h10 p1 p7 )_yt