| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
44 |
NO PROCEDURE |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcomponent_register.F |
29 |
MITCOMPONENT_REGISTER |
ibuf(1)=1 |
|
./pkg/compon_communic/mitcomponent_register.F |
30 |
MITCOMPONENT_REGISTER |
ibuf(2)=nx |
|
./pkg/compon_communic/mitcomponent_register.F |
31 |
MITCOMPONENT_REGISTER |
ibuf(3)=ny |
|
./pkg/compon_communic/mitcomponent_register.F |
32 |
MITCOMPONENT_REGISTER |
ibuf(4)=i0 |
|
./pkg/compon_communic/mitcomponent_register.F |
33 |
MITCOMPONENT_REGISTER |
ibuf(5)=j0 |
|
./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 |
60 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=num_tiles |
|
./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 |
83 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1)=my_tile_nx(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
84 |
MITCOMPONENT_TILE_REGISTER |
ibuf(2)=my_tile_ny(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
85 |
MITCOMPONENT_TILE_REGISTER |
ibuf(3)=my_tile_i0(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
86 |
MITCOMPONENT_TILE_REGISTER |
ibuf(4)=my_tile_j0(bibj) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
95 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_register.F |
51 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_register.F |
61 |
MITCOUPLER_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_register.F |
62 |
MITCOUPLER_REGISTER |
nx=ibuf(2) |
|
./pkg/compon_communic/mitcoupler_register.F |
63 |
MITCOUPLER_REGISTER |
ny=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_register.F |
64 |
MITCOUPLER_REGISTER |
i0=ibuf(4) |
|
./pkg/compon_communic/mitcoupler_register.F |
65 |
MITCOUPLER_REGISTER |
j0=ibuf(5) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
51 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
60 |
MITCOUPLER_TILE_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
75 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
84 |
MITCOUPLER_TILE_REGISTER |
component_tile_nx(j,n,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
85 |
MITCOUPLER_TILE_REGISTER |
component_tile_ny(j,n,compind)=ibuf(2) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
86 |
MITCOUPLER_TILE_REGISTER |
component_tile_i0(j,n,compind)=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
87 |
MITCOUPLER_TILE_REGISTER |
component_tile_j0(j,n,compind)=ibuf(4) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
92 |
MITCOUPLER_TILE_REGISTER |
& ' proc,tile,nx,ny,i0,j0 = ',n,j,ibuf(1),ibuf(2),ibuf(3),ibuf(4) |
|
./pkg/compon_communic/mitcplr_init1.F |
54 |
MITCPLR_INIT1 |
ibuf(1)=myid |
|
./pkg/compon_communic/mitcplr_init1.F |
55 |
MITCPLR_INIT1 |
ibuf(2)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
56 |
MITCPLR_INIT1 |
if ( couplerFlag ) ibuf(2)=MITCPLR_COUPLER |
|
./pkg/compon_communic/mitcplr_init1.F |
57 |
MITCPLR_INIT1 |
ibuf(3)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
58 |
MITCPLR_INIT1 |
ibuf(4)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
59 |
MITCPLR_INIT1 |
ibuf(5)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
60 |
MITCPLR_INIT1 |
ibuf(6)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
61 |
MITCPLR_INIT1 |
ibuf(7)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
62 |
MITCPLR_INIT1 |
call MITCPLR_CHAR2INT( myTypeStr, ibuf(8) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
65 |
MITCPLR_INIT1 |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init1.F |
69 |
MITCPLR_INIT1 |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
70 |
MITCPLR_INIT1 |
call MITCPLR_INT2CHAR( ibuf(8), cbuf ) |
|
./pkg/compon_communic/mitcplr_init1.F |
74 |
MITCPLR_INIT1 |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init1.F |
77 |
MITCPLR_INIT1 |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init1.F |
86 |
MITCPLR_INIT1 |
rank_component_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2a.F |
36 |
MITCPLR_INIT2A |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcplr_init2a.F |
37 |
MITCPLR_INIT2A |
ibuf( 2)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
38 |
MITCPLR_INIT2A |
ibuf( 3)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
39 |
MITCPLR_INIT2A |
ibuf( 4)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
40 |
MITCPLR_INIT2A |
ibuf( 5)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
41 |
MITCPLR_INIT2A |
ibuf( 6)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
42 |
MITCPLR_INIT2A |
ibuf( 7)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
43 |
MITCPLR_INIT2A |
ibuf( 8)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
44 |
MITCPLR_INIT2A |
ibuf( 9)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
45 |
MITCPLR_INIT2A |
ibuf(10)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
46 |
MITCPLR_INIT2A |
ibuf(11)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
47 |
MITCPLR_INIT2A |
ibuf(12)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
50 |
MITCPLR_INIT2A |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init2a.F |
54 |
MITCPLR_INIT2A |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
56 |
MITCPLR_INIT2A |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init2a.F |
60 |
MITCPLR_INIT2A |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
44 |
MITCPLR_INIT2B |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcplr_init2b.F |
45 |
MITCPLR_INIT2B |
ibuf( 2)=MITCPLR_COUPLER |
|
./pkg/compon_communic/mitcplr_init2b.F |
46 |
MITCPLR_INIT2B |
ibuf( 3)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
47 |
MITCPLR_INIT2B |
ibuf( 4)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
48 |
MITCPLR_INIT2B |
ibuf( 5)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
49 |
MITCPLR_INIT2B |
ibuf( 6)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
50 |
MITCPLR_INIT2B |
ibuf( 7)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
51 |
MITCPLR_INIT2B |
ibuf( 8)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
52 |
MITCPLR_INIT2B |
ibuf( 9)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
53 |
MITCPLR_INIT2B |
ibuf(10)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
54 |
MITCPLR_INIT2B |
ibuf(11)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
55 |
MITCPLR_INIT2B |
ibuf(12)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
58 |
MITCPLR_INIT2B |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init2b.F |
62 |
MITCPLR_INIT2B |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
64 |
MITCPLR_INIT2B |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init2b.F |
67 |
MITCPLR_INIT2B |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
70 |
MITCPLR_INIT2B |
rank_compcplr_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
75 |
MITCPLR_INIT2B |
rank_component_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
78 |
MITCPLR_INIT2B |
rank_compcplr_procs(j,compind)=ibuf(1) |