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 ⛓

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
!
Generate and return a copy of a desired subset of the input source matrix of arbitrary shape (:) or (...
This module contains procedures and generic interfaces relevant to copying (diagonal or upper/lower t...
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
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
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Return a uniform random scalar or contiguous array of arbitrary rank of randomly uniformly distribute...
Generate and return a generic or type/kind-specific IO format with the requested specifications that ...
Definition: pm_io.F90:18485
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541
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
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
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
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
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
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"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
10"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
11"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
12"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
13"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
14"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
15"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
16"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
17"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
18"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
19destin = EMPTY
20destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia)
21destin
22" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
23" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
24" ", "YV", "AG", "KQ", "DR", "EZ", " ", " ", " ", " "
25" ", ²¬"", "VP", "NQ", "JP", "UI", " ", " ", " ", " "
26" ", " ", " ", "OB", "TA", "UP", " ", " ", " ", " "
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" ", "YV", "AG", "KQ", "DR", "EZ", " ", " ", " ", " "
38" ", ²¬"", "VP", "NQ", "JP", "UI", " ", " ", " ", " "
39" ", " ", " ", "OB", "TA", "UP", " ", " ", " ", " "
40" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
41" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
42" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
43" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
44" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
45
46source
47"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
48"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
49"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
50"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
51"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
52"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
53"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
54"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
55"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
56"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
57destin = EMPTY
58destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transSymm)
59destin
60" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
61" ", " ", "YV", " ", "JP", " ", " ", " ", " ", " "
62" ", " ", "AG", "VP", "TA", " ", " ", " ", " ", " "
63" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
64" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
65" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
66" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
67" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
68" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
69" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
70destin = EMPTY
71destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
72destin
73" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
74" ", " ", "YV", " ", "JP", " ", " ", " ", " ", " "
75" ", " ", "AG", "VP", "TA", " ", " ", " ", " ", " "
76" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
77" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
78" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
79" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
80" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
81" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
82" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
83
84source
85"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
86"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
87"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
88"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
89"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
90"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
91"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
92"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
93"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
94"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
95destin = EMPTY
96destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppDia, transHerm)
97destin
98" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
99" ", " ", "YV", " ", "JP", " ", " ", " ", " ", " "
100" ", " ", "AG", "VP", "TA", " ", " ", " ", " ", " "
101" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
102" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
103" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
104" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
105" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
106" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
107" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
108destin = EMPTY
109destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
110destin
111" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
112" ", " ", "YV", " ", "JP", " ", " ", " ", " ", " "
113" ", " ", "AG", "VP", "TA", " ", " ", " ", " ", " "
114" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
115" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
116" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
117" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
118" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
119" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
120" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
121
122source
123"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
124"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
125"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
126"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
127"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
128"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
129"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
130"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
131"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
132"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
133destin = EMPTY
134destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia)
135destin
136" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
137" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
138" ", "YV", "DR", "VP", "UI", "OB", " ", " ", " ", " "
139" ", "RH", "VP", "NQ", "JP", "TA", " ", " ", " ", " "
140" ", "GN", "SH", "OB", "TA", "UP", " ", " ", " ", " "
141" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
142" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
143" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
144" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
145" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
146destin = EMPTY
147destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)
148destin
149" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
150" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
151" ", "YV", "DR", "VP", "UI", "OB", " ", " ", " ", " "
152" ", "RH", "VP", "NQ", "JP", "TA", " ", " ", " ", " "
153" ", "GN", "SH", "OB", "TA", "UP", " ", " ", " ", " "
154" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
155" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
156" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
157" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
158" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
159
160source
161"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
162"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
163"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
164"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
165"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
166"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
167"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
168"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
169"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
170"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
171destin = EMPTY
172destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transSymm)
173destin
174" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
175" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
176" ", " ", "RH", "VP", "SH", " ", " ", " ", " ", " "
177" ", " ", "GN", "NQ", "OB", " ", " ", " ", " ", " "
178" ", " ", "DR", "OB", "TA", " ", " ", " ", " ", " "
179" ", " ", "VP", "UI", "UP", " ", " ", " ", " ", " "
180" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
181" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
182" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
183" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
184destin = EMPTY
185destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
186destin
187" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
188" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
189" ", " ", "RH", "VP", "SH", " ", " ", " ", " ", " "
190" ", " ", "GN", "NQ", "OB", " ", " ", " ", " ", " "
191" ", " ", "DR", "OB", "TA", " ", " ", " ", " ", " "
192" ", " ", "VP", "UI", "UP", " ", " ", " ", " ", " "
193" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
194" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
195" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
196" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
197
198source
199"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
200"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
201"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
202"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
203"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
204"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
205"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
206"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
207"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
208"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
209destin = EMPTY
210destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, lowDia, transHerm)
211destin
212" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
213" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
214" ", " ", "RH", "VP", "SH", " ", " ", " ", " ", " "
215" ", " ", "GN", "NQ", "OB", " ", " ", " ", " ", " "
216" ", " ", "DR", "OB", "TA", " ", " ", " ", " ", " "
217" ", " ", "VP", "UI", "UP", " ", " ", " ", " ", " "
218" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
219" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
220" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
221" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
222destin = EMPTY
223destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
224destin
225" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
226" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
227" ", " ", "RH", "VP", "SH", " ", " ", " ", " ", " "
228" ", " ", "GN", "NQ", "OB", " ", " ", " ", " ", " "
229" ", " ", "DR", "OB", "TA", " ", " ", " ", " ", " "
230" ", " ", "VP", "UI", "UP", " ", " ", " ", " ", " "
231" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
232" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
233" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
234" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
235
236source
237"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
238"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
239"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
240"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
241"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
242"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
243"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
244"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
245"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
246"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
247destin = EMPTY
248destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow)
249destin
250" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
251" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
252" ", "YV", "AG", "KQ", "DR", "EZ", " ", " ", " ", " "
253" ", "RH", "VP", "NQ", "JP", "UI", " ", " ", " ", " "
254" ", "GN", "SH", "OB", "TA", "UP", " ", " ", " ", " "
255" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
256" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
257" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
258" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
259" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
260destin = EMPTY
261destin(3:5, 2:6) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia)
262destin
263" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
264" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
265" ", "YV", "AG", "KQ", "DR", "EZ", " ", " ", " ", " "
266" ", "RH", "VP", "NQ", "JP", "UI", " ", " ", " ", " "
267" ", "GN", "SH", "OB", "TA", "UP", " ", " ", " ", " "
268" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
269" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
270" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
271" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
272" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
273
274source
275"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
276"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
277"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
278"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
279"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
280"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
281"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
282"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
283"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
284"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
285destin = EMPTY
286destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transSymm)
287destin
288" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
289" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
290" ", " ", "AG", "KQ", "SH", " ", " ", " ", " ", " "
291" ", " ", "KQ", "NQ", "EZ", " ", " ", " ", " ", " "
292" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
293" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
294" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
295" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
296" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
297" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
298destin = EMPTY
299destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transSymm)
300destin
301" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
302" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
303" ", " ", "AG", "VP", "SH", " ", " ", " ", " ", " "
304" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
305" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
306" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
307" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
308" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
309" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
310" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
311
312source
313"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
314"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
315"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
316"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
317"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
318"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
319"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
320"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
321"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
322"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
323destin = EMPTY
324destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, uppLow, transHerm)
325destin
326" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
327" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
328" ", " ", "AG", "VP", "SH", " ", " ", " ", " ", " "
329" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
330" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
331" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
332" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
333" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
334" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
335" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
336destin = EMPTY
337destin(2:6, 3:5) = getMatCopy(rdpack, source(2:4, 3:7), rdpack, dia, transHerm)
338destin
339" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
340" ", " ", "YV", "RH", "GN", " ", " ", " ", " ", " "
341" ", " ", "AG", "VP", "SH", " ", " ", " ", " ", " "
342" ", " ", "KQ", "NQ", "OB", " ", " ", " ", " ", " "
343" ", " ", "DR", "JP", "TA", " ", " ", " ", " ", " "
344" ", " ", "EZ", "UI", "UP", " ", " ", " ", " ", " "
345" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
346" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
347" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
348" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
349
350source
351"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
352"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
353"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
354"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
355"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
356"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
357"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
358"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
359"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
360"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
361destin = EMPTY
362destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia)
363destin
364" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
365" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
366" ", "YV", "AG", "KQ", " ", " ", " ", " ", " ", " "
367" ", "AG", "VP", "NQ", " ", " ", " ", " ", " ", " "
368" ", "KQ", "NQ", "OB", " ", " ", " ", " ", " ", " "
369" ", "DR", "JP", "TA", " ", " ", " ", " ", " ", " "
370" ", "EZ", "UI", "UP", " ", " ", " ", " ", " ", " "
371" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
372" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
373" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
374destin = EMPTY
375destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
376destin
377" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
378" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
379" ", "YV", "AG", "KQ", " ", " ", " ", " ", " ", " "
380" ", "AG", "VP", "NQ", " ", " ", " ", " ", " ", " "
381" ", "KQ", "NQ", "OB", " ", " ", " ", " ", " ", " "
382" ", "DR", "JP", "TA", " ", " ", " ", " ", " ", " "
383" ", "EZ", "UI", "UP", " ", " ", " ", " ", " ", " "
384" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
385" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
386" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
387
388source
389"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
390"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
391"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
392"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
393"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
394"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
395"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
396"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
397"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
398"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
399destin = EMPTY
400destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transSymm)
401destin
402" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
403" ", " ", "YV", "DR", "VP", "UI", "OB", " ", " ", " "
404" ", " ", "AG", "VP", "NQ", "KQ", "TA", " ", " ", " "
405" ", " ", "KQ", "NQ", "OB", "NQ", "UP", " ", " ", " "
406" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
407" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
408" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
409" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
410" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
411" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
412destin = EMPTY
413destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
414destin
415" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
416" ", " ", "YV", "DR", "VP", "UI", "OB", " ", " ", " "
417" ", " ", "AG", "VP", "NQ", "KQ", "TA", " ", " ", " "
418" ", " ", "KQ", "NQ", "OB", "NQ", "UP", " ", " ", " "
419" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
420" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
421" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
422" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
423" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
424" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
425
426source
427"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
428"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
429"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
430"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
431"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
432"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
433"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
434"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
435"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
436"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
437destin = EMPTY
438destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppDia, transHerm)
439destin
440" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
441" ", " ", "YV", "DR", "VP", "UI", "OB", " ", " ", " "
442" ", " ", "AG", "VP", "NQ", "KQ", "TA", " ", " ", " "
443" ", " ", "KQ", "NQ", "OB", "NQ", "UP", " ", " ", " "
444" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
445" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
446" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
447" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
448" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
449" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
450destin = EMPTY
451destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
452destin
453" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
454" ", " ", "YV", "DR", "VP", "UI", "OB", " ", " ", " "
455" ", " ", "AG", "VP", "NQ", "KQ", "TA", " ", " ", " "
456" ", " ", "KQ", "NQ", "OB", "NQ", "UP", " ", " ", " "
457" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
458" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
459" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
460" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
461" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
462" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
463
464source
465"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
466"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
467"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
468"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
469"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
470"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
471"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
472"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
473"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
474"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
475destin = EMPTY
476destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia)
477destin
478" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
479" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
480" ", "YV", "NQ", "KQ", " ", " ", " ", " ", " ", " "
481" ", "RH", "VP", "NQ", " ", " ", " ", " ", " ", " "
482" ", "GN", "SH", "OB", " ", " ", " ", " ", " ", " "
483" ", "WT", "VD", "BQ", " ", " ", " ", " ", " ", " "
484" ", "LJ", "KI", "MZ", " ", " ", " ", " ", " ", " "
485" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
486" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
487" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
488destin = EMPTY
489destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
490destin
491" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
492" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
493" ", "YV", "NQ", "KQ", " ", " ", " ", " ", " ", " "
494" ", "RH", "VP", "NQ", " ", " ", " ", " ", " ", " "
495" ", "GN", "SH", "OB", " ", " ", " ", " ", " ", " "
496" ", "WT", "VD", "BQ", " ", " ", " ", " ", " ", " "
497" ", "LJ", "KI", "MZ", " ", " ", " ", " ", " ", " "
498" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
499" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
500" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
501
502source
503"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
504"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
505"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
506"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
507"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
508"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
509"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
510"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
511"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
512"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
513destin = EMPTY
514destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transSymm)
515destin
516" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
517" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
518" ", " ", "RH", "VP", "SH", "VD", "KI", " ", " ", " "
519" ", " ", "GN", "NQ", "OB", "BQ", "MZ", " ", " ", " "
520" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
521" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
522" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
523" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
524" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
525" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
526destin = EMPTY
527destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
528destin
529" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
530" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
531" ", " ", "RH", "VP", "SH", "VD", "KI", " ", " ", " "
532" ", " ", "GN", "NQ", "OB", "BQ", "MZ", " ", " ", " "
533" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
534" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
535" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
536" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
537" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
538" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
539
540source
541"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
542"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
543"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
544"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
545"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
546"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
547"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
548"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
549"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
550"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
551destin = EMPTY
552destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, lowDia, transHerm)
553destin
554" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
555" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
556" ", " ", "RH", "VP", "SH", "VD", "KI", " ", " ", " "
557" ", " ", "GN", "NQ", "OB", "BQ", "MZ", " ", " ", " "
558" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
559" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
560" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
561" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
562" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
563" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
564destin = EMPTY
565destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
566destin
567" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
568" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
569" ", " ", "RH", "VP", "SH", "VD", "KI", " ", " ", " "
570" ", " ", "GN", "NQ", "OB", "BQ", "MZ", " ", " ", " "
571" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
572" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
573" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
574" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
575" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
576" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
577
578source
579"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
580"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
581"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
582"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
583"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
584"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
585"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
586"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
587"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
588"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
589destin = EMPTY
590destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow)
591destin
592" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
593" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
594" ", "YV", "AG", "KQ", " ", " ", " ", " ", " ", " "
595" ", "RH", "GN", "NQ", " ", " ", " ", " ", " ", " "
596" ", "GN", "SH", "LJ", " ", " ", " ", " ", " ", " "
597" ", "WT", "VD", "BQ", " ", " ", " ", " ", " ", " "
598" ", "LJ", "KI", "MZ", " ", " ", " ", " ", " ", " "
599" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
600" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
601" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
602destin = EMPTY
603destin(3:7, 2:4) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia)
604destin
605" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
606" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
607" ", "YV", "AG", "KQ", " ", " ", " ", " ", " ", " "
608" ", "RH", "VP", "NQ", " ", " ", " ", " ", " ", " "
609" ", "GN", "SH", "OB", " ", " ", " ", " ", " ", " "
610" ", "WT", "VD", "BQ", " ", " ", " ", " ", " ", " "
611" ", "LJ", "KI", "MZ", " ", " ", " ", " ", " ", " "
612" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
613" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
614" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
615
616source
617"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
618"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
619"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
620"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
621"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
622"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
623"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
624"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
625"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
626"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
627destin = EMPTY
628destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transSymm)
629destin
630" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
631" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
632" ", " ", "AG", "LJ", "SH", "VD", "KI", " ", " ", " "
633" ", " ", "KQ", "NQ", "VD", "BQ", "MZ", " ", " ", " "
634" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
635" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
636" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
637" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
638" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
639" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
640destin = EMPTY
641destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transSymm)
642destin
643" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
644" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
645" ", " ", "AG", "VP", "SH", "VD", "KI", " ", " ", " "
646" ", " ", "KQ", "NQ", "OB", "BQ", "MZ", " ", " ", " "
647" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
648" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
649" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
650" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
651" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
652" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
653
654source
655"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
656"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
657"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
658"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
659"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
660"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
661"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
662"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
663"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
664"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
665destin = EMPTY
666destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, uppLow, transHerm)
667destin
668" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
669" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
670" ", " ", "AG", "VP", "SH", "VD", "KI", " ", " ", " "
671" ", " ", "KQ", "NQ", "OB", "BQ", "MZ", " ", " ", " "
672" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
673" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
674" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
675" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
676" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
677" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
678destin = EMPTY
679destin(2:4, 3:7) = getMatCopy(rdpack, source(2:6, 3:5), rdpack, dia, transHerm)
680destin
681" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
682" ", " ", "YV", "RH", "GN", "WT", "LJ", " ", " ", " "
683" ", " ", "AG", "VP", "SH", "VD", "KI", " ", " ", " "
684" ", " ", "KQ", "NQ", "OB", "BQ", "MZ", " ", " ", " "
685" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
686" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
687" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
688" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
689" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
690" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
691
692source
693"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
694"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
695"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
696"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
697"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
698"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
699"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
700"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
701"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
702"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
703destin = EMPTY
704destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia)
705destin
706" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
707" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
708" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
709" ", " ", "AG", "KJ", "YV", "AG", "KQ", " ", " ", " "
710" ", " ", "KQ", "SH", "RH", "VP", "NQ", " ", " ", " "
711" ", " ", "RH", "OB", "KI", "SH", "OB", " ", " ", " "
712" ", " ", "VP", "WT", "MZ", " ", "BQ", " ", " ", " "
713" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
714" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
715" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
716destin = EMPTY
717destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
718destin
719" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
720" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
721" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
722" ", " ", "AG", "KJ", "YV", "AG", "KQ", " ", " ", " "
723" ", " ", "KQ", "SH", "RH", "VP", "NQ", " ", " ", " "
724" ", " ", "RH", "OB", "KI", "SH", "OB", " ", " ", " "
725" ", " ", "VP", "WT", "MZ", " ", "BQ", " ", " ", " "
726" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
727" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
728" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
729
730source
731"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
732"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
733"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
734"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
735"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
736"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
737"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
738"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
739"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
740"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
741destin = EMPTY
742destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transSymm)
743destin
744" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
745" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
746" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
747" ", " ", "OF", "KJ", "YV", "AG", "KQ", " ", " ", " "
748" ", " ", "SH", "YV", "RH", "VP", "NQ", " ", " ", " "
749" ", " ", "HY", "AG", "VP", "SH", "OB", " ", " ", " "
750" ", " ", "MA", "KQ", "NQ", "OB", "BQ", " ", " ", " "
751" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
752" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
753" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
754destin = EMPTY
755destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)
756destin
757" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
758" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
759" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
760" ", " ", "OF", "KJ", "YV", "AG", "KQ", " ", " ", " "
761" ", " ", "SH", "YV", "RH", "VP", "NQ", " ", " ", " "
762" ", " ", "HY", "AG", "VP", "SH", "OB", " ", " ", " "
763" ", " ", "MA", "KQ", "NQ", "OB", "BQ", " ", " ", " "
764" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
765" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
766" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
767
768source
769"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
770"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
771"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
772"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
773"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
774"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
775"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
776"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
777"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
778"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
779destin = EMPTY
780destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppDia, transHerm)
781destin
782" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
783" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
784" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
785" ", " ", "OF", "KJ", "YV", "AG", "KQ", " ", " ", " "
786" ", " ", "SH", "YV", "RH", "VP", "NQ", " ", " ", " "
787" ", " ", "HY", "AG", "VP", "SH", "OB", " ", " ", " "
788" ", " ", "MA", "KQ", "NQ", "OB", "BQ", " ", " ", " "
789" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
790" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
791" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
792destin = EMPTY
793destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)
794destin
795" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
796" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
797" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
798" ", " ", "OF", "KJ", "YV", "AG", "KQ", " ", " ", " "
799" ", " ", "SH", "YV", "RH", "VP", "NQ", " ", " ", " "
800" ", " ", "HY", "AG", "VP", "SH", "OB", " ", " ", " "
801" ", " ", "MA", "KQ", "NQ", "OB", "BQ", " ", " ", " "
802" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
803" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
804" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
805
806source
807"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
808"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
809"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
810"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
811"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
812"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
813"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
814"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
815"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
816"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
817destin = EMPTY
818destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia)
819destin
820" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
821" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
822" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
823" ", " ", "SR", "KJ", "YV", "AG", "KQ", " ", " ", " "
824" ", " ", "LD", "PQ", "RH", "VP", "NQ", " ", " ", " "
825" ", " ", "SK", "JX", "GN", "SH", "OB", " ", " ", " "
826" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
827" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
828" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
829" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
830destin = EMPTY
831destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
832destin
833" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
834" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
835" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
836" ", " ", "SR", "KJ", "YV", "AG", "KQ", " ", " ", " "
837" ", " ", "LD", "PQ", "RH", "VP", "NQ", " ", " ", " "
838" ", " ", "SK", "JX", "GN", "SH", "OB", " ", " ", " "
839" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
840" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
841" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
842" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
843
844source
845"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
846"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
847"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
848"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
849"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
850"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
851"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
852"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
853"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
854"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
855destin = EMPTY
856destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transSymm)
857destin
858" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
859" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
860" ", " ", "ET", "SR", "LD", "SK", "YT", " ", " ", " "
861" ", " ", "SR", "KJ", "PQ", "JX", "CO", " ", " ", " "
862" ", " ", "LD", "PQ", "RH", "GN", "WT", " ", " ", " "
863" ", " ", "SK", "JX", "GN", "SH", "VD", " ", " ", " "
864" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
865" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
866" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
867" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
868destin = EMPTY
869destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transSymm)
870destin
871" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
872" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
873" ", " ", "ET", "SR", "LD", "SK", "YT", " ", " ", " "
874" ", " ", "SR", "KJ", "PQ", "JX", "CO", " ", " ", " "
875" ", " ", "LD", "PQ", "RH", "GN", "WT", " ", " ", " "
876" ", " ", "SK", "JX", "GN", "SH", "VD", " ", " ", " "
877" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
878" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
879" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
880" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
881
882source
883"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
884"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
885"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
886"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
887"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
888"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
889"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
890"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
891"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
892"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
893destin = EMPTY
894destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, lowDia, transHerm)
895destin
896" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
897" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
898" ", " ", "ET", "SR", "LD", "SK", "YT", " ", " ", " "
899" ", " ", "SR", "KJ", "PQ", "JX", "CO", " ", " ", " "
900" ", " ", "LD", "PQ", "RH", "GN", "WT", " ", " ", " "
901" ", " ", "SK", "JX", "GN", "SH", "VD", " ", " ", " "
902" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
903" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
904" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
905" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
906destin = EMPTY
907destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia, transHerm)
908destin
909" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
910" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
911" ", " ", "ET", "SR", "LD", "SK", "YT", " ", " ", " "
912" ", " ", "SR", "KJ", "PQ", "JX", "CO", " ", " ", " "
913" ", " ", "LD", "PQ", "RH", "GN", "WT", " ", " ", " "
914" ", " ", "SK", "JX", "GN", "SH", "VD", " ", " ", " "
915" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
916" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
917" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
918" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
919
920source
921"ET", "OF", "SH", "HY", "MA", "ID", "AY", "FU", "LU", "QD"
922"SR", "KJ", "YV", "AG", "KQ", "DR", "EZ", "VN", "WV", "DY"
923"LD", "PQ", "RH", "VP", "NQ", "JP", "UI", "XE", "QK", "NV"
924"SK", "JX", "GN", "SH", "OB", "TA", "UP", "AS", "DF", "UC"
925"YT", "CO", "WT", "VD", "BQ", "VN", "NT", "NH", "CR", "JP"
926"YB", "DR", "LJ", "KI", "MZ", "XQ", "OS", "AH", "UE", "NA"
927"MO", "OY", "RG", "WW", "EO", "CT", "FE", "DD", "AA", "YT"
928"JV", "KU", "PS", "ZW", "US", "PT", "DD", "LO", "OM", "IO"
929"JE", "WP", "DD", "XW", "FJ", "SB", "TZ", "NB", "QQ", "HP"
930"LT", "BQ", "BK", "WL", "BY", "VJ", "WV", "AK", "VJ", "MI"
931doff = 0
932destin = EMPTY
933destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, uppLow, doff)
934destin
935" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
936" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
937" ", " ", "ET", "OF", "SH", "HY", "MA", " ", " ", " "
938" ", " ", "SR", "KJ", "YV", "AG", "KQ", " ", " ", " "
939" ", " ", "LD", "PQ", "RH", "VP", "NQ", " ", " ", " "
940" ", " ", "SK", "JX", "GN", "SH", "OB", " ", " ", " "
941" ", " ", "YT", "CO", "WT", "VD", "BQ", " ", " ", " "
942" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
943" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
944" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
945destin = EMPTY
946destin(3:7, 3:7) = getMatCopy(rdpack, source(1:5, 1:5), rdpack, dia)
947destin
948" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
949" ", " ", " ", " ", " ", " ", " ", " ", " ", " "
950" ", " ", "ET&qu