anchor.diff:  C----
   C Verify that an output file is specified.
   C----
  -      IMPLICIT NONE      
  +      IMPLICIT NONE
         INTEGER kdsp,kstn,ksts,knor,kshr,kcou,kgmt
         COMMON /OCHECK/ kdsp,kstn,ksts,knor,kshr,kcou,kgmt
         if (kdsp.eq.0.and.kstn.eq.0) then
  
positive.code:               do 223 j = 1,3
                    strain(i,j) = strain(i,j) + stntmp(i,j)
    223         continue
    224     continue 
    225 continue
        RETURN
        END
  
negative.code:               kcou = 1
                i = i + 1
                call getarg(i,tag)
                if (i.gt.narg.or.tag(1:1).eq.'-') then
                    call usage('!! Error: option -autocoul requires an '//
       1                                'argument')
                endif
                read(tag,'(BN,I10)') auto
                auto = auto + 1
            elseif (tag(1:5).eq.'-incr') then
  