关于type 动态数组传递

wxy · 发表于 2020-10-14 18:17:00

本帖最后由 wxy 于 2020-10-14 20:56 编辑

我在type中定义了一个动态数组用于传递数组，用gfortran(linux)编译，数组传递正常，但是用ifort编译动态数组传递出来是空的，其他参数传递正常（图二是数组传入，图三是调用的地方），不知道应该怎么改写

青衣巷 · 发表于 2020-10-14 22:10:12

Allocate( da%obs_date(row) )
这样就行了。不要重新定义一个 integer , allocatable :: obs_date(:)
没什么意义嘛。

或者，你需要用指针？
integer , pointer :: obs_date(:)
obs_date => da%obs_date
？？

wxy · 发表于 2020-10-14 22:38:55

青衣巷发表于 2020-10-14 22:10
Allocate( da%obs_date(row) )
这样就行了。不要重新定义一个 integer , allocatable :: obs_date(:)
没什 ...

好的谢谢我试一下

wxy · 发表于 2020-10-15 09:49:30

青衣巷发表于 2020-10-14 22:10
Allocate( da%obs_date(row) )
这样就行了。不要重新定义一个 integer , allocatable :: obs_date(:)
没什 ...

可以了非常感谢

mapoet · 发表于 2020-10-16 09:42:01

一般可以直接申请空间给对象子成员，不过肯定要比c++略麻烦。

fcode · 发表于 2020-10-17 09:40:28

mapoet 发表于 2020-10-16 09:42
一般可以直接申请空间给对象子成员，不过肯定要比c++略麻烦。

哪儿比C++麻烦了？

mapoet · 发表于 2023-11-13 08:58:01

fcode 发表于 2020-10-17 09:40
哪儿比C++麻烦了？

没有析构函数，可以自动释放内存。

风平老涡 · 发表于 2023-11-13 10:50:20

mapoet 发表于 2023-11-13 08:58
没有析构函数，可以自动释放内存。

可以用“final subroutine", 有同样作用。

[派生类型] 关于type 动态数组传递

规矩勋章

新人勋章

元老勋章

美女勋章

热心勋章

星光勋章

贡献勋章

管理勋章

帅哥勋章

爱心勋章

水王勋章