Работает SYDAK

10 views

Skip to first unread message

Leo B.

unread,

Jul 12, 2022, 7:41:45 PM7/12/22

to БЭСМ-6

В книге Мазного про МС "Дубна" в разделе 6.1.4 Использование динамической памяти в языке фортран
описана подсистема SYDAK (SYstem DAta Keeping), предназначенная для хранения большого объёма числовых данных в собственной динамической памяти объёмом до 256 К.

Я всю сознательную жизнь мечтал попробовать, как это работает, но то руки не доходили (на ВЦ АН), то оказывалось, что система отсутствует в организации (в ИТМ и ВТ). Наконец, руки дошли. На диске 2048 из ИТМ и ВТ SYDAK-а, как и ожидалось, нет, а на диске из С. Бора - есть, в *library:2.

Попробуем объявить массив размером 500х500 слов, расписать его элементы (i, j) значениями i*j, а потом проверить, правильно ли получилось.

Работает это так:

*NАМЕ
*LIВRА:2
*САLL СRЕАТЕ*
ВIG(500,500) { так объявляется большой массив }
*ЕND SЕGМЕNТ { в результате создается процедура DRUMCAT с описанием массивов }

Ф О Р Т Р А Н
/16.07.73/
РRОGRАМ МАIN
СОММОN IР(1) { база для работы с массивами }
DО 10 I= 1,500
2 САLL GIVЕ(’ВIG’, I, L) { запрашиваем строку I, в L будет смещение к базе}
3 DО 20 J=1,500
4 20 IР(L+J) = I*J { фактически BIG(I, J) = I*J }
5 САLL ТАКЕ(’ВIG’, I) { закончили работу со строкой I, будет упрятана на барабан когда надо }
6 10 СОNТINUЕ
7 К = 0
8 КК = 0
9 DО 30 I = 1,500
10 САLL GIVЕ(’ВIG’, I, L)
11 DО 40 J=1,500
12 К = К + I*J
13 КК = КК + IР(L+J)
14 40 СОNТINUЕ
15 САLL ТАКЕ(’ВIG’, I)
16 30 СОNТINUЕ
17 РRINТ 50,К,КК
50 FОRМАТ(1Х2I15)
ЕND

*ЕХЕСUТЕ
ОТ 18.01.79 ==
ПОДПРОГРАММЫ ИЗ БИБЛИОТЕКИ 02 04.10.84 М1
ТАКЕ GIVЕ SТАТISТ SDRUМ* GIVЕSТRN РRIОRIТУ ЕХСНАNGЕ WRSЕСТ*
NЕХТSЕСТ
ОТ 18.01.79 ==

15687562500 15687562500

Кто-нибудь их присутствующих этим судаком когда-нибудь польовался?