MODULE tarkkuus
  IMPLICIT NONE
  INTEGER, PARAMETER :: reaaliluku = SELECTED_REAL_KIND(6)
! INTEGER, PARAMETER :: reaaliluku = SELECTED_REAL_KIND(12)
END MODULE tarkkuus