ГОСТ 25445.101—i f Стр. ФУ
6 7 1
6 7 2
6 7 3
6 7 4
6 7 5
6 7 6
6 7 7
* 7 8
АЗО
29о
г OR
m
a
Т f IX# »S I GE ’ »
2
X# 1 Л£ 12 • * )
6 3 !3 0 0 ГОЙМАТГI X- ’ ОТрдЯЕНИГ МОЛЕКУЛ 07 ГО&ЕРХНССТ
И П СООТВЕТСТВИИ С
6 32
• Фу НКЦиЕ* м д к СВ Е ЛЛА» )
6 3 3 3 1 0
6 3 4
320
r O R MAT < l X. » » ‘ l N ’ * 3 > , 1 0 E 1 2 * 4 )
ГОЛмдтг I X « * Г I Т », ЗХ , 1 ОЕ 1 2 , 4 >
6 3 3
3 30
•бЗб
3 4 0
6 3 7 З З о
FORMAT* ) Х , » S | G N ’ . 2 Х , Ю Е 1 2 . * )
F O R M A n l * , ’ М б Т * » 2 х » 1 0 Е 1 2 . 4 >
FORMAТ ( I X « «ОТрдЖЕНиР П О Л Е Г Л 07 ПСвЕРХНОСт
2
И р СООТВЕТСТВИИ С
6 3 »
*ПччЕВЛО
М
ОЯЕПЬ
Ю
*)
6 3 9
3 60 F O R M A M I X » »MN> , 3 / r 2 * 1 3 )
6*0
90
r e t u r n
6 * 1ENO
6*2
S
u b r o u t i n et e l a
(
l
P
p
>
6 4 3
DIMENSION ! NFT<100 ) , в I 3 » 3) * 6 4 < 3)
6 * 4
CO
MM
O
N / B L l / 0 ( 4 * 5 O ) * I N F p < s O > /
f t
l 2 ’
’A
(
3
,
3
,
3
O
>
,
A*<
3
,
3 0
) , A4 4 f 30>
6 * 3
1 / 0 L 3 / A X « 3 * 3 » 3 O > , X O ( 3 #5O)
6*6
COM
M
ON
/ B U T/ т 1 < 3 > , Т г « 3 > . Т З ( 3 ) , Т 4 < 3 ) ( Т З < 3 ) , т
6
<
3
> , T T (
3
) . тв<
3
>»
6 * ?
1
T 9 i 3 > / f U . C ’ C 0 < 3 ) , C 1 ( 3 > , C 2 ( 3 > , C 3 ( 3 > , C * ( 3 ) / R t
5 2 / К
P
T ( 3 n ’ *
n
T , N , N 1 ,N 2 »
64А
2 P l P 2 * 2 ) , TE
l
( i
o
e )
649
i n t e g e r
p
i
p
2
6 3 0
D
a t a
P
j
.
g
R
/
3
1
*
1
Э
9 2
6
5 , 0 , 0
1
7
4 3 3 2 9 2 3 /
6
3 1I T 0 s N♦
1
6 5 2
l
N
F
T
(
N i ) = P l P 2 ( 1>
6 3 3
I
n
F
T (
N
i
-»
i
)
b
P
1
P
2
(
2
)
6
3 * M=
1
N F T ( N
1
>
* 5 36 0 TO <
6
, 1 6 , 1 7 , 2 0 , 2 4 , 2 3 , 2 5 , 6 0 ) , M
6 3 6
6
C
a l l
w y ( i 2 )
6 3 7
N l * N l
*2
6 3Я
c a l l
p
e r e s
*
t i
,
t
, т з >
6 3 9
I r ( ( T E L ( l 0 ) - R A S T < T l , T 2 ) ) , G E . 0 f ) Т Е
1
(
1
0 )
г «
1
S
T ( T l # T2)
6 6 0IF( T £ L ( ! l ) . N E . O )6 0 TO 8
6 61
I
F
I
A
f
t
S
(
R
A
S
T
(
T
I
,
T
2
) - T
e
L ( 1 0 ) > , L E , 1 . E f 2 ) CO
3
0
7
6 6 2
CALL
T
r a
P ( T 1 , T 2 , T 3 , T E
l
( ! C ) , N )
6 6 3CO T
0 42
6 6 47
c a l l
p
a r a l
< т i , т 2 , т з , N >
6 6 5
Cc
To 42
666
«
c a l l
N
q
R
m
A
k
т х . т г » T 3 , c i >
6 6 7
c a l l n c o
$ <
t i
,
тг,сг>
66ЯDO 9 1 - 1 , 3
669
R l e C K | ) . T
e l
< 11 ) / 2
6 7 0R2 * C 1 < I > • T E
l
( 1 2 ) / 2
T I M ) =T l (
1
>“ R 1
T2
* I ) s т 2 ( I ) -R
1
T3 < I )
b
T3 ( I >-R 2
T5 I l ) * т
е и < l ) * R 1
Тб« I ) = TEL< I O ) « R l
T
7
1 I ) s
t
EL < I *6 ) *R 2
9 T8 <
I ) * T7( I
) *C 2 <
I
) * T E
l
( Ю )
1 F « A B S ( R A S T ( T
i
, T 2 ) -
t
E L < 1 0 ) ) - 1 . E - 2 )1 0 , 1 0 , 1
1
10 C
a l l
Р
д
р
4*- ( т 1 , т 2 , т з ,
n
)
C
a l l
PAR
a
L ( T 3 , 7 6 , T 7 ,
n
)
679
6 8 0
3.K,110