Fortran中用完dimension后,数组的类型是默认的吗?
时间: 2024-02-15 10:05:08 浏览: 43
在Fortran中,使用 `dimension` 语句声明数组时,如果没有明确指定数组的类型,数组的类型将会是默认的。默认的数组类型取决于编译器和编译选项。一般情况下,无论是 `dimension` 语句还是其他声明语句,如果没有明确指定类型,Fortran会使用默认的类型,通常为 `real` 或 `integer`。
例如,在下面的代码中,声明了一个 `a` 数组,但没有显式地指定类型,因此 `a` 的类型将取决于编译器和编译选项:
```
dimension a(10)
```
如果需要明确指定数组的类型,可以在 `dimension` 语句中使用类型说明符,例如:
```
integer :: a(10)
real :: b(20)
```
这样就可以明确指定 `a` 数组的类型为 `integer`,`b` 数组的类型为 `real`。
相关问题
fortran中对于切片后的数组如何补上
在Fortran中,可以使用数组赋值语句将一个数组的一部分复制到另一个数组中。因此,如果要在切片后的数组中补上缺失的部分,可以将原始数组的值复制到切片后的数组中。例如,假设有一个原始数组A和一个切片后的数组B,其中B的一部分缺失了。可以使用以下代码将原始数组A的值复制到B中:
```
B(1:missing_index-1) = A(1:missing_index-1)
B(missing_index:missing_index+missing_length-1) = missing_value
B(missing_index+missing_length:size(B)) = A(missing_index:size(A))
```
其中,`missing_index`是缺失部分在B中的起始位置,`missing_length`是缺失部分的长度,`missing_value`是需要补上的值。这段代码将A中缺失部分之前的值复制到B中,然后将缺失部分补上,最后将A中缺失部分之后的值复制到B中。这样就能够将切片后的数组B补上缺失的部分了。
fortran子程序怎样输出数组
Fortran子程序可以使用DO循环语句遍历数组中的元素,并使用WRITE语句将每个元素输出到控制台。下面是一个简单的示例:
SUBROUTINE PRINT_ARRAY(A)
INTEGER, DIMENSION(:) :: A
INTEGER :: I
DO I = 1, SIZE(A)
WRITE(*,*) A(I)
END DO
END SUBROUTINE
在这个子程序中,我们首先定义了一个名为“A”的整数数组,然后使用DO循环遍历数组中的元素,并使用WRITE语句将每个元素输出到控制台。在调用这个子程序时,我们只需要将要输出的数组作为实参传递给该子程序即可:CALL PRINT_ARRAY(MY_ARRAY)。
相关推荐
![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)