anchor.diff:      close(crksunit)
   
       open(crksunit,file="crkillswitch.tmp",form="unformatted",access="stream",status="replace")
  -    write(crksunit) iTurn,nKills + 1
  +    write(crksunit) iTurn,nKills
       flush(crksunit)
       close(crksunit)
       stop
  
positive.code:   end do
  
    if(killIt) then
      write(lout,"(a,i0)") "CRKILL> Triggering kill switch on turn ",iTurn
      write(93,  "(a,i0)") "SIXTRACR> Triggering kill switch on turn ",iTurn
  
      open(crksunit,file="crrestartme.tmp",form="unformatted",access="stream",status="replace")
      write(crksunit) 1
  
negative.code:     write(lout,"(a,i0)") "CRKILL> Kill switch previously triggered on turn ",pTurn
      write(93,  "(a,i0)") "SIXTRACR> Kill switch previously triggered on turn ",pTurn
    end if
  
    do i=1,size(st_killturns,1)
      if(iTurn == st_killturns(i) .and. iTurn > pTurn) then
  