module kind_defs
	integer, parameter :: sgl = SELECTED_REAL_KIND(6), &
	                      dbl = SELECTED_REAL_KIND(14)
end module kind_defs