← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/ccsdtq_lambda/ccsdtq_lambda4.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/ccsdtq_lambda/ccsdtq_lambda4.F
1
1
      SUBROUTINE ccsdtq_lambda4(d_f1,d_i0,d_t1,d_t2,d_v2,d_y2,d_y3,d_y4,
2
2
     &k_f1_offset,k_i0_offset,k_t1_offset,k_t2_offset,k_v2_offset,k_y2_o
3
3
     &ffset,k_y3_offset,k_y4_offset)
4
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z 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 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = 1 * P( 36 ) * y ( h5 h6 p1 p2 )_y * v ( h7 h8 p3 p4 )_v
302
302
      END
303
303
      SUBROUTINE ccsdtq_lambda4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
304
304
     &offset)
305
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
305
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
306
306
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
307
307
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
308
308
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = 1 * P( 36 ) * y ( h5 h6 p1 p2 )_y * v ( h7 h8 p3 p4 )_v
844
844
      END
845
845
      SUBROUTINE ccsdtq_lambda4_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
846
846
     &offset)
847
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
847
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z 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 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yf + = 1 * P( 16 ) * y ( h5 h6 h7 p1 p2 p3 )_y * i1 ( h8 p4 )_f
1166
1166
      RETURN
1167
1167
      END
1168
1168
      SUBROUTINE ccsdtq_lambda4_2_1(d_a,k_a_offset,d_c,k_c_offset)
1169
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
1169
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
1170
1170
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1171
1171
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1172
1172
C     i1 ( h5 p1 )_f + = 1 * f ( h5 p1 )_f
1250
1250
      RETURN
1251
1251
      END
1252
1252
      SUBROUTINE OFFSET_ccsdtq_lambda4_2_1(l_a_offset,k_a_offset,size)
1253
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
1253
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
1254
1254
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1255
1255
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1256
1256
C     i1 ( h5 p1 )_f
1306
1306
      END
1307
1307
      SUBROUTINE ccsdtq_lambda4_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
1308
1308
     &c_offset)
1309
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
1309
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
1310
1310
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1311
1311
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1312
1312
C     i1 ( h5 p1 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h5 h10 p1 p9 )_v
1467
1467
      END
1468
1468
      SUBROUTINE ccsdtq_lambda4_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
1469
1469
     &offset)
1470
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
1470
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
1471
1471
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1472
1472
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1473
1473
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = -1 * P( 24 ) * Sum ( h11 ) * y ( h5 h6 h11 p1 p2 p3 )_y * i1 ( h7 h8 h11 p4 )_v
1905
1905
      RETURN
1906
1906
      END
1907
1907
      SUBROUTINE ccsdtq_lambda4_3_1(d_a,k_a_offset,d_c,k_c_offset)
1908
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
1908
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
1909
1909
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1910
1910
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1911
1911
C     i1 ( h5 h6 h11 p1 )_v + = 1 * v ( h5 h6 h11 p1 )_v
2006
2006
      RETURN
2007
2007
      END
2008
2008
      SUBROUTINE OFFSET_ccsdtq_lambda4_3_1(l_a_offset,k_a_offset,size)
2009
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2009
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
2010
2010
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2011
2011
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2012
2012
C     i1 ( h5 h6 h11 p1 )_v
2076
2076
      END
2077
2077
      SUBROUTINE ccsdtq_lambda4_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
2078
2078
     &c_offset)
2079
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2079
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
2080
2080
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2081
2081
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2082
2082
C     i1 ( h5 h6 h11 p1 )_vt + = -1 * Sum ( p9 ) * t ( p9 h11 )_t * v ( h5 h6 p1 p9 )_v
2230
2230
      END
2231
2231
      SUBROUTINE ccsdtq_lambda4_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2232
2232
     &offset)
2233
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2233
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
2234
2234
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2235
2235
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2236
2236
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = -1 * P( 24 ) * Sum ( p9 ) * y ( h5 h6 h7 p1 p2 p9 )_y * v ( h8 p9 p3 p4 )_v
2668
2668
      END
2669
2669
      SUBROUTINE ccsdtq_lambda4_5(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
2670
2670
     &offset)
2671
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2671
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
2672
2672
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2673
2673
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2674
2674
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yf + = -1 * P( 4 ) * Sum ( h13 ) * y ( h5 h6 h7 h13 p1 p2 p3 p4 )_y * i1 ( h8 h13 )_f
2906
2906
      RETURN
2907
2907
      END
2908
2908
      SUBROUTINE ccsdtq_lambda4_5_1(d_a,k_a_offset,d_c,k_c_offset)
2909
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2909
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z 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 ( h5 h13 )_f + = 1 * f ( h5 h13 )_f
2990
2990
      RETURN
2991
2991
      END
2992
2992
      SUBROUTINE OFFSET_ccsdtq_lambda4_5_1(l_a_offset,k_a_offset,size)
2993
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
2993
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
2994
2994
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2995
2995
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2996
2996
C     i1 ( h5 h13 )_f
3046
3046
      END
3047
3047
      SUBROUTINE ccsdtq_lambda4_5_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3048
3048
     &c_offset)
3049
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3049
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3050
3050
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3051
3051
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3052
3052
C     i1 ( h5 h13 )_ft + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h5 p9 )_f
3173
3173
      RETURN
3174
3174
      END
3175
3175
      SUBROUTINE ccsdtq_lambda4_5_2_1(d_a,k_a_offset,d_c,k_c_offset)
3176
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3176
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3177
3177
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3178
3178
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3179
3179
C     i2 ( h5 p9 )_f + = 1 * f ( h5 p9 )_f
3257
3257
      RETURN
3258
3258
      END
3259
3259
      SUBROUTINE OFFSET_ccsdtq_lambda4_5_2_1(l_a_offset,k_a_offset,size)
3260
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3260
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3261
3261
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3262
3262
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3263
3263
C     i2 ( h5 p9 )_f
3313
3313
      END
3314
3314
      SUBROUTINE ccsdtq_lambda4_5_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
3315
3315
     &k_c_offset)
3316
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3316
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3317
3317
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3318
3318
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3319
3319
C     i2 ( h5 p9 )_vt + = 1 * Sum ( h12 p11 ) * t ( p11 h12 )_t * v ( h5 h12 p9 p11 )_v
3474
3474
      END
3475
3475
      SUBROUTINE ccsdtq_lambda4_5_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3476
3476
     &c_offset)
3477
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3477
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3478
3478
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3479
3479
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3480
3480
C     i1 ( h5 h13 )_vt + = 1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h5 h10 h13 p9 )_v
3619
3619
      END
3620
3620
      SUBROUTINE ccsdtq_lambda4_5_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
3621
3621
     &c_offset)
3622
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3622
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3623
3623
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3624
3624
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3625
3625
C     i1 ( h5 h13 )_vt + = -1/2 * Sum ( h12 p9 p10 ) * t ( p9 p10 h12 h13 )_t * v ( h5 h12 p9 p10 )_v
3796
3796
      END
3797
3797
      SUBROUTINE ccsdtq_lambda4_6(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
3798
3798
     &offset)
3799
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
3799
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
3800
3800
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3801
3801
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3802
3802
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yf + = 1 * P( 4 ) * Sum ( p14 ) * y ( h5 h6 h7 h8 p1 p2 p3 p14 )_y * i1 ( p14 p4 )_f
4034
4034
      RETURN
4035
4035
      END
4036
4036
      SUBROUTINE ccsdtq_lambda4_6_1(d_a,k_a_offset,d_c,k_c_offset)
4037
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4037
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4038
4038
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4039
4039
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4040
4040
C     i1 ( p14 p1 )_f + = 1 * f ( p14 p1 )_f
4118
4118
      RETURN
4119
4119
      END
4120
4120
      SUBROUTINE OFFSET_ccsdtq_lambda4_6_1(l_a_offset,k_a_offset,size)
4121
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4121
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4122
4122
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4123
4123
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4124
4124
C     i1 ( p14 p1 )_f
4175
4175
      END
4176
4176
      SUBROUTINE ccsdtq_lambda4_6_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
4177
4177
     &c_offset)
4178
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4178
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4179
4179
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4180
4180
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4181
4181
C     i1 ( p14 p1 )_vt + = -1 * Sum ( h10 p9 ) * t ( p9 h10 )_t * v ( h10 p14 p1 p9 )_v
4320
4320
      END
4321
4321
      SUBROUTINE ccsdtq_lambda4_6_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
4322
4322
     &c_offset)
4323
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4323
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4324
4324
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4325
4325
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4326
4326
C     i1 ( p14 p1 )_vt + = 1/2 * Sum ( h11 h12 p10 ) * t ( p10 p14 h11 h12 )_t * v ( h11 h12 p1 p10 )_v
4498
4498
      END
4499
4499
      SUBROUTINE ccsdtq_lambda4_6_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
4500
4500
     &c_offset)
4501
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4501
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4502
4502
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4503
4503
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4504
4504
C     i1 ( p14 p1 )_vtt + = -1 * Sum ( h10 ) * t ( p14 h10 )_t * i2 ( h10 p1 )_vt
4626
4626
      END
4627
4627
      SUBROUTINE ccsdtq_lambda4_6_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
4628
4628
     &k_c_offset)
4629
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4629
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4630
4630
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4631
4631
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4632
4632
C     i2 ( h10 p1 )_vt + = 1 * Sum ( h12 p11 ) * t ( p11 h12 )_t * v ( h10 h12 p1 p11 )_v
4787
4787
      RETURN
4788
4788
      END
4789
4789
      SUBROUTINE OFFSET_ccsdtq_lambda4_6_4_1(l_a_offset,k_a_offset,size)
4790
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4790
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4791
4791
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4792
4792
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4793
4793
C     i2 ( h10 p1 )_vt
4843
4843
      END
4844
4844
      SUBROUTINE ccsdtq_lambda4_7(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
4845
4845
     &offset)
4846
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
4846
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
4847
4847
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4848
4848
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4849
4849
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = 1/2 * P( 6 ) * Sum ( h14 h13 ) * y ( h5 h6 h13 h14 p1 p2 p3 p4 )_y * i1 ( h7 h8 h13 h14 )_v
5142
5142
      RETURN
5143
5143
      END
5144
5144
      SUBROUTINE ccsdtq_lambda4_7_1(d_a,k_a_offset,d_c,k_c_offset)
5145
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5145
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5146
5146
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5147
5147
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5148
5148
C     i1 ( h5 h6 h13 h14 )_v + = 1 * v ( h5 h6 h13 h14 )_v
5240
5240
      RETURN
5241
5241
      END
5242
5242
      SUBROUTINE OFFSET_ccsdtq_lambda4_7_1(l_a_offset,k_a_offset,size)
5243
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5243
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5244
5244
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5245
5245
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5246
5246
C     i1 ( h5 h6 h13 h14 )_v
5310
5310
      END
5311
5311
      SUBROUTINE ccsdtq_lambda4_7_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
5312
5312
     &c_offset)
5313
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5313
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5314
5314
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5315
5315
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5316
5316
C     i1 ( h5 h6 h13 h14 )_vt + = -2 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h5 h6 h14 p9 )_v
5463
5463
      RETURN
5464
5464
      END
5465
5465
      SUBROUTINE ccsdtq_lambda4_7_2_1(d_a,k_a_offset,d_c,k_c_offset)
5466
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5466
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5467
5467
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5468
5468
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5469
5469
C     i2 ( h5 h6 h14 p9 )_v + = 1 * v ( h5 h6 h14 p9 )_v
5562
5562
      RETURN
5563
5563
      END
5564
5564
      SUBROUTINE OFFSET_ccsdtq_lambda4_7_2_1(l_a_offset,k_a_offset,size)
5565
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5565
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5566
5566
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5567
5567
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5568
5568
C     i2 ( h5 h6 h14 p9 )_v
5632
5632
      END
5633
5633
      SUBROUTINE ccsdtq_lambda4_7_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,
5634
5634
     &k_c_offset)
5635
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5635
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5636
5636
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5637
5637
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5638
5638
C     i2 ( h5 h6 h14 p9 )_vt + = -1/2 * Sum ( p11 ) * t ( p11 h14 )_t * v ( h5 h6 p9 p11 )_v
5786
5786
      END
5787
5787
      SUBROUTINE ccsdtq_lambda4_7_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
5788
5788
     &c_offset)
5789
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5789
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5790
5790
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5791
5791
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5792
5792
C     i1 ( h5 h6 h13 h14 )_vt + = 1/2 * Sum ( p9 p10 ) * t ( p9 p10 h13 h14 )_t * v ( h5 h6 p9 p10 )_v
5949
5949
      END
5950
5950
      SUBROUTINE ccsdtq_lambda4_8(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
5951
5951
     &offset)
5952
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
5952
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
5953
5953
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5954
5954
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5955
5955
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = -1 * P( 16 ) * Sum ( h14 p11 ) * y ( h5 h6 h7 h14 p1 p2 p3 p11 )_y * i1 ( h8 p11 h14 p4 )_v
6450
6450
      RETURN
6451
6451
      END
6452
6452
      SUBROUTINE ccsdtq_lambda4_8_1(d_a,k_a_offset,d_c,k_c_offset)
6453
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
6453
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
6454
6454
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6455
6455
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6456
6456
C     i1 ( h5 p11 h14 p1 )_v + = 1 * v ( h5 p11 h14 p1 )_v
6551
6551
      RETURN
6552
6552
      END
6553
6553
      SUBROUTINE OFFSET_ccsdtq_lambda4_8_1(l_a_offset,k_a_offset,size)
6554
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
6554
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
6555
6555
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6556
6556
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6557
6557
C     i1 ( h5 p11 h14 p1 )_v
6621
6621
      END
6622
6622
      SUBROUTINE ccsdtq_lambda4_8_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
6623
6623
     &c_offset)
6624
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
6624
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
6625
6625
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6626
6626
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6627
6627
C     i1 ( h5 p11 h14 p1 )_vt + = -1 * Sum ( p9 ) * t ( p9 h14 )_t * v ( h5 p11 p1 p9 )_v
6775
6775
      END
6776
6776
      SUBROUTINE ccsdtq_lambda4_8_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
6777
6777
     &c_offset)
6778
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
6778
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
6779
6779
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6780
6780
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6781
6781
C     i1 ( h5 p11 h14 p1 )_vt + = -1 * Sum ( h12 p10 ) * t ( p10 p11 h12 h14 )_t * v ( h5 h12 p1 p10 )_v
6979
6979
      END
6980
6980
      SUBROUTINE ccsdtq_lambda4_8_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_
6981
6981
     &c_offset)
6982
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
6982
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
6983
6983
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6984
6984
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6985
6985
C     i1 ( h5 p11 h14 p1 )_vtt + = 1 * Sum ( h12 ) * t ( p11 h12 )_t * i2 ( h5 h12 h14 p1 )_vt
7123
7123
      END
7124
7124
      SUBROUTINE ccsdtq_lambda4_8_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,
7125
7125
     &k_c_offset)
7126
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
7126
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
7127
7127
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7128
7128
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7129
7129
C     i2 ( h5 h12 h14 p1 )_vt + = 1 * Sum ( p9 ) * t ( p9 h14 )_t * v ( h5 h12 p1 p9 )_v
7292
7292
      RETURN
7293
7293
      END
7294
7294
      SUBROUTINE OFFSET_ccsdtq_lambda4_8_4_1(l_a_offset,k_a_offset,size)
7295
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
7295
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
7296
7296
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7297
7297
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7298
7298
C     i2 ( h5 h12 h14 p1 )_vt
7364
7364
      END
7365
7365
      SUBROUTINE ccsdtq_lambda4_9(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_
7366
7366
     &offset)
7367
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
7367
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
7368
7368
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7369
7369
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7370
7370
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_yv + = 1/2 * P( 6 ) * Sum ( p10 p9 ) * y ( h5 h6 h7 h8 p1 p2 p9 p10 )_y * v ( p9 p10 p3 p4 )_v
7664
7664
      END
7665
7665
      SUBROUTINE ccsdtq_lambda4_10(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
7666
7666
     &_offset)
7667
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
7667
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
7668
7668
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7669
7669
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7670
7670
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytv + = 1 * P( 24 ) * Sum ( h13 ) * i1 ( h5 h6 h7 h13 p1 p2 )_yt * v ( h8 h13 p3 p4 )_v
8092
8092
      END
8093
8093
      SUBROUTINE ccsdtq_lambda4_10_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
8094
8094
     &_c_offset)
8095
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
8095
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
8096
8096
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8097
8097
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8098
8098
C     i1 ( h5 h6 h7 h13 p1 p2 )_yt + = 1 * Sum ( p9 ) * t ( p9 h13 )_t * y ( h5 h6 h7 p1 p2 p9 )_y
8265
8265
      RETURN
8266
8266
      END
8267
8267
      SUBROUTINE OFFSET_ccsdtq_lambda4_10_1(l_a_offset,k_a_offset,size)
8268
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
8268
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
8269
8269
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8270
8270
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8271
8271
C     i1 ( h5 h6 h7 h13 p1 p2 )_yt
8353
8353
      END
8354
8354
      SUBROUTINE ccsdtq_lambda4_10_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k
8355
8355
     &_c_offset)
8356
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
8356
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
8357
8357
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8358
8358
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8359
8359
C     i1 ( h5 h6 h7 h13 p1 p2 )_yt + = -1/2 * Sum ( h11 p10 p9 ) * t ( p9 p10 h11 h13 )_t * y ( h5 h6 h7 h11 p1 p2 p9 p10 )_y
8801
8801
      END
8802
8802
      SUBROUTINE ccsdtq_lambda4_11(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
8803
8803
     &_offset)
8804
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
8804
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
8805
8805
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8806
8806
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8807
8807
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytf + = 1 * P( 4 ) * Sum ( h9 ) * i1 ( h5 h6 h7 h8 h9 p1 p2 p3 )_yt * f ( h9 p4 )_f
9008
9008
      END
9009
9009
      SUBROUTINE ccsdtq_lambda4_11_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
9010
9010
     &_c_offset)
9011
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
9011
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
9012
9012
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9013
9013
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9014
9014
C     i1 ( h5 h6 h7 h8 h9 p1 p2 p3 )_yt + = -1 * Sum ( p10 ) * t ( p10 h9 )_t * y ( h5 h6 h7 h8 p1 p2 p3 p10 )_y
9210
9210
      RETURN
9211
9211
      END
9212
9212
      SUBROUTINE OFFSET_ccsdtq_lambda4_11_1(l_a_offset,k_a_offset,size)
9213
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
9213
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
9214
9214
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9215
9215
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9216
9216
C     i1 ( h5 h6 h7 h8 h9 p1 p2 p3 )_yt
9313
9313
      END
9314
9314
      SUBROUTINE ccsdtq_lambda4_12(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
9315
9315
     &_offset)
9316
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
9316
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
9317
9317
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9318
9318
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9319
9319
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytv + = 1 * P( 16 ) * Sum ( h11 h10 ) * i1 ( h5 h6 h7 h11 h10 p1 p2 p3 )_yt * v ( h8 h10 h11 p4 )_v
9661
9661
      END
9662
9662
      SUBROUTINE ccsdtq_lambda4_12_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
9663
9663
     &_c_offset)
9664
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
9664
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
9665
9665
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9666
9666
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9667
9667
C     i1 ( h5 h6 h7 h11 h10 p1 p2 p3 )_yt + = 1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h5 h6 h7 h11 p1 p2 p3 p9 )_y
9995
9995
      RETURN
9996
9996
      END
9997
9997
      SUBROUTINE OFFSET_ccsdtq_lambda4_12_1(l_a_offset,k_a_offset,size)
9998
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
9998
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
9999
9999
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10000
10000
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10001
10001
C     i1 ( h5 h6 h7 h11 h10 p1 p2 p3 )_yt
10098
10098
      END
10099
10099
      SUBROUTINE ccsdtq_lambda4_13(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
10100
10100
     &_offset)
10101
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
10101
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
10102
10102
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10103
10103
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10104
10104
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytv + = 1 * P( 6 ) * Sum ( h10 p11 ) * i1 ( h5 h6 h7 h8 h10 p1 p2 p11 )_yt * v ( h10 p11 p3 p4 )_v
10332
10332
      END
10333
10333
      SUBROUTINE ccsdtq_lambda4_13_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
10334
10334
     &_c_offset)
10335
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
10335
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
10336
10336
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10337
10337
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10338
10338
C     i1 ( h5 h6 h7 h8 h10 p1 p2 p11 )_yt + = -1 * Sum ( p9 ) * t ( p9 h10 )_t * y ( h5 h6 h7 h8 p1 p2 p9 p11 )_y
10620
10620
      RETURN
10621
10621
      END
10622
10622
      SUBROUTINE OFFSET_ccsdtq_lambda4_13_1(l_a_offset,k_a_offset,size)
10623
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
10623
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
10624
10624
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10625
10625
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10626
10626
C     i1 ( h5 h6 h7 h8 h10 p1 p2 p11 )_yt
10723
10723
      END
10724
10724
      SUBROUTINE ccsdtq_lambda4_14(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
10725
10725
     &_offset)
10726
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
10726
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
10727
10727
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10728
10728
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10729
10729
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytv + = -1/2 * P( 24 ) * Sum ( p10 ) * i1 ( h5 h6 p10 p1 p2 p3 )_yt * v ( h7 h8 p4 p10 )_v
11152
11152
      END
11153
11153
      SUBROUTINE ccsdtq_lambda4_14_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
11154
11154
     &_c_offset)
11155
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
11155
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
11156
11156
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11157
11157
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11158
11158
C     i1 ( h5 h6 p10 p1 p2 p3 )_yt + = 1 * Sum ( h12 h11 p9 ) * t ( p9 p10 h11 h12 )_t * y ( h5 h6 h11 h12 p1 p2 p3 p9 )_y
11598
11598
      RETURN
11599
11599
      END
11600
11600
      SUBROUTINE OFFSET_ccsdtq_lambda4_14_1(l_a_offset,k_a_offset,size)
11601
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
11601
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
11602
11602
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11603
11603
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11604
11604
C     i1 ( h5 h6 p10 p1 p2 p3 )_yt
11686
11686
      END
11687
11687
      SUBROUTINE ccsdtq_lambda4_15(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
11688
11688
     &_offset)
11689
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
11689
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
11690
11690
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11691
11691
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11692
11692
C     i0 ( h5 h6 h7 h8 p1 p2 p3 p4 )_ytv + = 1/4 * P( 6 ) * Sum ( h13 h12 ) * i1 ( h5 h6 h7 h8 h12 h13 p1 p2 )_yt * v ( h12 h13 p3 p4 )_v
11932
11932
      END
11933
11933
      SUBROUTINE ccsdtq_lambda4_15_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
11934
11934
     &_c_offset)
11935
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
11935
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
11936
11936
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11937
11937
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11938
11938
C     i1 ( h5 h6 h7 h8 h12 h13 p1 p2 )_yt + = 1 * Sum ( p10 p9 ) * t ( p9 p10 h12 h13 )_t * y ( h5 h6 h7 h8 p1 p2 p9 p10 )_y
12177
12177
      RETURN
12178
12178
      END
12179
12179
      SUBROUTINE OFFSET_ccsdtq_lambda4_15_1(l_a_offset,k_a_offset,size)
12180
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
12180
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
12181
12181
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
12182
12182
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
12183
12183
C     i1 ( h5 h6 h7 h8 h12 h13 p1 p2 )_yt
12280
12280
      END
12281
12281
      SUBROUTINE ccsdtq_lambda4_15_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k
12282
12282
     &_c_offset)
12283
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
12283
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
12284
12284
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
12285
12285
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
12286
12286
C     i1 ( h5 h6 h7 h8 h12 h13 p1 p2 )_ytt + = 2 * Sum ( p9 ) * t ( p9 h13 )_t * i2 ( h5 h6 h7 h8 h12 p1 p2 p9 )_yt
12465
12465
      END
12466
12466
      SUBROUTINE ccsdtq_lambda4_15_2_1(d_a,k_a_offset,d_b,k_b_offset,d_c
12467
12467
     &,k_c_offset)
12468
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
12468
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
12469
12469
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
12470
12470
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
12471
12471
C     i2 ( h5 h6 h7 h8 h12 p1 p2 p9 )_yt + = -1 * Sum ( p11 ) * t ( p11 h12 )_t * y ( h5 h6 h7 h8 p1 p2 p9 p11 )_y
12754
12754
      END
12755
12755
      SUBROUTINE OFFSET_ccsdtq_lambda4_15_2_1(l_a_offset,k_a_offset,size
12756
12756
     &)
12757
 
C     $Id: ccsdtq_lambda4.F,v 1.5 2008-10-03 13:33:11 jhammond Exp $
 
12757
C     $Id: ccsdtq_lambda4.F 19700 2010-10-29 17:11:57Z d3y133 $
12758
12758
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
12759
12759
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
12760
12760
C     i2 ( h5 h6 h7 h8 h12 p1 p2 p9 )_yt