JAVA调用fortran以及报错（1）——severe (408): fort:(19):

fortran77生成dll，供java调用

目的是用geopack，geopack本身是2000多行的fortran代码，注释都是C，想用fortran90，但是架不住改那么多行注释标签，OK，就用fortran77。然后对fortran实在不是很熟，而且考虑的后期要做的计算比较多，还是用比较熟悉的java，所以考虑生成dll，供java调用。然后用hello world的形式做一个小测试，中间遇到的一些问题，记录下来

首先是fortran代码

非常简单，输入是一个整数，假如这个整数大于0，输出1，否则的话，输出-1

SUBROUTINE底下的这一行非常重要，要不然会报错叫“必须定义入口点”，这一行就是告诉fortran编译器，我这个本来就是一个dll，不用定义入口点，OK？然后写成注释的形式但是其实对fortran来说!DEC$不是注释

https://zhidao.baidu.com/question/509319832.html 这里有详细的回答，感谢这位大神。

然后是位数的问题，jdk的位数和生成的dll文件的位数要对应，32bit对32bit，64bit对64bit，VS可以在图示的地方更改位数

我的jdk是64位的。

然后检查一下看自己的DLL是不是64位的，一般来说，如果是64位的，生成的dll文件会在工程下\x64\Debug文件夹下，32位的就没有这个x64文件夹，anyway，还是可以用VS的开发者工具检查一下。

具体教程https://blog.csdn.net/only_1/article/details/80760495

OK，然后新建java项目，并且要把dll放到java项目的bin路径下！！或者在项目里写绝对路径。而且要记得添加jna.jar，网上一堆

好。java调用的代码以及测试结果

居然成功了，半个小时搞定了，难以想象我自己干个事会有这么顺利出错这么少的时候。呵呵

好了。终于可以开始用geopack了。

调用geopack的时候遇到一个很有意思的问题

修改了geopack中trace这个subroutine，然后java调用，实现磁力线追踪

调用代码

这个是可以运行，没有问题的，然后就用geopack的trace，想着到时候用他的做一个validation

代码几乎一致

这时候有一个fatal报错

"fatal: severe (408): fort:(19): Dummy character variable 'FILENAME' has length 100 which is greater than actual variable length 0"

也就是我输入的String类型的文件名，要不就是没读到，要不就是没读全。

而且我尝试了不把FILENAME作为输入，而是在subroutine里赋值，代码运行正常；也尝试了把其他输入量都在subroutine里直接赋值，输入参数只有FILENAME，代码运行也正常

因为FIXEDDS算法和另两种输入都没问题，所以我一直坚持自己解决没有百度，弄了好久还是决定百度一下，原来大神已经给出了解决方案

https://software.intel.com/en-us/forums/intel-visual-fortran-compiler-for-windows/topic/279684

在fortran文件里，加上!DEC$ ATTRIBUTES REFERENCE :: FILENAME就可以了

这是DLL的部分fortran代码

不知道为什么FIXEDDS可以，也不知道为什么其他输入可以，也不知道为什么偏偏这样的输入必须加这一句。

我觉得继续编程编下去我就要信佛了。