Стр.
t oe ГО С Т
29*41101-41
1211
1212
1213
121*
121*»
1216
1 2 1 7
12i*
1219
1220
1221
122?
1223
1226
11*6
Г тор
1 1 * *
END*»-*• ■»
] 1* 0
SUBROUT »N6 п v t N^ 1
11 в 1
П И М О ч / Р Е З г / к Р Т <3 0
w
N T . N ,
n
3 , N 2 . ° l P 2 f ? > . T E i
( « 0 6 )
3 162
! N T
6
GrP P I P ?
ц е л
OR I N7
? , N 2 , P 1 P 2 < - > . P 1 P ? < 2 > , , T P 4 ‘ 1 )
» I =
l *
N * i >
3164
2 Г
0
Р
М 4
T ’ / » ’иО м
р.р
т
ИП06ОР
PCO( P
k
-
o
C
t
./ 4 l : > t )
з > , •
о
*
и з
«
а
’’ P) s ’ » : з »
ц в »
• З Х , » Л в и З м 4 г ч P
2 s ’ , t 3 / ( O E
J 4 . 3 ) »
3.1ЛО
R F т и Rf
4
11«7
END
ц е лFUNC 7 [ О», * AS▼( A »0 *
11
n i MF NS J ON ДС 3 ) #p< 3)
а
1
°о
RA 5 Ts 3QR T « < e < i ) - - l f j ) ) * « 2 * f n < 2 ’ - A « 2 ) ) # * 2 * i B
<3 ) - A f 3 ) > • * ? )
з ш
4 f f O«N
11*2
END
1 1 *3
r li NC 7 t ON 3C At AR <A »6 ’
1104
C l M F N S ’ ON Af 3 ) , 6 ( 3 )
1 1 *3
«Г. Д
1
A
9
s A f J » « Р ( 1 » * А ( ? ) * Р Г 2 > * А ‘ 3 >. 0 < 3)
1 1 * 6
Rp 4 URf4
1 1 *7
END^
1
I * в
S Ue R O’i TTNt P F R R S i » 1 . 7 2 , T 3 ’
11
* *
r
. OMNOM/ PFS? / KPT
(
ЗП
)
>N7 »
N
r
N
* .
N
? .
P
l
P
?
(
2 > .
T C
w
l 1 0 6 )
12ОО
I N ’ F G f f в I P ?
12*1
C»MFN3»ON 7 1 f 3 ) , T ? * 3 ) , T 344>
1202
CO 3 l s 3 / 3
1203
» 1 f I >: T F t ‘ l »
1204
*2< I >=” F L ‘ 1 * 3 )
j 2 0 3
1
Т З ( Г ) - ТЕ
1
, И
*
А
>
1206
RETURN
1207
END
12 0 6
EUBP 0 UT ’
Nt OP т { X., Op r t f , M,
1 2 0 9
DI MENSI ON * » l ) , j ) f T H V
1210
COMMON /е«-2-, А < 3 . 3 » з
О
)
»
А
|
‘
» 3 * з
О
, » Л
1
* л < 5 р
)
/
В 1 С
/ С в ’ 3 ) « С 1 Г M . C 2 C « » | C 3 <
3 )
• , Г.
4
( 3 )
0 0 1 t = l » 3
C R T M J t s - A i . 1 1 , N ’
DO 1 < = ! # 3
J URTXj | , 5 0 * 7 * t i P - * ( I
i
A
i
N U X
i
R)
C
a l l
N c D S * C o ,
o
R T N , OR
t n j
KFTURN
f
n
D
S
u
DRO
i
-
t
I
k
P MORMAi { A . И #C »D )
D J
m
E
n
S
f
DN д <3 ) »6 ( 3 > • C ( 3 ) . 0 4 3 )
0 ( l > s ( ft( ? ’ - A i 2 > ) « < C « 3 > - Д < 3 1 ) - ( М З ) * А < > ) ) * (
C l 2 ) - A ( ? » *
0 ( 2 > s i f t ( 3 , - A i 3 > l * < C ( l ) - A t i i ) - i P . ( 1 ) - Af J ) ) • <
C < 1 i - Ac 3 » )
0 < 3 > = I H < l , - A t i > ) » l C » 2 > - A < 2 i ) - l » « 2 > * A « 2 ) ) M
C { 1 »- A 4 1 >.)
| 22**
Rr
S
QRT f pc 1 ) * « ? * 0 ( 2 > * . ? * P < 3 ) • • 2 >,
1223
00, 1 1 * 1 . ’
iО » I ) s C , ! J/ A
1 2 2 7 wF T
u r n