Symbol Description Uses
dest 40


File Line number Procedure Code
./pkg/compon_communic/compsend_r4.F 15 COMPSEND_R4 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r4.F 45 COMPSEND_R4 
      dest=my_coupler_rank
./pkg/compon_communic/compsend_r4.F 50 COMPSEND_R4 
       write(LogUnit,*) 'compsend_r4: calling MPI_Send dest=',dest
./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 15 COMPSEND_R4TILES 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r4tiles.F 55 COMPSEND_R4TILES 
       dest=my_coupler_rank
./pkg/compon_communic/compsend_r4tiles.F 61 COMPSEND_R4TILES 
     &   'compsend_r4tiles: calling MPI_Send dest=',dest,' tile=',bibj
./pkg/compon_communic/compsend_r4tiles.F 65 COMPSEND_R4TILES 
       call MPI_SEND( r4buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/compsend_r8.F 15 COMPSEND_R8 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r8.F 45 COMPSEND_R8 
      dest=my_coupler_rank
./pkg/compon_communic/compsend_r8.F 50 COMPSEND_R8 
       write(LogUnit,*) 'compsend_r8: calling MPI_Send dest=',dest
./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 15 COMPSEND_R8TILES 
      integer count,datatype,dest,tag,comm,ierr
./pkg/compon_communic/compsend_r8tiles.F 55 COMPSEND_R8TILES 
       dest=my_coupler_rank
./pkg/compon_communic/compsend_r8tiles.F 61 COMPSEND_R8TILES 
     &   'compsend_r8tiles: calling MPI_Send dest=',dest,' tile=',bibj
./pkg/compon_communic/compsend_r8tiles.F 65 COMPSEND_R8TILES 
       call MPI_SEND( r8buf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r4.F 16 COUPSEND_R4 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r4.F 66 COUPSEND_R4 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r4.F 69 COUPSEND_R4 
        write(LogUnit,*) 'coupsend_r4: calling MPI_Send dest=',dest,
./pkg/compon_communic/coupsend_r4.F 73 COUPSEND_R4 
       call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r4tiles.F 16 COUPSEND_R4TILES 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r4tiles.F 69 COUPSEND_R4TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r4tiles.F 73 COUPSEND_R4TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r4tiles.F 76 COUPSEND_R4TILES 
        call MPI_SEND( r4buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8.F 16 COUPSEND_R8 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r8.F 66 COUPSEND_R8 
       dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8.F 69 COUPSEND_R8 
        write(LogUnit,*) 'coupsend_r8: calling MPI_Send dest=',dest,
./pkg/compon_communic/coupsend_r8.F 73 COUPSEND_R8 
       call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/coupsend_r8tiles.F 16 COUPSEND_R8TILES 
      integer count,dtype,dest,tag,comm,ierr
./pkg/compon_communic/coupsend_r8tiles.F 69 COUPSEND_R8TILES 
        dest=rank_component_procs(n,compind)
./pkg/compon_communic/coupsend_r8tiles.F 73 COUPSEND_R8TILES 
     &     dest,' proc=',n,'/',numprocs,' tile=',bibj
./pkg/compon_communic/coupsend_r8tiles.F 76 COUPSEND_R8TILES 
        call MPI_SEND( r8buf, count, dtype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_register.F 24 MITCOMPONENT_REGISTER 
      integer count,datatype,dest,tag,comm
./pkg/compon_communic/mitcomponent_register.F 44 MITCOMPONENT_REGISTER 
      dest=my_coupler_rank
./pkg/compon_communic/mitcomponent_register.F 48 MITCOMPONENT_REGISTER 
      call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_tile_register.F 26 MITCOMPONENT_TILE_REGISTER 
      integer count,datatype,dest,tag,comm
./pkg/compon_communic/mitcomponent_tile_register.F 65 MITCOMPONENT_TILE_REGISTER 
      dest=my_coupler_rank
./pkg/compon_communic/mitcomponent_tile_register.F 69 MITCOMPONENT_TILE_REGISTER 
      call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )
./pkg/compon_communic/mitcomponent_tile_register.F 91 MITCOMPONENT_TILE_REGISTER 
       dest=my_coupler_rank
./pkg/compon_communic/mitcomponent_tile_register.F 95 MITCOMPONENT_TILE_REGISTER 
       call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr )