> use, intrinsic:: ISO_FORTRAN_ENV, only: REAL32, REAL64
>
> implicit none
> private
>
> interface goo
> module procedure goo_s
> module procedure goo_d
> end interface
> public :: goo
>
> contains
>
> subroutine goo_s (x)
> real(kind=REAL32), intent(..) :: x
> include 'goo_source.inc'
> end subroutine goo_s
> subroutine goo_d (x)
> real(kind=REAL64), intent(..) :: x
> include 'goo_source.inc'
> end subroutine goo_d
What is the essential difference between this and using REAL and DOUBLE
PRECISION?
I understand the motivation for KIND. However, many people use
SELECTED_REAL_KIND with 1.0D0 or whatever to find the "double-precision
KIND". Why not just write DOUBLE PRECISION if that is what you mean?
|