如何将一组函数存储到Fortran数组中

program store_functions
  implicit none
  
  integer, parameter :: num_functions = 3
  real :: function_array(num_functions)
  
  ! 定义函数
  real function f1(x)
    real, intent(in) :: x
    f1 = x**2
  end function f1
  
  real function f2(x)
    real, intent(in) :: x
    f2 = sin(x)
  end function f2
  
  real function f3(x)
    real, intent(in) :: x
    f3 = exp(x)
  end function f3
  
  integer :: i
  real :: x
  
  do i = 1, num_functions
    ! 设置参数值
    x = i
    
    ! 调用函数并将结果存储到数组中
    select case (i)
      case (1)
        function_array(i) = f1(x)
      case (2)
        function_array(i) = f2(x)
      case (3)
        function_array(i) = f3(x)
    end select
  end do
  
  ! 打印数组中的函数值
  do i = 1, num_functions
    print *, "Function", i, "value:", function_array(i)
  end do
  
end program store_functions