ensure_output_dir Subroutine

public subroutine ensure_output_dir(out_dir)

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

Arguments

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

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

Calls

proc~~ensure_output_dir~~CallsGraph proc~ensure_output_dir ensure_output_dir proc~create_directories create_directories proc~ensure_output_dir->proc~create_directories

Called by

proc~~ensure_output_dir~~CalledByGraph proc~ensure_output_dir ensure_output_dir proc~maybe_write_periodic_checkpoint maybe_write_periodic_checkpoint proc~maybe_write_periodic_checkpoint->proc~ensure_output_dir proc~write_checkpoint_state_files write_checkpoint_state_files proc~maybe_write_periodic_checkpoint->proc~write_checkpoint_state_files proc~write_checkpoint_state_files->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~write_result_files

Source Code

  subroutine ensure_output_dir(out_dir)
    character(len=*), intent(in) :: out_dir
    integer :: status

    call create_directories(out_dir, status)
    select case (status)
    case (filesystem_success)
      return
    case (filesystem_empty_path)
      error stop 'Failed to create output directory: output path is empty.'
    case (filesystem_not_directory)
      error stop 'Failed to create output directory: a path component is not an accessible directory.'
    case (filesystem_os_error)
      error stop 'Failed to create output directory: operating-system directory creation failed.'
    case default
      error stop 'Failed to create output directory: unexpected filesystem status.'
    end select
  end subroutine ensure_output_dir