prec_const_mod.f90
c583b6e1861amaster

prec_const_mod.f90
View Options

			MODULE PREC_CONST

			USE MPI
			USE FMZM
			!! USE MPI

			USE, INTRINSIC :: ISO_FORTRAN_ENV, ONLY: REAL32, REAL64, &
			STDIN=>INPUT_UNIT, &
			STDOUT=>OUTPUT_UNIT, &
			STDERR=>ERROR_UNIT

			! PRECISION FOR REAL AND COMPLEX
			INTEGER, PARAMETER :: SP = REAL32 !SINGLE PRECISION, SHOULD NOT BE USED
			INTEGER, PARAMETER :: DP = REAL64 !REAL(DP), ENFORCED THROUGH THE CODE

			INTEGER, PRIVATE :: DP_R, DP_P !RANGE AND APRECISION OF DOUBLES
			INTEGER, PRIVATE :: SP_R, SP_P !RANGE AND PRECISION OF SINGLES


			INTEGER, PRIVATE :: MPI_SP !SINGLE PRECISION FOR MPI
			INTEGER, PRIVATE :: MPI_DP !DOUBLE PRECISION IN MPI
			INTEGER, PRIVATE :: MPI_SUM_DP !SUM REDUCTION OPERATION FOR DP DATATYPE
			INTEGER, PRIVATE :: MPI_MAX_DP !MAX REDUCTION OPERATION FOR DP DATATYPE
			INTEGER, PRIVATE :: MPI_MIN_DP !MIN REDUCTION OPERATION FOR DP DATATYPE

			!
			! SOME USEFULE FM CONSTANT
			TYPE(FM),SAVE :: PIFM
			TYPE(FM),SAVE :: ZEROFM


			CONTAINS

			SUBROUTINE INIT_PREC_CONST

			IMPLICIT NONE
			integer :: ierr,me

			REAL(sp) :: a = 1_sp
			REAL(dp) :: b = 1_dp

			!Get range and precision of ISO FORTRAN sizes
			sp_r = range(a)
			sp_p = precision(a)

			dp_r = range(b)
			dp_p = precision(b)

			!Get FM constant
			CALL FM_PI(PIFM)
			CALL FM_SET(50)
			ZEROFM = TO_FM('0.0')


			END SUBROUTINE INIT_PREC_CONST

			END MODULE prec_const