ГОСТ 25645.101— 83
Стр. 155
С*.00 6.0 О Д П Р О Г Р
а
М М
а
<<<DЕг0Р>>> * оОООООООООО
SUBROUTINE ОЕГО^О ( МКМ»F 1 1 , PF, Гм. М, MS *МН#КВ
F , К
, КГI , J $ I ,
я о ,
*U,
• P R f , R F
m
*PRM, «ММ* РР$> RS M , Н Н , Г Н , С КН,Г I ,HLOW,HIG
m
)
C
0
MMOM/TABLE/AOp 1 ( * ) »
b
L< 3> »R M9 (к ) . RMS <4 ) , в 1 в ( * ) , * 1 $ < 4 > , 0 С Г ( Э )
CO^MON/P
a
R
a
m
/FO »H, ? ТИ ,Т LМ»ТГ
о
» T F 1 1 » ? P F »?РМ
COMMON
EXTERNAL
PMU»ROO,R(rH
W L T . r O C . B A S / H A U T , S E t , F l N r , r S U P , v H «
D A ? A < F R S ! = o . e o 4 6 5 >, f T 0 S I s 0 . I 0 19 ? 1
6
2) # ( «00 в 1 . 2 2 5>»
• ( R M U a 3 9 e 6 O O . 0 O O > i ( A E M = 6 T 6 « , 1 9 9 0 0 )
HsHKM
IF ( (HsT T H > * < H - J L M j . L T . o . . O R . ( 4- TLM) ^ 0 . 0 , .
4
N
0
. r u . E C , T F
1 1
)
• 60 TO 111
c a l l
C M O i c e i r i i i p r . f M . M . v s . M H . i c e F . K . K M . i s 1 )
• H I R0 s R0 C( M, AOp i )
RU*R 0* TO SI
IF ( P F . E Q . E M )
• 6 0 TO 1 23
PRFEVAFCM,T»’0,THf iRL>
RFM= V A F I H , T r O , T F M , R L )
1 2 3 1Г ( M. F fl, 0 )
s* e o
to
1*5
RMM.yAMtH,RM0, P O)
*-RRM
s
V
a
M< H , R
m
5 , RO )
1 *3 IF ( M S . E
q
.O- >
•GO TO
1 6
T
RSMs VA I СИ• R!
0
)
p
R5*V
a i
( H , R 1
s
)
16 ?
i f
(
мм
.
е й
.
о
. o R « * b p , C & . °.
о
р
. ^ .
е о
.О)
• 60 то a n
i
HH=VAH(H#AOp l )
i f
( x e r . e o . o ,
o r
. < .
e
Q .
o
)
*.
go to
a n
F H s VF b { H, HH, P 0 , 6 C E ^
I r <к , EQ , 0 >
• 6 0 TO e l l
CKH =
VK
h
<
h
,
fh
»R0)
II*