diff options
Diffstat (limited to 'captain/special.f90')
-rw-r--r-- | captain/special.f90 | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/captain/special.f90 b/captain/special.f90 index 3850d3f..26f31e3 100644 --- a/captain/special.f90 +++ b/captain/special.f90 @@ -51,11 +51,21 @@ contains end function get_instructions_static_filename function get_task_result_static_filename(job_id, task_num) result(res) + use config implicit none + integer, intent(in)::job_id, task_num + character(len=:), pointer::res + character(64)::filename + character(12)::job_text, task_text + + write(job_text, '(I8)') job_id + write(task_text, '(I8)') task_num + filename = "results-job"//trim(adjustl(job_text))//"-task"//trim(adjustl(task_text))//".txt" - + res => get_special_full_filename("results", filename) + end function get_task_result_static_filename end module special_filenames |