integer function f__xargc()
      mpir_iargc = iargc()
      return
      end
      subroutine f__xargv( i, s )
      integer       i
      character*(*) s
      call getarg(i,s)
      return
      end