← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/ddscf/int2e_file.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/ddscf/int2e_file.F
1
1
      block data cint2efdata
2
2
*
3
 
* $Id: int2e_file.F,v 1.57 2003-12-25 17:10:05 edo Exp $
 
3
* $Id: int2e_file.F 20200 2011-04-14 22:04:50Z d3p852 $
4
4
*
5
5
      implicit none
6
6
#include "cint2efile.fh"
259
259
     $        call errquit('int2e_file_close: free heap?',0, MA_ERR)
260
260
      end if
261
261
c
262
 
      if (file_opened .or. l_cache.ne.-1) then
263
 
         call ga_igop(msg_int2e_stat1, n_rec_in_file, 1, '+')
264
 
         call ga_igop(msg_int2e_stat2, nlarge, 1, '+')
 
262
c     if (file_opened .or. l_cache.ne.-1) then
 
263
c
 
264
      call ga_igop(msg_int2e_stat1, n_rec_in_file, 1, '+')
 
265
      call ga_igop(msg_int2e_stat2, nlarge, 1, '+')
 
266
c
 
267
c     Now checking for # of records instead of l_cache
 
268
c
 
269
      if (n_rec_in_file.gt.0) then
265
270
         if (oinfo) then
266
271
            write(6,1) n_rec_in_file, nlarge
267
272
 1          format(/
821
826
         if (oinfo) then
822
827
            nbitv = 64
823
828
            if (ocompress) nbitv = 32
824
 
            write(6,20) actualname(1:inp_strlen(actualname)),
825
 
     $           rec_len_in_dbl,n_per_rec,max_cache_rec,max_file_rec,
826
 
     $           lab_pack_len, nbitv
 
829
            if (rec_len_in_dbl .gt. 999999 .or.
 
830
     $          n_per_rec .gt. 999999 .or.
 
831
     $          max_cache_rec .gt. 999999 .or.
 
832
     $          max_file_rec .gt. 999999) then
 
833
              write(6,21) actualname(1:inp_strlen(actualname)),
 
834
     $           rec_len_in_dbl,n_per_rec,max_cache_rec,max_file_rec,
 
835
     $           lab_pack_len, nbitv
 
836
            else
 
837
              write(6,20) actualname(1:inp_strlen(actualname)),
 
838
     $           rec_len_in_dbl,n_per_rec,max_cache_rec,max_file_rec,
 
839
     $           lab_pack_len, nbitv
 
840
            endif
827
841
 20         format(/
828
842
     $           ' Integral file          = ', a/
829
843
     $           ' Record size in doubles = ', i6,7x,
832
846
     $           ' Max. records in file   = ', i6/
833
847
     $           ' No. of bits per label  = ', i6,7x,
834
848
     $           ' No. of bits per value  = ', i6/)
 
849
 21         format(/
 
850
     $           ' Integral file          = ', a/
 
851
     $           ' Record size in doubles = ', i8,3x,
 
852
     $           ' No. of integs per rec  = ', i8/
 
853
     $           ' Max. records in memory = ', i8,3x,
 
854
     $           ' Max. records in file   = ', i8/
 
855
     $           ' No. of bits per label  = ', i8,3x,
 
856
     $           ' No. of bits per value  = ', i8/)
835
857
            call util_flush(6)
836
858
         end if
837
859
      end if