anchor.diff:      lerror = .false.
       if(ncalls <= maxncalls .or. numx >= nnuml-maxncalls) then
         write(93,"(a,i0)") "SIXTRACR> CRPOINT writing fort.",crUnit
  -      endfile(93,iostat=ierro)
  -      backspace(93,iostat=ierro)
  -    end if
  -    rewind crUnit
  +      flush(93)
  +    end if
  +    rewind(crUnit)
   
       write(crUnit,err=100,iostat=ierro) version, moddate
       write(crUnit,err=100,iostat=ierro) &
  
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: 
    ! We need to copy fort.92 (lout) to fort.6 (sixrecs) (if it exists and we are not already using fort.6)
    osixrecs=sixrecs
    rewind(lout)
  3 read(lout,'(a1024)',end=1,err=101,iostat=ierro) arecord
    lstring=1024
    do i=1024,2,-1
  