subroutine erroff
  c
  c  turns off the error state off by setting lerror=0.
  c
        external i8save
  c
        i=i8save(1,0,.true.)
        return
  c
        end