V3FIT
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