anchor.diff:       1 '-seed SEED  Start random numbers with integer SEED ',
        2                  '(useful for continuing chain of rands)'
         write(*,*)
  +     1 '-p          Print results to standard output'
  +      write(*,*)
        1 '-h          Online help'
         write(*,*)
         STOP
  
positive.code: C----
        IMPLICIT none
        CHARACTER*80 ifile,ofile
        INTEGER i,nvar,input,output,idum,seed
        REAL*8 val(10),dval(10)
        EXTERNAL ran2
        REAL ran2,random
  
  C Parse command line
        call gcmdln(ifile,ofile,nvar,seed)
        if (ifile.eq.'stdin') then
            input = 5
        else
            input = 11
            open(unit=input,file=ifile,status='old')
        endif
        if (ofile.eq.'print'.or.ofile.eq.'stdout') then
            output = 6
        else
            output = 12
  
negative.code:           elseif (tag(1:2).eq.'-f') then
                i = i + 1
                call getarg(i,ifile)
            elseif (tag(1:2).eq.'-p') then
                p = 1
            elseif (tag(1:2).eq.'-h') then
                call usage('')
            else
  