C     @(#)itchk.f	1.2     03/25/98
C
      integer function itchk (string)

c returns the integer equivalent of a string, aborts job if non integer

      character*(*) string

      itchk = itch (string, ier)
      if (ier .ne. len(string))
     2       call abort ('itchk: Non integer value in '''//string//'''')
      return
      end