← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/tools/ga-4-3/global/examples/md_cluster/force.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/tools/ga-4-3/global/examples/md_cluster/force.F
 
1
c
 
2
c                                   NOTICE
 
3
c
 
4
c   This software is being made available for internal testing and
 
5
c   evaluation purposes only. This software is a pre-release test version
 
6
c   which has not yet been authenticated and cleared for publication. Adherence
 
7
c   to this notice may be necessary for the author, Battelle Memorial
 
8
c   Institute, to successfully assert copyright in and commercialize this
 
9
c   software. This software is not intended for duplication or distribution
 
10
c   to third parties without the permission of the Manager of Software
 
11
c   Products at Pacific Northwest Laboratory, Richland, Washington,  99352.
 
12
c
 
13
      subroutine force
 
14
#include "common.fh"
 
15
c
 
16
      double precision tbeg,wraptime
 
17
      integer i,j
 
18
      integer inode
 
19
c
 
20
      tbeg = wraptime()
 
21
c
 
22
c   clear forces
 
23
c
 
24
      do 100 j = 1, 3
 
25
        do 200 i = 1, antot
 
26
          ra(i,j,4) = 0.0d00
 
27
  200   continue
 
28
  100 continue
 
29
c
 
30
      do 300 i = 1, antot
 
31
        asev(i) = 0.0d00
 
32
  300 continue
 
33
c
 
34
      esvr = 0.0d00
 
35
      esvd = 0.0d00
 
36
      esvoh = 0.0d00
 
37
      esva = 0.0d00
 
38
      presf = 0.0d00
 
39
      presfx = 0.0d00
 
40
      presfy = 0.0d00
 
41
      presfz = 0.0d00
 
42
c
 
43
      call gather
 
44
c
 
45
c   clear buffers
 
46
c
 
47
      do i = 1, btot
 
48
        xfrc(i) = 0.0d00
 
49
        yfrc(i) = 0.0d00
 
50
        zfrc(i) = 0.0d00
 
51
      end do
 
52
c
 
53
c   assign atoms to individual molecules
 
54
c
 
55
      call pairs
 
56
      call scatter
 
57
c
 
58
      nrg(6) =esvr + esvd + esvoh + esva
 
59
      nrg(13) = esvr
 
60
      nrg(14) = esvd
 
61
      nrg(17) = esvoh
 
62
      nrg(21) = esva
 
63
      nrg(10) = presf
 
64
      nrg(18) = presfx
 
65
      nrg(19) = presfy
 
66
      nrg(20) = presfz
 
67
      presf = presf / (xbox * ybox * zbox)
 
68
      nrg(15) = presf/ 3.0d00
 
69
c
 
70
      tmstat(2) = tmstat(2) + wraptime() - tbeg
 
71
c
 
72
      return
 
73
      end