get_proc_name Subroutine

public subroutine get_proc_name(nm)

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
character(len=MPI_MAX_PROCESSOR_NAME), intent(out) :: nm

Contents

Source Code

get_proc_name

Source Code

  subroutine get_proc_name(nm)
    implicit none
#ifdef MPI
    character*(MPI_MAX_PROCESSOR_NAME), intent(out) :: nm
    integer :: ierr, len
#else
    character(len=5), intent(out) :: nm
#endif
#ifdef MPI
!$OMP MASTER
    call time_message(.false., time_mp_other, ' MPI Overheads')
!$OMP END MASTER
    call mpi_get_processor_name(nm,len,ierr)
!$OMP MASTER
    call time_message(.false., time_mp_other, ' MPI Overheads')
!$OMP END MASTER
#else
    nm="local"
#endif
  end subroutine get_proc_name