1 | include(dom.inc)
   2 |       SUBROUTINE slave_receive
   3 | 
   4 | !       ================================================================!
   5 | !                                                                       !
   6 | !       slave_receive.F : Receives information sent by master processor !
   7 | !                         like input parameters and vectors.            !
   8 | !                                                                       !
   9 | !       author          : J. AMAYA (september 2007)                     !
  10 | !                                                                       !
  11 | !       ================================================================!
  12 | 
  13 |         USE mod_pmm
  14 | !       USE mod_slave
  15 | !       USE mod_inout
  16 | 
  17 |         IMPLICIT NONE
  18 | 
  19 |         INCLUDE 'pmm_constants.h'
  20 |         INCLUDE 'dom_constants.h'
  21 | 
  22 |         DOM_INT :: ierr
  23 |         DOM_INT :: buffer(14)
  24 |         DOM_INT :: status(MPI_STATUS_SIZE)
  25 | 
  26 | !       --------------------!
  27 | !       Recive partitioning !
  28 | !       --------------------!
  29 | 
  30 | !       print*, " (",pmm_rank,") MPI RECV partition for ", pmm_rank
  31 | 
  32 |         CALL MPI_RECV(buffer, 14, MPI_INTEGER, PMM_HOST, PMM_PARTITION, &
  33 |      &                MPI_COMM_WORLD, status, ierr)
  34 | 
  35 | !       print*, " (",pmm_rank,") MPI RECV: buffer: ", buffer
  36 | 
  37 |         CALL slave_partition(buffer, 14)
  38 | 
  39 | !       ----------------!
  40 | !       Allocate vetors !
  41 | !       ----------------!
  42 | 
  43 |         CALL slave_receive_vectors
  44 | 
  45 |       END SUBROUTINE slave_receive