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

CALL ENDGRF; CALL DISFIN
! вывод кнопок OK и QUIT
CALL WGOK (IP, ID_OK); CALL WGQUIT (IP, ID_Q)
! завершение работы библиотеки вывода виджетов
CALL WGFIN
return ! выход из подпрограммы
end subroutine vyvod ! завершение подпрограммы
Рассмотренные команды библиотеки DISLIN далеко не полностью исчерпывают
все ее возможности. Отметим только еще две команды. Если
требуется вручную задать масштабы осей, то при обращении к п/программе
GRAF требуется указать 8 параметров. Минимальное и максимальное
значение по оси Х, минимальное и максимальное значение
шкалы сетки по оси Х, минимальное и максимальное значение по оси У
и минимальное и максимальное значение сетки по оси У. При этом рекомендуется
указывать с помощью п/программы LABDIG число цифр
после десятичной точки. Например:
call LABDIG(3,'Y')
call GRAF(Xmin, Xmax, Xmin,Xmax/5,Ymin, Ymax, Ymin,Ymax/5.),
где значения Xmin Xmax Ymin Ymax должны быть определены заранее,
а для оси Y будет отображаться 3 цифры после десятичной точки.
Приведем теперь текст модуля для преобразования знаков латинского
алфавита в русский алфавит, предназначенный для библиотеки DISLIN.
Здесь следует отметить, что ряд знаков для преобразования не входят в
латинский шрифт. Приведем полные списки соответствия:
a b c d e f g h i j k l m n o p q r s t u v w x y z { } < > ~ | =
а б э д й ф г ж и ч к л м н о п ш р с т ю в ш х у з е ц ъ ь я ё ы
A B C D E F G H I J K L M N O P Q R S T U VWX Y Z [ ] $ & ^ \ %
А Б Э Д Й Ф Г Ж И Ч К Л М Н О ПШ Р С Т ЮВ ШХ У З Е Ц Ъ Ь Я Ё Ы
Модуль преобразования алфавита
module Convert
integer, private, parameter:: StrLen=400
contains
function conv(String)
character (len=StrLen):: conv
character (len=*), intent(in):: String
integer, dimension (192:255):: rusm
data rusm /&
65, 66, 86, 71, 68, 91, 72, 90, 73, 69, 75, 76, 77, 78, 79, 80, 82, 83, 84, &
89, 70, 88, 93, 74, 81, 87, 36, 37, 38, 67, 85, 94, &
97, 98, 118, 103, 100, 123, 104, 122, 105, 101, 107, 108, 109, 110, 111, 112, &
114, 115, 116, 121, 102, 120, 125, 106, 113, 119, 60, 61, 62, 99, 117, 126/
character (len=1) Sym
conv=String
do i=1, len_trim (String)
Sym=conv(i:i); indexs=ichar (Sym)
if (indexs==184) then
Sym=char(124)
157