anchor.diff:            write(*,*) '!! Error too many input faults (max:',FMAX,')'
             call usage('!! Reduce number of input faults or change FMAX')
         endif
  +C Read faults
         read (34,'(A200)',END=342) inline
             if(index(inline,'p').ne.0) then
                 typ(i) = 0
  
positive.code:       write(*,*)
       1 '               [-h|-help] [-d|-details]'
        write(*,*)
        STOP 1
        END
  
  C----------------------------------------------------------------------C
  
negative.code: C     vol. 82, no. 2, pp. 1018-1040.
  C----
        IMPLICIT NONE
  <<<<<<< Updated upstream
        CHARACTER*40 ffmf,fltf,magf,haff,staf,trgf,dspf,stnf,stsf,norf,
       1             shrf,coulf,gmtf,emprel,volf
        INTEGER flttyp,auto,xy,prog,long
  