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

MODULE vakiot
  USE tarkkuus
  IMPLICIT NONE
  PRIVATE
  REAL(KIND=reaaliluku) :: x
  REAL(KIND=reaaliluku), PARAMETER :: &
    toleranssi = 100*EPSILON(x), &
    maksimiarvo = HUGE(x)
  PUBLIC :: toleranssi, maksimiarvo, reaaliluku
END MODULE vakiot

PROGRAM vakiotesti
  USE vakiot
  IMPLICIT NONE
  WRITE (*,*) 'toleranssi: ', toleranssi
  WRITE (*,*) 'maksimi:  ', maksimiarvo
END PROGRAM vakiotesti