precision.cuf
61fde96d0eeemaster

precision.cuf
View Options

			!
			! Copyright (c) 2017, NVIDIA CORPORATION. All rights reserved.
			!
			! NVIDIA CORPORATION and its licensors retain all intellectual property
			! and proprietary rights in and to this software, related documentation
			! and any modifications thereto.
			!
			!
			! These example codes are a portion of the code samples from the companion
			! website to the book "CUDA Fortran for Scientists and Engineers":
			!
			! http://store.elsevier.com/product.jsp?isbn=9780124169708
			!

			module precision
			integer, parameter, public :: singlePrecision = kind(0.0)
			integer, parameter, public :: doublePrecision = kind(0.0d0)

			#ifdef DOUBLE
			integer, parameter, public :: fp = doublePrecision
			#else
			integer, parameter, public :: fp = singlePrecision
			#endif
			end module precision