PROGRAM nagrnd
  IMPLICIT NONE
  INTEGER, PARAMETER :: tarkkuus = SELECTED_REAL_KIND(12)
  INTERFACE
    SUBROUTINE g05faf(a, b, n, x)
      REAL(KIND=tarkkuus), INTENT(IN) :: a
      REAL(KIND=tarkkuus), INTENT(IN) :: b
      INTEGER, INTENT(IN) :: n
      REAL(KIND=tarkkuus), INTENT(OUT), DIMENSION(n) :: x
    END SUBROUTINE g05faf
  END INTERFACE
  REAL(KIND=tarkkuus), DIMENSION(5) :: taulukko

  CALL g05faf(-1.0_tarkkuus, 1.0_tarkkuus, &
      SIZE(taulukko), taulukko)
  WRITE (*,*) taulukko
END PROGRAM nagrnd