1 |
!======================================================================= |
2 |
subroutine MITCOUPLER_init( myTypeStr, MPI_COMM_local ) |
3 |
implicit none |
4 |
|
5 |
! Arguments |
6 |
character*(*) myTypeStr |
7 |
integer MPI_COMM_local |
8 |
|
9 |
! MPI variables |
10 |
#include "mpif.h" |
11 |
integer myid, numprocs, ierr, rc |
12 |
|
13 |
! Predefined constants/arrays |
14 |
#include "CPLR_SIG.h" |
15 |
|
16 |
! Functions |
17 |
integer mitcplr_match_comp |
18 |
|
19 |
! Local |
20 |
integer n,j |
21 |
integer MPI_GROUP_World |
22 |
integer MPI_GROUP_Tmp |
23 |
integer lenbuf |
24 |
integer compind |
25 |
character*(MAXLEN_COMP_NAME) cbuf |
26 |
logical couplerFlag |
27 |
|
28 |
! ------------------------------------------------------------------ |
29 |
|
30 |
! Homogeneous registration phase (every process Bcasts) |
31 |
couplerFlag=.TRUE. |
32 |
call MITCPLR_init1( myTypeStr, couplerFlag ) |
33 |
|
34 |
! Return the communicator for my component |
35 |
MPI_COMM_local=MPI_COMM_mylocal |
36 |
|
37 |
! Heterogeneous registration phase (within component incl. coupler) |
38 |
call mitcplr_init2b( myTypeStr ) |
39 |
|
40 |
! ------------------------------------------------------------------ |
41 |
return |
42 |
end |
43 |
!======================================================================= |