Программа расчёта динамических характеристик ИДМ. 
Явная СДУ

В соответствии с блок-схемой алгоритма (рис. 1.31) на рис. 1.34 показана структура вызовов главной программы (её имя MAIN) и подпрограмм. Подпрограммы, имена которых вписаны в рамки из точек, — из математической библиотеки IMSL, в рамки из сплошных линий — написаны автором пособия, и являются частью фонда программ кафедры.

Рис. 1.34.

Комплекс программ включает в себя рассмотренные ранее подпрограммы:

в п. 1.2.2.6. REAVZI ;

в п. 1.2.4.1. — RAZBIVKA, KRD_PLOSK_KAT, lndMWtk_qq; в п. 1.2.4.2. — lndKat_plosk_q, Vzi_WW_hor_q; в п. 1.2.4.3. — VzilndMassWtk, VziKK; в п. 1.2.6.2. — GRF_TXT.

Тексты главной программы MAIN и подпрограмм: FCN, ParameterJDM, C_serialRL, FCN2, CalculatingSpline, приведены ниже.

Главная программа и все подпрограммы производят вычисления с двойной точностью.

Программа MAIN и пп FCN обе помещены в один файл с именем MAIN. F90. Подпрограммы ParameterJDM, C_serialRL и FCN2 также помещены в один файл с именем ParameterJDM. F90.

Переменные, использованные в программе, описаны в модуле с именем DESCRIBE. Этот модуль позволяет передавать переменные из одной в другую подпрограммные единицы и обратно (см., например, программу MAIN и пп CalculatingSpline) а также не описывать отдельно переменные в той программной единице, где он объявлен.

Главная программа читает исходные данные из файла данных. Имя этого файла MAIN.DAT. Ниже представлен текст этого файла. Для удобства задания исходных данных вслед за знаком комментария ‘!' дано наименование переменной, связанной с её обозначением. Численные значения переменных, указанных в файле, взяты теми же, что и в трёх задачах, рассмотренных ранее. Файл может корректироваться пользователями, но своему усмотрению и для своих исходных данных. Исходные данные помещены в список имён, который имеет своё имя LST.