Symbol Description Uses
Ni 106


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 46 COUPSEND_R4TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 50 COUPSEND_R4TILES 
        r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4tiles.F 56 COUPSEND_R4TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r4tiles.F 57 COUPSEND_R4TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4tiles.F 63 COUPSEND_R4TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/comprecv_r8tiles.F 21 COMPRECV_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8tiles.F 2 COMPRECV_R8TILES 
      subroutine COMPRECV_R8TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r8tiles.F 6 COMPRECV_R8TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r8tiles.F 75 COMPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r8tiles.F 76 COMPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8tiles.F 7 COMPRECV_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/couprecv_r8.F 21 COUPRECV_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8.F 67 COUPRECV_R8 
       Ni=int(0.5+r8buf(2))
./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 89 COUPRECV_R8 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8.F 90 COUPRECV_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8tiles.F 20 COUPSEND_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8tiles.F 46 COUPSEND_R8TILES 
        Ni=component_tile_nx(bibj,n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES 
        r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8tiles.F 56 COUPSEND_R8TILES 
         do i=1,Ni
./pkg/compon_communic/coupsend_r8tiles.F 57 COUPSEND_R8TILES 
          ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8tiles.F 63 COUPSEND_R8TILES 
        count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/comprecv_r8.F 21 COMPRECV_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/comprecv_r8.F 2 COMPRECV_R8 
      subroutine COMPRECV_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r8.F 68 COMPRECV_R8 
       do i=1,Ni
./pkg/compon_communic/comprecv_r8.F 69 COMPRECV_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r8.F 6 COMPRECV_R8 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r8.F 7 COMPRECV_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r4.F 19 COMPSEND_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4.F 26 COMPSEND_R4 
      r4buf(2)=float(Ni)
./pkg/compon_communic/compsend_r4.F 2 COMPSEND_R4 
      subroutine COMPSEND_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r4.F 33 COMPSEND_R4 
       do i=1,Ni
./pkg/compon_communic/compsend_r4.F 34 COMPSEND_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4.F 40 COMPSEND_R4 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4.F 6 COMPSEND_R4 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r4.F 7 COMPSEND_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/compsend_r8tiles.F 19 COMPSEND_R8TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8tiles.F 28 COMPSEND_R8TILES 
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r8tiles.F 2 COMPSEND_R8TILES 
      subroutine COMPSEND_R8TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r8tiles.F 43 COMPSEND_R8TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r8tiles.F 44 COMPSEND_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8tiles.F 50 COMPSEND_R8TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8tiles.F 6 COMPSEND_R8TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r8tiles.F 7 COMPSEND_R8TILES 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/couprecv_r8tiles.F 102 COUPRECV_R8TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r8tiles.F 103 COUPRECV_R8TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r8tiles.F 21 COUPRECV_R8TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r8tiles.F 72 COUPRECV_R8TILES 
       Ni=int(0.5+r8buf(2))
./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 88 COUPRECV_R8TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/comprecv_r4.F 21 COMPRECV_R4 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4.F 2 COMPRECV_R4 
      subroutine COMPRECV_R4( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/comprecv_r4.F 68 COMPRECV_R4 
       do i=1,Ni
./pkg/compon_communic/comprecv_r4.F 69 COMPRECV_R4 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4.F 6 COMPRECV_R4 
      integer Ni,Oi,Nj,Oj,Io,Jo
./pkg/compon_communic/comprecv_r4.F 7 COMPRECV_R4 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/coupsend_r4.F 20 COUPSEND_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r4.F 43 COUPSEND_R4 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r4.F 47 COUPSEND_R4 
       r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4.F 53 COUPSEND_R4 
        do i=1,Ni
./pkg/compon_communic/coupsend_r4.F 54 COUPSEND_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r4.F 60 COUPSEND_R4 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 19 COMPSEND_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/compsend_r4tiles.F 28 COMPSEND_R4TILES 
       if (Ni.ne.my_tile_nx(bibj))
./pkg/compon_communic/compsend_r4tiles.F 2 COMPSEND_R4TILES 
      subroutine COMPSEND_R4TILES( dataname,Ni,Oi,Nj,Oj,Nk,Ti,Tj, arr )
./pkg/compon_communic/compsend_r4tiles.F 43 COMPSEND_R4TILES 
        do i=1,Ni
./pkg/compon_communic/compsend_r4tiles.F 44 COMPSEND_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r4tiles.F 50 COMPSEND_R4TILES 
       count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r4tiles.F 6 COMPSEND_R4TILES 
      integer Ni,Oi,Nj,Oj,Nk,Ti,Tj
./pkg/compon_communic/compsend_r4tiles.F 7 COMPSEND_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Ti,Tj)
./pkg/compon_communic/compsend_r8.F 19 COMPSEND_R8 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R8_BUFLEN)
./pkg/compon_communic/compsend_r8.F 26 COMPSEND_R8 
      r8buf(2)=float(Ni)
./pkg/compon_communic/compsend_r8.F 2 COMPSEND_R8 
      subroutine COMPSEND_R8( dataname, Ni,Oi,Nj,Oj, arr )
./pkg/compon_communic/compsend_r8.F 33 COMPSEND_R8 
       do i=1,Ni
./pkg/compon_communic/compsend_r8.F 34 COMPSEND_R8 
        ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/compsend_r8.F 40 COMPSEND_R8 
      count=HEADER_SIZE+Ni*Nj
./pkg/compon_communic/compsend_r8.F 6 COMPSEND_R8 
      integer Ni,Oi,Nj,Oj
./pkg/compon_communic/compsend_r8.F 7 COMPSEND_R8 
      real*8 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj)
./pkg/compon_communic/comprecv_r4tiles.F 21 COMPRECV_R4TILES 
      if (HEADER_SIZE+Ni*Nj.gt.MAX_R4_BUFLEN)
./pkg/compon_communic/comprecv_r4tiles.F 2 COMPRECV_R4TILES 
      subroutine COMPRECV_R4TILES( dataname, Ni,Oi,Nj,Oj,Nk,Tx,Ty, arr )
./pkg/compon_communic/comprecv_r4tiles.F 6 COMPRECV_R4TILES 
      integer Ni,Oi,Nj,Oj,Io,Jo,Nk,Tx,Ty
./pkg/compon_communic/comprecv_r4tiles.F 75 COMPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/comprecv_r4tiles.F 76 COMPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/comprecv_r4tiles.F 7 COMPRECV_R4TILES 
      real*4 arr(1-Oi:Ni+Oi,1-Oj:Nj+Oj,Nk,Tx,Ty)
./pkg/compon_communic/couprecv_r4tiles.F 102 COUPRECV_R4TILES 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4tiles.F 103 COUPRECV_R4TILES 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/couprecv_r4tiles.F 21 COUPRECV_R4TILES 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4tiles.F 72 COUPRECV_R4TILES 
       Ni=int(0.5+r4buf(2))
./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 88 COUPRECV_R4TILES 
       if (Ni.ne.component_tile_nx(bibj,n,compind))
./pkg/compon_communic/couprecv_r4.F 21 COUPRECV_R4 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/couprecv_r4.F 67 COUPRECV_R4 
       Ni=int(0.5+r4buf(2))
./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 89 COUPRECV_R4 
        do i=1,Ni
./pkg/compon_communic/couprecv_r4.F 90 COUPRECV_R4 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8.F 20 COUPSEND_R8 
      integer Ni,Io,Nj,Jo
./pkg/compon_communic/coupsend_r8.F 43 COUPSEND_R8 
       Ni=component_tile_nx(1,n,compind)
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8 
       r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8.F 53 COUPSEND_R8 
        do i=1,Ni
./pkg/compon_communic/coupsend_r8.F 54 COUPSEND_R8 
         ij=HEADER_SIZE+i+Ni*(j-1)
./pkg/compon_communic/coupsend_r8.F 60 COUPSEND_R8 
       count=HEADER_SIZE+Ni*Nj