| File |
Line number |
Procedure |
Code |
|
./pkg/compon_communic/generate_tag.F |
12 |
NO PROCEDURE |
character*(*) carg |
|
./pkg/compon_communic/generate_tag.F |
5 |
NO PROCEDURE |
integer function generate_tag( iarg1, iarg2, carg ) |
|
./pkg/compon_communic/mitcplr_char2dbl.F |
10 |
MITCPLR_CHAR2DBL |
character*(*) carg |
|
./pkg/compon_communic/mitcplr_char2dbl.F |
18 |
MITCPLR_CHAR2DBL |
cbuftmp = carg |
|
./pkg/compon_communic/mitcplr_char2dbl.F |
5 |
MITCPLR_CHAR2DBL |
subroutine MITCPLR_CHAR2DBL( carg, rarg ) |
|
./pkg/compon_communic/mitcplr_char2int.F |
10 |
MITCPLR_CHAR2INT |
character*(*) carg |
|
./pkg/compon_communic/mitcplr_char2int.F |
18 |
MITCPLR_CHAR2INT |
cbuftmp = carg |
|
./pkg/compon_communic/mitcplr_char2int.F |
5 |
MITCPLR_CHAR2INT |
subroutine MITCPLR_CHAR2INT( carg, iarg ) |
|
./pkg/compon_communic/mitcplr_char2real.F |
10 |
MITCPLR_CHAR2REAL |
character*(*) carg |
|
./pkg/compon_communic/mitcplr_char2real.F |
18 |
MITCPLR_CHAR2REAL |
cbuftmp = carg |
|
./pkg/compon_communic/mitcplr_char2real.F |
5 |
MITCPLR_CHAR2REAL |
subroutine MITCPLR_CHAR2REAL( carg, rarg ) |
|
./pkg/compon_communic/mitcplr_dbl2char.F |
10 |
MITCPLR_DBL2CHAR |
character*(MAXLEN_COMP_NAME) carg |
|
./pkg/compon_communic/mitcplr_dbl2char.F |
18 |
MITCPLR_DBL2CHAR |
carg(j:j) = char( nint( rarg(j) ) ) |
|
./pkg/compon_communic/mitcplr_dbl2char.F |
5 |
MITCPLR_DBL2CHAR |
subroutine MITCPLR_DBL2CHAR( rarg, carg ) |
|
./pkg/compon_communic/mitcplr_initcomp.F |
11 |
MITCPLR_INITCOMP |
character*(MAXLEN_COMP_NAME) carg |
|
./pkg/compon_communic/mitcplr_initcomp.F |
15 |
MITCPLR_INITCOMP |
component_List(compind)=carg |
|
./pkg/compon_communic/mitcplr_initcomp.F |
19 |
MITCPLR_INITCOMP |
component_Name( compind ) = carg |
|
./pkg/compon_communic/mitcplr_initcomp.F |
5 |
MITCPLR_INITCOMP |
subroutine MITCPLR_INITCOMP( compind, carg ) |
|
./pkg/compon_communic/mitcplr_int2char.F |
10 |
MITCPLR_INT2CHAR |
character*(MAXLEN_COMP_NAME) carg |
|
./pkg/compon_communic/mitcplr_int2char.F |
18 |
MITCPLR_INT2CHAR |
carg(j:j) = char( iarg(j) ) |
|
./pkg/compon_communic/mitcplr_int2char.F |
5 |
MITCPLR_INT2CHAR |
subroutine MITCPLR_INT2CHAR( iarg, carg ) |
|
./pkg/compon_communic/mitcplr_match_comp.F |
10 |
NO PROCEDURE |
character*(*) carg |
|
./pkg/compon_communic/mitcplr_match_comp.F |
15 |
NO PROCEDURE |
if ( carg .EQ. coupler_Name ) then |
|
./pkg/compon_communic/mitcplr_match_comp.F |
23 |
NO PROCEDURE |
if ( carg .EQ. component_List(j) ) then |
|
./pkg/compon_communic/mitcplr_match_comp.F |
25 |
NO PROCEDURE |
if (DEBUG) write(0,*) 'mitcplr_match_comp: String arg = ',carg |
|
./pkg/compon_communic/mitcplr_match_comp.F |
40 |
NO PROCEDURE |
call MITCPLR_INITCOMP( jmatch, carg ) |
|
./pkg/compon_communic/mitcplr_match_comp.F |
5 |
NO PROCEDURE |
integer function mitcplr_match_comp( carg ) |
|
./pkg/compon_communic/mitcplr_real2char.F |
10 |
MITCPLR_REAL2CHAR |
character*(MAXLEN_COMP_NAME) carg |
|
./pkg/compon_communic/mitcplr_real2char.F |
18 |
MITCPLR_REAL2CHAR |
carg(j:j) = char( nint( rarg(j) ) ) |
|
./pkg/compon_communic/mitcplr_real2char.F |
5 |
MITCPLR_REAL2CHAR |
subroutine MITCPLR_REAL2CHAR( rarg, carg ) |