Symbol Description Uses
r8buf 58


File Line number Procedure Code
./pkg/compon_communic/CPLR_SIG.h 63 NO PROCEDURE 
      real*8 r8buf(MAX_R8_BUFLEN)
./pkg/compon_communic/CPLR_SIG.h 65 NO PROCEDURE 
     &  r4buf,r8buf
./pkg/compon_communic/comprecv_r8.F 39 COMPRECV_R8 
      call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8.F 53 COMPRECV_R8 
      Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8.F 54 COMPRECV_R8 
      Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8.F 55 COMPRECV_R8 
      nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8.F 56 COMPRECV_R8 
      ny=int(0.5+r8buf(4))
./pkg/compon_communic/comprecv_r8.F 57 COMPRECV_R8 
      call MITCPLR_DBL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/comprecv_r8.F 73 COMPRECV_R8 
        arr(i,j)=r8buf(ij)
./pkg/compon_communic/comprecv_r8tiles.F 45 COMPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8tiles.F 59 COMPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8tiles.F 60 COMPRECV_R8TILES 
       Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8tiles.F 61 COMPRECV_R8TILES 
       nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8tiles.F 62 COMPRECV_R8TILES 
       ny=int(0.5+r8buf(4))
./pkg/compon_communic/comprecv_r8tiles.F 63 COMPRECV_R8TILES 
       call MITCPLR_DBL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/comprecv_r8tiles.F 80 COMPRECV_R8TILES 
         arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/compsend_r8.F 28 COMPSEND_R8 
      r8buf(1)=float(Io)
./pkg/compon_communic/compsend_r8.F 29 COMPSEND_R8 
      r8buf(2)=float(Ni)
./pkg/compon_communic/compsend_r8.F 30 COMPSEND_R8 
      r8buf(3)=float(Jo)
./pkg/compon_communic/compsend_r8.F 31 COMPSEND_R8 
      r8buf(4)=float(Nj)
./pkg/compon_communic/compsend_r8.F 32 COMPSEND_R8 
      call MITCPLR_CHAR2DBL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8.F 38 COMPSEND_R8 
        r8buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r8.F 54 COMPSEND_R8 
      call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r8tiles.F 37 COMPSEND_R8TILES 
       r8buf(1)=float( my_tile_i0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 38 COMPSEND_R8TILES 
       r8buf(2)=float( my_tile_nx(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 39 COMPSEND_R8TILES 
       r8buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 40 COMPSEND_R8TILES 
       r8buf(4)=float( my_tile_ny(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 41 COMPSEND_R8TILES 
       call MITCPLR_CHAR2DBL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8tiles.F 48 COMPSEND_R8TILES 
         r8buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r8tiles.F 65 COMPSEND_R8TILES 
       call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/couprecv_r8.F 55 COUPRECV_R8 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8.F 69 COUPRECV_R8 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8.F 70 COUPRECV_R8 
       Ni=int(0.5+r8buf(2))
./pkg/compon_communic/couprecv_r8.F 71 COUPRECV_R8 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8.F 72 COUPRECV_R8 
       Nj=int(0.5+r8buf(4))
./pkg/compon_communic/couprecv_r8.F 83 COUPRECV_R8 
       call MITCPLR_DBL2CHAR( r8buf(9), recvdname )
./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 60 COUPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8tiles.F 74 COUPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8tiles.F 75 COUPRECV_R8TILES 
       Ni=int(0.5+r8buf(2))
./pkg/compon_communic/couprecv_r8tiles.F 76 COUPRECV_R8TILES 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8tiles.F 77 COUPRECV_R8TILES 
       Nj=int(0.5+r8buf(4))
./pkg/compon_communic/couprecv_r8tiles.F 96 COUPRECV_R8TILES 
       call MITCPLR_DBL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/coupsend_r8.F 50 COUPSEND_R8 
       r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8.F 51 COUPSEND_R8 
       r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8.F 52 COUPSEND_R8 
       r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8.F 53 COUPSEND_R8 
       r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8.F 54 COUPSEND_R8 
       call MITCPLR_CHAR2DBL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8.F 60 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F 75 COUPSEND_R8 
       call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8tiles.F 53 COUPSEND_R8TILES 
        r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8tiles.F 54 COUPSEND_R8TILES 
        r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8tiles.F 55 COUPSEND_R8TILES 
        r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8tiles.F 56 COUPSEND_R8TILES 
        r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8tiles.F 57 COUPSEND_R8TILES 
        call MITCPLR_CHAR2DBL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8tiles.F 63 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F 78 COUPSEND_R8TILES 
        call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )