Стр. 156
ГОСТ 25645.101— 83
8 11 I f( K f l . E Q * 0 )
•СО ТО Ц 2
М г П Н ( И , К0 )
1 1 2
i r( i s i . e c . o )
•GO ТО 222
В СИСТЕМУ Г д Ц * и ц * С
V •
( М К С , •
’ ’
’ПГРЕ60Д ВЕЛИЧИН Гн» ГI
СО ТО
2
2 22 CONTINUE
FHCFH^FRSI™41*" FH *
Г1
® СИСТЕМУ ЕЛИ«ИЧ ’ТЕХ„ИЧЕСКАЯ. (МКГСО: •
F | s F | « F f t S I
2
CONTINUE
СКОНЕЦ РАСЧЕТ ПО ПОДПРОГРАММЕ <<DEFoRD>>
RETURN-*
ENO
С б ’ ? ? в л л в ! 1 ! 1 л ! ! ! ; ^ л Л!;пЛП* Л Л Я Г Л Л л л л Л л л я Л л Л п л -п г л л л ^ л л п л л л т . л л л л л л л я л л л л л л л л п я
Сб.соооооробооосбобооооолосооооооо^АоооооооФоооооРоооолоосоооооооосоооо
С б
. 0 0
*
С7400
?
,
,
ПОДПРОГРАММА
<<<
С.
И.
О
.I
с
Е
>>>
о
q
о
ОО
л
О»ОООООо
(I
ООСЛА
0
CH
0
l C E ( F l t , P r , r M , M#Ms .MH, K
6
F , I C i l c r i , l S I )
0 I MENS ю чР 1 ( в 1 » , Аг 2 С в П . Д Р З ( 5 А ) . А Г 4 ( 5 * , , АГ 3 <Е 1 > , д F
6
<
8
х > ,
• A F 7 ( 3 4 » , A F 6 ( 3 0 . A F
9
i e t ) , AF i < e i > . A F l l < 3 4 ) , A F i 2 < 5 4 )
C
0
MM N / ARRAy/ Af H {
2
7 , l ^o .J)
COMMON/T
a b l
E /
a
O P I
c
^) ,RL< 3 > . RMB<4 > , RMS<4 > , Я Гg (
4
> , R l S < 4 ) ,
0
CFf J)
C o M M O N / P A R A M / E O . H , T T H , T L H .
’
T r o , T r i l . T p F f T F M
EQUIVALENCE ( A f H n i j i F K i l i .
EQUIVALENCE
EQUIVALENCE
EQUIVALENCE
EQUIVALENCE
EQUIVALENCE
EQUIVALENCE
EQUIVALENCE
e q u i v a l e n c e
EQUIVALENCE
( АГН(8 2 ) , А Г 2 1 1 ) )
<АFH( 1 6 ? > . АГ 3 ( l ))
<AFH< 2 1 7 > , AF4 ( 1 ) >
<
д
Е Н ( 2 7 1 ) | A F 5 ( 1 )
) <AEH<
3 3
* , , * F
6
<1> ) ( д Г Н (
4 3 3
) , A
F
7
<1})
( AFH ( 4g • } » AF e<
1
, )
< д г н <
5 4 1
, ,
a f
, < m
1
д
Е Н ( 8 2 2 ) #A E ; 9 ( 1 ) «