parse_vertex_line Subroutine

public subroutine parse_vertex_line(line, p)

v x y z 形式の頂点行を3次元座標へ変換する。

Arguments

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

OBJ頂点行（例: v 0.0 1.0 2.0）。
real(kind=dp), intent(out) :: p(3)

Called by

proc~~parse_vertex_line~~CalledByGraph proc~parse_vertex_line parse_vertex_line proc~parse_obj parse_obj proc~parse_obj->proc~parse_vertex_line proc~load_obj_mesh load_obj_mesh proc~load_obj_mesh->proc~parse_obj proc~build_mesh_from_config build_mesh_from_config proc~build_mesh_from_config->proc~load_obj_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

  subroutine parse_vertex_line(line, p)
    character(len=*), intent(in) :: line
    real(dp), intent(out) :: p(3)
    character(len=1024) :: s
    s = trim(adjustl(line))
    read (s(3:), *) p(1), p(2), p(3)
  end subroutine parse_vertex_line