edge_order_index Function

public function edge_order_index(edge_id) result(idx)

境界辺の反時計回り順序インデックスを返す。

Arguments

Type IntentOptional Attributes Name
integer(kind=i32), intent(in) :: edge_id

Return Value integer(kind=i32)


Called by

proc~~edge_order_index~~CalledByGraph proc~edge_order_index edge_order_index proc~transition_corner_count transition_corner_count proc~transition_corner_count->proc~edge_order_index proc~make_plate_hole make_plate_hole proc~make_plate_hole->proc~transition_corner_count proc~transition_corners transition_corners proc~make_plate_hole->proc~transition_corners proc~transition_corners->proc~transition_corner_count proc~build_one_template build_one_template proc~build_one_template->proc~make_plate_hole proc~build_template_mesh build_template_mesh proc~build_template_mesh->proc~build_one_template proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~build_template_mesh proc~load_or_init_run_state load_or_init_run_state proc~load_or_init_run_state->proc~build_mesh_from_config program~main main program~main->proc~load_or_init_run_state

Source Code

  integer(i32) function edge_order_index(edge_id) result(idx)
    integer(i32), intent(in) :: edge_id

    select case (edge_id)
    case (2_i32)
      idx = 0_i32
    case (4_i32)
      idx = 1_i32
    case (1_i32)
      idx = 2_i32
    case (3_i32)
      idx = 3_i32
    case default
      error stop "unknown edge id"
    end select
  end function edge_order_index