anchor.diff:  
     use string_tools
     use crcoall
  +  use mod_time
     use mod_hions
     use mod_alloc
     use mod_common
  
positive.code:     ! Skip the whole thing if the scaling is ~zero
      return
    end if
  
    ! Store the seeds in the randum number generator, and set ours
    call recuut(tmpSeed1,tmpSeed2)
  
negative.code:   call dealloc(pScattered,"pScattered")
    call dealloc(nLost,     "nLost")
    call dealloc(nScattered,"nScattered")
  
    call time_stopClock(time_clockSCAT)
  
  end subroutine scatter_thin
  
  