c* # : t ie t * a
12йЗПО 1 К “ 1 | 3
1 2 йб*■1 СI * к . W, а о
l2 A?
12 ЙйрО J j * l | 3
12««
ПП J ы=1 . 3
12 « 01
р
» ( 1, К , N 1s Г 1 <I , K , N > » A M J , I » М * А К ( М , К , Ц ) « В 1
J * М>
* 2 * 1
А,* 4 * N1s ft 4 *•
, 20200 3 [ 2 , ,3
1203
С2 ~ 2 • А«.» ’ ’ N ’
1 2 о *00 2 к = ) »3
j 203А4. Г I »N >2А* с I , N , - 1 ( 1 , к. , N ) • ХО <К , Ч >
1206 2 C=C * r i « r * K * f’ > * X O { P , N )
, 2 9 ?% Д4А1 AM SA4* IN >♦ X0 1 1 , N 1*С
12 ч вRET
u
R
n
, 2 0 6
END
1 ЗЛО
Sl’BPO(jr I Nt VECTOR* д , p. , C >
1 3010» MEN", fOW А П ) , ( М 1 » , С П ) ’
J 3020 « 1 ) s * {2 >*6 * 3 >-A < 3 >«&(2 >
1 зозC i r > 2 A i 3 ) * B < l , - A < l ) » B l 3 »
13 0*C« 3 »*A r 1 ) #В* 2 > - A (? » • » ! 1 )
j зозRF? URц
, 3 0 6END
130?
SUftROuT !NE P A RA L « Tl *T 2» T 3 » N)
130Й
C
O
MMON / f . t l / D r 4 . 3 0 ) , j N r P ( * . 0 )
/ B L 3 ’ ’ A K ( 3 » 3 » 3 0
» , XO 1 , *>C 1
1 300
’ / А 1 * / С Ц 1 ’ ,
Г 2 1 3 ’ .
Г - З П » , С 4 ( < b f t ( 5 < l ) , fi4 J ) ,
3 * 4 / I U 6 ’ C 5
c
3 , 3 ^ , A
j m
<3,3>
1 3 Ю
D’MfNSJON
13*1
N
=
N♦1
1312
СЛЦiSVST( T
1
,
T
2 , ? 3 ,
N)
1313
CALINCO
S
* T 1
,
T з , C* >
1 3 1 *RlrSCALAR ‘ f.J • Q* >» •
э 313
i r < A B S < P l ’ - ’ . E - * i J »1 * 2
1 316
1 R 1
=0
1 3 1 *2
A.IMC 1 , 1 » 2SQR
т < 1-R1 >
1 31Й
Aj M( 2 , 1 »г 0
1319AJ A*( 3 , 1 1* SЦР T | R 1 , ‘
1320A.IVI 1 , 2» S“ R,/SQP Tl 1*R1 )
, 3 2 1A.iMf 2 , 2 >s i /SftPT < 1* R1 ,
1322
A.IM*3,2» sSftRT ( R1«I 1“ » 1 ) / ( 1 * R 1 » )
1323
A .
i M l i ,
3 l 2
-
S U R T (
R l /
r
t
*
R l
»
)
, 3 2 *A.IM* 2 , 3 »гД JH < 1 , 3 )
1323
A
.
i M
<
3
, 3 1
a
S
®
R
T
(
, l
-
R
H
/ { i *
.
R
»
»
i
»
326
DO 3 i = l , 3
1 3 2 7DO 3 ? * ! , 3
#
, 3 2 вГ. й i J * 5 ) = 0
, 3 2 9DO 3 и г 1, 3
1330
3 C 3 l J
# p 2 C 3 < j
,
|
)
* A
j
M l
j
,
M ) * A * < M
,
l
,
N )
1331 DO * j * 1 , 3
133200 * t = l i 3
I 3 3 5 .
«► AK ( J . 1 ,N >* C3 ( j , I )
1 3 3 * .
>м
•1 - R l n / ?
1333 . В * < 2 > а ф М
1
J
1336B * ( 3 ) 2 , 3
133?CALL 9ER VX(B , B fc, e*A,N).
1
з з вO f l , N > s O’ .: