| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/comprecv_i4vec.F |
22 |
COMPRECV_I4VEC |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/comprecv_i4vec.F |
41 |
COMPRECV_I4VEC |
call MPI_RECV( ibuf, count, dtype, rank, tag, comm, stat, ierr ) |
|
./pkg/compon_communic/comprecv_i4vec.F |
55 |
COMPRECV_I4VEC |
j = ibuf(1) |
|
./pkg/compon_communic/comprecv_i4vec.F |
63 |
COMPRECV_I4VEC |
vecFld(i) = ibuf(i+1) |
|
./pkg/compon_communic/compsend_i4vec.F |
21 |
COMPSEND_I4VEC |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/compsend_i4vec.F |
28 |
COMPSEND_I4VEC |
ibuf(1) = length |
|
./pkg/compon_communic/compsend_i4vec.F |
30 |
COMPSEND_I4VEC |
ibuf(i+1) = vecFld(i) |
|
./pkg/compon_communic/compsend_i4vec.F |
46 |
COMPSEND_I4VEC |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/couprecv_i4vec.F |
26 |
COUPRECV_I4VEC |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/couprecv_i4vec.F |
61 |
COUPRECV_I4VEC |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/couprecv_i4vec.F |
75 |
COUPRECV_I4VEC |
j = ibuf(1) |
|
./pkg/compon_communic/couprecv_i4vec.F |
85 |
COUPRECV_I4VEC |
vecFld(i) = ibuf(i+1) |
|
./pkg/compon_communic/couprecv_i4vec.F |
90 |
COUPRECV_I4VEC |
if ( vecFld(i) .ne. ibuf(i+1) ) ndiff = ndiff + 1 |
|
./pkg/compon_communic/coupsend_i4vec.F |
25 |
COUPSEND_I4VEC |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/coupsend_i4vec.F |
46 |
COUPSEND_I4VEC |
ibuf(1) = length |
|
./pkg/compon_communic/coupsend_i4vec.F |
48 |
COUPSEND_I4VEC |
ibuf(i+1) = vecFld(i) |
|
./pkg/compon_communic/coupsend_i4vec.F |
66 |
COUPSEND_I4VEC |
call MPI_SEND( ibuf, count, dtype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_register.F |
26 |
MITCOMPONENT_REGISTER |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcomponent_register.F |
31 |
MITCOMPONENT_REGISTER |
ibuf(1)=1 |
|
./pkg/compon_communic/mitcomponent_register.F |
32 |
MITCOMPONENT_REGISTER |
ibuf(2)=nx |
|
./pkg/compon_communic/mitcomponent_register.F |
33 |
MITCOMPONENT_REGISTER |
ibuf(3)=ny |
|
./pkg/compon_communic/mitcomponent_register.F |
34 |
MITCOMPONENT_REGISTER |
ibuf(4)=i0 |
|
./pkg/compon_communic/mitcomponent_register.F |
35 |
MITCOMPONENT_REGISTER |
ibuf(5)=j0 |
|
./pkg/compon_communic/mitcomponent_register.F |
50 |
MITCOMPONENT_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
29 |
MITCOMPONENT_TILE_REGISTER |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
58 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1) = num_tiles |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
67 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
81 |
MITCOMPONENT_TILE_REGISTER |
ibuf(1) = my_tile_nx(n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
82 |
MITCOMPONENT_TILE_REGISTER |
ibuf(2) = my_tile_ny(n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
83 |
MITCOMPONENT_TILE_REGISTER |
ibuf(3) = my_tile_i0(n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
84 |
MITCOMPONENT_TILE_REGISTER |
ibuf(4) = my_tile_j0(n) |
|
./pkg/compon_communic/mitcomponent_tile_register.F |
93 |
MITCOMPONENT_TILE_REGISTER |
call MPI_SEND( ibuf, count, datatype, dest, tag, comm, ierr ) |
|
./pkg/compon_communic/mitcoupler_register.F |
31 |
MITCOUPLER_REGISTER |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcoupler_register.F |
54 |
MITCOUPLER_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_register.F |
64 |
MITCOUPLER_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_register.F |
65 |
MITCOUPLER_REGISTER |
nx=ibuf(2) |
|
./pkg/compon_communic/mitcoupler_register.F |
66 |
MITCOUPLER_REGISTER |
ny=ibuf(3) |
|
./pkg/compon_communic/mitcoupler_register.F |
67 |
MITCOUPLER_REGISTER |
i0=ibuf(4) |
|
./pkg/compon_communic/mitcoupler_register.F |
68 |
MITCOUPLER_REGISTER |
j0=ibuf(5) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
32 |
MITCOUPLER_TILE_REGISTER |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
60 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
69 |
MITCOUPLER_TILE_REGISTER |
numtiles=ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
86 |
MITCOUPLER_TILE_REGISTER |
call MPI_RECV(ibuf, count, dtype, rank, tag, comm, stat, ierr) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
96 |
MITCOUPLER_TILE_REGISTER |
nx = ibuf(1) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
97 |
MITCOUPLER_TILE_REGISTER |
ny = ibuf(2) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
98 |
MITCOUPLER_TILE_REGISTER |
i0 = ibuf(3) |
|
./pkg/compon_communic/mitcoupler_tile_register.F |
99 |
MITCOUPLER_TILE_REGISTER |
j0 = ibuf(4) |
|
./pkg/compon_communic/mitcplr_init1.F |
29 |
MITCPLR_INIT1 |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcplr_init1.F |
55 |
MITCPLR_INIT1 |
ibuf(1)=myid |
|
./pkg/compon_communic/mitcplr_init1.F |
56 |
MITCPLR_INIT1 |
ibuf(2)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
57 |
MITCPLR_INIT1 |
if ( couplerFlag ) ibuf(2)=MITCPLR_COUPLER |
|
./pkg/compon_communic/mitcplr_init1.F |
58 |
MITCPLR_INIT1 |
ibuf(3)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
59 |
MITCPLR_INIT1 |
ibuf(4)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
60 |
MITCPLR_INIT1 |
ibuf(5)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
61 |
MITCPLR_INIT1 |
ibuf(6)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
62 |
MITCPLR_INIT1 |
ibuf(7)=0 |
|
./pkg/compon_communic/mitcplr_init1.F |
63 |
MITCPLR_INIT1 |
call MITCPLR_CHAR2INT( myTypeStr, ibuf(8) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
66 |
MITCPLR_INIT1 |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init1.F |
70 |
MITCPLR_INIT1 |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init1.F |
71 |
MITCPLR_INIT1 |
call MITCPLR_INT2CHAR( ibuf(8), cbuf ) |
|
./pkg/compon_communic/mitcplr_init1.F |
75 |
MITCPLR_INIT1 |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init1.F |
78 |
MITCPLR_INIT1 |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init1.F |
87 |
MITCPLR_INIT1 |
rank_component_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2a.F |
18 |
MITCPLR_INIT2A |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcplr_init2a.F |
39 |
MITCPLR_INIT2A |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcplr_init2a.F |
40 |
MITCPLR_INIT2A |
ibuf( 2)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
41 |
MITCPLR_INIT2A |
ibuf( 3)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
42 |
MITCPLR_INIT2A |
ibuf( 4)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
43 |
MITCPLR_INIT2A |
ibuf( 5)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
44 |
MITCPLR_INIT2A |
ibuf( 6)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
45 |
MITCPLR_INIT2A |
ibuf( 7)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
46 |
MITCPLR_INIT2A |
ibuf( 8)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
47 |
MITCPLR_INIT2A |
ibuf( 9)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
48 |
MITCPLR_INIT2A |
ibuf(10)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
49 |
MITCPLR_INIT2A |
ibuf(11)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
50 |
MITCPLR_INIT2A |
ibuf(12)=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
53 |
MITCPLR_INIT2A |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init2a.F |
57 |
MITCPLR_INIT2A |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2a.F |
59 |
MITCPLR_INIT2A |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init2a.F |
63 |
MITCPLR_INIT2A |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
19 |
MITCPLR_INIT2B |
integer ibuf(MAX_IBUF) |
|
./pkg/compon_communic/mitcplr_init2b.F |
47 |
MITCPLR_INIT2B |
ibuf( 1)=myid |
|
./pkg/compon_communic/mitcplr_init2b.F |
48 |
MITCPLR_INIT2B |
ibuf( 2)=MITCPLR_COUPLER |
|
./pkg/compon_communic/mitcplr_init2b.F |
49 |
MITCPLR_INIT2B |
ibuf( 3)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
50 |
MITCPLR_INIT2B |
ibuf( 4)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
51 |
MITCPLR_INIT2B |
ibuf( 5)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
52 |
MITCPLR_INIT2B |
ibuf( 6)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
53 |
MITCPLR_INIT2B |
ibuf( 7)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
54 |
MITCPLR_INIT2B |
ibuf( 8)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
55 |
MITCPLR_INIT2B |
ibuf( 9)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
56 |
MITCPLR_INIT2B |
ibuf(10)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
57 |
MITCPLR_INIT2B |
ibuf(11)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
58 |
MITCPLR_INIT2B |
ibuf(12)=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
61 |
MITCPLR_INIT2B |
& ibuf, lenbuf, MPI_INTEGER, |
|
./pkg/compon_communic/mitcplr_init2b.F |
65 |
MITCPLR_INIT2B |
& ' MPI_Bcast from ',ibuf(1),ibuf(2),' ierr=',ierr |
|
./pkg/compon_communic/mitcplr_init2b.F |
67 |
MITCPLR_INIT2B |
if ( ibuf(2).eq.MITCPLR_COUPLER ) then |
|
./pkg/compon_communic/mitcplr_init2b.F |
70 |
MITCPLR_INIT2B |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
73 |
MITCPLR_INIT2B |
rank_compcplr_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
78 |
MITCPLR_INIT2B |
rank_component_procs(j,compind)=ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
81 |
MITCPLR_INIT2B |
rank_compcplr_procs(j,compind)=ibuf(1) |