File |
Line number |
Procedure |
Code |
./pkg/compon_communic/mitcplr_char2real.F |
19 |
MITCPLR_CHAR2REAL |
rarg(j)=float( ichar( cbuftmp(j:j) ) ) |
./pkg/compon_communic/mitcplr_char2real.F |
2 |
MITCPLR_CHAR2REAL |
subroutine MITCPLR_CHAR2REAL( carg, rarg ) |
./pkg/compon_communic/mitcplr_char2real.F |
8 |
MITCPLR_CHAR2REAL |
real*4 rarg(MAXLEN_COMP_NAME) |
./pkg/compon_communic/mitcplr_real2char.F |
15 |
MITCPLR_REAL2CHAR |
carg(j:j) = char( int( 0.5+rarg(j) ) ) |
./pkg/compon_communic/mitcplr_real2char.F |
2 |
MITCPLR_REAL2CHAR |
subroutine MITCPLR_REAL2CHAR( rarg, carg ) |
./pkg/compon_communic/mitcplr_real2char.F |
8 |
MITCPLR_REAL2CHAR |
real*4 rarg(MAXLEN_COMP_NAME) |