strip_cr Subroutine

public subroutine strip_cr(line)

行末の CR 文字 (char 13) をスペースに置換し、CRLF 改行の OBJ に対応する。

Arguments

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

処理対象の行文字列。

Called by

proc~~strip_cr~~CalledByGraph proc~strip_cr strip_cr proc~parse_obj parse_obj proc~parse_obj->proc~strip_cr proc~scan_obj scan_obj proc~scan_obj->proc~strip_cr 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

  subroutine strip_cr(line)
    character(len=*), intent(inout) :: line
    integer :: i
    do i = len_trim(line), 1, -1
      if (ichar(line(i:i)) == 13) then
        line(i:i) = ' '
      else
        exit
      end if
    end do
  end subroutine strip_cr