(Продлгжеяиеизменения№ /кГОСТ25645139—66)
II . На высотах менее 1000 км величину плотности потоков электроне»» ллм
Промежуточных значений высотопределяют с иСПО
Л
МОНаг .см прог рпчмного обес
печении. прицеленного п приложении 2
В приложении 3 приведен порядок расчета усредненных плотностей потоков
электронов на высотах менее 1000 км*
Стандартдополнить приложениями — 2. 3
«
ПРИЛОЖЕНИИ 2
CnpilttO’INOt?
Программа ятя определения плотностей потоков электронов в точке с
произвольными географическими координатами и высотой
DIMENSION ELM(2I, 36, IS). FLL{7), 8(3)
REALGLAT(19).
GLON<37).
ALT.
LAT.
LON.
EN(7)
DATA
EN/40
.
100..
300..
600..
900.1200
.
2000/
DATAGLAT/-90..
-30..
-70..
-60.,
-50
.
-40..
-30
.
-20.,
&
10..
0..
10.,
20.,
30..
40,,
50.60.70..
SO..
90./
DATAGLON/-180..
-170..
*160.,
-150..
-140.,
-130,
A
-120
.
-110.,
-100..
-90,
-SO.
-70.
-60,.
-50.
-40..
A
-30
.
-20.
-10..
0.,
10..
20..
30..
40.,
SO.,
60.,
70..
Sc
SO..
90.
100.
110,
120.,
130.
140.
150..
160.
A
170..
180/
C
С ВЫБОР МАКСИМУМА И
Л
И МИНИМУМА 11-
Л
ЕТНЕГО ЦИК
Л
А
WRITE (..I)
IFORMAT^*, ВЫБЕРИТЕ МАКСИМУМ И
Л
И МИНИМУМ’,
А
1х.
(’МАХ’).
З
в
г
C<l)’)/lx.
CMIN-).
ЭОС ’).
(42)’))
READ (...) MIN МАХ
IF (M1NMAX EQ 2) GOTO 2
C
ССЧИТЫВАНИЕ МОДЕ
Л
ЬНЫХ ТАБ
Л
ИЦ Д
Л
Я МАКСИМУМА
С
СД
Л
Я РАБОТЫ ПРОГРАММЫ НЕОБХОДИМЫ ФАЙ
Л
Ы MOD MIN И
СMOD МАХ. СОДЕРЖАЩИЕ СООТВЕТСТВЕННО ЗНАЧЕНИЯ ИЗ
СТАБ
Л
. 5. НАБРАННЫЕ 8 КОМПЬЮТЕРНОМ ФОРМАТЕ (БЕЗ
С ЗНАЧЕНИЙ ШИРОТЫ ИДО
Л
ГОТЫ) И РАЗДЕ
Л
ЕННЫЕ
ССИМВО
Л
ОМ’.*.
OPEN (I. FILE- MOD MAX’. FOR.«^FORMATTED )
DO 10 1-1.21
DO 20 i-1,36
20READ(I
.)
<ELM(I.
J.
К),K-I.I8)
10CONTINUE
CLOSE (1)
GOTO 33
(Продолжениеiv с /62)
6- 515161