> Date: Wed, 15 Nov 2000 10:09:34 +0100
> From: Jan van Oosterwijk <[log in to unmask]>
> If you are interested in the highest available precision or range
> you can find it using the following module.
>
> !-->
> ! [JvO] 2000-08-13 Prec-mod.f90
> !-->
> ! Define highest integer range and real precision kinds.
> !-->
> module precision_M
> implicit NONE
> integer, parameter :: byte = selected_int_kind(1)
> integer, parameter :: word = selected_int_kind(range(1_byte)+1)
> integer, parameter :: long = selected_int_kind(range(1_word)+1)
> integer, parameter :: extd = selected_int_kind(range(1_long)+1)
> integer, parameter :: mpi = max(byte,word,long,extd) ! Highest
> ! ^^^
Doesn't this assume that the kind numbers increase with increasing
precision?
There is no guarantee that they will.
> Meilleures Salutations,
> Kindest Regards,
> Jan van Oosterwijk
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|