subroutine stack(temp,lentmp,icount)
      character*8 temp(lentmp)
      integer lentmp, icount
      include  'maincomo.for'
c     character*40 xeqlin(20)
      character*80 xeqlin(20)
      integer nargs
      icount=0
      call args(nargs,xeqlin)
      if (nargs.gt.1) then
         do 20 iarg=2,nargs
            if (xeqlin(iarg).eq.' ') go to 20
            if (xeqlin(iarg).eq.'-f') go to 20
 25         call lblksp(xeqlin(iarg))
            icount=icount+1
            iequal=index(xeqlin(iarg),'=')
            if (iequal.eq.0) iequal=len(xeqlin(iarg))
            icomma=index(xeqlin(iarg),',')
            if (icomma.eq.0) icomma=len(xeqlin(iarg))
            iblank=index(xeqlin(iarg),' ')
            ipos=min(iequal,icomma,iblank)
            if (ipos.eq.1) then
               if (xeqlin(iarg)(1:1).eq.'=') then
                  temp(icount)='='
               elseif (xeqlin(iarg)(1:1).eq.',') then
                  temp(icount)=','
               else
                  temp(icount)=' '
               endif
               ipos=ipos+1
            else
               temp(icount)=xeqlin(iarg)(1:ipos-1)
            endif
            string=' '
            string=xeqlin(iarg)(ipos:)
            xeqlin(iarg)=' '
            xeqlin(iarg)=string
            if (xeqlin(iarg).ne.' ') go to 25
 20         continue
      endif
      return
      end
c   args is for use on PC
      subroutine args(nargs,xeqlin)
      character*(*) xeqlin(20)
      xeqlin(1)='biocheck'
      nargs=2
      io=i1mach(4)
      write(io,*) 'Enter command line parameters.  End with ^Z'
 10   read(*,'(a)',end=30) xeqlin(nargs)
      call lowcas(xeqlin(nargs))
      nargs=nargs+1
      go to 10
 30   nargs=nargs-1
      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
      subroutine lowcas(string)
      character*(*) string
      character*1 char
      integer ichar,jchar,i,biga,bigz,inc
      biga=ichar('A')
      bigz=ichar('Z')
      inc=ichar('a')-biga
      do 10 i=1,len(string)
         jchar=ichar(string(i:i))
         if (jchar.ge.biga .and. jchar.le.bigz) then
            string(i:i)=char(jchar+inc)
         endif
 10      continue
      return
      end