check_collisions_params Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. check_collisions_params

public subroutine check_collisions_params(spp)

Uses

Arguments

Type IntentOptional AttributesName
type(SPECIES), intent(in) :: spp

Contents

Source Code

check_collisions_params

Source Code

  subroutine check_collisions_params(spp)
#ifdef PARALLEL_RANDOM
    USE omp_lib
#endif
    TYPE(SPECIES), INTENT(IN) :: spp
    INTEGER aux

    aux = cparams_ss%rnd_num_count + 2_idef*INT(spp%ppp,idef)

    if (aux.GE.cparams_ss%rnd_dim) then
#ifdef PARALLEL_RANDOM
       cparams_ss%rnd_num = get_random()
#else
       call RANDOM_NUMBER(cparams_ss%rnd_num)
#endif
       cparams_ss%rnd_num_count = 1_idef
    end if
  end subroutine check_collisions_params