整个fortran程序编译完,运行后就显示内存不能读取,切换到Debug,按F5后,可以发现浓度值C(J,K)计算结果不对,但是无论更改程序中该子程序的任何计算式,得到的结果都是一样的,好像跟我设置的计算式没有关系,这是没有读取相应的子程序吗?还是读取其他部分了?
SUBROUTINE COM
!--------------------------------------------------------
PARAMETER(NJ=120,NT=120)
COMMON U(NJ,NT),C(NJ,NT)
COMMON DER(NT),Y(NJ),DYL(NJ)
COMMON K,LITIM,DT
COMMON DLN,DS,RHOF,RHOS,DD,GR,M1,YDN,DXL,YL,DY,C0
!--------------------------------------------------------
ENTRY VECTORY
U(J,0)=0
DO K=1,LITIM
DO J=1,M1
IF(J.NE.M1)THEN
U(J,K)=(GR*DT+U(J,K-1))/(DD*DT+1)
ELSE
U(J,K)=0
ENDIF
ENDDO
ENDDO
RETURN
!------------------------------------------------------------
ENTRY CONCENTRATE
C(J,0)=C0
DO K=1,LITIM
DO J=1,M1
IF(J.EQ.1)THEN
C(J,K)=(U(J,K)*C(J,K-1))/U(J,K+1)
ELSEIF (J.GT.1.AND.J.LT.M1)THEN
C(J,K)=((U(J,K)*C(J,K-1))/U(J,K+1))+C(J-1,K-1)-C(J-1,K)
ELSE
C(J,K)=0
ENDIF
ENDDO
ENDDO
RETURN
这是子程序中的两个部分,第一个子程序运行后U(J,K)的结果是正确的,但是进行第二个子程序时,要用到上一个的结果U(J,K),运行结果C(J,K)是错误的,并且不管我怎么改C(J,K)的计算式,得出的结果不变,还是原来错误的结果,不知道原因出在哪。
[ Last edited by sun805869434 on 2013-6-6 at 10:14 ] |