integer function i8save(isw,ivalue,set)
  c
  c  if (isw = 1) i8save returns the current error number and
  c               sets it to ivalue if set = .true. .
  c
  c  if (isw = 2) i8save returns the current recovery switch and
  c               sets it to ivalue if set = .true. .
  c
        logical set
  c
        integer iparam(2)
  c  iparam(1) is the error number and iparam(2) is the recovery switch.
  c
  c  start execution error free and with recovery turned off.
  c
        data iparam(1) /0/,  iparam(2) /2/
  c
        i8save=iparam(isw)
        if (set) iparam(isw)=ivalue
  c
        return
  c
        end