V3FIT
LIBSTELL
Sources
Track
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
Generated on Thu Mar 5 2020 15:49:25 for V3FIT by
1.8.17