V3FIT
LIBSTELL
Sources
Modules
stel_kinds.f
1
MODULE
stel_kinds
2
3
!----------------------------------------------------------------------
4
! Kind specifications
5
!----------------------------------------------------------------------
6
7
INTEGER
,
PARAMETER
:: rprec = selected_real_kind(15,300)
8
INTEGER
,
PARAMETER
:: iprec = selected_int_kind(8)
9
INTEGER
,
PARAMETER
:: cprec = kind((1.0_rprec,1.0_rprec))
10
INTEGER
,
PARAMETER
:: dp = rprec
11
12
END MODULE
stel_kinds
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17