From b71366a0e095fc9fb8c370ad4a351b777b1f9188 Mon Sep 17 00:00:00 2001 From: Katherine Rasmussen Date: Tue, 12 Dec 2023 19:54:30 -0800 Subject: [PATCH] Update interface of `prif_change_team` based on latest design doc choices. --- src/caffeine/team_type_m.f90 | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/src/caffeine/team_type_m.f90 b/src/caffeine/team_type_m.f90 index dfa3bee6..4d41dc84 100644 --- 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()