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

Подпрограмма ввода данных.
subroutine vvod
! объявление модуля obmen с общими данными.
use obmen
! объявление символьных переменных с именами входного и выходного файлов
! CFIL1 и CFIL2. Одновременно этим переменным присваиваются начальные
! значения.
character (len=80)::CFIL1=' ', CFIL2='a.txt'
! объявление и ввод символьной переменной help для отображения текста, который
! будет выведен в отдельное окно при нажатии кнопки Help
character (len=50)::help=&
'программа расчета переходного процесса в RLC-цепи'
! объявление внешней подпрограммы с именем ROUTINE, в которой будет
! обработана информация из входного файла с данными.
external ROUTINE
! установка окна ввода в центре экрана.
CALL SWGOPT('center','position')
! вывод строки при нажатии help.
CALL SWGHLP (help)
! инициализация основного окна с идентификационной переменной IP. Дочерние
! виджеты будут располагаться горизонтально.
CALL WGINI ('HORI', IP)
! установка ширины виджетов.
CALL SWGWTH (25)
! установка в основном окне виджета c идентификатором ip1 с возможностью
! вертикального расположения дочерних виджетов.
CALL WGBAS(ip,'VERT',ip1)
!установка высоты виджета рисунка в долях ширины виджета
CALL SWGDRW(0.6)
!установка новой ширины виджетов. Отрицательное число в параметре программы
! указывает на то, что ширина устанавливается в процентах ширины экрана.
CALL SWGWTH (-20)
!установка в основном окне новый виджет c идентификатором ip2, с вертикального
! расположения дочерних виджетов.
CALL WGBAS(ip,'VERT',ip2)
!объявление цикла do для ввода в виджетов с данными
do i=1, kolpar
! вывод виджетов с надписями и текстовых виджетов для исходными данными.
! Для надписей используется ранее объявленный массив Labl(7). 70% ширины
! виджетов будет отведено для ввода цифр, остальные 30% для надписей.
CALL WGLTXT(IP1, labl(i), texts(i), 70, idtext(i))
end do
! выводит виджет с надписью для открытого файла.
CALL WGLAB (IP2, 'открытый файл:', ID2)
! выводит надпись в главное меню при развороте кнопки File. На кнопке будет
! написано 'открыть файл'. После нажатия на эту кнопку появится окно с
! предложением открыть файл. При этом будет указана маска *.txt для вводимых
! файлов. Имя введенного файла и путь к нему будут сохранены в
! переменной CFIL1. Имя и путь будут отображены в виджете с идентификатором
! ID_FIL. Этот виджет будет расположен сразу под надписью 'открытый файл'.
CALL WGFIL (IP2, 'открыть файл', CFIL1, '*.txt', ID_FIL)
! вызов подпрограммы вторичного вызова с именем ROUTINE. П/программа
ROUTINE
150