pmm_begin.F [SRC] [CPP] [JOB] [SCAN]
SOURCES / MAIN



   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 |         COMM_PARA = MPI_COMM_WORLD
  18 | #else
  19 |         COMM_PARA = PL_COMM_EXEC
  20 | #endif
  21 | 
  22 |         st_time = MPI_WTIME()
  23 | 
  24 |         CALL MPI_COMM_SIZE(COMM_PARA, pmm_n_p, ierr)
  25 |         CALL MPI_COMM_RANK(COMM_PARA, pmm_rank, ierr)
  26 | 
  27 | #ifdef USEPALM
  28 |         CALL init_interface
  29 | #endif
  30 | 
  31 |       END SUBROUTINE pmm_begin


pmm_begin.F could be called by:
Makefile [SOURCES] - 114
mpiprissma.F [SOURCES/MAIN] - 17