MODULE yksikot
  IMPLICIT NONE
  REAL, DIMENSION(6), PARAMETER :: &
      matkat = (/ &
        0.01, &             ! sentit
        0.0254, &           ! tuumat
        0.3048, &           ! jalat
        0.9144, &           ! jaardit
        1e3, &              ! kilometrit
        1609.34 /)          ! mailit
END MODULE yksikot

PROGRAM vakiotesti
  USE yksikot
  IMPLICIT NONE
  WRITE (*,*) 'tuumat sentteinä: ', matkat(2)/matkat(1)
END PROGRAM vakiotesti