| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/mitcomponent_init.F |
17 |
MITCOMPONENT_INIT |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcomponent_init.F |
31 |
MITCOMPONENT_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcomponent_init.F |
38 |
MITCOMPONENT_INIT |
call MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcomponent_init.F |
6 |
MITCOMPONENT_INIT |
I myTypeStr, |
|
./pkg/compon_communic/mitcoupler_init.F |
17 |
MITCOUPLER_INIT |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcoupler_init.F |
31 |
MITCOUPLER_INIT |
call MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcoupler_init.F |
38 |
MITCOUPLER_INIT |
call MITCPLR_INIT2B( myTypeStr ) |
|
./pkg/compon_communic/mitcoupler_init.F |
6 |
MITCOUPLER_INIT |
I myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
106 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
110 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
113 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
124 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
137 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
147 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
158 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
15 |
MITCPLR_INIT1 |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init1.F |
168 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
182 |
MITCPLR_INIT1 |
compind=mitcplr_match_comp( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init1.F |
189 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
197 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
201 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
203 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
210 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
214 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
216 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
223 |
MITCPLR_INIT1 |
& myTypeStr,'.',j,'.clog' |
|
./pkg/compon_communic/mitcplr_init1.F |
227 |
MITCPLR_INIT1 |
write(LogUnit,*) 'This is "',myTypeStr,'"' |
|
./pkg/compon_communic/mitcplr_init1.F |
36 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
40 |
MITCPLR_INIT1 |
if (ierr.ne.0) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
42 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
5 |
MITCPLR_INIT1 |
subroutine MITCPLR_INIT1( myTypeStr, couplerFlag ) |
|
./pkg/compon_communic/mitcplr_init1.F |
63 |
MITCPLR_INIT1 |
call MITCPLR_CHAR2INT( myTypeStr, ibuf(8) ) |
|
./pkg/compon_communic/mitcplr_init1.F |
69 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
72 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init1.F |
83 |
MITCPLR_INIT1 |
if (DEBUG) write(0,*) 'MITCPLR_init1: ',myid,' ',myTypeStr, |
|
./pkg/compon_communic/mitcplr_init2a.F |
14 |
MITCPLR_INIT2A |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init2a.F |
5 |
MITCPLR_INIT2A |
subroutine MITCPLR_INIT2A( myTypeStr ) |
|
./pkg/compon_communic/mitcplr_init2b.F |
14 |
MITCPLR_INIT2B |
character*(*) myTypeStr |
|
./pkg/compon_communic/mitcplr_init2b.F |
5 |
MITCPLR_INIT2B |
subroutine MITCPLR_INIT2B( myTypeStr ) |