injection_face_index Function

public pure function injection_face_index(face_name) result(face)

面名をboundary bit順のindexへ変換する。

Arguments

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

Return Value integer(kind=i32)


Calls

proc~~injection_face_index~~CallsGraph proc~injection_face_index injection_face_index proc~lower_ascii lower_ascii proc~injection_face_index->proc~lower_ascii

Source Code

  pure integer(i32) function injection_face_index(face_name) result(face)
    character(len=*), intent(in) :: face_name

    select case (trim(lower_ascii(face_name)))
    case ('x_low')
      face = 1_i32
    case ('x_high')
      face = 2_i32
    case ('y_low')
      face = 3_i32
    case ('y_high')
      face = 4_i32
    case ('z_low')
      face = 5_i32
    case ('z_high')
      face = 6_i32
    case default
      face = 0_i32
    end select
  end function injection_face_index