Symbol Description Uses
Io 60


File Line number Procedure Code
./pkg/compon_communic/coupsend_r4tiles.F 20 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 44 COUPSEND_R4TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 48 COUPSEND_R4TILES 
        r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4tiles.F 58 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/comprecv_r8tiles.F 56 COMPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8tiles.F 62 COMPRECV_R8TILES 
       if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r8tiles: bad Io'
./pkg/compon_communic/comprecv_r8tiles.F 6 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/couprecv_r8.F 21 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 66 COUPRECV_R8 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8.F 71 COUPRECV_R8 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r8.F 72 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r8.F 91 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/coupsend_r8tiles.F 20 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 44 COUPSEND_R8TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 48 COUPSEND_R8TILES 
        r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8tiles.F 58 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/comprecv_r8.F 50 COMPRECV_R8 
      Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8.F 56 COMPRECV_R8 
      if (Io.ne.my_tile_i0(1)) stop 'comprecv_r8: bad Io'
./pkg/compon_communic/comprecv_r8.F 6 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/compsend_r4.F 16 COMPSEND_R4 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F 23 COMPSEND_R4 
      Io=my_tile_i0(1)
./pkg/compon_communic/compsend_r4.F 25 COMPSEND_R4 
      r4buf(1)=float(Io)
./pkg/compon_communic/couprecv_r8tiles.F 104 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 21 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 71 COUPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8tiles.F 76 COUPRECV_R8TILES 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 77 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r8tiles.F 84 COUPRECV_R8TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/comprecv_r4.F 50 COMPRECV_R4 
      Io=int(0.5+r4buf(1))
./pkg/compon_communic/comprecv_r4.F 56 COMPRECV_R4 
      if (Io.ne.my_tile_i0(1)) stop 'comprecv_r4: bad Io'
./pkg/compon_communic/comprecv_r4.F 6 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/coupsend_r4.F 20 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 41 COUPSEND_R4 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 45 COUPSEND_R4 
       r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4.F 55 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/compsend_r8.F 16 COMPSEND_R8 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F 23 COMPSEND_R8 
      Io=my_tile_i0(1)
./pkg/compon_communic/compsend_r8.F 25 COMPSEND_R8 
      r8buf(1)=float(Io)
./pkg/compon_communic/comprecv_r4tiles.F 56 COMPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/comprecv_r4tiles.F 62 COMPRECV_R4TILES 
       if (Io.ne.my_tile_i0(bibj)) stop 'comprecv_r4tiles: bad Io'
./pkg/compon_communic/comprecv_r4tiles.F 6 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/couprecv_r4tiles.F 104 COUPRECV_R4TILES 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 21 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 71 COUPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4tiles.F 76 COUPRECV_R4TILES 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 77 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r4tiles.F 84 COUPRECV_R4TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r4.F 21 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 66 COUPRECV_R4 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4.F 71 COUPRECV_R4 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r4.F 72 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r4.F 91 COUPRECV_R4 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/coupsend_r8.F 20 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 41 COUPSEND_R8 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 45 COUPSEND_R8 
       r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8.F 55 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)