anchor.diff:            binrecs94=binrecs94+1
           end do ! END "j=2,crbinrecs(ia)"
           !This is not a FLUSH!
  -        endfile (91-ia,iostat=ierro)
  -        backspace (91-ia,iostat=ierro)
  -        rewind 94
  +        endfile(91-ia,iostat=ierro)
  +        backspace(91-ia,iostat=ierro)
  +        rewind(94)
         end do ! END "do ia=1,crnapxo/2,1"
   #else
         ! First, copy crbinrecs(ia)*(crnapx/2) records of data from singletrackfile.dat to fort.94
  
positive.code:     if(cril /= il) then
        write(lout,"(2(a,i0))") "SIXTRACR> CRSTART Problem as cril/il are different cril = ",cril,", il = ",il
        write(93,  "(2(a,i0))") "SIXTRACR> CRSTART Problem as cril/il are different cril = ",cril,", il = ",il
        endfile(93,iostat=ierro)
        backspace(93,iostat=ierro)
        write(lout,"(a)") "SIXTRACR> CRSTART Problem wih cril/il extended C/R"
        call prror
      end if
  
negative.code:       end do
  
      ! Second, copy crbinrecs(ia)*(crnapx/2) records of data from fort.94 to singletrackfile.dat
        rewind(94)
        rewind(90)
        binrecs94=0
        ! Copy header
        do ia=1,crnapxo/2,1
  