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

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

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

相关阅读

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

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

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

相关派生类中的static成员

理论知识基类定义的静态成员，将被所有派生类共享根据静态成员自身的访问特性和派生类的继承方式，在类层次体系中具有不同的访问性质（遵守派生类的访问控制）

Dear 丶/ 2023年07月09日 03:25/ 0 赞/ 79 阅读

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

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

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

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

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

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

相关复习继承派生

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

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

相关 Fortran 动态分配数组

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

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

相关继承与派生

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

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

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

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

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

相关类的继承与派生

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

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

相关继承与派生

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

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