module kind_defs
	implicit none
	integer, parameter :: &
		short = SELECTED_INT_KIND(5),  &
		long  = SELECTED_INT_KIND(10), &
		sgl   = SELECTED_REAL_KIND(6), &
		dbl   = SELECTED_REAL_KIND(14),&
		quad  = SELECTED_REAL_KIND(30)

	real(dbl), parameter :: pi = 3.14159265358979323846_dbl
	complex(dbl), parameter :: complexi = (0.0_dbl,1.0_dbl)
end module