character*(MAXLEN_COMP_NAME) cbuftmp
cbuftmp = carg
rarg(j)= ichar( cbuftmp(j:j) )
iarg(j)=ichar( cbuftmp(j:j) )
rarg(j)=float( ichar( cbuftmp(j:j) ) )