114 |
|
public :: SimUsesFLARB |
115 |
|
public :: SimUsesRF |
116 |
|
public :: SimUsesSF |
117 |
+ |
public :: SimUsesSP |
118 |
+ |
public :: SimUsesBoxDipole |
119 |
|
public :: SimRequiresPrepairCalc |
120 |
|
public :: SimRequiresPostpairCalc |
121 |
|
public :: SimHasAtype |
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 & |
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 |