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
slave_receive.F could be called by: