本文主要是介绍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可以，也不知道为什么其他输入可以，也不知道为什么偏偏这样的输入必须加这一句。
我觉得继续编程编下去我就要信佛了。
这篇关于JAVA调用fortran以及报错（1）——severe (408): fort:(19):的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
