Initialialization of the variable to double-precision accuracy

ex)

INTEGER, PARAMETER :: DBL = SELECTED_REAL_KIND(p=13)

REAL(KIND = DBL) :: a1 = 6.123456789012345_DBL

+ Recent posts