Returns the file unit number associated with the error file
pure integer function error_unit () implicit none error_unit = error_unit_no end function error_unit