&ACCESS RVO
DEFFCT CHAR[32] REAL_TO_STR(iVal:IN)
   DECL REAL iVal
   DECL INT I,offset
   DECL CHAR Ret[32]
   DECL STATE_T state
   offset=0
   FOR I=1 TO 32
      Ret[I]=0
   ENDFOR
   SWRITE(Ret[],state,offset,"%.3f",iVal)
   Return (Ret[])
ENDFCT