anchor.diff:  
     real(kind=fPrec), allocatable :: brThreshold(:)
     real(kind=fPrec), allocatable :: rndVals(:)
  -  logical,          allocatable :: pLost(:)
     logical,          allocatable :: pScattered(:)
     logical,          allocatable :: hasProc(:,:)
     integer,          allocatable :: nLost(:,:)
  
positive.code: 
    call dealloc(rndVals,   "rndVals")
    call dealloc(hasProc,   "hasProc")
    call dealloc(pLost,     "pLost")
    call dealloc(pScattered,"pScattered")
    call dealloc(nLost,     "nLost")
    call dealloc(nScattered,"nScattered")
  
negative.code:   call recuin(scatter_seed1,scatter_seed2)
  
    call alloc(rndVals,   napx*3,             zero,   "rndVals")
    call alloc(pScattered,napx,               .false.,"pScattered")
    call alloc(hasProc,   nGen,scatter_nProc, .false.,"hasProc")
    call alloc(nLost,     nGen,scatter_nProc, 0,      "nLost")
  