3 C Test get processor name
6 character*(MPI_MAX_PROCESSOR_NAME) name
7 integer resultlen, ierr
11 call MPI_Get_processor_name( name, resultlen, ierr )
12 C Check that name contains only printing characters */
16 do i=resultlen+2, MPI_MAX_PROCESSOR_NAME
17 if (name(i:i) .ne. " ") then
23 print *, 'Non-blanks after name'
27 call MPI_Finalize( ierr )