program exf8 ! exf8.f90  use file with module with functions and subroutines

  use functions  ! makes available  func  and  subr  in module functions.f90
  
  real, dimension(1:4) :: a = (/ 1.0, 2.0, 3.0, 4.0 /)
  real :: x = 1.0
  real :: y

  print *, "exf8.f90   define and use functions and subroutines"
  
  y = func(x)
  print *, "y=funct(x)=", y
  call subr(a)
  print *, "call subr(a) a=", a

end program exf8