c     pt2pt/1-init
      program main
      integer nproc,my_rank,ierr
      call init(nproc,my_rank)
      call MPI_Finalize(ierr)
      stop
      end
c--------------------------------------------------------
      subroutine init(nproc,my_rank)
      include "/home/student/mpich-1.2.7p1/include/mpif.h"
c
c     initialize the MPI
c
      integer nproc,my_rank,ierr
      character*30 nodename
      integer nchar
      call MPI_init(ierr)
      call MPI_Comm_rank(MPI_COMM_WORLD,my_rank,ierr)
      call MPI_Comm_size(MPI_COMM_WORLD,nproc,ierr)
      call MPI_Get_processor_name(nodename,nchar,ierr)
      write(*,*) 'my_rank=',my_rank,' processor=',nodename
      return
      end