1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE master
   4 | 
   5 |         USE mod_pmm
   6 | 
   7 |         IMPLICIT NONE
   8 | 
   9 |         INCLUDE 'pmm_constants.h'
  10 | 
  11 |         DOM_INT :: i_mtype, i_flag
  12 | 
  13 |         i_mtype = PMM_SLAVE_INIT
  14 |         i_flag  = PMM_FLAG_MTYPE
  15 | 
  16 |         IF (pmm_rank.eq.PMM_HOST) THEN
  17 |           CALL master_control(MASTER_INIT)
  18 |         ENDIF
  19 | 
  20 |       END SUBROUTINE master