1c
2c $Id$
3c
4
5      subroutine chkerr(string, icode)
6      implicit none
7
8      character*(*) string
9      integer icode
10
11      if(icode.ne.0) then
12        print*,"aborting due to error ",string
13      stop
14      end if
15
16      end
17