内层循环只计算了一次后面的到的结果都为0大佬些为什么啊

MADAO

[Fortran] 纯文本查看 复制代码

REAL, ALLOCATABLE, DIMENSION(:,:) :: AVE_DENSI, VAR_DENSI
                DO ILLL = 0, TIME_STEP 
                        WRITE(2116,*) 'TIME = ', ILLL*DELT_T*dt
                        WRITE(2117,*) 'TIME = ', ILLL*DELT_T*dt 
                        DO ILL = 0, 20
                                WRITE(2116,*)        ILL, AVE_DENSI(ILLL, ILL)/NRMAX
                                WRITE(2117,*)        ILL, VAR_DENSI(ILLL, ILL)/NRMAX - 
     &                                                    (AVE_DENSI(ILLL, ILL)/NRMAX)**2
                        enddo
                enddo