Fortran95编程的revall代码

下面是一个简单的Fortran 95编程语言的revall（反转数组）代码示例：

program revall
  implicit none
  
  ! 声明变量
  integer, parameter :: N = 10  ! 数组大小
  integer :: i
  integer, dimension(N) :: array
  
  ! 初始化数组
  do i = 1, N
    array(i) = i
  end do
  
  ! 调用反转数组函数
  call reverse_array(array)
  
  ! 打印反转后的数组
  write(*,*) "Reversed Array:"
  do i = 1, N
    write(*,*) array(i)
  end do
  
contains

  ! 反转数组函数
  subroutine reverse_array(arr)
    integer, dimension(:) :: arr
    integer :: i, temp
    
    do i = 1, size(arr)/2
      temp = arr(i)
      arr(i) = arr(size(arr)-i+1)
      arr(size(arr)-i+1) = temp
    end do
  end subroutine reverse_array

end program revall

这个示例程序定义了一个大小为10的整数数组，并将数组初始化为1到10的连续整数。然后，它调用了一个名为`reverse_array`的子程序来反转数组元素的顺序。最后，它打印出反转后的数组。

请注意，这只是一个简单的示例代码，用于说明如何在Fortran 95中实现数组反转功能。实际应用中，您可能需要根据特定的需求进行修改和扩展。