SUBROUTINE wrt_error
      RETURN
      END SUBROUTINE wrt_error