2
integer, parameter :: I4 = SELECTED_INT_KIND(9)
3
integer, parameter :: I8 = SELECTED_INT_KIND(16)
4
integer, parameter :: R4 = SELECTED_REAL_KIND(5)
5
integer, parameter :: R8 = SELECTED_REAL_KIND(12)
6
integer, parameter :: C4 = SELECTED_REAL_KIND(5)
7
integer, parameter :: C8 = SELECTED_REAL_KIND(12)