subroutine simple(comm)
      include 'mpif.h'

      integer comm, comm1, numtasks, rank, ierr, rc
      common /rownia/ comm1, numtasks, rank, ierr, rc

      

c      call MPI_INIT(ierr)
c      if (ierr .ne. MPI_SUCCESS) then
c      print *,'Error starting MPI program. Terminating.'
c      call MPI_ABORT(MPI_COMM_WORLD, rc, ierr)
c      end if

      call MPI_COMM_RANK(comm, rank, ierr)
      call MPI_COMM_SIZE(comm, numtasks, ierr)
      print *, 'Number of tasks=',numtasks,' My rank=',rank

      return

      end subroutine

      subroutine cwel
      include 'mpif.h'
      integer comm1, numtasks, rank, ierr, rc, sumrank
      common /rownia/ comm1, numtasks, rank, ierr, rc
      character glut
      
      print *,"my rank",rank 

      call mpi_allreduce(rank,sumrank,1,MPI_INTEGER,MPI_SUM,comm1,ierr)

      print *,"sumrank",sumrank," ierr",ierr

      call getenv("SRUT",glut)

      print *,"glut ",glut

      call MPI_FINALIZE(ierr)

      return

      end