Проблема приращения цикла DO в Фортране

Question

У меня проблема при использовании цикла 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, чтобы выйти из цикла. Неуклюжий, но должен работать.

В последний раз, когда я программировал на Фортране, я использовал перфокарты и IBM-360, так что я не собираюсь притворяться, что я помню синтаксис.