diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-05 09:45:49 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-05 09:45:49 -0400 |
commit | 27c3147c7efe37657563fadcb835b50d00423475 (patch) | |
tree | 1a7ddebc114a4e465326080b6a1b9a662447c641 /captain/special.f90 | |
parent | bff06af2176e2f2813482b4fa7b4096a9982999b (diff) | |
download | levitating-27c3147c7efe37657563fadcb835b50d00423475.tar.gz levitating-27c3147c7efe37657563fadcb835b50d00423475.zip |
Implemented titan handling on the server, hopefully. Added sending the captured file for a task to failed jobs as well.
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 |