mp_set_info_handle Subroutine

private elemental subroutine mp_set_info_handle(info, handle)

Type Bound

mp_info_type

Arguments

Type IntentOptional Attributes Name
class(mp_info_type), intent(inout) :: info
integer, intent(in) :: handle

Source Code

      ELEMENTAL SUBROUTINE mp_set_info_handle(info, handle)
         CLASS(mp_info_type), INTENT(INOUT) :: info
         INTEGER, INTENT(IN) :: handle

#if defined(__parallel) && defined(__USE_MPI_F08)
         info%handle%mpi_val = handle
#else
         info%handle = handle
#endif

      END SUBROUTINE mp_set_info_handle