1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE pmm_begin(ierr)
   4 | 
   5 |         USE mod_pmm
   6 | #ifdef USEPALM
   7 |         USE palmlib
   8 | #endif
   9 | 
  10 |         IMPLICIT NONE
  11 | 
  12 | !       INOUT
  13 |         DOM_INT :: ierr
  14 | 
  15 | #ifndef USEPALM
  16 |         CALL MPI_INIT(ierr)
  17 | #endif
  18 | 
  19 |         st_time = MPI_WTIME()
  20 | 
  21 | #ifdef USEPALM
  22 |         CALL MPI_COMM_SIZE(PL_COMM_EXEC, pmm_n_p, ierr)
  23 |         CALL MPI_COMM_RANK(PL_COMM_EXEC, pmm_rank, ierr)
  24 | 
  25 |         CALL init_interface
  26 | #else
  27 |         CALL MPI_COMM_SIZE(MPI_COMM_WORLD, pmm_n_p, ierr)
  28 |         CALL MPI_COMM_RANK(MPI_COMM_WORLD, pmm_rank, ierr)
  29 | #endif
  30 | 
  31 |       END SUBROUTINE pmm_begin