Ctp. 9* ГОСТ 2564S.301—t )
60 T0 t 2
c a l l t p a p
»т i , т 2 , т з » Tgi.« i p > , ы >
c a l l t r a p i t
» ,
t
6 ,
t t
,
t c i u o
» ,
n
»
1r c Tf l J 11 » .«ft , TELc 1 2 ЦGO T0 H
CALL 7PAP‘ T i . T 3 . T J . Tg L i l ? ) , M »
CALL 7
r
A»<
t
A . T2 ,TA * TEL < 1? » • >
GO To *4
C
a l l a a p a i m i
, T 3 ,
t
3»
h j
*81
*8 21 1
Л8 3
Aft*.
12
*8 3
AA6
AA7
AAA
13
Aft4
A9 o
l 4
c a l l p a r a m t
6 ,
t
2 , 78 .
n
)
l Г ( I NT т f H 1- i >,
f
a . з . °R . »
up
т «N1 -1 > . F.fi , •• ) 60
TO 13
C
a li
»
a
RA - ‘ T
»
t
2 *
t
5 , * >
A 9 1
A9 21 3
I r M
l
n f T C N
‘
l - l >
i
, E a . 2 . 0 R
«
, r u r T <N1-1> .E O . A . O H . T
EL< 12) .EC ,0 ) 00 To
a
2
A9 3
-
c a l l p
лR
a l
< г 7 , т в # т з , м )
* 9 4
Go To A2
*9 3
IA
c a l l
*
v
< l ? >
A9 A
*♦1 *** 1■*2
A9 7
CALL p e R t S < T l , T 2 , T 3 >
A9 A
c a l l k o l c o
«
t i
,
t
2 .
t
3 .
t e i
<
j o
’ .
t e l
<
u
, *
g
* »
t
£.
l
C 12 »*6P .N ’
A9 9
60 To <, 2
7 00
17
C
a l l wv i i
3’
7
7
o
02
i"
C
1
a
*
l
4
l
1 *
p
2
e r c s i t
I /
t
2 »
t
3>
7 o з
й 1* TF L
< 1?>»GP
7 0*•R2 * TFL ( 13»*6«
7 о *
7 06
CALL
n
C i l . f ,
l
l .
l
T 2 » T 3 .
.
TfcL l l O , ’
*
TEl- , l 1 > 7Rl
.
* , l 2 * N>
I г t l r T < N - » . E a . 3 0 p| Ч Г 1 М М ) , Е в ‘ ) 00
TO 1A
707CALL K O L C O ( T i , T 2 , T 3 , 0 , p a | R 2 , M
7 0A
18
l F ( I ЦС
▼
i hi 1-1 ) , £
Q
. 2 . OR
, I Nr T
( M - 1 ». f.Q
%* )
G
O
709
CALL
710CALI
TO 42
NORMAL *1 , T2 . T3,C1 >
NCOS <Г 1 * T 2 i C 2 )
711CALINCOS * 7 1 i т 3 • C3 J
712
00 1,9 l c l . з
713
T 4 ( l l s M ( h « 4 L < l l " » C l l M * Tf l « 1 1
1* C2
( 1 >
714
T3{ 1 1j T * ( 1 >*PAST ( T l . T 2 ) * C 2 < I >
713
19
T 6 ( n s TM l » * R A S T < T 1 # T 3 ) * C 3 4 T
716
CALL
KOLCO( т
a
, T 3 »Tft, о , R
1 , R ?
.N>
7 17
GO TO 42
7182 0
CALIV < 1 *• 1
719
M l s N l *2
7 2 0
CALIPEREs f T l * T 2 * T 3 i
721
r
1
s
TE
l
(13<>CR
722 R2 = TE Ll 1 * >»GP
72 3
C
A
(.lCONLlSrT l
,
T ? » T ^ , T £
l
I 10 1
i T f i-< U »
, TEL ( 12
1 »RJ# R2 »N »
7?. 4Jf I 1NГ T ( M1 - J > . E 0 . 3 . 0 R , j N f T l N l - l > • EQ. A ) GO
TO 21
723
CALL <O
l
C
O
(
T
i
,
t
? , T 3 ,
o
,
r
1 ,
r
?.N»
7262 1
! Г ( [ K f T i N l -
i » . E
f
i . 7 , O R , ! N
P
T l N l - l > . E Q , * . O R . T
E
l i
12> ,
e o
.
o
i c o
to
^2
7 2 ’CALI
7 2 ACALI
NORM*
l
• т 1, T2 »T3 , r l •
NCOS t r i , т 2 . C2 >
729CALL N C 0 S < T i , T 3 , c 3 i
730
^ З г Й А ^ т <т 1 » т 3 1 * т Е1 ( 1 2 I / R A S t ( T l , T2 1