Update interface of prif_change_team based on latest design doc

choices.
BerkeleyLab · Dec 13, 2023 · b71366a · b71366a
1 parent 4939823
commit b71366a
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/src/caffeine/team_type_m.f90 b/src/caffeine/team_type_m.f90
@@ -26,8 +26,12 @@ module subroutine prif_form_team(team_number, team, new_index, stat, errmsg, err
       character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
     end subroutine
 
-    module subroutine prif_change_team(team)
-      type(prif_team_type), target, intent(in) :: team
+    module subroutine prif_change_team(team, stat, errmsg, errmsg_alloc)
+      implicit none
+      type(prif_team_type), intent(in) :: team
+      integer(c_int), intent(out), optional :: stat
+      character(len=*), intent(inout), optional :: errmsg
+      character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
     end subroutine
 
     module subroutine prif_end_team()