get_processor_name Function

  function get_processor_name() result(name)
    character(len=:), allocatable :: name
#ifdef MPI
    integer :: ierr, resultlen
    character(len = mp_max_processor_name) :: name_tmp
    call mpi_get_processor_name(name_tmp, resultlen, ierr)
    name = name_tmp(1:resultlen)
#else
    name = 'localhost'
#endif
  end function get_processor_name