integer function nerror(nerr)
c
c  returns nerror = nerr = the value of the error flag lerror.
c
      external i8save
c
      nerror = i8save(1, 0, .false.)
      nerr = nerror
      return
c
      end