ГОСТ 25645 115—84 С.23
FSH — значение индекса F8b
D — время московское в сутках от начала года,
PR — если PR>0, то при обращении к программе параметру АР присваива
ют значение Кр , если PR<0, то параметру АР присваивают значение Ар и оно
переводится в Кр внутри программы (подпрограмма INTERP (АР, КР))
Выходные параметры
RO — плотность атмосферы, кг/м5;
RU — плотность атмосферы, кгс*с2/м4
5 Используемые блоки COMMON
Программа DENSIT использует три общих блока
COMMON/QKOEF/Q(27,3) /YEAR/P(38)
COMMON/UKOEF/U(8,4), GR, WZ, в которых должны содержаться все
необходимые для вычисления константы для фиксированного уровня солнечной
активности F0
6 Описания параметров блоков COMMON
Q — двумерный массив размерности 27X3, содержащий коэффициенты мо дели
плотности атмосферы для одного из фиксированных уровней F0 Первые
элементы каждого столбца равны F0, далее следуют коэффициенты модели нас
тоящего стандарта в соответствии с табл 1, 2 и 3 п 18, причем в первом столб
це находятся коэффициенты для диапазона высот от 120 до 180 км, во втором
— от 180 до 600 км, а в третьем — от 600 до 1500 км
Р — массив, содержащий значения поправок полугодового эффекта из табл.
4 п I 8 настоящего стандарта, длина массива равна 38,
U — двумерный массив размерности 8X4, содержащий коэффициенты таб
лицы, WZ—0 7292115-10—4(угловая скорость вращения Земли, рад/с), GR=
—9 80665 кг/м3
5 6
(Измененная редакция, Изм. № 1).
7 Для присвоения нужных значений переменным из упомянутыхобщих
блоков следует воспользоваться подпрограммой VKM(FSH)
CALL VKM(FSH)
Подпрограмма VKM(FSH) находит ближайшее к FSH значение F0 и засы
лает соответствующие этому Fo значения констант в COMMON блоки програм
мы DENSIT