ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90
(Generate patch)

Comparing trunk/OOPSE-4/src/UseTheForce/doForces_interface.F90 (file contents):
Revision 2508 by gezelter, Mon Dec 12 19:32:50 2005 UTC vs.
Revision 2917 by chrisfen, Mon Jul 3 13:18:43 2006 UTC

# Line 44 | Line 44 | subroutine setFortranElectrostaticMethod(electrostatic
44  
45   end subroutine doForceloop
46  
47 + subroutine getAccumulatedBoxDipole( box_dipole )
48 +  
49 +  use definitions, ONLY: dp
50 +  use doForces, ONLY: getBoxDipole
51 +
52 +  !! simulation box dipole moment
53 +  real ( kind = dp ), dimension(3) :: box_dipole
54 +  
55 +  call getBoxDipole( box_dipole )
56 +  
57 + end subroutine getAccumulatedBoxDipole
58 +
59 + subroutine setAccumulateBoxDipole()
60 +
61 +  use doForces, ONLY: setBoxDipole
62 +
63 +  call setBoxDipole()
64 +  
65 + end subroutine setAccumulateBoxDipole
66 +
67   subroutine setFortranElectrostaticMethod(electrostaticMethod)
68    use doForces, ONLY : setElectrostaticMethod
69  

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines