anchor.diff:  
   subroutine hions_crcheck_readdata(fileUnit, readErr)
   
  +  use parpro
     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")
  +  call alloc(nucm_cr,    npart,nucm0,"nucm_cr")
  +  call alloc(moidpsv_cr, npart,one,  "moidpsv_cr")
  +  call alloc(omoidpsv_cr,npart,zero, "omoidpsv_cr")
  +  call alloc(mtc_cr,     npart,one,  "mtc_cr")
  +  call alloc(naa_cr,     npart,aa0,  "naa_cr")
  +  call alloc(nzz_cr,     npart,zz0,  "nzz_cr")
  +  call alloc(pids_cr,    npart,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)
  +  read(fileunit,err=10,end=10) (nucm_cr(i),     i=1, npart)
  +  read(fileunit,err=10,end=10) (moidpsv_cr(i),  i=1, npart)
  +  read(fileunit,err=10,end=10) (omoidpsv_cr(i), i=1, npart)
  +  read(fileunit,err=10,end=10) (mtc_cr(i),      i=1, npart)
  +  read(fileunit,err=10,end=10) (naa_cr(i),      i=1, npart)
  +  read(fileunit,err=10,end=10) (nzz_cr(i),      i=1, npart)
  +  read(fileunit,err=10,end=10) (pids_cr(i),     i=1, npart)
   
     readErr = .false.
     return
  
positive.code: 
  subroutine hions_crstart
  
    use mod_alloc
    use mod_common, only : napxo
  
    nucmda = nucmda_cr
    ien0   = ien0_cr
  
negative.code: end subroutine hions_postInput
  
  #ifdef CR
  subroutine hions_crpoint(fileUnit, writeErr, iErr)
  
    use parpro
    use crcoall
  
    integer, intent(in)  :: fileUnit
    logical, intent(out) :: writeErr
    integer, intent(out) :: iErr
  
    integer i
  
    write(fileUnit,err=10,iostat=iErr) nucmda,ien0,ien1,nnuc0,nnuc1
    write(fileUnit,err=10,iostat=iErr) (nucm(i),     i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (moidpsv(i),  i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (omoidpsv(i), i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (mtc(i),      i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (naa(i),      i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (nzz(i),      i=1, npart)
    write(fileUnit,err=10,iostat=iErr) (pids(i),     i=1, npart)
    flush(fileUnit)
  
    writeErr = .false.
    return
  
  10 continue
  