integer function iargc()
      implicit none
      iargc=0
      return
      end
      subroutine getarg(i,arg)
      implicit none
      integer i
      character arg*(*)
      arg=" "
      return
      end