find Function

  1. COESA.f90
  2. COESA_module
  3. find

private pure function find(x, xvec) result(i)

Arguments

TypeIntentOptionalAttributesName
real(kind=wp), intent(in) :: x
real(kind=wp), intent(in), dimension(:):: xvec

Return Value integer


Called by

proc~~find~~CalledByGraph proc~find find proc~mean_molecular_weight_ratio_lower mean_molecular_weight_ratio_lower proc~mean_molecular_weight_ratio_lower->proc~find proc~pressure_lower pressure_lower proc~pressure_lower->proc~find proc~tm Tm proc~tm->proc~find proc~interpolation_index interpolation_index proc~interpolation_index->proc~find proc~pressure_upper pressure_upper proc~pressure_upper->proc~interpolation_index proc~coesa_atmosphere COESA_atmosphere proc~coesa_atmosphere->proc~pressure_lower proc~coesa_atmosphere->proc~pressure_upper proc~mean_molecular_weight_upper mean_molecular_weight_upper proc~coesa_atmosphere->proc~mean_molecular_weight_upper proc~mean_molecular_weight_lower mean_molecular_weight_lower proc~coesa_atmosphere->proc~mean_molecular_weight_lower proc~temperature_lower temperature_lower proc~coesa_atmosphere->proc~temperature_lower proc~speed_of_sound_86km speed_of_sound_86km proc~coesa_atmosphere->proc~speed_of_sound_86km proc~mean_molecular_weight_upper->proc~interpolation_index proc~mean_molecular_weight_lower->proc~mean_molecular_weight_ratio_lower proc~coesa_density COESA_density proc~coesa_density->proc~pressure_lower proc~coesa_density->proc~pressure_upper proc~coesa_density->proc~mean_molecular_weight_upper proc~coesa_density->proc~mean_molecular_weight_lower proc~coesa_density->proc~temperature_lower proc~temperature_lower->proc~tm proc~speed_of_sound_86km->proc~mean_molecular_weight_lower proc~speed_of_sound_86km->proc~temperature_lower

Contents

Source Code

find

Source Code

pure function find(x, xvec) result(i)
    real(wp),intent(in) :: x
    real(wp),dimension(:),intent(in) :: xvec
    integer :: i
    i = 1
    do
        if (i >= size(xvec)) exit
        if (x <= xvec(i + 1)) exit
        i = i + 1
    end do
end function find