JNA重新加载库后Fortran公共变量状态仍保留的解决方法问询

这问题其实是Fortran全局COMMON块的特性导致的，和JNA的库卸载机制没关系——咱们一步步拆解解决：

首先得明确核心原因：你Fortran代码里的COMMON/myCommon/ x是进程级的全局存储。不管你用JNA卸载多少次动态库，只要当前Java进程没重启，这块内存区域就会一直保留之前的值。JNA的库释放操作只是告诉操作系统可以回收库的代码段，但全局数据段的内容在进程生命周期内是持久存在的；哪怕你加了-init:zero参数，它也只在第一次加载库时生效，重新加载时并不会重新初始化这块内存。

解决方案1：手动添加初始化子程序（最直接） #

给Fortran代码加一个专门重置COMMON块的子程序，每次重新加载库后先调用它，手动清空全局状态：

修改后的Fortran代码：

subroutine mySub()
implicit none
DOUBLE PRECISION x
COMMON/myCommon/ x
print*,x
x = 99.99d0
end subroutine mySub

! 新增初始化子程序，专门重置COMMON块变量
subroutine initMyCommon()
implicit none
DOUBLE PRECISION x
COMMON/myCommon/ x
x = 0.0d0  ! 重置为初始值
end subroutine initMyCommon

对应的Scala代码（注意Fortran子程序名会被编译为小写加下划线，要对应上）：

trait FortranLibrary extends Library {
 def mysub_()
 def initmycommon_()  // 对应Fortran的initMyCommon子程序
}

def main(args: Array[String]): Unit = {
 var INSTANCE: FortranLibrary = Native.synchronizedLibrary(
 Native.load("sub.so", classOf[FortranLibrary])
 ).asInstanceOf[FortranLibrary]
 INSTANCE.initmycommon_()  // 第一次调用前初始化全局状态
 INSTANCE.mysub_()
 println("------SECOND CALL-----")
 // 清理库并重新加载
 INSTANCE = null
 System.gc()
 // 创建新实例并再次初始化
 INSTANCE = Native.synchronizedLibrary(
 Native.load(libpath, classOf[FortranLibrary])
 ).asInstanceOf[FortranLibrary]
 INSTANCE.initmycommon_()  // 重新加载后重置全局状态
 INSTANCE.mysub_()
}

这样第二次调用时，x会被重置为0.0，输出就符合预期了。

解决方案2：移除全局状态（更优雅） #

如果可以修改Fortran逻辑，最好直接去掉COMMON块，把状态改成通过参数传递，让Java/Scala端完全控制变量状态：

修改后的Fortran代码：

subroutine mySub(x)
implicit none
DOUBLE PRECISION, intent(inout) :: x  ! 传入传出参数，替代全局COMMON块
print*,x
x = 99.99d0
end subroutine mySub

对应的Scala代码（用数组传递可变参数，适配JNA的调用规则）：

trait FortranLibrary extends Library {
 def mysub_(x: Array[Double])  // JNA用数组传递可修改的数值类型
}

def main(args: Array[String]): Unit = {
 var INSTANCE: FortranLibrary = Native.synchronizedLibrary(
 Native.load("sub.so", classOf[FortranLibrary])
 ).asInstanceOf[FortranLibrary]
 val x = Array(0.0)  // 手动初始化初始值
 INSTANCE.mysub_(x)
 println("------SECOND CALL-----")
 // 清理库并重新加载
 INSTANCE = null
 System.gc()
 INSTANCE = Native.synchronizedLibrary(
 Native.load(libpath, classOf[FortranLibrary])
 ).asInstanceOf[FortranLibrary]
 val x2 = Array(0.0)  // 重新初始化新的变量
 INSTANCE.mysub_(x2)
}

这种方式彻底避免了全局状态的问题，状态完全由Java/Scala端控制，更符合跨语言调用的最佳实践。

补充说明：为什么-init:zero没生效 #

-init:zero是Intel Fortran编译器在链接动态库时，设置全局变量的初始值为0，但这个操作只在库第一次被加载到进程时执行。当你卸载库后重新加载，操作系统会复用之前进程内存中的全局数据区域（不会重新清零），所以第二次加载时全局变量还是保留着之前的值。

内容的提问来源于stack exchange，提问作者Raphael Roth