anchor.diff:    integer,             allocatable, public, save :: crnlostp(:)  ! (npart)
   
     logical,             allocatable, public, save :: crpstop(:)   ! (npart)
  +  logical,             allocatable, public, save :: crllostp(:)  ! (npart)
   
     integer,                          public, save :: crnpart_old = -1
   
  
positive.code:       (yvl(2,j),j=1,napxo),         &
        (dpsvl(j),j=1,napxo),         &
        (ejvl(j),j=1,napxo),          &
        (sigmvl(j),j=1,napxo)
      endfile(crUnit,iostat=ierro)
      backspace(crUnit,iostat=ierro)
  
  
negative.code:       (cryvl(2,j),j=1,crnapxo),         &
        (crdpsvl(j),j=1,crnapxo),         &
        (crejvl(j),j=1,crnapxo),          &
        (crsigmvl(j),j=1,crnapxo),        &
        (crllostp(j),j=1,crnapxo)
  
      write(93,"(a)") "SIXTRACR> CRCHECK reading fort.95 Record META"
      flush(93)
  