program template

!-- Template for any mpi program

      implicit none    ! highly recommended. It will make 
                       ! debugging infinitely easier.

!--Include the mpi header file
      include 'mpif.h'              ! --> Required statement

!--Declare all variables and arrays.
      integer ierr,myid,numprocs,itag
      integer irc

!--Initialize MPI
      call MPI_INIT( ierr )         ! --> Required statement

!--Who am I? --- get my rank=myid
      call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr )

!--How many processes in the global group?
      call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr )

!--Finilize MPI
      call MPI_FINALIZE(irc)        ! ---> Required statement

      stop
      end