[ViewVC] Diff of: group/trunk/OOPSE-3.0/src/UseTheForce/DarkSide/electrostatic

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/electrostatic_interface.F90 (file contents):
Revision 2228 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2229 by chrisfen, Tue May 17 22:35:01 2005 UTC

#	Line 10 \| Line 10 \| subroutine newElectrostaticType(atp, status)
10
11		integer :: ident
12		logical :: is_Electrostatic, is_Charge, is_Dipole
13	<	logical :: is_SplitDipole, is_Quadrupole
13	>	logical :: is_SplitDipole, is_Quadrupole, is_Tap
14
15		ident = atp%ident
16		is_Electrostatic = ((atp%is_Charge .ne. 0) .or. &
#	Line 20 \| Line 20 \| subroutine newElectrostaticType(atp, status)
20		is_Dipole = (atp%is_Dipole .ne. 0)
21		is_SplitDipole = (atp%is_SplitDipole .ne. 0)
22		is_Quadrupole = (atp%is_Quadrupole .ne. 0)
23	+	is_Tap = (atp%is_StickyPower .ne. 0)
24
25		call module_newElectrostaticType(ident, is_Charge, is_Dipole, &
26	<	is_SplitDipole, is_Quadrupole, status)
26	>	is_SplitDipole, is_Quadrupole, is_Tap, status)
27
28		end subroutine newElectrostaticType
29

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