        abstract interface
          function INRFunctionDouble(x)
           double precision  INRFunctionDouble
           double precision, intent(in)  :: x(:)

          end function
        end interface