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 2417 by chrisfen, Tue Nov 1 19:09:30 2005 UTC vs.
Revision 2418 by chrisfen, Tue Nov 8 13:31:36 2005 UTC

# Line 109 | Line 109 | module simulation
109    public :: SimUsesShapes
110    public :: SimUsesFLARB
111    public :: SimUsesRF
112 <  public :: SimUsesDampedWolf
112 >  public :: SimUsesSF
113    public :: SimRequiresPrepairCalc
114    public :: SimRequiresPostpairCalc
115    public :: SimHasAtype
# Line 561 | Line 561 | contains
561            doesit = thisSim%SIM_uses_RF
562          end function SimUsesRF
563  
564 <        function SimUsesDampedWolf() result(doesit)
564 >        function SimUsesSF() result(doesit)
565            logical :: doesit
566 <          doesit = thisSim%SIM_uses_DampedWolf
567 <        end function SimUsesDampedWolf
566 >          doesit = thisSim%SIM_uses_SF
567 >        end function SimUsesSF
568  
569          function SimRequiresPrepairCalc() result(doesit)
570            logical :: doesit
# Line 573 | Line 573 | contains
573          
574          function SimRequiresPostpairCalc() result(doesit)
575            logical :: doesit
576 <          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_DampedWolf
576 >          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_SF
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