Неявные циклы не являются самостоятельными конструкциями и могут быть использованы только в операторах ввода/вывода и инициализации данных, как правило, для работы с массивами.

Неявно можно задать только цикл с фиксированным числом повторений. Вместо операторных скобок DO...ENDDO используются обычные круглые скобки. Телом цикла может быть другой неявный цикл или одно еднственное выражение, как правило, зависящее от переменной цикла. Диапазон изменения и шаг переменной цикла указываются через запятую после тела цикла.

      program IMPDO
      parameter(N = 1, M = (N+1)*(N+1))
      integer VECTOR(N), MATRIX(-N:0, 0:N) ! Всего M элементов 
      data (VECTOR(i), i = 1, N) /N*0/
      data ((MATRIX(i, j), j = 0, N ), i = -N, 0) /M*0/
      print'(''Ввести VECTOR: ''$)' 
      read*, (VECTOR(i), i = 1, N)
      print'(''Ввести MATRIX: ''$)' 
      read*, ((MATRIX(i, j), j = 0, N ), i = -N, 0)
      print*, (VECTOR(i), i = 1, N)
      print'(2(1x,i2))', ((MATRIX(i, j), j = 0, N ), i = -N, 0)
      end

Напомним, что диапазон индексов массива по каждому измерению можно указывать явно, как для массива MATRIX в программе IMPDO.

Информационные системы ускорителей

ВВЕДЕНИЕ В ФОРТРАН

Концепция данных Фортрана.

Печать текста и чисел на экран.

Арифметические и текстовые выражения.

Инициализация переменных и констант.

Условные опреаторы.

Циклы.

Процедуры и функции.

Работа с внешними файлами.

НЕЯВНЫЕ ЦИКЛЫ.

Copyright © Кафедра Электрофизических установок МИФИ, 2016 - 2024