В ЭТОМ приложении приведен ряд подпрограмм, которые можно использовать для решения очень большого числа уравнений при ограниченной максимальной половине ширины ленты. Эти подпрограммы несовместимы с описанными ранее.
Как уже отмечалось в последней части подразд. 20.5.1, составление ансамбля и исключение выполняются параллельно и исключение жесткостных уравнений узла осуществляется сразу же после их составления. Подпрограмма SOLV используется для построчного исключения (число строк равно числу степеней свободы узла), а подпрограмма BSUB - для осуществления обратного хода, при котором вычисляются и реакции в граничных точках. Подпрограммы STORE и RDBK -две небольшие подпрограммы для запоминания и считывания модифицированных уравнений. Эти модифицированные уравнения не записываются по мере их составления на ленту, а временно хранятся во внешней памяти и записываются в виде блока при заполнении памяти. Подпрограмма INIT образует индексы, необходимые в вышеупомянутых подпрограммах. Она вызывается перед началом решения задачи.
а) Блок-схема подпрограммы 1NIT
Начало
Образование контрольных переменных
Вычисление длины записи
Возврат в основную программу
б) Блок-схема подпрограммы STORE
Начало
Проверка места во внешней памйти
Переписка данных ио памяти на ленту
Возврат в исходное положение счетчика индексов
Последовательная запись уравнений и граничных переменных вовнешнюю память с соответствующими индексами
Возврат в основную программу
в) Блок-схема подпрограммы RDBK
Начало
Проверка, находится ли еще запись во внешней ламяти
Прокручивание ленты в обратном HanpaCj нии и считывание в новый блок
Возврат в исходное положение счетчика индексов
Считывание уравнения, граничных переменных и соответствующих индексов
