reset_fmm_state Subroutine

public subroutine reset_fmm_state(state)

FMM state を初期状態へ戻す。

Arguments

Type IntentOptional Attributes Name
type(fmm_state_type), intent(inout) :: state

リセット対象の FMM state。

Calls

proc~~reset_fmm_state~~CallsGraph proc~reset_fmm_state reset_fmm_state proc~initialize_fmm_state initialize_fmm_state proc~reset_fmm_state->proc~initialize_fmm_state

Called by

proc~~reset_fmm_state~~CalledByGraph proc~reset_fmm_state reset_fmm_state proc~core_destroy_state_impl core_destroy_state_impl proc~core_destroy_state_impl->proc~reset_fmm_state

Source Code

  subroutine reset_fmm_state(state)
    type(fmm_state_type), intent(inout) :: state

    if (associated(state%src_q)) deallocate (state%src_q)
    if (associated(state%multipole)) deallocate (state%multipole)
    if (associated(state%local)) deallocate (state%local)
    if (associated(state%multipole_active)) deallocate (state%multipole_active)
    if (associated(state%local_active)) deallocate (state%local_active)
    call initialize_fmm_state(state)
  end subroutine reset_fmm_state