Symbol Description Uses
bibj 74



File Line number Procedure Code
./pkg/compon_communic/comprecv_r4tiles.F 20 COMPRECV_R4TILES
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r4tiles.F 28 COMPRECV_R4TILES
      do bibj=1,my_num_tiles
./pkg/compon_communic/comprecv_r4tiles.F 30 COMPRECV_R4TILES
       bi=my_tile_bi(bibj)
./pkg/compon_communic/comprecv_r4tiles.F 31 COMPRECV_R4TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r4tiles.F 36 COMPRECV_R4TILES
       tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/comprecv_r4tiles.F 65 COMPRECV_R4TILES
       if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r4tiles: bad Io'
./pkg/compon_communic/comprecv_r4tiles.F 66 COMPRECV_R4TILES
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r4tiles: bad Jo'
./pkg/compon_communic/comprecv_r4tiles.F 67 COMPRECV_R4TILES
       if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r4tiles: bad nx'
./pkg/compon_communic/comprecv_r4tiles.F 68 COMPRECV_R4TILES
       if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r4tiles: bad ny'
./pkg/compon_communic/comprecv_r8tiles.F 20 COMPRECV_R8TILES
      integer i,j,ij,nx,ny,k,bibj,bi,bj
./pkg/compon_communic/comprecv_r8tiles.F 28 COMPRECV_R8TILES
      do bibj=1,my_num_tiles
./pkg/compon_communic/comprecv_r8tiles.F 30 COMPRECV_R8TILES
       bi=my_tile_bi(bibj)
./pkg/compon_communic/comprecv_r8tiles.F 31 COMPRECV_R8TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/comprecv_r8tiles.F 36 COMPRECV_R8TILES
       tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/comprecv_r8tiles.F 65 COMPRECV_R8TILES
       if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io'
./pkg/compon_communic/comprecv_r8tiles.F 66 COMPRECV_R8TILES
       if (Jo.ne.my_tile_j0(bibj)) stop 'comprecv_r8tiles: bad Jo'
./pkg/compon_communic/comprecv_r8tiles.F 67 COMPRECV_R8TILES
       if (nx.ne.my_tile_nx(bibj)) stop 'comprecv_r8tiles: bad nx'
./pkg/compon_communic/comprecv_r8tiles.F 68 COMPRECV_R8TILES
       if (ny.ne.my_tile_ny(bibj)) stop 'comprecv_r8tiles: bad ny'
./pkg/compon_communic/compsend_r4tiles.F 19 COMPSEND_R4TILES
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r4tiles.F 26 COMPSEND_R4TILES
      do bibj=1,my_num_tiles
./pkg/compon_communic/compsend_r4tiles.F 28 COMPSEND_R4TILES
       bi=my_tile_bi(bibj)
./pkg/compon_communic/compsend_r4tiles.F 29 COMPSEND_R4TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r4tiles.F 31 COMPSEND_R4TILES
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r4tiles.F 33 COMPSEND_R4TILES
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r4tiles.F 37 COMPSEND_R4TILES
       r4buf(1)=float( my_tile_i0(bibj) )
./pkg/compon_communic/compsend_r4tiles.F 38 COMPSEND_R4TILES
       r4buf(2)=float( my_tile_nx(bibj) )
./pkg/compon_communic/compsend_r4tiles.F 39 COMPSEND_R4TILES
       r4buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/compsend_r4tiles.F 40 COMPSEND_R4TILES
       r4buf(4)=float( my_tile_ny(bibj) )
./pkg/compon_communic/compsend_r4tiles.F 56 COMPSEND_R4TILES
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/compsend_r4tiles.F 61 COMPSEND_R4TILES
     &   'compsend_r4tiles: calling MPI_Send dest=',dest,' tile=',bibj
./pkg/compon_communic/compsend_r8tiles.F 19 COMPSEND_R8TILES
      integer i,j,ij,bi,bj,k,bibj
./pkg/compon_communic/compsend_r8tiles.F 26 COMPSEND_R8TILES
      do bibj=1,my_num_tiles
./pkg/compon_communic/compsend_r8tiles.F 28 COMPSEND_R8TILES
       bi=my_tile_bi(bibj)
./pkg/compon_communic/compsend_r8tiles.F 29 COMPSEND_R8TILES
       bj=my_tile_bj(bibj)
./pkg/compon_communic/compsend_r8tiles.F 31 COMPSEND_R8TILES
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r8tiles.F 33 COMPSEND_R8TILES
       if (Nj.ne.my_tile_ny(bibj))
./pkg/compon_communic/compsend_r8tiles.F 37 COMPSEND_R8TILES
       r8buf(1)=float( my_tile_i0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 38 COMPSEND_R8TILES
       r8buf(2)=float( my_tile_nx(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 39 COMPSEND_R8TILES
       r8buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 40 COMPSEND_R8TILES
       r8buf(4)=float( my_tile_ny(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 56 COMPSEND_R8TILES
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/compsend_r8tiles.F 61 COMPSEND_R8TILES
     &   'compsend_r8tiles: calling MPI_Send dest=',dest,' tile=',bibj
./pkg/compon_communic/couprecv_r4tiles.F 23 COUPRECV_R4TILES
      integer i,j,ij,n,bibj
./pkg/compon_communic/couprecv_r4tiles.F 46 COUPRECV_R4TILES
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r4tiles.F 51 COUPRECV_R4TILES
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/couprecv_r4tiles.F 57 COUPRECV_R4TILES
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/couprecv_r4tiles.F 87 COUPRECV_R4TILES
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 89 COUPRECV_R4TILES
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 91 COUPRECV_R4TILES
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r4tiles.F 93 COUPRECV_R4TILES
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 23 COUPRECV_R8TILES
      integer i,j,ij,n,bibj
./pkg/compon_communic/couprecv_r8tiles.F 46 COUPRECV_R8TILES
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/couprecv_r8tiles.F 51 COUPRECV_R8TILES
       tag=generate_tag(103,bibj,dataname)
./pkg/compon_communic/couprecv_r8tiles.F 57 COUPRECV_R8TILES
     &    ' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/couprecv_r8tiles.F 87 COUPRECV_R8TILES
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 89 COUPRECV_R8TILES
       if (Jo.ne.component_tile_j0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 91 COUPRECV_R8TILES
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r8tiles.F 93 COUPRECV_R8TILES
       if (Nj.ne.component_tile_ny(bibj,n,compind))
./pkg/compon_communic/coupsend_r4tiles.F 24 COUPSEND_R4TILES
      integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r4tiles.F 46 COUPSEND_R4TILES
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 49 COUPSEND_R4TILES
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 51 COUPSEND_R4TILES
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 52 COUPSEND_R4TILES
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 70 COUPSEND_R4TILES
        tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/coupsend_r4tiles.F 75 COUPSEND_R4TILES
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r8tiles.F 24 COUPSEND_R8TILES
      integer i,j,ij,n,bibj
./pkg/compon_communic/coupsend_r8tiles.F 46 COUPSEND_R8TILES
       do bibj=1,component_num_tiles(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES
        Jo=component_tile_j0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 51 COUPSEND_R8TILES
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 52 COUPSEND_R8TILES
        Nj=component_tile_ny(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 70 COUPSEND_R8TILES
        tag=generate_tag(123,bibj,dataname)
./pkg/compon_communic/coupsend_r8tiles.F 75 COUPSEND_R8TILES
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj