Fortran中如何把循环出的结果赋值给数组
时间: 2023-10-13 22:04:27 浏览: 90
在Fortran中,可以使用循环来计算结果,并将结果赋值给数组。假设有一个名为`array`的数组,循环计算的结果存储在名为`result`的变量中,可以使用以下代码将结果赋值给数组:
```
do i = 1, size(array)
array(i) = result
end do
```
这将循环遍历数组中的每个元素,并将`result`的值赋值给它们。请注意,在此示例中,`result`的值是相同的,但您可以根据需要更改它。
相关问题
fortran中数组赋值
在Fortran中,可以使用以下语法为数组赋值:
1. 使用 DATA 语句进行初始化:
```
REAL :: x(3)
DATA x /1.0, 2.0, 3.0/
```
2. 使用 ASSIGN 语句进行赋值:
```
REAL :: x(3)
x = ASSIGN([1.0, 2.0, 3.0], x)
```
3. 使用 DO 循环进行赋值:
```
REAL :: x(3)
DO i = 1, 3
x(i) = i
END DO
```
以上是一些常用的数组赋值方法,根据具体情况选择合适的方法即可。
fortran中二维数组的赋值
在ran 中,可以使用一个嵌套的 DO 循环来为二维数组赋值。以下是一个示例程序:
```fortran
program array_assignment
implicit none
integer :: i, j
integer, dimension(3,3) :: my_array
do i = 1, 3
do j = 1, 3
my_array(i,j) = i + j
end do
end do
! 打印数组
do i = 1, 3
write(*,*) my_array(i,:)
end do
end program array_assignment
```
在这个示例程序中,我们创建了一个 3x3 的整数数组 `my_array`,然后使用嵌套的 DO 循环为其赋值。具体来说,我们使用外层的循环变量 `i` 和内层的循环变量 `j` 来遍历数组的所有元素,然后将元素的值设置为 `i+j`。最后,我们使用另一个 DO 循环来打印数组的每一行。
注意,Fortran 中的二维数组是按列存储的,因此在访问元素时第一个索引应该是行号,第二个索引是列号。
相关推荐
![application/msword](https://img-home.csdnimg.cn/images/20210720083327.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)