Symbol Description Uses
Io 60


File Line number Procedure Code
./pkg/compon_communic/comprecv_r4.F 53 COMPRECV_R4 
      Io=int(0.5+r4buf(1))
./pkg/compon_communic/comprecv_r4.F 59 COMPRECV_R4 
      if (Io.ne.my_tile_i0(1)) stop 'comprecv_r4: bad Io'
./pkg/compon_communic/comprecv_r4.F 9 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4tiles.F 59 COMPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./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 9 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r8.F 53 COMPRECV_R8 
      Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8.F 59 COMPRECV_R8 
      if (Io.ne.my_tile_i0(1)) stop 'comprecv_r8: bad Io'
./pkg/compon_communic/comprecv_r8.F 9 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8tiles.F 59 COMPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./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 9 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/compsend_r4.F 19 COMPSEND_R4 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r4.F 26 COMPSEND_R4 
      Io=my_tile_i0(1)
./pkg/compon_communic/compsend_r4.F 28 COMPSEND_R4 
      r4buf(1)=float(Io)
./pkg/compon_communic/compsend_r8.F 19 COMPSEND_R8 
      integer i,j,ij,Io,Jo
./pkg/compon_communic/compsend_r8.F 26 COMPSEND_R8 
      Io=my_tile_i0(1)
./pkg/compon_communic/compsend_r8.F 28 COMPSEND_R8 
      r8buf(1)=float(Io)
./pkg/compon_communic/couprecv_r4.F 24 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 69 COUPRECV_R4 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4.F 74 COUPRECV_R4 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r4.F 75 COUPRECV_R4 
        write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r4.F 94 COUPRECV_R4 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 107 COUPRECV_R4TILES 
         arr(Io+i-1,Jo+j-1)=r4buf(ij)
./pkg/compon_communic/couprecv_r4tiles.F 24 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 74 COUPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4tiles.F 79 COUPRECV_R4TILES 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r4tiles.F 80 COUPRECV_R4TILES 
        write(LogUnit,*) 'couprecv_r4tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r4tiles.F 87 COUPRECV_R4TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/couprecv_r8.F 24 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 69 COUPRECV_R8 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8.F 74 COUPRECV_R8 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r8.F 75 COUPRECV_R8 
        write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r8.F 94 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 107 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 24 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 74 COUPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8tiles.F 79 COUPRECV_R8TILES 
       if (Io+Ni-1.gt.Nx .or. Io.lt.1) then
./pkg/compon_communic/couprecv_r8tiles.F 80 COUPRECV_R8TILES 
        write(LogUnit,*) 'couprecv_r8tiles: Io,Ni=',Io,Ni
./pkg/compon_communic/couprecv_r8tiles.F 87 COUPRECV_R8TILES 
       if (Io.ne.component_tile_i0(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 25 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 46 COUPSEND_R4 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 50 COUPSEND_R4 
       r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4.F 60 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4tiles.F 25 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 49 COUPSEND_R4TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 53 COUPSEND_R4TILES 
        r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4tiles.F 63 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F 25 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 46 COUPSEND_R8 
       Io=component_tile_i0(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 50 COUPSEND_R8 
       r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8.F 60 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F 25 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES 
        Io=component_tile_i0(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 53 COUPSEND_R8TILES 
        r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8tiles.F 63 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)