anchor.diff:        (yvl(2,j),j=1,napxo),         &
         (dpsvl(j),j=1,napxo),         &
         (ejvl(j),j=1,napxo),          &
  -      (sigmvl(j),j=1,napxo)
  +      (sigmvl(j),j=1,napxo),        &
  +      (llostp(j),j=1,napxo)
       endfile(crUnit,iostat=ierro)
       backspace(crUnit,iostat=ierro)
   
  
positive.code:   integer,             allocatable, public, save :: crnlostp(:)  ! (npart)
  
    logical,             allocatable, public, save :: crpstop(:)   ! (npart)
  
    integer,                          public, save :: crnpart_old = -1
  
  
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)
  