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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/electrostatic.F90 (file contents):
Revision 2308 by chrisfen, Fri Sep 16 20:37:05 2005 UTC vs.
Revision 2309 by chrisfen, Sun Sep 18 20:45:38 2005 UTC

# Line 122 | Line 122 | contains
122   contains
123  
124    subroutine setElectrostaticSummationMethod(the_ESM)
125
125      integer, intent(in) :: the_ESM    
126  
127      if ((the_ESM .le. 0) .or. (the_ESM .gt. REACTION_FIELD)) then
128         call handleError("setElectrostaticSummationMethod", "Unsupported Summation Method")
129      endif
130  
131 +    summationMethod = the_ESM
132    end subroutine setElectrostaticSummationMethod
133  
134    subroutine setElectrostaticCutoffRadius(thisRcut)

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines