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

Comparing trunk/OOPSE-2.0/src/UseTheForce/DarkSide/simulation.F90 (file contents):
Revision 2219 by gezelter, Fri Apr 15 22:04:00 2005 UTC vs.
Revision 2220 by chrisfen, Thu May 5 14:47:35 2005 UTC

# Line 97 | Line 97 | module simulation
97    public :: SimUsesCharges
98    public :: SimUsesDipoles
99    public :: SimUsesSticky
100 +  public :: SimUsesStickyPower
101    public :: SimUsesGayBerne
102    public :: SimUsesEAM
103    public :: SimUsesShapes
# Line 488 | Line 489 | contains
489  
490          function SimUsesDirectionalAtoms() result(doesit)
491            logical :: doesit
492 <          doesit = thisSim%SIM_uses_dipoles .or. thisSim%SIM_uses_sticky .or. &
492 >          doesit = thisSim%SIM_uses_dipoles .or. thisSim%SIM_uses_Sticky .or. &
493 >               thisSim%SIM_uses_StickyPower .or. &
494                 thisSim%SIM_uses_GayBerne .or. thisSim%SIM_uses_Shapes
495          end function SimUsesDirectionalAtoms
496  
# Line 517 | Line 519 | contains
519            doesit = thisSim%SIM_uses_Sticky
520          end function SimUsesSticky
521  
522 +        function SimUsesStickyPower() result(doesit)
523 +          logical :: doesit
524 +          doesit = thisSim%SIM_uses_StickyPower
525 +        end function SimUsesStickyPower
526 +
527          function SimUsesGayBerne() result(doesit)
528            logical :: doesit
529            doesit = thisSim%SIM_uses_GayBerne

Diff Legend

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