?????????????? ?????? ? ????????? ?????????? ??????? ?????

CALL GWGTXT (idtext(i),texts(i))
! перевод данных из текстовой формы в числовую. Числовые данные читаются в
! массив вещественного типа vhod(i) посредством оператора чтения из texts(i).
read (texts(i),*) vhod(i)
end do
! проверка, был ли введен текст в строку виджета с именем файла для записи
! данных. Эта строка хранится в переменной CFIL2.
if (CFIL2/=' ') then ! Если строка не пустая, то
! открывается файл с именем, записанным в CFIL2.
! Функция trim отсекает хвостовые пробелы в переменной CFIL2.
open (1, file = trim (CFIL2))
! вывод данных в файл
write (1,'(g10.3)') (vhod(i), i=1,kolpar)
close(1); ! закрывает устройство для вывода в файл.
endif
END subroutine vvod
! подпрограмма вторичного вызова. Имя подпрограммы должно совпадать с именем,
! указанным при обращении в SWGCBK. При открытии подпрограммы указывается
! формальный параметр, в данном случае это переменная IDR. Фактическое
! значение этой переменной равно значению переменной, указанной при обращении
! к SWGCBK в данном случае это значение переменной ID_FIL. Таким образом, в
! подпрограмме будет обработан виджет с именем открытого файла.
SUBROUTINE ROUTINE(IDR)
! подсоединение модуля obmen с общими переменными.
use obmen
! объявление символьной переменной CFIL длиной 80 символов для чтения имени
! файла.
CHARACTER*80 CFIL
! чтение имени файла из виджета с идентификатором IDR (или, что то же с
! идентификатором ID_FIL). Имя файла заносится в переменную CFIL.
CALL GWGFIL(IDR, CFIL)
! открытие файла с именем, записанным в переменной CFIL. Функция trim отсекает
! хвостовые пробелы переменной CFIL.
open (1,file = trim (CFIL))
! чтение данные из открытого файла и запись их в массив vhod(i). При сбое чтения
! переменной ios будет присвоено ненулевое значение. Кроме того, если при чтении
! встретился конец файла, то выполнение программы продолжится с метки 10.
read(1,*, end=10, iostat =ios) (vhod(i),i=1,kolpar)
do i=1,kolpar !цикл для отображения прочитанных из фала данных в окно.
! вывод числовых данных в текстовый массив texts(i)
write (texts(i),*) vhod(i)
! вывод данных из тестового массива в оконные виджеты. Теперь данные,
! прочитанные из файла, отразятся в окне ввода.
CALL SWGTXT (IDTEXT(i), texts(i))
end do ! завершение цикла ввода
close(1) ! закрытие устройства для чтения из файла.
! Здесь проверяется состояние переменной ios.
10 if (ios/=0) then ! Если она не равна 0, то
! производится вывод предупреждения о том, что входной файл пустой.
CALL DWGMSG ('Предупреждение:|входной файл пустой'); endif
END SUBROUTINE ROUTINE ! завершение подпрограммы.
152