      integer function mpir_iargc()
@F90UNIX@
      mpir_iargc = @F77IARGC@
      return
      end
c     
      subroutine mpir_getarg( i, s )
@F90UNIX@
      integer       i
      character*(*) s
      @F77GETARG@
      return
      end
