Symbol Description Uses
r8buf 58


File Line number Procedure Code
./pkg/compon_communic/CPLR_SIG.h 61 NO PROCEDURE 
      real*8 r8buf(MAX_R8_BUFLEN)
./pkg/compon_communic/CPLR_SIG.h 63 NO PROCEDURE 
     &  r4buf,r8buf
./pkg/compon_communic/comprecv_r8tiles.F 42 COMPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8tiles.F 56 COMPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8tiles.F 57 COMPRECV_R8TILES 
       Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8tiles.F 58 COMPRECV_R8TILES 
       nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8tiles.F 59 COMPRECV_R8TILES 
       ny=int(0.5+r8buf(4))
./pkg/compon_communic/comprecv_r8tiles.F 60 COMPRECV_R8TILES 
       call MITCPLR_REAL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/comprecv_r8tiles.F 77 COMPRECV_R8TILES 
         arr(i,j,k,bi,bj)=r8buf(ij)
./pkg/compon_communic/couprecv_r8.F 52 COUPRECV_R8 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8.F 66 COUPRECV_R8 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8.F 67 COUPRECV_R8 
       Ni=int(0.5+r8buf(2))
./pkg/compon_communic/couprecv_r8.F 68 COUPRECV_R8 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8.F 69 COUPRECV_R8 
       Nj=int(0.5+r8buf(4))
./pkg/compon_communic/couprecv_r8.F 80 COUPRECV_R8 
       call MITCPLR_REAL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/couprecv_r8.F 91 COUPRECV_R8 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/coupsend_r8tiles.F 48 COUPSEND_R8TILES 
        r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8tiles.F 49 COUPSEND_R8TILES 
        r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8tiles.F 50 COUPSEND_R8TILES 
        r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8tiles.F 51 COUPSEND_R8TILES 
        r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8tiles.F 52 COUPSEND_R8TILES 
        call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8tiles.F 58 COUPSEND_R8TILES 
          r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8tiles.F 73 COUPSEND_R8TILES 
        call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/comprecv_r8.F 36 COMPRECV_R8 
      call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/comprecv_r8.F 50 COMPRECV_R8 
      Io=int(0.5+r8buf(1))
./pkg/compon_communic/comprecv_r8.F 51 COMPRECV_R8 
      Jo=int(0.5+r8buf(2))
./pkg/compon_communic/comprecv_r8.F 52 COMPRECV_R8 
      nx=int(0.5+r8buf(3))
./pkg/compon_communic/comprecv_r8.F 53 COMPRECV_R8 
      ny=int(0.5+r8buf(4))
./pkg/compon_communic/comprecv_r8.F 54 COMPRECV_R8 
      call MITCPLR_REAL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/comprecv_r8.F 70 COMPRECV_R8 
        arr(i,j)=r8buf(ij)
./pkg/compon_communic/compsend_r8tiles.F 34 COMPSEND_R8TILES 
       r8buf(1)=float( my_tile_i0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 35 COMPSEND_R8TILES 
       r8buf(2)=float( my_tile_nx(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 36 COMPSEND_R8TILES 
       r8buf(3)=float( my_tile_j0(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 37 COMPSEND_R8TILES 
       r8buf(4)=float( my_tile_ny(bibj) )
./pkg/compon_communic/compsend_r8tiles.F 38 COMPSEND_R8TILES 
       call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8tiles.F 45 COMPSEND_R8TILES 
         r8buf(ij)=arr(i,j,k,bi,bj)
./pkg/compon_communic/compsend_r8tiles.F 62 COMPSEND_R8TILES 
       call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/couprecv_r8tiles.F 104 COUPRECV_R8TILES 
         arr(Io+i-1,Jo+j-1)=r8buf(ij)
./pkg/compon_communic/couprecv_r8tiles.F 57 COUPRECV_R8TILES 
       call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr)
./pkg/compon_communic/couprecv_r8tiles.F 71 COUPRECV_R8TILES 
       Io=int(0.5+r8buf(1))
./pkg/compon_communic/couprecv_r8tiles.F 72 COUPRECV_R8TILES 
       Ni=int(0.5+r8buf(2))
./pkg/compon_communic/couprecv_r8tiles.F 73 COUPRECV_R8TILES 
       Jo=int(0.5+r8buf(3))
./pkg/compon_communic/couprecv_r8tiles.F 74 COUPRECV_R8TILES 
       Nj=int(0.5+r8buf(4))
./pkg/compon_communic/couprecv_r8tiles.F 93 COUPRECV_R8TILES 
       call MITCPLR_REAL2CHAR( r8buf(9), recvdname )
./pkg/compon_communic/compsend_r8.F 25 COMPSEND_R8 
      r8buf(1)=float(Io)
./pkg/compon_communic/compsend_r8.F 26 COMPSEND_R8 
      r8buf(2)=float(Ni)
./pkg/compon_communic/compsend_r8.F 27 COMPSEND_R8 
      r8buf(3)=float(Jo)
./pkg/compon_communic/compsend_r8.F 28 COMPSEND_R8 
      r8buf(4)=float(Nj)
./pkg/compon_communic/compsend_r8.F 29 COMPSEND_R8 
      call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/compsend_r8.F 35 COMPSEND_R8 
        r8buf(ij)=arr(i,j)
./pkg/compon_communic/compsend_r8.F 51 COMPSEND_R8 
      call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8.F 45 COUPSEND_R8 
       r8buf(1)=float( Io )
./pkg/compon_communic/coupsend_r8.F 46 COUPSEND_R8 
       r8buf(2)=float( Jo )
./pkg/compon_communic/coupsend_r8.F 47 COUPSEND_R8 
       r8buf(3)=float( Ni )
./pkg/compon_communic/coupsend_r8.F 48 COUPSEND_R8 
       r8buf(4)=float( Nj )
./pkg/compon_communic/coupsend_r8.F 49 COUPSEND_R8 
       call MITCPLR_CHAR2REAL( dataname, r8buf(9) )
./pkg/compon_communic/coupsend_r8.F 55 COUPSEND_R8 
         r8buf(ij)=arr(Io+i-1,Jo+j-1)
./pkg/compon_communic/coupsend_r8.F 70 COUPSEND_R8 
       call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )