module basetypes
implicit none
integer, parameter :: int_kind = selected_int_kind(10)
end module basetypes