| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/CPLR_SIG.h |
53 |
NO PROCEDURE |
integer num_coupler_procs |
|
./pkg/compon_communic/CPLR_SIG.h |
57 |
NO PROCEDURE |
& num_coupler_procs, |
|
./pkg/compon_communic/mitcplr_init1.F |
108 |
MITCPLR_INIT1 |
& ( rank_coupler_procs(j),j=1,num_coupler_procs ) |
|
./pkg/compon_communic/mitcplr_init1.F |
51 |
MITCPLR_INIT1 |
num_coupler_procs = 0 |
|
./pkg/compon_communic/mitcplr_init1.F |
77 |
MITCPLR_INIT1 |
num_coupler_procs=num_coupler_procs + 1 |
|
./pkg/compon_communic/mitcplr_init1.F |
78 |
MITCPLR_INIT1 |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init1.F |
92 |
MITCPLR_INIT1 |
if ( num_coupler_procs .ne. 1 ) then |
|
./pkg/compon_communic/mitcplr_init2a.F |
35 |
MITCPLR_INIT2A |
num_coupler_procs=0 |
|
./pkg/compon_communic/mitcplr_init2a.F |
61 |
MITCPLR_INIT2A |
num_coupler_procs=num_coupler_procs + 1 |
|
./pkg/compon_communic/mitcplr_init2a.F |
63 |
MITCPLR_INIT2A |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2a.F |
72 |
MITCPLR_INIT2A |
if (num_coupler_procs .ne. 1) then |
|
./pkg/compon_communic/mitcplr_init2b.F |
41 |
MITCPLR_INIT2B |
num_coupler_procs=0 |
|
./pkg/compon_communic/mitcplr_init2b.F |
69 |
MITCPLR_INIT2B |
num_coupler_procs=num_coupler_procs + 1 |
|
./pkg/compon_communic/mitcplr_init2b.F |
70 |
MITCPLR_INIT2B |
rank_coupler_procs(num_coupler_procs) = ibuf(1) |
|
./pkg/compon_communic/mitcplr_init2b.F |
86 |
MITCPLR_INIT2B |
if (num_coupler_procs .ne. 1) then |