field_solver_mode_id Function

public pure function field_solver_mode_id(mode) result(id)

'direct' / 'treecode' / 'fmm' を enum へ写す。それ以外は direct（場ソルバの既定と同じ）。

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: mode

Return Value integer(kind=i32)


Calls

proc~~field_solver_mode_id~~CallsGraph proc~field_solver_mode_id field_solver_mode_id proc~lower_ascii lower_ascii proc~field_solver_mode_id->proc~lower_ascii

Source Code

  pure integer(i32) function field_solver_mode_id(mode) result(id)
    character(len=*), intent(in) :: mode

    select case (trim(lower_ascii(mode)))
    case ('fmm')
      id = field_solver_mode_fmm
    case ('treecode')
      id = field_solver_mode_treecode
    case default
      id = field_solver_mode_direct
    end select
  end function field_solver_mode_id