指针指向问题求教

世慷 · 发表于 2015-4-13 13:36:05

本帖最后由世慷于 2015-4-13 13:36 编辑

如下面的代码，我想实现变量Element中成员Node包含3个元素,每个元素依次指向数组Node的第1、3、4号元素的效果。查了下教材，上面指向的也是间隔均匀的情况，所以也没有解决，特在这里来请教一下！

[Fortran] 纯文本查看 复制代码

01Program test
02        Type ClassNode
03                Real(8) x,y!节点坐标
04                Real(8) E,v!材料属性
05        End Type
06 
07        Type ClassElement!三角形单元
08                Type(ClassNode),Pointer::Node(:)
09        End Type
10         
11        Type(ClassNode) , target :: Node(4)
12        Type(ClassElement) :: Element
13        Node(1).x=10
14        Node(2).x=20
15        Node(3).x=30
16        Node(4).x=40
17         
18        Element.Node(1) => Node(1)
19        Element.Node(2) => Node(3)
20        Element.Node(3) => Node(4)
21        Print*,Element.Node(1).x,',',Element.Node(2).x,',',Element.Node(3).x
22        Pause
23End

百事可乐 · 发表于 2015-4-17 16:35:33

Fortran默认是传地址的,所以对指针数组,指针的指针,需求没那么大.

世慷 · 发表于 2015-4-14 08:34:23

嗯，谢谢哈！

楚香饭 · 发表于 2015-4-13 15:39:19

本帖最后由楚香饭于 2015-4-13 15:42 编辑

这是很多新手容易理解错误的一个问题。

Fortran 的指针，只有“（指向数组的）指针”，而没有“（指向变量的）指针的数组”（红色是实质，而蓝色是组成部分，橙色是修饰语）

也就是说 Type(ClassNode),Pointer::Node(:) ，它是一个整体，它只能整体指向一个数组。而不能分别指向。

假如你想指向 1，3，5（等差数列），可以用这个代码：

[Fortran] 纯文本查看 复制代码

01Program test
02  Type ClassNode
03    Real(8) x,y!节点坐标
04    Real(8) E,v!材料属性
05  End Type
06  Type ClassElement!三角形单元
07    Type(ClassNode),Pointer::Node(:)
08  End Type
09  Type(ClassNode) , target :: Node(5)
10  Type(ClassElement) :: Element
11  Node(:).x=[10,20,30,40,50]
12  Element.Node => Node(1:5:2)
13  Print * , Element.Node(1:3).x
14  Pause
15End Program test

如果你想分别指向，试试这样的代码：

[Fortran] 纯文本查看 复制代码

01Program test
02  Type ClassNode
03    Real(8) x,y!节点坐标
04    Real(8) E,v!材料属性
05  End Type
06  Type ClassElement!三角形单元
07    Type(ClassNode),Pointer::Node
08  End Type
09  Type(ClassNode) , target :: Node(5)
10  Type(ClassElement) :: Element(3)
11  Node(:).x=[10,20,30,40,50]
12  Element(1).Node => Node(1)
13  Element(2).Node => Node(3)
14  Element(3).Node => Node(4)
15  Print * , Element(1).Node.x , Element(2).Node.x , Element(3).Node.x
16  Pause
17End Program test

[指针] 指针指向问题求教

规矩勋章

元老勋章

新人勋章

爱心勋章

水王勋章

热心勋章