109 |
|
public :: SimUsesShapes |
110 |
|
public :: SimUsesFLARB |
111 |
|
public :: SimUsesRF |
112 |
+ |
public :: SimUsesSF |
113 |
|
public :: SimRequiresPrepairCalc |
114 |
|
public :: SimRequiresPostpairCalc |
115 |
|
public :: SimHasAtype |
116 |
+ |
public :: SimUsesSC |
117 |
+ |
public :: SimUsesMEAM |
118 |
|
|
119 |
|
contains |
120 |
|
|
547 |
|
logical :: doesit |
548 |
|
doesit = thisSim%SIM_uses_EAM |
549 |
|
end function SimUsesEAM |
550 |
+ |
|
551 |
+ |
|
552 |
+ |
function SimUsesSC() result(doesit) |
553 |
+ |
logical :: doesit |
554 |
+ |
doesit = thisSim%SIM_uses_SC |
555 |
+ |
end function SimUsesSC |
556 |
|
|
557 |
+ |
function SimUsesMEAM() result(doesit) |
558 |
+ |
logical :: doesit |
559 |
+ |
doesit = thisSim%SIM_uses_MEAM |
560 |
+ |
end function SimUsesMEAM |
561 |
+ |
|
562 |
+ |
|
563 |
|
function SimUsesShapes() result(doesit) |
564 |
|
logical :: doesit |
565 |
|
doesit = thisSim%SIM_uses_Shapes |
575 |
|
doesit = thisSim%SIM_uses_RF |
576 |
|
end function SimUsesRF |
577 |
|
|
578 |
+ |
function SimUsesSF() result(doesit) |
579 |
+ |
logical :: doesit |
580 |
+ |
doesit = thisSim%SIM_uses_SF |
581 |
+ |
end function SimUsesSF |
582 |
+ |
|
583 |
|
function SimRequiresPrepairCalc() result(doesit) |
584 |
|
logical :: doesit |
585 |
< |
doesit = thisSim%SIM_uses_EAM |
585 |
> |
doesit = thisSim%SIM_uses_EAM .or. thisSim%SIM_uses_SC & |
586 |
> |
.or. thisSim%SIM_uses_MEAM |
587 |
|
end function SimRequiresPrepairCalc |
588 |
|
|
589 |
|
function SimRequiresPostpairCalc() result(doesit) |
590 |
|
logical :: doesit |
591 |
< |
doesit = thisSim%SIM_uses_RF |
591 |
> |
doesit = thisSim%SIM_uses_RF .or. thisSim%SIM_uses_SF |
592 |
|
end function SimRequiresPostpairCalc |
593 |
|
|
594 |
|
! Function returns true if the simulation has this atype |