c   args is for use on PC
c   DO NOT associate unit 5 with a file until after args is called
      subroutine args(nargs,xeqlin)
      character*(*) xeqlin(*)
      character*150 string,temp
      integer nargs, iblank
      nargs=0
      write(0,*)
     1 'Enter command line parameters [i=in_file] [l=out_file]'
      write(0,*)
     1  '   [plot] [mle|huber|andrew] [sd=value (default=1.020)]'
      write(0,*)
     1 '    [format=(format_string) (default (28x,3(i2,f4.0)) )]'
      write(0,*)
     1 '    [ntower=#_towers_per_location (default=3)]:'
      read(*,'(a)',end=30) string
 10   if (string.eq.' ') return
      call lblksp(string)
      iblank=index(string,' ')
      nargs=nargs+1
      xeqlin(nargs)=string(1:iblank-1)
      temp=string(iblank:150)
      string=temp
      go to 10
 30   return
      end
      subroutine lblksp(string)
      character*(*) string
      if (string(1:1).ne.' ') return
      do 10 i=2,len(string)
          if (string(i:i).ne.' ') go to 20
 10       continue
      return
 20   nonblk=i
      do 30 i=nonblk,len(string)
         ib=i-nonblk+1
         string(ib:ib)=string(i:i)
         string(i:i)=' '
 30      continue
      return
      end