nerror.f 209 Bytes
edit raw blame history



1

2

3

4

5

6

7

8

9

10

11


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