anchor.diff:    napx   = crnapx
     e0     = cre0
     e0f    = sqrt(e0**2-nucm0**2)
  -  beta0 = crbeta0
  +  beta0  = crbeta0
     brho   = crbrho
     nucmda = crnucmda
   
  
positive.code:       cycle
      end if
      if(cr_version /= version .or. cr_moddate /= moddate) then
        write(crlog,"(a)") "CR_CHECK> Checkpoint files "//cr_pntFile(nPoint)//" was written by SixTrack version "//
          trim(cr_version)//" with release date "//trim(cr_moddate)
        write(crlog,"(a)") "CR_CHECK> This is SixTrack version "//trim(version)//" with release date "//trim(moddate)
        write(crlog,"(a)") "CR_CHECK> Version mismatch. Skipping this file."
  
negative.code:       write(crlog,"(a)") "CR_POINT>  * Particle arrays"
        flush(crlog)
      end if
      write(cr_pntUnit(nPoint),err=100) &
        (binrecs(j), j=1,(napxo+1)/2),  &
        (numxv(j),   j=1,napxo),        &
        (nnumxv(j),  j=1,napxo),        &
        (partID(j),  j=1,napxo),        &
        (parentID(j),j=1,napxo),        &
        (pstop(j),   j=1,napxo),        &
        (xv1(j),     j=1,napxo),        &
        (yv1(j),     j=1,napxo),        &
        (xv2(j),     j=1,napxo),        &
        (yv2(j),     j=1,napxo),        &
        (sigmv(j),   j=1,napxo),        &
        (dpsv(j),    j=1,napxo),        &
        (dpsv1(j),   j=1,napxo),        &
        (ejv(j),     j=1,napxo),        &
        (ejfv(j),    j=1,napxo),        &
        (nucm(j),    j=1,napxo),        &
        (mtc(j),     j=1,napxo),        &
        (naa(j),     j=1,napxo),        &
        (nzz(j),     j=1,napxo),        &
        (nqq(j),     j=1,napxo),        &
        (pdgid(j),   j=1,napxo),        &
        (aperv(j,1), j=1,napxo),        &
        (aperv(j,2), j=1,napxo),        &
        (llostp(j),  j=1,napxo)
      flush(cr_pntUnit(nPoint))
  
  