V3FIT
GTOVMI
Sources
Modules
precision.f
1
MODULE
precision
2
INTEGER
,
PARAMETER
:: rprec = selected_real_kind(12,100)
3
INTEGER
,
PARAMETER
:: iprec = selected_int_kind(8)
4
INTEGER
,
PARAMETER
:: cprec = kind((1.0_rprec,1.0_rprec))
5
INTEGER
,
PARAMETER
:: dbl = rprec
6
END MODULE
precision
7
Generated on Thu Mar 5 2020 15:49:23 for V3FIT by
1.8.17