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

81 帖子	0 主题	0 精华

专家

F 币: 471 元
贡献: 232 点

发消息

楼主

发表于 2020-10-14 22:10:12 | 显示全部楼层

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

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

彼岸，有永恒的守候...

回复支持反对

使用道具举报

返回列表发新帖

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

规矩勋章

新人勋章

元老勋章