      program SEQPOS
      integer UNIT
      parameter (UNIT = 1, NBACK = 2)
      character*80 STRING
      open(UNIT, file='indat.txt')

c     Определение числа записей NREC в файле
      NREC = 0
      do 
        read(UNIT, *, iostat = IOS) STRING
        if(IOS .ne. 0) exit ! попытка чтения за "концом файла"
        NREC = NREC + 1
      enddo

c     Печать запись с номером NBACK, считая от конца файла 
      do i = 1, NBACK+1 ! "конец файла" это тоже запись, поэтому +1
        backspace UNIT
      enddo
      read(UNIT,*) STRING
      print*, STRING

c     Установить смвол конца файла в текущей позиции файла
      endfile UNIT

c     Пепечать первую запись файла 
      rewind UNIT
      read(UNIT,*) STRING
      print*, STRING

      close(UNIT)
      end

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

Начало файла совпадает с началом его первой записи. При открытии (или создании) позиция установится в начало файла.

Файлы прямого доступа позиционируются через указание номера записи (спецификатор REC в опрераторах ввода/вывода).

Для файлов последовательного доступа переход к следующей записи происходит после чтения текущей записи, переход к предыдущей (только что прочитанной) осуществляется оператором BACKSPACE, которому, в качестве параметра указывается номер устройства, связанного с файлом.

Если файл позиционирован в начало, то оператор BACKSPACE не вызовет ни каких изменений. Если файл позиционирован внутри текущей записи, то BACKSPACE позиционирует его в начало текущей записи.

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

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

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

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

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

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

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

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

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

Циклы.

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

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

ПОЗИЦИОНИРОВАНИЕ ФАЙЛА.

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