ensure_output_dir Subroutine

public subroutine ensure_output_dir(out_dir)

出力ディレクトリを作成する。

Arguments

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

作成対象ディレクトリのパス。

Called by

proc~~ensure_output_dir~~CalledByGraph proc~ensure_output_dir ensure_output_dir proc~open_history_writer open_history_writer proc~open_history_writer->proc~ensure_output_dir proc~open_potential_history_writer open_potential_history_writer proc~open_potential_history_writer->proc~ensure_output_dir proc~write_result_files write_result_files proc~write_result_files->proc~ensure_output_dir program~main main program~main->proc~ensure_output_dir program~main->proc~open_history_writer program~main->proc~open_potential_history_writer program~main->proc~write_result_files

Source Code

  subroutine ensure_output_dir(out_dir)
    character(len=*), intent(in) :: out_dir
    character(len=1024) :: cmd
    integer :: ios

    cmd = 'mkdir -p "'//trim(out_dir)//'"'
    call execute_command_line(trim(cmd), wait=.true., exitstat=ios)
    if (ios /= 0) error stop 'Failed to create output directory.'
  end subroutine ensure_output_dir