Symbol Description Uses
r4buf 58


File Line number Procedure Code
./pkg/compon_communic/CPLR_SIG.h 62 NO PROCEDURE 
      real*4 r4buf(MAX_R4_BUFLEN)
./pkg/compon_communic/CPLR_SIG.h 65 NO PROCEDURE 
     &  r4buf,r8buf
./pkg/compon_communic/comprecv_r4.F 39 COMPRECV_R4 
      call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r4.F 53 COMPRECV_R4 
      Io=int(0.5+r4buf(1))
./pkg/compon_communic/comprecv_r4.F 54 COMPRECV_R4 
      Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4.F 55 COMPRECV_R4 
      nx=int(0.5+r4buf(3))
./pkg/compon_communic/comprecv_r4.F 56 COMPRECV_R4 
      ny=int(0.5+r4buf(4))
./pkg/compon_communic/comprecv_r4.F 57 COMPRECV_R4 
      call MITCPLR_REAL2CHAR( r4buf(9), recvdname )
./pkg/compon_communic/comprecv_r4.F 73 COMPRECV_R4 
        arr(i,j)=r4buf(ij)
./pkg/compon_communic/comprecv_r4tiles.F 45 COMPRECV_R4TILES 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r4tiles.F 59 COMPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/comprecv_r4tiles.F 60 COMPRECV_R4TILES 
       Jo=int(0.5+r4buf(2))
./pkg/compon_communic/comprecv_r4tiles.F 61 COMPRECV_R4TILES 
       nx=int(0.5+r4buf(3))
./pkg/compon_communic/comprecv_r4tiles.F 62 COMPRECV_R4TILES 
       ny=int(0.5+r4buf(4))
./pkg/compon_communic/comprecv_r4tiles.F 63 COMPRECV_R4TILES 
       call MITCPLR_REAL2CHAR( r4buf(9), recvdname )
./pkg/compon_communic/comprecv_r4tiles.F 80 COMPRECV_R4TILES 
         arr(i,j,k,bi,bj)=r4buf(ij)
./pkg/compon_communic/compsend_r4.F 28 COMPSEND_R4 
      r4buf(1)=float(Io)
./pkg/compon_communic/compsend_r4.F 29 COMPSEND_R4 
      r4buf(2)=float(Ni)
./pkg/compon_communic/compsend_r4.F 30 COMPSEND_R4 
      r4buf(3)=float(Jo)
./pkg/compon_communic/compsend_r4.F 31 COMPSEND_R4 
      r4buf(4)=float(Nj)
./pkg/compon_communic/compsend_r4.F 32 COMPSEND_R4 
      call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/compsend_r4.F 38 COMPSEND_R4 
        r4buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r4.F 54 COMPSEND_R4 
      call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr )
./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 41 COMPSEND_R4TILES 
       call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/compsend_r4tiles.F 48 COMPSEND_R4TILES 
         r4buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r4tiles.F 65 COMPSEND_R4TILES 
       call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/couprecv_r4.F 55 COUPRECV_R4 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r4.F 69 COUPRECV_R4 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4.F 70 COUPRECV_R4 
       Ni=int(0.5+r4buf(2))
./pkg/compon_communic/couprecv_r4.F 71 COUPRECV_R4 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4.F 72 COUPRECV_R4 
       Nj=int(0.5+r4buf(4))
./pkg/compon_communic/couprecv_r4.F 83 COUPRECV_R4 
       call MITCPLR_REAL2CHAR( r4buf(9), recvdname )
./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 60 COUPRECV_R4TILES 
       call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r4tiles.F 74 COUPRECV_R4TILES 
       Io=int(0.5+r4buf(1))
./pkg/compon_communic/couprecv_r4tiles.F 75 COUPRECV_R4TILES 
       Ni=int(0.5+r4buf(2))
./pkg/compon_communic/couprecv_r4tiles.F 76 COUPRECV_R4TILES 
       Jo=int(0.5+r4buf(3))
./pkg/compon_communic/couprecv_r4tiles.F 77 COUPRECV_R4TILES 
       Nj=int(0.5+r4buf(4))
./pkg/compon_communic/couprecv_r4tiles.F 96 COUPRECV_R4TILES 
       call MITCPLR_REAL2CHAR( r4buf(9), recvdname )
./pkg/compon_communic/coupsend_r4.F 50 COUPSEND_R4 
       r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4.F 51 COUPSEND_R4 
       r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4.F 52 COUPSEND_R4 
       r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4.F 53 COUPSEND_R4 
       r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4.F 54 COUPSEND_R4 
       call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/coupsend_r4.F 60 COUPSEND_R4 
         r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4.F 75 COUPSEND_R4 
       call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r4tiles.F 53 COUPSEND_R4TILES 
        r4buf(1)=float( Io )
./pkg/compon_communic/coupsend_r4tiles.F 54 COUPSEND_R4TILES 
        r4buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r4tiles.F 55 COUPSEND_R4TILES 
        r4buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r4tiles.F 56 COUPSEND_R4TILES 
        r4buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r4tiles.F 57 COUPSEND_R4TILES 
        call MITCPLR_CHAR2REAL( dataname, r4buf(9) )
./pkg/compon_communic/coupsend_r4tiles.F 63 COUPSEND_R4TILES 
          r4buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r4tiles.F 78 COUPSEND_R4TILES 
        call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )