constants.f90
8d7b3488dcccgeom_testpardiso

constants.f90
View Options

			MODULE constants
			!
			! Define some constants
			!
			INTEGER, PARAMETER :: db = SELECTED_REAL_KIND(15)
			!
			DOUBLE PRECISION, PARAMETER :: vlight = 299792458.0_db ! c
			DOUBLE PRECISION, PARAMETER :: vacimp = 376.73031346177066_db ! \mu_0*c
			DOUBLE PRECISION, PARAMETER :: eev = 510998.89613320108_db ! m_e*c^2/e
			DOUBLE PRECISION, PARAMETER :: me = 9.109383E-31 ! electron mass [kg]
			DOUBLE PRECISION, PARAMETER :: pi = 3.1415926535897931_db
			DOUBLE PRECISION, PARAMETER :: elchar = 1.60217662E-19_db ! electron charge [C]
			DOUBLE PRECISION, PARAMETER :: eps_0 = 8.85418781762E-12_db ! electric constant [F/m]
			DOUBLE PRECISION, PARAMETER :: kb = 1.38064852E-23_db ! Boltzman constant [J/K]
			END MODULE constants