编写一个fortran90程序，利用Hermite 多项式递推公式，在fortran语言的函数部分编写一个hermite多项的计算程序

下面是一个使用Fortran 90编写的计算Hermite多项式的程序示例：

program hermite_polynomial
    implicit none
    
    integer :: n, i
    real(kind=8) :: x
    
    ! Function declaration
    real(kind=8) function hermite(n, x)
        integer, intent(in) :: n
        real(kind=8), intent(in) :: x
        
        if (n == 0) then
            hermite = 1.0
        else if (n == 1) then
            hermite = 2.0 * x
        else
            hermite = 2.0 * x * hermite(n-1, x) - 2.0 * (n-1) * hermite(n-2, x)
        endif
    end function hermite
    
    ! Main program
    write(*,*) "Enter the degree of Hermite polynomial (n): "
    read(*,*) n
    
    write(*,*) "Enter the value of x: "
    read(*,*) x
    
    write(*,*) "Hermite polynomial H", n, "(", x, ") = ", hermite(n, x)
    
end program hermite_polynomial

在这个程序中，我们定义了一个`hermite`函数来计算Hermite多项式。该函数使用递归的方式根据Hermite多项式的递推公式计算结果。在主程序中，我们从用户输入中获取Hermite多项式的阶数`n`和变量`x`的值，并调用`hermite`函数来计算Hermite多项式的结果。

请注意，以上代码仅为示例，可能需要根据实际需求进行调整和改进。