subroutine endrun
   call abort
   return
   end