Symbol Description Uses
Ni 106


File Line number Procedure Code
./pkg/compon_communic/comprecv_r4.F 10 COMPRECV_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r4.F 24 COMPRECV_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4.F 5 COMPRECV_R4 
      subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r4.F 71 COMPRECV_R4 
       do i=1,Ni
./pkg/compon_communic/comprecv_r4.F 72 COMPRECV_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4.F 9 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4tiles.F 10 COMPRECV_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/comprecv_r4tiles.F 24 COMPRECV_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4tiles.F 5 COMPRECV_R4TILES 
      subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r4tiles.F 78 COMPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r4tiles.F 79 COMPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./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 10 COMPRECV_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r8.F 24 COMPRECV_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8.F 5 COMPRECV_R8 
      subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r8.F 71 COMPRECV_R8 
       do i=1,Ni
./pkg/compon_communic/comprecv_r8.F 72 COMPRECV_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8.F 9 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8tiles.F 10 COMPRECV_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/comprecv_r8tiles.F 24 COMPRECV_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8tiles.F 5 COMPRECV_R8TILES 
      subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r8tiles.F 78 COMPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r8tiles.F 79 COMPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./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 10 COMPSEND_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r4.F 22 COMPSEND_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4.F 29 COMPSEND_R4 
      r4buf(2)=float(Ni)
./pkg/compon_communic/compsend_r4.F 36 COMPSEND_R4 
       do i=1,Ni
./pkg/compon_communic/compsend_r4.F 37 COMPSEND_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4.F 43 COMPSEND_R4 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4.F 5 COMPSEND_R4 
      subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r4.F 9 COMPSEND_R4 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r4tiles.F 10 COMPSEND_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r4tiles.F 22 COMPSEND_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4tiles.F 31 COMPSEND_R4TILES 
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r4tiles.F 46 COMPSEND_R4TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r4tiles.F 47 COMPSEND_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4tiles.F 53 COMPSEND_R4TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 5 COMPSEND_R4TILES 
      subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r4tiles.F 9 COMPSEND_R4TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r8.F 10 COMPSEND_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r8.F 22 COMPSEND_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8.F 29 COMPSEND_R8 
      r8buf(2)=float(Ni)
./pkg/compon_communic/compsend_r8.F 36 COMPSEND_R8 
       do i=1,Ni
./pkg/compon_communic/compsend_r8.F 37 COMPSEND_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8.F 43 COMPSEND_R8 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8.F 5 COMPSEND_R8 
      subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r8.F 9 COMPSEND_R8 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r8tiles.F 10 COMPSEND_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r8tiles.F 22 COMPSEND_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8tiles.F 31 COMPSEND_R8TILES 
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r8tiles.F 46 COMPSEND_R8TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r8tiles.F 47 COMPSEND_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8tiles.F 53 COMPSEND_R8TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8tiles.F 5 COMPSEND_R8TILES 
      subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r8tiles.F 9 COMPSEND_R8TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/couprecv_r4.F 24 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 70 COUPRECV_R4 
       Ni=int(0.5+r4buf(2))
./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 92 COUPRECV_R4 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4.F 93 COUPRECV_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4tiles.F 105 COUPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4tiles.F 106 COUPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4tiles.F 24 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 75 COUPRECV_R4TILES 
       Ni=int(0.5+r4buf(2))
./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 91 COUPRECV_R4TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r8.F 24 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 70 COUPRECV_R8 
       Ni=int(0.5+r8buf(2))
./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 92 COUPRECV_R8 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8.F 93 COUPRECV_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8tiles.F 105 COUPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8tiles.F 106 COUPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8tiles.F 24 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 75 COUPRECV_R8TILES 
       Ni=int(0.5+r8buf(2))
./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 91 COUPRECV_R8TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/coupsend_r4.F 25 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 48 COUPSEND_R4 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 52 COUPSEND_R4 
       r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4.F 58 COUPSEND_R4 
        do i=1,Ni
./pkg/compon_communic/coupsend_r4.F 59 COUPSEND_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4.F 65 COUPSEND_R4 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r4tiles.F 25 COUPSEND_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4tiles.F 51 COUPSEND_R4TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 55 COUPSEND_R4TILES 
        r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4tiles.F 61 COUPSEND_R4TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r4tiles.F 62 COUPSEND_R4TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4tiles.F 68 COUPSEND_R4TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r8.F 25 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 48 COUPSEND_R8 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 52 COUPSEND_R8 
       r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8.F 58 COUPSEND_R8 
        do i=1,Ni
./pkg/compon_communic/coupsend_r8.F 59 COUPSEND_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8.F 65 COUPSEND_R8 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/coupsend_r8tiles.F 25 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 51 COUPSEND_R8TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 55 COUPSEND_R8TILES 
        r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8tiles.F 61 COUPSEND_R8TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r8tiles.F 62 COUPSEND_R8TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8tiles.F 68 COUPSEND_R8TILES 
        count=HEADER_SIZE+Ni*Nj