check_collisions_params Subroutine

  1. korc_collisions.f90
  2. korc_collisions
  3. check_collisions_params

public subroutine check_collisions_params(spp)

Uses

  • proc~~check_collisions_params~~UsesGraph proc~check_collisions_params check_collisions_params omp_lib omp_lib proc~check_collisions_params->omp_lib

Arguments

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

Calls

proc~~check_collisions_params~~CallsGraph proc~check_collisions_params check_collisions_params proc~get_random get_random proc~check_collisions_params->proc~get_random omp_get_thread_num omp_get_thread_num proc~get_random->omp_get_thread_num interface~random_get_number random_get_number proc~get_random->interface~random_get_number

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