anchor.diff:                p = 1
             elseif (tag(1:2).eq.'-p') then
                 p = 1
  +          elseif (tag(1:2).eq.'-z') then
  +              z = 1
             elseif (tag(1:4).eq.'-min') then
                 i = i + 1
                 call getarg(i,tag)
  
positive.code:   105     continue
            do 106 i = 1,NMAX
                val = i - 2 + mnval + itmin
                if (ct(i).gt.0.and.p.eq.0) then
                    write (12,9999) val,ct(i)
                elseif (ct(i).gt.0.and.p.eq.1) then
                    write (*,9999) val,ct(i)
                endif
    106     continue
    107 continue
  
negative.code:       PARAMETER (NMAX=1000)
        INTEGER ct(NMAX)
        INTEGER mnval,mxval,dumval,mnsrch,mxsrch,val,diff
        INTEGER i,istart,iend,itmin,itmax,j,niter,user,p,z
        
        mnsrch = 0
        mxsrch = 0
  
        call gcmdln(ifile,ofile,mnval,mxval,z,p,user)
        open (unit=12,file=ofile,status='unknown')
        if (mnval.eq.-99999) mnsrch = 1
        if (mxval.eq.-99999) mxsrch = 1
  