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

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/atype.F90 (file contents):
Revision 2213 by chrisfen, Thu Apr 21 14:12:19 2005 UTC vs.
Revision 2214 by chrisfen, Wed Apr 27 20:14:03 2005 UTC

#	Line 57 \| Line 57 \| contains
57		subroutine new_atype(ident, is_Directional, is_LennardJones, &
58		is_Electrostatic, is_Charge, is_Dipole, is_Quadrupole, &
59		is_Sticky, is_GayBerne, is_EAM, is_Shape, is_FLARB, status)
60	<
60	>	integer :: myATID, c_ident
61		integer,intent(in) :: ident
62		logical,intent(in) :: is_Directional, is_LennardJones, is_Electrostatic
63		logical,intent(in) :: is_Charge, is_Dipole, is_Quadrupole
#	Line 80 \| Line 80 \| contains
80
81		me = addElement(atypes)
82
83	–	write(,) 'setting c_ident = ', ident
83		call setElementProperty(atypes, me, "c_ident", ident)
85	–
84		call setElementProperty(atypes, me, "is_Directional", is_Directional)
85		call setElementProperty(atypes, me, "is_LennardJones", is_LennardJones)
86		call setElementProperty(atypes, me, "is_Electrostatic", is_Electrostatic)

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