fortran数组输出
时间: 2024-02-19 13:30:49 浏览: 23
Fortran中数组的输出可以使用WRITE语句实现。以下是一个简单的示例程序:
```
program array_output
implicit none
integer :: i
real :: arr(3,3) = reshape([1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0], [3,3]) ! 定义一个3x3的实数数组
do i=1,3
write(*,*) arr(i,:) ! 输出第i行
end do
end program array_output
```
这个程序定义了一个3x3的实数数组arr,并使用WRITE语句输出了数组的每一行。输出结果如下:
```
1.00000000 2.00000000 3.00000000
4.00000000 5.00000000 6.00000000
7.00000000 8.00000000 9.00000000
```
其中,WRITE语句中的`*`表示输出到标准输出设备,`arr(i,:)`表示输出数组arr的第i行。如果要输出整个数组,可以使用带有FORMAT的WRITE语句,如下所示:
```
write(*, '(3F8.2)') arr
```
这个WRITE语句使用格式字符串`'(3F8.2)'`,表示每个实数占8个字符宽度,小数点后保留2位。输出结果如下:
```
1.00 2.00 3.00
4.00 5.00 6.00
7.00 8.00 9.00
```