1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
!======================================================================= |
!======================================================================= |
5 |
subroutine MITCOMPONENT_tile_register( ntx, nty, ireg, rreg ) |
subroutine MITCOMPONENT_tile_register( ntx, nty, ireg, rreg ) |
6 |
implicit none |
implicit none |
67 |
comm=MPI_COMM_myglobal |
comm=MPI_COMM_myglobal |
68 |
|
|
69 |
call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr ) |
call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr ) |
70 |
|
|
71 |
if (ierr.ne.0) then |
if (ierr.ne.0) then |
72 |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
73 |
& my_rank_in_world,my_rank_in_global,my_rank_in_local, |
& my_rank_in_world,my_rank_in_global,my_rank_in_local, |
93 |
comm=MPI_COMM_myglobal |
comm=MPI_COMM_myglobal |
94 |
|
|
95 |
call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr ) |
call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr ) |
96 |
|
|
97 |
if (ierr.ne.0) then |
if (ierr.ne.0) then |
98 |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
write(LogUnit,*) 'MITCOMPONENT_tile_register: rank(W,G,L)=', |
99 |
& my_rank_in_world,my_rank_in_global,my_rank_in_local, |
& my_rank_in_world,my_rank_in_global,my_rank_in_local, |