V3FIT
spec_kind_mod.f90
1 MODULE spec_kind_mod
2 !-------------------------------------------------------------------------------
3 !For REAL variables:
4 ! Use p=6, r=35 for single precision on 32 bit machine
5 ! Use p=12,r=100 for double precision on 32 bit machine
6 ! for single precision on 64 bit machine
7 !Parameters for SELECTED_REAL_KIND:
8 ! p -number of digits
9 ! r -range of exponent from -r to r
10 !-------------------------------------------------------------------------------
11 INTEGER, PARAMETER :: &
12  rspec = selected_real_kind(p=12,r=100), &
13  ispec = selected_int_kind(r=8)
14 
15 END MODULE spec_kind_mod