edge_next_ccw Function

public function edge_next_ccw(edge_id) result(next_id)

境界辺の次（反時計回り）を返す。

Arguments

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

Return Value integer(kind=i32)


Called by

proc~~edge_next_ccw~~CalledByGraph proc~edge_next_ccw edge_next_ccw proc~transition_corners transition_corners proc~transition_corners->proc~edge_next_ccw proc~make_plate_hole make_plate_hole proc~make_plate_hole->proc~transition_corners 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_next_ccw(edge_id) result(next_id)
    integer(i32), intent(in) :: edge_id

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