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