Fortran Coder

标题: 关于数组指针变量的问题 [打印本页]

作者: cloudyxpf    时间: 2016-3-23 18:36
标题: 关于数组指针变量的问题
这个问题的来源是来自于彭国伦《fotran95程序设计》中第十章的EX1009.F90。
这部分主要的知识点是想要说明对自定义类型的交换,指针交换比变量交换更加节省空间。
但是在程序交换的过程中我发现了如下问题。
[Fortran] 纯文本查看 复制代码

type(person),pointer::p(:)
type(person),target::pp(5)=(/此处赋值省略/)
p=>pp
在子程序中有这么一段交换
[Fortran] 纯文本查看 复制代码

type pperson
   type(person),pointer::p
end type

if(p(i)%p%height<p(j)%p%height) then
    temp=p(i)
    p(i)=p(j)
    p(j)=temp
end if

但是为了简化,我尝试着不设置pperson这一自定义变量,于是就有开始的声明,因此我的交换语句就变成如下:
[Fortran] 纯文本查看 复制代码
if(p(i)%height<p(j)%height) then
    temp=>p(i)
    p(i)=>p(j)
    p(j)=>temp
end if

之后就报错:access violation
经过调试,错误首先发现在    p(i)=>p(j) 这一语句中,也就说明指针数组中的指针不可以进行二次指向。
请问这是什么原因?
作者: fcode    时间: 2016-3-24 08:58
Fortran 没有指针数组,只有指向数组的指针。





欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2