anchor.diff:    call alloc(crnnumxv,     npart_new,      0,       "crnnumxv")
     call alloc(crnlostp,     npart_new,      0,       "crnlostp")
     call alloc(crpstop,      npart_new,      .false., "crpstop")
  +  call alloc(crllostp,     npart_new,      .false., "crllostp")
   
     crnpart_old = npart_new
   
  
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)
  