real*8 rarg(MAXLEN_COMP_NAME)
rarg(j)= ichar( cbuftmp(j:j) )
subroutine MITCPLR_CHAR2DBL( carg, rarg )
real*4 rarg(MAXLEN_COMP_NAME)
rarg(j)=float( ichar( cbuftmp(j:j) ) )
subroutine MITCPLR_CHAR2REAL( carg, rarg )
carg(j:j) = char( nint( rarg(j) ) )
subroutine MITCPLR_DBL2CHAR( rarg, carg )
subroutine MITCPLR_REAL2CHAR( rarg, carg )