Question

Fortran程序运行结果出现Nan

debug无错误
程序如下：

程序是关于粒子散射的问题，求散射角与b的关系
不好意思，钱不多，全给了。。。
代码请移步http://hi.baidu.com/jigbfyqvvzaexzr/item/fcd04dc164eb4020c710b209





Answer 1

你这样贴代码的截图是不会有人帮你的。

因为贴图无法复制粘贴，而看一段代码的错误是很难的，大家查错的方式主要还是让编译器跑一遍或者在编译器里对代码进行Debug调试。

追问

谢谢提醒，代码太长只能放在其他地方了，请看一下问题补充，菜鸟先谢过了

追答

subroutine ftheta
中
if((1-(b/r)**2-fv(rmin)/E).LT.0)then
这里的 r 没有给值

是否应该是 dr ？

追问

是这里错了，应该是rmin，谢谢你！！！