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 2402 by chrisfen, Tue Nov 1 19:09:30 2005 UTC

# Line 109 | Line 109 | module simulation
109    public :: SimUsesShapes
110    public :: SimUsesFLARB
111    public :: SimUsesRF
112 +  public :: SimUsesDampedWolf
113    public :: SimRequiresPrepairCalc
114    public :: SimRequiresPostpairCalc
115    public :: SimHasAtype
# Line 559 | Line 560 | contains
560            logical :: doesit
561            doesit = thisSim%SIM_uses_RF
562          end function SimUsesRF
563 +
564 +        function SimUsesDampedWolf() result(doesit)
565 +          logical :: doesit
566 +          doesit = thisSim%SIM_uses_DampedWolf
567 +        end function SimUsesDampedWolf
568  
569          function SimRequiresPrepairCalc() result(doesit)
570            logical :: doesit
# Line 567 | Line 573 | contains
573          
574          function SimRequiresPostpairCalc() result(doesit)
575            logical :: doesit
576 <          doesit = thisSim%SIM_uses_RF
576 >          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_DampedWolf
577          end function SimRequiresPostpairCalc
578  
579          ! Function returns true if the simulation has this atype

Diff Legend

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