function ipet3e()
      include 'mpif.h'
      call mpi_init(ierr)
      if(ierr.ne.0)then
         write(6,*)'mpi_init:ierr=',ierr
         stop
      endif
      call mpi_comm_size(mpi_comm_world,numprocs,ierr)
      if(ierr.ne.0)then
         write(6,*)'mpi_comm_size:ierr=',ierr
         stop
      endif
      call mpi_comm_rank(mpi_comm_world,mype,ierr)
      if(ierr.ne.0)then
         write(6,*)'mpi_comm_rank:ierr=',ierr
         stop
      endif
      call mpi_finalize(ierr)
      write(6,*)'numprocs,mype=',numprocs,mype
      ipet3e=mype
      return
      end