fortran中怎么使子程序可以共用主程序循环变量

在Fortran中，可以通过在子程序中声明主程序中使用的循环变量为“共享”的方式来使子程序可以共用主程序循环变量。具体做法是在主程序中通过“!$OMP SHARED(variable)”将循环变量声明为共享变量，然后在子程序中使用相同名称的变量即可。

以下是一个示例代码：

program main
  integer :: i, n
  real :: sum
  n = 10
  sum = 0.0
  !$OMP PARALLEL SHARED(i, n, sum)
  call sub(sum, n)
  !$OMP END PARALLEL
  print *, "sum = ", sum
contains
  subroutine sub(sum, n)
    real, intent(inout) :: sum
    integer, intent(in) :: n
    integer :: i
    do i = 1, n
      sum = sum + i
    end do
  end subroutine sub
end program main

在主程序中，将循环变量“i”和“n”以及计算结果“sum”声明为共享变量；子程序“sub”中使用了相同名称的变量“sum”和“n”，这样就可以在子程序中共用主程序中的循环变量了。

相关问题

FORTRAN中不同子程序变量名可以相同吗

在FORTRAN中，不同子程序中的变量名可以相同。因为每个子程序都有自己的作用域，即使它们使用相同的变量名，也不会发生冲突。在FORTRAN中，变量的作用域是由它们的声明位置决定的。如果一个变量在一个子程序中声明，那么它只在该子程序中可见，其他子程序无法访问该变量。如果在不同的子程序中使用相同的变量名，编译器会将它们视为不同的变量，因为它们所处的作用域不同。因此，在FORTRAN中，可以在不同的子程序中使用相同的变量名，只要确保它们在各自的子程序中声明即可。当然，为了代码的可读性和可维护性，最好避免使用相同的变量名，以免造成混淆。

Fortran子程序函数可以使用子程序中定义的变量吗

Fortran中的子程序和函数都可以使用在其定义中声明的变量。这些变量称为局部变量，它们只在子程序或函数中可见，并且不会影响程序中其他部分的变量。

在Fortran中，子程序和函数的局部变量必须在子程序或函数的开头声明。这些变量只在子程序或函数中可见，而在子程序或函数外部声明的变量则称为全局变量，它们在整个程序中可见。

如果您想在Fortran子程序中使用在主程序中定义的变量，则可以将这些变量作为参数传递给子程序。这些变量称为实参。子程序中使用这些变量时，它们称为形参。在子程序内部，形参的值可以更改，但这不会影响主程序中的实参的值。