anchor.diff:        COMMON /DVARS/ yr1,mo1,yr2,mo2,dy1,dy2,ndy
         CHARACTER*40 ifile,ofile
         CHARACTER*240 arg,ans
  -      INTEGER opt,p,long,c,ifmt
  +      INTEGER opt,p,long,c,ifmt,u
   
   C----
   C Parse command line
  
positive.code: C----
        if (p.eq.0) open(unit=12,file=ofile,status='unknown')
        if (c.eq.0) then
            open(unit=11,file=ifile,status='old')
    102     read(11,'(A240)',end=101) arg
                call getfmt(arg,ifmt)
                call rdarg(arg,ifmt,opt,long)
                call getans(ans,opt,long)
  
negative.code:       CHARACTER*40 ifile,ofile,tag
        CHARACTER*240 arg
        INTEGER i,narg,j,opt,p,c,long
        ifile = 'stdin'
        ofile = 'none'
        opt = 0
        long = 0
        p = 1
        c = 0
        arg = 'none'
        narg = iargc()
  