subroutine wrt_floats_empty
      return
      end