← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/ccsd_beta/beta_all_offsets.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/ccsd_beta/beta_all_offsets.F
1
1
      SUBROUTINE OFFSET_beta_1_1_1_1_1(l_a_offset,k_a_offset,size)
2
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3
3
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4
4
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5
5
C     i3 ( h4 p5 )_vtra
54
54
      RETURN
55
55
      END
56
56
      SUBROUTINE OFFSET_beta_1_1_1_1(l_a_offset,k_a_offset,size)
57
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
57
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
58
58
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
59
59
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
60
60
C     i2 ( h4 h8 )_vtratrc
109
109
      RETURN
110
110
      END
111
111
      SUBROUTINE OFFSET_beta_1_1_1_2_1(l_a_offset,k_a_offset,size)
112
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
112
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
113
113
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
114
114
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
115
115
C     i3 ( h4 p1 )_vtrc
164
164
      RETURN
165
165
      END
166
166
      SUBROUTINE OFFSET_beta_1_1_1(l_a_offset,k_a_offset,size)
167
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
167
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
168
168
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
169
169
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
170
170
C     i1 ( p9 h8 )_vtratrctrb
219
219
      RETURN
220
220
      END
221
221
      SUBROUTINE OFFSET_beta_1_1_2_1_1(l_a_offset,k_a_offset,size)
222
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
222
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
223
223
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
224
224
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
225
225
C     i3 ( h2 p5 )_vtrb
274
274
      RETURN
275
275
      END
276
276
      SUBROUTINE OFFSET_beta_1_1_2_1(l_a_offset,k_a_offset,size)
277
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
277
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
278
278
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
279
279
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
280
280
C     i2 ( h2 h8 )_vtrbtrc
329
329
      RETURN
330
330
      END
331
331
      SUBROUTINE OFFSET_beta_1_1_2_2_1(l_a_offset,k_a_offset,size)
332
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
332
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
333
333
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
334
334
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
335
335
C     i3 ( h2 p3 )_vtrc
384
384
      RETURN
385
385
      END
386
386
      SUBROUTINE OFFSET_beta_1_1_3_1_1(l_a_offset,k_a_offset,size)
387
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
387
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
388
388
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
389
389
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
390
390
C     i3 ( h6 p3 )_vtra
439
439
      RETURN
440
440
      END
441
441
      SUBROUTINE OFFSET_beta_1_1_3_1(l_a_offset,k_a_offset,size)
442
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
442
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
443
443
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
444
444
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
445
445
C     i2 ( h6 h8 )_vtratrb
494
494
      RETURN
495
495
      END
496
496
      SUBROUTINE OFFSET_beta_1_1_3_2_1(l_a_offset,k_a_offset,size)
497
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
497
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
498
498
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
499
499
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
500
500
C     i3 ( h6 p1 )_vtrb
549
549
      RETURN
550
550
      END
551
551
      SUBROUTINE OFFSET_beta_1_2_1_1_1(l_a_offset,k_a_offset,size)
552
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
552
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
553
553
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
554
554
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
555
555
C     i3 ( h6 h7 h11 p1 )_ytrb
620
620
      RETURN
621
621
      END
622
622
      SUBROUTINE OFFSET_beta_1_2_1_1(l_a_offset,k_a_offset,size)
623
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
623
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
624
624
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
625
625
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
626
626
C     i2 ( h6 h7 h10 h11 )_ytrbtra
691
691
      RETURN
692
692
      END
693
693
      SUBROUTINE OFFSET_beta_1_2_1(l_a_offset,k_a_offset,size)
694
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
694
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
695
695
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
696
696
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
697
697
C     i1 ( h7 p8 h10 h11 )_ytrbtratrc
762
762
      RETURN
763
763
      END
764
764
      SUBROUTINE OFFSET_beta_1_2_2_1_1(l_a_offset,k_a_offset,size)
765
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
765
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
766
766
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
767
767
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
768
768
C     i3 ( h4 h7 h11 p1 )_ytrc
833
833
      RETURN
834
834
      END
835
835
      SUBROUTINE OFFSET_beta_1_2_2_1(l_a_offset,k_a_offset,size)
836
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
836
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
837
837
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
838
838
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
839
839
C     i2 ( h4 h7 h10 h11 )_ytrctra
904
904
      RETURN
905
905
      END
906
906
      SUBROUTINE OFFSET_beta_1_2_3_1_1(l_a_offset,k_a_offset,size)
907
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
907
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
908
908
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
909
909
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
910
910
C     i3 ( h2 h7 h11 p3 )_ytrc
975
975
      RETURN
976
976
      END
977
977
      SUBROUTINE OFFSET_beta_1_2_3_1(l_a_offset,k_a_offset,size)
978
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
978
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
979
979
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
980
980
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
981
981
C     i2 ( h2 h7 h10 h11 )_ytrctrb
1046
1046
      RETURN
1047
1047
      END
1048
1048
      SUBROUTINE OFFSET_beta_1_3_1_1_1(l_a_offset,k_a_offset,size)
1049
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1049
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1050
1050
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1051
1051
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1052
1052
C     i3 ( h2 p9 h11 p3 )_vtrc
1117
1117
      RETURN
1118
1118
      END
1119
1119
      SUBROUTINE OFFSET_beta_1_3_1_1(l_a_offset,k_a_offset,size)
1120
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1120
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1121
1121
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1122
1122
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1123
1123
C     i2 ( h2 p9 h10 h11 )_vtrctrb
1188
1188
      RETURN
1189
1189
      END
1190
1190
      SUBROUTINE OFFSET_beta_1_3_1_2_1(l_a_offset,k_a_offset,size)
1191
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1191
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1192
1192
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1193
1193
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1194
1194
C     i3 ( h2 h6 h11 p4 )_vtrc
1259
1259
      RETURN
1260
1260
      END
1261
1261
      SUBROUTINE OFFSET_beta_1_3_1_3_1(l_a_offset,k_a_offset,size)
1262
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1262
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1263
1263
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1264
1264
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1265
1265
C     i3 ( h2 h8 h10 h11 )_vtrb
1330
1330
      RETURN
1331
1331
      END
1332
1332
      SUBROUTINE OFFSET_beta_1_3_1_4_1(l_a_offset,k_a_offset,size)
1333
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1333
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1334
1334
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1335
1335
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1336
1336
C     i3 ( h2 p4 )_vtrc
1385
1385
      RETURN
1386
1386
      END
1387
1387
      SUBROUTINE OFFSET_beta_1_3_1_5_1(l_a_offset,k_a_offset,size)
1388
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1388
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1389
1389
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1390
1390
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1391
1391
C     i3 ( h2 h8 h10 p6 )_vtrb
1456
1456
      RETURN
1457
1457
      END
1458
1458
      SUBROUTINE OFFSET_beta_1_3_1_6_1(l_a_offset,k_a_offset,size)
1459
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1459
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1460
1460
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1461
1461
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1462
1462
C     i3 ( h2 h4 h10 h11 )_vtrc
1527
1527
      RETURN
1528
1528
      END
1529
1529
      SUBROUTINE OFFSET_beta_1_3_1_7_1(l_a_offset,k_a_offset,size)
1530
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1530
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z 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     i3 ( h2 p6 )_vtrb
1582
1582
      RETURN
1583
1583
      END
1584
1584
      SUBROUTINE OFFSET_beta_1_3_1_8_1_1(l_a_offset,k_a_offset,size)
1585
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1585
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1586
1586
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1587
1587
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1588
1588
C     i4 ( h2 h4 h11 p5 )_vtrc
1653
1653
      RETURN
1654
1654
      END
1655
1655
      SUBROUTINE OFFSET_beta_1_3_1_8_1(l_a_offset,k_a_offset,size)
1656
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1656
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1657
1657
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1658
1658
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1659
1659
C     i3 ( h2 h4 h10 h11 )_vtrctrb
1724
1724
      RETURN
1725
1725
      END
1726
1726
      SUBROUTINE OFFSET_beta_1_3_1(l_a_offset,k_a_offset,size)
1727
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1727
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1728
1728
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1729
1729
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1730
1730
C     i1 ( p9 p12 h10 h11 )_vtrctrbtra
1795
1795
      RETURN
1796
1796
      END
1797
1797
      SUBROUTINE OFFSET_beta_1_3_2_1_1(l_a_offset,k_a_offset,size)
1798
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1798
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1799
1799
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1800
1800
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1801
1801
C     i3 ( h4 p9 h11 p1 )_vtrc
1866
1866
      RETURN
1867
1867
      END
1868
1868
      SUBROUTINE OFFSET_beta_1_3_2_1(l_a_offset,k_a_offset,size)
1869
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1869
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1870
1870
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1871
1871
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1872
1872
C     i2 ( h4 p9 h10 h11 )_vtrctra
1937
1937
      RETURN
1938
1938
      END
1939
1939
      SUBROUTINE OFFSET_beta_1_3_3_1_1(l_a_offset,k_a_offset,size)
1940
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
1940
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
1941
1941
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1942
1942
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1943
1943
C     i3 ( h6 p9 h11 p1 )_vtrb
2008
2008
      RETURN
2009
2009
      END
2010
2010
      SUBROUTINE OFFSET_beta_1_3_3_1(l_a_offset,k_a_offset,size)
2011
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2011
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2012
2012
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2013
2013
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2014
2014
C     i2 ( h6 p9 h10 h11 )_vtrbtra
2079
2079
      RETURN
2080
2080
      END
2081
2081
      SUBROUTINE OFFSET_beta_1_3_4_1_1(l_a_offset,k_a_offset,size)
2082
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2082
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2083
2083
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2084
2084
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2085
2085
C     i3 ( h8 p1 )_vtrb
2134
2134
      RETURN
2135
2135
      END
2136
2136
      SUBROUTINE OFFSET_beta_1_3_4_1(l_a_offset,k_a_offset,size)
2137
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2137
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2138
2138
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2139
2139
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2140
2140
C     i2 ( h8 h10 )_vtrbtra
2189
2189
      RETURN
2190
2190
      END
2191
2191
      SUBROUTINE OFFSET_beta_1_3_5_1_1(l_a_offset,k_a_offset,size)
2192
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2192
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2193
2193
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2194
2194
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2195
2195
C     i3 ( h3 h4 h11 p5 )_vtrc
2260
2260
      RETURN
2261
2261
      END
2262
2262
      SUBROUTINE OFFSET_beta_1_3_5_1(l_a_offset,k_a_offset,size)
2263
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2263
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2264
2264
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2265
2265
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2266
2266
C     i2 ( h3 h4 h10 h11 )_vtrctrb
2331
2331
      RETURN
2332
2332
      END
2333
2333
      SUBROUTINE OFFSET_beta_1_3_6_1_1(l_a_offset,k_a_offset,size)
2334
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2334
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2335
2335
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2336
2336
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2337
2337
C     i3 ( h4 h8 h11 p2 )_vtrb
2402
2402
      RETURN
2403
2403
      END
2404
2404
      SUBROUTINE OFFSET_beta_1_3_6_1(l_a_offset,k_a_offset,size)
2405
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2405
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2406
2406
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2407
2407
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2408
2408
C     i2 ( h8 p12 h10 h11 )_vtrbtra
2473
2473
      RETURN
2474
2474
      END
2475
2475
      SUBROUTINE OFFSET_beta_1_3_6_2_1(l_a_offset,k_a_offset,size)
2476
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2476
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2477
2477
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2478
2478
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2479
2479
C     i3 ( h8 p2 )_vtrb
2528
2528
      RETURN
2529
2529
      END
2530
2530
      SUBROUTINE OFFSET_beta_1_3_7_1_1(l_a_offset,k_a_offset,size)
2531
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2531
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2532
2532
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2533
2533
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2534
2534
C     i3 ( h4 p5 )_vtrc
2583
2583
      RETURN
2584
2584
      END
2585
2585
      SUBROUTINE OFFSET_beta_1_3_7_1(l_a_offset,k_a_offset,size)
2586
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2586
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2587
2587
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2588
2588
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2589
2589
C     i2 ( h4 h11 )_vtrctrb
2638
2638
      RETURN
2639
2639
      END
2640
2640
      SUBROUTINE OFFSET_beta_1_3_7_2_1(l_a_offset,k_a_offset,size)
2641
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2641
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2642
2642
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2643
2643
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2644
2644
C     i3 ( h4 p7 )_vtrb
2693
2693
      RETURN
2694
2694
      END
2695
2695
      SUBROUTINE OFFSET_beta_1_3_8_1_1_1(l_a_offset,k_a_offset,size)
2696
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2696
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2697
2697
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2698
2698
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2699
2699
C     i4 ( h2 h4 h11 p5 )_vtrc
2764
2764
      RETURN
2765
2765
      END
2766
2766
      SUBROUTINE OFFSET_beta_1_3_8_1_1(l_a_offset,k_a_offset,size)
2767
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2767
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2768
2768
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2769
2769
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2770
2770
C     i3 ( h2 h4 h10 h11 )_vtrctrb
2835
2835
      RETURN
2836
2836
      END
2837
2837
      SUBROUTINE OFFSET_beta_1_3_8_1(l_a_offset,k_a_offset,size)
2838
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2838
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2839
2839
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2840
2840
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2841
2841
C     i2 ( h2 p9 h10 h11 )_vtrctrbtra
2906
2906
      RETURN
2907
2907
      END
2908
2908
      SUBROUTINE OFFSET_beta_1_4_1_1_1(l_a_offset,k_a_offset,size)
2909
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2909
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z 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     i3 ( h2 h8 h10 h13 )_ytrb
2977
2977
      RETURN
2978
2978
      END
2979
2979
      SUBROUTINE OFFSET_beta_1_4_1_1_2_1(l_a_offset,k_a_offset,size)
2980
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
2980
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
2981
2981
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2982
2982
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2983
2983
C     i4 ( h2 h8 h13 p3 )_ytrb
3048
3048
      RETURN
3049
3049
      END
3050
3050
      SUBROUTINE OFFSET_beta_1_4_1_1(l_a_offset,k_a_offset,size)
3051
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3051
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3052
3052
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3053
3053
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3054
3054
C     i2 ( h2 p12 h10 h13 )_ytrbtrc
3119
3119
      RETURN
3120
3120
      END
3121
3121
      SUBROUTINE OFFSET_beta_1_4_1_2_1(l_a_offset,k_a_offset,size)
3122
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3122
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3123
3123
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3124
3124
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3125
3125
C     i3 ( h2 h5 h13 p3 )_ytrc
3190
3190
      RETURN
3191
3191
      END
3192
3192
      SUBROUTINE OFFSET_beta_1_4_1_3_1(l_a_offset,k_a_offset,size)
3193
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3193
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3194
3194
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3195
3195
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3196
3196
C     i3 ( h1 h2 h10 h13 )_ytrc
3261
3261
      RETURN
3262
3262
      END
3263
3263
      SUBROUTINE OFFSET_beta_1_4_1_3_2_1(l_a_offset,k_a_offset,size)
3264
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3264
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3265
3265
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3266
3266
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3267
3267
C     i4 ( h1 h2 h13 p3 )_ytrc
3332
3332
      RETURN
3333
3333
      END
3334
3334
      SUBROUTINE OFFSET_beta_1_4_1_4_1(l_a_offset,k_a_offset,size)
3335
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3335
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3336
3336
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3337
3337
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3338
3338
C     i3 ( h2 h7 h10 p5 )_ytrb
3403
3403
      RETURN
3404
3404
      END
3405
3405
      SUBROUTINE OFFSET_beta_1_4_1_5_1_1(l_a_offset,k_a_offset,size)
3406
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3406
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3407
3407
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3408
3408
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3409
3409
C     i4 ( h2 h4 h13 p5 )_ytrc
3474
3474
      RETURN
3475
3475
      END
3476
3476
      SUBROUTINE OFFSET_beta_1_4_1_5_1(l_a_offset,k_a_offset,size)
3477
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3477
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z 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     i3 ( h2 h4 h10 h13 )_ytrctrb
3545
3545
      RETURN
3546
3546
      END
3547
3547
      SUBROUTINE OFFSET_beta_1_4_1(l_a_offset,k_a_offset,size)
3548
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3548
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3549
3549
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3550
3550
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3551
3551
C     i1 ( p11 p12 h10 h13 )_ytrbtrctra
3616
3616
      RETURN
3617
3617
      END
3618
3618
      SUBROUTINE OFFSET_beta_1_4_2_1_1(l_a_offset,k_a_offset,size)
3619
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3619
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3620
3620
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3621
3621
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3622
3622
C     i3 ( h2 h10 )_ytrb
3671
3671
      RETURN
3672
3672
      END
3673
3673
      SUBROUTINE OFFSET_beta_1_4_2_1(l_a_offset,k_a_offset,size)
3674
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3674
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3675
3675
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3676
3676
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3677
3677
C     i2 ( p11 h10 )_ytrbtra
3726
3726
      RETURN
3727
3727
      END
3728
3728
      SUBROUTINE OFFSET_beta_1_4_2_2_1(l_a_offset,k_a_offset,size)
3729
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3729
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3730
3730
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3731
3731
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3732
3732
C     i3 ( h3 h4 h10 p1 )_ytrb
3797
3797
      RETURN
3798
3798
      END
3799
3799
      SUBROUTINE OFFSET_beta_1_4_3_1_1(l_a_offset,k_a_offset,size)
3800
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3800
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3801
3801
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3802
3802
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3803
3803
C     i3 ( h8 h13 )_ytrb
3852
3852
      RETURN
3853
3853
      END
3854
3854
      SUBROUTINE OFFSET_beta_1_4_3_1(l_a_offset,k_a_offset,size)
3855
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3855
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3856
3856
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3857
3857
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3858
3858
C     i2 ( p12 h13 )_ytrbtrc
3907
3907
      RETURN
3908
3908
      END
3909
3909
      SUBROUTINE OFFSET_beta_1_4_3_2_1(l_a_offset,k_a_offset,size)
3910
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3910
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3911
3911
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3912
3912
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3913
3913
C     i3 ( h5 h6 h13 p3 )_ytrc
3978
3978
      RETURN
3979
3979
      END
3980
3980
      SUBROUTINE OFFSET_beta_1_4_3_3_1(l_a_offset,k_a_offset,size)
3981
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
3981
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
3982
3982
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
3983
3983
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
3984
3984
C     i3 ( h4 h13 )_ytrc
4033
4033
      RETURN
4034
4034
      END
4035
4035
      SUBROUTINE OFFSET_beta_1_4_3_4_1(l_a_offset,k_a_offset,size)
4036
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4036
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4037
4037
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4038
4038
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4039
4039
C     i3 ( h7 h8 h13 p5 )_ytrb
4104
4104
      RETURN
4105
4105
      END
4106
4106
      SUBROUTINE OFFSET_beta_1_4_4_1_1(l_a_offset,k_a_offset,size)
4107
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4107
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4108
4108
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4109
4109
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4110
4110
C     i3 ( h3 h8 h13 p1 )_ytrb
4175
4175
      RETURN
4176
4176
      END
4177
4177
      SUBROUTINE OFFSET_beta_1_4_4_1(l_a_offset,k_a_offset,size)
4178
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4178
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z 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     i2 ( h8 p11 h10 h13 )_ytrbtra
4246
4246
      RETURN
4247
4247
      END
4248
4248
      SUBROUTINE OFFSET_beta_1_4_5_1_1(l_a_offset,k_a_offset,size)
4249
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4249
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4250
4250
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4251
4251
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4252
4252
C     i3 ( h3 h4 h13 p5 )_ytrc
4317
4317
      RETURN
4318
4318
      END
4319
4319
      SUBROUTINE OFFSET_beta_1_4_5_1(l_a_offset,k_a_offset,size)
4320
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4320
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4321
4321
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4322
4322
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4323
4323
C     i2 ( h3 h4 h10 h13 )_ytrctrb
4388
4388
      RETURN
4389
4389
      END
4390
4390
      SUBROUTINE OFFSET_beta_1_4_6_1_1_1(l_a_offset,k_a_offset,size)
4391
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4391
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4392
4392
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4393
4393
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4394
4394
C     i4 ( h2 h8 h13 p3 )_ytrb
4459
4459
      RETURN
4460
4460
      END
4461
4461
      SUBROUTINE OFFSET_beta_1_4_6_1_1(l_a_offset,k_a_offset,size)
4462
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4462
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4463
4463
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4464
4464
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4465
4465
C     i3 ( h2 h8 h10 h13 )_ytrbtra
4530
4530
      RETURN
4531
4531
      END
4532
4532
      SUBROUTINE OFFSET_beta_1_4_6_1(l_a_offset,k_a_offset,size)
4533
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4533
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4534
4534
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4535
4535
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4536
4536
C     i2 ( h2 p12 h10 h13 )_ytrbtratrc
4601
4601
      RETURN
4602
4602
      END
4603
4603
      SUBROUTINE OFFSET_beta_1_4_6_2_1_1(l_a_offset,k_a_offset,size)
4604
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4604
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4605
4605
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4606
4606
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4607
4607
C     i4 ( h2 h6 h13 p3 )_ytrc
4672
4672
      RETURN
4673
4673
      END
4674
4674
      SUBROUTINE OFFSET_beta_1_4_6_2_1(l_a_offset,k_a_offset,size)
4675
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4675
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4676
4676
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4677
4677
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4678
4678
C     i3 ( h2 h6 h10 h13 )_ytrctra
4743
4743
      RETURN
4744
4744
      END
4745
4745
      SUBROUTINE OFFSET_beta_1_4_6_3_1_1(l_a_offset,k_a_offset,size)
4746
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4746
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4747
4747
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4748
4748
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4749
4749
C     i4 ( h2 h4 h13 p5 )_ytrc
4814
4814
      RETURN
4815
4815
      END
4816
4816
      SUBROUTINE OFFSET_beta_1_4_6_3_1(l_a_offset,k_a_offset,size)
4817
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4817
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4818
4818
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4819
4819
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4820
4820
C     i3 ( h2 h4 h10 h13 )_ytrctrb
4885
4885
      RETURN
4886
4886
      END
4887
4887
      SUBROUTINE OFFSET_beta_2_1_1_1(l_a_offset,k_a_offset,size)
4888
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4888
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4889
4889
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4890
4890
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4891
4891
C     i2 ( h7 h1 )_ytra
4940
4940
      RETURN
4941
4941
      END
4942
4942
      SUBROUTINE OFFSET_beta_2_1_1(l_a_offset,k_a_offset,size)
4943
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4943
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4944
4944
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
4945
4945
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
4946
4946
C     i1 ( p2 h1 )_ytratrb
4995
4995
      RETURN
4996
4996
      END
4997
4997
      SUBROUTINE OFFSET_beta_2_1_2_1(l_a_offset,k_a_offset,size)
4998
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
4998
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
4999
4999
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5000
5000
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5001
5001
C     i2 ( h3 h1 )_ytrb
5050
5050
      RETURN
5051
5051
      END
5052
5052
      SUBROUTINE OFFSET_beta_2_1_3_1(l_a_offset,k_a_offset,size)
5053
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5053
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5054
5054
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5055
5055
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5056
5056
C     i2 ( h4 h5 h1 p3 )_ytrb
5121
5121
      RETURN
5122
5122
      END
5123
5123
      SUBROUTINE OFFSET_beta_2_1_4_1(l_a_offset,k_a_offset,size)
5124
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5124
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5125
5125
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5126
5126
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5127
5127
C     i2 ( h5 h6 h1 p4 )_ytra
5192
5192
      RETURN
5193
5193
      END
5194
5194
      SUBROUTINE OFFSET_beta_3_1_1_1(l_a_offset,k_a_offset,size)
5195
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5195
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5196
5196
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5197
5197
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5198
5198
C     i2 ( h7 h1 )_ytra
5247
5247
      RETURN
5248
5248
      END
5249
5249
      SUBROUTINE OFFSET_beta_3_1_1(l_a_offset,k_a_offset,size)
5250
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5250
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5251
5251
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5252
5252
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5253
5253
C     i1 ( p2 h1 )_ytratrb
5302
5302
      RETURN
5303
5303
      END
5304
5304
      SUBROUTINE OFFSET_beta_3_1_2_1(l_a_offset,k_a_offset,size)
5305
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5305
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5306
5306
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5307
5307
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5308
5308
C     i2 ( h3 h1 )_ytrb
5357
5357
      RETURN
5358
5358
      END
5359
5359
      SUBROUTINE OFFSET_beta_3_1_3_1(l_a_offset,k_a_offset,size)
5360
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5360
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5361
5361
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5362
5362
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5363
5363
C     i2 ( h4 h5 h1 p3 )_ytrb
5428
5428
      RETURN
5429
5429
      END
5430
5430
      SUBROUTINE OFFSET_beta_3_1_4_1(l_a_offset,k_a_offset,size)
5431
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5431
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5432
5432
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5433
5433
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5434
5434
C     i2 ( h5 h6 h1 p4 )_ytra
5499
5499
      RETURN
5500
5500
      END
5501
5501
      SUBROUTINE OFFSET_beta_3_2_1_1(l_a_offset,k_a_offset,size)
5502
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5502
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5503
5503
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5504
5504
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5505
5505
C     i2 ( h9 h8 )_vtra
5554
5554
      RETURN
5555
5555
      END
5556
5556
      SUBROUTINE OFFSET_beta_3_2_1_3_1(l_a_offset,k_a_offset,size)
5557
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5557
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5558
5558
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5559
5559
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5560
5560
C     i3 ( h9 p3 )_vt
5609
5609
      RETURN
5610
5610
      END
5611
5611
      SUBROUTINE OFFSET_beta_3_2_1_4_1(l_a_offset,k_a_offset,size)
5612
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5612
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5613
5613
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5614
5614
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5615
5615
C     i3 ( h9 p1 )_vtra
5664
5664
      RETURN
5665
5665
      END
5666
5666
      SUBROUTINE OFFSET_beta_3_2_1(l_a_offset,k_a_offset,size)
5667
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5667
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5668
5668
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5669
5669
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5670
5670
C     i1 ( p7 h8 )_vtratrb
5719
5719
      RETURN
5720
5720
      END
5721
5721
      SUBROUTINE OFFSET_beta_3_2_2_1(l_a_offset,k_a_offset,size)
5722
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5722
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5723
5723
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5724
5724
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5725
5725
C     i2 ( h10 h8 )_vtrb
5774
5774
      RETURN
5775
5775
      END
5776
5776
      SUBROUTINE OFFSET_beta_3_2_2_3_1(l_a_offset,k_a_offset,size)
5777
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5777
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5778
5778
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5779
5779
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5780
5780
C     i3 ( h10 p5 )_vt
5829
5829
      RETURN
5830
5830
      END
5831
5831
      SUBROUTINE OFFSET_beta_3_2_2_4_1(l_a_offset,k_a_offset,size)
5832
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5832
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5833
5833
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5834
5834
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5835
5835
C     i3 ( h10 p1 )_vtrb
5884
5884
      RETURN
5885
5885
      END
5886
5886
      SUBROUTINE OFFSET_beta_3_2_3_1(l_a_offset,k_a_offset,size)
5887
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5887
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5888
5888
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5889
5889
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5890
5890
C     i2 ( p7 p3 )_vtra
5939
5939
      RETURN
5940
5940
      END
5941
5941
      SUBROUTINE OFFSET_beta_3_2_4_1(l_a_offset,k_a_offset,size)
5942
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5942
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5943
5943
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5944
5944
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
5945
5945
C     i2 ( p7 p1 )_vtrb
5994
5994
      RETURN
5995
5995
      END
5996
5996
      SUBROUTINE OFFSET_beta_3_2_5_1(l_a_offset,k_a_offset,size)
5997
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
5997
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
5998
5998
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5999
5999
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6000
6000
C     i2 ( h3 h4 h8 p2 )_vtrb
6065
6065
      RETURN
6066
6066
      END
6067
6067
      SUBROUTINE OFFSET_beta_3_2_6_1(l_a_offset,k_a_offset,size)
6068
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6068
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6069
6069
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6070
6070
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6071
6071
C     i2 ( h4 p2 )_vtrb
6120
6120
      RETURN
6121
6121
      END
6122
6122
      SUBROUTINE OFFSET_beta_3_2_7_1(l_a_offset,k_a_offset,size)
6123
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6123
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6124
6124
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6125
6125
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6126
6126
C     i2 ( h5 h6 h8 p4 )_vtra
6191
6191
      RETURN
6192
6192
      END
6193
6193
      SUBROUTINE OFFSET_beta_3_2_8_1(l_a_offset,k_a_offset,size)
6194
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6194
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6195
6195
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6196
6196
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6197
6197
C     i2 ( h6 p4 )_vtra
6246
6246
      RETURN
6247
6247
      END
6248
6248
      SUBROUTINE OFFSET_beta_3_2_9_1_1(l_a_offset,k_a_offset,size)
6249
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6249
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6250
6250
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6251
6251
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6252
6252
C     i3 ( h2 p5 )_vtra
6301
6301
      RETURN
6302
6302
      END
6303
6303
      SUBROUTINE OFFSET_beta_3_2_9_1(l_a_offset,k_a_offset,size)
6304
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6304
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6305
6305
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6306
6306
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6307
6307
C     i2 ( h2 h8 )_vtratrb
6356
6356
      RETURN
6357
6357
      END
6358
6358
      SUBROUTINE OFFSET_beta_3_2_9_2_1(l_a_offset,k_a_offset,size)
6359
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6359
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6360
6360
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6361
6361
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6362
6362
C     i3 ( h2 p3 )_vtrb
6411
6411
      RETURN
6412
6412
      END
6413
6413
      SUBROUTINE OFFSET_beta_3_3_1_1(l_a_offset,k_a_offset,size)
6414
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6414
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6415
6415
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6416
6416
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6417
6417
C     i2 ( h5 h6 h4 p1 )_ytrb
6482
6482
      RETURN
6483
6483
      END
6484
6484
      SUBROUTINE OFFSET_beta_3_3_1(l_a_offset,k_a_offset,size)
6485
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6485
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6486
6486
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6487
6487
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6488
6488
C     i1 ( h5 h6 h2 h4 )_ytrbtra
6553
6553
      RETURN
6554
6554
      END
6555
6555
      SUBROUTINE OFFSET_beta_3_4_10_1_1(l_a_offset,k_a_offset,size)
6556
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6556
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6557
6557
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6558
6558
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6559
6559
C     i3 ( h2 p13 h10 p3 )_vtrb
6624
6624
      RETURN
6625
6625
      END
6626
6626
      SUBROUTINE OFFSET_beta_3_4_10_1(l_a_offset,k_a_offset,size)
6627
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6627
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6628
6628
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6629
6629
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6630
6630
C     i2 ( h2 p13 h9 h10 )_vtrbtra
6695
6695
      RETURN
6696
6696
      END
6697
6697
      SUBROUTINE OFFSET_beta_3_4_10_2_1(l_a_offset,k_a_offset,size)
6698
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6698
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6699
6699
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6700
6700
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6701
6701
C     i3 ( h2 h6 h10 p4 )_vtrb
6766
6766
      RETURN
6767
6767
      END
6768
6768
      SUBROUTINE OFFSET_beta_3_4_10_3_1(l_a_offset,k_a_offset,size)
6769
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6769
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6770
6770
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6771
6771
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6772
6772
C     i3 ( h2 h8 h9 h10 )_vtra
6837
6837
      RETURN
6838
6838
      END
6839
6839
      SUBROUTINE OFFSET_beta_3_4_10_4_1(l_a_offset,k_a_offset,size)
6840
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6840
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6841
6841
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6842
6842
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6843
6843
C     i3 ( h2 p4 )_vtrb
6892
6892
      RETURN
6893
6893
      END
6894
6894
      SUBROUTINE OFFSET_beta_3_4_10_5_1(l_a_offset,k_a_offset,size)
6895
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6895
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6896
6896
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6897
6897
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6898
6898
C     i3 ( h2 h8 h9 p6 )_vtra
6963
6963
      RETURN
6964
6964
      END
6965
6965
      SUBROUTINE OFFSET_beta_3_4_10_6_1(l_a_offset,k_a_offset,size)
6966
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
6966
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
6967
6967
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
6968
6968
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6969
6969
C     i3 ( h2 h4 h9 h10 )_vtrb
7034
7034
      RETURN
7035
7035
      END
7036
7036
      SUBROUTINE OFFSET_beta_3_4_10_7_1(l_a_offset,k_a_offset,size)
7037
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7037
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7038
7038
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7039
7039
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7040
7040
C     i3 ( h2 p6 )_vtra
7089
7089
      RETURN
7090
7090
      END
7091
7091
      SUBROUTINE OFFSET_beta_3_4_10_8_1_1(l_a_offset,k_a_offset,size)
7092
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7092
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7093
7093
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7094
7094
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7095
7095
C     i4 ( h2 h4 h10 p5 )_vtrb
7160
7160
      RETURN
7161
7161
      END
7162
7162
      SUBROUTINE OFFSET_beta_3_4_10_8_1(l_a_offset,k_a_offset,size)
7163
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7163
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7164
7164
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7165
7165
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7166
7166
C     i3 ( h2 h4 h9 h10 )_vtrbtra
7231
7231
      RETURN
7232
7232
      END
7233
7233
      SUBROUTINE OFFSET_beta_3_4_11_1_1(l_a_offset,k_a_offset,size)
7234
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7234
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7235
7235
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7236
7236
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7237
7237
C     i3 ( h8 p1 )_vtra
7286
7286
      RETURN
7287
7287
      END
7288
7288
      SUBROUTINE OFFSET_beta_3_4_11_1(l_a_offset,k_a_offset,size)
7289
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7289
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7290
7290
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7291
7291
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7292
7292
C     i2 ( h8 h9 )_vtrat
7341
7341
      RETURN
7342
7342
      END
7343
7343
      SUBROUTINE OFFSET_beta_3_4_1_1(l_a_offset,k_a_offset,size)
7344
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7344
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7345
7345
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7346
7346
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7347
7347
C     i2 ( h6 p13 h9 h10 )_vtrb
7412
7412
      RETURN
7413
7413
      END
7414
7414
      SUBROUTINE OFFSET_beta_3_4_12_1_1(l_a_offset,k_a_offset,size)
7415
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7415
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7416
7416
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7417
7417
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7418
7418
C     i3 ( h3 h4 h10 p5 )_vtrb
7483
7483
      RETURN
7484
7484
      END
7485
7485
      SUBROUTINE OFFSET_beta_3_4_12_1(l_a_offset,k_a_offset,size)
7486
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7486
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7487
7487
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7488
7488
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7489
7489
C     i2 ( h3 h4 h9 h10 )_vtrbtra
7554
7554
      RETURN
7555
7555
      END
7556
7556
      SUBROUTINE OFFSET_beta_3_4_13_1_1(l_a_offset,k_a_offset,size)
7557
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7557
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7558
7558
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7559
7559
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7560
7560
C     i3 ( h4 h8 h10 p2 )_vtra
7625
7625
      RETURN
7626
7626
      END
7627
7627
      SUBROUTINE OFFSET_beta_3_4_1_3_1(l_a_offset,k_a_offset,size)
7628
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7628
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7629
7629
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7630
7630
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7631
7631
C     i3 ( h6 p13 h10 p1 )_vtrb
7696
7696
      RETURN
7697
7697
      END
7698
7698
      SUBROUTINE OFFSET_beta_3_4_13_1(l_a_offset,k_a_offset,size)
7699
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7699
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7700
7700
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7701
7701
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7702
7702
C     i2 ( h8 p11 h9 h10 )_vtrat
7767
7767
      RETURN
7768
7768
      END
7769
7769
      SUBROUTINE OFFSET_beta_3_4_13_2_1(l_a_offset,k_a_offset,size)
7770
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7770
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7771
7771
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7772
7772
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7773
7773
C     i3 ( h8 p2 )_vtra
7822
7822
      RETURN
7823
7823
      END
7824
7824
      SUBROUTINE OFFSET_beta_3_4_14_1_1(l_a_offset,k_a_offset,size)
7825
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7825
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7826
7826
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7827
7827
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7828
7828
C     i3 ( h4 p5 )_vtrb
7877
7877
      RETURN
7878
7878
      END
7879
7879
      SUBROUTINE OFFSET_beta_3_4_14_1(l_a_offset,k_a_offset,size)
7880
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7880
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7881
7881
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7882
7882
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7883
7883
C     i2 ( h4 h10 )_vtrbtra
7932
7932
      RETURN
7933
7933
      END
7934
7934
      SUBROUTINE OFFSET_beta_3_4_14_2_1(l_a_offset,k_a_offset,size)
7935
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7935
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7936
7936
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7937
7937
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7938
7938
C     i3 ( h4 p7 )_vtra
7987
7987
      RETURN
7988
7988
      END
7989
7989
      SUBROUTINE OFFSET_beta_3_4_1(l_a_offset,k_a_offset,size)
7990
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
7990
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
7991
7991
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
7992
7992
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
7993
7993
C     i1 ( p11 p13 h9 h10 )_vtrbtra
8058
8058
      RETURN
8059
8059
      END
8060
8060
      SUBROUTINE OFFSET_beta_3_4_2_1(l_a_offset,k_a_offset,size)
8061
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8061
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8062
8062
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8063
8063
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8064
8064
C     i2 ( p11 p13 h10 p1 )_vtrb
8129
8129
      RETURN
8130
8130
      END
8131
8131
      SUBROUTINE OFFSET_beta_3_4_3_1(l_a_offset,k_a_offset,size)
8132
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8132
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8133
8133
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8134
8134
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8135
8135
C     i2 ( h4 p13 h10 p2 )_vtrb
8200
8200
      RETURN
8201
8201
      END
8202
8202
      SUBROUTINE OFFSET_beta_3_4_4_1(l_a_offset,k_a_offset,size)
8203
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8203
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8204
8204
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8205
8205
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8206
8206
C     i2 ( h6 p13 h9 h10 )_vtra
8271
8271
      RETURN
8272
8272
      END
8273
8273
      SUBROUTINE OFFSET_beta_3_4_4_2_1(l_a_offset,k_a_offset,size)
8274
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8274
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8275
8275
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8276
8276
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8277
8277
C     i3 ( h6 p13 h10 p1 )_vtra
8342
8342
      RETURN
8343
8343
      END
8344
8344
      SUBROUTINE OFFSET_beta_3_4_5_1(l_a_offset,k_a_offset,size)
8345
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8345
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8346
8346
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8347
8347
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8348
8348
C     i2 ( p13 p2 )_vtrb
8398
8398
      RETURN
8399
8399
      END
8400
8400
      SUBROUTINE OFFSET_beta_3_4_6_1(l_a_offset,k_a_offset,size)
8401
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8401
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8402
8402
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8403
8403
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8404
8404
C     i2 ( h6 p13 h9 p4 )_vtra
8469
8469
      RETURN
8470
8470
      END
8471
8471
      SUBROUTINE OFFSET_beta_3_4_7_1(l_a_offset,k_a_offset,size)
8472
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8472
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8473
8473
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8474
8474
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8475
8475
C     i2 ( p13 p4 )_vtra
8525
8525
      RETURN
8526
8526
      END
8527
8527
      SUBROUTINE OFFSET_beta_3_4_8_1(l_a_offset,k_a_offset,size)
8528
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8528
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8529
8529
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8530
8530
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8531
8531
C     i2 ( h3 h4 h9 h10 )_vtrb
8596
8596
      RETURN
8597
8597
      END
8598
8598
      SUBROUTINE OFFSET_beta_3_4_9_1(l_a_offset,k_a_offset,size)
8599
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8599
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8600
8600
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8601
8601
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8602
8602
C     i2 ( h4 h10 )_vtrb
8651
8651
      RETURN
8652
8652
      END
8653
8653
      SUBROUTINE OFFSET_beta_3_5_1_1(l_a_offset,k_a_offset,size)
8654
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8654
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8655
8655
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8656
8656
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8657
8657
C     i2 ( h2 h6 h4 p5 )_ytrb
8722
8722
      RETURN
8723
8723
      END
8724
8724
      SUBROUTINE OFFSET_beta_3_5_1(l_a_offset,k_a_offset,size)
8725
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8725
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8726
8726
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8727
8727
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8728
8728
C     i1 ( h6 p1 h4 p5 )_ytrbtra
8793
8793
      RETURN
8794
8794
      END
8795
8795
      SUBROUTINE OFFSET_beta_3_6_1_1(l_a_offset,k_a_offset,size)
8796
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8796
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8797
8797
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8798
8798
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8799
8799
C     i2 ( h6 h7 h9 h11 )_ytra
8864
8864
      RETURN
8865
8865
      END
8866
8866
      SUBROUTINE OFFSET_beta_3_6_1_2_1(l_a_offset,k_a_offset,size)
8867
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8867
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8868
8868
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8869
8869
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8870
8870
C     i3 ( h6 h7 h11 p1 )_ytra
8935
8935
      RETURN
8936
8936
      END
8937
8937
      SUBROUTINE OFFSET_beta_3_6_1(l_a_offset,k_a_offset,size)
8938
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
8938
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
8939
8939
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
8940
8940
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
8941
8941
C     i1 ( h7 p10 h9 h11 )_ytratrb
9006
9006
      RETURN
9007
9007
      END
9008
9008
      SUBROUTINE OFFSET_beta_3_6_2_1(l_a_offset,k_a_offset,size)
9009
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9009
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9010
9010
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9011
9011
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9012
9012
C     i2 ( h3 h7 h11 p1 )_ytrb
9077
9077
      RETURN
9078
9078
      END
9079
9079
      SUBROUTINE OFFSET_beta_3_6_3_1(l_a_offset,k_a_offset,size)
9080
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9080
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9081
9081
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9082
9082
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9083
9083
C     i2 ( h7 h9 )_ytra
9132
9132
      RETURN
9133
9133
      END
9134
9134
      SUBROUTINE OFFSET_beta_3_6_4_1(l_a_offset,k_a_offset,size)
9135
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9135
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9136
9136
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9137
9137
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9138
9138
C     i2 ( h6 h7 h9 h11 )_ytrb
9203
9203
      RETURN
9204
9204
      END
9205
9205
      SUBROUTINE OFFSET_beta_3_6_4_2_1(l_a_offset,k_a_offset,size)
9206
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9206
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9207
9207
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9208
9208
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9209
9209
C     i3 ( h6 h7 h11 p1 )_ytrb
9274
9274
      RETURN
9275
9275
      END
9276
9276
      SUBROUTINE OFFSET_beta_3_6_5_1(l_a_offset,k_a_offset,size)
9277
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9277
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9278
9278
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9279
9279
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9280
9280
C     i2 ( h5 h7 h9 p3 )_ytra
9345
9345
      RETURN
9346
9346
      END
9347
9347
      SUBROUTINE OFFSET_beta_3_6_6_1(l_a_offset,k_a_offset,size)
9348
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9348
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9349
9349
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9350
9350
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9351
9351
C     i2 ( h7 h11 )_ytrb
9400
9400
      RETURN
9401
9401
      END
9402
9402
      SUBROUTINE OFFSET_beta_3_6_7_1_1(l_a_offset,k_a_offset,size)
9403
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9403
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9404
9404
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9405
9405
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9406
9406
C     i3 ( h2 h7 h11 p3 )_ytrb
9471
9471
      RETURN
9472
9472
      END
9473
9473
      SUBROUTINE OFFSET_beta_3_6_7_1(l_a_offset,k_a_offset,size)
9474
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9474
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9475
9475
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9476
9476
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9477
9477
C     i2 ( h2 h7 h9 h11 )_ytrbtra
9542
9542
      RETURN
9543
9543
      END
9544
9544
      SUBROUTINE OFFSET_beta_3_7_1_1(l_a_offset,k_a_offset,size)
9545
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9545
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9546
9546
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9547
9547
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9548
9548
C     i2 ( p13 p1 )_ytrb
9598
9598
      RETURN
9599
9599
      END
9600
9600
      SUBROUTINE OFFSET_beta_3_7_1(l_a_offset,k_a_offset,size)
9601
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9601
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9602
9602
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9603
9603
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9604
9604
C     i1 ( p10 p13 h9 h12 )_ytrbtra
9669
9669
      RETURN
9670
9670
      END
9671
9671
      SUBROUTINE OFFSET_beta_3_7_2_1(l_a_offset,k_a_offset,size)
9672
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9672
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9673
9673
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9674
9674
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9675
9675
C     i2 ( h3 h9 )_ytrb
9724
9724
      RETURN
9725
9725
      END
9726
9726
      SUBROUTINE OFFSET_beta_3_7_3_1(l_a_offset,k_a_offset,size)
9727
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9727
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9728
9728
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9729
9729
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9730
9730
C     i2 ( h3 h4 h9 h12 )_ytrb
9795
9795
      RETURN
9796
9796
      END
9797
9797
      SUBROUTINE OFFSET_beta_3_7_4_1_1(l_a_offset,k_a_offset,size)
9798
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9798
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9799
9799
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9800
9800
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9801
9801
C     i3 ( h2 h8 h9 h12 )_ytra
9866
9866
      RETURN
9867
9867
      END
9868
9868
      SUBROUTINE OFFSET_beta_3_7_4_1_2_1(l_a_offset,k_a_offset,size)
9869
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9869
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9870
9870
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9871
9871
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9872
9872
C     i4 ( h2 h8 h9 p3 )_ytra
9937
9937
      RETURN
9938
9938
      END
9939
9939
      SUBROUTINE OFFSET_beta_3_7_4_1(l_a_offset,k_a_offset,size)
9940
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
9940
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
9941
9941
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
9942
9942
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
9943
9943
C     i2 ( h2 p13 h9 h12 )_ytratrb
10008
10008
      RETURN
10009
10009
      END
10010
10010
      SUBROUTINE OFFSET_beta_3_7_4_2_1(l_a_offset,k_a_offset,size)
10011
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10011
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10012
10012
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10013
10013
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10014
10014
C     i3 ( h2 h5 h9 p3 )_ytrb
10079
10079
      RETURN
10080
10080
      END
10081
10081
      SUBROUTINE OFFSET_beta_3_7_4_3_1(l_a_offset,k_a_offset,size)
10082
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10082
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10083
10083
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10084
10084
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10085
10085
C     i3 ( h1 h2 h9 h12 )_ytrb
10150
10150
      RETURN
10151
10151
      END
10152
10152
      SUBROUTINE OFFSET_beta_3_7_4_3_2_1(l_a_offset,k_a_offset,size)
10153
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10153
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10154
10154
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10155
10155
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10156
10156
C     i4 ( h1 h2 h9 p3 )_ytrb
10221
10221
      RETURN
10222
10222
      END
10223
10223
      SUBROUTINE OFFSET_beta_3_7_4_4_1(l_a_offset,k_a_offset,size)
10224
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10224
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10225
10225
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10226
10226
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10227
10227
C     i3 ( h2 h7 h12 p5 )_ytra
10292
10292
      RETURN
10293
10293
      END
10294
10294
      SUBROUTINE OFFSET_beta_3_7_4_5_1_1(l_a_offset,k_a_offset,size)
10295
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10295
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10296
10296
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10297
10297
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10298
10298
C     i4 ( h2 h4 h9 p5 )_ytrb
10363
10363
      RETURN
10364
10364
      END
10365
10365
      SUBROUTINE OFFSET_beta_3_7_4_5_1(l_a_offset,k_a_offset,size)
10366
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10366
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10367
10367
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10368
10368
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10369
10369
C     i3 ( h2 h4 h9 h12 )_ytrbtra
10434
10434
      RETURN
10435
10435
      END
10436
10436
      SUBROUTINE OFFSET_beta_3_7_5_1_1(l_a_offset,k_a_offset,size)
10437
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10437
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10438
10438
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10439
10439
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10440
10440
C     i3 ( h2 h12 )_ytra
10489
10489
      RETURN
10490
10490
      END
10491
10491
      SUBROUTINE OFFSET_beta_3_7_5_1(l_a_offset,k_a_offset,size)
10492
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10492
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10493
10493
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10494
10494
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10495
10495
C     i2 ( p10 h12 )_ytrat
10544
10544
      RETURN
10545
10545
      END
10546
10546
      SUBROUTINE OFFSET_beta_3_7_5_2_1(l_a_offset,k_a_offset,size)
10547
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10547
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10548
10548
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10549
10549
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10550
10550
C     i3 ( h3 h4 h12 p1 )_ytra
10615
10615
      RETURN
10616
10616
      END
10617
10617
      SUBROUTINE OFFSET_beta_3_7_6_1_1(l_a_offset,k_a_offset,size)
10618
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10618
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10619
10619
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10620
10620
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10621
10621
C     i3 ( h8 h9 )_ytra
10670
10670
      RETURN
10671
10671
      END
10672
10672
      SUBROUTINE OFFSET_beta_3_7_6_1(l_a_offset,k_a_offset,size)
10673
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10673
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z 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     i2 ( p13 h9 )_ytratrb
10725
10725
      RETURN
10726
10726
      END
10727
10727
      SUBROUTINE OFFSET_beta_3_7_6_2_1(l_a_offset,k_a_offset,size)
10728
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10728
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10729
10729
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10730
10730
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10731
10731
C     i3 ( h5 h6 h9 p3 )_ytrb
10796
10796
      RETURN
10797
10797
      END
10798
10798
      SUBROUTINE OFFSET_beta_3_7_6_3_1(l_a_offset,k_a_offset,size)
10799
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10799
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10800
10800
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10801
10801
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10802
10802
C     i3 ( h4 h9 )_ytrb
10851
10851
      RETURN
10852
10852
      END
10853
10853
      SUBROUTINE OFFSET_beta_3_7_6_4_1(l_a_offset,k_a_offset,size)
10854
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10854
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10855
10855
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10856
10856
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10857
10857
C     i3 ( h7 h8 h9 p5 )_ytra
10922
10922
      RETURN
10923
10923
      END
10924
10924
      SUBROUTINE OFFSET_beta_3_7_7_1_1(l_a_offset,k_a_offset,size)
10925
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10925
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10926
10926
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10927
10927
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10928
10928
C     i3 ( h3 h8 h9 p1 )_ytra
10993
10993
      RETURN
10994
10994
      END
10995
10995
      SUBROUTINE OFFSET_beta_3_7_7_1(l_a_offset,k_a_offset,size)
10996
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
10996
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
10997
10997
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
10998
10998
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
10999
10999
C     i2 ( h8 p10 h9 h12 )_ytrat
11064
11064
      RETURN
11065
11065
      END
11066
11066
      SUBROUTINE OFFSET_beta_3_7_8_1_1(l_a_offset,k_a_offset,size)
11067
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11067
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11068
11068
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11069
11069
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11070
11070
C     i3 ( h3 h4 h9 p5 )_ytrb
11135
11135
      RETURN
11136
11136
      END
11137
11137
      SUBROUTINE OFFSET_beta_3_7_8_1(l_a_offset,k_a_offset,size)
11138
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11138
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11139
11139
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11140
11140
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11141
11141
C     i2 ( h3 h4 h9 h12 )_ytrbtra
11206
11206
      RETURN
11207
11207
      END
11208
11208
      SUBROUTINE OFFSET_beta_4_1_1(l_a_offset,k_a_offset,size)
11209
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11209
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11210
11210
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11211
11211
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11212
11212
C     i1 ( h2 h1 )_ytr
11261
11261
      RETURN
11262
11262
      END
11263
11263
      SUBROUTINE OFFSET_beta_4_2_1(l_a_offset,k_a_offset,size)
11264
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11264
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11265
11265
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11266
11266
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11267
11267
C     i1 ( p1 h3 )_dtr
11316
11316
      RETURN
11317
11317
      END
11318
11318
      SUBROUTINE OFFSET_beta_4_3_1(l_a_offset,k_a_offset,size)
11319
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11319
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11320
11320
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11321
11321
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11322
11322
C     i1 ( p2 h1 )_ytr
11371
11371
      RETURN
11372
11372
      END
11373
11373
      SUBROUTINE OFFSET_beta_4_3_2_1(l_a_offset,k_a_offset,size)
11374
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11374
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11375
11375
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11376
11376
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11377
11377
C     i2 ( h3 h1 )_ytr
11426
11426
      RETURN
11427
11427
      END
11428
11428
      SUBROUTINE OFFSET_beta_4_3_3_1(l_a_offset,k_a_offset,size)
11429
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11429
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11430
11430
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11431
11431
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11432
11432
C     i2 ( h7 h1 )_yt
11481
11481
      RETURN
11482
11482
      END
11483
11483
      SUBROUTINE OFFSET_beta_4_3_4_1(l_a_offset,k_a_offset,size)
11484
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11484
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11485
11485
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11486
11486
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11487
11487
C     i2 ( h5 h6 h1 p4 )_yt
11552
11552
      RETURN
11553
11553
      END
11554
11554
      SUBROUTINE OFFSET_beta_4_3_5_1(l_a_offset,k_a_offset,size)
11555
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11555
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11556
11556
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11557
11557
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11558
11558
C     i2 ( h4 h5 h1 p3 )_ytr
11623
11623
      RETURN
11624
11624
      END
11625
11625
      SUBROUTINE OFFSET_beta_4_4_1(l_a_offset,k_a_offset,size)
11626
 
C     $Id: beta_all_offsets.F,v 1.1 2008-03-26 19:24:55 jhammond Exp $
 
11626
C     $Id: beta_all_offsets.F 19698 2010-10-29 17:03:09Z d3y133 $
11627
11627
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
11628
11628
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
11629
11629
C     i1 ( p2 p1 )_ytr