Symbol Description Uses
my_tile_j0 13


File Line number Procedure Code
./pkg/compon_communic/CPLR_SIG.h 79 NO PROCEDURE 
      integer my_tile_j0(MAX_TILES)
./pkg/compon_communic/CPLR_SIG.h 97 NO PROCEDURE 
     &  my_tile_j0,
./pkg/compon_communic/comprecv_r8tiles.F 63 COMPRECV_R8TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'
./pkg/compon_communic/comprecv_r8.F 57 COMPRECV_R8 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r8: bad Jo'
./pkg/compon_communic/mitcomponent_register.F 36 MITCOMPONENT_REGISTER 
      my_tile_j0(1)=j0
./pkg/compon_communic/compsend_r4.F 24 COMPSEND_R4 
      Jo=my_tile_j0(1)
./pkg/compon_communic/compsend_r8tiles.F 36 COMPSEND_R8TILES 
       r8buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/comprecv_r4.F 57 COMPRECV_R4 
      if (Jo.ne.my_tile_j0(1)) stop 'comprecv_r4: bad Jo'
./pkg/compon_communic/compsend_r4tiles.F 36 COMPSEND_R4TILES 
       r4buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/compsend_r8.F 24 COMPSEND_R8 
      Jo=my_tile_j0(1)
./pkg/compon_communic/comprecv_r4tiles.F 63 COMPRECV_R4TILES 
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo'
./pkg/compon_communic/mitcomponent_tile_register.F 35 MITCOMPONENT_TILE_REGISTER 
         my_tile_j0(num_tiles)=ireg(4,bi,bj)
./pkg/compon_communic/mitcomponent_tile_register.F 83 MITCOMPONENT_TILE_REGISTER 
       ibuf(4)=my_tile_j0(bibj)