master.F [SRC] [CPP] [JOB] [SCAN]
SOURCES / MAIN / MASTER



   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


master.F could be called by:
Makefile [SOURCES] - 120
master_control.F [SOURCES/MAIN/MASTER] - 57 - 62 - 74
mpiprissma.F [SOURCES/MAIN] - 34
slave.F [SOURCES/MAIN/SLAVE] - 534