Blame view

fvn_fnlib/nerror.f 209 Bytes
38581db0c   daniau   git-svn-id: https...
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