module definekind
   integer, parameter :: I4 = SELECTED_INT_KIND(9)
   integer, parameter :: I8 = SELECTED_INT_KIND(16)
   integer, parameter :: R4 = SELECTED_REAL_KIND(5)
   integer, parameter :: R8 = SELECTED_REAL_KIND(12)
   integer, parameter :: C4 = SELECTED_REAL_KIND(5)
   integer, parameter :: C8 = SELECTED_REAL_KIND(12)
end module definekind
