anchor.diff:          if (nkill /= 0) then
               ! Create nkill excips with sign of -K_ii A_i
               if (KiiAi > 0) nkill = -nkill
  -            ! [review] - JSS: better just to declare nkill to be integer(int_p).
  -            call create_spawned_particle_truncated(cdet, null_excit, int(nkill, int_p), 1, qmc_spawn)
  +            call create_spawned_particle_truncated(cdet, null_excit, nkill, 1, qmc_spawn)
           end if
   
       end subroutine stochastic_ccmc_death
  
positive.code:         type(dSFMT_t), intent(inout) :: rng
  
          real(p) :: pdeath, KiiAi
          integer :: nkill
          type(excit), parameter :: null_excit = excit( 0, [0,0,0,0], [0,0,0,0], .false.)
  
          ! Spawning onto the same excitor so no change in sign due to
  
negative.code:         pdeath = tau*abs(KiiAi)/cluster%pselect
  
          ! Number that will definitely die
          nkill = int(pdeath,int_p)
  
          ! Stochastic death...
          pdeath = pdeath - nkill
  