File |
Line number |
Procedure |
Code |
./pkg/compon_communic/comprecv_r8tiles.F |
12 |
COMPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/comprecv_r8tiles.F |
34 |
COMPRECV_R8TILES |
rank=my_coupler_rank |
./pkg/compon_communic/comprecv_r8tiles.F |
38 |
COMPRECV_R8TILES |
write(LogUnit,*) 'comprecv_r8tiles: calling MPI_Recv rank=',rank |
./pkg/compon_communic/comprecv_r8tiles.F |
42 |
COMPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/couprecv_r8.F |
13 |
COUPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/couprecv_r8.F |
46 |
COUPRECV_R8 |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/couprecv_r8.F |
48 |
COUPRECV_R8 |
write(LogUnit,*) 'couprecv_r8: calling MPI_Recv rank=',rank, |
./pkg/compon_communic/couprecv_r8.F |
52 |
COUPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/comprecv_r8.F |
12 |
COMPRECV_R8 |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/comprecv_r8.F |
28 |
COMPRECV_R8 |
rank=my_coupler_rank |
./pkg/compon_communic/comprecv_r8.F |
32 |
COMPRECV_R8 |
write(LogUnit,*) 'comprecv_r8: calling MPI_Recv rank=',rank |
./pkg/compon_communic/comprecv_r8.F |
36 |
COMPRECV_R8 |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/couprecv_r8tiles.F |
13 |
COUPRECV_R8TILES |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/couprecv_r8tiles.F |
49 |
COUPRECV_R8TILES |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/couprecv_r8tiles.F |
53 |
COUPRECV_R8TILES |
& 'couprecv_r8tiles: calling MPI_Recv rank=',rank, |
./pkg/compon_communic/couprecv_r8tiles.F |
57 |
COUPRECV_R8TILES |
call MPI_RECV(r8buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/comprecv_r4.F |
12 |
COMPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/comprecv_r4.F |
28 |
COMPRECV_R4 |
rank=my_coupler_rank |
./pkg/compon_communic/comprecv_r4.F |
32 |
COMPRECV_R4 |
write(LogUnit,*) 'comprecv_r4: calling MPI_Recv rank=',rank |
./pkg/compon_communic/comprecv_r4.F |
36 |
COMPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/mitcoupler_tile_register.F |
22 |
MITCOUPLER_TILE_REGISTER |
integer compind,count,dtype,tag,rank |
./pkg/compon_communic/mitcoupler_tile_register.F |
46 |
MITCOUPLER_TILE_REGISTER |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/mitcoupler_tile_register.F |
48 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/mitcoupler_tile_register.F |
70 |
MITCOUPLER_TILE_REGISTER |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/mitcoupler_tile_register.F |
72 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/mitcoupler_tile_register.F |
95 |
MITCOUPLER_TILE_REGISTER |
& ' rank = ',rank, |
./pkg/compon_communic/comprecv_r4tiles.F |
12 |
COMPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/comprecv_r4tiles.F |
34 |
COMPRECV_R4TILES |
rank=my_coupler_rank |
./pkg/compon_communic/comprecv_r4tiles.F |
38 |
COMPRECV_R4TILES |
write(LogUnit,*) 'comprecv_r4tiles: calling MPI_Recv rank=',rank |
./pkg/compon_communic/comprecv_r4tiles.F |
42 |
COMPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/couprecv_r4tiles.F |
13 |
COUPRECV_R4TILES |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/couprecv_r4tiles.F |
49 |
COUPRECV_R4TILES |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/couprecv_r4tiles.F |
53 |
COUPRECV_R4TILES |
& 'couprecv_r4tiles: calling MPI_Recv rank=',rank, |
./pkg/compon_communic/couprecv_r4tiles.F |
57 |
COUPRECV_R4TILES |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/couprecv_r4.F |
13 |
COUPRECV_R4 |
integer count,dtype,rank,tag,comm,ierr |
./pkg/compon_communic/couprecv_r4.F |
46 |
COUPRECV_R4 |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/couprecv_r4.F |
48 |
COUPRECV_R4 |
write(LogUnit,*) 'couprecv_r4: calling MPI_Recv rank=',rank, |
./pkg/compon_communic/couprecv_r4.F |
52 |
COUPRECV_R4 |
call MPI_RECV(r4buf, count, dtype, rank, tag, comm, stat, ierr) |
./pkg/compon_communic/mitcoupler_register.F |
22 |
MITCOUPLER_REGISTER |
integer compind,count,dtype,tag,rank |
./pkg/compon_communic/mitcoupler_register.F |
46 |
MITCOUPLER_REGISTER |
rank=rank_component_procs(n,compind) |
./pkg/compon_communic/mitcoupler_register.F |
48 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |