subroutine abort (msg)

c  cause program to abort with message

      character*(*) msg
      character*79 temp

      temp = 'Abort: '//msg
      call logit (temp)
      call logit ('The job has aborted for the above reason')
c      stop 16
      stop
      end