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 |
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) |