ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_matrixCopy::getMatCopy Interface Reference

Generate and return a copy of a desired subset of the input source matrix of arbitrary shape (:) or (:,:) to the target subset of the output destin matrix of arbitrary shape (:) or (:,:). More...

Detailed Description

Generate and return a copy of a desired subset of the input source matrix of arbitrary shape (:) or (:,:) to the target subset of the output destin matrix of arbitrary shape (:) or (:,:).

See the documentation of pm_matrixCopy for illustrative details of the copy action.

Parameters
[in]dpack: The input scalar representing the packing of the destination matrix destin.
It can be set to one of the following:
  1. The constant rdpack implying rectangular default packing.
  2. The constant lfpack implying linear full (triangular) packing only if the input argument spack is set to rdpack.
  3. The constant rfpack implying rectangular full packing only if the input argument spack is set to rdpack.
[in]source: The input source matrix of arbitrary shape (:, :) of,
  • type character of kind any supported by the processor (e.g., SK, SKA, SKD , or SKU) with arbitrary len type parameter, or
  • type integer of kind any supported by the processor (e.g., IK, IK8, IK16, IK32, or IK64), or
  • type logical of kind any supported by the processor (e.g., LK), or
  • type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128), or
  • type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
whose specified subset will be copied into the destination matrix destin.
[in]spack: The input scalar representing the packing of the source matrix.
It can be set to one of the following:
  1. The constant rdpack implying rectangular default packing.
  2. The constant lfpack implying linear full (triangular) packing only if the input argument dpack is set to rdpack.
  3. The constant rfpack implying rectangular full packing only if the input argument dpack is set to rdpack.
[in]subset: The input scalar constant argument that can be any of the following:
  1. The constant dia, implying that the diagonal elements of the matrix must be copied.
    This value can be specified only if both spack and dpack are missing, or if either spack = lfpack or dpack = lfpack.
  2. The constant upp, implying that the upper-triangular (excluding the diagonal) elements of the matrix must be copied.
    This value can be currently specified only if both input dpack and spack packing formats are set to rdpack.
  3. The constant low, implying that the lower-triangular (excluding the diagonal) elements of the matrix must be copied.
    This value can be currently specified only if both input dpack and spack packing formats are set to rdpack.
  4. The constant lowDia, implying that the lower-diagonal subset of the input matrix source must be copied to destin after performing the optional operation.
  5. The constant uppDia, implying that the upper-diagonal subset of the input matrix source must be copied to destin after performing the optional operation.
  6. The constant uppLow, implying that the upper-lower subset (excluding diagonals) of the input matrix source must be copied to destin after performing the optional operation.
    This value can be specified only if the optional input arguments spack and dpack are both missing.
This input argument is merely serves to resolve the different procedures of this generic interface from each other at compile-time.
[in]operation: The input scalar constant argument that can be any of the following:
  1. The constant transSymm implying that a Symmetric transpose of the specified subset of source is to be copied.
  2. The constant transHerm implying that a Hermitian transpose of the specified subset of source is to be copied.
    Specifying transHerm for source of type other than complex is identical to specifying transSymm for source of type other than complex.
This argument is merely a convenience to differentiate the different procedure functionalities within this generic interface.
(optional. It can be present only if subset /= dia and spack and dpack are both missing or if spack = lfpack or dpack = lfpack.
In other words, this option is currently not implemented for the Rectangular-Full-Packed (RFP) formatted matrices.
If missing, the specified subset will be copied from source to the corresponding subset of destin as is, with no transposition.)
[in]doff: The input integer of default kind IK representing the offset of the diagonal of source from the top-left corner of source.
  1. Setting 0 < doff <= +size(source, 2) implies a diagonal start with column offset doff from the top-left corner source(1, 1) of source.
    This is possible only when the specified subset includes the lower triangle of mat.
  2. Setting -size(source, 1) <= doff < 0 implies a diagonal start with row offset -doff from the top-left corner source(1, 1) of source.
    This is possible only when the specified subset includes the upper triangle of mat.
  3. Setting doff = 0 implies the same diagonal start as the top-left corner source(1, 1) of source.
(optional. default = 0. It can be present only if neither of the input matrices is in RFP format.)
[in]shape: The input vector of size 2 of type integer of default kind IK representing the shape of the output matrix destin when spack = lfpack, dpack = rdpack.
This argument is essential for proper inference of the shape of a rank-2 destin(:,:) from a rank-1 source(:) with non-zero doff.
(optional. It can be present if only if spack = lfpack, dpack = rdpack and the input argument doff is present.)
[in]init: The input scalar of the same type and kind as the input source containing the initialization value (before the copy action) for all elements of the output destin.
This is particularly useful for constructing triangular matrices from symmetric or arbitrary source.
(optional. If missing, the uncopied elements remain uninitialized.)
Returns
destin : The output destination matrix of the same type and kind as source.
On output, the target subset of destin will be overwritten with the corresponding values from the desired subset of source.
The rest of destin remains uninitialized.


Possible calling interfaces ⛓

use pm_matrixCopy, only: getMatCopy
destin = getMatCopy(dpack, source, spack, subset , doff = doff, init = init) ! subset = dia/lowDia/uppDia/uppLow
destin = getMatCopy(dpack, source, spack, subset, operation , doff = doff, init = init) ! operation = transSymm, transHerm
destin = getMatCopy(dpack, source, spack, subset , doff, shape, init = init) ! spack = lfpack, subset = dia/lowDia/uppDia
destin = getMatCopy(dpack, source, spack, subset, operation , doff, shape, init = init) ! spack = lfpack, operation = transSymm, transHerm
!
pm_matrixCopy::getMatCopy
Generate and return a copy of a desired subset of the input source matrix of arbitrary shape (:) or (...
Definition: pm_matrixCopy.F90:300
pm_matrixCopy
This module contains procedures and generic interfaces relevant to copying (diagonal or upper/lower t...
Definition: pm_matrixCopy.F90:113
Warning
The condition len(source) <= len(destin) must hold for the corresponding input arguments of type character.
The condition -size(source, 1) <= doff .and. doff <= +size(source, 2) must hold for the corresponding input arguments.
This interface implements many runtime checks for bound-checking of the input matrices.
These conditions are verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
The pure procedure(s) documented herein become impure when the ParaMonte library is compiled with preprocessor macro CHECK_ENABLED=1.
By default, these procedures are pure in release build and impure in debug and testing builds.
BLAS/LAPACK equivalent:
The procedures under discussion combine, modernize, and extend the interface and functionalities of Version 3.11 of BLAS/LAPACK routine(s): SLACPY, DLACPY, CLACPY, ZLACPY, CTPTTF, DTPTTF, STPTTF, ZTPTTF, CTRTTF, DTRTTF, STRTTF, ZTRTTF, CTFTTP, DTFTTP, STFTTP, ZTFTTP,, CTFTTR, DTFTTR, STFTTR, ZTFTTR.
In particular copying of subsets of character, integer, logical, as well as complex and real matrices are implemented as part of this module.
Furthermore, operations on the subset data to copy (such as symmetric transpose) are also implemented.
See also
setMatCopy
setMatInit
setCopyIndexed
setCopyStrided


Example usage ⛓

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_kind, only: SKG => SK, IKG => IKS, LKG => LK, RKG => RKS, CKG => CKS ! all processor types and kinds are supported.
5 use pm_matrixCopy, only: getMatCopy, transSymm, transHerm
6 use pm_matrixCopy, only: dia, lowDia, uppDia, uppLow
7 use pm_matrixCopy, only: rdpack, lfpack, rfpack
8 use pm_distUnif, only: getUnifRand, setUnifRand
9 use pm_io, only: display_type
10 use pm_io, only: getFormat
11
12 implicit none
13
14 character(:, SK), allocatable :: cform
15 integer(IK) :: doff
16
17 type(display_type) :: disp
18 disp = display_type(file = "main.out.F90")
19
20 cform = getFormat([cmplx(0., 0., CKG)], ed = SK_'f', ndigit = 1_IK, signed = .true.)
21
22 call disp%skip()
23 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
24 call disp%show("! Copy subset to subset in Rectangular Default Format.")
25 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
26 call disp%skip()
27
28 block
29
30 character(2,SKG) :: source(10,10), destin(10,10)
31 character(2,SKG), parameter :: EMPTY = SKG_" "
32
33 call disp%skip()
34 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
35 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
36 call disp%show("source")
37 call disp%show( source , deliml = SK_"""" )
38 call disp%show("destin = EMPTY")
39 destin = EMPTY
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)
42 call disp%show("destin")
43 call disp%show( destin , deliml = SK_"""" )
44 call disp%show("destin = EMPTY")
45 destin = EMPTY
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)
48 call disp%show("destin")
49 call disp%show( destin , deliml = SK_"""" )
50 call disp%skip()
51
52 call disp%show("source")
53 call disp%show( source , deliml = SK_"""" )
54 call disp%show("destin = EMPTY")
55 destin = EMPTY
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)
58 call disp%show("destin")
59 call disp%show( destin , deliml = SK_"""" )
60 call disp%show("destin = EMPTY")
61 destin = EMPTY
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)
64 call disp%show("destin")
65 call disp%show( destin , deliml = SK_"""" )
66 call disp%skip()
67
68 call disp%show("source")
69 call disp%show( source , deliml = SK_"""" )
70 call disp%show("destin = EMPTY")
71 destin = EMPTY
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)
74 call disp%show("destin")
75 call disp%show( destin , deliml = SK_"""" )
76 call disp%show("destin = EMPTY")
77 destin = EMPTY
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)
80 call disp%show("destin")
81 call disp%show( destin , deliml = SK_"""" )
82 call disp%skip()
83
84 call disp%show("source")
85 call disp%show( source , deliml = SK_"""" )
86 call disp%show("destin = EMPTY")
87 destin = EMPTY
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)
90 call disp%show("destin")
91 call disp%show( destin , deliml = SK_"""" )
92 call disp%show("destin = EMPTY")
93 destin = EMPTY
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)
96 call disp%show("destin")
97 call disp%show( destin , deliml = SK_"""" )
98 call disp%skip()
99
100 call disp%show("source")
101 call disp%show( source , deliml = SK_"""" )
102 call disp%show("destin = EMPTY")
103 destin = EMPTY
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)
106 call disp%show("destin")
107 call disp%show( destin , deliml = SK_"""" )
108 call disp%show("destin = EMPTY")
109 destin = EMPTY
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)
112 call disp%show("destin")
113 call disp%show( destin , deliml = SK_"""" )
114 call disp%skip()
115
116 call disp%show("source")
117 call disp%show( source , deliml = SK_"""" )
118 call disp%show("destin = EMPTY")
119 destin = EMPTY
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)
122 call disp%show("destin")
123 call disp%show( destin , deliml = SK_"""" )
124 call disp%show("destin = EMPTY")
125 destin = EMPTY
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)
128 call disp%show("destin")
129 call disp%show( destin , deliml = SK_"""" )
130 call disp%skip()
131
132 call disp%show("source")
133 call disp%show( source , deliml = SK_"""" )
134 call disp%show("destin = EMPTY")
135 destin = EMPTY
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)
138 call disp%show("destin")
139 call disp%show( destin , deliml = SK_"""" )
140 call disp%show("destin = EMPTY")
141 destin = EMPTY
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)
144 call disp%show("destin")
145 call disp%show( destin , deliml = SK_"""" )
146 call disp%skip()
147
148 call disp%show("source")
149 call disp%show( source , deliml = SK_"""" )
150 call disp%show("destin = EMPTY")
151 destin = EMPTY
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)
154 call disp%show("destin")
155 call disp%show( destin , deliml = SK_"""" )
156 call disp%show("destin = EMPTY")
157 destin = EMPTY
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)
160 call disp%show("destin")
161 call disp%show( destin , deliml = SK_"""" )
162 call disp%skip()
163
164 call disp%show("source")
165 call disp%show( source , deliml = SK_"""" )
166 call disp%show("destin = EMPTY")
167 destin = EMPTY
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)
170 call disp%show("destin")
171 call disp%show( destin , deliml = SK_"""" )
172 call disp%show("destin = EMPTY")
173 destin = EMPTY
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)
176 call disp%show("destin")
177 call disp%show( destin , deliml = SK_"""" )
178 call disp%skip()
179
180 call disp%show("source")
181 call disp%show( source , deliml = SK_"""" )
182 call disp%show("destin = EMPTY")
183 destin = EMPTY
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)
186 call disp%show("destin")
187 call disp%show( destin , deliml = SK_"""" )
188 call disp%show("destin = EMPTY")
189 destin = EMPTY
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)
192 call disp%show("destin")
193 call disp%show( destin , deliml = SK_"""" )
194 call disp%skip()
195
196 call disp%show("source")
197 call disp%show( source , deliml = SK_"""" )
198 call disp%show("destin = EMPTY")
199 destin = EMPTY
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)
202 call disp%show("destin")
203 call disp%show( destin , deliml = SK_"""" )
204 call disp%show("destin = EMPTY")
205 destin = EMPTY
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)
208 call disp%show("destin")
209 call disp%show( destin , deliml = SK_"""" )
210 call disp%skip()
211
212 call disp%show("source")
213 call disp%show( source , deliml = SK_"""" )
214 call disp%show("destin = EMPTY")
215 destin = EMPTY
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)
218 call disp%show("destin")
219 call disp%show( destin , deliml = SK_"""" )
220 call disp%show("destin = EMPTY")
221 destin = EMPTY
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)
224 call disp%show("destin")
225 call disp%show( destin , deliml = SK_"""" )
226 call disp%skip()
227
228 call disp%show("source")
229 call disp%show( source , deliml = SK_"""" )
230 call disp%show("destin = EMPTY")
231 destin = EMPTY
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)
234 call disp%show("destin")
235 call disp%show( destin , deliml = SK_"""" )
236 call disp%show("destin = EMPTY")
237 destin = EMPTY
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)
240 call disp%show("destin")
241 call disp%show( destin , deliml = SK_"""" )
242 call disp%skip()
243
244 call disp%show("source")
245 call disp%show( source , deliml = SK_"""" )
246 call disp%show("destin = EMPTY")
247 destin = EMPTY
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)
250 call disp%show("destin")
251 call disp%show( destin , deliml = SK_"""" )
252 call disp%show("destin = EMPTY")
253 destin = EMPTY
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)
256 call disp%show("destin")
257 call disp%show( destin , deliml = SK_"""" )
258 call disp%skip()
259
260 call disp%show("source")
261 call disp%show( source , deliml = SK_"""" )
262 call disp%show("destin = EMPTY")
263 destin = EMPTY
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)
266 call disp%show("destin")
267 call disp%show( destin , deliml = SK_"""" )
268 call disp%show("destin = EMPTY")
269 destin = EMPTY
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)
272 call disp%show("destin")
273 call disp%show( destin , deliml = SK_"""" )
274 call disp%skip()
275
276 call disp%show("source")
277 call disp%show( source , deliml = SK_"""" )
278 call disp%show("destin = EMPTY")
279 destin = EMPTY
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)
282 call disp%show("destin")
283 call disp%show( destin , deliml = SK_"""" )
284 call disp%show("destin = EMPTY")
285 destin = EMPTY
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)
288 call disp%show("destin")
289 call disp%show( destin , deliml = SK_"""" )
290 call disp%skip()
291
292 call disp%show("source")
293 call disp%show( source , deliml = SK_"""" )
294 call disp%show("destin = EMPTY")
295 destin = EMPTY
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)
298 call disp%show("destin")
299 call disp%show( destin , deliml = SK_"""" )
300 call disp%show("destin = EMPTY")
301 destin = EMPTY
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)
304 call disp%show("destin")
305 call disp%show( destin , deliml = SK_"""" )
306 call disp%skip()
307
308 call disp%show("source")
309 call disp%show( source , deliml = SK_"""" )
310 call disp%show("destin = EMPTY")
311 destin = EMPTY
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)
314 call disp%show("destin")
315 call disp%show( destin , deliml = SK_"""" )
316 call disp%show("destin = EMPTY")
317 destin = EMPTY
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)
320 call disp%show("destin")
321 call disp%show( destin , deliml = SK_"""" )
322 call disp%skip()
323
324 call disp%show("source")
325 call disp%show( source , deliml = SK_"""" )
326 call disp%show("destin = EMPTY")
327 destin = EMPTY
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)
330 call disp%show("destin")
331 call disp%show( destin , deliml = SK_"""" )
332 call disp%show("destin = EMPTY")
333 destin = EMPTY
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)
336 call disp%show("destin")
337 call disp%show( destin , deliml = SK_"""" )
338 call disp%skip()
339
340 call disp%show("source")
341 call disp%show( source , deliml = SK_"""" )
342 call disp%show("destin = EMPTY")
343 destin = EMPTY
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)
346 call disp%show("destin")
347 call disp%show( destin , deliml = SK_"""" )
348 call disp%show("destin = EMPTY")
349 destin = EMPTY
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)
352 call disp%show("destin")
353 call disp%show( destin , deliml = SK_"""" )
354 call disp%skip()
355
356 call disp%show("source")
357 call disp%show( source , deliml = SK_"""" )
358 call disp%show("destin = EMPTY")
359 destin = EMPTY
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)
362 call disp%show("destin")
363 call disp%show( destin , deliml = SK_"""" )
364 call disp%show("destin = EMPTY")
365 destin = EMPTY
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)
368 call disp%show("destin")
369 call disp%show( destin , deliml = SK_"""" )
370 call disp%skip()
371
372 call disp%show("source")
373 call disp%show( source , deliml = SK_"""" )
374 call disp%show("destin = EMPTY")
375 destin = EMPTY
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)
378 call disp%show("destin")
379 call disp%show( destin , deliml = SK_"""" )
380 call disp%show("destin = EMPTY")
381 destin = EMPTY
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)
384 call disp%show("destin")
385 call disp%show( destin , deliml = SK_"""" )
386 call disp%skip()
387
388 call disp%show("source")
389 call disp%show( source , deliml = SK_"""" )
390 call disp%show("destin = EMPTY")
391 destin = EMPTY
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)
394 call disp%show("destin")
395 call disp%show( destin , deliml = SK_"""" )
396 call disp%show("destin = EMPTY")
397 destin = EMPTY
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)
400 call disp%show("destin")
401 call disp%show( destin , deliml = SK_"""" )
402 call disp%skip()
403
404 call disp%show("source")
405 call disp%show( source , deliml = SK_"""" )
406 call disp%show("destin = EMPTY")
407 destin = EMPTY
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)
410 call disp%show("destin")
411 call disp%show( destin , deliml = SK_"""" )
412 call disp%show("destin = EMPTY")
413 destin = EMPTY
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)
416 call disp%show("destin")
417 call disp%show( destin , deliml = SK_"""" )
418 call disp%skip()
419
420 call disp%show("source")
421 call disp%show( source , deliml = SK_"""" )
422 call disp%show("doff = 0")
423 doff = 0
424 call disp%show("destin = EMPTY")
425 destin = EMPTY
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)
428 call disp%show("destin")
429 call disp%show( destin , deliml = SK_"""" )
430 call disp%show("destin = EMPTY")
431 destin = EMPTY
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)
434 call disp%show("destin")
435 call disp%show( destin , deliml = SK_"""" )
436 call disp%skip()
437
438 call disp%show("source")
439 call disp%show( source , deliml = SK_"""" )
440 call disp%show("destin = EMPTY")
441 destin = EMPTY
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)
444 call disp%show("destin")
445 call disp%show( destin , deliml = SK_"""" )
446 call disp%show("destin = EMPTY")
447 destin = EMPTY
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)
450 call disp%show("destin")
451 call disp%show( destin , deliml = SK_"""" )
452 call disp%skip()
453
454 call disp%show("source")
455 call disp%show( source , deliml = SK_"""" )
456 call disp%show("destin = EMPTY")
457 destin = EMPTY
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)
460 call disp%show("destin")
461 call disp%show( destin , deliml = SK_"""" )
462 call disp%show("destin = EMPTY")
463 destin = EMPTY
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)
466 call disp%show("destin")
467 call disp%show( destin , deliml = SK_"""" )
468 call disp%skip()
469
470 call disp%show("source")
471 call disp%show( source , deliml = SK_"""" )
472 call disp%show("destin = EMPTY")
473 destin = EMPTY
474 call disp%show("doff = -3")
475 doff = -3
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)
478 call disp%show("destin")
479 call disp%show( destin , deliml = SK_"""" )
480 call disp%show("destin = EMPTY")
481 destin = EMPTY
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)
484 call disp%show("destin")
485 call disp%show( destin , deliml = SK_"""" )
486 call disp%skip()
487
488 call disp%show("source")
489 call disp%show( source , deliml = SK_"""" )
490 call disp%show("doff = -3")
491 doff = -3
492 call disp%show("destin = EMPTY")
493 destin = EMPTY
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)
496 call disp%show("destin")
497 call disp%show( destin , deliml = SK_"""" )
498 call disp%show("destin = EMPTY")
499 destin = EMPTY
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)
502 call disp%show("destin")
503 call disp%show( destin , deliml = SK_"""" )
504 call disp%skip()
505
506 call disp%show("source")
507 call disp%show( source , deliml = SK_"""" )
508 call disp%show("doff = -3")
509 doff = -3
510 call disp%show("destin = EMPTY")
511 destin = EMPTY
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)
514 call disp%show("destin")
515 call disp%show( destin , deliml = SK_"""" )
516 call disp%show("destin = EMPTY")
517 destin = EMPTY
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)
520 call disp%show("destin")
521 call disp%show( destin , deliml = SK_"""" )
522 call disp%skip()
523
524 call disp%show("source")
525 call disp%show( source , deliml = SK_"""" )
526 call disp%show("doff = +3")
527 doff = +3
528 call disp%show("destin = EMPTY")
529 destin = EMPTY
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)
532 call disp%show("destin")
533 call disp%show( destin , deliml = SK_"""" )
534 call disp%show("destin = EMPTY")
535 destin = EMPTY
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)
538 call disp%show("destin")
539 call disp%show( destin , deliml = SK_"""" )
540 call disp%skip()
541
542 call disp%show("source")
543 call disp%show( source , deliml = SK_"""" )
544 call disp%show("doff = +3")
545 doff = +3
546 call disp%show("destin = EMPTY")
547 destin = EMPTY
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)
550 call disp%show("destin")
551 call disp%show( destin , deliml = SK_"""" )
552 call disp%show("destin = EMPTY")
553 destin = EMPTY
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)
556 call disp%show("destin")
557 call disp%show( destin , deliml = SK_"""" )
558 call disp%skip()
559
560 call disp%show("source")
561 call disp%show( source , deliml = SK_"""" )
562 call disp%show("doff = +3")
563 doff = +3
564 call disp%show("destin = EMPTY")
565 destin = EMPTY
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)
568 call disp%show("destin")
569 call disp%show( destin , deliml = SK_"""" )
570 call disp%show("destin = EMPTY")
571 destin = EMPTY
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)
574 call disp%show("destin")
575 call disp%show( destin , deliml = SK_"""" )
576 call disp%skip()
577
578 call disp%show("source")
579 call disp%show( source , deliml = SK_"""" )
580 call disp%show("doff = -4")
581 doff = -4
582 call disp%show("destin = EMPTY")
583 destin = EMPTY
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)
586 call disp%show("destin")
587 call disp%show( destin , deliml = SK_"""" )
588 call disp%show("destin = EMPTY")
589 destin = EMPTY
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)
592 call disp%show("destin")
593 call disp%show( destin , deliml = SK_"""" )
594 call disp%skip()
595
596 call disp%show("source")
597 call disp%show( source , deliml = SK_"""" )
598 call disp%show("doff = -4")
599 doff = -4
600 call disp%show("destin = EMPTY")
601 destin = EMPTY
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)
604 call disp%show("destin")
605 call disp%show( destin , deliml = SK_"""" )
606 call disp%show("destin = EMPTY")
607 destin = EMPTY
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)
610 call disp%show("destin")
611 call disp%show( destin , deliml = SK_"""" )
612 call disp%skip()
613
614 call disp%show("source")
615 call disp%show( source , deliml = SK_"""" )
616 call disp%show("doff = +4")
617 doff = +4
618 call disp%show("destin = EMPTY")
619 destin = EMPTY
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)
622 call disp%show("destin")
623 call disp%show( destin , deliml = SK_"""" )
624 call disp%show("destin = EMPTY")
625 destin = EMPTY
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)
628 call disp%show("destin")
629 call disp%show( destin , deliml = SK_"""" )
630 call disp%skip()
631
632
633
634 call disp%skip()
635 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
636 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
637 call disp%show("source")
638 call disp%show( source , deliml = SK_"""" )
639
640 call disp%show("doff = -3")
641 doff = -3
642 call disp%show("destin = EMPTY")
643 destin = EMPTY
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)
646 call disp%show("destin")
647 call disp%show( destin , deliml = SK_"""" )
648 call disp%show("destin = EMPTY")
649 destin = EMPTY
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)
652 call disp%show("destin")
653 call disp%show( destin , deliml = SK_"""" )
654 call disp%skip()
655
656 call disp%show("doff = -3")
657 doff = -3
658 call disp%show("destin = EMPTY")
659 destin = EMPTY
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)
662 call disp%show("destin")
663 call disp%show( destin , deliml = SK_"""" )
664 call disp%show("destin = EMPTY")
665 destin = EMPTY
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)
668 call disp%show("destin")
669 call disp%show( destin , deliml = SK_"""" )
670 call disp%skip()
671
672 call disp%show("doff = -3")
673 doff = -3
674 call disp%show("destin = EMPTY")
675 destin = EMPTY
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)
678 call disp%show("destin")
679 call disp%show( destin , deliml = SK_"""" )
680 call disp%show("destin = EMPTY")
681 destin = EMPTY
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)
684 call disp%show("destin")
685 call disp%show( destin , deliml = SK_"""" )
686 call disp%skip()
687
688 call disp%show("doff = +3")
689 doff = +3
690 call disp%show("destin = EMPTY")
691 destin = EMPTY
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)
694 call disp%show("destin")
695 call disp%show( destin , deliml = SK_"""" )
696 call disp%show("destin = EMPTY")
697 destin = EMPTY
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)
700 call disp%show("destin")
701 call disp%show( destin , deliml = SK_"""" )
702 call disp%skip()
703
704 call disp%show("doff = +3")
705 doff = +3
706 call disp%show("destin = EMPTY")
707 destin = EMPTY
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)
710 call disp%show("destin")
711 call disp%show( destin , deliml = SK_"""" )
712 call disp%show("destin = EMPTY")
713 destin = EMPTY
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)
716 call disp%show("destin")
717 call disp%show( destin , deliml = SK_"""" )
718 call disp%skip()
719
720 call disp%show("doff = +3")
721 doff = +3
722 call disp%show("destin = EMPTY")
723 destin = EMPTY
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)
726 call disp%show("destin")
727 call disp%show( destin , deliml = SK_"""" )
728 call disp%show("destin = EMPTY")
729 destin = EMPTY
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)
732 call disp%show("destin")
733 call disp%show( destin , deliml = SK_"""" )
734 call disp%skip()
735
736 call disp%show("destin = EMPTY")
737 destin = EMPTY
738 call disp%show("doff = -3")
739 doff = -3
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)
742 call disp%show("destin")
743 call disp%show( destin , deliml = SK_"""" )
744 call disp%show("destin = EMPTY")
745 destin = EMPTY
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)
748 call disp%show("destin")
749 call disp%show( destin , deliml = SK_"""" )
750 call disp%skip()
751
752 call disp%show("doff = -3")
753 doff = -3
754 call disp%show("destin = EMPTY")
755 destin = EMPTY
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)
758 call disp%show("destin")
759 call disp%show( destin , deliml = SK_"""" )
760 call disp%show("destin = EMPTY")
761 destin = EMPTY
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)
764 call disp%show("destin")
765 call disp%show( destin , deliml = SK_"""" )
766 call disp%skip()
767
768 call disp%show("doff = -3")
769 doff = -3
770 call disp%show("destin = EMPTY")
771 destin = EMPTY
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)
774 call disp%show("destin")
775 call disp%show( destin , deliml = SK_"""" )
776 call disp%show("destin = EMPTY")
777 destin = EMPTY
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)
780 call disp%show("destin")
781 call disp%show( destin , deliml = SK_"""" )
782 call disp%skip()
783
784 call disp%show("doff = +3")
785 doff = +3
786 call disp%show("destin = EMPTY")
787 destin = EMPTY
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)
790 call disp%show("destin")
791 call disp%show( destin , deliml = SK_"""" )
792 call disp%show("destin = EMPTY")
793 destin = EMPTY
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)
796 call disp%show("destin")
797 call disp%show( destin , deliml = SK_"""" )
798 call disp%skip()
799
800 call disp%show("doff = +3")
801 doff = +3
802 call disp%show("destin = EMPTY")
803 destin = EMPTY
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)
806 call disp%show("destin")
807 call disp%show( destin , deliml = SK_"""" )
808 call disp%show("destin = EMPTY")
809 destin = EMPTY
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)
812 call disp%show("destin")
813 call disp%show( destin , deliml = SK_"""" )
814 call disp%skip()
815
816 call disp%show("doff = +3")
817 doff = +3
818 call disp%show("destin = EMPTY")
819 destin = EMPTY
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)
822 call disp%show("destin")
823 call disp%show( destin , deliml = SK_"""" )
824 call disp%show("destin = EMPTY")
825 destin = EMPTY
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)
828 call disp%show("destin")
829 call disp%show( destin , deliml = SK_"""" )
830 call disp%skip()
831
832 end block
833
834
835
836 block
837
838 complex(CKG) :: source(5,5), destin(5,5)
839 complex(CKG), parameter :: NONE = (0._CKG, 0._CKG)
840
841 call disp%skip()
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)
844 call disp%show("source")
845 call disp%show( source , format = cform )
846
847 call disp%show("doff = -1")
848 doff = -1
849 call disp%show("destin = NONE")
850 destin = NONE
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)
853 call disp%show("destin")
854 call disp%show( destin , format = cform )
855 call disp%show("destin = NONE")
856 destin = NONE
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)
859 call disp%show("destin")
860 call disp%show( destin , format = cform )
861 call disp%skip()
862
863 call disp%show("doff = -1")
864 doff = -1
865 call disp%show("destin = NONE")
866 destin = NONE
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)
869 call disp%show("destin")
870 call disp%show( destin , format = cform )
871 call disp%show("destin = NONE")
872 destin = NONE
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)
875 call disp%show("destin")
876 call disp%show( destin , format = cform )
877 call disp%skip()
878
879 call disp%show("doff = -1")
880 doff = -1
881 call disp%show("destin = NONE")
882 destin = NONE
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)
885 call disp%show("destin")
886 call disp%show( destin , format = cform )
887 call disp%show("destin = NONE")
888 destin = NONE
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)
891 call disp%show("destin")
892 call disp%show( destin , format = cform )
893 call disp%skip()
894
895 call disp%show("destin = NONE")
896 destin = NONE
897 call disp%show("doff = +1")
898 doff = +1
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)
901 call disp%show("destin")
902 call disp%show( destin , format = cform )
903 call disp%skip()
904
905 call disp%show("doff = +1")
906 doff = +1
907 call disp%show("destin = NONE")
908 destin = NONE
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)
911 call disp%show("destin")
912 call disp%show( destin , format = cform )
913 call disp%show("destin = NONE")
914 destin = NONE
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)
917 call disp%show("destin")
918 call disp%show( destin , format = cform )
919 call disp%skip()
920
921 call disp%show("doff = +1")
922 doff = +1
923 call disp%show("destin = NONE")
924 destin = NONE
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)
927 call disp%show("destin")
928 call disp%show( destin , format = cform )
929 call disp%show("destin = NONE")
930 destin = NONE
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)
933 call disp%show("destin")
934 call disp%show( destin , format = cform )
935 call disp%skip()
936
937 call disp%show("destin = NONE")
938 destin = NONE
939 call disp%show("doff = -1")
940 doff = -1
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)
943 call disp%show("destin")
944 call disp%show( destin , format = cform )
945 call disp%skip()
946
947 call disp%show("doff = -1")
948 doff = -1
949 call disp%show("destin = NONE")
950 destin = NONE
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)
953 call disp%show("destin")
954 call disp%show( destin , format = cform )
955 call disp%show("destin = NONE")
956 destin = NONE
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)
959 call disp%show("destin")
960 call disp%show( destin , format = cform )
961 call disp%skip()
962
963 call disp%show("doff = -1")
964 doff = -1
965 call disp%show("destin = NONE")
966 destin = NONE
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)
969 call disp%show("destin")
970 call disp%show( destin , format = cform )
971 call disp%show("destin = NONE")
972 destin = NONE
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)
975 call disp%show("destin")
976 call disp%show( destin , format = cform )
977 call disp%skip()
978
979 call disp%show("doff = +1")
980 doff = +1
981 call disp%show("destin = NONE")
982 destin = NONE
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)
985 call disp%show("destin")
986 call disp%show( destin , format = cform )
987 call disp%show("destin = NONE")
988 destin = NONE
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)
991 call disp%show("destin")
992 call disp%show( destin , format = cform )
993 call disp%skip()
994
995 call disp%show("doff = +1")
996 doff = +1
997 call disp%show("destin = NONE")
998 destin = NONE
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)
1001 call disp%show("destin")
1002 call disp%show( destin , format = cform )
1003 call disp%show("destin = NONE")
1004 destin = NONE
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)
1007 call disp%show("destin")
1008 call disp%show( destin , format = cform )
1009 call disp%skip()
1010
1011 call disp%show("doff = +1")
1012 doff = +1
1013 call disp%show("destin = NONE")
1014 destin = NONE
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)
1017 call disp%show("destin")
1018 call disp%show( destin , format = cform )
1019 call disp%show("destin = NONE")
1020 destin = NONE
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)
1023 call disp%show("destin")
1024 call disp%show( destin , format = cform )
1025 call disp%skip()
1026
1027 end block
1028
1029 call disp%skip()
1030 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1031 call disp%show("! Copy the diagonal elements in Linear Full Packing format.")
1032 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1033 call disp%skip()
1034
1035 block
1036
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(:)
1041
1042 call disp%skip()
1043 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1044 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1045 call disp%show("source")
1046 call disp%show( source , deliml = SK_"""" )
1047
1048 call disp%show("destin = EMPTY")
1049 destin = EMPTY
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)
1052 call disp%show("destin")
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)
1056 call disp%show("desnew")
1057 call disp%show( desnew , deliml = SK_"""" )
1058 call disp%skip()
1059
1060 call disp%show("destin = EMPTY")
1061 destin = EMPTY
1062 call disp%show("doff = -3")
1063 doff = -3
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])
1066 call disp%show("destin")
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)
1070 call disp%show("desnew")
1071 call disp%show( desnew , deliml = SK_"""" )
1072 call disp%skip()
1073
1074
1075 call disp%skip()
1076 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1077 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1078 call disp%show("source")
1079 call disp%show( source , deliml = SK_"""" )
1080
1081 call disp%show("destin = EMPTY")
1082 destin = EMPTY
1083 call disp%show("doff = +3;")
1084 doff = +3;
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])
1087 call disp%show("destin")
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)
1091 call disp%show("desnew")
1092 call disp%show( desnew , deliml = SK_"""" )
1093 call disp%skip()
1094
1095
1096 call disp%show("destin = EMPTY")
1097 destin = EMPTY
1098 call disp%show("doff = +3;")
1099 doff = +3;
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])
1102 call disp%show("destin")
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)
1106 call disp%show("desnew")
1107 call disp%show( desnew , deliml = SK_"""" )
1108 call disp%skip()
1109
1110 end block
1111
1112 call disp%skip()
1113 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1114 call disp%show("! Copy upper/lower triangle in Linear Full Packing format.")
1115 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1116 call disp%skip()
1117
1118 block
1119
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(:)
1124
1125 call disp%skip()
1126 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1127 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1128 call disp%show("source")
1129 call disp%show( source , deliml = SK_"""" )
1130 call disp%show("destin = EMPTY")
1131 destin = EMPTY
1132 call disp%show("doff = -3")
1133 doff = -3
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])
1136 call disp%show("destin")
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)
1140 call disp%show("desnew")
1141 call disp%show( desnew , deliml = SK_"""" )
1142 call disp%skip()
1143
1144 call disp%skip()
1145 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1146 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1147 call disp%show("source")
1148 call disp%show( source , deliml = SK_"""" )
1149 call disp%show("destin = EMPTY")
1150 destin = EMPTY
1151 call disp%show("doff = -3")
1152 doff = -3
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])
1155 call disp%show("destin")
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)
1159 call disp%show("desnew")
1160 call disp%show( desnew , deliml = SK_"""" )
1161 call disp%skip()
1162
1163
1164 call disp%skip()
1165 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1166 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1167 call disp%show("source")
1168 call disp%show( source , deliml = SK_"""" )
1169
1170 call disp%show("destin = EMPTY")
1171 destin = EMPTY
1172 call disp%show("doff = +3;")
1173 doff = +3;
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])
1176 call disp%show("destin")
1177 call disp%show( destin , deliml = SK_"""" )
1178 call disp%show("destin = EMPTY")
1179 destin = EMPTY
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])
1182 call disp%show("destin")
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)
1186 call disp%show("desnew")
1187 call disp%show( desnew , deliml = SK_"""" )
1188 call disp%skip()
1189
1190
1191 call disp%show("destin = EMPTY")
1192 destin = EMPTY
1193 call disp%show("doff = +3;")
1194 doff = +3;
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])
1197 call disp%show("destin")
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)
1201 call disp%show("desnew")
1202 call disp%show( desnew , deliml = SK_"""" )
1203 call disp%skip()
1204
1205 end block
1206
1207 call disp%skip()
1208 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1209 call disp%show("! Copy upper/lower triangle in Rectangular Full Packing format.")
1210 call disp%show("!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%")
1211 call disp%skip()
1212
1213 block
1214
1215 character(2,SKG) :: source(10,10), destin(10,10)
1216 character(2,SKG), parameter :: EMPTY = SKG_" "
1217 character(2,SKG), allocatable :: desnew(:,:)
1218
1219 call disp%skip()
1220 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1221 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1222 call disp%show("source")
1223 call disp%show( source , deliml = SK_"""" )
1224 call disp%show("destin = EMPTY")
1225 destin = EMPTY
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)
1228 call disp%show("destin")
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)) ! transpose
1232 call disp%show("desnew")
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)
1236 call disp%show("desnew")
1237 call disp%show( desnew , deliml = SK_"""" )
1238 call disp%skip()
1239
1240 call disp%skip()
1241 call disp%show("call setUnifRand(source, SKG_'AA', SKG_'ZZ')")
1242 call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1243 call disp%show("source")
1244 call disp%show( source , deliml = SK_"""" )
1245 call disp%show("destin = EMPTY")
1246 destin = EMPTY
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)
1249 call disp%show("destin(2:6,3:5)")
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)
1253 call disp%show("desnew")
1254 call disp%show( desnew , deliml = SK_"""" )
1255 call disp%skip()
1256
1257 end block
1258
1259end program example
pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150
pm_distUnif::setUnifRand
Return a uniform random scalar or contiguous array of arbitrary rank of randomly uniformly distribute...
Definition: pm_distUnif.F90:11061
pm_io::getFormat
Generate and return a generic or type/kind-specific IO format with the requested specifications that ...
Definition: pm_io.F90:18485
pm_io::show
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726
pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570
pm_kind::IKS
integer, parameter IKS
The single-precision integer kind in Fortran mode. On most platforms, this is a 32-bit integer kind.
Definition: pm_kind.F90:563
pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540
pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539
pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567
pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe
4./main.exe

Example output ⛓
1
2!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3! Copy subset to subset in Rectangular Default Format.
4!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
5
6
7call setUnifRand(source, SKG_'AA', SKG_'ZZ')
8source
9"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
10"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
11"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
12"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
13"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
14"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
15"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
16"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
17"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
18"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
19destin = EMPTY
20destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia)
21destin
22" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
23" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
24" ", "YK", "VD", "TD", "RE", "QL", " ", " ", " ", " "
25" ", " ", "AB", "HV", "IG", "BN", " ", " ", " ", " "
26" ", "Ũ", " ", "DP", "PT", "PS", " ", " ", " ", " "
27" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
28" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
29" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
30" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
31" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
32destin = EMPTY
33destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)
34destin
35" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
36" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
37" ", "YK", "VD", "TD", "RE", "QL", " ", " ", " ", " "
38" ", " ", "AB", "HV", "IG", "BN", " ", " ", " ", " "
39" ", "Ũ", " ", "DP", "PT", "PS", " ", " ", " ", " "
40" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
41" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
42" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
43" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
44" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
45
46source
47"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
48"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
49"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
50"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
51"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
52"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
53"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
54"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
55"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
56"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
57destin = EMPTY
58destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transSymm)
59destin
60" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
61" ", " ", "YK", " ", "IG", " ", " ", " ", " ", " "
62" ", " ", "VD", "AB", "PT", " ", " ", " ", " ", " "
63" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
64" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
65" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
66" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
67" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
68" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
69" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
70destin = EMPTY
71destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
72destin
73" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
74" ", " ", "YK", " ", "IG", " ", " ", " ", " ", " "
75" ", " ", "VD", "AB", "PT", " ", " ", " ", " ", " "
76" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
77" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
78" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
79" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
80" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
81" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
82" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
83
84source
85"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
86"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
87"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
88"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
89"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
90"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
91"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
92"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
93"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
94"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
95destin = EMPTY
96destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transHerm)
97destin
98" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
99" ", " ", "YK", " ", "IG", " ", " ", " ", " ", " "
100" ", " ", "VD", "AB", "PT", " ", " ", " ", " ", " "
101" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
102" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
103" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
104" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
105" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
106" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
107" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
108destin = EMPTY
109destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
110destin
111" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
112" ", " ", "YK", " ", "IG", " ", " ", " ", " ", " "
113" ", " ", "VD", "AB", "PT", " ", " ", " ", " ", " "
114" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
115" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
116" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
117" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
118" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
119" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
120" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
121
122source
123"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
124"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
125"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
126"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
127"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
128"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
129"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
130"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
131"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
132"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
133destin = EMPTY
134destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia)
135destin
136" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
137" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
138" ", "YK", "RE", "AB", "BN", "DP", " ", " ", " ", " "
139" ", "ZR", "AB", "HV", "IG", "PT", " ", " ", " ", " "
140" ", "VA", "RX", "DP", "PT", "PS", " ", " ", " ", " "
141" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
142" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
143" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
144" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
145" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
146destin = EMPTY
147destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)
148destin
149" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
150" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
151" ", "YK", "RE", "AB", "BN", "DP", " ", " ", " ", " "
152" ", "ZR", "AB", "HV", "IG", "PT", " ", " ", " ", " "
153" ", "VA", "RX", "DP", "PT", "PS", " ", " ", " ", " "
154" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
155" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
156" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
157" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
158" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
159
160source
161"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
162"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
163"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
164"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
165"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
166"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
167"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
168"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
169"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
170"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
171destin = EMPTY
172destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transSymm)
173destin
174" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
175" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
176" ", " ", "ZR", "AB", "RX", " ", " ", " ", " ", " "
177" ", " ", "VA", "HV", "DP", " ", " ", " ", " ", " "
178" ", " ", "RE", "DP", "PT", " ", " ", " ", " ", " "
179" ", " ", "AB", "BN", "PS", " ", " ", " ", " ", " "
180" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
181" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
182" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
183" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
184destin = EMPTY
185destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
186destin
187" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
188" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
189" ", " ", "ZR", "AB", "RX", " ", " ", " ", " ", " "
190" ", " ", "VA", "HV", "DP", " ", " ", " ", " ", " "
191" ", " ", "RE", "DP", "PT", " ", " ", " ", " ", " "
192" ", " ", "AB", "BN", "PS", " ", " ", " ", " ", " "
193" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
194" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
195" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
196" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
197
198source
199"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
200"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
201"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
202"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
203"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
204"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
205"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
206"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
207"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
208"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
209destin = EMPTY
210destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transHerm)
211destin
212" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
213" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
214" ", " ", "ZR", "AB", "RX", " ", " ", " ", " ", " "
215" ", " ", "VA", "HV", "DP", " ", " ", " ", " ", " "
216" ", " ", "RE", "DP", "PT", " ", " ", " ", " ", " "
217" ", " ", "AB", "BN", "PS", " ", " ", " ", " ", " "
218" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
219" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
220" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
221" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
222destin = EMPTY
223destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
224destin
225" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
226" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
227" ", " ", "ZR", "AB", "RX", " ", " ", " ", " ", " "
228" ", " ", "VA", "HV", "DP", " ", " ", " ", " ", " "
229" ", " ", "RE", "DP", "PT", " ", " ", " ", " ", " "
230" ", " ", "AB", "BN", "PS", " ", " ", " ", " ", " "
231" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
232" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
233" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
234" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
235
236source
237"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
238"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
239"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
240"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
241"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
242"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
243"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
244"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
245"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
246"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
247destin = EMPTY
248destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow)
249destin
250" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
251" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
252" ", "YK", "VD", "TD", "RE", "QL", " ", " ", " ", " "
253" ", "ZR", "AB", "HV", "IG", "BN", " ", " ", " ", " "
254" ", "VA", "RX", "DP", "PT", "PS", " ", " ", " ", " "
255" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
256" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
257" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
258" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
259" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
260destin = EMPTY
261destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)
262destin
263" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
264" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
265" ", "YK", "VD", "TD", "RE", "QL", " ", " ", " ", " "
266" ", "ZR", "AB", "HV", "IG", "BN", " ", " ", " ", " "
267" ", "VA", "RX", "DP", "PT", "PS", " ", " ", " ", " "
268" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
269" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
270" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
271" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
272" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
273
274source
275"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
276"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
277"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
278"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
279"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
280"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
281"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
282"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
283"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
284"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
285destin = EMPTY
286destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transSymm)
287destin
288" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
289" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
290" ", " ", "VD", "TD", "RX", " ", " ", " ", " ", " "
291" ", " ", "TD", "HV", "QL", " ", " ", " ", " ", " "
292" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
293" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
294" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
295" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
296" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
297" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
298destin = EMPTY
299destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
300destin
301" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
302" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
303" ", " ", "VD", "AB", "RX", " ", " ", " ", " ", " "
304" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
305" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
306" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
307" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
308" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
309" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
310" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
311
312source
313"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
314"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
315"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
316"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
317"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
318"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
319"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
320"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
321"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
322"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
323destin = EMPTY
324destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transHerm)
325destin
326" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
327" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
328" ", " ", "VD", "AB", "RX", " ", " ", " ", " ", " "
329" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
330" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
331" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
332" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
333" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
334" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
335" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
336destin = EMPTY
337destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
338destin
339" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
340" ", " ", "YK", "ZR", "VA", " ", " ", " ", " ", " "
341" ", " ", "VD", "AB", "RX", " ", " ", " ", " ", " "
342" ", " ", "TD", "HV", "DP", " ", " ", " ", " ", " "
343" ", " ", "RE", "IG", "PT", " ", " ", " ", " ", " "
344" ", " ", "QL", "BN", "PS", " ", " ", " ", " ", " "
345" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
346" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
347" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
348" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
349
350source
351"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
352"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
353"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
354"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
355"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
356"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
357"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
358"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
359"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
360"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
361destin = EMPTY
362destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia)
363destin
364" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
365" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
366" ", "YK", "VD", "TD", " ", " ", " ", " ", " ", " "
367" ", "VD", "AB", "HV", " ", " ", " ", " ", " ", " "
368" ", "TD", "HV", "DP", " ", " ", " ", " ", " ", " "
369" ", "RE", "IG", "PT", " ", " ", " ", " ", " ", " "
370" ", "QL", "BN", "PS", " ", " ", " ", " ", " ", " "
371" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
372" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
373" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
374destin = EMPTY
375destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
376destin
377" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
378" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
379" ", "YK", "VD", "TD", " ", " ", " ", " ", " ", " "
380" ", "VD", "AB", "HV", " ", " ", " ", " ", " ", " "
381" ", "TD", "HV", "DP", " ", " ", " ", " ", " ", " "
382" ", "RE", "IG", "PT", " ", " ", " ", " ", " ", " "
383" ", "QL", "BN", "PS", " ", " ", " ", " ", " ", " "
384" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
385" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
386" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
387
388source
389"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
390"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
391"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
392"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
393"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
394"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
395"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
396"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
397"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
398"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
399destin = EMPTY
400destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transSymm)
401destin
402" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
403" ", " ", "YK", "RE", "AB", "BN", "DP", " ", " ", " "
404" ", " ", "VD", "AB", "HV", "TD", "PT", " ", " ", " "
405" ", " ", "TD", "HV", "DP", "HV", "PS", " ", " ", " "
406" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
407" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
408" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
409" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
410" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
411" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
412destin = EMPTY
413destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
414destin
415" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
416" ", " ", "YK", "RE", "AB", "BN", "DP", " ", " ", " "
417" ", " ", "VD", "AB", "HV", "TD", "PT", " ", " ", " "
418" ", " ", "TD", "HV", "DP", "HV", "PS", " ", " ", " "
419" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
420" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
421" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
422" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
423" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
424" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
425
426source
427"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
428"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
429"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
430"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
431"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
432"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
433"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
434"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
435"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
436"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
437destin = EMPTY
438destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transHerm)
439destin
440" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
441" ", " ", "YK", "RE", "AB", "BN", "DP", " ", " ", " "
442" ", " ", "VD", "AB", "HV", "TD", "PT", " ", " ", " "
443" ", " ", "TD", "HV", "DP", "HV", "PS", " ", " ", " "
444" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
445" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
446" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
447" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
448" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
449" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
450destin = EMPTY
451destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
452destin
453" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
454" ", " ", "YK", "RE", "AB", "BN", "DP", " ", " ", " "
455" ", " ", "VD", "AB", "HV", "TD", "PT", " ", " ", " "
456" ", " ", "TD", "HV", "DP", "HV", "PS", " ", " ", " "
457" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
458" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
459" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
460" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
461" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
462" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
463
464source
465"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
466"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
467"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
468"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
469"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
470"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
471"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
472"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
473"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
474"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
475destin = EMPTY
476destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia)
477destin
478" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
479" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
480" ", "YK", "HV", "TD", " ", " ", " ", " ", " ", " "
481" ", "ZR", "AB", "HV", " ", " ", " ", " ", " ", " "
482" ", "VA", "RX", "DP", " ", " ", " ", " ", " ", " "
483" ", "PD", "EW", "WK", " ", " ", " ", " ", " ", " "
484" ", "XN", "SY", "CH", " ", " ", " ", " ", " ", " "
485" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
486" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
487" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
488destin = EMPTY
489destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
490destin
491" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
492" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
493" ", "YK", "HV", "TD", " ", " ", " ", " ", " ", " "
494" ", "ZR", "AB", "HV", " ", " ", " ", " ", " ", " "
495" ", "VA", "RX", "DP", " ", " ", " ", " ", " ", " "
496" ", "PD", "EW", "WK", " ", " ", " ", " ", " ", " "
497" ", "XN", "SY", "CH", " ", " ", " ", " ", " ", " "
498" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
499" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
500" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
501
502source
503"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
504"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
505"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
506"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
507"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
508"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
509"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
510"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
511"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
512"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
513destin = EMPTY
514destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transSymm)
515destin
516" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
517" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
518" ", " ", "ZR", "AB", "RX", "EW", "SY", " ", " ", " "
519" ", " ", "VA", "HV", "DP", "WK", "CH", " ", " ", " "
520" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
521" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
522" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
523" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
524" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
525" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
526destin = EMPTY
527destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
528destin
529" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
530" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
531" ", " ", "ZR", "AB", "RX", "EW", "SY", " ", " ", " "
532" ", " ", "VA", "HV", "DP", "WK", "CH", " ", " ", " "
533" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
534" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
535" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
536" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
537" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
538" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
539
540source
541"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
542"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
543"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
544"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
545"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
546"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
547"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
548"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
549"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
550"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
551destin = EMPTY
552destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transHerm)
553destin
554" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
555" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
556" ", " ", "ZR", "AB", "RX", "EW", "SY", " ", " ", " "
557" ", " ", "VA", "HV", "DP", "WK", "CH", " ", " ", " "
558" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
559" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
560" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
561" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
562" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
563" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
564destin = EMPTY
565destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
566destin
567" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
568" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
569" ", " ", "ZR", "AB", "RX", "EW", "SY", " ", " ", " "
570" ", " ", "VA", "HV", "DP", "WK", "CH", " ", " ", " "
571" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
572" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
573" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
574" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
575" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
576" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
577
578source
579"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
580"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
581"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
582"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
583"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
584"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
585"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
586"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
587"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
588"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
589destin = EMPTY
590destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow)
591destin
592" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
593" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
594" ", "YK", "VD", "TD", " ", " ", " ", " ", " ", " "
595" ", "ZR", "VA", "HV", " ", " ", " ", " ", " ", " "
596" ", "VA", "RX", "XN", " ", " ", " ", " ", " ", " "
597" ", "PD", "EW", "WK", " ", " ", " ", " ", " ", " "
598" ", "XN", "SY", "CH", " ", " ", " ", " ", " ", " "
599" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
600" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
601" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
602destin = EMPTY
603destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
604destin
605" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
606" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
607" ", "YK", "VD", "TD", " ", " ", " ", " ", " ", " "
608" ", "ZR", "AB", "HV", " ", " ", " ", " ", " ", " "
609" ", "VA", "RX", "DP", " ", " ", " ", " ", " ", " "
610" ", "PD", "EW", "WK", " ", " ", " ", " ", " ", " "
611" ", "XN", "SY", "CH", " ", " ", " ", " ", " ", " "
612" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
613" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
614" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
615
616source
617"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
618"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
619"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
620"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
621"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
622"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
623"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
624"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
625"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
626"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
627destin = EMPTY
628destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transSymm)
629destin
630" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
631" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
632" ", " ", "VD", "XN", "RX", "EW", "SY", " ", " ", " "
633" ", " ", "TD", "HV", "EW", "WK", "CH", " ", " ", " "
634" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
635" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
636" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
637" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
638" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
639" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
640destin = EMPTY
641destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
642destin
643" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
644" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
645" ", " ", "VD", "AB", "RX", "EW", "SY", " ", " ", " "
646" ", " ", "TD", "HV", "DP", "WK", "CH", " ", " ", " "
647" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
648" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
649" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
650" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
651" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
652" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
653
654source
655"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
656"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
657"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
658"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
659"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
660"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
661"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
662"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
663"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
664"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
665destin = EMPTY
666destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transHerm)
667destin
668" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
669" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
670" ", " ", "VD", "AB", "RX", "EW", "SY", " ", " ", " "
671" ", " ", "TD", "HV", "DP", "WK", "CH", " ", " ", " "
672" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
673" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
674" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
675" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
676" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
677" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
678destin = EMPTY
679destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
680destin
681" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
682" ", " ", "YK", "ZR", "VA", "PD", "XN", " ", " ", " "
683" ", " ", "VD", "AB", "RX", "EW", "SY", " ", " ", " "
684" ", " ", "TD", "HV", "DP", "WK", "CH", " ", " ", " "
685" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
686" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
687" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
688" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
689" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
690" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
691
692source
693"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
694"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
695"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
696"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
697"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
698"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
699"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
700"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
701"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
702"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
703destin = EMPTY
704destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia)
705destin
706" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
707" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
708" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
709" ", " ", "VD", "GU", "YK", "VD", "TD", " ", " ", " "
710" ", " ", "TD", "RX", "ZR", "AB", "HV", " ", " ", " "
711" ", " ", "ZR", "DP", "SY", "RX", "DP", " ", " ", " "
712" ", " ", "AB", "PD", "CH", " ", "WK", " ", " ", " "
713" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
714" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
715" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
716destin = EMPTY
717destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
718destin
719" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
720" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
721" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
722" ", " ", "VD", "GU", "YK", "VD", "TD", " ", " ", " "
723" ", " ", "TD", "RX", "ZR", "AB", "HV", " ", " ", " "
724" ", " ", "ZR", "DP", "SY", "RX", "DP", " ", " ", " "
725" ", " ", "AB", "PD", "CH", " ", "WK", " ", " ", " "
726" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
727" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
728" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
729
730source
731"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
732"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
733"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
734"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
735"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
736"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
737"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
738"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
739"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
740"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
741destin = EMPTY
742destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transSymm)
743destin
744" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
745" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
746" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
747" ", " ", "QB", "GU", "YK", "VD", "TD", " ", " ", " "
748" ", " ", "MV", "YK", "ZR", "AB", "HV", " ", " ", " "
749" ", " ", "MI", "VD", "AB", "RX", "DP", " ", " ", " "
750" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
751" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
752" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
753" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
754destin = EMPTY
755destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)
756destin
757" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
758" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
759" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
760" ", " ", "QB", "GU", "YK", "VD", "TD", " ", " ", " "
761" ", " ", "MV", "YK", "ZR", "AB", "HV", " ", " ", " "
762" ", " ", "MI", "VD", "AB", "RX", "DP", " ", " ", " "
763" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
764" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
765" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
766" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
767
768source
769"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
770"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
771"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
772"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
773"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
774"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
775"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
776"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
777"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
778"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
779destin = EMPTY
780destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transHerm)
781destin
782" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
783" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
784" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
785" ", " ", "QB", "GU", "YK", "VD", "TD", " ", " ", " "
786" ", " ", "MV", "YK", "ZR", "AB", "HV", " ", " ", " "
787" ", " ", "MI", "VD", "AB", "RX", "DP", " ", " ", " "
788" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
789" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
790" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
791" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
792destin = EMPTY
793destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)
794destin
795" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
796" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
797" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
798" ", " ", "QB", "GU", "YK", "VD", "TD", " ", " ", " "
799" ", " ", "MV", "YK", "ZR", "AB", "HV", " ", " ", " "
800" ", " ", "MI", "VD", "AB", "RX", "DP", " ", " ", " "
801" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
802" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
803" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
804" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
805
806source
807"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
808"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
809"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
810"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
811"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
812"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
813"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
814"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
815"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
816"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
817destin = EMPTY
818destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia)
819destin
820" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
821" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
822" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
823" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
824" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
825" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
826" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
827" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
828" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
829" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
830destin = EMPTY
831destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
832destin
833" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
834" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
835" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
836" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
837" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
838" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
839" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
840" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
841" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
842" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
843
844source
845"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
846"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
847"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
848"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
849"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
850"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
851"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
852"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
853"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
854"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
855destin = EMPTY
856destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transSymm)
857destin
858" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
859" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
860" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
861" ", " ", "FZ", "GU", "FS", "EW", "DX", " ", " ", " "
862" ", " ", "FJ", "FS", "ZR", "VA", "PD", " ", " ", " "
863" ", " ", "IQ", "EW", "VA", "RX", "EW", " ", " ", " "
864" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
865" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
866" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
867" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
868destin = EMPTY
869destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)
870destin
871" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
872" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
873" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
874" ", " ", "FZ", "GU", "FS", "EW", "DX", " ", " ", " "
875" ", " ", "FJ", "FS", "ZR", "VA", "PD", " ", " ", " "
876" ", " ", "IQ", "EW", "VA", "RX", "EW", " ", " ", " "
877" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
878" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
879" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
880" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
881
882source
883"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
884"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
885"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
886"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
887"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
888"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
889"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
890"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
891"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
892"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
893destin = EMPTY
894destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transHerm)
895destin
896" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
897" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
898" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
899" ", " ", "FZ", "GU", "FS", "EW", "DX", " ", " ", " "
900" ", " ", "FJ", "FS", "ZR", "VA", "PD", " ", " ", " "
901" ", " ", "IQ", "EW", "VA", "RX", "EW", " ", " ", " "
902" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
903" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
904" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
905" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
906destin = EMPTY
907destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)
908destin
909" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
910" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
911" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
912" ", " ", "FZ", "GU", "FS", "EW", "DX", " ", " ", " "
913" ", " ", "FJ", "FS", "ZR", "VA", "PD", " ", " ", " "
914" ", " ", "IQ", "EW", "VA", "RX", "EW", " ", " ", " "
915" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
916" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
917" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
918" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
919
920source
921"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
922"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
923"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
924"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
925"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
926"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
927"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
928"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
929"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
930"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
931doff = 0
932destin = EMPTY
933destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, doff)
934destin
935" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
936" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
937" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
938" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
939" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
940" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
941" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
942" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
943" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
944" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
945destin = EMPTY
946destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
947destin
948" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
949" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
950" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
951" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
952" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
953" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
954" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
955" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
956" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
957" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
958
959source
960"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
961"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
962"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
963"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
964"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
965"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
966"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
967"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
968"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
969"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
970destin = EMPTY
971destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, transSymm, doff)
972destin
973" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
974" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
975" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
976" ", " ", "QB", "GU", "FS", "EW", "DX", " ", " ", " "
977" ", " ", "MV", "YK", "ZR", "VA", "PD", " ", " ", " "
978" ", " ", "MI", "VD", "AB", "RX", "EW", " ", " ", " "
979" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
980" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
981" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
982" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
983destin = EMPTY
984destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm, doff)
985destin
986" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
987" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
988" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
989" ", " ", "QB", "GU", "FS", "EW", "DX", " ", " ", " "
990" ", " ", "MV", "YK", "ZR", "VA", "PD", " ", " ", " "
991" ", " ", "MI", "VD", "AB", "RX", "EW", " ", " ", " "
992" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
993" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
994" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
995" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
996
997source
998"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
999"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1000"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1001"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1002"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1003"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1004"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1005"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1006"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1007"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1008destin = EMPTY
1009destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, transHerm, doff)
1010destin
1011" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1012" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1013" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
1014" ", " ", "QB", "GU", "FS", "EW", "DX", " ", " ", " "
1015" ", " ", "MV", "YK", "ZR", "VA", "PD", " ", " ", " "
1016" ", " ", "MI", "VD", "AB", "RX", "EW", " ", " ", " "
1017" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
1018" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1019" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1020" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1021destin = EMPTY
1022destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm, doff)
1023destin
1024" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1025" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1026" ", " ", "SH", "FZ", "FJ", "IQ", "FF", " ", " ", " "
1027" ", " ", "QB", "GU", "FS", "EW", "DX", " ", " ", " "
1028" ", " ", "MV", "YK", "ZR", "VA", "PD", " ", " ", " "
1029" ", " ", "MI", "VD", "AB", "RX", "EW", " ", " ", " "
1030" ", " ", "TW", "TD", "HV", "DP", "WK", " ", " ", " "
1031" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1032" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1033" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1034
1035source
1036"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1037"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1038"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1039"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1040"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1041"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1042"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1043"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1044"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1045"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1046destin = EMPTY
1047doff = -3
1048destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, doff)
1049destin
1050" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1051" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1052" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
1053" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1054" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1055" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1056" ", " ", "TW", "DX", "PD", "EW", "WK", " ", " ", " "
1057" ", " ", "FZ", "ZR", "XN", "SY", "CH", " ", " ", " "
1058" ", " ", "GU", "AB", "FF", "MS", "IL", " ", " ", " "
1059" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1060destin = EMPTY
1061destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)
1062destin
1063" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1064" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1065" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
1066" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1067" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1068" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1069" ", " ", "TW", "DX", "PD", "EW", "WK", " ", " ", " "
1070" ", " ", "FZ", "ZR", "XN", "SY", "CH", " ", " ", " "
1071" ", " ", "GU", "AB", "FF", "MS", "IL", " ", " ", " "
1072" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1073
1074source
1075"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1076"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1077"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1078"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1079"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1080"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1081"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1082"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1083"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1084"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1085doff = -3
1086destin = EMPTY
1087destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, transSymm, doff)
1088destin
1089" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1090" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1091" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "EW", "HV", " "
1092" ", " ", "QB", "GU", "FS", "EW", "DX", "SY", "DP", " "
1093" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "WK", " "
1094" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1095" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1096" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1097" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1098" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1099destin = EMPTY
1100destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)
1101destin
1102" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1103" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1104" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "EW", "HV", " "
1105" ", " ", "QB", "GU", "FS", "EW", "DX", "SY", "DP", " "
1106" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "WK", " "
1107" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1108" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1109" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1110" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1111" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1112
1113source
1114"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1115"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1116"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1117"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1118"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1119"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1120"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1121"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1122"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1123"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1124doff = -3
1125destin = EMPTY
1126destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppDia, transHerm, doff)
1127destin
1128" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1129" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1130" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "EW", "HV", " "
1131" ", " ", "QB", "GU", "FS", "EW", "DX", "SY", "DP", " "
1132" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "WK", " "
1133" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1134" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1135" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1136" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1137" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1138destin = EMPTY
1139destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)
1140destin
1141" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1142" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1143" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "EW", "HV", " "
1144" ", " ", "QB", "GU", "FS", "EW", "DX", "SY", "DP", " "
1145" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "WK", " "
1146" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1147" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1148" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1149" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1150" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1151
1152source
1153"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1154"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1155"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1156"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1157"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1158"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1159"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1160"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1161"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1162"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1163doff = +3
1164destin = EMPTY
1165destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, doff)
1166destin
1167" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1168" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1169" ", " ", "SH", "QB", "MV", "MI", "SY", " ", " ", " "
1170" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1171" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1172" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1173" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
1174" ", " ", "ED", "HQ", "XN", "SY", "CH", " ", " ", " "
1175" ", " ", "XX", "WI", "TO", "MS", "IL", " ", " ", " "
1176" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1177destin = EMPTY
1178destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)
1179destin
1180" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1181" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1182" ", " ", "SH", "QB", "MV", "MI", "SY", " ", " ", " "
1183" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1184" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1185" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1186" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
1187" ", " ", "ED", "HQ", "XN", "SY", "CH", " ", " ", " "
1188" ", " ", "XX", "WI", "TO", "MS", "IL", " ", " ", " "
1189" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1190
1191source
1192"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1193"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1194"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1195"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1196"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1197"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1198"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1199"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1200"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1201"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1202doff = +3
1203destin = EMPTY
1204destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, transSymm, doff)
1205destin
1206" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1207" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1208" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1209" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1210" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1211" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1212" ", " ", "FF", "TD", "HV", "DP", "WK", "CH", "IL", " "
1213" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1214" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1215" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1216destin = EMPTY
1217destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)
1218destin
1219" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1220" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1221" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1222" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1223" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1224" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1225" ", " ", "FF", "TD", "HV", "DP", "WK", "CH", "IL", " "
1226" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1227" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1228" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1229
1230source
1231"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1232"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1233"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1234"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1235"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1236"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1237"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1238"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1239"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1240"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1241doff = +3
1242destin = EMPTY
1243destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, lowDia, transHerm, doff)
1244destin
1245" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1246" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1247" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1248" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1249" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1250" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1251" ", " ", "FF", "TD", "HV", "DP", "WK", "CH", "IL", " "
1252" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1253" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1254" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1255destin = EMPTY
1256destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)
1257destin
1258" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1259" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1260" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1261" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1262" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1263" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1264" ", " ", "FF", "TD", "HV", "DP", "WK", "CH", "IL", " "
1265" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1266" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1267" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1268
1269source
1270"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1271"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1272"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1273"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1274"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1275"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1276"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1277"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1278"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1279"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1280doff = -4
1281destin = EMPTY
1282destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, doff)
1283destin
1284" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1285" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1286" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
1287" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1288" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1289" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1290" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
1291" ", " ", "ED", "ZR", "XN", "SY", "CH", " ", " ", " "
1292" ", " ", "XX", "WI", "FF", "MS", "IL", " ", " ", " "
1293" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1294destin = EMPTY
1295destin(3:9, 3:7) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, doff)
1296destin
1297" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1298" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1299" ", " ", "SH", "QB", "MV", "MI", "TW", " ", " ", " "
1300" ", " ", "FZ", "GU", "YK", "VD", "TD", " ", " ", " "
1301" ", " ", "FJ", "FS", "ZR", "AB", "HV", " ", " ", " "
1302" ", " ", "IQ", "EW", "VA", "RX", "DP", " ", " ", " "
1303" ", " ", "FF", "DX", "PD", "EW", "WK", " ", " ", " "
1304" ", " ", "ED", "HQ", "XN", "SY", "CH", " ", " ", " "
1305" ", " ", "XX", "WI", "TO", "MS", "IL", " ", " ", " "
1306" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1307
1308source
1309"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1310"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1311"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1312"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1313"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1314"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1315"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1316"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1317"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1318"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1319doff = -4
1320destin = EMPTY
1321destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, transSymm, doff)
1322destin
1323" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1324" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1325" ", " ", "SH", "FZ", "FJ", "IQ", "TO", "ED", "XX", " "
1326" ", " ", "QB", "GU", "FS", "EW", "DX", "SY", "WI", " "
1327" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "WK", " "
1328" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1329" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1330" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1331" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1332" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1333destin = EMPTY
1334destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transSymm, doff)
1335destin
1336" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1337" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1338" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1339" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1340" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1341" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1342" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1343" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1344" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1345" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1346
1347source
1348"SH", "QB", "MV", "MI", "TW", "QK", "DN", "WG", "JR", "JT"
1349"FZ", "GU", "YK", "VD", "TD", "RE", "QL", "ZY", "XM", "TA"
1350"FJ", "FS", "ZR", "AB", "HV", "IG", "BN", "YT", "WJ", "VM"
1351"IQ", "EW", "VA", "RX", "DP", "PT", "PS", "LC", "ZX", "GE"
1352"FF", "DX", "PD", "EW", "WK", "WB", "CV", "CK", "ZR", "RX"
1353"ED", "HQ", "XN", "SY", "CH", "AB", "RF", "RV", "NG", "LH"
1354"XX", "WI", "TO", "MS", "IL", "OM", "SM", "SV", "VB", "GT"
1355"PK", "KI", "NW", "QB", "XX", "FO", "VY", "HO", "LE", "CE"
1356"GA", "PQ", "MM", "FY", "FV", "YE", "SK", "MA", "IP", "UU"
1357"GJ", "BL", "UB", "ZO", "UQ", "MT", "WT", "XC", "NL", "PM"
1358doff = +4
1359destin = EMPTY
1360destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, uppLow, transHerm, doff)
1361destin
1362" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1363" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1364" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1365" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1366" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1367" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1368" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1369" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1370" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1371" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1372destin = EMPTY
1373destin(3:7, 3:9) = getMatCopy(rdpack, source(1:7, 1:5), rdpack, dia, transHerm, doff)
1374destin
1375" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1376" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1377" ", " ", "SH", "FZ", "FJ", "IQ", "FF", "ED", "XX", " "
1378" ", " ", "QB", "GU", "FS", "EW", "DX", "HQ", "WI", " "
1379" ", " ", "MV", "YK", "ZR", "VA", "PD", "XN", "TO", " "
1380" ", " ", "MI", "VD", "AB", "RX", "EW", "SY", "MS", " "
1381" ", " ", "TW", "TD", "HV", "DP", "WK", "CH", "IL", " "
1382" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1383" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1384" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1385
1386
1387call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1388source
1389"VJ", "TS", "WN", "ND", "PT", "DS", "OK", "XN", "KK", "HL"
1390"HO", "LM", "FV", "AN", "HC", "CF", "ND", "IV", "FQ", "NY"
1391"FS", "XE", "KO", "GL", "LL", "WM", "BG", "VO", "FE", "RJ"
1392"FC", "TH", "UX", "XT", "LU", "WC", "PZ", "YV", "BJ", "UV"
1393"ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", "MJ", "SM", "YM"
1394"NV", "ME", "KO", "JU", "JN", "LN", "QO", "MX", "IJ", "BX"
1395"NU", "PR", "YR", "TD", "EK", "AK", "VY", "PZ", "UN", "HJ"
1396"CU", "AO", "VK", "IK", "PP", "BT", "NW", "PW", "ZX", "WL"
1397"WH", "OI", "TG", "GV", "EG", "AU", "ZL", "GI", "SG", "XG"
1398"VI", "XZ", "PD", "RX", "CV", "VO", "IM", "IX", "KS", "XB"
1399doff = -3
1400destin = EMPTY
1401destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, doff)
1402destin
1403" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1404" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1405" ", " ", "VJ", "TS", "WN", "ND", "PT", "DS", "OK", " "
1406" ", " ", "HO", "LM", "FV", "AN", "HC", "CF", "ND", " "
1407" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "BG", " "
1408" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1409" ", " ", "TW", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1410" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1411" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1412" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1413destin = EMPTY
1414destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)
1415destin
1416" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1417" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1418" ", " ", "VJ", "TS", "WN", "ND", "PT", "DS", "OK", " "
1419" ", " ", "HO", "LM", "FV", "AN", "HC", "CF", "ND", " "
1420" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "BG", " "
1421" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1422" ", " ", "TW", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1423" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1424" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1425" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1426
1427doff = -3
1428destin = EMPTY
1429destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, transSymm, doff)
1430destin
1431" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1432" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1433" ", " ", "VJ", "HO", "FS", "FC", "WC", " ", " ", " "
1434" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1435" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1436" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1437" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1438" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1439" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1440" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1441destin = EMPTY
1442destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)
1443destin
1444" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1445" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1446" ", " ", "VJ", "HO", "FS", "FC", "WC", " ", " ", " "
1447" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1448" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1449" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1450" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1451" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1452" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1453" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1454
1455doff = -3
1456destin = EMPTY
1457destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppDia, transHerm, doff)
1458destin
1459" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1460" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1461" ", " ", "VJ", "HO", "FS", "FC", "WC", " ", " ", " "
1462" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1463" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1464" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1465" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1466" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1467" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1468" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1469destin = EMPTY
1470destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)
1471destin
1472" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1473" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1474" ", " ", "VJ", "HO", "FS", "FC", "WC", " ", " ", " "
1475" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1476" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1477" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1478" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1479" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1480" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1481" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1482
1483doff = +3
1484destin = EMPTY
1485destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, doff)
1486destin
1487" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1488" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1489" ", " ", "VJ", "TS", "WN", "ND", "BG", "LU", "QZ", " "
1490" ", " ", "HO", "LM", "FV", "AN", "HC", "WC", "LU", " "
1491" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "OZ", " "
1492" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1493" ", " ", "ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1494" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1495" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1496" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1497destin = EMPTY
1498destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)
1499destin
1500" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1501" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1502" ", " ", "VJ", "TS", "WN", "ND", "BG", "LU", "QZ", " "
1503" ", " ", "HO", "LM", "FV", "AN", "HC", "WC", "LU", " "
1504" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "OZ", " "
1505" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1506" ", " ", "ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1507" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1508" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1509" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1510
1511doff = +3
1512destin = EMPTY
1513destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, transSymm, doff)
1514destin
1515" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1516" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1517" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1518" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1519" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1520" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1521" ", " ", "ZB", "HC", "LL", "LU", "OZ", " ", " ", " "
1522" ", " ", "TS", "KO", "WM", "WC", "OY", " ", " ", " "
1523" ", " ", "LM", "UX", "BG", "PZ", "ZX", " ", " ", " "
1524" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1525destin = EMPTY
1526destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)
1527destin
1528" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1529" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1530" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1531" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1532" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1533" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1534" ", " ", "ZB", "HC", "LL", "LU", "OZ", " ", " ", " "
1535" ", " ", "TS", "KO", "WM", "WC", "OY", " ", " ", " "
1536" ", " ", "LM", "UX", "BG", "PZ", "ZX", " ", " ", " "
1537" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1538
1539doff = +3
1540destin = EMPTY
1541destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, lowDia, transHerm, doff)
1542destin
1543" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1544" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1545" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1546" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1547" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1548" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1549" ", " ", "ZB", "HC", "LL", "LU", "OZ", " ", " ", " "
1550" ", " ", "TS", "KO", "WM", "WC", "OY", " ", " ", " "
1551" ", " ", "LM", "UX", "BG", "PZ", "ZX", " ", " ", " "
1552" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1553destin = EMPTY
1554destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)
1555destin
1556" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1557" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1558" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1559" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1560" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1561" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1562" ", " ", "ZB", "HC", "LL", "LU", "OZ", " ", " ", " "
1563" ", " ", "TS", "KO", "WM", "WC", "OY", " ", " ", " "
1564" ", " ", "LM", "UX", "BG", "PZ", "ZX", " ", " ", " "
1565" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1566
1567destin = EMPTY
1568doff = -3
1569destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, doff)
1570destin
1571" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1572" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1573" ", " ", "VJ", "TS", "WN", "ND", "PT", "DS", "OK", " "
1574" ", " ", "HO", "LM", "FV", "AN", "HC", "CF", "ND", " "
1575" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "BG", " "
1576" ", " ", "ND", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1577" ", " ", "ZB", "FV", "QZ", "LU", "OZ", "OY", "ZX", " "
1578" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1579" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1580" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1581destin = EMPTY
1582destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)
1583destin
1584" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1585" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1586" ", " ", "VJ", "TS", "WN", "ND", "PT", "DS", "OK", " "
1587" ", " ", "HO", "LM", "FV", "AN", "HC", "CF", "ND", " "
1588" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "BG", " "
1589" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1590" ", " ", "ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1591" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1592" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1593" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1594
1595doff = -3
1596destin = EMPTY
1597destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transSymm, doff)
1598destin
1599" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1600" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1601" ", " ", "VJ", "HO", "FS", "HC", "ZB", " ", " ", " "
1602" ", " ", "TS", "LM", "XE", "TH", "OY", " ", " ", " "
1603" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1604" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1605" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1606" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1607" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1608" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1609destin = EMPTY
1610destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)
1611destin
1612" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1613" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1614" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1615" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1616" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1617" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1618" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1619" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1620" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1621" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1622
1623doff = -3
1624destin = EMPTY
1625destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transHerm, doff)
1626destin
1627" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1628" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1629" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1630" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1631" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1632" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1633" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1634" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1635" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1636" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1637destin = EMPTY
1638destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)
1639destin
1640" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1641" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1642" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1643" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1644" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1645" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1646" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1647" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1648" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1649" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1650
1651doff = +3
1652destin = EMPTY
1653destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, doff)
1654destin
1655" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1656" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1657" ", " ", "VJ", "TS", "WN", "XE", "PT", "DS", "OK", " "
1658" ", " ", "HO", "LM", "FV", "AN", "FC", "CF", "ND", " "
1659" ", " ", "FS", "XE", "KO", "GL", "LL", "PZ", "BG", " "
1660" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "OY", " "
1661" ", " ", "ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1662" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1663" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1664" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1665destin = EMPTY
1666destin(3:7, 3:9) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, doff)
1667destin
1668" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1669" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1670" ", " ", "VJ", "TS", "WN", "ND", "PT", "DS", "OK", " "
1671" ", " ", "HO", "LM", "FV", "AN", "HC", "CF", "ND", " "
1672" ", " ", "FS", "XE", "KO", "GL", "LL", "WM", "BG", " "
1673" ", " ", "FC", "TH", "UX", "XT", "LU", "WC", "PZ", " "
1674" ", " ", "ZB", "LC", "QZ", "LU", "OZ", "OY", "ZX", " "
1675" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1676" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1677" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1678
1679doff = +3
1680destin = EMPTY
1681destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transSymm, doff)
1682destin
1683" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1684" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1685" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1686" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1687" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1688" ", " ", "FC", "AN", "GL", "XT", "LU", " ", " ", " "
1689" ", " ", "PT", "FV", "LL", "LU", "OZ", " ", " ", " "
1690" ", " ", "DS", "CF", "LU", "WC", "OY", " ", " ", " "
1691" ", " ", "OK", "ND", "BG", "WM", "ZX", " ", " ", " "
1692" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1693destin = EMPTY
1694destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)
1695destin
1696" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1697" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1698" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1699" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1700" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1701" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1702" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1703" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1704" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1705" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1706
1707doff = +3
1708destin = EMPTY
1709destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, uppLow, transHerm, doff)
1710destin
1711" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1712" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1713" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1714" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1715" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1716" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1717" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1718" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1719" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1720" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1721destin = EMPTY
1722destin(3:9, 3:7) = getMatCopy(rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)
1723destin
1724" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1725" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1726" ", " ", "VJ", "HO", "FS", "FC", "ZB", " ", " ", " "
1727" ", " ", "TS", "LM", "XE", "TH", "LC", " ", " ", " "
1728" ", " ", "WN", "FV", "KO", "UX", "QZ", " ", " ", " "
1729" ", " ", "ND", "AN", "GL", "XT", "LU", " ", " ", " "
1730" ", " ", "PT", "HC", "LL", "LU", "OZ", " ", " ", " "
1731" ", " ", "DS", "CF", "WM", "WC", "OY", " ", " ", " "
1732" ", " ", "OK", "ND", "BG", "PZ", "ZX", " ", " ", " "
1733" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1734
1735
1736source = cmplx(getUnifRand(1, 9, size(source,1,IK), size(source,2,IK)), getUnifRand(1, 9, size(source,1,IK), size(source,2,IK)), CKG)
1737source
1738( +9.0, +4.0), ( +2.0, +3.0), ( +7.0, +8.0), ( +9.0, +7.0), ( +9.0, +5.0)
1739( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +2.0, +9.0), ( +2.0, +9.0)
1740( +5.0, +4.0), ( +9.0, +9.0), ( +9.0, +4.0), ( +7.0, +2.0), ( +1.0, +6.0)
1741( +3.0, +7.0), ( +5.0, +6.0), ( +7.0, +9.0), ( +9.0, +3.0), ( +2.0, +6.0)
1742( +9.0, +4.0), ( +8.0, +4.0), ( +5.0, +5.0), ( +3.0, +4.0), ( +8.0, +7.0)
1743doff = -1
1744destin = NONE
1745destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, doff)
1746destin
1747( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1748( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +3.0), ( +7.0, +8.0), ( +0.0, +0.0)
1749( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0)
1750( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1751( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1752destin = NONE
1753destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, doff)
1754destin
1755( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1756( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +3.0), ( +7.0, +8.0), ( +0.0, +0.0)
1757( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0)
1758( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1759( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1760
1761doff = -1
1762destin = NONE
1763destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, transSymm, doff)
1764destin
1765( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1766( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1767( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1768( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1769( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1770destin = NONE
1771destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)
1772destin
1773( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1774( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1775( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1776( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1777( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1778
1779doff = -1
1780destin = NONE
1781destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppDia, transHerm, doff)
1782destin
1783( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1784( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1785( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1786( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1787( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1788destin = NONE
1789destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)
1790destin
1791( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1792( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1793( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1794( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1795( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1796
1797destin = NONE
1798doff = +1
1799destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, doff)
1800destin
1801( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1802( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +3.0), ( +3.0, -3.0), ( +0.0, +0.0)
1803( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0)
1804( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1805( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1806
1807doff = +1
1808destin = NONE
1809destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, transSymm, doff)
1810destin
1811( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1812( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1813( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1814( +0.0, +0.0), ( +2.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1815( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1816destin = NONE
1817destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)
1818destin
1819( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1820( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1821( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1822( +0.0, +0.0), ( +2.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1823( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1824
1825doff = +1
1826destin = NONE
1827destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, lowDia, transHerm, doff)
1828destin
1829( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1830( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1831( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1832( +0.0, +0.0), ( +2.0, +3.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1833( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1834destin = NONE
1835destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)
1836destin
1837( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1838( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1839( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1840( +0.0, +0.0), ( +2.0, +3.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1841( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1842
1843destin = NONE
1844doff = -1
1845destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, doff)
1846destin
1847( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1848( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +3.0), ( +7.0, +8.0), ( +0.0, +0.0)
1849( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0)
1850( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1851( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1852
1853doff = -1
1854destin = NONE
1855destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transSymm, doff)
1856destin
1857( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1858( +0.0, +0.0), ( +9.0, +4.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1859( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1860( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1861( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1862destin = NONE
1863destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)
1864destin
1865( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1866( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1867( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1868( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1869( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1870
1871doff = -1
1872destin = NONE
1873destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transHerm, doff)
1874destin
1875( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1876( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1877( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1878( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1879( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1880destin = NONE
1881destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)
1882destin
1883( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1884( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1885( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1886( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1887( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1888
1889doff = +1
1890destin = NONE
1891destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, doff)
1892destin
1893( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1894( +0.0, +0.0), ( +9.0, +4.0), ( +7.0, -8.0), ( +7.0, +8.0), ( +0.0, +0.0)
1895( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, -2.0), ( +0.0, +0.0)
1896( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1897( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1898destin = NONE
1899destin(2:3, 2:4) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, doff)
1900destin
1901( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1902( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +3.0), ( +7.0, +8.0), ( +0.0, +0.0)
1903( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +5.0, +2.0), ( +0.0, +0.0)
1904( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1905( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1906
1907doff = +1
1908destin = NONE
1909destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transSymm, doff)
1910destin
1911( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1912( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1913( +0.0, +0.0), ( +2.0, +5.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1914( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1915( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1916destin = NONE
1917destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transSymm, doff)
1918destin
1919( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1920( +0.0, +0.0), ( +9.0, +4.0), ( +2.0, +5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1921( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, +3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1922( +0.0, +0.0), ( +7.0, +8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1923( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1924
1925doff = +1
1926destin = NONE
1927destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, uppLow, transHerm, doff)
1928destin
1929( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1930( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1931( +0.0, +0.0), ( +2.0, +3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1932( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, +2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1933( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1934destin = NONE
1935destin(2:4, 2:3) = getMatCopy(rdpack, source(1:2, 1:3), rdpack, dia, transHerm, doff)
1936destin
1937( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1938( +0.0, +0.0), ( +9.0, -4.0), ( +2.0, -5.0), ( +0.0, +0.0), ( +0.0, +0.0)
1939( +0.0, +0.0), ( +2.0, -3.0), ( +3.0, -3.0), ( +0.0, +0.0), ( +0.0, +0.0)
1940( +0.0, +0.0), ( +7.0, -8.0), ( +5.0, -2.0), ( +0.0, +0.0), ( +0.0, +0.0)
1941( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)
1942
1943
1944!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1945! Copy the diagonal elements in Linear Full Packing format.
1946!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1947
1948
1949call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1950source
1951"WM", "UU", "QQ", "DP", "BG", "NS", "EV", "GB", "UT", "CO", "HZ", "TY", "VC", "FX", "JA", "SM", "RI", "YA", "PZ", "FB", "RH", "PH", "FO", "UA", "VP", "AL", "MB", "YG", "ID", "RS", "VH", "XY", "WP", "DG", "XZ", "VE", "TU", "SM", "LF", "KN", "UT", "XJ", "PT", "YX", "UN", "UQ", "KN", "YQ", "WJ", "LM", "HT", "KK", "KE", "HU", "WW"
1952destin = EMPTY
1953destin(3:7,3:7) = getMatCopy(rdpack, source(2:6), lfpack, dia)
1954destin
1955" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1956" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1957" ", " ", "UU", ä­"", " ", " ", "␁ ", " ", " ", " "
1958" ", " ", ä­"", "QQ", " ", "␂ ", " ", " ", " ", " "
1959" ", " ", "JV", " ", "DP", " ", " ", " ", " ", " "
1960" ", " ", " ", " ", " ", "BG", " ", " ", " ", " "
1961" ", " ", "Ļ␚", " ", " ", " ", "NS", " ", " ", " "
1962" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1963" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1964" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1965desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia)
1966desnew
1967"UU", "QQ", "DP", "BG", "NS"
1968
1969destin = EMPTY
1970doff = -3
1971destin(3:9,3:7) = getMatCopy(rdpack, source(2:5), lfpack, dia, doff, shape = [7, 5])
1972destin
1973" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1974" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1975" ", " ", "Ģ␚", " ", " ", " ", " ", " ", " ", " "
1976" ", " ", ä­"", " ", " ", "JV", " ", " ", " ", " "
1977" ", " ", "JV", " ", "␂ ", " ", " ", " ", " ", " "
1978" ", " ", "UU", " ", " ", "pN", " ", " ", " ", " "
1979" ", " ", "Ļ␚", "QQ", " ", ä­"", "hL", " ", " ", " "
1980" ", " ", ä­"", ") ", "DP", "JV", ä­"", " ", " ", " "
1981" ", " ", "JV", " ", "␁ ", "BG", "JV", " ", " ", " "
1982" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1983desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia, doff)
1984desnew
1985"UU", "QQ", "DP", "BG"
1986
1987
1988call setUnifRand(source, SKG_'AA', SKG_'ZZ')
1989source
1990"JT", "WA", "BD", "SJ", "PM", "FJ", "ZS", "IH", "MQ", "HB", "WY", "RT", "FR", "YQ", "TU", "YW", "GX", "GI", "AL", "OA", "JY", "DP", "LR", "LF", "OG", "HS", "ZO", "AU", "HR", "OG", "QU", "EZ", "NB", "VU", "VO", "RP", "KA", "LI", "QN", "SX", "MJ", "AW", "FJ", "VB", "QA", "IA", "BO", "OB", "WY", "IZ", "RL", "CD", "IY", "HO", "PZ"
1991destin = EMPTY
1992doff = +3;
1993destin(3:7, 3:9) = getMatCopy(rdpack, source(2:5), lfpack, dia, doff, shape = [5, 7])
1994destin
1995" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1996" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
1997" ", " ", "DŪ", " ", " ", "WA", "␁ ", ä­"", " ", " "
1998" ", " ", "Ēd", " ", "QQ", "␂ ", "BD", "JV", " ", " "
1999" ", " ", "␅ ", " ", ") ", " ", "JV", "SJ", "hL", " "
2000" ", " ", " ", " ", " ", " ", " ", " ", "PM", " "
2001" ", " ", " ", " ", " ", "DP", "pN", " ", "JV", " "
2002" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2003" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2004" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2005desnew = getMatCopy(lfpack, destin(3:7, 3:9), rdpack, dia, doff)
2006desnew
2007"WA", "BD", "SJ", "PM"
2008
2009destin = EMPTY
2010doff = +3;
2011destin(3:9, 3:7) = getMatCopy(rdpack, source(2:3), lfpack, dia, doff, shape = [7, 5])
2012destin
2013" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2014" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2015" ", " ", "DŪ", " ", " ", "WA", " ", " ", " ", " "
2016" ", " ", "Ēd", " ", "WA", "JV", "BD", " ", " ", " "
2017" ", " ", "␅ ", " ", "␂ ", " ", " ", " ", " ", " "
2018" ", " ", " ", " ", " ", "pN", " ", " ", " ", " "
2019" ", " ", " ", "QQ", " ", ä­"", "hL", " ", " ", " "
2020" ", " ", " ", ") ", "DP", "JV", "PM", " ", " ", " "
2021" ", " ", " ", " ", "␁ ", "SJ", "JV", " ", " ", " "
2022" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2023desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, dia, doff)
2024desnew
2025"WA", "BD"
2026
2027
2028!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2029! Copy upper/lower triangle in Linear Full Packing format.
2030!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2031
2032
2033call setUnifRand(source, SKG_'AA', SKG_'ZZ')
2034source
2035"VZ", "IW", "UN", "HR", "UB", "OG", "TI", "AG", "JF", "KT", "PY", "PT", "WY", "TT", "IT", "NT", "SS", "VN", "GP", "OM", "QY", "JC", "YV", "XA", "AX", "FT", "PW", "AX", "YP", "QE", "GQ", "DO", "GR", "DQ", "EU", "WT", "HW", "QS", "ZS", "PN", "BJ", "LL", "ZU", "OU", "PF", "ZY", "FC", "VF", "LD", "YW", "IF", "OC", "DI", "GG", "EQ"
2036destin = EMPTY
2037doff = -3
2038destin(3:9,3:7) = getMatCopy(rdpack, source, lfpack, uppDia, doff, shape = [7, 5])
2039destin
2040" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2041" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2042" ", " ", "VZ", "UB", "KT", "NT", "YV", " ", " ", " "
2043" ", " ", "IW", "OG", "PY", "SS", "XA", " ", " ", " "
2044" ", " ", "UN", "TI", "PT", "VN", "AX", " ", " ", " "
2045" ", " ", "HR", "AG", "WY", "GP", "FT", " ", " ", " "
2046" ", " ", " ", "JF", "TT", "OM", "PW", " ", " ", " "
2047" ", " ", " ", ") ", "IT", "QY", "AX", " ", " ", " "
2048" ", " ", " ", " ", "␁ ", "JC", "YP", " ", " ", " "
2049" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2050desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, uppDia, doff)
2051desnew
2052"VZ", "IW", "UN", "HR", "UB", "OG", "TI", "AG", "JF", "KT", "PY", "PT", "WY", "TT", "IT", "NT", "SS", "VN", "GP", "OM", "QY", "JC", "YV", "XA", "AX", "FT", "PW", "AX", "YP"
2053
2054
2055call setUnifRand(source, SKG_'AA', SKG_'ZZ')
2056source
2057"CX", "ZT", "VF", "EM", "RW", "BR", "HE", "FF", "YN", "ET", "VA", "ZJ", "LL", "RC", "PM", "FG", "XK", "SH", "CY", "BY", "JO", "JW", "IK", "EO", "NW", "GU", "TL", "SK", "JE", "WK", "KP", "JN", "IO", "KY", "TI", "VT", "HS", "VB", "QQ", "WJ", "VM", "NJ", "IH", "LM", "EA", "HK", "TP", "AH", "QA", "DV", "XJ", "IE", "OY", "XX", "WK"
2058destin = EMPTY
2059doff = -3
2060destin(3:9,3:7) = getMatCopy(rdpack, source, lfpack, uppDia, transSymm, doff, shape = [7, 5])
2061destin
2062" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2063" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2064" ", " ", "CX", "ZT", "VF", "EM", "YP", " ", " ", " "
2065" ", " ", "RW", "BR", "HE", "FF", "YN", " ", " ", " "
2066" ", " ", "ET", "VA", "ZJ", "LL", "RC", " ", " ", " "
2067" ", " ", "PM", "FG", "XK", "SH", "CY", " ", " ", " "
2068" ", " ", "BY", "JO", "JW", "IK", "EO", " ", " ", " "
2069" ", " ", "NW", "GU", "TL", "SK", "JE", " ", " ", " "
2070" ", " ", "WK", "KP", "JN", "IO", "KY", " ", " ", " "
2071" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2072desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, -doff)
2073desnew
2074"CX", "ZT", "VF", "EM", "RW", "BR", "HE", "FF", "YN", "ET", "VA", "ZJ", "LL", "RC", "PM", "FG", "XK", "SH", "CY", "BY", "JO", "JW", "IK", "EO", "NW", "GU", "TL", "SK", "JE", "WK", "KP", "JN", "IO", "KY"
2075
2076
2077call setUnifRand(source, SKG_'AA', SKG_'ZZ')
2078source
2079"QT", "OZ", "BW", "SD", "FL", "TW", "DL", "NR", "UE", "TS", "YB", "YN", "AD", "CB", "FM", "TU", "NC", "YI", "AZ", "AA", "XU", "UU", "BL", "FP", "OQ", "LJ", "DD", "WR", "UX", "VI", "OI", "ZG", "RQ", "DK", "UJ", "US", "NU", "AP", "II", "KW", "BA", "JV", "MF", "AG", "EF", "MB", "JA", "YS", "NN", "FL", "OT", "YK", "XM", "EI", "AH"
2080destin = EMPTY
2081doff = +3;
2082destin(3:7, 3:9) = getMatCopy(rdpack, source, lfpack, lowDia, doff, shape = [5, 7])
2083destin
2084" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2085" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2086" ", " ", "QT", "TW", "YB", "TU", "JO", "GU", "KP", " "
2087" ", " ", "OZ", "DL", "YN", "NC", "XU", "TL", "JN", " "
2088" ", " ", "BW", "NR", "AD", "YI", "UU", "OQ", "IO", " "
2089" ", " ", "SD", "UE", "CB", "AZ", "BL", "LJ", "WR", " "
2090" ", " ", "FL", "TS", "FM", "AA", "FP", "DD", "UX", " "
2091" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2092" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2093" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2094destin = EMPTY
2095destin(3:9, 3:7) = getMatCopy(rdpack, source, lfpack, lowDia, transSymm, doff, shape = [7, 5])
2096destin
2097" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2098" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2099" ", " ", "QT", "OZ", "BW", "SD", "LJ", " ", " ", " "
2100" ", " ", "FL", "TW", "DL", "NR", "UE", " ", " ", " "
2101" ", " ", "TS", "YB", "YN", "AD", "CB", " ", " ", " "
2102" ", " ", "FM", "TU", "NC", "YI", "AZ", " ", " ", " "
2103" ", " ", "AA", "XU", "UU", "BL", "FP", " ", " ", " "
2104" ", " ", "OQ", "LJ", "DD", "WR", "UX", " ", " ", " "
2105" ", " ", "VI", "OI", "ZG", "RQ", "DK", " ", " ", " "
2106" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2107desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, doff)
2108desnew
2109"QT", "OZ", "BW", "SD", "FL", "TW", "DL", "NR", "UE", "TS", "YB", "YN", "AD", "CB", "FM", "TU", "NC", "YI", "AZ", "AA", "XU", "UU", "BL", "FP", "OQ", "LJ", "DD", "WR", "UX", "VI", "OI", "ZG", "RQ", "DK"
2110
2111destin = EMPTY
2112doff = +3;
2113destin(3:9, 3:7) = getMatCopy(rdpack, source, lfpack, lowDia, transHerm, doff, shape = [7, 5])
2114destin
2115" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2116" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2117" ", " ", "QT", "OZ", "BW", "SD", "UX", " ", " ", " "
2118" ", " ", "FL", "TW", "DL", "NR", "UE", " ", " ", " "
2119" ", " ", "TS", "YB", "YN", "AD", "CB", " ", " ", " "
2120" ", " ", "FM", "TU", "NC", "YI", "AZ", " ", " ", " "
2121" ", " ", "AA", "XU", "UU", "BL", "FP", " ", " ", " "
2122" ", " ", "OQ", "LJ", "DD", "WR", "UX", " ", " ", " "
2123" ", " ", "VI", "OI", "ZG", "RQ", "DK", " ", " ", " "
2124" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2125desnew = getMatCopy(lfpack, destin(3:9,3:7), rdpack, lowDia, transHerm, doff)
2126desnew
2127"QT", "OZ", "BW", "SD", "FL", "TW", "DL", "NR", "UE", "TS", "YB", "YN", "AD", "CB", "FM", "TU", "NC", "YI", "AZ", "AA", "XU", "UU", "BL", "FP", "OQ", "LJ", "DD", "WR", "UX", "VI", "OI", "ZG", "RQ", "DK"
2128
2129
2130!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2131! Copy upper/lower triangle in Rectangular Full Packing format.
2132!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2133
2134
2135call setUnifRand(source, SKG_'AA', SKG_'ZZ')
2136source
2137"UD", "QY", "WB", "MC", "EM", "KK", "DL", "YJ", "DY", "FM"
2138"DO", "LV", "MM", "PW", "IW", "WF", "HX", "TB", "DH", "MP"
2139"DP", "ZP", "SQ", "IT", "QX", "UD", "UH", "GK", "ED", "JH"
2140"MP", "SZ", "BA", "ZV", "TV", "AJ", "TP", "TF", "XG", "GT"
2141"NJ", "WJ", "UB", "QG", "PL", "DK", "NI", "FE", "JR", "GX"
2142"IT", "SI", "LS", "MW", "WP", "EB", "XI", "IY", "JU", "NO"
2143"DO", "MF", "DW", "GD", "CO", "QY", "QE", "OO", "SV", "KF"
2144"DF", "KS", "VV", "EJ", "OI", "GB", "IE", "LF", "AO", "JM"
2145"TV", "WF", "TZ", "VL", "RP", "OE", "BR", "OH", "SE", "UJ"
2146"IT", "XO", "WX", "VO", "LN", "GF", "GA", "UI", "WY", "FR"
2147destin = EMPTY
2148destin(4:8, 3:5) = getMatCopy(rfpack, source(2:6, 3:7), rdpack, uppDia)
2149destin
2150" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2151" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2152" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2153" ", " ", "IW", "WF", "HX", " ", " ", " ", " ", " "
2154" ", " ", "QX", "UD", "UH", " ", " ", " ", " ", " "
2155" ", " ", "TV", "AJ", "TP", " ", " ", " ", " ", " "
2156" ", " ", "MM", "DK", "NI", " ", " ", " ", " ", " "
2157" ", " ", "PW", "IT", "XI", " ", " ", " ", " ", " "
2158" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2159" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
2160desnew = transpose(getMatCopy(rfpack, source(2:6, 3:7), rdpack, uppDia)) ! transpose
2161desnew
2162"IW", "QX", "TV", "MM", "PW"
2163"WF", "UD", "AJ", "DK", "IT"
2164"HX", "UH", "TP", "NI", "XI"
2165desnew = getMatCopy(rdpack, destin(4:8, 3:5), rfpack, uppDia)
2166desnew
2167"MM", "PW", "IW", "WF", "HX"
2168"Ēd", "IT", "QX", "UD", "UH"
2169"␅ ", " ", "TV", "AJ", "TP"
2170" ", " ", " ", "DK", "NI"
2171" ", " ", " ", " ", "XI"
2172
2173
2174call setUnifRand(source, SKG_'AA', SKG_'ZZ')
2175source
2176"AE", "HR", "AA", "OG", "BK", "NU", "TS", "FT", "ZV", "MY"
2177"ZD", "CT", "WH", "DI", "NZ", "CO", "DW", "LS", "XT", "GS"
2178"SF", "JM", "NT", "AN", "VV", "YQ", "BC", "PI", "QU", "WB"
2179"PX", "ZZ", "TT", "CP", "GP", "XF", "RW", "NQ", "ZY", "LW"
2180"LW", "YY", "KK", "KG", "RM", "FX", "ZM", "VK", "LA", "CE"
2181"EL", "QW", "FC", "CQ", "MW", "JM", "PV", "BI", "WT", "LO"
2182"ON", "JD", "TW", "LZ", "NV", "XU", "BY", "VI", "BM", "WV"
2183"DV", "RE", "SU", "TI", "BZ", "DE", "TY", "IA", "RW", "TL"
2184"RA", "QZ", "KI", "OL", "JQ", "XL", "ON", "TY", "FV", "MU"
2185"KL", "SX", "XJ", "ID", "FG", "HW", "UB", "OJ", "TH", "JZ"
2186destin = EMPTY
2187destin(2:6,3:5) = getMatCopy(rfpack, source(2:6, 3:7), rdpack, lowDia)
2188destin(2:6,3:5)
2189"WH", "FX", "JM"
2190"NT", "AN", "PV"
2191"TT", "CP", "GP"
2192"KK", "KG", "RM"
2193"FC", "CQ", "MW"
2194desnew = getMatCopy(rdpack, destin(4:8, 3:5), rfpack, lowDia)
2195desnew
2196"TT", " ", "IW", "WF", "HX"
2197"KK", "KG", "QX", "UD", "UH"
2198"FC", "CQ", "MW", "AJ", "TP"
2199" ", " ", " ", "CP", "NI"
2200" ", " ", " ", "GP", "RM"
2201
2202
Test:
test_pm_matrixCopy
Internal naming convention:
The following illustrates the internal naming convention used for the procedures within this generic interface.
getMatCopy_RDP_RDP_UXD_AIO_SK5
||| ||| ||| ||| |||
||| ||| ||| ||| The Output type and type kind parameter.
||| ||| ||| The operation: AIO/TSO/THO == AsIs/transSymm/transHerm operation.
||| ||| ||The diagonal subset of `source` to be copied? D: Copy the diagonal vector. X: Do not copy the diagonal vector.
||| ||| |The lower triangle subset of `source` to be copied? L: Copy the lower triangle. X: Do not copy the lower triangle.
||| ||| The upper triangle of `source` to be copied? U: Copy the upper triangle. X: Do not copy the upper triangle.
||| The packing of `source`: RDP/LFP/RFP/RBP == RectangularDefaultPack/LinearFullPack/RectangularFull/RectangularBand Package.
The packing of `destin`: RDP/LFP/RFP/RBP == RectangularDefaultPack/LinearFullPack/RectangularFull/RectangularBand Package.
Todo:
Critical Priority: The testing and examples of this generic interface with respect to different RFP matrix packing formats are incomplete and must be done.
Todo:
High Priority: This generic interface should be extended to also copy different RFP matrix packing formats directly to other RFP matrix packing formats.
Todo:
High Priority: This generic interface should be extended to also copy the diagonals of matrices of different RFP formats and LFP formats.
Todo:
High Priority: This generic interface can be extended to also accept operation argument for RFP matrix packing.
Todo:
High Priority: The implementation for subset = dia must be extended to allow operation argument.


Final Remarks ⛓

If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, please acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

This software is available to the public under a highly permissive license.
Help us justify its continued development and maintenance by acknowledging its benefit to society, distributing it, and contributing to it.

Copyright
Computational Data Science Lab
Author:
Amir Shahmoradi, Monday 00:06 AM, September 20, 2021, Dallas, TX

Definition at line 300 of file pm_matrixCopy.F90.

The documentation for this interface was generated from the following file: