Начльные значения данных могут быть введены с клавиатуры, для этого используется оператор READ, форма записи которого, в точности повторяет форму записи PRINT. После ключевого слова указывается форматная информация или "звездочка", а затем, через запятую, список ввода. Это называется ввод под управлением списка.

Программа RDINP, в числе прочих, демонстрирует возможность так называемого непродвигающего ввода/вывода на примере считывания переменной Z. Обычно перед вводом печатается сообщение о том, какие данные необходимо ввести. Курсор при этом переводится на следующую строку. Чтобы предотвратить перевод строки, в конце формата вывода указывается символ "$" (знак доллара). Такой вариант непродвигающего вывода не задокументирован в стандартах ФОРТРАН-77 и Фортран-90, однако поддерживается многими компиляторами. Вариант, документированный в стандарте Фортран-90 будет рассмотрен в разделе "Работа с внешними файлами".

      program RDINP
      parameter( N = 2)
      dimension MATRIX(N, N)

      print'(1x,''введите X,Y'')'
      read*, X, Y
      print'(1x,''введите Z = ''$)'
      read*, Z
      print*, X, Y, Z

      print'(1x,''введите матрицу MATRIX построчно:'')'
c     Для матрицы MATRIX i - номер строки, j - номер столбца
      read*, ((MATRIX(i,j), j=1, N), i=1,N)
      print'(1x,''Вывод MATRIX построчно:'')'
      print'(2(1x,i2))',((MATRIX(i,j), j = 1, N), i=1, N)
      print'(1x,''Строки и столбцы поменялись!:'')'
      print'(2(1x,i2))', MATRIX
      end

Спецификации формата при вводе те же, что и при выводе данных. Формат при вводе не столь актуален, поскольку буквальные константы, отвечающие за представление данных можно вводить в любом допустимом виде. Ввод под управлением списка все "проглотит".

Если в операторе ввода последовательно считывается несколько чисел подряд, то они должны разделяться пробелами или запятыми (безразлично). Можно каждое новое число вводить с новой строки - это тоже допускается, а если вводятся текстовые константы, то именно этот режим ввода предпочтительней. Ввод текстовых данных, пожалуй, единственный случай, когда формат актуален (напомним, что за формат текстовых данных отвечает дескриптор "A", с указанием после него символьной длины текста).

В предыдущем пункте отмечалось, что для печати массива достаточно указать в списке вывода его имя. Однако, следует учитывать, что элементы массивов хранятся в оперативной памяти последовательно, один за другим. Поэтому, если подобным образом печатать матрицу NxN в табличном виде, выводя по N элементов в строке, то столбцы окажутся строками, а строки столбцами.

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

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

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

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

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

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

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

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

Циклы.

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

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

ВВОД ДАННЫХ С КЛАВИАТУРЫ.

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