anchor.diff:                else
                     i = i - 1
                 endif
  +          elseif (tag(1:4).eq.'-sci') then
  +              long = 2
             elseif (tag(1:2).eq.'-h'.or.tag(1:5).eq.'-help') then
                 call usagelong(' ')
             elseif (tag(1:2).eq.'-d'.or.tag(1:8).eq.'-details') then
  
positive.code:       SUBROUTINE chksta(sta,staf,nsta,xy)
        IMPLICIT none
        REAL*8 sta(3)
        CHARACTER*40 staf 
        INTEGER i,nsta,chk,xy,ios
        chk = 0
        open(unit=18,file=staf,status='old')
  
negative.code:      1                 dx,dy,slip,typ,vp,vs,dens,dspf,stnf,stsf,
       2                 norf,shrf,coulf,xy,prog,long)
        endif
  
  C----
  C Write fault input to GMT-compatible file
  C----
  