anchor.diff:        flush(93)
       end if
       write(cr_pntUnit(nPoint),err=100,iostat=ierro) &
  -      (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),          &
  -      (aperv(j,1),j=1,napxo),       &
  -      (aperv(j,2),j=1,napxo),       &
  -      (llostp(j),j=1,napxo)
  +      (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),       &
  +      (aperv(j,1), j=1,napxo),       &
  +      (aperv(j,2), j=1,napxo),       &
  +      (llostp(j),  j=1,napxo)
       flush(cr_pntUnit(nPoint))
   
       if(st_debug) then
  
positive.code: 
    if(dynk_enabled) then ! Store current settings of elements affected by DYNK
      if(st_debug) then
        write(93,"(a)") "CR_POINT> Filling dynk_fSets_cr"
        flush(93)
      end if
      do j=1,dynk_nSets_unique
  
negative.code:   betrel = crbetrel
    brho   = crbrho
  
    write(93,"(a)") "CR_START> Loading BinRecords"
    do j=1,(napxo+1)/2
      binrecs(j) = crbinrecs(j)
    end do
  
    write(93,"(a)") "CR_START> Loading tracking data"
    flush(93)
  
    partID(1:napxo)    = crpartID(1:napxo)
    parentID(1:napxo)  = crparentID(1:napxo)
    pstop(1:napxo)     = crpstop(1:napxo)
  