erroff.f 158 Bytes
edit raw blame history



1

2

3

4

5

6

7

8

9

10


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