anchor.diff:  C----
         IMPLICIT none
         CHARACTER*80 ifile,ofile
  -      INTEGER i,nvar,input,output,idum
  +      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)
  +      call gcmdln(ifile,ofile,nvar,seed)
         if (ifile.eq.'stdin') then
             input = 5
         else
  
positive.code:           write(*,*)
        endif
        write(*,*)
       1 'Usage: perturb -f IFILE -o OFILE -n NVAR'
        write(*,*)
        write(*,*)
       1 '-f IFILE    Input data file with uncertainties (v1..vn d1..dn)'
  
negative.code:   101 i = i + 1
        if (i.gt.narg) goto 102
            call getarg(i,tag)
            if (tag(1:5).eq.'-seed') then
                i = i + 1
                call getarg(i,tag)
                read(tag,*) seed
            elseif (tag(1:2).eq.'-n') then
                i = i + 1
                call getarg(i,tag)
                read(tag,*) nvar
  