指针指向问题求教

世慷

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

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

Program test
        Type ClassNode
                Real(8) x,y!节点坐标
                Real(8) E,v!材料属性
        End Type

        Type ClassElement!三角形单元
                Type(ClassNode),Pointer::Node(:)
        End Type
        
        Type(ClassNode) , target :: Node(4)
        Type(ClassElement) :: Element
        Node(1).x=10
        Node(2).x=20
        Node(3).x=30
        Node(4).x=40
        
        Element.Node(1) => Node(1)
        Element.Node(2) => Node(3)
        Element.Node(3) => Node(4)
        Print*,Element.Node(1).x,',',Element.Node(2).x,',',Element.Node(3).x
        Pause
End 

世慷

嗯，谢谢哈！