回 帖 发 新 帖 刷新版面

主题:每迭代100次输出以此文件

每迭代100次输出以此文件,程序怎么实现?

回复列表 (共1个回复)

沙发

DO  I = 1,10000  !迭代
     ...
     CODE
     ...

!   输出
     IF ( MOD(I, 100) .EQ. 0) THEN
         CALL OUTPUT()
     ENDIF
ENDDO

我来回复

您尚未登录,请登录后再回复。点此登录或注册