← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/nwdft/xc/xc_hcth.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/nwdft/xc/xc_hcth.F
3
3
     &                    Amat, Cmat, nq, ipol, Ex, Ec,  qwght,
4
4
     &                    ldew,func,funcname)     
5
5
c
6
 
c$Id: xc_hcth.F,v 1.35 2008-09-29 20:25:06 edo Exp $
 
6
c$Id: xc_hcth.F 20247 2011-04-28 18:58:49Z d3y133 $
7
7
c
8
8
      Implicit none
9
9
c
110
110
     &                      Amat, Amat2, Cmat, Cmat2, nq, ipol,
111
111
     &                      Ex, Ec,  qwght, ldew,func,funcname)
112
112
c
113
 
c$Id: xc_hcth.F,v 1.35 2008-09-29 20:25:06 edo Exp $
 
113
c$Id: xc_hcth.F 20247 2011-04-28 18:58:49Z d3y133 $
114
114
c
115
115
      Implicit none
116
116
#include "errquit.fh"
1046
1046
            F_xc(n*3+1) = F_xs (n, sol((n*3) + 1), rhoa, za)
1047
1047
          endif
1048
1048
        ENDIF
1049
 
          if(abs(u_caa).gt.tol_rho)then
 
1049
          if(u_caa.gt.tol_rho)then
1050
1050
             if(n.eq.0) then
1051
1051
             F_xc(2) = e_caa*c_naa
1052
1052
             else
1061
1061
          F_xc(n*3+1) = F_xc(n*3+1)+F_xs(n, sol((n*3) + 1), rhob, zb)
1062
1062
          endif
1063
1063
        ENDIF
1064
 
          if(abs(u_cbb).gt.tol_rho) then
 
1064
          if(u_cbb.gt.tol_rho) then
1065
1065
             if(n.eq.0) then
1066
1066
                F_xc(2) = F_xc(2)+e_cbb*c_nbb
1067
1067
             else
1069
1069
             endif
1070
1070
          endif
1071
1071
 
1072
 
          if(abs(u_cab).gt.tol_rho) then
 
1072
          if(u_cab.gt.tol_rho) then
1073
1073
             if(n.eq.0) then
1074
1074
                F_xc(3) = e_cab*c_nab
1075
1075
             else
1108
1108
          endif
1109
1109
           endif
1110
1110
 
1111
 
        if(abs(u_caa).gt.tol_rho) then
 
1111
        if(u_caa.gt.tol_rho) then
1112
1112
           if(n.eq.0) then
1113
1113
          dF_caa(1) = c_naa*de_caa_by_drhoa
1114
1114
          dF_caa(3) = 0d0
1124
1124
          endif
1125
1125
        endif
1126
1126
 
1127
 
        if(abs(u_cbb).gt.tol_rho) then
 
1127
        if(u_cbb.gt.tol_rho) then
1128
1128
           if(n.eq.0) then
1129
1129
          dF_cbb(2) = c_nbb*de_cbb_by_drhob 
1130
1130
          dF_cbb(4) = 0d0
1140
1140
        endif
1141
1141
 
1142
1142
 
1143
 
        if(abs(u_cab).gt.tol_rho) then
 
1143
        if(u_cab.gt.tol_rho) then
1144
1144
           if(n.eq.0) then
1145
1145
          dF_cab(1) = c_nab*de_cab_by_drhoa
1146
1146
          dF_cab(2) = c_nab*de_cab_by_drhob