fortran子程序怎样输出数组

您可以使用循环语句遍历数组，每次输出一个元素。以下是一个示例：

SUBROUTINE PrintArray(A)
  IMPLICIT NONE
  REAL, DIMENSION(:) :: A
  INTEGER :: i

  DO i = 1, SIZE(A)
     WRITE(*,*) A(i)
  END DO

END SUBROUTINE PrintArray

在这个例子中，我们定义了一个名为 `PrintArray` 的子程序，它接受一个实数类型、一维数组 `A` 作为参数。使用循环语句将数组的每个元素输出到屏幕上。