From 20091904b7bf4b2074b45e25c7eee0e56d19348b Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 21 Jun 2021 11:04:31 -0400 Subject: Groups of instructions are now supported, allowing launching multiple jobs at once --- captain/launch.f90 | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 'captain/launch.f90') 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 -- cgit v1.2.3