Стр. 8 ГОСТ 25645.131—86
ПРИЛОЖЕНИЕ 2
Справочное
1CL(3»
j
0Z (181)AI1(10, 6).A12 0, 36),(22, 101).
SB I (181>. C BI(I81 . SLI (360), CL1(360)
Программа расчета спектральной п.инноои потока фотонов диффузного
галактического излучения
2
DIMENSION IN(10),
).
SBO(IO).
.
)
СВО(Ю).
3
SB(I8I),
(1
CB(181).
0
SL(360).
ДАТА NB. NL/I5, 60/
PI-ATAN(I.)* 6.
A K-P1/18.
SH B -2‘ AIOMB
SU L -10.* AK/NL
NBB=NB+1
N LL-N LH
D(l, I) *0.25
D(l. NLL) —025
10 J=
CONT NU
CONTINUE
DEL—SHB’ SHL
DO 50 1- 1.10
CONTINUE
DO 180 1- 1.36
SLO—SIN(ALO)
DO 170 J - 1.10
BO—(j—1)*AK
CBO(J -COS(BO
A LO = (I-l)*A K
CLO=COS(AI.O)
IF(I.GT.J) GOTO 60
60
SBO(J)
)
—SIN (BO)
)
CONTINUE
B - -
1
*AK
DO°ilO K= I, NB
lE(J.GT.T)
I
GOTO
B
70
SB(K) —S N(B)
CB(K)-COS(B)
CONTINUE
70
AL=3L* AK
D(NBB, I)»-0.25
DfN’BB, NLL) —0.25
DO 10 1—2. NL
D (l,!) —0.5
D(NBB,I)~05
10
CONTINUE
DO 20 I*=2. NB
D(I. D -O S
D(I, N’l.L) *0.5
CONTINUE
DO2, NB
DO 30 J-2.N L
D (l,J)
I
= l,
E
20
IN (I)-(I—!)• 10
50