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 2551 by chrisfen, Thu Jan 12 04:13:46 2006 UTC vs.
Revision 2552 by chrisfen, Thu Jan 12 16:47:25 2006 UTC

# Line 116 | Line 116 | module electrostatic_module
116    double precision, external :: derfc
117   #endif
118    
119 <  public :: setElectrostaticSumMethod
119 >  public :: setElectrostaticSummationMethod
120    public :: setScreeningMethod
121    public :: setElectrostaticCutoffRadius
122    public :: setDampingAlpha
# Line 150 | Line 150 | contains
150  
151   contains
152  
153 <  subroutine setElectrostaticSumMethod(the_ESM)
153 >  subroutine setElectrostaticSummationMethod(the_ESM)
154      integer, intent(in) :: the_ESM    
155  
156      if ((the_ESM .le. 0) .or. (the_ESM .gt. REACTION_FIELD)) then
157 <       call handleError("setElectrostaticSumMethod", "Unsupported Summation Method")
157 >       call handleError("setElectrostaticSummationMethod", "Unsupported Summation Method")
158      endif
159  
160      summationMethod = the_ESM
161  
162 <  end subroutine setElectrostaticSumMethod
162 >  end subroutine setElectrostaticSummationMethod
163  
164    subroutine setScreeningMethod(the_SM)
165      integer, intent(in) :: the_SM    

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines