1 | include(dom.inc)
   2 |       SUBROUTINE pmm_begin(ierr)
   3 | 
   4 |         USE mod_pmm
   5 | 
   6 |         IMPLICIT NONE
   7 | 
   8 | !       INOUT
   9 |         DOM_INT :: ierr
  10 | 
  11 |         CALL MPI_INIT(ierr)
  12 | 
  13 |         st_time = MPI_WTIME()
  14 | 
  15 |         CALL MPI_COMM_SIZE(MPI_COMM_WORLD, pmm_n_p, ierr)
  16 |         CALL MPI_COMM_RANK(MPI_COMM_WORLD, pmm_rank, ierr)
  17 | 
  18 |       END SUBROUTINE pmm_begin