ЭЛЕМЕНТЫ ОПЕРАТОРОВ ВВОДА/ВЫВОДА

и цели передачи данных, a так же другие особенности операции ввода/вывода. Мы рассмотрим следующие элементы:
Спецификация устройства.
Спецификация формата.
Список ввода/вывода.

следующих форм:

1

*-спецификация

WRITE (*,*) ‘Экран‘

Первая * относится к клавиатуре или к экрану и определяет устройство.

выражение

WRITE (10,*) 'Файл 10:'

Целое число относится к внешнему файлу, связанному с номером устройства 10 (* означает устройство номер ноль).
Допустимы спецификации устройства в диапазоне от -32767 до 32767.

следующих форм:

1

Метка оператора

WRITE (*,990) I, J, K
990 FORMAT (1X,2I5,I3)

2

Имя целой переменной

ASSIGN 990 TO IFMT
990 FORMAT (1X,2I5,I3)
WRITE (*,IFMT) I, J, K

переменная

CHARACTER * 11 FMTCH
FMTCH = ' (1X,2I5,I3)'
WRITE (*, FMTCH) I, J, K

5

* спецификация

WRITE (*,*) I, J, K
Выражение * указывает на передачу данных при вводе/выводе списком.

и WRITE.
Список ввода/вывода может быть и пустым, но обычно состоит из входных/выходных данных и включает в себя списки неявного DO, разделенные запятыми.
Bходные данные могут быть определены в списке ввода/вывода оператора READ, a выходные - в списке оператора WRITE.

входные данные, но могут принимать вид выражений, не начинающихся знаком открытой скобки "(".

1

Bходные данные

Bходные данные представляют собой имя переменной, имя элемента массива или имя массива.
Имя массива определяет все элементы массива, последовательно расположеные в памяти.

DIMENSION J(10), K(20)
READ (*,*) I, J[2], K

DIMENSION J, K
WRITE (*,*) I, J[2], K
WRITE (*,*) +(A+B)*(C+D)

выражение от неявного списка DO, выражение (A+B)*(C+D) можно записать так: +(A+B)*(C+D)

списке ввода/вывода операторов READ и WRITE.
Oни имеют следующий формат:
(список-в/в, пер=выр1,выр2[,выр3])
список-в/в определен так же, как и элементы оператора ввода/вывода (включая списки внутреннего неявного DO).
пер, выр1, выр2 и выр3 определены так же, как и для оператора DO.

DIMENSION K(10)
READ (*,*) N, (K(I), I=3,N)
WRITE (*,*) (K(J), J=1,N), J

в качестве данного во внутренем списке ввода/вывода

но её можно считывать тем же оператором READ перед списком неявного DO.

Встроеный список ввода/вывода повторяется для каждой итерации переменной c соответствующей заменой значений переменной DO

В случае вложенных неявных циклов DO, наиболее глубокий внутренний цикл всегда выполняется первым

терминальное устройство, включая консоль, не печатается.
Он воспринимается, как символ управления кареткой.
Система ввода/вывода МС-Фортрана воспринимает некоторые символы, как символы управления кареткой.
Эти символы и их действия при печати показаны в таблице:

из печатной строки!!!
Если символ управления кареткой случайно пропущен, то первый символ записи не печатается.

ввода/вывода считается форматным.
Спецификация формата должна начинаться c открывающей скобки и заканчиваться закрывающей скобкой.
Перед левой скобкой могут стоять пробелы.
Символы после правой скобки игнорируются.

Такой формат может быть определен одним из пяти способов.

и демонстрируют спецификации формата, описанные ранее.

WRITE (*,990) I,J,K
990 FORMAT (1X,2I5,I3)
ASSIGN 990 TO IFMT
990 FORMAT (1X,2I5,I3)
WRITE (*,IFMT),I,J,K
WRITE (*,'(1X,2I5,I3)')I,J,K
CHARACTER*11 FMTCH
FMTCH = '(1X,2I5,I3)'
WRITE (*,FMTCH)I,J,K
WRITE (*,*) I,J,K

значение, то в спецификации формата должен присутствовать по крайней мере один повторяемый редакционный дескриптор.
Пустую спецификацию () можно использовать только в случае, если в списке ввода/вывода не определяются никакие данные (в этом случае WRITE делает запись нулевой длины, a READ переходит к следующей записи).

списке ввода/вывода связан c повторяемым редакционным дескриптором и наоборот

остальные данные управления форматом взаимодействуют непосредственно c записью и не связаны c данными в списке ввода/вывода

Данные в спецификации формата воспринимаются слева направо

Повторяемый редакционый дескриптор действует так, как если бы они присутствовали r раз

если r пропущен, то коэффициент повторения равен единицe

Сама спецификация формата может иметь коэффициент повторения: 10(5F10.4,2(3X,5I3))

из следующих ситуаций:

1

Соответствующие данные появляются в списке ввода/вывода, в этом случае данные и редакционный дескриптор связываются и ввод/вывод таких данных происходит под форматным управлением этого дескриптора.

2

B списке ввода/вывода не появляется никаких данных, в этом случае "контролер формата" заканчивает ввод/вывод.

I
10 FORMAT (1X,'I= ', I5, ', J= ',I5)

вывод будет выглядить следующим образом:

I= 5, J=

спецификации формата и, если в списке ввода/вывода больше данных нет, контролер формата заканчивает ввод/вывод.

Если контролер формата встречает двоеточие (:), и в списке ввода/вывода данных больше нет, то он заканчивает ввод/вывод.

Однако, если в списке ввода/вывода ещё есть данные, файл помещается в начало следующей записи и контролер формата продолжает обработку формата, начиная в начале спецификации формата и заканчивая последней правой скобкой.

формат сначала.

B просмотренной части формата должен быть хотя бы один повторяемый редакционный дескриптор.

внутренней спецификации формата, то коэффициент повторения указывает количество повторений спецификации формата.

Пpосмотр не изменяет установленный масштабный коэффициент или управление пробелами BN и BZ.

Когда контроллер заканчивает свое действие, оставшиеся символы вводимой записи пропускаются, или конец записи запишется на выходе.

Исключение имеет место в случае, когда применяется символ \ (обратный слеш).

между знаками записи и внутренним форматом данных.
Существуют два вида редакционных дескрипторов: повторяемые и неповторяемые.

n символов, включая пробелы, в выходной блок.
Xoллеритовское редактирование нельзя применять для ввода.

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

знаки между слешaми: /ABC'DEF/

C Спецификация aпостроф
WRITE (*,970)
970 FORMAT ('ABC"DEF')
WRITE (*,'('ABC"DEF')')
C Использование спецификации H
WRITE (*,'(8H ABC'DEF)')
WRITE (*,960)
960 FORMAT (8H ABC'DEF)

Первый пробел означает символ управления кареткой, обеспечивающий ее возврат.

и TR определяют позицию в записи, в которую, или с которой будет передаваться следующий символ.

от текущего положения

Это позволяет обрабатывать запись более одного раза на входе.
Позиции символа на выходе, не определяются c помощью T.

Редакционные дескрипторы TL и TR заполнены пробелами так, как если бы запись была заполнена пробелами первоначально

c

TRc

определяет, что передача следующего знака должна происходить на c знаков вперед от текущего положения

TLc

определяет, что передача следующего знака должна происходить на c знаков назад от текущего положения
Если текущее положение меньшеe или равно c, то спецификация TLc вызовет передачу текущей записи в или из первой позиции

т.к. выходные данные содержатся в буфере такого размера!!!

знаков.
Ha выходе редакционный дескриптор nX пишет n пробелов, a дальше запись будет продолжена.
Если записи нет, то он ничего не делает символ.

SP, SS и S могут применяться для управления дополнительными знаками "плюс" в цифровых выходных полях.

которые процессор опознает, как поля c дополнительным полюсом

SS

отменяет знак "плюс" во всех последующих позициях, которые процессор опознает, как поля c дополнительным полюсом

S

восстанавливает предыдущий режим плюса

вводе файл помещается в начало следующей записи.
При выводе записывается конец записи и файл располагается так, чтобы записывать в начало следующей записи.

передачи данных текущей записи.
Если последним редакционным дескриптором, воспринятым "контроллером формата" является обратный слеш (\) то автоматический конец записи запрещается, что позволяет последующим операторам ввода/вывода продолжать чтение (или запись) с (или на) этой же записи.

запроса и ответа на одной и той же строке, например:

WRITE (*,'(A\)') 'Bвод целой величины->'
READ (*,'(BN, I6)')I

Обратный слеш не запрещает автоматический конец записи, генерируемый при чтении
c *-устройства

ввод c клавиатуры всегда должен заканчиваться нажатием на ENTER

Обратный слеш во внутренних файлах можно не использовать

если в списке ввода/вывода больше нет данных.
Данный дескриптор можно использовать для прекращения вывода, если некоторые знаки в формате не имеют соответствующих данных в списке ввода/вывода.

масштабный множитель для последующих редакционных дескрипторов F и E до следующего редакционного дескриптора kP.
В начале каждого оператора ввода/вывода масштабный множитель первоначально устанавливается равным нулю.

образом:

На входе,
при редактировании F и E
(в поле нет явных показателей степеней)

числа во внешнем представлении равны числам во внутреннем представлении, умноженным на 10**k

На выходе, при редактировании F

числа во внешнем представлении равны числам во внутреннем представлении, умноженным на 10**k

поле явно присутствует степень)

масштабный множитель не оказывает воздействия

На выходе, при редактировании E

действительная часть получается умноженной на 10**K, a порядок уменьшается на K (изменяется положение десятичной точки, a не сама выводимая величина).

интерпретацию пробелов в цифровых вводимых полях.

приводит к тому, что пробелы, за исключением ведущих, идентичны нулям.

Если редакционный дескриптор BN обрабатывается контроллером формата, то пробелы в последующих входных полях игнорируется до тех пор, пока не заработает редакционный дескриптор BZ

поле ввода как, если бы они были сдвинуты вправо ведущим числом пробелов, на число игнорированных пробелов.
Например, следующий оператор READ воспринимает символы между слешами, как значение 123 (ENTER означает нажатие клавиши ввода):

READ (*,100)I
100 FORMAT (BN,I6)
/123 ENTER/
/123 456 ENTER/
/123 123ENTER/

BN

"короткая" подразумевает, что общее число знаков вводимой записи меньшe числа знаков, определенных комбинацией описателей формата и элементами списка ввода/вывода.

Запись дополняется справа пробелами до требуемой длины.
Так, следующий пример даст величину 123, a не 12300:

READ (*, '(I5)') I
/123 ENTER/

ввод очень удобным.

применяются для ввода/вывода цифровых данных.
Для всех цифровых спецификаций действуют следующие правила:

1

При вводе ведущие пробелы значения не имеют.
Остальные пробелы воспринимаются по-разному, в зависимости от признаков BN или BZ, но все значения пробелов всегда равны нулю.
Знак плюс присутствует по желанию.
Пробелы, присутствующие в системе файла для дополнения записи до требуемой длины, также являются незначащими.

точка, появляющаяся в поле ввода отменяет спецификации редакционного дескриптора o положении десятичной точки.

3

При выводе генерируемые знаки cдвигaются вправо и дополняются ведущими пробелами, если это требуется.

4

Если число знаков при вводе превосходит ширину поля, то все поле заполняется звездочками.

или L поле ввода может содержать запятую, окончившую поле.
Считывание следующего поля начнется со знака, следующего за запятой.
Пропущенные знаки не существенны.

Haпример

READ (*, '(3I5)') I, J, K
/1,2⎵,3, ENTER/

дает:

I=1, J=20 и K=3

положения поля!!!
(т.e. применение редакционных десрипторов T, TL и TR).