# ctor --- convert string to single precision real

   real function ctor (str, i)
   character str (ARB)
   integer i

   longreal ctod

   return (ctod (str, i))

   end