- •Предисловие
- •1. Элементы языка
- •1.1. Свободная форма записи программы
- •1.2. Консоль-проект
- •1.2.1. Создание проекта в CVF
- •1.2.2. Создание проекта в FPS
- •1.2.3. Операции с проектом
- •1.2.4. Файлы с исходным текстом
- •1.3. Операторы
- •1.4. Объекты данных
- •1.5. Имена
- •1.6. Выражения и операции
- •1.7. Присваивание
- •1.8. Простой ввод/вывод
- •1.8.1. Некоторые правила ввода
- •1.8.2. Ввод из текстового файла
- •1.8.3. Вывод на принтер
- •1.9. Рекомендации по изучению Фортрана
- •1.10. Обработка программы
- •2. Элементы программирования
- •2.1. Алгоритм и программа
- •2.2. Базовые структуры алгоритмов
- •2.2.1. Блок операторов и конструкций
- •2.2.2. Ветвление
- •2.2.3. Цикл
- •2.2.3.1. Цикл "с параметром"
- •2.2.3.2. Циклы "пока" и "до"
- •2.2.4. Прерывание цикла. Объединение условий
- •2.3. Программирование "сверху вниз"
- •2.3.1. Использование функций
- •2.3.2. Использование подпрограмм
- •2.3.3. Использование модулей
- •2.4. Этапы проектирования программ
- •2.5. Правила записи исходного кода
- •3. Организация данных
- •3.1. Типы данных
- •3.2. Операторы объявления типов данных
- •3.2.1. Объявление данных целого типа
- •3.2.2. Объявление данных вещественного типа
- •3.2.3. Объявление данных комплексного типа
- •3.2.4. Объявление данных логического типа
- •3.3. Правила умолчания о типах данных
- •3.4. Изменение правил умолчания
- •3.5. Буквальные константы
- •3.5.1. Целые константы
- •3.5.2. Вещественные константы
- •3.5.3. Комплексные константы
- •3.5.4. Логические константы
- •3.5.5. Символьные константы
- •3.6. Задание именованных констант
- •3.7. Задание начальных значений переменных. Оператор DATA
- •3.8. Символьные данные
- •3.8.1. Объявление символьных данных
- •3.8.2. Применение звездочки для задания длины строки
- •3.8.3. Автоматические строки
- •3.8.4. Выделение подстроки
- •3.8.5. Символьные выражения. Операция конкатенации
- •3.8.6. Присваивание символьных данных
- •3.8.7. Символьные переменные как внутренние файлы
- •3.8.8. Встроенные функции обработки символьных данных
- •3.8.9. Выделение слов из строки текста
- •3.9. Производные типы данных
- •3.9.1. Объявление данных производного типа
- •3.9.2. Инициализация и присваивание записей
- •3.9.2.1. Конструктор производного типа
- •3.9.2.2. Присваивание значений компонентам записи
- •3.9.2.3. Задаваемые присваивания записей
- •3.9.3. Выражения производного типа
- •3.9.4. Запись как параметр процедуры
- •3.9.5. Запись как результат функции
- •3.9.6. Пример работы с данными производного типа
- •3.9.7. Структуры и записи
- •3.9.7.1. Объявление и присваивание значений
- •3.9.7.2. Создание объединений
- •3.9.8. Итоговые замечания
- •3.10. Целочисленные указатели
- •3.11. Ссылки и адресаты
- •3.11.1. Объявление ссылок и адресатов
- •3.11.2. Прикрепление ссылки к адресатам
- •3.11.3. Инициализация ссылки. Функция NULL
- •3.11.4. Явное открепление ссылки от адресата
- •3.11.5. Структуры со ссылками на себя
- •3.11.6. Ссылки как параметры процедур
- •3.11.7. Параметры с атрибутом TARGET
- •3.11.8. Ссылки как результат функции
- •4. Массивы
- •4.1. Объявление массива
- •4.2. Массивы нулевого размера
- •4.3. Одновременное объявление объектов разной формы
- •4.4. Элементы массива
- •4.5. Сечение массива
- •4.6. Присваивание массивов
- •4.7. Маскирование присваивания
- •4.7.1. Оператор и конструкция WHERE
- •4.7.2. Оператор и конструкция FORALL
- •4.8. Динамические массивы
- •4.8.1. Атрибуты POINTER и ALLOCATABLE
- •4.8.2. Операторы ALLOCATE и DEALLOCATE
- •4.8.3. Автоматические массивы
- •4.9. Массивы - формальные параметры процедур
- •4.9.1. Массивы заданной формы
- •4.9.2. Массивы, перенимающие форму
- •4.9.3. Массивы, перенимающие размер
- •4.10. Использование массивов
- •4.11. Массив как результат функции
- •4.12. Встроенные функции для массивов
- •4.12.1. Вычисления в массиве
- •4.12.2. Умножение векторов и матриц
- •4.12.3. Справочные функции для массивов
- •4.12.3.1. Статус размещаемого массива
- •4.12.3.2. Граница, форма и размер массива
- •4.12.4. Функции преобразования массивов
- •4.12.4.1. Элементная функция MERGE слияния массивов
- •4.12.4.2. Упаковка и распаковка массивов
- •4.12.4.3. Переформирование массива
- •4.12.4.4. Построение массива из копий исходного массива
- •4.12.4.5. Функции сдвига массива
- •4.12.4.6. Транспонирование матрицы
- •4.13. Ввод/вывод массива под управлением списка
- •4.13.1. Ввод/вывод одномерного массива
- •4.13.2. Ввод/вывод двумерного массива
- •5. Выражения, операции и присваивание
- •5.1. Арифметические выражения
- •5.1.1. Выполнение арифметических операций
- •5.1.2. Целочисленное деление
- •5.1.3. Ранг и типы арифметических операндов
- •5.1.4. Ошибки округления
- •5.2. Выражения отношения и логические выражения
- •5.3. Задаваемые операции
- •5.4. Приоритет выполнения операций
- •5.5. Константные выражения
- •5.6. Описательные выражения
- •5.7. Присваивание
- •6. Встроенные процедуры
- •6.1. Виды встроенных процедур
- •6.2. Обращение с ключевыми словами
- •6.3. Родовые и специфические имена
- •6.4. Возвращаемое функцией значение
- •6.5. Элементные функции преобразования типов данных
- •6.6. Элементные числовые функции
- •6.7. Вычисление максимума и минимума
- •6.8. Математические элементные функции
- •6.8.1. Экспоненциальная, логарифмическая функции и квадратный корень
- •6.8.2. Тригонометрические функции
- •6.9. Функции для массивов
- •6.10. Справочные функции для любых типов
- •6.11. Числовые справочные и преобразовывающие функции
- •6.11.1. Модели данных целого и вещественного типа
- •6.11.2. Числовые справочные функции
- •6.12. Элементные функции получения данных о компонентах представления вещественных чисел
- •6.13. Преобразования для параметра разновидности
- •6.14. Процедуры для работы с битами
- •6.14.1. Справочная функция BIT_SIZE
- •6.14.2. Элементные функции для работы с битами
- •6.14.3. Элементная подпрограмма MVBITS
- •6.14.4. Пример использования битовых функций
- •6.15. Символьные функции
- •6.16. Процедуры для работы с памятью
- •6.17. Проверка состояния "конец файла"
- •6.18. Неэлементные подпрограммы даты и времени
- •6.19. Случайные числа
- •6.20. Встроенная подпрограмма CPU_TIME
- •7. Управляющие операторы и конструкции
- •7.1. Оператор GOTO безусловного перехода
- •7.2. Оператор и конструкции IF
- •7.2.1. Условный логический оператор IF
- •7.2.2. Конструкция IF THEN END IF
- •7.2.3. Конструкция IF THEN ELSE END IF
- •7.2.4. Конструкция IF THEN ELSE IF
- •7.3. Конструкция SELECT CASE
- •7.4. DO-циклы. Операторы EXIT и CYCLE
- •7.5. Возможные замены циклов
- •7.6. Оператор STOP
- •7.7. Оператор PAUSE
- •8. Программные единицы
- •8.1. Общие понятия
- •8.2. Использование программных единиц в проекте
- •8.3. Работа с проектом в среде DS
- •8.4. Главная программа
- •8.5. Внешние процедуры
- •8.6. Внутренние процедуры
- •8.7. Модули
- •8.8. Оператор USE
- •8.9. Атрибуты PUBLIC и PRIVATE
- •8.10. Операторы заголовка процедур
- •8.10.1. Общие характеристики операторов заголовка процедур
- •8.10.2. Результирующая переменная функции
- •8.11. Параметры процедур
- •8.11.1. Соответствие фактических и формальных параметров
- •8.11.2. Вид связи параметра
- •8.11.3. Явные и неявные интерфейсы
- •8.11.4. Ключевые и необязательные параметры
- •8.11.5. Ограничения на фактические параметры
- •8.11.6. Запрещенные побочные эффекты
- •8.12. Перегрузка и родовые интерфейсы
- •8.12.1. Перегрузка процедур
- •8.12.2. Перегрузка операций и присваивания
- •8.12.3. Общий вид оператора INTERFACE
- •8.13. Ассоциирование имен
- •8.14. Область видимости имен
- •8.15. Область видимости меток
- •8.16. Ассоциирование памяти
- •8.16.1. Типы ассоциируемой памяти
- •8.16.2. Оператор COMMON
- •8.16.3. Программная единица BLOCK DATA
- •8.17. Рекурсивные процедуры
- •8.18. Формальные процедуры
- •8.18.1. Атрибут EXTERNAL
- •8.18.2. Атрибут INTRINSIC
- •8.19. Оператор RETURN выхода из процедуры
- •8.20. Оператор ENTRY дополнительного входа в процедуру
- •8.21. Атрибут AUTOMATIC
- •8.22. Атрибут SAVE
- •8.23. Атрибут STATIC
- •8.24. Атрибут VOLATILE
- •8.25. Чистые процедуры
- •8.26. Элементные процедуры
- •8.27. Операторные функции
- •8.28. Строка INCLUDE
- •8.29. Порядок операторов и директив
- •9. Форматный ввод/вывод
- •9.1. Преобразование данных. Оператор FORMAT
- •9.2. Программирование спецификации формата
- •9.3. Выражения в дескрипторах преобразований
- •9.4. Задание формата в операторах ввода/вывода
- •9.5. Списки ввода/вывода
- •9.5.1. Элементы списков ввода/вывода
- •9.5.2. Циклические списки ввода/вывода
- •9.5.3. Пример организации вывода
- •9.6. Согласование списка ввода/вывода и спецификации формата. Коэффициент повторения. Реверсия формата
- •9.7. Дескрипторы данных
- •9.8. Дескрипторы управления
- •9.9. Управляемый списком ввод/вывод
- •9.9.1. Управляемый именованным списком ввод/вывод
- •9.9.1.1. Объявление именованного списка
- •9.9.1.2. NAMELIST-вывод
- •9.9.1.3. NAMELIST-ввод
- •9.9.2. Управляемый неименованным списком ввод/вывод
- •9.9.2.1. Управляемый неименованным списком ввод
- •9.9.2.2. Управляемый неименованным списком вывод
- •10. Файлы Фортрана
- •10.1. Внешние и внутренние файлы
- •10.2. Позиция файла
- •10.3. Устройство ввода/вывода
- •10.4. Внутренние файлы
- •10.5. Внешние файлы
- •10.6. Записи
- •10.6.1. Типы записей
- •10.6.2. Записи фиксированной длины
- •10.6.3. Записи переменной длины
- •10.6.4. Сегментированные записи
- •10.6.5. Потоки
- •10.6.6. CR-потоки
- •10.6.7. LF-потоки
- •10.7. Передача данных с продвижением и без
- •10.8. Позиция файла перед передачей данных
- •10.9. Позиция файла после передачи данных
- •10.10. Двоичные последовательные файлы
- •10.11. Неформатные последовательные файлы
- •10.12. Текстовые последовательные файлы
- •10.13. Файлы, подсоединенные для прямого доступа
- •10.14. Удаление записей из файла с прямым доступом
- •10.15. Выбор типа файла
- •11. Операции над внешними файлами
- •11.1. Оператор BACKSPACE
- •11.2. Оператор REWIND
- •11.3. Оператор ENDFILE
- •11.4. Оператор OPEN
- •11.5. Оператор CLOSE
- •11.6. Оператор READ
- •11.7. Оператор ACCEPT
- •11.8. Оператор FIND
- •11.9. Оператор DELETE
- •11.10. Оператор UNLOCK
- •11.11. Оператор WRITE
- •11.12. Оператор PRINT
- •11.13. Оператор REWRITE
- •11.14. Оператор INQUIRE
- •11.15. Функция EOF
- •11.16. Организация быстрого ввода/вывода
- •12.1. Некоторые сведения об объектах ActiveX
- •12.2. Для чего нужен конструктор модулей
- •12.3. Интерфейсы процедур управления Автоматизацией
- •12.4. Идентификация объекта
- •12.5. Примеры работы с данными Автоматизации
- •12.5.1. OLE-массивы
- •12.5.2. BSTR-строки
- •12.5.3. Варианты
- •12.6. Другие источники информации
- •12.7. Как воспользоваться объектом ActiveX
- •12.8. Применение конструктора модулей
- •12.9. Пример вызова процедур, сгенерированных конструктором модулей
- •Приложение 1. Вывод русского текста в DOS-окно
- •Приложение 2. Нерекомендуемые, устаревшие и исключенные свойства Фортрана
- •П.-2.1. Нерекомендуемые свойства Фортрана
- •П.-2.1.1. Фиксированная форма записи исходного кода
- •П.-2.1.2. Оператор EQUIVALENCE
- •П.-2.1.3. Оператор ENTRY
- •П.-2.1.4. Вычисляемый GOTO
- •П.-2.1.5. Положение оператора DATA
- •П.-2.2. Устаревшие свойства Фортрана, определенные стандартом 1990 г.
- •П.-2.2.1. Арифметический IF
- •П.-2.2.2. Оператор ASSIGN присваивания меток
- •П.-2.2.3. Назначаемый GOTO
- •П.-2.2.4. Варианты DO-цикла
- •П.-2.2.5. Переход на END IF
- •П.-2.2.6. Альтернативный возврат
- •П.-2.2.7. Дескриптор формата H
- •П.-2.3. Устаревшие свойства Фортрана, определенные стандартом 1995 г.
- •П.-2.4. Исключенные свойства Фортрана
- •Приложение 3. Дополнительные процедуры
- •П.-3.1. Запуск программ
- •П.-3.2. Управление программой
- •П.-3.3. Работа с системой, дисками и директориями
- •П.-3.4. Управление файлами
- •П.-3.5. Генерация случайных чисел
- •П.-3.6. Управление датой и временем
- •П.-3.7. Ввод с клавиатуры и генерация звука
- •П.-3.8. Обработка ошибок
- •П.-3.9. Аргументы в командной строке
- •П.-3.10. Сортировка и поиск в массиве
- •П.-3.11. Управление операциями с плавающей точкой
- •Литература
- •Предметный указатель
- •Оглавление
11. Операции над внешними файлами
11.8. Оператор FIND
Оператор устанавливает прямой файл на запись rec и заносит в ассоциируемую переменную файла номер rec. Имеет две формы:
FIND([UNIT =] u, REC = rec [, ERR = err] [, IOSTAT = iostat])
и
FIND(u'rec [, ERR = err] [, IOSTAT = ios])
Описание спецификаторов см. в разд. 11.6.
11.9. Оператор DELETE
Удаляет запись rec в связанном файле.
DELETE([UNIT =] u [, REC = rec] [, ERR = err] [, IOSTAT = iostat])
Описание спецификаторов см. в разд. 11.6.
Оператор логически удаляет заданную запись из файла, помечая ее как удаленную, и освобождает эту запись для занесения новых данных. При удалении записи, если не возникло ситуации ошибки, ассоциируемая переменная файла получает значение rec + 1. Если спецификатор REC не задан, то удаляется текущая запись.
Пример для FIND и DELETE:
integer(4) ios, asv character(8) :: st = 'A record'
! Создадим прямой файл с тремя записями
open(1, file = 'c.dat', access = 'direct', form = 'formatted', recl = 9,& status = 'new', associatevariable = asv, organization = 'relative')
write(1, '(a8)', rec = 1) st; write(1, '(a8)', rec = 2) st; write(1, '(a8)', rec = 3) st
find(1, rec = 2) |
! или: find(1'2) |
|
print *, asv |
! |
2 |
delete(1, rec = 2) |
|
|
print *, asv |
! |
3 |
read(1, rec = 2, iostat = ios) st |
|
|
if(ios /= 0) then |
|
|
print *, 'Error' |
|
|
else |
|
|
print *, st |
! Напечатает пустую строку |
|
end if |
|
|
end |
|
|
11.10. Оператор UNLOCK
Освобождает запись в связанном файле или в файле с последовательной организацией, заблокированную предшествующим оператором READ. Имеет две формы:
UNLOCK u
365
О. В. Бартеньев. Современный ФОРТРАН
и
UNLOCK([UNIT =] u [, ERR = label] [, IOSTAT = iostat])
Описание спецификаторов см. в разд. 11.6.
Если нет заблокированной записи, оператор игнорируется.
11.11. Оператор WRITE
Оператор передает данные из списка вывода в файл, подсоединенный к устройству u. В CVF в случае прямого файла изменяет ассоциируемую переменную файла, указанную в соответствующем операторе OPEN.
WRITE([UNIT =] u [, [[FMT =] fmt] | [[NML =] nml] |
& |
[, ADVANCE = advance] [, ERR = err] |
& |
[, IOSTAT = iostat] [, REC = rec]) [iolist] |
|
u - устройство В/В (разд. 10.2 и 10.3). Вывод |
будет выполняться |
на экран, если в качестве устройства использована звездочка (*).
Если устройство не было подсоединено к файлу, то при выводе будут
выполнены действия, задаваемые оператором: |
|
OPEN(u, FILE = ' ', STATUS = 'UNKNOWN', |
& |
ACCESS = 'SEQUENTIAL', FORM = form) |
|
где form вычисляется со значениями 'FORMATTED' (при форматном вводе) и 'UNFORMATTED' (при неформатном). Если имя файла включено в запускающую программу командную строку, то это имя будет использовано для имени файла. В противном случае программа попросит ввести имя файла с клавиатуры.
fmt - спецификатор формата. При неформатном или двоичном вводе параметр fmt должен быть опущен. Вывод будет управляться списком, если в качестве fmt использована звездочка. Управляемый списком вывод возможен только в последовательные текстовые файлы.
nml - спецификатор именованного списка. При выводе именованного списка iolist должен быть опущен. Управляемый именованным списком вывод может быть выполнен только в файлы, открытые для последовательного доступа.
advance - символьное выражение, позволяющее задать продвигающийся или непродвигающийся последовательный форматный вывод и вычисляемое со значениями 'YES' или 'NO'. Значение 'YES' задается по умолчанию и означает, что задан продвигающийся вывод, т. е. после выполнения каждого оператора вывода проставляются символы конца записи и файл позиционируется вслед за проставленными символами. При непродвигающемся В/В (ADVANCE='NO') символы конца записи не проставляются и файл оставляется вслед за последним выведенным символом.
366
11. Операции над внешними файлами
err - метка исполняемого оператора. При возникновении ошибки В/В управление передается на оператор, имеющий метку err.
iostat - целочисленная переменная, возвращающая 0 при отсутствии ошибок или номер возникшей ошибки.
rec - целочисленное выражение, возвращающее положительное число, называемое номером записи. Параметр rec может быть задан только при работе с файлами прямого доступа (иначе возникнет ошибка В/В). Параметр rec указывает на запись, в которую будут переданы данные при выполнении оператора WRITE. В FPS по умолчанию значение rec равно номеру текущей записи файла. И если при вводе из прямого файла параметр отсутствует, то будет изменена текущая запись файла. В CVF при работе с прямыми файлами наличие спецификатора REC обязательно.
iolist - список вывода, содержащий выражения, результаты которых должны быть переданы в файл.
При записи в последовательный файл все записи, расположенные после введенной, удаляются (при наличии таковых) и файл позиционируется перед записью "конец файла". Таким образом, после вывода в последовательный файл необходимо применить BACKSPACE или REWIND для выполнения оператора READ. Препятствий для применения оператора WRITE, однако, нет.
11.12. Оператор PRINT
Выводит данные на экран (устройство *). PRINT * | fmt [, iolist]
где fmt - спецификатор формата; iolist - список вывода. Если звездочка замещает fmt, то вывод управляется списком iolist.
11.13. Оператор REWRITE
Замещает в файле прямого доступа текущую запись на новую. В случае прямого файла изменяет ассоциируемую переменную файла, указанную в соответствующем операторе OPEN. При выводе в форматный файл имеет вид:
REWRITE([UNIT =] u, [FMT =] fmt [, IOSTAT = iostat] |
& |
[, ERR = err]) [iolist] |
|
С неформатными файлами употребляется так: |
|
REWRITE([UNIT =] u [, IOSTAT = iostat] [, ERR = err]) [iolist]
Спецификаторы имеют тот же смысл, что и в операторе WRITE. Текущей является запись, на которую установился файл в результате
выполнения предшествующего оператора READ. Причем с устройством u между READ и REWRITE не должны выполняться другие операторы В/В,
367
О. В. Бартеньев. Современный ФОРТРАН
кроме INQUIRE. В противном случае текущая запись окажется неопределенной.
Число символов в списке вывода и задаваемых спецификатором формата не должно превышать длины записи, определяемой спецификатором RECL оператора OPEN. Если же число передаваемых символов меньше длины записи, то недостающие символы восполняются пробелами.
Пример:
type person |
|
character(len = 15) lastn, firstn |
|
end type person |
|
integer ios |
|
100 format(2a15) |
|
open(3, file = 'a.txt', form = 'formatted', access = 'direct', recl = 30) |
|
! Создадим две записи |
|
write(3, fmt = 100, rec = 1) person('Blake', 'William') |
|
write(3, fmt = 100, rec = 2) person('Maugham', 'W. Somerset') |
|
read(3, fmt = 100, rec = 1) |
! Текущей является запись 1 |
rewrite(3, 100, iostat = ios) person('Byron', 'G. Gordon') |
|
if(ios /= 0) print *, ' Rewriting error' |
|
end |
|
11.14. Оператор INQUIRE
Возвращает свойства устройства или внешнего файла. Форма оператора опроса файла:
INQUIRE(FILE = file [, ERR = err] [, IOSTAT = iostat] |
& |
[, DEFAULTFILE = def], slist) |
|
Форма оператора опроса устройства: |
|
INQUIRE([UNIT =] u [, ERR = err] [, IOSTAT = iostat], slist) |
|
Форма оператора опроса списка вывода: |
|
INQUIRE(IOLENGTH = iolength) [iolist] |
|
file - символьное выражение, задающее имя файла, информацию о котором возвращает оператор INQUIRE.
u - устройство внешнего файла (разд. 10.2), о котором необходимо получить информацию. Если задано UNIT = *, то нельзя включать спецификатор NUMBER.
В операторе INQUIRE можно задать либо параметр u, либо file, но не одновременно и то и другое. Если задан параметр u, то выполняется опрос устройства. Если задан file, то выполняется опрос файла.
def - скалярное символьное выражение, задающее используемый по умолчанию путь к открываемому файлу. Если завершающий слеш (/) опущен, то он будет добавлен. Если спецификатор DEFAULTFILE отсутствует, то используется текущая рабочая директория.
368
11. Операции над внешними файлами
Если в INQUIRE присутствует спецификатор DEFAULTFILE, то он должен быть и в соответствующем операторе OPEN. Спецификатор DEFAULTFILE = def может быть задан в дополнение или вместо спецификатора FILE = file. И file и def могут начинаться с тильды (~).
iolength - переменная стандартного целого типа, возвращающая размер списка вывода. Эта форма оператора INQUIRE включает только спецификатор IOLENGTH= и список вывода iolist. Все другие спецификаторы должны отсутствовать. Список iolist во всех других случаях отсутствует. Например:
real :: r = 1.1, a(100) = 2.2 |
|
|
integer :: iol, kar(50) = 5 |
|
|
character(25) :: st(25) = 'abcd' |
! iol - размер списка вывода |
|
inquire(iolength = iol) r, a, kar, st |
||
print *, iol |
! |
1229 |
Полученное значение можно использовать, например, для задания спецификатора RECL оператора OPEN. Затем данные можно передать в открытый неформатный файл прямого доступа.
slist - один или более спецификаторов из следующего списка:
[, ACCESS = access] [, ACTION = action] [, BINARY = binary] |
& |
[, BLANK = blank] [, BLOCKSIZE = blocksize] |
& |
[, BUFFERD = bf*] [, CARRIAGECONTROL = carriagecontrol] |
& |
[, CONVERT = fm*] [, DELIM = delim] [, DIRECT = direct] |
& |
[, ERR = err] [, EXIST = exist] [, FORM = form] |
& |
[, FORMATTED = formatted] [, IOFOCUS = iofocus] |
& |
[, IOSTAT = iostat] [, MODE = mode] [, NAME = name] |
& |
[, NAMED = named] [, NEXTREC = nextrec] [, NUMBER = num] |
& |
[, OPENED = opened] [, ORGANIZATION = org*] [, PAD = pad] |
& |
[, POSITION = position] [, READ = read] [, READWRITE = readwrite] & [, RECL = recl] [, RECORDTYPE = rtyp*] [, SEQUENTIAL = seq] & [, SHARE = share] [, UNFORMATTED = unformatted] [, WRITE = write])
Замечание. Отмеченные звездочкой параметры применимы только в CVF.
access - символьная переменная. Возвращает 'APPEND', если заданное устройство или файл открыты для добавления данных. Возвращает 'SEQUENTIAL', если устройство или файл открыты для последовательного доступа, и возвращает 'DIRECT', если устройство или файл открыты для прямого доступа. Возвращает 'UNDEFINED' при отсутствии подсоединения.
action - символьная переменная, возвращающая 'READ', если файл открыт только для чтения, или 'WRITE', если файл открыт только для записи, или 'READWRITE', если файл подсоединен как для чтения, так и для записи. Возвращает 'UNDEFINED' при отсутствии подсоединения.
369
О. В. Бартеньев. Современный ФОРТРАН
binary - символьная переменная. Возвращает 'YES', если файл или устройство опознаны как двоичные, и 'NO' или 'UNKNOWN' - в противном случае.
blank - символьная переменная. Возвращает 'NULL', если действует дескриптор преобразования BN, и возвращает 'ZERO', если действует дескриптор BZ. Возвращает 'UNDEFINED' при отсутствии подсоединения или если файл открыт не для форматного В/В.
blocksize - переменная стандартного целого типа. Возвращает размер буфера В/В в байтах. Возвращает 0 при отсутствии подсоединения.
bf - символьная переменная. Возвращает 'YES' ('NO'), если файл или устройство подсоединены и действует (не действует) буферизация, или 'UNKNOWN', если файл или устройство не подсоединены.
carriagecontrol - символьная переменная, возвращающая 'FORTRAN', если первый символ форматной записи трактуется как символ управления кареткой, или 'LIST', если первый символ форматных файлов ничем не отличается от других символов записи.
delim - символьная переменная, возвращающая 'APOSTROPHE', если для символьных данных при управляемом списком В/В в качестве ограничителя используется апостроф ('). Возвращает 'QUOTE', если ограничителями являются кавычки ("). Возвращает 'NONE', если ограничитель не задан. Возвращает 'UNDEFINED' при отсутствии подсоединения.
direct - символьная переменная. Возвращает 'YES', если опрашиваемое устройство или файл открыты для прямого доступа, и возвращает 'NO' или 'UNKNOWN' в противном случае.
err - метка исполняемого оператора. При возникновении ошибки управление передается на оператор, имеющий метку err.
exist - логическая переменная; возвращает .TRUE., если опрашиваемое устройство или файл существует, или .FALSE. - в противном случае.
fm - символьная переменная. Возвращает одно из перечисленных в разд. 11.4 для спецификатора CONVERT значений, или 'UNKNOWN', если файл или устройство не подсоединены для неформатной передачи данных. form - символьная переменная. Возвращает 'FORMATTED', если устройство или файл подсоединены для форматного В/В; возвращает 'UNFORMATTED' при неформатном В/В и возвращает 'BINARY' при двоичном
В/В. Возвращает 'UNDEFINED' при отсутствии подсоединения.
formatted - символьная переменная. Возвращает 'YES', если устройство или файл открыты для форматного В/В, и 'NO' - в противном случае. Возвращает 'UNKNOWN', если процессор не может определить, какой В/В разрешен.
iofocus - переменная стандартного логического типа. Возвращает
.TRUE., если заданное устройство (окно приложения QuickWin) находится в фокусе, в противном случае возвращает .FALSE.. Параметр может быть использован только с QuickWin-приложениями.
370
11. Операции над внешними файлами
iostat - переменная стандартного целого типа. Возвращает 0 при отсутствии ошибок, отрицательное число, если возникла ситуация "конец файла", или номер возникшей ошибки.
mode - символьная переменная. Возвращает значения mode или action
('READ', 'WRITE' или 'READWRITE'), заданные для устройства (файла)
оператором OPEN. Возвращает 'UNDEFINED' приотсутствии подсоединения. name - символьная переменная. Возвращает при опросе устройства имя подсоединенного к нему файла. Если файл не подсоединен к устройству или если подсоединенный файл не имеет имени, значение переменной name не определено. При опросе файла name возвращает заданное имя файла. named - логическая переменная. Возвращает .TRUE., если файл имеет
имя, и .FALSE. - в противном случае.
nextrec - переменная стандартного целого типа. Возвращает номер следующей записи в файле прямого доступа. Номер первой записи файла равен единице.
num - переменная стандартного целого типа. При опросе файла возвращает номер подсоединенного к файлу устройства. Если к файлу не подсоединено устройство, значение переменной num не определено. При опросе устройства переменная num возвращает номер опрашиваемого устройства. Если задано UNIT = *, то нельзя включать спецификатор NUMBER.
opened - логическая переменная, возвращающая при опросе устройства
.TRUE., если какой-либо файл подсоединен к устройству, и .FALSE. - в противном случае. При опросе файла возвращает .TRUE., если файл подсоединен к какому-либо устройству, и .FALSE. - в противном случае. org - символьная переменная, возвращает значение 'SEQUENTIAL', если файл имеет последовательную организацию, 'RELATIVE', если - связанную, или 'UNKNOWN', если процессор не может определить вид организации
файла.
pad - символьная переменная, возвращающая 'YES', если файл открыт с PAD = 'YES', и 'NO' - в противном случае.
position - символьная переменная, возвращающая 'REWIND', если файл позиционирован в своей начальной точке. Возвращает 'APPEND', если файл расположен в своей конечной точке перед записью "конец файла". Возвращает 'ASIS', если файл подсоединен без изменения позиции. Возвращает 'UNDEFINED' при отсутствии подсоединения или если файл подсоединен для прямого доступа.
read - символьная переменная, возвращающая 'YES', если файл открыт для чтения, и 'NO', если из файла нельзя вводить данные. Возвращает 'UNKNOWN', если процессор не может определить, разрешается ли читать из файла.
readwrite - символьная переменная, возвращающая 'YES', если файл открыт как для чтения, так и для записи, и 'NO', если нельзя выполнять
371
О. В. Бартеньев. Современный ФОРТРАН
чтение или запись. Возвращает 'UNKNOWN', если процессор не может определить, разрешается ли использовать файл и для чтения и для записи.
recl - переменная стандартного целого типа. Возвращает длину записи (в байтах) файла прямого доступа. Если файл подсоединен для неформатной передачи данных, возвращаемое число байт зависит от используемой операционной системы.
rtyp - символьная переменная. Возвращает одно из перечисленных
вразд. 11.4 для спецификатора RECORDTYPE значений, или 'UNKNOWN', если файл или устройство не подсоединены.
seq - символьная переменная. Возвращает 'YES', если файл подсоединен для последовательного доступа, и'NO' или'UNKNOWN' - в противном случае.
share - символьная переменная. Возвращает значение статуса share,
заданного файлу оператором OPEN: 'COMPAT', 'DENYRW', 'DENYWR', 'DENYRD' и 'DENYNONE'. При опросе устройства, если к устройству не подсоединен файл, значение переменной share не определено.
unformatted - символьная переменная. Возвращает 'YES', если файл открыт для неформатной передачи данных, и 'NO' - в противном случае. Возвращает 'UNKNOWN', если процессор не может определить, какой В/В разрешен.
write - символьная переменная, возвращающая 'YES', если файл открыт для записи, и 'NO', если в файл нельзя выводить данные. Возвращает 'UNKNOWN', если процессор не может определить, допустимо ли выводить
вфайл данные.
Оператор INQUIRE возвращает значение атрибутов, с которыми файл был открыт. Свойства неоткрытых файлов не могут быть возвращены оператором. Если некоторые атрибуты не заданы, то оператор возвращает установленные для них по умолчанию значения.
В качестве применяемых в операторе INQUIRE переменных могут быть использованы простые переменные, элементы массивов и компоненты производных типов.
Если при опросе устройства ключевое слово UNIT= опущено, то параметр u должен идти первым. Другие параметры могут располагаться в произвольном порядке, но не должны повторяться.
Пример:
character(25) :: st(25) = ' '
open(1, file = 'a.txt', action = 'write', position = 'append') write(1, *) st
rewind 1
inquire(1, name = st(1), action = st(2), blank = st(3), position = st(4)) print *, (trim(st(i)), ' ', i = 1, 4) ! a.txt WRITE NULL REWIND
372