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