Skip to content

Commit 769fce4

Browse files
committed
Make public symbols explicit
1 parent 7dc5636 commit 769fce4

4 files changed

Lines changed: 12 additions & 3 deletions

File tree

src/mctc/data.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -46,6 +46,7 @@ module mctc_data
4646
use mctc_data_paulingen, only : get_pauling_en
4747
use mctc_data_vdwrad, only : get_vdw_rad
4848
implicit none
49+
private
4950

5051
public :: get_atomic_rad, get_covalent_rad, get_pauling_en, get_vdw_rad
5152
end module mctc_data

src/mctc/env.f90

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,6 +44,11 @@ module mctc_env
4444
& is_unix, is_windows
4545
use mctc_env_timer, only : timer_type, format_time
4646
implicit none
47-
public
47+
private
48+
49+
public :: sp, dp, wp, i1, i2, i4, i8
50+
public :: error_type, fatal_error, mctc_stat
51+
public :: get_argument, get_variable, is_unix, is_windows
52+
public :: timer_type, format_time
4853

4954
end module mctc_env

src/mctc/env/accuracy.f90

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -15,7 +15,9 @@
1515
!> Numerical storage size parameters for real and integer values
1616
module mctc_env_accuracy
1717
implicit none
18-
public
18+
private
19+
20+
public :: sp, dp, wp, i1, i2, i4, i8
1921

2022
!> Single precision real numbers
2123
integer, parameter :: sp = selected_real_kind(6)

src/mctc/io/codata2018.f90

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -19,8 +19,9 @@
1919
module mctc_io_codata2018
2020
use mctc_env, only : wp
2121
implicit none
22-
public
22+
private
2323

24+
public :: alpha_particle_electron_mass_ratio, alpha_particle_mass, alpha_particle_mass_energy_equivalent, alpha_particle_mass_energy_equivalent_in_MeV, alpha_particle_mass_in_u, alpha_particle_molar_mass, alpha_particle_proton_mass_ratio, alpha_particle_relative_atomic_mass, Angstrom_star, atomic_mass_constant, atomic_mass_constant_energy_equivalent, atomic_mass_constant_energy_equivalent_in_MeV, atomic_mass_unit_electron_volt_relationship, atomic_mass_unit_hartree_relationship, atomic_mass_unit_hertz_relationship, atomic_mass_unit_inverse_meter_relationship, atomic_mass_unit_joule_relationship, atomic_mass_unit_kelvin_relationship, atomic_mass_unit_kilogram_relationship, atomic_unit_of_1st_hyperpolarizability, atomic_unit_of_2nd_hyperpolarizability, atomic_unit_of_action, atomic_unit_of_charge, atomic_unit_of_charge_density, atomic_unit_of_current, atomic_unit_of_electric_dipole_mom_, atomic_unit_of_electric_field, atomic_unit_of_electric_field_gradient, atomic_unit_of_electric_polarizability, atomic_unit_of_electric_potential, atomic_unit_of_electric_quadrupole_mom_, atomic_unit_of_energy, atomic_unit_of_force, atomic_unit_of_length, atomic_unit_of_mag__dipole_mom_, atomic_unit_of_mag__flux_density, atomic_unit_of_magnetizability, atomic_unit_of_mass, atomic_unit_of_momentum, atomic_unit_of_permittivity, atomic_unit_of_time, atomic_unit_of_velocity, Avogadro_constant, Bohr_magneton, Bohr_magneton_in_eV_T, Bohr_magneton_in_Hz_T, Bohr_magneton_in_inverse_meter_per_tesla, Bohr_magneton_in_K_T, Bohr_radius, Boltzmann_constant, Boltzmann_constant_in_eV_K, Boltzmann_constant_in_Hz_K, Boltzmann_constant_in_inverse_meter_per_kelvin, characteristic_impedance_of_vacuum, classical_electron_radius, Compton_wavelength, conductance_quantum, conventional_value_of_ampere_90, conventional_value_of_coulomb_90, conventional_value_of_farad_90, conventional_value_of_henry_90, conventional_value_of_Josephson_constant, conventional_value_of_ohm_90, conventional_value_of_volt_90, conventional_value_of_von_Klitzing_constant, conventional_value_of_watt_90, Copper_x_unit, deuteron_electron_mag__mom__ratio, deuteron_electron_mass_ratio, deuteron_g_factor, deuteron_mag__mom_, deuteron_mag__mom__to_Bohr_magneton_ratio, deuteron_mag__mom__to_nuclear_magneton_ratio, deuteron_mass, deuteron_mass_energy_equivalent, deuteron_mass_energy_equivalent_in_MeV, deuteron_mass_in_u, deuteron_molar_mass, deuteron_neutron_mag__mom__ratio, deuteron_proton_mag__mom__ratio, deuteron_proton_mass_ratio, deuteron_relative_atomic_mass, deuteron_rms_charge_radius, electron_charge_to_mass_quotient, electron_deuteron_mag__mom__ratio, electron_deuteron_mass_ratio, electron_g_factor, electron_gyromag__ratio, electron_gyromag__ratio_in_MHz_T, electron_helion_mass_ratio, electron_mag__mom_, electron_mag__mom__anomaly, electron_mag__mom__to_Bohr_magneton_ratio, electron_mag__mom__to_nuclear_magneton_ratio, electron_mass, electron_mass_energy_equivalent, electron_mass_energy_equivalent_in_MeV, electron_mass_in_u, electron_molar_mass, electron_muon_mag__mom__ratio, electron_muon_mass_ratio, electron_neutron_mag__mom__ratio, electron_neutron_mass_ratio, electron_proton_mag__mom__ratio, electron_proton_mass_ratio, electron_relative_atomic_mass, electron_tau_mass_ratio, electron_to_alpha_particle_mass_ratio, electron_to_shielded_helion_mag__mom__ratio, electron_to_shielded_proton_mag__mom__ratio, electron_triton_mass_ratio, electron_volt, electron_volt_atomic_mass_unit_relationship, electron_volt_hartree_relationship, electron_volt_hertz_relationship, electron_volt_inverse_meter_relationship, electron_volt_joule_relationship, electron_volt_kelvin_relationship, electron_volt_kilogram_relationship, elementary_charge, elementary_charge_over_h_bar, Faraday_constant, Fermi_coupling_constant, fine_structure_constant, first_radiation_constant, first_radiation_constant_for_spectral_radiance, hartree_atomic_mass_unit_relationship, hartree_electron_volt_relationship, Hartree_energy, Hartree_energy_in_eV, hartree_hertz_relationship, hartree_inverse_meter_relationship, hartree_joule_relationship, hartree_kelvin_relationship, hartree_kilogram_relationship, helion_electron_mass_ratio, helion_g_factor, helion_mag__mom_, helion_mag__mom__to_Bohr_magneton_ratio, helion_mag__mom__to_nuclear_magneton_ratio, helion_mass, helion_mass_energy_equivalent, helion_mass_energy_equivalent_in_MeV, helion_mass_in_u, helion_molar_mass, helion_proton_mass_ratio, helion_relative_atomic_mass, helion_shielding_shift, hertz_atomic_mass_unit_relationship, hertz_electron_volt_relationship, hertz_hartree_relationship, hertz_inverse_meter_relationship, hertz_joule_relationship, hertz_kelvin_relationship, hertz_kilogram_relationship, hyperfine_transition_frequency_of_Cs_133, inverse_fine_structure_constant, inverse_meter_atomic_mass_unit_relationship, inverse_meter_electron_volt_relationship, inverse_meter_hartree_relationship, inverse_meter_hertz_relationship, inverse_meter_joule_relationship, inverse_meter_kelvin_relationship, inverse_meter_kilogram_relationship, inverse_of_conductance_quantum, Josephson_constant, joule_atomic_mass_unit_relationship, joule_electron_volt_relationship, joule_hartree_relationship, joule_hertz_relationship, joule_inverse_meter_relationship, joule_kelvin_relationship, joule_kilogram_relationship, kelvin_atomic_mass_unit_relationship, kelvin_electron_volt_relationship, kelvin_hartree_relationship, kelvin_hertz_relationship, kelvin_inverse_meter_relationship, kelvin_joule_relationship, kelvin_kilogram_relationship, kilogram_atomic_mass_unit_relationship, kilogram_electron_volt_relationship, kilogram_hartree_relationship, kilogram_hertz_relationship, kilogram_inverse_meter_relationship, kilogram_joule_relationship, kilogram_kelvin_relationship, lattice_parameter_of_silicon, lattice_spacing_of_ideal_Si_220, Loschmidt_constant_273_15_K__100_kPa, Loschmidt_constant_273_15_K__101_325_kPa, luminous_efficacy, mag__flux_quantum, molar_gas_constant, molar_mass_constant, molar_mass_of_carbon_12, molar_Planck_constant, molar_volume_of_ideal_gas_273_15_K__100_kPa, molar_volume_of_ideal_gas_273_15_K__101_325_kPa, molar_volume_of_silicon, Molybdenum_x_unit, muon_Compton_wavelength, muon_electron_mass_ratio, muon_g_factor, muon_mag__mom_, muon_mag__mom__anomaly, muon_mag__mom__to_Bohr_magneton_ratio, muon_mag__mom__to_nuclear_magneton_ratio, muon_mass, muon_mass_energy_equivalent, muon_mass_energy_equivalent_in_MeV, muon_mass_in_u, muon_molar_mass, muon_neutron_mass_ratio, muon_proton_mag__mom__ratio, muon_proton_mass_ratio, muon_tau_mass_ratio, natural_unit_of_action, natural_unit_of_action_in_eV_s, natural_unit_of_energy, natural_unit_of_energy_in_MeV, natural_unit_of_length, natural_unit_of_mass, natural_unit_of_momentum, natural_unit_of_momentum_in_MeV_c, natural_unit_of_time, natural_unit_of_velocity, neutron_Compton_wavelength, neutron_electron_mag__mom__ratio, neutron_electron_mass_ratio, neutron_g_factor, neutron_gyromag__ratio, neutron_gyromag__ratio_in_MHz_T, neutron_mag__mom_, neutron_mag__mom__to_Bohr_magneton_ratio, neutron_mag__mom__to_nuclear_magneton_ratio, neutron_mass, neutron_mass_energy_equivalent, neutron_mass_energy_equivalent_in_MeV, neutron_mass_in_u, neutron_molar_mass, neutron_muon_mass_ratio, neutron_proton_mag__mom__ratio, neutron_proton_mass_difference, neutron_proton_mass_difference_energy_equivalent, neutron_proton_mass_difference_energy_equivalent_in_MeV, neutron_proton_mass_difference_in_u, neutron_proton_mass_ratio, neutron_relative_atomic_mass, neutron_tau_mass_ratio, neutron_to_shielded_proton_mag__mom__ratio, Newtonian_constant_of_gravitation, Newtonian_constant_of_gravitation_over_h_bar_c, nuclear_magneton, nuclear_magneton_in_eV_T, nuclear_magneton_in_inverse_meter_per_tesla, nuclear_magneton_in_K_T, nuclear_magneton_in_MHz_T, Planck_constant, Planck_constant_in_eV_Hz, Planck_length, Planck_mass, Planck_mass_energy_equivalent_in_GeV, Planck_temperature, Planck_time, proton_charge_to_mass_quotient, proton_Compton_wavelength, proton_electron_mass_ratio, proton_g_factor, proton_gyromag__ratio, proton_gyromag__ratio_in_MHz_T, proton_mag__mom_, proton_mag__mom__to_Bohr_magneton_ratio, proton_mag__mom__to_nuclear_magneton_ratio, proton_mag__shielding_correction, proton_mass, proton_mass_energy_equivalent, proton_mass_energy_equivalent_in_MeV, proton_mass_in_u, proton_molar_mass, proton_muon_mass_ratio, proton_neutron_mag__mom__ratio, proton_neutron_mass_ratio, proton_relative_atomic_mass, proton_rms_charge_radius, proton_tau_mass_ratio, quantum_of_circulation, quantum_of_circulation_times_2, reduced_Compton_wavelength, reduced_muon_Compton_wavelength, reduced_neutron_Compton_wavelength, reduced_Planck_constant, reduced_Planck_constant_in_eV_s, reduced_Planck_constant_times_c_in_MeV_fm, reduced_proton_Compton_wavelength, reduced_tau_Compton_wavelength, Rydberg_constant, Rydberg_constant_times_c_in_Hz, Rydberg_constant_times_hc_in_eV, Rydberg_constant_times_hc_in_J, Sackur_Tetrode_constant_1_K__100_kPa, Sackur_Tetrode_constant_1_K__101_325_kPa, second_radiation_constant, shielded_helion_gyromag__ratio, shielded_helion_gyromag__ratio_in_MHz_T, shielded_helion_mag__mom_, shielded_helion_mag__mom__to_Bohr_magneton_ratio, shielded_helion_mag__mom__to_nuclear_magneton_ratio, shielded_helion_to_proton_mag__mom__ratio, shielded_helion_to_shielded_proton_mag__mom__ratio, shielded_proton_gyromag__ratio, shielded_proton_gyromag__ratio_in_MHz_T, shielded_proton_mag__mom_, shielded_proton_mag__mom__to_Bohr_magneton_ratio, shielded_proton_mag__mom__to_nuclear_magneton_ratio, shielding_difference_of_d_and_p_in_HD, shielding_difference_of_t_and_p_in_HT, speed_of_light_in_vacuum, standard_acceleration_of_gravity, standard_atmosphere, standard_state_pressure, Stefan_Boltzmann_constant, tau_Compton_wavelength, tau_electron_mass_ratio, tau_energy_equivalent, tau_mass, tau_mass_energy_equivalent, tau_mass_in_u, tau_molar_mass, tau_muon_mass_ratio, tau_neutron_mass_ratio, tau_proton_mass_ratio, Thomson_cross_section, triton_electron_mass_ratio, triton_g_factor, triton_mag__mom_, triton_mag__mom__to_Bohr_magneton_ratio, triton_mag__mom__to_nuclear_magneton_ratio, triton_mass, triton_mass_energy_equivalent, triton_mass_energy_equivalent_in_MeV, triton_mass_in_u, triton_molar_mass, triton_proton_mass_ratio, triton_relative_atomic_mass, triton_to_proton_mag__mom__ratio, unified_atomic_mass_unit, vacuum_electric_permittivity, vacuum_mag__permeability, von_Klitzing_constant, weak_mixing_angle, Wien_frequency_displacement_law_constant, Wien_wavelength_displacement_law_constant, W_to_Z_mass_ratio
2425
!> alpha particle-electron mass ratio (dimensionless)
2526
real(wp), parameter :: alpha_particle_electron_mass_ratio = 7294.29954142_wp
2627
!> alpha particle mass (kg)

0 commit comments

Comments
 (0)