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

叁歲伎倆 2022-10-23 01:48 146阅读 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 条评论，146人围观）

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

相关阅读

相关 C++ 继承和派生

一、继承和派生的基本概念 “继承”就是支持代码重用的机制之一二、什么是派生？书本概念;从一个或多个以前定义的类（基类）产生新类的过程称为派生。这个新类称为派生

àì夳堔傛蜴生んèń/ 2023年08月17日 17:29/ 0 赞/ 116 阅读

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

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

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

相关【C++学习笔记】类的继承与派生

0x00 前言文章中的文字可能存在语法错误以及标点错误，请谅解；如果在文章中发现代码错误或其它问题请告知，感谢！本文档为个人边学习边记录的C++笔记，非教程，笔

爱被打了一巴掌/ 2022年10月09日 03:19/ 0 赞/ 229 阅读

相关复习继承派生

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

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

相关 Fortran 动态分配数组

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

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

相关继承与派生

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

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

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

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

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

相关类的继承与派生

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

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

相关 C++ 继承与派生

一、继承方式公有继承基类中公有成员和保护成员访问权限不变，私有成员变为不可访问。私有继承（默认）基类中公有成员和保护成员变为私有成员，私有成员变为不可

- 日理万妓/ 2021年06月10日 20:41/ 0 赞/ 517 阅读

相关继承与派生

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

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