File indexing completed on 2018-03-02 18:38:30 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
bf4be02920 Jean*0001
0002 subroutine MITCOMPONENT_register( nx, ny, i0, j0 )
0003
191b8c84d5 Jean*0004 implicit none
bf4be02920 Jean*0005
0006 #include "mpif.h"
0007
0008
0009 #include "CPLR_SIG.h"
0010
191b8c84d5 Jean*0011
0012 integer nx,ny,i0,j0
0013
bf4be02920 Jean*0014
0015 integer mitcplr_match_comp
0016 integer generate_tag
191b8c84d5 Jean*0017 external mitcplr_match_comp
0018 external generate_tag
bf4be02920 Jean*0019
0020
191b8c84d5 Jean*0021 integer ierr
bf4be02920 Jean*0022 integer count,datatype,dest,tag,comm
191b8c84d5 Jean*0023 integer ibuf(MAX_IBUF)
bf4be02920 Jean*0024
0025
0026
0027
0028 ibuf(1)=1
0029 ibuf(2)=nx
0030 ibuf(3)=ny
0031 ibuf(4)=i0
0032 ibuf(5)=j0
0033
0034 my_num_tiles=1
0035 my_tile_nx(1)=nx
0036 my_tile_ny(1)=ny
0037 my_tile_i0(1)=i0
0038 my_tile_j0(1)=j0
0039
0040
0041 count=5
0042 datatype=MPI_INTEGER
0043 dest=my_coupler_rank
0044 tag=generate_tag(115,my_rank_in_global,'Register')
0045 comm=MPI_COMM_myglobal
0046
0047 call MPI_Send( ibuf, count, datatype, dest, tag, comm, ierr )
951926fb9b Jean*0048
bf4be02920 Jean*0049 if (ierr.ne.0) then
0050 write(LogUnit,*) 'MITCOMPONENT_register: rank(W,G,L)=',
0051 & my_rank_in_world,my_rank_in_global,my_rank_in_local,
0052 & ' ierr=',ierr
191b8c84d5 Jean*0053 STOP 'MITCOMPONENT_register: MPI_Send failed'
bf4be02920 Jean*0054 endif
0055
0056
0057 call flush(LogUnit)
0058 return
0059 end
0060