erroff.f 158 Bytes
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