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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/simulation.F90 (file contents):
Revision 2431 by chrisfen, Tue Nov 8 13:31:36 2005 UTC vs.
Revision 2432 by chuckv, Tue Nov 15 16:01:06 2005 UTC

# Line 113 | Line 113 | module simulation
113    public :: SimRequiresPrepairCalc
114    public :: SimRequiresPostpairCalc
115    public :: SimHasAtype
116 +  public :: SimUsesSC
117 +  public :: SimUsesMEAM
118  
119   contains
120  
# Line 545 | Line 547 | contains
547            logical :: doesit
548            doesit = thisSim%SIM_uses_EAM
549          end function SimUsesEAM
550 +
551 +
552 +        function SimUsesSC() result(doesit)
553 +          logical :: doesit
554 +          doesit = thisSim%SIM_uses_SC
555 +        end function SimUsesSC
556  
557 +        function SimUsesMEAM() result(doesit)
558 +          logical :: doesit
559 +          doesit = thisSim%SIM_uses_MEAM
560 +        end function SimUsesMEAM
561 +
562 +
563          function SimUsesShapes() result(doesit)
564            logical :: doesit
565            doesit = thisSim%SIM_uses_Shapes
# Line 568 | Line 582 | contains
582  
583          function SimRequiresPrepairCalc() result(doesit)
584            logical :: doesit
585 <          doesit = thisSim%SIM_uses_EAM
585 >          doesit = thisSim%SIM_uses_EAM .or. thisSim%SIM_uses_SC &
586 >               .or. thisSim%SIM_uses_MEAM
587          end function SimRequiresPrepairCalc
588          
589          function SimRequiresPostpairCalc() result(doesit)

Diff Legend

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