subroutine exitt

      stop
 
      return
      end