anchor.diff:    save
   
     write(93,"(a,i0)") "SIXTRACR> CRSTART called crnumlcr = ",crnumlcr
  -  endfile(93,iostat=ierro)
  -  backspace(93,iostat=ierro)
  +  flush(93)
     numlcr=crnumlcr
   
     ! We do NOT reset numl so that a run can be extended for
  
positive.code:         (wfhi(j),j=1,napxo)
  
        write(93,"(a)") "SIXTRACR> CRSTART read fort.96 EXTENDED OK"
        endfile(93,iostat=ierro)
        backspace(93,iostat=ierro)
        goto 102
      end if
  100 continue
  
negative.code:     if(limifound) then
        if(ncalls <= maxncalls .or. numx >= nnuml-maxncalls) then
          write(93,"(a,i0)") "SIXTRACR> CRPOINT Writing APERTURE LOSSES variables to fort.",crUnit
          flush(93)
        end if
        call aper_crpoint(crUnit,lerror,ierro)
        if(lerror) goto 100
  