您所在位置：主题：请问如何对链表进行公用空间的传递参数？
zrydd
[专家分：0] 发布于 2011-05-19 14:43:00
先设置了一个datalink类型为：
module dtlk !data link list
type::datalink
double precision val1 !incre volume for each shell
double precision val2 !temperature for each shell
type(datalink),pointer::next
end type datalink
end module dtlk
再设置了一个datalink类型的链表及指针
type(datalink),pointer::head(:),p
现在在主程序中已经定义了一个链表头 allocate(head(ncoil))
然后想在其他子程序中使用到该链表，不知道如何才能在其他子程序中对head可见？
谢谢！
module dtlk !data link list
type::datalink
double precision val1 !incre volume for each shell
double precision val2 !temperature for each shell
type(datalink),pointer::next
end type datalink
end module dtlk
再设置了一个datalink类型的链表及指针
type(datalink),pointer::head(:),p
现在在主程序中已经定义了一个链表头 allocate(head(ncoil))
然后想在其他子程序中使用到该链表，不知道如何才能在其他子程序中对head可见？
谢谢！
