integer function ir_isnan(x)
      real x

      ir_isnan = 0
      return
      end

      real function r_max_normal()

      r_max_normal = 1.e30
      return
      end