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