is_face_line Function

public pure function is_face_line(line)

与えられた行がOBJ面行(f)かを判定する。

Arguments

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

判定対象の1行文字列。

Return Value logical


Called by

proc~~is_face_line~~CalledByGraph proc~is_face_line is_face_line proc~parse_obj parse_obj proc~parse_obj->proc~is_face_line proc~scan_obj scan_obj proc~scan_obj->proc~is_face_line proc~load_obj_mesh load_obj_mesh proc~load_obj_mesh->proc~parse_obj proc~load_obj_mesh->proc~scan_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

  logical pure function is_face_line(line)
    character(len=*), intent(in) :: line
    character(:), allocatable :: adj

    adj = adjustl(line)
    is_face_line = len_trim(adj) > 1 .and. adj(1:2) == 'f '
  end function is_face_line