anchor.diff:  
     ! 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
  +  rewind(lout)
   3 read(lout,'(a1024)',end=1,err=101,iostat=ierro) arecord
     lstring=1024
     do i=1024,2,-1
  
positive.code:   brho=crbrho
  
    write(93,"(a)") "SIXTRACR> CRSTART doing binrecs"
    endfile(93,iostat=ierro)
    backspace(93,iostat=ierro)
  
    do j=1,(napxo+1)/2
      binrecs(j)=crbinrecs(j)
    end do
  
    write(93,"(a)") "SIXTRACR> CRSTART doing normal NPART vars"
    endfile(93,iostat=ierro)
    backspace (93,iostat=ierro)
    do j=1,napxo
      numxv(j)=crnumxv(j)
      nnumxv(j)=crnnumxv(j)
  
negative.code:   save
  
    write(93,"(a,i0)") "SIXTRACR> CRSTART called crnumlcr = ",crnumlcr
    flush(93)
    numlcr=crnumlcr
  
    ! We do NOT reset numl so that a run can be extended for
  