109 |
|
public :: SimUsesShapes |
110 |
|
public :: SimUsesFLARB |
111 |
|
public :: SimUsesRF |
112 |
+ |
public :: SimUsesDampedWolf |
113 |
|
public :: SimRequiresPrepairCalc |
114 |
|
public :: SimRequiresPostpairCalc |
115 |
|
public :: SimHasAtype |
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 |
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 |