1 | !     -----------------------------------------------!
   2 | !     Message saying what type of task must be donne !
   3 | !     -----------------------------------------------!
   4 |       INTEGER, PARAMETER :: PMM_SLAVE_INIT = 1
   5 | 
   6 | !     -----------------------------------------------!
   7 | !     Type of message passed to the destination proc !
   8 | !     -----------------------------------------------!
   9 |       INTEGER, PARAMETER :: PMM_FLAG_MTYPE = 1
  10 |       
  11 | !     --------------!
  12 | !     PMM constants !
  13 | !     --------------!
  14 |       INTEGER, PARAMETER :: PMM_HOST = 0
  15 | 
  16 | !     ---------------------!
  17 | !     Master_control tasks !
  18 | !     ---------------------!
  19 |       INTEGER, PARAMETER :: MASTER_INIT     = 1
  20 |       INTEGER, PARAMETER :: MASTER_OUTPROC  = 2
  21 |       INTEGER, PARAMETER :: MASTER_COUPLING = 3
  22 | 
  23 | !     ----------!
  24 | !     MPI flags !
  25 | !     ----------!
  26 |       INTEGER, PARAMETER :: PMM_PARTITION = 1001
  27 |       INTEGER, PARAMETER :: PMM_INVECTORS = 1002
  28 |       INTEGER, PARAMETER :: PMM_PARAM     = 1003
  29 |       INTEGER, PARAMETER :: PMM_RETURN    = 1004