diff options
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 |