请教: 在运行时出现Segmentation fault的问题

xiaoniu

在运行时出现Segmentation fault的问题：

调用下面这个子程序的主程序是single precision，而这个子程序是double precision.

问题是这样的：
在没有这４行命令时，程序运行没有问题。OUT_kf1(i)=kf(1)
                                    OUT_kf2(i)=kf(2)
                                    OUT_kf3(i)=kf(3)
                                    OUT_kf4(i)=kf(4)
但一加上这４行命令，一运行就出现Segmentation fault.
但是如果我只做其中两行，而不是４行全做，比如只做头两行,程序运行没有问题.

请问这里的高人：
这是怎么回事？我很担心我程序本身有错误，如果有可能会是什么样的错误？

非常感谢!!

==============================================================
     SUBROUTINE sub1(nx,Af,TA,beta,cons,Y1,Y5,Y6,Y9)        !nx=66^3
   
      IMPLICIT DOUBLE PRECISION (A-H,O-Z), INTEGER(I-N)
      REAL Af(4),TA(4),beta(4),cons,Y1(nx),Y5(nx)
     1       Y6(nx),Y9(nx)
      REAL*8  kf(4),kr(4)
      DIMENSION OUT_kf1(nx),OUT_kf2(nx),
     2          OUT_kf3(nx),OUT_kf4(nx)
      .......
      ......
      do 10 i=1,nx
      ::::::::::::
      do ii=1,4
         kf(ii)=.......................
      enddo

      OUT_kf1(i)=kf(1)
      OUT_kf2(i)=kf(2)
      OUT_kf3(i)=kf(3)
      OUT_kf4(i)=kf(4)

10    continue
======================================================

xiaoniu

上面那些灯泡应该是小括号里面有个i

sbn

(i)
看看你传过去的的nx是否是小于4，如果小于4，就会有问题

xiaoniu

谢谢***n回复：

我的 nx=66*66*66=287496

xiaoniu

这个问题仍然没有找到原因，还是不能解决。所以提上来再次向大家请教。

这个segmentation fault一般是程序里出了什么样的问题？

非常感谢！！