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

Copy 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

Copy 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,out]destin: The input/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 intact on output.
[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.)


Possible calling interfaces

use pm_matrixCopy, only: transHerm, transSymm
use pm_matrixCopy, only: ldpack, lfpack, rdpack, rfpack
use pm_matrixCopy, only: upp, low, dia, lowDia, uppDia, uppLow
! rectangular default packing to rectangular default packing
call setMatCopy(destin(:,:), dpack, source(:,:), spack, subset , doff = doff) ! dpack = rdpack, spack = rdpack, subset = upp/low/dia/lowDia/uppDia/uppLow
call setMatCopy(destin(:,:), dpack, source(:,:), spack, subset, operation, doff = doff) ! dpack = rdpack, spack = rdpack, subset = upp/low/dia/lowDia/uppDia/uppLow
! rectangular default packing to rectangular full packing or vice versa
call setMatCopy(destin(:,:), dpack, source(:,:), spack, subset ) ! dpack = rdpack/rfpack, spack = rfpack/rdpack, subset = dia/lowDia/uppDia/uppLow
call setMatCopy(destin(:,:), dpack, source(:,:), spack, subset, operation) ! dpack = rdpack/rfpack, spack = rfpack/rdpack, subset = dia/lowDia/uppDia/uppLow
! linear default packing to rectangular full packing or vice versa
call setMatCopy(destin(:,:), dpack, source(:) , spack, subset , doff = doff) ! dpack = ldpack, spack = lfpack, subset = dia/lowDia/uppDia/uppLow
call setMatCopy(destin(:) , dpack, source(:,:), spack, subset, operation, doff = doff) ! dpack = lfpack, spack = ldpack, subset = dia/lowDia/uppDia/uppLow
!
Copy a desired subset of the input source matrix of arbitrary shape (:) or (:,:) to the target subset...
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
setCopyIndexed
setCopyStrided
setMatInit


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


Final Remarks


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

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

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

Author:
Amir Shahmoradi, Monday 00:06 AM, September 20, 2021, Dallas, TX

Definition at line 17748 of file pm_matrixCopy.F90.


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