To convert to a string:
     
     character*10 string, format
      data format /'(F10.2)'/
      a=3.1416
      write(string,format)a


Character(10) :: string
Real :: x, y
x = 53.65
write( string, '(f10.2)' )  x ! writes 53.65 into the string
read( string, '(f10.0)' )  y  ! reads the value from string and assigns it to y as real (float)
End