fortran哑元传递问题

fenglinxiaoxue

“程序中哑元传递的量在对另外一个数组赋0初值的时候突然变为零”是什么意思？能把程序段附上么？

GWinston

建议检查赋0初值的数组的定义，维数是否正确

huahua2005

FORTRAN 90 对于FORTRAN 77的程序可兼容，问题应该不在这里，最好把你程序中认为有问题的部分传上来，大家可以帮你看看！

jinguangyang

楼主的程序我有两点不明白：
1。在调试时，运行到i＝3，j＝1时，此时并未运行到al1=cel(IOC)*areal(IOC)/dl(IOC)处，即便IOC等于0，程序也不应该报错的。
2。在该子程序的所有变量的intent属性都是in，那怎么将计算结果传出呢？

iceboy

哑元的传递好像是要有入有出的，看看是不是这个原因

GWinston

也可能是调用该子程序的上一层程序中tlk有问题，检查一下看

hillyuan

tlk(6,6)数组初值赋零是后来又改的，开始是tlk=0.0后来改成这样，在调试时就发现，当运行到i=3,j=1的时候ioc的初值就由9（正确的传递值）变为0了。此时程序就提示数组边界超出。第一次发文，写的不清楚，海涵，多谢！
=> Mostly memory related error.TO check it.

1. Use explict interface at first => To delete statcic Error.

MODULE test
subroutine dgang31(IOC,nec,cel,areal,dl,tlk)
implicit none
integer,intent(in) :: IOC,nec
......
END MODULE

2. Turn on the Debug mode when running. Open the Array and string Bounds check at running time => To delete dynamic Error.