2021-11-25 10:51:56 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
!> @author Martin Diehl, KU Leuven
|
|
|
|
|
!> @brief physical constants
|
|
|
|
|
!--------------------------------------------------------------------------------------------------
|
|
|
|
|
module constants
|
|
|
|
|
use prec
|
|
|
|
|
|
2022-06-22 02:16:54 +05:30
|
|
|
implicit none(type,external)
|
2021-11-25 10:51:56 +05:30
|
|
|
public
|
|
|
|
|
|
2023-06-04 10:52:25 +05:30
|
|
|
real(pREAL), parameter :: &
|
|
|
|
|
T_ROOM = 293.15_pREAL, & !< Room temperature (20°C) in K (https://en.wikipedia.org/wiki/ISO_1)
|
|
|
|
|
K_B = 1.380649e-23_pREAL, & !< Boltzmann constant in J/Kelvin (https://doi.org/10.1351/goldbook)
|
|
|
|
|
N_A = 6.02214076e23_pREAL !< Avogadro constant in 1/mol (https://doi.org/10.1351/goldbook)
|
2021-11-25 10:51:56 +05:30
|
|
|
|
2023-07-18 05:04:40 +05:30
|
|
|
character, parameter :: &
|
|
|
|
|
CR = achar(13), &
|
|
|
|
|
LF = new_line('DAMASK')
|
|
|
|
|
|
|
|
|
|
character(len=*), parameter :: LOWER = 'abcdefghijklmnopqrstuvwxyz'
|
|
|
|
|
character(len=len(LOWER)), parameter :: UPPER = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
|
|
|
|
|
|
2021-11-25 10:51:56 +05:30
|
|
|
end module constants
|
