[ViewVC] Diff of: group/trunk/OOPSE-4/src/UseTheForce/DarkSide/electrostatic.F90

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/electrostatic.F90 (file contents):
Revision 2325 by chrisfen, Sat Sep 24 17:39:36 2005 UTC vs.
Revision 2330 by chuckv, Mon Sep 26 17:07:54 2005 UTC

#	Line 91 \| Line 91 \| module electrostatic_module
91		logical, save :: is_Damped_Wolf = .false.
92
93
94	+	! error function
95	+	double precision, external :: derfc
96	+
97		public :: setElectrostaticSummationMethod
98		public :: setElectrostaticCutoffRadius
99		public :: setDampedWolfAlpha
#	Line 387 \| Line 390 \| contains
390		endif
391
392		constEXP = exp(-dampingAlphadampingAlphadefaultCutoff*defaultCutoff)
393	<	constERFC = erfc(dampingAlpha*defaultCutoff)
393	>	constERFC = derfc(dampingAlpha*defaultCutoff)
394
395		haveDWAconstants = .true.
396		endif

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