问一个关于fortran内存管理的问题

2008-11-30 10:44:06 169 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

ASReview：基于主动学习的AI文献筛选工具，提升科研效率主动学习是机器学习的一个重要分支，其核心原理是让算法能够主动选择最有价值的数据进行标注，从而以更低的成本获得更好的模型性能。这一技术通过人机协作的闭环流程，显著提升了数据标注和模型训练的效率和精度。在工程实践中，主动学习尤其适用于数据标注成本高昂或数据类别不平衡的场景，例如医学影像分析、自然语言处理中的文本分类以及推荐系统的冷启动问题。通过优先标注模型最不确定的样本，它能够有效解决传统机器学习面临的冷启动和数据稀疏性挑战。本文聚焦的ASReview项目，正是将主动学习原理应用于系统文献综述这一具体场景，通过阅读详情

知道用PB的人中很多都是精通很多语言的行家，至少C++ 方面是，

没有fortran的板块，只能在这里看看有没有人知道。。

问一个关于fortran内存管理的问题

!以下是代码

module TestDataModule

type SubData
real(kind=8) x
real(kind=8) y
end type

type NewData
real(kind=8) a
real(kind=8) b
type(SubData), allocatable :: point(:)
end type

contains

!开辟内存函数
subroutine CallMemory( num1,num2,called_data )

integer, intent(in):: num1,num2
type (NewData), allocatable:: called_data(:)

integer i

allocate (called_data(1:num1))
do i=1,num1
allocate(called_data(i)%point(1:num2))
end do

end subroutine

!删除内存函数
subroutine DeleteMemory( deleted_data )

type (NewData), allocatable:: deleted_data(:)
!问(3) :可能是上句的定义不正确????????????
integer num1,num2,i

num1=size(deleted_data)
do i=1,num1
deallocate (deleted_data(i)%point)
end do
deallocate(deleted_data)
!问(3) : 这里回出错！！！！！！！

end subroutine

!调用函数
subroutine TestFun()

type (NewData), allocatable:: mydata(:)
integer number1,number2

number1=2
number2=3

call CallMemory(number1,number2,mydata)
!函数返回后 mydata 的编号是 mydata(0:1),

!问(1) :怎么变成从 1开始编号 ? mydata(1:2)

!............................
!
mydata(1)%a=1.0
mydata(1)%b=2.0

mydata(1)%point(1)%x=31.0
!问(2) : 这里怎么无法赋值 ?
mydata(1)%point(1)%y=32.0
mydata(1)%point(2)%x=41.0
mydata(1)%point(2)%y=42.0
mydata(1)%point(3)%x=51.0
mydata(1)%point(3)%y=52.0

mydata(2)%a=6.0
mydata(2)%b=7.0

mydata(2)%point(1)%x=81.0
mydata(2)%point(1)%y=82.0
mydata(2)%point(2)%x=91.0
mydata(2)%point(2)%y=92.0
mydata(2)%point(3)%x=101.0
mydata(2)%point(3)%y=102.0

write(*,*),mydata(1)%a,mydata(2)%point(3)%y

!............................
call DeleteMemory(mydata)

end subroutine

end module

program TestFortran

use TestDataModule
implicit none

call TestFun()

end program TestFortran

...全文