File |
Line number |
Procedure |
Code |
./pkg/compon_communic/mitcplr_char2dbl.F |
11 |
MITCPLR_CHAR2DBL |
real*8 rarg(MAXLEN_COMP_NAME) |
./pkg/compon_communic/mitcplr_char2dbl.F |
22 |
MITCPLR_CHAR2DBL |
rarg(j)= ichar( cbuftmp(j:j) ) |
./pkg/compon_communic/mitcplr_char2dbl.F |
5 |
MITCPLR_CHAR2DBL |
subroutine MITCPLR_CHAR2DBL( carg, rarg ) |
./pkg/compon_communic/mitcplr_char2real.F |
11 |
MITCPLR_CHAR2REAL |
real*4 rarg(MAXLEN_COMP_NAME) |
./pkg/compon_communic/mitcplr_char2real.F |
22 |
MITCPLR_CHAR2REAL |
rarg(j)=float( ichar( cbuftmp(j:j) ) ) |
./pkg/compon_communic/mitcplr_char2real.F |
5 |
MITCPLR_CHAR2REAL |
subroutine MITCPLR_CHAR2REAL( carg, rarg ) |
./pkg/compon_communic/mitcplr_dbl2char.F |
11 |
MITCPLR_DBL2CHAR |
real*8 rarg(MAXLEN_COMP_NAME) |
./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_real2char.F |
11 |
MITCPLR_REAL2CHAR |
real*4 rarg(MAXLEN_COMP_NAME) |
./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 ) |