这个是调用栈，代表的是下面的函数（子程序）调用了上面的函数（子程序）。
一般来说是最接近系统库的地方能直接看出问题，但产生问题的地方就不一定了。
是可以逐往下点，多看看，看看是哪儿产生的问题：）

嗯嗯，谢谢您啊~~[em2]

您好，我终于找到问题所在了，就是您所说的是开方出了问题，那个部分程序是这样的：
            DO I=1,N 
               DENOM=SCAL(I) 
               DYNO=DYNO+(Z1(I)/DENOM)**2+(Z2(I)/DENOM)**2 
     &          +(Z3(I)/DENOM)**2 
            END DO 
            DYNO=DSQRT(DYNO/N3) 

我查看变量，发现DENOM的值很小，量级是e-5， DYNO的值是NAN，我分析原因会不会是DENOM值太小，然后又在分母上，所以被近似为0了，导致除法出错了呢？我又查看了下前面定义的SCAL变量，它是real类型的。那也就是说DENOM也是real类型的。那为什么会出现这种错误呢？还期待您可以帮忙解决。。。谢谢您了。

计算中要时刻避免大数除以小数，你真的会以为计算机中的浮点数表示范围是无限的么？