用fortran编写：计算1的阶乘分之一加2的阶乘分之一

以下是用Fortran语言编写的计算1的阶乘分之一加2的阶乘分之一的程序：

program factorial
  implicit none
  integer :: i, n
  real :: sum = 0.0
  
  n = 2
  
  do i = 1, n
     sum = sum + 1.0 / real(factorial(i))
  end do
  
  write(*,*) sum
  
contains
  
  function factorial(n)
    implicit none
    integer :: n, i
    integer :: result = 1
    
    do i = 1, n
       result = result * i
    end do
    
    factorial = result
  end function factorial

end program factorial

程序中使用了一个计算阶乘的函数`factorial`，然后在主程序中使用循环计算出1的阶乘分之一加2的阶乘分之一的结果。最后将结果打印输出。