program hello_parallel

C     Include the MPI library definitons:                                                                                
      include 'mpif.h'

      integer numtasks, rank, ierr, rc, len, i
      character*(MPI_MAX_PROCESSOR_NAME) name

C     Initialize the MPI library:                                                                                        
      call MPI_INIT(ierr)
      if (ierr .ne. MPI_SUCCESS) then
         print *,'Error starting MPI program. Terminating.'
         call MPI_ABORT(MPI_COMM_WORLD, rc, ierr)
      end if

C     Get the number of processors this job is using:                                                                    
      call MPI_COMM_SIZE(MPI_COMM_WORLD, numtasks, ierr)

C     Get the rank of the processor this thread is running on.  (Each                                                    
C     processor has a unique rank.)                                                                                      
      call MPI_COMM_RANK(MPI_COMM_WORLD, rank, ierr)

C     Get the name of this processor (usually the hostname)                                                              
      call MPI_GET_PROCESSOR_NAME(name, len, ierr)
      if (ierr .ne. MPI_SUCCESS) then
         print *,'Error getting processor name. Terminating.'
         call MPI_ABORT(MPI_COMM_WORLD, rc, ierr)
      end if

      print 30, "hello_parallel.f: Number of",numtasks,rank,name
 30   format (A,' tasks=',I3,' My rank=',I3,' My name=',A80,'')
C     Tell the MPI library to release all resources it is using:                                                         
      call MPI_FINALIZE(ierr)

      end