anchor.diff:        PROGRAM MAIN
         IMPLICIT none
         CHARACTER*80 fltf,obsf,smoof
  +      INTEGER dimen,ios
         LOGICAL ex
         REAL*8 smooth,damp
         INTEGER OBSMAX,PARMAX
         PARAMETER (OBSMAX=10000,PARMAX=100)
  -      REAL*8 flt(PARMAX,8),obs(OBSMAX,6)
  +      REAL*8 flt(PARMAX,7),obs(OBSMAX,6)
         REAL*8 A(OBSMAX,PARMAX),b(OBSMAX,1),x(OBSMAX,1)
         INTEGER i,j,nobs,nflt
   
   C----
  -C Parse command line
  -C----
  -      call gcmdln(fltf,obsf,smooth,smoof,damp)
  +C Parse command line and check required inputs present
  +C----
  +      call gcmdln(fltf,obsf,smooth,smoof,damp,dimen)
  +C Fault geometry file
         if (fltf.eq.'none') then
             write(*,*) '!! Error: Input fault geometry file unspecified'
             call usage('!! Use -flt FLTFILE to specify input file')
  
positive.code:           write(*,*)
        endif
        write(*,*)
       1 'Usage: fltinv -obs OBSFILE -flt FLTFILE [-2|-3] ',
       2         '[-LQR|SVD] [-smooth SMOOTH] [-smoof SMOOTHFILE] ',
       3         '[-damp DAMP] [-h]'
        write(*,*)
  
negative.code:               i = i + 1
                call getarg(i,tag)
                read(tag,'(BN,F10.0)') damp
            elseif (tag(1:2).eq.'-2') then
                dimen = 2
            elseif (tag(1:2).eq.'-3') then
                dimen = 3
            elseif (tag(1:2).eq.'-h') then
                call usage(' ')
            endif
  