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 2390 by chrisfen, Wed Oct 19 19:24:40 2005 UTC vs.
Revision 2432 by chuckv, Tue Nov 15 16:01:06 2005 UTC

# Line 109 | Line 109 | module simulation
109    public :: SimUsesShapes
110    public :: SimUsesFLARB
111    public :: SimUsesRF
112 +  public :: SimUsesSF
113    public :: SimRequiresPrepairCalc
114    public :: SimRequiresPostpairCalc
115    public :: SimHasAtype
116 +  public :: SimUsesSC
117 +  public :: SimUsesMEAM
118  
119   contains
120  
# Line 544 | 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 560 | Line 575 | contains
575            doesit = thisSim%SIM_uses_RF
576          end function SimUsesRF
577  
578 +        function SimUsesSF() result(doesit)
579 +          logical :: doesit
580 +          doesit = thisSim%SIM_uses_SF
581 +        end function SimUsesSF
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)
590            logical :: doesit
591 <          doesit = thisSim%SIM_uses_RF
591 >          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_SF
592          end function SimRequiresPostpairCalc
593  
594          ! Function returns true if the simulation has this atype

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines