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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/atype.F90 (file contents):
Revision 2214 by chrisfen, Wed Apr 27 20:14:03 2005 UTC vs.
Revision 2220 by chrisfen, Thu May 5 14:47:35 2005 UTC

# Line 56 | Line 56 | contains
56  
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)
59 >       is_Sticky, is_StickyPower, is_GayBerne, is_EAM, is_Shape, &
60 >       is_FLARB, status)
61      integer :: myATID, c_ident
62      integer,intent(in) :: ident
63      logical,intent(in) :: is_Directional, is_LennardJones, is_Electrostatic
64      logical,intent(in) :: is_Charge, is_Dipole, is_Quadrupole
65 <    logical,intent(in) :: is_Sticky, is_GayBerne, is_EAM, is_Shape, is_FLARB
65 >    logical,intent(in) :: is_Sticky, is_StickyPower, is_GayBerne, is_EAM
66 >    logical,intent(in) :: is_Shape, is_FLARB
67      integer,intent(out) :: status
68  
69      integer :: me
# Line 88 | Line 90 | contains
90      call setElementProperty(atypes, me, "is_Dipole", is_Dipole)
91      call setElementProperty(atypes, me, "is_Quadrupole", is_Quadrupole)
92      call setElementProperty(atypes, me, "is_Sticky", is_Sticky)
93 +    call setElementProperty(atypes, me, "is_StickyPower", is_StickyPower)
94      call setElementProperty(atypes, me, "is_GayBerne", is_GayBerne)
95      call setElementProperty(atypes, me, "is_EAM", is_EAM)
96      call setElementProperty(atypes, me, "is_Shape", is_Shape)

Diff Legend

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