anchor.diff:     11 i = i + 1
         if (i.gt.narg) goto 12
             call getarg(i,tag)
  -          if (tag(1:2).eq.'-a') then
  +          if (trim(tag).eq.'-a') then
                 i = i + 1
                 call getarg(i,tag)
                 read (tag,'(BN,F12.0)') az
  -          elseif (tag(1:2).eq.'-i') then
  +          elseif (trim(tag).eq.'-i') then
                 i = i + 1
                 call getarg(i,tag)
                 read (tag,'(BN,F12.0)') incl
  +          elseif (trim(tag).eq.'-azinc') then
  +              i = i + 1
  +              call getarg(i,azincfile)
             elseif (tag(1:2).eq.'-f') then
                 i = i + 1
                 call getarg(i,ifile)
  
positive.code:           write(*,*)
        endif
        write(*,*)
       1 'Usage: vec2los -a AZ -i INC [-f IFILE] [-o OFILE] [-h]'
        write(*,*)
        write(*,*)
       1 '-a AZ     Look azimuth (CW from N)'
        write(*,*)
       1 '-i INC    Look inclination (from horizontal=0 to vertical=90)'
        write(*,*)
       1 '-f IFILE  Input vector displacement file (default: stdin)',
       2            ' (stlo stla stdp uE uN uZ)'
  
negative.code:           write(*,*) '!! Error: No output file specified'
            call usage('!! Use -o OFILE to specify LOS output file')
        endif
  
  C----
  C Control files
  