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 2592 by gezelter, Thu Feb 16 21:40:20 2006 UTC vs.
Revision 2917 by chrisfen, Mon Jul 3 13:18:43 2006 UTC

# Line 114 | Line 114 | module simulation
114    public :: SimUsesFLARB
115    public :: SimUsesRF
116    public :: SimUsesSF
117 +  public :: SimUsesSP
118 +  public :: SimUsesBoxDipole
119    public :: SimRequiresPrepairCalc
120    public :: SimRequiresPostpairCalc
121    public :: SimHasAtype
# Line 620 | Line 622 | contains
622            doesit = thisSim%SIM_uses_SF
623          end function SimUsesSF
624  
625 +        function SimUsesSP() result(doesit)
626 +          logical :: doesit
627 +          doesit = thisSim%SIM_uses_SP
628 +        end function SimUsesSP
629 +
630 +        function SimUsesBoxDipole() result(doesit)
631 +          logical :: doesit
632 +          doesit = thisSim%SIM_uses_BoxDipole
633 +        end function SimUsesBoxDipole
634 +
635          function SimRequiresPrepairCalc() result(doesit)
636            logical :: doesit
637            doesit = thisSim%SIM_uses_EAM .or. thisSim%SIM_uses_SC &
# Line 628 | Line 640 | contains
640          
641          function SimRequiresPostpairCalc() result(doesit)
642            logical :: doesit
643 <          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_SF
643 >          doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_SF &
644 >               .or. thisSim%SIM_uses_SP .or. thisSim%SIM_uses_BoxDipole
645          end function SimRequiresPostpairCalc
646  
647          ! Function returns true if the simulation has this atype

Diff Legend

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