MODULE taulukko_operaatiot
CONTAINS
  FUNCTION jako(a, b, n)
    IMPLICIT NONE
    REAL :: a, b
    INTEGER :: n
    REAL, DIMENSION(n+1) :: jako
    REAL :: pituus
    INTEGER :: i
    pituus = ABS(a-b)
    jako = MIN(a,b) + (/ (i, i = 0, n) /)*pituus/n
  END FUNCTION jako
END MODULE taulukko_operaatiot  

PROGRAM jakaminen
  USE taulukko_operaatiot
  IMPLICIT NONE
  INTEGER, PARAMETER :: n = 5
  REAL, DIMENSION(n+1) :: arvot
  REAL :: pii

  pii = 4*ATAN(1.0)
  arvot = jako(0.0, pii, n)
  WRITE (*,*) 'arvot: ', arvot
  WRITE (*,*) 'SIN(arvot): ', SIN(arvot)
END PROGRAM jakaminen