java数组类的派生_Fortran中可分配的继承派生类型数组

叁歲伎倆 2022-10-23 01:48 161阅读 0赞

我正在尝试创建一组全局可用的可分配数组，这些数组包含与单个对象共享继承的一组派生类型 . Fortran似乎并没有让这很容易 . 以下是我到目前为止的情况 .

首先是带有可分配数组的派生类型和模块 .

Module Environment

use Entity\_M

type(Entity\_C), dimenion(:), allocatable :: objects

End Module Environment

Module Entity\_M

type Entity\_T

integer :: id

real\*8 :: time

real\*8, dimension(3) :: currPos

type(TrajectoryDatum), dimension(:), allocatable :: trajTable

end type Entity\_T

type Entity\_C

class(Entity\_T), pointer :: e

end type Entity\_C

type, extends(Entity\_T) :: Aircraft\_T

real\*8 :: altitude

end type Aircraft\_T

type, extends(Entity\_T) :: Missile\_T

integer :: targetID

end type Missile\_T

End Module Entity

现在的主要方案

Program Main

use Initialization

use Environment

use Entity\_M

call simInit(3)

write(\*,\*) objects%trajTable !

call runSim()

End Program Main

有问题的代码

Module Initialization

use Entity\_M

contains

subroutine simInit(numOfObjects)

integer, intent(in) :: numOfObjects

call objectsInit(numOfObjects)

call launchersInit()

end subroutine simInit

subroutine objectsInit(numOfObjects)

use Environment

integer, intent(in) :: numOfObjects

!local

type(Aircraft\_T) :: aircraft

integer :: i

allocate(objects(numOfObjects)

do i = 1, numOfObjects

aircraft%trajTable = getTrajectoryData()

call allocatePointer(objects(i)%e, aircraft)

end do

end subroutine objectsInit

subroutine allocatePointer(c, t)

class(Entity), pointer, intent(out) :: c

type(Aircraft), target, intent(in) :: t

c => t

end subroutine allocatePointer

End Module Initialization

以上只是在没有编译器的计算机上编写的示例代码 . 我尽力而为，如果有拼写错误，他们很少 . 我尽力反映原始代码的结构 .

问题是字段“objects％trajTable”在离开“objectsInit”子例程后返回到未定义的指针 . 其他值如time，id和currPos仍然是正确的 . 我怎么能纠正这个？

我正在使用Visual Studio 2012和Intel Visual Fortran 2015 .

发表评论取消回复

表情：

评论列表（有 0 条评论，161人围观）

还没有评论，来说两句吧...

相关阅读

相关 Fortran中的数组

! Fortran中的数组 ! 注意: 默认情况下数组下标从 1 开始，在fortran中数组是列优先的 program helloworld

青旅半醒/ 2024年02月17日 18:33/ 0 赞/ 66 阅读

相关 Fortran 中的五种基本数据类型和派生类型介绍

! ! 编程环境Simply Fortran ! ! Fortran 中的五种基本数据类型和派生类型介绍 ! 五种基本数据类型分别为：

爱被打了一巴掌/ 2024年02月17日 18:33/ 0 赞/ 67 阅读

相关 C++的继承和派生（一）父类和派生类（子类）的介绍以及派生类的访问控制

在介绍继承和派生之前，先看下面一段代码 class Student1 { public: int m_socre; int m_age;

逃离我推掉我的手/ 2023年02月20日 07:29/ 0 赞/ 38 阅读

相关 java数组类的派生_Fortran中可分配的继承派生类型数组

我正在尝试创建一组全局可用的可分配数组，这些数组包含与单个对象共享继承的一组派生类型 . Fortran似乎并没有让这很容易 . 以下是我到目前为止的情况 . 首先是带有可分

叁歲伎倆/ 2022年10月23日 01:48/ 0 赞/ 162 阅读

相关复习继承派生

昨天一个家公司电面我，问了这个继承派生的问题，。这个问题几年前就没搞懂，现在还是不懂，当然我回答了一塌糊涂。现在我们再来复习一下，这次一定记住！！查了那么多资料，还是百度上

Dear 丶/ 2022年08月07日 05:51/ 0 赞/ 187 阅读

相关 Fortran 动态分配数组

program main integer a(3,3) integer ,allocatable :: arr_

素颜马尾好姑娘i/ 2022年07月28日 06:17/ 0 赞/ 225 阅读

相关继承与派生

定义：类的继承，是新的类从已有类那里得到已有的特性，从已有类产生新类的过程就是类的派生，原有的类称为基类，产生的新类称为派生类；一个派生类，可以同时有多个基类，这种情况称为多继

落日映苍穹つ/ 2022年07月16日 13:21/ 0 赞/ 244 阅读

相关 C++ 类的继承与派生

继承性是面向对象程序设计最重要的特性之一，使软件有了可重用性，C++提供的类的继承机制。继承与派生的概念一个新类从已有的类那里获得已有的特性，这种现象称为类的继承。

矫情吗；*/ 2022年06月16日 12:38/ 0 赞/ 282 阅读

相关类的继承与派生

所谓继承就是从先辈处得到属性和行为特征。类的继承，是新的类从已有类那里得到已有的特征。从已有类产生新类的过程就是类的派生。类的继承与派生机制允许程序员在保持原有类特性的基础上，

比眉伴天荒/ 2021年11月06日 01:06/ 0 赞/ 724 阅读

相关继承与派生

继承 - 继承指的是类与类之间的关系，是一种什么“是”什么的关系，继承的功能之一就是用来解决代码重用问题 - 继承是一种创建新类的方式，在python中，新建的类可以继...

小灰灰/ 2021年03月29日 13:04/ 0 赞/ 576 阅读