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