3 integer rank, size, RESULTLEN
6 character(MPI_MAX_PROCESSOR_NAME) name
8 call MPI_Comm_rank( MPI_COMM_WORLD, rank, ierr )
9 call MPI_Comm_size( MPI_COMM_WORLD, size, ierr )
11 call MPI_GET_PROCESSOR_NAME( NAME, RESULTLEN, IERR)
12 print *,"My name is ",NAME(:RESULTLEN)
13 call MPI_Finalize(ierr);
14 10 format("Hello world! I'm",i3," of",i3)