! ! portable Datentypen ! module kinds implicit none integer, parameter :: INT1 = selected_int_kind(2) ! 1-Byte Integer integer, parameter :: INT2 = selected_int_kind(4) ! 2-Byte Integer integer, parameter :: INT4 = selected_int_kind(9) ! 4-Byte Integer integer, parameter :: REAL4 = selected_real_kind(5) ! einfache Genauigkeit integer, parameter :: REAL8 = selected_real_kind(12) ! doppelte Genauigkeit integer, parameter :: COMPLEX8 = REAL4 ! komplexe Datentypen integer, parameter :: COMPLEX16 = REAL8 end module kinds