V3FIT
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