      SUBROUTINE ABEND
      implicit real*8 (a-h,o-z)
      save
*     JUST IN CASE IT IS NEEDED
      STOP 99
      END
