← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tce/tce_mo2e_disk_2eorb.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/tce_mo2e_disk_2eorb.F
1
1
      SUBROUTINE tce_mo2e_disk_2eorb(rtdb,d_v2,kax_v2_alpha_offset,
2
2
     1                               size_2e)
3
 
C     $Id: tce_mo2e_disk_2eorb.F,v 1.6 2008-07-30 14:35:32 jhammond Exp $
 
3
C     $Id: tce_mo2e_disk_2eorb.F 21244 2011-10-20 18:21:45Z kowalski $
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     t ( p1 p2 h3 h4 )_t
119
119
      integer offset_bl1a3m,size_bl1a3m,a1_ini,a1_fin
120
120
c I/O improvements
121
121
      integer handle_4a,handle_3a1m,handle_2a2m,handle_1a3m
122
 
c
 
122
c new offseting for 13 and 14
 
123
      integer k_aux,l_aux,size_aux
123
124
c *** debug ***
124
125
c      double precision xxx,xmax
125
126
c      integer iqx
167
168
c
168
169
      max_size_temp=imaxsize**4
169
170
c
 
171
      call tce_mo2e_offset_intorb_old(l_aux,
 
172
     &         k_aux,size_aux)
170
173
c
171
174
      do ii=1,1000
172
175
       tot_zone(ii)=0.0d0
1703
1706
c       call util_flush(6)
1704
1707
c *************
1705
1708
         key_4m=ires
1706
 
         call tce_hash_n(int_mb(kax_v2_alpha_offset),key_4m,offset_4m)
 
1709
         call tce_hash_n(int_mb(k_aux),key_4m,offset_4m)
1707
1710
      call put_block_sf(d_v2,dbl_mb(k_4m),size_4m,
1708
1711
     &               offset_4m)
1709
1712
c
1804
1807
      if (.not.ma_pop_stack(l_integral))
1805
1808
     1  call errquit('tce_off_4a: MA problem',15,MA_ERR)
1806
1809
c
1807
 
 
 
1810
      if (.not.ma_pop_stack(l_aux))
 
1811
     1  call errquit('tce_off_4a: MA problem',15,MA_ERR)
1808
1812
c
1809
1813
      call ga_sync()
1810
1814
      if(sf_rwtor(d_v2).ne.0)