is_finite_number Function

public pure function is_finite_number(x) result(res)

Uses

  • proc~~is_finite_number~~UsesGraph proc~is_finite_number is_finite_number ieee_arithmetic ieee_arithmetic proc~is_finite_number->ieee_arithmetic

Test if a double precision is a finite number

FT 11.02.2022

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: x

Return Value logical


Called by

proc~~is_finite_number~~CalledByGraph proc~is_finite_number is_finite_number none~check_bssn_id_for_nans check_bssn_id_for_NaNs none~check_bssn_id_for_nans->proc~is_finite_number none~get_nstar_id_atm get_nstar_id_atm none~get_nstar_id_atm->proc~is_finite_number none~place_and_print_ghost_particles place_and_print_ghost_particles none~place_and_print_ghost_particles->proc~is_finite_number proc~compute_adm_momentum_fluid_m2p compute_adm_momentum_fluid_m2p proc~compute_adm_momentum_fluid_m2p->proc~is_finite_number proc~compute_colatitudes_uniformly_in compute_colatitudes_uniformly_in proc~compute_colatitudes_uniformly_in->proc~is_finite_number proc~correct_center_of_mass correct_center_of_mass proc~correct_center_of_mass->proc~is_finite_number proc~number_surfaces number_surfaces proc~number_surfaces->proc~is_finite_number proc~perform_apm perform_apm proc~perform_apm->proc~is_finite_number proc~perform_apm->none~get_nstar_id_atm proc~perform_apm->none~place_and_print_ghost_particles interface~correct_center_of_mass correct_center_of_mass proc~perform_apm->interface~correct_center_of_mass proc~place_particles_ellipsoidal_surfaces place_particles_ellipsoidal_surfaces proc~place_particles_ellipsoidal_surfaces->proc~is_finite_number proc~place_particles_ellipsoidal_surfaces->proc~compute_colatitudes_uniformly_in proc~place_particles_ellipsoidal_surfaces->proc~number_surfaces proc~read_fuka_id_particles read_fuka_id_particles proc~read_fuka_id_particles->proc~is_finite_number proc~read_fuka_id_spacetime read_fuka_id_spacetime proc~read_fuka_id_spacetime->proc~is_finite_number proc~scan_1d_array_for_nans scan_1d_array_for_nans proc~scan_1d_array_for_nans->proc~is_finite_number proc~scan_3d_array_for_nans scan_3d_array_for_nans proc~scan_3d_array_for_nans->proc~is_finite_number program~construct_newtonian_binary construct_newtonian_binary program~construct_newtonian_binary->proc~is_finite_number proc~read_boost_superimpose_tov_adm_id read_boost_superimpose_tov_adm_id program~construct_newtonian_binary->proc~read_boost_superimpose_tov_adm_id proc~read_tov_sph_id read_tov_sph_id program~construct_newtonian_binary->proc~read_tov_sph_id interface~compute_adm_momentum_fluid_m2p compute_adm_momentum_fluid_m2p interface~compute_adm_momentum_fluid_m2p->proc~compute_adm_momentum_fluid_m2p interface~correct_center_of_mass->proc~correct_center_of_mass interface~perform_apm perform_apm interface~perform_apm->proc~perform_apm interface~place_particles_ellipsoidal_surfaces place_particles_ellipsoidal_surfaces interface~place_particles_ellipsoidal_surfaces->proc~place_particles_ellipsoidal_surfaces interface~read_fuka_id_particles read_fuka_id_particles interface~read_fuka_id_particles->proc~read_fuka_id_particles interface~read_fuka_id_spacetime read_fuka_id_spacetime interface~read_fuka_id_spacetime->proc~read_fuka_id_spacetime proc~compute_and_print_bssn_variables compute_and_print_bssn_variables proc~compute_and_print_bssn_variables->none~check_bssn_id_for_nans proc~construct_particles_std construct_particles_std proc~construct_particles_std->proc~scan_1d_array_for_nans proc~construct_particles_std->interface~perform_apm proc~read_boost_superimpose_tov_adm_id->proc~scan_3d_array_for_nans proc~read_tov_sph_id->proc~scan_1d_array_for_nans proc~setup_standard_tpo_variables setup_standard_tpo_variables proc~setup_standard_tpo_variables->proc~scan_3d_array_for_nans interface~compute_and_print_bssn_variables compute_and_print_bssn_variables interface~compute_and_print_bssn_variables->proc~compute_and_print_bssn_variables interface~construct_particles_std construct_particles_std interface~construct_particles_std->proc~construct_particles_std interface~setup_standard_tpo_variables setup_standard_tpo_variables interface~setup_standard_tpo_variables->proc~setup_standard_tpo_variables interface~particles particles interface~particles->interface~construct_particles_std program~convergence_test convergence_test program~convergence_test->interface~particles program~sphincs_id sphincs_id program~sphincs_id->interface~particles

Contents

Source Code

is_finite_number

Source Code

  PURE FUNCTION is_finite_number( x ) RESULT( res )

    !***********************************************
    !
    !# Test if a double precision is a finite number
    !
    !  FT 11.02.2022
    !
    !***********************************************

    USE, INTRINSIC:: IEEE_ARITHMETIC, ONLY: IEEE_IS_FINITE

    DOUBLE PRECISION, INTENT(IN):: x
    LOGICAL:: res

    res= (.NOT.ISNAN(x)) .AND. IEEE_IS_FINITE(x)

  END FUNCTION is_finite_number