      subroutine wrt_abl_his_empty
      return
      end