diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-21 11:04:31 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-21 11:04:31 -0400 |
| commit | 20091904b7bf4b2074b45e25c7eee0e56d19348b (patch) | |
| tree | 5c31004eff65466c84ed88cde77cbc712ba04ea6 /captain/launch.f90 | |
| parent | cd9283417a4b70335edf7ce0c5d15bfca111b807 (diff) | |
| download | levitating-20091904b7bf4b2074b45e25c7eee0e56d19348b.tar.gz levitating-20091904b7bf4b2074b45e25c7eee0e56d19348b.zip | |
Groups of instructions are now supported, allowing launching multiple jobs at once
Diffstat (limited to 'captain/launch.f90')
| -rw-r--r-- | captain/launch.f90 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/captain/launch.f90 b/captain/launch.f90 index c397143..e889ccc 100644 --- a/captain/launch.f90 +++ b/captain/launch.f90 @@ -38,5 +38,25 @@ contains end subroutine launch_instructions_on_player + subroutine launch_group(group) + use captain_db + implicit none + + integer, intent(in)::group + type(group_entry), dimension(:), pointer::work + integer::i + + work => get_group_entries_db(group) + if(associated(work)) then + + do i=1, size(work) + + call add_new_job(work(i)%instruction, work(i)%player) + + end do + + end if + + end subroutine launch_group end module remote_launch
\ No newline at end of file |