Fortran-Modul kinds.f90

!
! 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