anchor.diff:  
   subroutine hions_crstart
   
  +  use parpro
     use mod_alloc
  -  use mod_common, only : napxo
   
     nucmda = nucmda_cr
     ien0   = ien0_cr
  
positive.code: 
  subroutine hions_crcheck_readdata(fileUnit, readErr)
  
    use crcoall
    use mod_alloc
    use mod_common, only : napxo
  
    integer, intent(in)  :: fileUnit
    logical, intent(out) :: readErr
  
    integer i
  
    call alloc(nucm_cr,    napxo,nucm0,"nucm_cr")
    call alloc(moidpsv_cr, napxo,one,  "moidpsv_cr")
    call alloc(omoidpsv_cr,napxo,zero, "omoidpsv_cr")
    call alloc(mtc_cr,     napxo,one,  "mtc_cr")
    call alloc(naa_cr,     napxo,aa0,  "naa_cr")
    call alloc(nzz_cr,     napxo,zz0,  "nzz_cr")
    call alloc(pids_cr,    napxo,0,    "pids_cr")
  
    read(fileunit,err=10,end=10) nucmda_cr,ien0_cr,ien1_cr,nnuc0_cr,nnuc1_cr
    read(fileunit,err=10,end=10) (nucm_cr(i),     i=1, napxo)
    read(fileunit,err=10,end=10) (moidpsv_cr(i),  i=1, napxo)
    read(fileunit,err=10,end=10) (omoidpsv_cr(i), i=1, napxo)
    read(fileunit,err=10,end=10) (mtc_cr(i),      i=1, napxo)
    read(fileunit,err=10,end=10) (naa_cr(i),      i=1, napxo)
    read(fileunit,err=10,end=10) (nzz_cr(i),      i=1, napxo)
    read(fileunit,err=10,end=10) (pids_cr(i),     i=1, napxo)
  
    readErr = .false.
    return
  
negative.code:   nnuc0  = nnuc0_cr
    nnuc1  = nnuc1_cr
  
    nucm(1:npart)     = nucm_cr(1:npart)
    moidpsv(1:npart)  = moidpsv_cr(1:npart)
    omoidpsv(1:npart) = omoidpsv_cr(1:npart)
    mtc(1:npart)      = mtc_cr(1:npart)
    naa(1:npart)      = naa_cr(1:npart)
    nzz(1:npart)      = nzz_cr(1:npart)
    pids(1:npart)     = pids_cr(1:npart)
  
    call dealloc(nucm_cr,    "nucm_cr")
    call dealloc(moidpsv_cr, "moidpsv_cr")
  