free_handles_persist Subroutine

  1. mp.fpp
  2. mp
  3. free_handles_persist

private subroutine free_handles_persist(handles)

Frees multiple persistent request handles

Arguments

Type IntentOptional Attributes Name
integer, intent(inout), dimension(:) :: handles

Contents

Source Code

free_handles_persist

Source Code

  subroutine free_handles_persist(handles)
    implicit none
    integer, dimension(:), intent(inout) :: handles
    integer :: i
    do i=1,size(handles)
       call free_handle_persist(handles(i))
    enddo
  end subroutine free_handles_persist