anchor.diff:        CHARACTER*40 ifile,ofile,tag
         CHARACTER*240 arg
         INTEGER i,narg,j,opt,p,c,long
  -      ifile = 'none'
  +      ifile = 'stdin'
         ofile = 'none'
         opt = 0
         long = 0
  -      p = 0
  +      p = 1
         c = 0
         arg = 'none'
         narg = iargc()
  
positive.code:               endif
                goto 102
    101     continue
            close(11)
        else
            call getfmt(arg,ifmt)
            call rdarg(arg,ifmt,opt,long)
            call getans(ans,opt,long)
            write(*,*) trim(ans)
        endif
  C
        END
  
  C======================================================================C
  
negative.code:       COMMON /DVARS/ yr1,mo1,yr2,mo2,dy1,dy2,ndy
        CHARACTER*40 ifile,ofile
        CHARACTER*240 arg,ans
        INTEGER opt,p,long,c,ifmt,u
  
  C----
  C Parse command line
  