anchor.diff:                else
                     i = i - 1
                 endif
  +          elseif (tag(1:4).eq.'-hor') then
  +              cmpnt = 1
  +          elseif (tag(1:4).eq.'-ver') then
  +              cmpnt = 2
             elseif (tag(1:2).eq.'-h') then
                 call usage(' ')
             elseif (tag(1:2).eq.'-d') then
  
positive.code:       RETURN
        END
  
  C----------------------------------------------------------------------C
  
        SUBROUTINE calcmisfit(misfit,soln,gf,obs,nobs,OBSMAX,nflt,FLTMAX)
        IMPLICIT none
  
negative.code:       endif
   1010 format(1PE14.6,1PE14.6)
  
  !----
  ! Write output nicely
  !----
        if (vrb.eq.1) then
            if (p.eq.0) then
                write(0,'("Solution (ss ds) in file",1X,A)') ofile
  