14 character(:, SK),
allocatable :: cform
17 type(display_type) :: disp
20 cform
= getFormat([
cmplx(
0.,
0., CKG)], ed
= SK_
'f', ndigit
= 1_IK, signed
= .true.)
23 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
24 call disp%show(
"! Copy subset to subset in Rectangular Default Format.")
25 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
30 character(
2,SKG) :: source(
10,
10), destin(
10,
10)
31 character(
2,SKG),
parameter :: EMPTY
= SKG_
" "
34 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
37 call disp%show( source , deliml
= SK_
"""" )
40 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia)")
41 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia)
43 call disp%show( destin , deliml
= SK_
"""" )
46 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)")
47 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
49 call disp%show( destin , deliml
= SK_
"""" )
53 call disp%show( source , deliml
= SK_
"""" )
56 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transSymm)")
57 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia, transSymm)
59 call disp%show( destin , deliml
= SK_
"""" )
62 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)")
63 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
65 call disp%show( destin , deliml
= SK_
"""" )
69 call disp%show( source , deliml
= SK_
"""" )
72 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transHerm)")
73 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia, transHerm)
75 call disp%show( destin , deliml
= SK_
"""" )
78 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)")
79 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
81 call disp%show( destin , deliml
= SK_
"""" )
85 call disp%show( source , deliml
= SK_
"""" )
88 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia)")
89 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia)
91 call disp%show( destin , deliml
= SK_
"""" )
94 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)")
95 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
97 call disp%show( destin , deliml
= SK_
"""" )
101 call disp%show( source , deliml
= SK_
"""" )
104 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transSymm)")
105 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia, transSymm)
107 call disp%show( destin , deliml
= SK_
"""" )
110 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)")
111 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
113 call disp%show( destin , deliml
= SK_
"""" )
117 call disp%show( source , deliml
= SK_
"""" )
120 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transHerm)")
121 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia, transHerm)
123 call disp%show( destin , deliml
= SK_
"""" )
126 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)")
127 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
129 call disp%show( destin , deliml
= SK_
"""" )
133 call disp%show( source , deliml
= SK_
"""" )
136 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow)")
137 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow)
139 call disp%show( destin , deliml
= SK_
"""" )
142 call disp%show(
"destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)")
143 destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
145 call disp%show( destin , deliml
= SK_
"""" )
149 call disp%show( source , deliml
= SK_
"""" )
152 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transSymm)")
153 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow, transSymm)
155 call disp%show( destin , deliml
= SK_
"""" )
158 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)")
159 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
161 call disp%show( destin , deliml
= SK_
"""" )
165 call disp%show( source , deliml
= SK_
"""" )
168 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transHerm)")
169 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow, transHerm)
171 call disp%show( destin , deliml
= SK_
"""" )
174 call disp%show(
"destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)")
175 destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
177 call disp%show( destin , deliml
= SK_
"""" )
181 call disp%show( source , deliml
= SK_
"""" )
184 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia)")
185 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia)
187 call disp%show( destin , deliml
= SK_
"""" )
190 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)")
191 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
193 call disp%show( destin , deliml
= SK_
"""" )
197 call disp%show( source , deliml
= SK_
"""" )
200 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transSymm)")
201 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia, transSymm)
203 call disp%show( destin , deliml
= SK_
"""" )
206 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)")
207 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
209 call disp%show( destin , deliml
= SK_
"""" )
213 call disp%show( source , deliml
= SK_
"""" )
216 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transHerm)")
217 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia, transHerm)
219 call disp%show( destin , deliml
= SK_
"""" )
222 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)")
223 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
225 call disp%show( destin , deliml
= SK_
"""" )
229 call disp%show( source , deliml
= SK_
"""" )
232 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia)")
233 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia)
235 call disp%show( destin , deliml
= SK_
"""" )
238 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)")
239 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
241 call disp%show( destin , deliml
= SK_
"""" )
245 call disp%show( source , deliml
= SK_
"""" )
248 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transSymm)")
249 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia, transSymm)
251 call disp%show( destin , deliml
= SK_
"""" )
254 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)")
255 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
257 call disp%show( destin , deliml
= SK_
"""" )
261 call disp%show( source , deliml
= SK_
"""" )
264 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transHerm)")
265 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia, transHerm)
267 call disp%show( destin , deliml
= SK_
"""" )
270 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)")
271 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
273 call disp%show( destin , deliml
= SK_
"""" )
277 call disp%show( source , deliml
= SK_
"""" )
280 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow)")
281 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow)
283 call disp%show( destin , deliml
= SK_
"""" )
286 call disp%show(
"destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)")
287 destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
289 call disp%show( destin , deliml
= SK_
"""" )
293 call disp%show( source , deliml
= SK_
"""" )
296 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transSymm)")
297 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow, transSymm)
299 call disp%show( destin , deliml
= SK_
"""" )
302 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)")
303 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
305 call disp%show( destin , deliml
= SK_
"""" )
309 call disp%show( source , deliml
= SK_
"""" )
312 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transHerm)")
313 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow, transHerm)
315 call disp%show( destin , deliml
= SK_
"""" )
318 call disp%show(
"destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)")
319 destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
321 call disp%show( destin , deliml
= SK_
"""" )
325 call disp%show( source , deliml
= SK_
"""" )
328 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia)")
329 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia)
331 call disp%show( destin , deliml
= SK_
"""" )
334 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)")
335 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
337 call disp%show( destin , deliml
= SK_
"""" )
341 call disp%show( source , deliml
= SK_
"""" )
344 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transSymm)")
345 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia, transSymm)
347 call disp%show( destin , deliml
= SK_
"""" )
350 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)")
351 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transSymm)
353 call disp%show( destin , deliml
= SK_
"""" )
357 call disp%show( source , deliml
= SK_
"""" )
360 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transHerm)")
361 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia, transHerm)
363 call disp%show( destin , deliml
= SK_
"""" )
366 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)")
367 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transHerm)
369 call disp%show( destin , deliml
= SK_
"""" )
373 call disp%show( source , deliml
= SK_
"""" )
376 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia)")
377 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia)
379 call disp%show( destin , deliml
= SK_
"""" )
382 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)")
383 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
385 call disp%show( destin , deliml
= SK_
"""" )
389 call disp%show( source , deliml
= SK_
"""" )
392 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transSymm)")
393 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia, transSymm)
395 call disp%show( destin , deliml
= SK_
"""" )
398 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)")
399 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transSymm)
401 call disp%show( destin , deliml
= SK_
"""" )
405 call disp%show( source , deliml
= SK_
"""" )
408 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transHerm)")
409 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia, transHerm)
411 call disp%show( destin , deliml
= SK_
"""" )
414 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)")
415 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transHerm)
417 call disp%show( destin , deliml
= SK_
"""" )
421 call disp%show( source , deliml
= SK_
"""" )
426 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, doff)")
427 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppLow, doff)
429 call disp%show( destin , deliml
= SK_
"""" )
432 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)")
433 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
435 call disp%show( destin , deliml
= SK_
"""" )
439 call disp%show( source , deliml
= SK_
"""" )
442 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, transSymm, doff)")
443 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppLow, transSymm, doff)
445 call disp%show( destin , deliml
= SK_
"""" )
448 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm, doff)")
449 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transSymm, doff)
451 call disp%show( destin , deliml
= SK_
"""" )
455 call disp%show( source , deliml
= SK_
"""" )
458 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, transHerm, doff)")
459 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppLow, transHerm, doff)
461 call disp%show( destin , deliml
= SK_
"""" )
464 call disp%show(
"destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm, doff)")
465 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transHerm, doff)
467 call disp%show( destin , deliml
= SK_
"""" )
471 call disp%show( source , deliml
= SK_
"""" )
476 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, doff)")
477 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppDia, doff)
479 call disp%show( destin , deliml
= SK_
"""" )
482 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)")
483 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, doff)
485 call disp%show( destin , deliml
= SK_
"""" )
489 call disp%show( source , deliml
= SK_
"""" )
494 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, transSymm, doff)")
495 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppDia, transSymm, doff)
497 call disp%show( destin , deliml
= SK_
"""" )
500 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)")
501 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transSymm, doff)
503 call disp%show( destin , deliml
= SK_
"""" )
507 call disp%show( source , deliml
= SK_
"""" )
512 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, transHerm, doff)")
513 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppDia, transHerm, doff)
515 call disp%show( destin , deliml
= SK_
"""" )
518 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)")
519 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transHerm, doff)
521 call disp%show( destin , deliml
= SK_
"""" )
525 call disp%show( source , deliml
= SK_
"""" )
530 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, doff)")
531 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, lowDia, doff)
533 call disp%show( destin , deliml
= SK_
"""" )
536 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)")
537 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, doff)
539 call disp%show( destin , deliml
= SK_
"""" )
543 call disp%show( source , deliml
= SK_
"""" )
548 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, transSymm, doff)")
549 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, lowDia, transSymm, doff)
551 call disp%show( destin , deliml
= SK_
"""" )
554 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)")
555 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transSymm, doff)
557 call disp%show( destin , deliml
= SK_
"""" )
561 call disp%show( source , deliml
= SK_
"""" )
566 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, transHerm, doff)")
567 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, lowDia, transHerm, doff)
569 call disp%show( destin , deliml
= SK_
"""" )
572 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)")
573 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transHerm, doff)
575 call disp%show( destin , deliml
= SK_
"""" )
579 call disp%show( source , deliml
= SK_
"""" )
584 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, doff)")
585 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppLow, doff)
587 call disp%show( destin , deliml
= SK_
"""" )
590 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)")
591 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, doff)
593 call disp%show( destin , deliml
= SK_
"""" )
597 call disp%show( source , deliml
= SK_
"""" )
602 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, transSymm, doff)")
603 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppLow, transSymm, doff)
605 call disp%show( destin , deliml
= SK_
"""" )
608 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)")
609 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transSymm, doff)
611 call disp%show( destin , deliml
= SK_
"""" )
615 call disp%show( source , deliml
= SK_
"""" )
620 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, transHerm, doff)")
621 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, uppLow, transHerm, doff)
623 call disp%show( destin , deliml
= SK_
"""" )
626 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)")
627 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
7,
1:
5), rdpack, dia, transHerm, doff)
629 call disp%show( destin , deliml
= SK_
"""" )
635 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
638 call disp%show( source , deliml
= SK_
"""" )
644 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, doff)")
645 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppDia, doff)
647 call disp%show( destin , deliml
= SK_
"""" )
650 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)")
651 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, doff)
653 call disp%show( destin , deliml
= SK_
"""" )
660 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, transSymm, doff)")
661 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppDia, transSymm, doff)
663 call disp%show( destin , deliml
= SK_
"""" )
666 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)")
667 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transSymm, doff)
669 call disp%show( destin , deliml
= SK_
"""" )
676 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, transHerm, doff)")
677 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppDia, transHerm, doff)
679 call disp%show( destin , deliml
= SK_
"""" )
682 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)")
683 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transHerm, doff)
685 call disp%show( destin , deliml
= SK_
"""" )
692 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, doff)")
693 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, lowDia, doff)
695 call disp%show( destin , deliml
= SK_
"""" )
698 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)")
699 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, doff)
701 call disp%show( destin , deliml
= SK_
"""" )
708 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, transSymm, doff)")
709 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, lowDia, transSymm, doff)
711 call disp%show( destin , deliml
= SK_
"""" )
714 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)")
715 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transSymm, doff)
717 call disp%show( destin , deliml
= SK_
"""" )
724 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, transHerm, doff)")
725 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, lowDia, transHerm, doff)
727 call disp%show( destin , deliml
= SK_
"""" )
730 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)")
731 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transHerm, doff)
733 call disp%show( destin , deliml
= SK_
"""" )
740 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, doff)")
741 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, doff)
743 call disp%show( destin , deliml
= SK_
"""" )
746 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)")
747 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, doff)
749 call disp%show( destin , deliml
= SK_
"""" )
756 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transSymm, doff)")
757 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, transSymm, doff)
759 call disp%show( destin , deliml
= SK_
"""" )
762 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)")
763 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transSymm, doff)
765 call disp%show( destin , deliml
= SK_
"""" )
772 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transHerm, doff)")
773 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, transHerm, doff)
775 call disp%show( destin , deliml
= SK_
"""" )
778 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)")
779 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transHerm, doff)
781 call disp%show( destin , deliml
= SK_
"""" )
788 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, doff)")
789 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, doff)
791 call disp%show( destin , deliml
= SK_
"""" )
794 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)")
795 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, doff)
797 call disp%show( destin , deliml
= SK_
"""" )
804 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transSymm, doff)")
805 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, transSymm, doff)
807 call disp%show( destin , deliml
= SK_
"""" )
810 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)")
811 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transSymm, doff)
813 call disp%show( destin , deliml
= SK_
"""" )
820 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transHerm, doff)")
821 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, uppLow, transHerm, doff)
823 call disp%show( destin , deliml
= SK_
"""" )
826 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)")
827 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
7), rdpack, dia, transHerm, doff)
829 call disp%show( destin , deliml
= SK_
"""" )
838 complex(CKG) :: source(
5,
5), destin(
5,
5)
839 complex(CKG),
parameter :: NONE
= (
0._CKG,
0._CKG)
842 call disp%show(
"source = cmplx(getUnifRand(1, 9, size(source,1,IK), size(source,2,IK)), getUnifRand(1, 9, size(source,1,IK), size(source,2,IK)), CKG)")
843 source = cmplx(
getUnifRand(
1,
9,
size(source,
1,
IK),
size(source,
2,
IK)),
getUnifRand(
1,
9,
size(source,
1,
IK),
size(source,
2,
IK)), CKG)
845 call disp%show( source ,
format = cform )
851 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, doff)")
852 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppDia, doff)
854 call disp%show( destin ,
format = cform )
857 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, doff)")
858 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, doff)
860 call disp%show( destin ,
format = cform )
867 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, transSymm, doff)")
868 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppDia, transSymm, doff)
870 call disp%show( destin ,
format = cform )
873 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)")
874 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transSymm, doff)
876 call disp%show( destin ,
format = cform )
883 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, transHerm, doff)")
884 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppDia, transHerm, doff)
886 call disp%show( destin ,
format = cform )
889 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)")
890 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transHerm, doff)
892 call disp%show( destin ,
format = cform )
899 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, doff)")
900 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, lowDia, doff)
902 call disp%show( destin ,
format = cform )
909 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, transSymm, doff)")
910 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, lowDia, transSymm, doff)
912 call disp%show( destin ,
format = cform )
915 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)")
916 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transSymm, doff)
918 call disp%show( destin ,
format = cform )
925 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, transHerm, doff)")
926 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, lowDia, transHerm, doff)
928 call disp%show( destin ,
format = cform )
931 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)")
932 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transHerm, doff)
934 call disp%show( destin ,
format = cform )
941 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, doff)")
942 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, doff)
944 call disp%show( destin ,
format = cform )
951 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transSymm, doff)")
952 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, transSymm, doff)
954 call disp%show( destin ,
format = cform )
957 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)")
958 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transSymm, doff)
960 call disp%show( destin ,
format = cform )
967 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transHerm, doff)")
968 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, transHerm, doff)
970 call disp%show( destin ,
format = cform )
973 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)")
974 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transHerm, doff)
976 call disp%show( destin ,
format = cform )
983 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, doff)")
984 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, doff)
986 call disp%show( destin ,
format = cform )
989 call disp%show(
"destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, doff)")
990 destin(
2:
3,
2:
4)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, doff)
992 call disp%show( destin ,
format = cform )
999 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transSymm, doff)")
1000 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, transSymm, doff)
1002 call disp%show( destin ,
format = cform )
1005 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)")
1006 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transSymm, doff)
1008 call disp%show( destin ,
format = cform )
1015 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transHerm, doff)")
1016 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, uppLow, transHerm, doff)
1018 call disp%show( destin ,
format = cform )
1021 call disp%show(
"destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)")
1022 destin(
2:
4,
2:
3)
= getMatCopy(rdpack, source(
1:
2,
1:
3), rdpack, dia, transHerm, doff)
1024 call disp%show( destin ,
format = cform )
1030 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1031 call disp%show(
"! Copy the diagonal elements in Linear Full Packing format.")
1032 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1037 integer(IK),
parameter :: ndim
= 10
1038 character(
2,SKG),
parameter :: EMPTY
= SKG_
" "
1039 character(
2,SKG) :: source((ndim
+ 1)
* ndim
/ 2), destin(ndim, ndim)
1040 character(
2,SKG),
allocatable :: desnew(:)
1043 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1046 call disp%show( source , deliml
= SK_
"""" )
1050 call disp%show(
"destin(3:7,3:7) = getMatCopy(rdpack, source(2:6), lfpack, dia)")
1051 destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
2:
6), lfpack, dia)
1053 call disp%show( destin , deliml
= SK_
"""" )
1054 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia)")
1055 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, dia)
1057 call disp%show( desnew , deliml
= SK_
"""" )
1064 call disp%show(
"destin(3:9,3:7) = getMatCopy(rdpack, source(2:5), lfpack, dia, doff, shape = [7, 5])")
1065 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
2:
5), lfpack, dia, doff, shape
= [
7,
5])
1067 call disp%show( destin , deliml
= SK_
"""" )
1068 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia, doff)")
1069 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, dia, doff)
1071 call disp%show( desnew , deliml
= SK_
"""" )
1076 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1079 call disp%show( source , deliml
= SK_
"""" )
1085 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source(2:5), lfpack, dia, doff, shape = [5, 7])")
1086 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source(
2:
5), lfpack, dia, doff, shape
= [
5,
7])
1088 call disp%show( destin , deliml
= SK_
"""" )
1089 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:7, 3:9), rdpack, dia, doff)")
1090 desnew
= getMatCopy(lfpack, destin(
3:
7,
3:
9), rdpack, dia, doff)
1092 call disp%show( desnew , deliml
= SK_
"""" )
1100 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source(2:3), lfpack, dia, doff, shape = [7, 5])")
1101 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source(
2:
3), lfpack, dia, doff, shape
= [
7,
5])
1103 call disp%show( destin , deliml
= SK_
"""" )
1104 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia, doff)")
1105 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, dia, doff)
1107 call disp%show( desnew , deliml
= SK_
"""" )
1113 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1114 call disp%show(
"! Copy upper/lower triangle in Linear Full Packing format.")
1115 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1120 integer(IK),
parameter :: ndim
= 10
1121 character(
2,SKG),
parameter :: EMPTY
= SKG_
" "
1122 character(
2,SKG) :: source((ndim
+ 1)
* ndim
/ 2), destin(ndim, ndim)
1123 character(
2,SKG),
allocatable :: desnew(:)
1126 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1129 call disp%show( source , deliml
= SK_
"""" )
1134 call disp%show(
"destin(3:9,3:7) = getMatCopy(rdpack, source, lfpack, uppDia, doff, shape = [7, 5])")
1135 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source, lfpack, uppDia, doff, shape
= [
7,
5])
1137 call disp%show( destin , deliml
= SK_
"""" )
1138 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, uppDia, doff)")
1139 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, uppDia, doff)
1141 call disp%show( desnew , deliml
= SK_
"""" )
1145 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1148 call disp%show( source , deliml
= SK_
"""" )
1153 call disp%show(
"destin(3:9,3:7) = getMatCopy(rdpack, source, lfpack, uppDia, transSymm, doff, shape = [7, 5])")
1154 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source, lfpack, uppDia, transSymm, doff, shape
= [
7,
5])
1156 call disp%show( destin , deliml
= SK_
"""" )
1157 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, -doff)")
1158 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, lowDia, transSymm,
-doff)
1160 call disp%show( desnew , deliml
= SK_
"""" )
1165 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1168 call disp%show( source , deliml
= SK_
"""" )
1174 call disp%show(
"destin(3:7, 3:9) = getMatCopy(rdpack, source, lfpack, lowDia, doff, shape = [5, 7])")
1175 destin(
3:
7,
3:
9)
= getMatCopy(rdpack, source, lfpack, lowDia, doff, shape
= [
5,
7])
1177 call disp%show( destin , deliml
= SK_
"""" )
1180 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source, lfpack, lowDia, transSymm, doff, shape = [7, 5])")
1181 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source, lfpack, lowDia, transSymm, doff, shape
= [
7,
5])
1183 call disp%show( destin , deliml
= SK_
"""" )
1184 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, doff)")
1185 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, lowDia, transSymm, doff)
1187 call disp%show( desnew , deliml
= SK_
"""" )
1195 call disp%show(
"destin(3:9, 3:7) = getMatCopy(rdpack, source, lfpack, lowDia, transHerm, doff, shape = [7, 5])")
1196 destin(
3:
9,
3:
7)
= getMatCopy(rdpack, source, lfpack, lowDia, transHerm, doff, shape
= [
7,
5])
1198 call disp%show( destin , deliml
= SK_
"""" )
1199 call disp%show(
"desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transHerm, doff)")
1200 desnew
= getMatCopy(lfpack, destin(
3:
9,
3:
7), rdpack, lowDia, transHerm, doff)
1202 call disp%show( desnew , deliml
= SK_
"""" )
1208 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1209 call disp%show(
"! Copy upper/lower triangle in Rectangular Full Packing format.")
1210 call disp%show(
"!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1215 character(
2,SKG) :: source(
10,
10), destin(
10,
10)
1216 character(
2,SKG),
parameter :: EMPTY
= SKG_
" "
1217 character(
2,SKG),
allocatable :: desnew(:,:)
1220 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1223 call disp%show( source , deliml
= SK_
"""" )
1226 call disp%show(
"destin(4:8, 3:5) = getMatCopy(rfpack, source(2:6, 3:7), rdpack, uppDia)")
1227 destin(
4:
8,
3:
5)
= getMatCopy(rfpack, source(
2:
6,
3:
7), rdpack, uppDia)
1229 call disp%show( destin , deliml
= SK_
"""" )
1230 call disp%show(
"desnew = transpose(getMatCopy(rfpack, source(2:6, 3:7), rdpack, uppDia)) ! transpose")
1231 desnew
= transpose(
getMatCopy(rfpack, source(
2:
6,
3:
7), rdpack, uppDia))
1233 call disp%show( desnew , deliml
= SK_
"""" )
1234 call disp%show(
"desnew = getMatCopy(rdpack, destin(4:8, 3:5), rfpack, uppDia)")
1235 desnew
= getMatCopy(rdpack, destin(
4:
8,
3:
5), rfpack, uppDia)
1237 call disp%show( desnew , deliml
= SK_
"""" )
1241 call disp%show(
"call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1244 call disp%show( source , deliml
= SK_
"""" )
1247 call disp%show(
"destin(2:6,3:5) = getMatCopy(rfpack, source(2:6, 3:7), rdpack, lowDia)")
1248 destin(
2:
6,
3:
5)
= getMatCopy(rfpack, source(
2:
6,
3:
7), rdpack, lowDia)
1250 call disp%show( destin(
2:
6,
3:
5) , deliml
= SK_
"""" )
1251 call disp%show(
"desnew = getMatCopy(rdpack, destin(4:8, 3:5), rfpack, lowDia)")
1252 desnew
= getMatCopy(rdpack, destin(
4:
8,
3:
5), rfpack, lowDia)
1254 call disp%show( desnew , deliml
= SK_
"""" )
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Return a uniform random scalar or contiguous array of arbitrary rank of randomly uniformly distribute...
This is a generic method of the derived type display_type with pass attribute.
This is a generic method of the derived type display_type with pass attribute.
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
integer, parameter IKS
The single-precision integer kind in Fortran mode. On most platforms, this is a 32-bit integer kind.
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Generate and return an object of type display_type.
9"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
10"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
11"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
12"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
13"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
14"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
15"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
16"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
17"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
18"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
20destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia)
22" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
23" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
24" ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
" ",
" ",
" ",
" "
25" ", ²¬
"",
"VP",
"NQ",
"JP",
"UI",
" ",
" ",
" ",
" "
26" ",
" ",
" ",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
27" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
28" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
29" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
30" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
31" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
33destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
35" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
36" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
37" ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
" ",
" ",
" ",
" "
38" ", ²¬
"",
"VP",
"NQ",
"JP",
"UI",
" ",
" ",
" ",
" "
39" ",
" ",
" ",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
40" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
41" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
42" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
43" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
44" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
47"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
48"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
49"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
50"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
51"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
52"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
53"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
54"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
55"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
56"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
58destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia, transSymm)
60" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
61" ",
" ",
"YV",
" ",
"JP",
" ",
" ",
" ",
" ",
" "
62" ",
" ",
"AG",
"VP",
"TA",
" ",
" ",
" ",
" ",
" "
63" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
64" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
65" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
66" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
67" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
68" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
69" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
71destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
73" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
74" ",
" ",
"YV",
" ",
"JP",
" ",
" ",
" ",
" ",
" "
75" ",
" ",
"AG",
"VP",
"TA",
" ",
" ",
" ",
" ",
" "
76" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
77" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
78" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
79" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
80" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
81" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
82" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
85"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
86"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
87"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
88"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
89"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
90"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
91"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
92"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
93"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
94"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
96destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppDia, transHerm)
98" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
99" ",
" ",
"YV",
" ",
"JP",
" ",
" ",
" ",
" ",
" "
100" ",
" ",
"AG",
"VP",
"TA",
" ",
" ",
" ",
" ",
" "
101" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
102" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
103" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
104" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
105" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
106" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
107" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
109destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
111" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
112" ",
" ",
"YV",
" ",
"JP",
" ",
" ",
" ",
" ",
" "
113" ",
" ",
"AG",
"VP",
"TA",
" ",
" ",
" ",
" ",
" "
114" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
115" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
116" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
117" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
118" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
119" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
120" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
123"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
124"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
125"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
126"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
127"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
128"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
129"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
130"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
131"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
132"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
134destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia)
136" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
137" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
138" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" ",
" "
139" ",
"RH",
"VP",
"NQ",
"JP",
"TA",
" ",
" ",
" ",
" "
140" ",
"GN",
"SH",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
141" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
142" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
143" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
144" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
145" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
147destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
149" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
150" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
151" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" ",
" "
152" ",
"RH",
"VP",
"NQ",
"JP",
"TA",
" ",
" ",
" ",
" "
153" ",
"GN",
"SH",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
154" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
155" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
156" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
157" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
158" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
161"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
162"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
163"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
164"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
165"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
166"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
167"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
168"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
169"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
170"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
172destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia, transSymm)
174" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
175" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
176" ",
" ",
"RH",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
177" ",
" ",
"GN",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
178" ",
" ",
"DR",
"OB",
"TA",
" ",
" ",
" ",
" ",
" "
179" ",
" ",
"VP",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
180" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
181" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
182" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
183" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
185destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
187" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
188" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
189" ",
" ",
"RH",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
190" ",
" ",
"GN",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
191" ",
" ",
"DR",
"OB",
"TA",
" ",
" ",
" ",
" ",
" "
192" ",
" ",
"VP",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
193" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
194" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
195" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
196" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
199"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
200"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
201"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
202"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
203"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
204"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
205"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
206"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
207"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
208"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
210destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, lowDia, transHerm)
212" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
213" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
214" ",
" ",
"RH",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
215" ",
" ",
"GN",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
216" ",
" ",
"DR",
"OB",
"TA",
" ",
" ",
" ",
" ",
" "
217" ",
" ",
"VP",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
218" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
219" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
220" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
221" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
223destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
225" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
226" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
227" ",
" ",
"RH",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
228" ",
" ",
"GN",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
229" ",
" ",
"DR",
"OB",
"TA",
" ",
" ",
" ",
" ",
" "
230" ",
" ",
"VP",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
231" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
232" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
233" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
234" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
237"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
238"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
239"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
240"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
241"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
242"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
243"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
244"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
245"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
246"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
248destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow)
250" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
251" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
252" ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
" ",
" ",
" ",
" "
253" ",
"RH",
"VP",
"NQ",
"JP",
"UI",
" ",
" ",
" ",
" "
254" ",
"GN",
"SH",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
255" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
256" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
257" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
258" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
259" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
261destin(
3:
5,
2:
6)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia)
263" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
264" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
265" ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
" ",
" ",
" ",
" "
266" ",
"RH",
"VP",
"NQ",
"JP",
"UI",
" ",
" ",
" ",
" "
267" ",
"GN",
"SH",
"OB",
"TA",
"UP",
" ",
" ",
" ",
" "
268" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
269" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
270" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
271" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
272" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
275"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
276"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
277"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
278"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
279"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
280"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
281"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
282"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
283"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
284"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
286destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow, transSymm)
288" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
289" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
290" ",
" ",
"AG",
"KQ",
"SH",
" ",
" ",
" ",
" ",
" "
291" ",
" ",
"KQ",
"NQ",
"EZ",
" ",
" ",
" ",
" ",
" "
292" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
293" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
294" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
295" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
296" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
297" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
299destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transSymm)
301" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
302" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
303" ",
" ",
"AG",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
304" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
305" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
306" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
307" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
308" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
309" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
310" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
313"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
314"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
315"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
316"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
317"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
318"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
319"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
320"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
321"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
322"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
324destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, uppLow, transHerm)
326" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
327" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
328" ",
" ",
"AG",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
329" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
330" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
331" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
332" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
333" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
334" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
335" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
337destin(
2:
6,
3:
5)
= getMatCopy(rdpack, source(
2:
4,
3:
7), rdpack, dia, transHerm)
339" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
340" ",
" ",
"YV",
"RH",
"GN",
" ",
" ",
" ",
" ",
" "
341" ",
" ",
"AG",
"VP",
"SH",
" ",
" ",
" ",
" ",
" "
342" ",
" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" "
343" ",
" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" "
344" ",
" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" "
345" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
346" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
347" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
348" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
351"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
352"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
353"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
354"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
355"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
356"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
357"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
358"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
359"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
360"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
362destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia)
364" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
365" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
366" ",
"YV",
"AG",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
367" ",
"AG",
"VP",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
368" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" ",
" "
369" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" ",
" "
370" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" ",
" "
371" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
372" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
373" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
375destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
377" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
378" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
379" ",
"YV",
"AG",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
380" ",
"AG",
"VP",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
381" ",
"KQ",
"NQ",
"OB",
" ",
" ",
" ",
" ",
" ",
" "
382" ",
"DR",
"JP",
"TA",
" ",
" ",
" ",
" ",
" ",
" "
383" ",
"EZ",
"UI",
"UP",
" ",
" ",
" ",
" ",
" ",
" "
384" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
385" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
386" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
389"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
390"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
391"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
392"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
393"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
394"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
395"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
396"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
397"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
398"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
400destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia, transSymm)
402" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
403" ",
" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" "
404" ",
" ",
"AG",
"VP",
"NQ",
"KQ",
"TA",
" ",
" ",
" "
405" ",
" ",
"KQ",
"NQ",
"OB",
"NQ",
"UP",
" ",
" ",
" "
406" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
407" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
408" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
409" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
410" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
411" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
413destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
415" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
416" ",
" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" "
417" ",
" ",
"AG",
"VP",
"NQ",
"KQ",
"TA",
" ",
" ",
" "
418" ",
" ",
"KQ",
"NQ",
"OB",
"NQ",
"UP",
" ",
" ",
" "
419" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
420" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
421" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
422" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
423" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
424" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
427"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
428"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
429"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
430"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
431"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
432"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
433"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
434"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
435"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
436"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
438destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppDia, transHerm)
440" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
441" ",
" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" "
442" ",
" ",
"AG",
"VP",
"NQ",
"KQ",
"TA",
" ",
" ",
" "
443" ",
" ",
"KQ",
"NQ",
"OB",
"NQ",
"UP",
" ",
" ",
" "
444" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
445" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
446" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
447" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
448" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
449" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
451destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
453" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
454" ",
" ",
"YV",
"DR",
"VP",
"UI",
"OB",
" ",
" ",
" "
455" ",
" ",
"AG",
"VP",
"NQ",
"KQ",
"TA",
" ",
" ",
" "
456" ",
" ",
"KQ",
"NQ",
"OB",
"NQ",
"UP",
" ",
" ",
" "
457" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
458" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
459" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
460" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
461" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
462" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
465"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
466"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
467"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
468"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
469"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
470"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
471"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
472"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
473"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
474"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
476destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia)
478" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
479" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
480" ",
"YV",
"NQ",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
481" ",
"RH",
"VP",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
482" ",
"GN",
"SH",
"OB",
" ",
" ",
" ",
" ",
" ",
" "
483" ",
"WT",
"VD",
"BQ",
" ",
" ",
" ",
" ",
" ",
" "
484" ",
"LJ",
"KI",
"MZ",
" ",
" ",
" ",
" ",
" ",
" "
485" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
486" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
487" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
489destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
491" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
492" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
493" ",
"YV",
"NQ",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
494" ",
"RH",
"VP",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
495" ",
"GN",
"SH",
"OB",
" ",
" ",
" ",
" ",
" ",
" "
496" ",
"WT",
"VD",
"BQ",
" ",
" ",
" ",
" ",
" ",
" "
497" ",
"LJ",
"KI",
"MZ",
" ",
" ",
" ",
" ",
" ",
" "
498" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
499" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
500" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
503"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
504"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
505"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
506"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
507"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
508"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
509"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
510"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
511"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
512"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
514destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia, transSymm)
516" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
517" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
518" ",
" ",
"RH",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
519" ",
" ",
"GN",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
520" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
521" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
522" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
523" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
524" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
525" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
527destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
529" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
530" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
531" ",
" ",
"RH",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
532" ",
" ",
"GN",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
533" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
534" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
535" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
536" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
537" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
538" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
541"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
542"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
543"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
544"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
545"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
546"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
547"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
548"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
549"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
550"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
552destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, lowDia, transHerm)
554" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
555" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
556" ",
" ",
"RH",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
557" ",
" ",
"GN",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
558" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
559" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
560" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
561" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
562" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
563" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
565destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
567" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
568" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
569" ",
" ",
"RH",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
570" ",
" ",
"GN",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
571" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
572" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
573" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
574" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
575" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
576" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
579"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
580"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
581"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
582"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
583"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
584"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
585"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
586"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
587"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
588"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
590destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow)
592" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
593" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
594" ",
"YV",
"AG",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
595" ",
"RH",
"GN",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
596" ",
"GN",
"SH",
"LJ",
" ",
" ",
" ",
" ",
" ",
" "
597" ",
"WT",
"VD",
"BQ",
" ",
" ",
" ",
" ",
" ",
" "
598" ",
"LJ",
"KI",
"MZ",
" ",
" ",
" ",
" ",
" ",
" "
599" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
600" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
601" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
603destin(
3:
7,
2:
4)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia)
605" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
606" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
607" ",
"YV",
"AG",
"KQ",
" ",
" ",
" ",
" ",
" ",
" "
608" ",
"RH",
"VP",
"NQ",
" ",
" ",
" ",
" ",
" ",
" "
609" ",
"GN",
"SH",
"OB",
" ",
" ",
" ",
" ",
" ",
" "
610" ",
"WT",
"VD",
"BQ",
" ",
" ",
" ",
" ",
" ",
" "
611" ",
"LJ",
"KI",
"MZ",
" ",
" ",
" ",
" ",
" ",
" "
612" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
613" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
614" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
617"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
618"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
619"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
620"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
621"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
622"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
623"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
624"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
625"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
626"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
628destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow, transSymm)
630" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
631" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
632" ",
" ",
"AG",
"LJ",
"SH",
"VD",
"KI",
" ",
" ",
" "
633" ",
" ",
"KQ",
"NQ",
"VD",
"BQ",
"MZ",
" ",
" ",
" "
634" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
635" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
636" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
637" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
638" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
639" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
641destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transSymm)
643" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
644" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
645" ",
" ",
"AG",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
646" ",
" ",
"KQ",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
647" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
648" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
649" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
650" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
651" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
652" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
655"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
656"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
657"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
658"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
659"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
660"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
661"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
662"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
663"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
664"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
666destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, uppLow, transHerm)
668" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
669" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
670" ",
" ",
"AG",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
671" ",
" ",
"KQ",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
672" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
673" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
674" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
675" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
676" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
677" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
679destin(
2:
4,
3:
7)
= getMatCopy(rdpack, source(
2:
6,
3:
5), rdpack, dia, transHerm)
681" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
682" ",
" ",
"YV",
"RH",
"GN",
"WT",
"LJ",
" ",
" ",
" "
683" ",
" ",
"AG",
"VP",
"SH",
"VD",
"KI",
" ",
" ",
" "
684" ",
" ",
"KQ",
"NQ",
"OB",
"BQ",
"MZ",
" ",
" ",
" "
685" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
686" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
687" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
688" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
689" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
690" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
693"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
694"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
695"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
696"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
697"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
698"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
699"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
700"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
701"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
702"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
704destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia)
706" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
707" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
708" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
709" ",
" ",
"AG",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
710" ",
" ",
"KQ",
"SH",
"RH",
"VP",
"NQ",
" ",
" ",
" "
711" ",
" ",
"RH",
"OB",
"KI",
"SH",
"OB",
" ",
" ",
" "
712" ",
" ",
"VP",
"WT",
"MZ",
" ",
"BQ",
" ",
" ",
" "
713" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
714" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
715" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
717destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
719" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
720" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
721" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
722" ",
" ",
"AG",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
723" ",
" ",
"KQ",
"SH",
"RH",
"VP",
"NQ",
" ",
" ",
" "
724" ",
" ",
"RH",
"OB",
"KI",
"SH",
"OB",
" ",
" ",
" "
725" ",
" ",
"VP",
"WT",
"MZ",
" ",
"BQ",
" ",
" ",
" "
726" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
727" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
728" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
731"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
732"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
733"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
734"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
735"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
736"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
737"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
738"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
739"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
740"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
742destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia, transSymm)
744" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
745" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
746" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
747" ",
" ",
"OF",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
748" ",
" ",
"SH",
"YV",
"RH",
"VP",
"NQ",
" ",
" ",
" "
749" ",
" ",
"HY",
"AG",
"VP",
"SH",
"OB",
" ",
" ",
" "
750" ",
" ",
"MA",
"KQ",
"NQ",
"OB",
"BQ",
" ",
" ",
" "
751" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
752" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
753" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
755destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transSymm)
757" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
758" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
759" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
760" ",
" ",
"OF",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
761" ",
" ",
"SH",
"YV",
"RH",
"VP",
"NQ",
" ",
" ",
" "
762" ",
" ",
"HY",
"AG",
"VP",
"SH",
"OB",
" ",
" ",
" "
763" ",
" ",
"MA",
"KQ",
"NQ",
"OB",
"BQ",
" ",
" ",
" "
764" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
765" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
766" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
769"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
770"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
771"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
772"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
773"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
774"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
775"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
776"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
777"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
778"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
780destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppDia, transHerm)
782" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
783" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
784" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
785" ",
" ",
"OF",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
786" ",
" ",
"SH",
"YV",
"RH",
"VP",
"NQ",
" ",
" ",
" "
787" ",
" ",
"HY",
"AG",
"VP",
"SH",
"OB",
" ",
" ",
" "
788" ",
" ",
"MA",
"KQ",
"NQ",
"OB",
"BQ",
" ",
" ",
" "
789" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
790" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
791" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
793destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transHerm)
795" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
796" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
797" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
798" ",
" ",
"OF",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
799" ",
" ",
"SH",
"YV",
"RH",
"VP",
"NQ",
" ",
" ",
" "
800" ",
" ",
"HY",
"AG",
"VP",
"SH",
"OB",
" ",
" ",
" "
801" ",
" ",
"MA",
"KQ",
"NQ",
"OB",
"BQ",
" ",
" ",
" "
802" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
803" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
804" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
807"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
808"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
809"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
810"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
811"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
812"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
813"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
814"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
815"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
816"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
818destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia)
820" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
821" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
822" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
823" ",
" ",
"SR",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
824" ",
" ",
"LD",
"PQ",
"RH",
"VP",
"NQ",
" ",
" ",
" "
825" ",
" ",
"SK",
"JX",
"GN",
"SH",
"OB",
" ",
" ",
" "
826" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
827" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
828" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
829" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
831destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
833" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
834" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
835" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
836" ",
" ",
"SR",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
837" ",
" ",
"LD",
"PQ",
"RH",
"VP",
"NQ",
" ",
" ",
" "
838" ",
" ",
"SK",
"JX",
"GN",
"SH",
"OB",
" ",
" ",
" "
839" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
840" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
841" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
842" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
845"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
846"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
847"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
848"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
849"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
850"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
851"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
852"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
853"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
854"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
856destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia, transSymm)
858" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
859" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
860" ",
" ",
"ET",
"SR",
"LD",
"SK",
"YT",
" ",
" ",
" "
861" ",
" ",
"SR",
"KJ",
"PQ",
"JX",
"CO",
" ",
" ",
" "
862" ",
" ",
"LD",
"PQ",
"RH",
"GN",
"WT",
" ",
" ",
" "
863" ",
" ",
"SK",
"JX",
"GN",
"SH",
"VD",
" ",
" ",
" "
864" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
865" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
866" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
867" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
869destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transSymm)
871" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
872" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
873" ",
" ",
"ET",
"SR",
"LD",
"SK",
"YT",
" ",
" ",
" "
874" ",
" ",
"SR",
"KJ",
"PQ",
"JX",
"CO",
" ",
" ",
" "
875" ",
" ",
"LD",
"PQ",
"RH",
"GN",
"WT",
" ",
" ",
" "
876" ",
" ",
"SK",
"JX",
"GN",
"SH",
"VD",
" ",
" ",
" "
877" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
878" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
879" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
880" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
883"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
884"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
885"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
886"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
887"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
888"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
889"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
890"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
891"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
892"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
894destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, lowDia, transHerm)
896" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
897" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
898" ",
" ",
"ET",
"SR",
"LD",
"SK",
"YT",
" ",
" ",
" "
899" ",
" ",
"SR",
"KJ",
"PQ",
"JX",
"CO",
" ",
" ",
" "
900" ",
" ",
"LD",
"PQ",
"RH",
"GN",
"WT",
" ",
" ",
" "
901" ",
" ",
"SK",
"JX",
"GN",
"SH",
"VD",
" ",
" ",
" "
902" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
903" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
904" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
905" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
907destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia, transHerm)
909" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
910" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
911" ",
" ",
"ET",
"SR",
"LD",
"SK",
"YT",
" ",
" ",
" "
912" ",
" ",
"SR",
"KJ",
"PQ",
"JX",
"CO",
" ",
" ",
" "
913" ",
" ",
"LD",
"PQ",
"RH",
"GN",
"WT",
" ",
" ",
" "
914" ",
" ",
"SK",
"JX",
"GN",
"SH",
"VD",
" ",
" ",
" "
915" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
916" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
917" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
918" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
921"ET",
"OF",
"SH",
"HY",
"MA",
"ID",
"AY",
"FU",
"LU",
"QD"
922"SR",
"KJ",
"YV",
"AG",
"KQ",
"DR",
"EZ",
"VN",
"WV",
"DY"
923"LD",
"PQ",
"RH",
"VP",
"NQ",
"JP",
"UI",
"XE",
"QK",
"NV"
924"SK",
"JX",
"GN",
"SH",
"OB",
"TA",
"UP",
"AS",
"DF",
"UC"
925"YT",
"CO",
"WT",
"VD",
"BQ",
"VN",
"NT",
"NH",
"CR",
"JP"
926"YB",
"DR",
"LJ",
"KI",
"MZ",
"XQ",
"OS",
"AH",
"UE",
"NA"
927"MO",
"OY",
"RG",
"WW",
"EO",
"CT",
"FE",
"DD",
"AA",
"YT"
928"JV",
"KU",
"PS",
"ZW",
"US",
"PT",
"DD",
"LO",
"OM",
"IO"
929"JE",
"WP",
"DD",
"XW",
"FJ",
"SB",
"TZ",
"NB",
"QQ",
"HP"
930"LT",
"BQ",
"BK",
"WL",
"BY",
"VJ",
"WV",
"AK",
"VJ",
"MI"
933destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, uppLow, doff)
935" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
936" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
937" ",
" ",
"ET",
"OF",
"SH",
"HY",
"MA",
" ",
" ",
" "
938" ",
" ",
"SR",
"KJ",
"YV",
"AG",
"KQ",
" ",
" ",
" "
939" ",
" ",
"LD",
"PQ",
"RH",
"VP",
"NQ",
" ",
" ",
" "
940" ",
" ",
"SK",
"JX",
"GN",
"SH",
"OB",
" ",
" ",
" "
941" ",
" ",
"YT",
"CO",
"WT",
"VD",
"BQ",
" ",
" ",
" "
942" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
943" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
944" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
946destin(
3:
7,
3:
7)
= getMatCopy(rdpack, source(
1:
5,
1:
5), rdpack, dia)
948" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "
949" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" ",
" "