anchor.diff:    call dealloc(pScattered,"pScattered")
     call dealloc(nLost,     "nLost")
     call dealloc(nScattered,"nScattered")
  +
  +  call time_stopClock(time_clockSCAT)
   
   end subroutine scatter_thin
   
  
positive.code: 
    use string_tools
    use crcoall
    use mod_hions
    use mod_alloc
    use mod_common
  
negative.code:     ! Skip the whole thing if the scaling is ~zero
      return
    end if
  
    ! If not, we're doing something, so start the stop watch
    call time_startClock(time_clockSCAT)
  
    ! Store the seeds in the randum number generator, and set ours
    call recuut(tmpSeed1,tmpSeed2)
  