ГОСТ 25645.134-66 Стр. 5
0002
0003
0004
0005
0006
0007
0008
0009
0010
ООП
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
ПРИЛОЖЕНИЕ I
Справочное
Программа расчета плотности потока энергии
фонового солнечного рентгеновского излучения(FF)
и плотности потока фотонов фонового солнечного
рентгеновского излучения N
q
(NF)
ОС
КС FORTRAN
0001
ST 56-02-79MAIN
1 FORMAT (2X,///2X,50(1H » )/
22X.’*’,12X,’ *’,2(I7X,‘* ’)/
22Х., .-,4Х.Т10,7-, ЗХ /. \ 7X .TF.8X/. \ 7X/NP1,
8Х,‘•7
22Х,’* М2Х.’ *’.36Н МКВТ НА КВ.МЕТР *ФОТОН
НА КВ.СМ * /
22Х/ ♦ I2X,’ .’,2(17Х/ ♦’ )/2Х,50(1Н • ))
2 FORMAT (2Х/ *’.4Х.14.4Х,’ • ’,2(4Х,Е9.2,4Х,‘ • ’))
3 FORMAT (2Х,50(1Н * ))
9 FORMAT (2Х.\* \ I2X,’ *’,2(17Х/»*))
PRINT 1
N=60
М-150
10 DO 7 I-N.M .5
IF (1-69.99) 4.5.5
4 Х= 1. Е—3
GO ТО 6
5 Х=.38. (.0184.1-1.2)* «2.17
6 RN=3.5E+5*X
PRINT 9
7 PRINT 2.I.X.RN
PRINT 9
PRINT 3
PRINT 1
JF(M.EQ.250) GOTO II
N=155
M-250
GOTO 10
11 STOP
END