SF_CONSTANTS Module


Used by

  • module~~sf_constants~~UsedByGraph module~sf_constants SF_CONSTANTS module~scifor SCIFOR module~scifor->module~sf_constants module~sf_fft_fftpack SF_FFT_FFTPACK module~scifor->module~sf_fft_fftpack module~sf_optimize SF_OPTIMIZE module~scifor->module~sf_optimize module~sf_fft_fftpack->module~sf_constants module~sf_optimize->module~sf_constants

Variables

Type Visibility Attributes Name Initial
complex(kind=8), public, parameter :: zero = (0.d0, 0.d0)
complex(kind=8), public, parameter :: xi = (0.d0, 1.d0)
complex(kind=8), public, parameter :: one = (1.d0, 0.d0)
real(kind=8), public, parameter :: sqrt2 = 1.41421356237309504880169d0
real(kind=8), public, parameter :: sqrt3 = 1.73205080756887729352745d0
real(kind=8), public, parameter :: sqrt6 = 2.44948974278317809819728d0
real(kind=8), public, parameter :: pi = 3.14159265358979323846264338327950288419716939937510d0
real(kind=8), public, parameter :: pi2 = 6.28318530717959d0
real(kind=8), public, parameter :: gamma_euler = 0.57721566490153286060d0
real(kind=8), public, parameter :: euler = 2.7182818284590452353602874713526624977572470936999595749669676277240766303535d0
integer, public, parameter :: max_int = huge(1)
real(kind=8), public, parameter :: max_real = huge(1.d0)
real(kind=8), public, parameter :: epsilonr = epsilon(1.d0)
real(kind=8), public, parameter :: epsilonq = 1.d-30
integer, public, parameter :: dbl = 8
integer, public, parameter :: dp = 8
integer, public, parameter :: ddp = 16
integer, public, parameter :: sp = kind(1.0)
real(kind=8), public, parameter :: Avogadro_constant = 0.602214129000D+24
real(kind=8), public, parameter :: Bohr_magneton = 0.927400968000D-23
real(kind=8), public, parameter :: Bohr_magneton_in_eVoT = 0.578838180660D-04
real(kind=8), public, parameter :: Bohr_magneton_in_HzoT = 0.139962455500D+11
real(kind=8), public, parameter :: Bohr_magneton_in_inverse_meters_per_tesla = 46.6864498D0000
real(kind=8), public, parameter :: Bohr_magneton_in_KoT = 0.67171388D000
real(kind=8), public, parameter :: Bohr_radius = 0.529177210920D-10
real(kind=8), public, parameter :: Boltzmann_constant = 0.138064880000D-22
real(kind=8), public, parameter :: Boltzmann_constant_in_eVoK = 0.861733240000D-04
real(kind=8), public, parameter :: Boltzmann_constant_in_HzoK = 0.208366180000D+11
real(kind=8), public, parameter :: Boltzmann_constant_in_inverse_meters_per_kelvin = 69.503476D00000
real(kind=8), public, parameter :: Compton_wavelength = 0.242631023890D-11
real(kind=8), public, parameter :: Compton_wavelength_over_2_pi = 0.386159268000D-12
real(kind=8), public, parameter :: electric_constant = 0.885418781700D-11
real(kind=8), public, parameter :: electron_charge_to_mass_quotient = -0.175882008800D+12
real(kind=8), public, parameter :: electron_g_factor = -0.200231930436D+01
real(kind=8), public, parameter :: electron_gyromag__ratio = 0.176085970800D+12
real(kind=8), public, parameter :: electron_gyromag__ratio_over_2_pi = 0.280249526600D+05
real(kind=8), public, parameter :: electron_mag__mom_ = -0.928476430000D-23
real(kind=8), public, parameter :: electron_mag__mom__to_Bohr_magneton_ratio = -0.100115965218D+01
real(kind=8), public, parameter :: electron_mass = 0.910938291000D-30
real(kind=8), public, parameter :: electron_mass_energy_equivalent = 0.818710506000D-13
real(kind=8), public, parameter :: electron_mass_energy_equivalent_in_MeV = 0.510998928D00
real(kind=8), public, parameter :: electron_volt = 0.160217656500D-18
real(kind=8), public, parameter :: electron_volt_atomic_mass_unit_relationship = 0.107354415000D-08
real(kind=8), public, parameter :: electron_volt_hartree_relationship = 0.03674932379D0
real(kind=8), public, parameter :: electron_volt_hertz_relationship = 0.241798934800D+15
real(kind=8), public, parameter :: electron_volt_inverse_meter_relationship = 0.806554429000D+06
real(kind=8), public, parameter :: electron_volt_joule_relationship = 0.160217656500D-18
real(kind=8), public, parameter :: electron_volt_kelvin_relationship = 0.116045190000D+05
real(kind=8), public, parameter :: electron_volt_kilogram_relationship = 0.178266184500D-35
real(kind=8), public, parameter :: elementary_charge = 0.160217656500D-18
real(kind=8), public, parameter :: elementary_charge_over_h = 0.241798934800D+15
real(kind=8), public, parameter :: Faraday_constant = 0.964853365000D+05
real(kind=8), public, parameter :: Faraday_constant_for_conventional_electric_current = 0.964853321000D+05
real(kind=8), public, parameter :: fine_structure_constant = 0.729735256980D-02
real(kind=8), public, parameter :: Josephson_constant = 0.483597870000D+15
real(kind=8), public, parameter :: joule_electron_volt_relationship = 0.624150934000D+19
real(kind=8), public, parameter :: joule_hertz_relationship = 0.150919031100D+34
real(kind=8), public, parameter :: joule_inverse_meter_relationship = 0.503411701000D+25
real(kind=8), public, parameter :: joule_kelvin_relationship = 0.724297160000D+23
real(kind=8), public, parameter :: joule_kilogram_relationship = 0.111265005600D-16
real(kind=8), public, parameter :: kelvin_atomic_mass_unit_relationship = 0.925108680000D-13
real(kind=8), public, parameter :: kelvin_electron_volt_relationship = 0.861733240000D-04
real(kind=8), public, parameter :: kelvin_hartree_relationship = 0.316681140000D-05
real(kind=8), public, parameter :: kelvin_hertz_relationship = 0.208366180000D+11
real(kind=8), public, parameter :: kelvin_inverse_meter_relationship = 69.503476D00000
real(kind=8), public, parameter :: kelvin_joule_relationship = 0.138064880000D-22
real(kind=8), public, parameter :: kelvin_kilogram_relationship = 0.153617900000D-39
real(kind=8), public, parameter :: kilogram_atomic_mass_unit_relationship = 0.602214129000D+27
real(kind=8), public, parameter :: kilogram_electron_volt_relationship = 0.560958885000D+36
real(kind=8), public, parameter :: kilogram_hartree_relationship = 0.206148596800D+35
real(kind=8), public, parameter :: kilogram_hertz_relationship = 0.135639260800D+50
real(kind=8), public, parameter :: kilogram_inverse_meter_relationship = 0.452443873000D+42
real(kind=8), public, parameter :: kilogram_joule_relationship = 0.898755178700D+17
real(kind=8), public, parameter :: kilogram_kelvin_relationship = 0.650965820000D+40
real(kind=8), public, parameter :: lattice_parameter_of_silicon = 0.543102050400D-09
real(kind=8), public, parameter :: natural_unit_of_action = 0.105457172600D-33
real(kind=8), public, parameter :: natural_unit_of_action_in_eV_s = 0.658211928000D-15
real(kind=8), public, parameter :: natural_unit_of_energy = 0.818710506000D-13
real(kind=8), public, parameter :: natural_unit_of_energy_in_MeV = 0.510998928D00
real(kind=8), public, parameter :: natural_unit_of_length = 0.386159268000D-12
real(kind=8), public, parameter :: natural_unit_of_mass = 0.910938291000D-30
real(kind=8), public, parameter :: natural_unit_of_mom_um = 0.273092429000D-21
real(kind=8), public, parameter :: natural_unit_of_mom_um_in_MeVoc = 0.510998928D0
real(kind=8), public, parameter :: natural_unit_of_time = 0.128808866833D-20
real(kind=8), public, parameter :: natural_unit_of_velocity = 0.299792458000D+09
real(kind=8), public, parameter :: Newtonian_constant_of_gravitation = 0.667384000000D-10
real(kind=8), public, parameter :: Planck_constant = 0.662606957000D-33
real(kind=8), public, parameter :: Planck_constant_in_eV_s = 0.413566751600D-14
real(kind=8), public, parameter :: Planck_constant_over_2_pi = 0.105457172600D-33
real(kind=8), public, parameter :: Rydberg_constant = 0.109737315685D+08
real(kind=8), public, parameter :: Rydberg_constant_times_c_in_Hz = 0.328984196036D+16
real(kind=8), public, parameter :: Rydberg_constant_times_hc_in_eV = 13.60569253d000
real(kind=8), public, parameter :: Rydberg_constant_times_hc_in_J = 0.217987217100D-17
real(kind=8), public, parameter :: speed_of_light_in_vacuum = 0.299792458000D+09
real(kind=8), public, parameter :: standard_acceleration_of_gravity = 9.80665D000000
real(kind=8), public, parameter :: Stefan_Boltzmann_constant = 0.567037300000D-07

Interfaces

public interface isnan

  • public elemental function i_isnan(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: a

    Return Value logical

  • public elemental function d_isnan(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), intent(in) :: a

    Return Value logical

  • public elemental function z_isnan(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8), intent(in) :: a

    Return Value logical

public interface isinfty

  • public elemental function i_isinfty(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: a

    Return Value logical

  • public elemental function d_isinfty(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8), intent(in) :: a

    Return Value logical

  • public elemental function z_isinfty(a) result(bool)

    Arguments

    Type IntentOptional Attributes Name
    complex(kind=8), intent(in) :: a

    Return Value logical

public interface wait

  • public subroutine i_wait(time)

    Arguments

    Type IntentOptional Attributes Name
    integer :: time

  • public subroutine r_wait(time)

    Arguments

    Type IntentOptional Attributes Name
    real :: time

  • public subroutine d_wait(time)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=8) :: time

Functions

public elemental function i_isinfty(a) result(bool)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: a

Return Value logical

public elemental function d_isinfty(a) result(bool)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: a

Return Value logical

public elemental function z_isinfty(a) result(bool)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(in) :: a

Return Value logical

public elemental function i_isnan(a) result(bool)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: a

Return Value logical

public elemental function d_isnan(a) result(bool)

Arguments

Type IntentOptional Attributes Name
real(kind=8), intent(in) :: a

Return Value logical

public elemental function z_isnan(a) result(bool)

Arguments

Type IntentOptional Attributes Name
complex(kind=8), intent(in) :: a

Return Value logical


Subroutines

public subroutine timestamp(unit)

Arguments

Type IntentOptional Attributes Name
integer, optional :: unit

public subroutine print_date(dummy, unit)

Arguments

Type IntentOptional Attributes Name
integer(kind=4), dimension(8) :: dummy
integer :: unit

public subroutine stop_error(msg)

Arguments

Type IntentOptional Attributes Name
character(len=*) :: msg

public subroutine i_wait(time)

Arguments

Type IntentOptional Attributes Name
integer :: time

public subroutine r_wait(time)

Arguments

Type IntentOptional Attributes Name
real :: time

public subroutine d_wait(time)

Arguments

Type IntentOptional Attributes Name
real(kind=8) :: time