anchor.diff:  C     Open files specified for output
         if (kdsp.ne.0) open(unit=21,file=dspf,status='unknown')
         if (kstn.eq.1) open(unit=22,file=stnf,status='unknown')
  -      if (ksts.eq.1) open(unit=23,file=stsf,status='unknown')
  +      if (ksts.eq.1.or.ksts.eq.3) 
  +     1    open(unit=23,file=stsf,status='unknown')
         if (knor.eq.1) open(unit=24,file=norf,status='unknown')
         if (kshr.eq.1) open(unit=25,file=shrf,status='unknown')
         if (kcou.eq.1) open(unit=26,file=coulf,status='unknown')
  
positive.code:               kstn = 1
                i = i + 1
                call getarg(i,stnf)
            elseif (tag(1:7).eq.'-stress') then
                if (kstn.eq.0) kstn = 2
                ksts = 1
  
negative.code:  9991 format(3F12.4,X,6E16.6)
   9992 format(3F12.4,X,1E16.6)
   9993 format(3F12.4,X,3F16.8)
   9994 format(2F12.4,X,3F12.4)
        RETURN
        END
  
  