sll_working_precision

Define the kind type parameter for intern type data.

Author

Edwin Chacon-Golcher

Headers file available

• sll_m_working_precision.h

How to use this module:
If you want to select the kind parameter n, you need to write

real(kind=n) :: var1
real*n       :: var2

The two entries var1 and var2 are equivalents. You can also define the constant like this 23.455_n.

First, call the module sll_woring_precision like that

#include "sll_m_working_precision.h" 

Now, you can use the types :

sll_int32  :: i        !integer simple precision
sll_int64  :: n        !integer double precision
sll_real32 :: theta    !real simple precision
sll_real64 :: my_pi    !real double precision
 
my_pi = 3.1415926535897932384626433_f64
theta = 2.0*real(n,f32)