&ACCESS RV
DEFFCT INT REAL_TO_Output (rVal:IN )
   DECL REAL rVal
   DECL INT Offset,Ret
   DECL INT INTS[4]
   DECL CHAR Bytes[4]
   Offset=0
   Ret=0
   CAST_TO(Bytes[],Offset,rVal)    
   INTS[1] = Bytes[1]   
   INTS[2] = Bytes[2]
   INTS[2] = INTS[2]*256
   INTS[3] = Bytes[3]
   INTS[3] = INTS[3]*65536
   INTS[4] = Bytes[4]
   INTS[4] = INTS[4]*16777216   
   Ret=INTS[1]+INTS[2]+INTS[3]+INTS[4]
   RETURN Ret
ENDFCT