      SUBROUTINE wrt_floats
      RETURN
      END SUBROUTINE wrt_floats
