      program ARRDAT
      parameter(N=3)
      dimension VECTOR(7), SCALE (-5:5), MATRIX(N, N)
      data VECTOR / -3., -2., -1., 0., 1., 2., 3. /   SCALE / 11*1. /

c                              10 20 30
c     Двумерный массив MATRIX: 40 50 60   
c                              70 80 90

      data MATRIX / 10, 40, 70, 20, 50, 80, 30, 60, 90 /

      print*, VECTOR
      print*, SCALE

c     Можно вывести матрицу, как она хранится - тогда строки и столбцы поменяются местами.
      print'(3(1x,i2))',MATRIX

c     Можно вывести матрицу в естественном виде, используя неявный цикл.
c     i - номер строки, j - номер столбца

      print'(3(1x,i2))',((MATRIX(i,j), j = 1, 3), i=1, 3)

      end

При инициализации массвов оператором DATA значения элементов указывются в том порядке, в котором будут храниться в массиве. Поскольку матрицы в Фортране хранятся "по столбцам", то именно в таком порядке должны располагаться элементы матрицы при ее инициализации опрератором DATA.

Программа ARRDAT так же демонстрирует, что начальное значение индекса для каждого измерения массива не обязательно равно единице, если указать его явно, как для одномерного массива SCALE, у которого индекс меняется от "-5" до "5", включая ноль (итого 11 элементов).

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

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

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

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

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

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

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

Циклы.

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

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

DATA-ИНИЦИАЛИЗАЦИЯ МАССИВОВ ПЕРЕМЕННЫХ.

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