出力先ディレクトリとファイル書き出し可否を登録する。
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | output_dir | |||
| logical, | intent(in) | :: | write_files |
subroutine perf_set_output_context(output_dir, write_files) character(len=*), intent(in) :: output_dir logical, intent(in) :: write_files perf_state%output_dir = '' perf_state%output_dir = trim(output_dir) perf_state%write_files = write_files end subroutine perf_set_output_context