periodic2 の far correction に oracle 版を使うか判定する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(fmm_plan_type), | intent(in) | :: | plan |
FMM 計画。 |
logical function use_periodic2_m2l_root_oracle(plan) type(fmm_plan_type), intent(in) :: plan use_periodic2_m2l_root_oracle = plan%options%use_periodic2 .and. & trim(plan%options%periodic_far_correction) == 'm2l_root_oracle' end function use_periodic2_m2l_root_oracle