← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/ccsd_lambda/ccsd_density1.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_lambda/ccsd_density1.F
1
1
      SUBROUTINE ccsd_density1(d_d1,d_i0,d_t1,d_t2,d_y1,d_y2,k_d1_offset
2
2
     &,k_i0_offset,k_t1_offset,k_t2_offset,k_y1_offset,k_y2_offset)
3
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
3
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
4
4
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
5
5
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
6
6
C     i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d
122
122
      END
123
123
      SUBROUTINE ccsd_density1_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
124
124
     &ffset)
125
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
125
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
126
126
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
127
127
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
128
128
C     i0 ( )_yd + = 1 * Sum ( h4 p1 ) * y ( h4 p1 )_y * i1 ( p1 h4 )_d
238
238
      RETURN
239
239
      END
240
240
      SUBROUTINE ccsd_density1_1_1(d_a,k_a_offset,d_c,k_c_offset)
241
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
241
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
242
242
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
243
243
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
244
244
C     i1 ( p1 h4 )_d + = 1 * d ( p1 h4 )_d
322
322
      RETURN
323
323
      END
324
324
      SUBROUTINE OFFSET_ccsd_density1_1_1(l_a_offset,k_a_offset,size)
325
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
325
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
326
326
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
327
327
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
328
328
C     i1 ( p1 h4 )_d
378
378
      END
379
379
      SUBROUTINE ccsd_density1_1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
380
380
     &_offset)
381
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
381
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
382
382
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
383
383
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
384
384
C     i1 ( p1 h4 )_dt + = 1 * Sum ( p2 ) * d ( p1 p2 )_d * t ( p2 h4 )_t
506
506
      END
507
507
      SUBROUTINE ccsd_density1_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
508
508
     &ffset)
509
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
509
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
510
510
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
511
511
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
512
512
C     i0 ( )_td + = 1 * Sum ( p7 h8 ) * d ( h8 p7 )_d * i1 ( p7 h8 )_t
622
622
      RETURN
623
623
      END
624
624
      SUBROUTINE ccsd_density1_2_1(d_a,k_a_offset,d_c,k_c_offset)
625
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
625
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
626
626
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
627
627
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
628
628
C     i1 ( p7 h8 )_t + = 1 * t ( p7 h8 )_t
706
706
      RETURN
707
707
      END
708
708
      SUBROUTINE OFFSET_ccsd_density1_2_1(l_a_offset,k_a_offset,size)
709
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
709
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
710
710
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
711
711
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
712
712
C     i1 ( p7 h8 )_t
762
762
      END
763
763
      SUBROUTINE ccsd_density1_2_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
764
764
     &_offset)
765
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
765
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z 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     i1 ( p7 h8 )_yt + = 1 * Sum ( h4 p3 ) * t ( p3 p7 h4 h8 )_t * y ( h4 p3 )_y
924
924
      END
925
925
      SUBROUTINE ccsd_density1_2_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
926
926
     &_offset)
927
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
927
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
928
928
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
929
929
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
930
930
C     i1 ( p7 h8 )_ytt + = -1 * Sum ( h1 ) * t ( p7 h1 )_t * i2 ( h1 h8 )_yt
1052
1052
      END
1053
1053
      SUBROUTINE ccsd_density1_2_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
1054
1054
     &_c_offset)
1055
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1055
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1056
1056
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1057
1057
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1058
1058
C     i2 ( h1 h8 )_yt + = 1 * Sum ( p3 ) * t ( p3 h8 )_t * y ( h1 p3 )_y
1179
1179
      RETURN
1180
1180
      END
1181
1181
      SUBROUTINE OFFSET_ccsd_density1_2_3_1(l_a_offset,k_a_offset,size)
1182
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1182
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1183
1183
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1184
1184
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1185
1185
C     i2 ( h1 h8 )_yt
1235
1235
      END
1236
1236
      SUBROUTINE ccsd_density1_2_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k
1237
1237
     &_c_offset)
1238
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1238
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1239
1239
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1240
1240
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1241
1241
C     i2 ( h1 h8 )_yt + = -1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h5 h8 )_t * y ( h1 h5 p3 p4 )_y
1411
1411
      END
1412
1412
      SUBROUTINE ccsd_density1_2_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
1413
1413
     &_offset)
1414
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1414
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1415
1415
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1416
1416
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1417
1417
C     i1 ( p7 h8 )_ytt + = -1/2 * Sum ( h4 h5 p3 ) * t ( p3 p7 h4 h5 )_t * i2 ( h4 h5 h8 p3 )_yt
1579
1579
      END
1580
1580
      SUBROUTINE ccsd_density1_2_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k
1581
1581
     &_c_offset)
1582
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1582
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1583
1583
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1584
1584
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1585
1585
C     i2 ( h4 h5 h8 p3 )_yt + = 1 * Sum ( p6 ) * t ( p6 h8 )_t * y ( h4 h5 p3 p6 )_y
1732
1732
      RETURN
1733
1733
      END
1734
1734
      SUBROUTINE OFFSET_ccsd_density1_2_4_1(l_a_offset,k_a_offset,size)
1735
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1735
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1736
1736
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1737
1737
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1738
1738
C     i2 ( h4 h5 h8 p3 )_yt
1804
1804
      END
1805
1805
      SUBROUTINE ccsd_density1_3(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
1806
1806
     &ffset)
1807
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1807
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1808
1808
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1809
1809
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1810
1810
C     i0 ( )_ytd + = -1 * Sum ( h2 h1 ) * d ( h1 h2 )_d * i1 ( h2 h1 )_yt
1921
1921
      END
1922
1922
      SUBROUTINE ccsd_density1_3_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
1923
1923
     &_offset)
1924
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
1924
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
1925
1925
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
1926
1926
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
1927
1927
C     i1 ( h2 h1 )_yt + = 1 * Sum ( p3 ) * t ( p3 h1 )_t * y ( h2 p3 )_y
2048
2048
      RETURN
2049
2049
      END
2050
2050
      SUBROUTINE OFFSET_ccsd_density1_3_1(l_a_offset,k_a_offset,size)
2051
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
2051
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
2052
2052
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2053
2053
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2054
2054
C     i1 ( h2 h1 )_yt
2104
2104
      END
2105
2105
      SUBROUTINE ccsd_density1_3_2(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
2106
2106
     &_offset)
2107
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
2107
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
2108
2108
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2109
2109
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2110
2110
C     i1 ( h2 h1 )_yt + = 1/2 * Sum ( h5 p4 p3 ) * t ( p3 p4 h1 h5 )_t * y ( h2 h5 p3 p4 )_y
2280
2280
      END
2281
2281
      SUBROUTINE ccsd_density1_4(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c_o
2282
2282
     &ffset)
2283
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
2283
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
2284
2284
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2285
2285
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2286
2286
C     i0 ( )_ytd + = -1/2 * Sum ( p2 p1 ) * d ( p1 p2 )_d * i1 ( p2 p1 )_yt
2397
2397
      END
2398
2398
      SUBROUTINE ccsd_density1_4_1(d_a,k_a_offset,d_b,k_b_offset,d_c,k_c
2399
2399
     &_offset)
2400
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
2400
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
2401
2401
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2402
2402
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2403
2403
C     i1 ( p2 p1 )_yt + = -1 * Sum ( h5 h4 p3 ) * t ( p2 p3 h4 h5 )_t * y ( h4 h5 p1 p3 )_y
2572
2572
      RETURN
2573
2573
      END
2574
2574
      SUBROUTINE OFFSET_ccsd_density1_4_1(l_a_offset,k_a_offset,size)
2575
 
C     $Id: ccsd_density1.F,v 1.3 2005-12-16 22:22:18 kowalski Exp $
 
2575
C     $Id: ccsd_density1.F 19699 2010-10-29 17:07:13Z d3y133 $
2576
2576
C     This is a Fortran77 program generated by Tensor Contraction Engine v.1.0
2577
2577
C     Copyright (c) Battelle & Pacific Northwest National Laboratory (2002)
2578
2578
C     i1 ( p2 p1 )_yt