Question

在fortran中使用do循环时遇到问题，

REAL W,V,X 
DO 50 W = 0.5,5.0,0.5
DO 50 V = 10.0,1000.0,10.0
DO 50 X = 1.0,10,1.0
C=(W*V*X)/1000.0
WRITE(*,*) W,V,X,C
50 CONTINUE
STOP
END

如果我给出了它，它表明只需要在do循环中使用整数，有没有办法以do循环或任何其他方式给出整数？

Answer 1

使用整数作为循环索引

      REAL W,V,X
      INTEGER I,J,K

      DO 50 I = 1,10
        DO 50 J = 1,100
          DO 50 K = 1,10

            W = 0.5 * I
            V = 10.0 * J
            X = 1.0 * K

            C=(W*V*X)/1000.0
            WRITE(*,*) W,V,X,C

50    CONTINUE
      STOP
      END

Answer 2

您应该能够通过添加步长值来增加实数变量，并使用if然后退出循环来完成同样的事情。笨重，但应该工作。

我最后一次在Fortran编程，我使用了穿孔卡和IBM-360，所以我不会假装我记得语法。

Fortran中的DO循环增量问题

2 个答案: