88 REAL(KIND=
dp),
PARAMETER :: c_light = 299792458.0_dp
96 REAL(kind=
dp),
PARAMETER :: permittivity = 1.0_dp/(
mu_perm*c_light**2)
102 REAL(kind=
dp),
PARAMETER :: h_planck = 6.62606896e-34_dp
103 REAL(kind=
dp),
PARAMETER ::
h_bar = h_planck/(2.0_dp*
pi)
109 REAL(kind=
dp),
PARAMETER ::
e_mass = 9.10938215e-31_dp
112 REAL(kind=
dp),
PARAMETER ::
p_mass = 1.672621637e-27_dp
119 REAL(kind=
dp),
PARAMETER ::
a_fine = 7.2973525376e-3_dp
123 REAL(kind=
dp),
PARAMETER :: rydberg = 10973731.568527_dp
132 REAL(kind=
dp),
PARAMETER ::
a_mass = 1.660538782e-27_dp
136 REAL(kind=
dp),
PARAMETER ::
a_bohr = 0.52917720859e-10_dp
150 REAL(kind=
dp),
PARAMETER ::
seconds = 1.0_dp/(4.0_dp*
pi*rydberg*c_light)
159 REAL(kind=
dp),
PARAMETER ::
joule = 2.0_dp*rydberg*h_planck*c_light
218 INTEGER,
INTENT(IN) :: output_unit
220 WRITE (unit=output_unit, fmt=
"(T2,/,T2,A,/,/,(T2,A))") &
221 "*** Fundamental physical constants (SI units) ***", &
222 "*** Literature: B. J. Mohr and B. N. Taylor,", &
223 "*** CODATA recommended values of the fundamental physical", &
224 "*** constants: 2006, Web Version 5.1", &
225 "*** http://physics.nist.gov/constants"
227 WRITE (unit=output_unit, fmt=
"(/,T2,A,T61,ES20.14)") &
228 "Speed of light in vacuum [m/s]", c_light
229 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
230 "Magnetic constant or permeability of vacuum [N/A**2]",
mu_perm
231 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
232 "Electric constant or permittivity of vacuum [F/m]", permittivity
233 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
234 "Planck constant (h) [J*s]", h_planck
235 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
236 "Planck constant (h-bar) [J*s]",
h_bar
237 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
239 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
240 "Electron mass [kg]",
e_mass
241 WRITE (unit=output_unit, fmt=
"(T2,A,T60,ES21.14)") &
243 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
244 "Proton mass [kg]",
p_mass
245 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
246 "Fine-structure constant",
a_fine
247 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
248 "Rydberg constant [1/m]", rydberg
249 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
251 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
253 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
254 "Atomic mass unit [kg]",
a_mass
255 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
260 WRITE (unit=output_unit, fmt=
"(/,T2,A,/)") &
261 "*** Conversion factors ***"
263 WRITE (unit=output_unit, fmt=
"(T2,A,T61,ES20.14)") &
265 "[Angstrom] -> [Bohr] = [a.u.]",
bohr, &
266 "[a.u.] = [Bohr] -> [Angstrom]",
angstrom, &
269 "[a.u.] -> [J]",
joule, &
270 "[a.u.] -> [N]",
newton, &
271 "[a.u.] -> [K]",
kelvin, &
272 "[a.u.] -> [kJ/mol]",
kjmol, &
273 "[a.u.] -> [kcal/mol]",
kcalmol, &
274 "[a.u.] -> [Pa]",
pascal, &
275 "[a.u.] -> [bar]",
bar, &
276 "[a.u.] -> [atm]",
atm, &
277 "[a.u.] -> [eV]",
evolt, &
278 "[a.u.] -> [Hz]",
hertz, &
280 "[a.u./Bohr**2] -> [1/cm]",
vibfac
281 WRITE (unit=output_unit, fmt=
"(T2,A)")
""
Defines the basic variable types.
integer, parameter, public dp
Definition of mathematical constants and functions.
real(kind=dp), parameter, public pi
Definition of physical constants:
real(kind=dp), parameter, public mu_perm
real(kind=dp), parameter, public boltzmann
real(kind=dp), parameter, public a_mass
real(kind=dp), parameter, public a_bohr
real(kind=dp), parameter, public a_fine
real(kind=dp), parameter, public kcalmol
real(kind=dp), parameter, public vibfac
real(kind=dp), parameter, public e_charge
real(kind=dp), parameter, public n_avogadro
real(kind=dp), parameter, public femtoseconds
real(kind=dp), parameter, public atm
real(kind=dp), parameter, public joule
real(kind=dp), parameter, public kelvin
real(kind=dp), parameter, public newton
real(kind=dp), parameter, public h_bar
real(kind=dp), parameter, public c_light_au
real(kind=dp), parameter, public seconds
real(kind=dp), parameter, public hertz
real(kind=dp), parameter, public evolt
real(kind=dp), parameter, public p_mass
real(kind=dp), parameter, public angstrom
real(kind=dp), parameter, public e_mass
real(kind=dp), parameter, public picoseconds
real(kind=dp), parameter, public e_gfactor
real(kind=dp), parameter, public wavenumbers
real(kind=dp), parameter, public bar
real(kind=dp), parameter, public massunit
real(kind=dp), parameter, public kjmol
real(kind=dp), parameter, public pascal
subroutine, public write_physcon(output_unit)
Write all basic physical constants used by CP2K to a logical output unit.
real(kind=dp), parameter, public bohr
real(kind=dp), parameter, public debye