integer, parameter :: i8 = selected_int_kind(14) !Kind for 64-bits Integer Numbers