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

Модуль общих переменных и основная программа
module obmen
!общие данные для ввода
integer , parameter :: kolpar=7
real :: vhod(kolpar)=0.
character (len=6)::Labl(kolpar)=& !Символ & - символ переноса строки.
[ 'R1= ','R2= ','L= ','C= ','E= ','dt= ','Tsum= ' ]
character (len=15)::texts(kolpar)='1 '
integer ::idtext(kolpar)=0, ios=0
!общие данные для расчета и отображения графиков
integer , parameter :: kolgr=2, nsum=10000
integer nt
real :: iLgr(nsum)=0., Ucgr(nsum)=0., t(nsum)=0.
end module obmen
program rc
! подключение модуля obmen ,теперь переменные этого модуля становятся
! доступными в других программах.
use obmen
! ввод значения промежуточной переменной ipovtor =1. Пока эта переменная равна 1
! будет производится повторение ввода данных для вариантного счета.
ipovtor=1
do while (ipovtor==1) ! цикл повторения расчета
call vvod ! вызов подпрограммы ввода данных
call obrabotka ! вызов подпрограммы расчета
call vyvod ! вызов подпрограммы вывода результатов
! подпрограмма dwgbut библиотеки DISLIN выводит окно с 2-мя кнопками: OK и NO
! и надписью с вопросом 'повторить расчет?'. В зависимости от того,
! какая кнопка нажата, переменной ipovtor будет присвоена 1, если нажата кнопка
! ОК или 0, если нажата кнопка NO.
call DWGBUT ('повторить расчет?', ipovtor)
end do ! конец цикла повторения расчета
end program rc
Рассмотрим программу ввода данных. В ней используются подпрограммы
библиотеки DISLIN. При использовании библиотеки DISLIN
для создания оконного интерфейса надо обращаться к соответствующим
подпрограммам этой библиотеки в определенном порядке. Основной
единицей окна системы Windows (или windows-окна) является виджет
(widget). Виджетом может быть надпись, кнопка, окно для ввода текста
и т.п. Подпрограммы DISLIN, работающие с виджетами делятся на 4
основные группы. Подпрограммы, начинающиеся с символов WG создают
виджеты, начинающиеся с символов SWG устанавливают параметры
виджетов, начинающиеся с символов GWG считывают параметры виджетов,
начинающиеся с символов DWG создают диалоговые виджеты.
Кроме того, имеются ряд дополнительных подпрограмм. Структура расположения
основных подпрограмм следующая:
подпрограммы диалога
CALL WGINI
подпрограммы установки параметров виджетов,
148