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: The constant rdpack implying rectangular default packing. The constant lfpack implying linear full (triangular) packing only if the input argument `spack` is set to rdpack. 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: The constant rdpack implying rectangular default packing. The constant lfpack implying linear full (triangular) packing only if the input argument `dpack` is set to rdpack. 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: 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`. 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. 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. The constant lowDia, implying that the lower-diagonal subset of the input matrix `source` must be copied to `destin` after performing the optional `operation`. The constant uppDia, implying that the upper-diagonal subset of the input matrix `source` must be copied to `destin` after performing the optional `operation`. 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: The constant transSymm implying that a Symmetric transpose of the specified subset of `source` is to be copied. 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`. 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`. 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`. 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: setMatCopy

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

!

pm_matrixCopy::setMatCopy
Copy a desired subset of the input source matrix of arbitrary shape (:) or (:,:) to the target subset...
Definition: pm_matrixCopy.F90:17748

pm_matrixCopy
This module contains procedures and generic interfaces relevant to copying (diagonal or upper/lower t...
Definition: pm_matrixCopy.F90:113

Warning: The condition len(source) <= len(destin) must hold for the corresponding input arguments of type character.
The condition -size(source, 1) <= doff .and. doff <= +size(source, 2) must hold for the corresponding input arguments.
This interface implements many runtime checks for bound-checking of the input matrices.
These conditions are verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.; The pure procedure(s) documented herein become impure when the ParaMonte library is compiled with preprocessor macro CHECK_ENABLED=1.
By default, these procedures are pure in release build and impure in debug and testing builds.

BLAS/LAPACK equivalent:: The procedures under discussion combine, modernize, and extend the interface and functionalities of Version 3.11 of BLAS/LAPACK routine(s): SLACPY, DLACPY, CLACPY, ZLACPY, CTPTTF, DTPTTF, STPTTF, ZTPTTF, CTRTTF, DTRTTF, STRTTF, ZTRTTF, CTFTTP, DTFTTP, STFTTP, ZTFTTP,, CTFTTR, DTFTTR, STFTTR, ZTFTTR.
In particular copying of subsets of character, integer, logical, as well as complex and real matrices are implemented as part of this module.
Furthermore, operations on the subset data to copy (such as symmetric transpose) are also implemented.

See also: setMatCopy
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

8 use pm_distUnif, only: getUnifRand, setUnifRand

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

pm_distUnif::getUnifRand
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Definition: pm_distUnif.F90:4150

pm_distUnif::setUnifRand
Return a uniform random scalar or contiguous array of arbitrary rank of randomly uniformly distribute...
Definition: pm_distUnif.F90:11083

pm_io::getFormat
Generate and return a generic or type/kind-specific IO format with the requested specifications that ...
Definition: pm_io.F90:18485

pm_io::show
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11726

pm_io::skip
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11508

pm_distUnif
This module contains classes and procedures for computing various statistical quantities related to t...
Definition: pm_distUnif.F90:274

pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252

pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393

pm_kind
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:268

pm_kind::LK
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:541

pm_kind::CKS
integer, parameter CKS
The single-precision complex kind in Fortran mode. On most platforms, this is a 32-bit real kind.
Definition: pm_kind.F90:570

pm_kind::IKS
integer, parameter IKS
The single-precision integer kind in Fortran mode. On most platforms, this is a 32-bit integer kind.
Definition: pm_kind.F90:563

pm_kind::IK
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:540

pm_kind::SK
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:539

pm_kind::RKS
integer, parameter RKS
The single-precision real kind in Fortran mode. On most platforms, this is an 32-bit real kind.
Definition: pm_kind.F90:567

pm_io::display_type
Generate and return an object of type display_type.
Definition: pm_io.F90:10282

Example Unix compile command via Intel ifort compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example Windows Batch compile command via Intel ifort compiler ⛓
1del main.exe

2set PATH=..\..\..\lib;%PATH%

3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte*.lib /exe:main.exe

4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler ⛓
1#!/usr/bin/env sh

2rm main.exe

3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte* -o main.exe

4./main.exe

Example output ⛓
1

2!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

3! Copy subset to subset in Rectangular Default Format.

4!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

5

6

7call setUnifRand(source, SKG_'AA', SKG_'ZZ')

8source

9"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

10"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

11"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

12"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

13"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

14"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

15"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

16"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

17"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

18"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

19destin = EMPTY

20call setMatCopy(destin(3:5, 2:6), rdpack, source(2:4, 3:7), rdpack, uppDia)

21destin

22" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

23" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

24" ", "LK", "NA", "NV", "EI", "VE", " ", " ", " ", " "

25" ", " ", "LY", "VV", "SJ", "LI", " ", " ", " ", " "

26" ", " ", " ", "SU", "RN", "GL", " ", " ", " ", " "

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" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

38" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

39" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

40" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

41" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

42" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

43" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

44" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

45

46source

47"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

48"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

49"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

50"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

51"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

52"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

53"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

54"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

55"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

56"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

57destin = EMPTY

58call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, uppDia, transSymm)

59destin

60" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

61" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

62" ", " ", "NA", "LY", " ", " ", " ", " ", " ", " "

63" ", " ", "NV", "VV", "SU", " ", " ", " ", " ", " "

64" ", " ", "EI", "SJ", "RN", " ", " ", " ", " ", " "

65" ", " ", "VE", "LI", "GL", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

75" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

76" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

77" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

78" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

79" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

80" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

81" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

82" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

83

84source

85"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

86"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

87"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

88"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

89"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

90"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

91"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

92"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

93"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

94"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

95destin = EMPTY

96call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, uppDia, transHerm)

97destin

98" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

99" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

100" ", " ", "NA", "LY", " ", " ", " ", " ", " ", " "

101" ", " ", "NV", "VV", "SU", " ", " ", " ", " ", " "

102" ", " ", "EI", "SJ", "RN", " ", " ", " ", " ", " "

103" ", " ", "VE", "LI", "GL", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

113" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

114" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

115" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

116" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

117" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

118" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

119" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

120" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

121

122source

123"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

124"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

125"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

126"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

127"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

128"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

129"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

130"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

131"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

132"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

133destin = EMPTY

134call setMatCopy(destin(3:5, 2:6), rdpack, source(2:4, 3:7), rdpack, lowDia)

135destin

136" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

137" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

138" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

139" ", "XO", "LY", " ", " ", " ", " ", " ", " ", " "

140" ", "XQ", "WZ", "SU", " ", " ", " ", " ", " ", " "

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" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

152" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

153" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

154" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

155" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

156" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

157" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

158" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

159

160source

161"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

162"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

163"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

164"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

165"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

166"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

167"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

168"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

169"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

170"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

171destin = EMPTY

172call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, lowDia, transSymm)

173destin

174" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

175" ", " ", "LK", "XO", "XQ", " ", " ", " ", " ", " "

176" ", " ", " ", "LY", "WZ", " ", " ", " ", " ", " "

177" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

189" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

190" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

191" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

192" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

193" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

194" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

195" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

196" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

197

198source

199"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

200"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

201"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

202"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

203"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

204"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

205"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

206"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

207"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

208"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

209destin = EMPTY

210call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, lowDia, transHerm)

211destin

212" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

213" ", " ", "LK", "XO", "XQ", " ", " ", " ", " ", " "

214" ", " ", " ", "LY", "WZ", " ", " ", " ", " ", " "

215" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

227" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

228" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

229" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

230" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

231" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

232" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

233" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

234" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

235

236source

237"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

238"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

239"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

240"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

241"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

242"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

243"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

244"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

245"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

246"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

247destin = EMPTY

248call setMatCopy(destin(3:5, 2:6), rdpack, source(2:4, 3:7), rdpack, uppLow)

249destin

250" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

251" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

252" ", " ", "NA", "NV", "EI", "VE", " ", " ", " ", " "

253" ", "XO", " ", "VV", "SJ", "LI", " ", " ", " ", " "

254" ", "XQ", "WZ", " ", "RN", "GL", " ", " ", " ", " "

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" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

266" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

267" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

268" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

269" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

270" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

271" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

272" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

273

274source

275"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

276"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

277"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

278"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

279"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

280"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

281"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

282"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

283"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

284"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

285destin = EMPTY

286call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, uppLow, transSymm)

287destin

288" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

289" ", " ", " ", "XO", "XQ", " ", " ", " ", " ", " "

290" ", " ", "NA", " ", "WZ", " ", " ", " ", " ", " "

291" ", " ", "NV", "VV", " ", " ", " ", " ", " ", " "

292" ", " ", "EI", "SJ", "RN", " ", " ", " ", " ", " "

293" ", " ", "VE", "LI", "GL", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

303" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

304" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

305" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

306" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

307" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

308" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

309" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

310" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

311

312source

313"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

314"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

315"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

316"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

317"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

318"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

319"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

320"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

321"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

322"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

323destin = EMPTY

324call setMatCopy(destin(2:6, 3:5), rdpack, source(2:4, 3:7), rdpack, uppLow, transHerm)

325destin

326" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

327" ", " ", " ", "XO", "XQ", " ", " ", " ", " ", " "

328" ", " ", "NA", " ", "WZ", " ", " ", " ", " ", " "

329" ", " ", "NV", "VV", " ", " ", " ", " ", " ", " "

330" ", " ", "EI", "SJ", "RN", " ", " ", " ", " ", " "

331" ", " ", "VE", "LI", "GL", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

341" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

342" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

343" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

344" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

345" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

346" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

347" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

348" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

349

350source

351"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

352"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

353"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

354"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

355"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

356"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

357"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

358"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

359"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

360"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

361destin = EMPTY

362call setMatCopy(destin(3:7, 2:4), rdpack, source(2:6, 3:5), rdpack, uppDia)

363destin

364" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

365" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

366" ", "LK", "NA", "NV", " ", " ", " ", " ", " ", " "

367" ", " ", "LY", "VV", " ", " ", " ", " ", " ", " "

368" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

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" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

380" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

381" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

382" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

383" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

384" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

385" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

386" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

387

388source

389"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

390"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

391"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

392"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

393"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

394"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

395"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

396"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

397"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

398"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

399destin = EMPTY

400call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, uppDia, transSymm)

401destin

402" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

403" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

404" ", " ", "NA", "LY", " ", " ", " ", " ", " ", " "

405" ", " ", "NV", "VV", "SU", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

417" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

418" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

419" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

420" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

421" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

422" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

423" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

424" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

425

426source

427"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

428"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

429"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

430"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

431"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

432"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

433"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

434"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

435"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

436"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

437destin = EMPTY

438call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, uppDia, transHerm)

439destin

440" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

441" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

442" ", " ", "NA", "LY", " ", " ", " ", " ", " ", " "

443" ", " ", "NV", "VV", "SU", " ", " ", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

455" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

456" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

457" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

458" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

459" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

460" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

461" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

462" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

463

464source

465"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

466"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

467"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

468"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

469"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

470"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

471"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

472"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

473"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

474"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

475destin = EMPTY

476call setMatCopy(destin(3:7, 2:4), rdpack, source(2:6, 3:5), rdpack, lowDia)

477destin

478" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

479" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

480" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

481" ", "XO", "LY", " ", " ", " ", " ", " ", " ", " "

482" ", "XQ", "WZ", "SU", " ", " ", " ", " ", " ", " "

483" ", "NQ", "LI", "UI", " ", " ", " ", " ", " ", " "

484" ", "LA", "DK", "PY", " ", " ", " ", " ", " ", " "

485" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

486" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

487" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

488destin = EMPTY

489call setMatCopy(destin(3:7, 2:4), rdpack, source(2:6, 3:5), rdpack, dia)

490destin

491" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

492" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

493" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

494" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

495" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

496" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

497" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

498" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

499" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

500" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

501

502source

503"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

504"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

505"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

506"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

507"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

508"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

509"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

510"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

511"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

512"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

513destin = EMPTY

514call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, lowDia, transSymm)

515destin

516" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

517" ", " ", "LK", "XO", "XQ", "NQ", "LA", " ", " ", " "

518" ", " ", " ", "LY", "WZ", "LI", "DK", " ", " ", " "

519" ", " ", " ", " ", "SU", "UI", "PY", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

531" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

532" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

533" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

534" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

535" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

536" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

537" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

538" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

539

540source

541"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

542"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

543"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

544"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

545"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

546"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

547"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

548"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

549"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

550"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

551destin = EMPTY

552call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, lowDia, transHerm)

553destin

554" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

555" ", " ", "LK", "XO", "XQ", "NQ", "LA", " ", " ", " "

556" ", " ", " ", "LY", "WZ", "LI", "DK", " ", " ", " "

557" ", " ", " ", " ", "SU", "UI", "PY", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

569" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

570" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

571" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

572" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

573" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

574" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

575" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

576" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

577

578source

579"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

580"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

581"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

582"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

583"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

584"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

585"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

586"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

587"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

588"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

589destin = EMPTY

590call setMatCopy(destin(3:7, 2:4), rdpack, source(2:6, 3:5), rdpack, uppLow)

591destin

592" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

593" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

594" ", " ", "NA", "NV", " ", " ", " ", " ", " ", " "

595" ", "XO", " ", "VV", " ", " ", " ", " ", " ", " "

596" ", "XQ", "WZ", " ", " ", " ", " ", " ", " ", " "

597" ", "NQ", "LI", "UI", " ", " ", " ", " ", " ", " "

598" ", "LA", "DK", "PY", " ", " ", " ", " ", " ", " "

599" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

600" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

601" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

602destin = EMPTY

603call setMatCopy(destin(3:7, 2:4), rdpack, source(2:6, 3:5), rdpack, dia)

604destin

605" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

606" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

607" ", "LK", " ", " ", " ", " ", " ", " ", " ", " "

608" ", " ", "LY", " ", " ", " ", " ", " ", " ", " "

609" ", " ", " ", "SU", " ", " ", " ", " ", " ", " "

610" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

611" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

612" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

613" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

614" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

615

616source

617"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

618"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

619"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

620"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

621"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

622"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

623"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

624"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

625"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

626"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

627destin = EMPTY

628call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, uppLow, transSymm)

629destin

630" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

631" ", " ", " ", "XO", "XQ", "NQ", "LA", " ", " ", " "

632" ", " ", "NA", " ", "WZ", "LI", "DK", " ", " ", " "

633" ", " ", "NV", "VV", " ", "UI", "PY", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

645" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

646" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

647" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

648" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

649" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

650" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

651" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

652" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

653

654source

655"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

656"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

657"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

658"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

659"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

660"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

661"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

662"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

663"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

664"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

665destin = EMPTY

666call setMatCopy(destin(2:4, 3:7), rdpack, source(2:6, 3:5), rdpack, uppLow, transHerm)

667destin

668" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

669" ", " ", " ", "XO", "XQ", "NQ", "LA", " ", " ", " "

670" ", " ", "NA", " ", "WZ", "LI", "DK", " ", " ", " "

671" ", " ", "NV", "VV", " ", "UI", "PY", " ", " ", " "

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" ", " ", "LK", " ", " ", " ", " ", " ", " ", " "

683" ", " ", " ", "LY", " ", " ", " ", " ", " ", " "

684" ", " ", " ", " ", "SU", " ", " ", " ", " ", " "

685" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

686" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

687" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

688" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

689" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

690" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

691

692source

693"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

694"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

695"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

696"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

697"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

698"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

699"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

700"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

701"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

702"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

703destin = EMPTY

704call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppDia)

705destin

706" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

707" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

708" ", " ", "OU", "XS", "PE", "JP", "IX", " ", " ", " "

709" ", " ", " ", "AU", "LK", "NA", "NV", " ", " ", " "

710" ", " ", " ", " ", "XO", "LY", "VV", " ", " ", " "

711" ", " ", " ", " ", " ", "WZ", "SU", " ", " ", " "

712" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

713" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

714" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

715" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

716destin = EMPTY

717call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, dia)

718destin

719" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

720" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

721" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

722" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

723" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

724" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

725" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

726" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

727" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

728" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

729

730source

731"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

732"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

733"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

734"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

735"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

736"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

737"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

738"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

739"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

740"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

741destin = EMPTY

742call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppDia, transSymm)

743destin

744" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

745" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

746" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

747" ", " ", "XS", "AU", " ", " ", " ", " ", " ", " "

748" ", " ", "PE", "LK", "XO", " ", " ", " ", " ", " "

749" ", " ", "JP", "NA", "LY", "WZ", " ", " ", " ", " "

750" ", " ", "IX", "NV", "VV", "SU", "UI", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

760" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

761" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

762" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

763" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

764" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

765" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

766" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

767

768source

769"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

770"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

771"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

772"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

773"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

774"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

775"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

776"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

777"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

778"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

779destin = EMPTY

780call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppDia, transHerm)

781destin

782" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

783" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

784" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

785" ", " ", "XS", "AU", " ", " ", " ", " ", " ", " "

786" ", " ", "PE", "LK", "XO", " ", " ", " ", " ", " "

787" ", " ", "JP", "NA", "LY", "WZ", " ", " ", " ", " "

788" ", " ", "IX", "NV", "VV", "SU", "UI", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

798" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

799" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

800" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

801" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

802" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

803" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

804" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

805

806source

807"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

808"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

809"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

810"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

811"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

812"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

813"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

814"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

815"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

816"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

817destin = EMPTY

818call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, lowDia)

819destin

820" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

821" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

822" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

823" ", " ", "LI", "AU", " ", " ", " ", " ", " ", " "

824" ", " ", "HD", "WX", "XO", " ", " ", " ", " ", " "

825" ", " ", "ZQ", "KC", "XQ", "WZ", " ", " ", " ", " "

826" ", " ", "GN", "ND", "NQ", "LI", "UI", " ", " ", " "

827" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

828" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

829" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

830destin = EMPTY

831call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, dia)

832destin

833" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

834" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

835" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

836" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

837" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

838" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

839" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

840" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

841" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

842" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

843

844source

845"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

846"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

847"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

848"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

849"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

850"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

851"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

852"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

853"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

854"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

855destin = EMPTY

856call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, lowDia, transSymm)

857destin

858" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

859" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

860" ", " ", "OU", "LI", "HD", "ZQ", "GN", " ", " ", " "

861" ", " ", " ", "AU", "WX", "KC", "ND", " ", " ", " "

862" ", " ", " ", " ", "XO", "XQ", "NQ", " ", " ", " "

863" ", " ", " ", " ", " ", "WZ", "LI", " ", " ", " "

864" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

874" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

875" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

876" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

877" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

878" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

879" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

880" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

881

882source

883"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

884"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

885"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

886"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

887"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

888"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

889"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

890"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

891"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

892"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

893destin = EMPTY

894call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, lowDia, transHerm)

895destin

896" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

897" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

898" ", " ", "OU", "LI", "HD", "ZQ", "GN", " ", " ", " "

899" ", " ", " ", "AU", "WX", "KC", "ND", " ", " ", " "

900" ", " ", " ", " ", "XO", "XQ", "NQ", " ", " ", " "

901" ", " ", " ", " ", " ", "WZ", "LI", " ", " ", " "

902" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

912" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

913" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

914" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

915" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

916" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

917" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

918" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

919

920source

921"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

922"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

923"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

924"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

925"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

926"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

927"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

928"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

929"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

930"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

931doff = 0

932destin = EMPTY

933call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppLow, doff)

934destin

935" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

936" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

937" ", " ", " ", "XS", "PE", "JP", "IX", " ", " ", " "

938" ", " ", "LI", " ", "LK", "NA", "NV", " ", " ", " "

939" ", " ", "HD", "WX", " ", "LY", "VV", " ", " ", " "

940" ", " ", "ZQ", "KC", "XQ", " ", "SU", " ", " ", " "

941" ", " ", "GN", "ND", "NQ", "LI", " ", " ", " ", " "

942" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

943" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

944" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

945destin = EMPTY

946call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, dia)

947destin

948" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

949" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

950" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

951" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

952" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

953" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

954" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

955" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

956" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

957" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

958

959source

960"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

961"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

962"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

963"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

964"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

965"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

966"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

967"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

968"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

969"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

970destin = EMPTY

971call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppLow, transSymm, doff)

972destin

973" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

974" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

975" ", " ", " ", "LI", "HD", "ZQ", "GN", " ", " ", " "

976" ", " ", "XS", " ", "WX", "KC", "ND", " ", " ", " "

977" ", " ", "PE", "LK", " ", "XQ", "NQ", " ", " ", " "

978" ", " ", "JP", "NA", "LY", " ", "LI", " ", " ", " "

979" ", " ", "IX", "NV", "VV", "SU", " ", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

989" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

990" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

991" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

992" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

993" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

994" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

995" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

996

997source

998"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

999"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1000"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1001"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1002"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1003"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1004"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1005"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1006"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1007"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

1008destin = EMPTY

1009call setMatCopy(destin(3:7, 3:7), rdpack, source(1:5, 1:5), rdpack, uppLow, transHerm, doff)

1010destin

1011" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1012" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1013" ", " ", " ", "LI", "HD", "ZQ", "GN", " ", " ", " "

1014" ", " ", "XS", " ", "WX", "KC", "ND", " ", " ", " "

1015" ", " ", "PE", "LK", " ", "XQ", "NQ", " ", " ", " "

1016" ", " ", "JP", "NA", "LY", " ", "LI", " ", " ", " "

1017" ", " ", "IX", "NV", "VV", "SU", " ", " ", " ", " "

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" ", " ", "OU", " ", " ", " ", " ", " ", " ", " "

1027" ", " ", " ", "AU", " ", " ", " ", " ", " ", " "

1028" ", " ", " ", " ", "XO", " ", " ", " ", " ", " "

1029" ", " ", " ", " ", " ", "WZ", " ", " ", " ", " "

1030" ", " ", " ", " ", " ", " ", "UI", " ", " ", " "

1031" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1032" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1033" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1034

1035source

1036"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1037"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1038"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1039"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1040"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1041"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1042"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1043"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1044"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1045"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

1046destin = EMPTY

1047doff = -3

1048call setMatCopy(destin(3:9, 3:7), rdpack, source(1:7, 1:5), rdpack, uppDia, doff)

1049destin

1050" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1051" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1052" ", " ", "OU", "XS", "PE", "JP", "IX", " ", " ", " "

1053" ", " ", "LI", "AU", "LK", "NA", "NV", " ", " ", " "

1054" ", " ", "HD", "WX", "XO", "LY", "VV", " ", " ", " "

1055" ", " ", "ZQ", "KC", "XQ", "WZ", "SU", " ", " ", " "

1056" ", " ", " ", "ND", "NQ", "LI", "UI", " ", " ", " "

1057" ", " ", " ", " ", "LA", "DK", "PY", " ", " ", " "

1058" ", " ", " ", " ", " ", "GF", "RB", " ", " ", " "

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" ", " ", "ZQ", " ", " ", " ", " ", " ", " ", " "

1069" ", " ", " ", "ND", " ", " ", " ", " ", " ", " "

1070" ", " ", " ", " ", "LA", " ", " ", " ", " ", " "

1071" ", " ", " ", " ", " ", "GF", " ", " ", " ", " "

1072" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1073

1074source

1075"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1076"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1077"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1078"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1079"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1080"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1081"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1082"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1083"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1084"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", " ", " ", " ", " "

1092" ", " ", "XS", "AU", "WX", "KC", "ND", " ", " ", " "

1093" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", " ", " "

1094" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1095" ", " ", "IX", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", " ", " ", " ", "ZQ", " ", " ", " ", " "

1105" ", " ", " ", " ", " ", " ", "ND", " ", " ", " "

1106" ", " ", " ", " ", " ", " ", " ", "LA", " ", " "

1107" ", " ", " ", " ", " ", " ", " ", " ", "GF", " "

1108" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1109" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1110" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1111" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1112

1113source

1114"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1115"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1116"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1117"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1118"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1119"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1120"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1121"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1122"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1123"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", " ", " ", " ", " "

1131" ", " ", "XS", "AU", "WX", "KC", "ND", " ", " ", " "

1132" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", " ", " "

1133" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1134" ", " ", "IX", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", " ", " ", " ", "ZQ", " ", " ", " ", " "

1144" ", " ", " ", " ", " ", " ", "ND", " ", " ", " "

1145" ", " ", " ", " ", " ", " ", " ", "LA", " ", " "

1146" ", " ", " ", " ", " ", " ", " ", " ", "GF", " "

1147" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1148" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1149" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1150" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1151

1152source

1153"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1154"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1155"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1156"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1157"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1158"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1159"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1160"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1161"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1162"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

1163doff = +3

1164destin = EMPTY

1165call setMatCopy(destin(3:9, 3:7), rdpack, source(1:7, 1:5), rdpack, lowDia, doff)

1166destin

1167" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1168" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1169" ", " ", "OU", "XS", "PE", "JP", " ", " ", " ", " "

1170" ", " ", "LI", "AU", "LK", "NA", "NV", " ", " ", " "

1171" ", " ", "HD", "WX", "XO", "LY", "VV", " ", " ", " "

1172" ", " ", "ZQ", "KC", "XQ", "WZ", "SU", " ", " ", " "

1173" ", " ", "GN", "ND", "NQ", "LI", "UI", " ", " ", " "

1174" ", " ", "WS", "DA", "LA", "DK", "PY", " ", " ", " "

1175" ", " ", "LD", "SI", "OJ", "GF", "RB", " ", " ", " "

1176" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1177destin = EMPTY

1178call setMatCopy(destin(3:9, 3:7), rdpack, source(1:7, 1:5), rdpack, dia, doff)

1179destin

1180" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1181" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1182" ", " ", " ", " ", " ", "JP", " ", " ", " ", " "

1183" ", " ", " ", " ", " ", " ", "NV", " ", " ", " "

1184" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1185" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1186" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1187" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1188" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1189" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1190

1191source

1192"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1193"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1194"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1195"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1196"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1197"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1198"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1199"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1200"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1201"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", "GN", "WS", "LD", " "

1209" ", " ", "XS", "AU", "WX", "KC", "ND", "DA", "SI", " "

1210" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", "OJ", " "

1211" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1212" ", " ", " ", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", "JP", " ", " ", " ", " ", " ", " ", " "

1225" ", " ", " ", "NV", " ", " ", " ", " ", " ", " "

1226" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1227" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1228" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1229

1230source

1231"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1232"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1233"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1234"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1235"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1236"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1237"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1238"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1239"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1240"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", "GN", "WS", "LD", " "

1248" ", " ", "XS", "AU", "WX", "KC", "ND", "DA", "SI", " "

1249" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", "OJ", " "

1250" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1251" ", " ", " ", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", "JP", " ", " ", " ", " ", " ", " ", " "

1264" ", " ", " ", "NV", " ", " ", " ", " ", " ", " "

1265" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1266" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1267" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1268

1269source

1270"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1271"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1272"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1273"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1274"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1275"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1276"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1277"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1278"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1279"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

1280doff = -4

1281destin = EMPTY

1282call setMatCopy(destin(3:9, 3:7), rdpack, source(1:7, 1:5), rdpack, uppLow, doff)

1283destin

1284" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1285" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1286" ", " ", "OU", "XS", "PE", "JP", "IX", " ", " ", " "

1287" ", " ", "LI", "AU", "LK", "NA", "NV", " ", " ", " "

1288" ", " ", "HD", "WX", "XO", "LY", "VV", " ", " ", " "

1289" ", " ", "ZQ", "KC", "XQ", "WZ", "SU", " ", " ", " "

1290" ", " ", " ", "ND", "NQ", "LI", "UI", " ", " ", " "

1291" ", " ", "WS", " ", "LA", "DK", "PY", " ", " ", " "

1292" ", " ", "LD", "SI", " ", "GF", "RB", " ", " ", " "

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" ", " ", "GN", " ", " ", " ", " ", " ", " ", " "

1304" ", " ", " ", "DA", " ", " ", " ", " ", " ", " "

1305" ", " ", " ", " ", "OJ", " ", " ", " ", " ", " "

1306" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1307

1308source

1309"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1310"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1311"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1312"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1313"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1314"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1315"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1316"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1317"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1318"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", " ", "WS", "LD", " "

1326" ", " ", "XS", "AU", "WX", "KC", "ND", " ", "SI", " "

1327" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", " ", " "

1328" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1329" ", " ", "IX", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", " ", " ", " ", " ", "GN", " ", " ", " "

1339" ", " ", " ", " ", " ", " ", " ", "DA", " ", " "

1340" ", " ", " ", " ", " ", " ", " ", " ", "OJ", " "

1341" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1342" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1343" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1344" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1345" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1346

1347source

1348"OU", "XS", "PE", "JP", "IX", "FN", "YB", "ZJ", "ZL", "SN"

1349"LI", "AU", "LK", "NA", "NV", "EI", "VE", "LH", "CN", "PX"

1350"HD", "WX", "XO", "LY", "VV", "SJ", "LI", "UF", "HN", "DL"

1351"ZQ", "KC", "XQ", "WZ", "SU", "RN", "GL", "VQ", "RD", "SU"

1352"GN", "ND", "NQ", "LI", "UI", "NJ", "MI", "ER", "RG", "VG"

1353"WS", "DA", "LA", "DK", "PY", "RV", "FM", "CN", "PW", "PP"

1354"LD", "SI", "OJ", "GF", "RB", "LQ", "RA", "VT", "KZ", "ZA"

1355"TJ", "VW", "CV", "NS", "IQ", "JM", "QE", "NO", "OH", "GN"

1356"JD", "QL", "MG", "WU", "GE", "YM", "UC", "VA", "QT", "AD"

1357"UM", "NN", "LD", "NO", "DB", "SW", "QP", "DL", "WL", "IY"

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" ", " ", "OU", "LI", "HD", "ZQ", "GN", "WS", "LD", " "

1365" ", " ", "XS", "AU", "WX", "KC", "ND", "DA", "SI", " "

1366" ", " ", "PE", "LK", "XO", "XQ", "NQ", "LA", "OJ", " "

1367" ", " ", "JP", "NA", "LY", "WZ", "LI", "DK", "GF", " "

1368" ", " ", " ", "NV", "VV", "SU", "UI", "PY", "RB", " "

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" ", " ", "IX", " ", " ", " ", " ", " ", " ", " "

1382" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1383" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1384" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1385

1386

1387call setUnifRand(source, SKG_'AA', SKG_'ZZ')

1388source

1389"FE", "GJ", "IE", "LV", "HC", "WY", "PI", "SZ", "JB", "JR"

1390"JA", "ZP", "XG", "CJ", "ND", "OY", "NN", "PT", "VT", "IQ"

1391"ZQ", "LU", "JD", "VU", "GD", "KR", "LW", "YD", "OQ", "IC"

1392"YP", "EF", "US", "FY", "VD", "LT", "PV", "CO", "DA", "NO"

1393"IR", "GP", "LT", "DQ", "QF", "DS", "JV", "TX", "EH", "DU"

1394"KI", "HJ", "UH", "EA", "LV", "RI", "MC", "UT", "PF", "OR"

1395"BT", "PM", "IJ", "IJ", "AI", "AK", "QG", "XN", "MB", "MY"

1396"ZK", "EO", "CP", "TV", "GW", "KE", "FL", "WM", "LL", "GA"

1397"ZN", "CE", "NP", "MU", "GA", "AA", "BN", "PI", "JN", "WF"

1398"RQ", "BQ", "VK", "UC", "ZA", "AS", "JQ", "XP", "KC", "BS"

1399doff = -3

1400destin = EMPTY

1401call setMatCopy(destin(3:7, 3:9), rdpack, source(1:5, 1:7), rdpack, uppDia, doff)

1402destin

1403" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1404" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1405" ", " ", "FE", "GJ", "IE", "LV", "HC", "WY", "PI", " "

1406" ", " ", "JA", "ZP", "XG", "CJ", "ND", "OY", "NN", " "

1407" ", " ", "ZQ", "LU", "JD", "VU", "GD", "KR", "LW", " "

1408" ", " ", "YP", "EF", "US", "FY", "VD", "LT", "PV", " "

1409" ", " ", " ", "GP", "LT", "DQ", "QF", "DS", "JV", " "

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" ", " ", "YP", " ", " ", " ", " ", " ", " ", " "

1422" ", " ", " ", "GP", " ", " ", " ", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", "YP", " ", " ", " ", " "

1434" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1435" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1436" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1437" ", " ", "HC", "ND", "GD", "VD", "QF", " ", " ", " "

1438" ", " ", "WY", "OY", "KR", "LT", "DS", " ", " ", " "

1439" ", " ", "PI", "NN", "LW", "PV", "JV", " ", " ", " "

1440" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1441destin = EMPTY

1442call setMatCopy(destin(3:9, 3:7), rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)

1443destin

1444" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1445" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1446" ", " ", " ", " ", " ", "YP", " ", " ", " ", " "

1447" ", " ", " ", " ", " ", " ", "GP", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", "YP", " ", " ", " ", " "

1462" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1463" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1464" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1465" ", " ", "HC", "ND", "GD", "VD", "QF", " ", " ", " "

1466" ", " ", "WY", "OY", "KR", "LT", "DS", " ", " ", " "

1467" ", " ", "PI", "NN", "LW", "PV", "JV", " ", " ", " "

1468" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1469destin = EMPTY

1470call setMatCopy(destin(3:9, 3:7), rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)

1471destin

1472" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1473" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1474" ", " ", " ", " ", " ", "YP", " ", " ", " ", " "

1475" ", " ", " ", " ", " ", " ", "GP", " ", " ", " "

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" ", " ", "FE", "GJ", "IE", "LV", " ", " ", " ", " "

1490" ", " ", "JA", "ZP", "XG", "CJ", "ND", " ", " ", " "

1491" ", " ", "ZQ", "LU", "JD", "VU", "GD", "KR", " ", " "

1492" ", " ", "YP", "EF", "US", "FY", "VD", "LT", "PV", " "

1493" ", " ", "IR", "GP", "LT", "DQ", "QF", "DS", "JV", " "

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" ", " ", " ", " ", " ", "LV", " ", " ", " ", " "

1503" ", " ", " ", " ", " ", " ", "ND", " ", " ", " "

1504" ", " ", " ", " ", " ", " ", " ", "KR", " ", " "

1505" ", " ", " ", " ", " ", " ", " ", " ", "PV", " "

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" ", " ", "FE", "JA", "ZQ", "YP", "IR", " ", " ", " "

1518" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1519" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1520" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1521" ", " ", " ", "ND", "GD", "VD", "QF", " ", " ", " "

1522" ", " ", " ", " ", "KR", "LT", "DS", " ", " ", " "

1523" ", " ", " ", " ", " ", "PV", "JV", " ", " ", " "

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" ", " ", "LV", " ", " ", " ", " ", " ", " ", " "

1534" ", " ", " ", "ND", " ", " ", " ", " ", " ", " "

1535" ", " ", " ", " ", "KR", " ", " ", " ", " ", " "

1536" ", " ", " ", " ", " ", "PV", " ", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", "YP", "IR", " ", " ", " "

1546" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1547" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1548" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1549" ", " ", " ", "ND", "GD", "VD", "QF", " ", " ", " "

1550" ", " ", " ", " ", "KR", "LT", "DS", " ", " ", " "

1551" ", " ", " ", " ", " ", "PV", "JV", " ", " ", " "

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" ", " ", "LV", " ", " ", " ", " ", " ", " ", " "

1562" ", " ", " ", "ND", " ", " ", " ", " ", " ", " "

1563" ", " ", " ", " ", "KR", " ", " ", " ", " ", " "

1564" ", " ", " ", " ", " ", "PV", " ", " ", " ", " "

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" ", " ", "FE", "GJ", "IE", "LV", "HC", "WY", "PI", " "

1574" ", " ", "JA", "ZP", "XG", "CJ", "ND", "OY", "NN", " "

1575" ", " ", "ZQ", "LU", "JD", "VU", "GD", "KR", "LW", " "

1576" ", " ", " ", "EF", "US", "FY", "VD", "LT", "PV", " "

1577" ", " ", "IR", " ", "LT", "DQ", "QF", "DS", "JV", " "

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" ", " ", "YP", " ", " ", " ", " ", " ", " ", " "

1590" ", " ", " ", "GP", " ", " ", " ", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", " ", "IR", " ", " ", " "

1602" ", " ", "GJ", "ZP", "LU", "EF", " ", " ", " ", " "

1603" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1604" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1605" ", " ", "HC", "ND", "GD", "VD", "QF", " ", " ", " "

1606" ", " ", "WY", "OY", "KR", "LT", "DS", " ", " ", " "

1607" ", " ", "PI", "NN", "LW", "PV", "JV", " ", " ", " "

1608" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1609destin = EMPTY

1610call setMatCopy(destin(3:9, 3:7), rdpack, source(1:5, 1:7), rdpack, dia, transSymm, doff)

1611destin

1612" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1613" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1614" ", " ", " ", " ", " ", "YP", " ", " ", " ", " "

1615" ", " ", " ", " ", " ", " ", "GP", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", " ", "IR", " ", " ", " "

1630" ", " ", "GJ", "ZP", "LU", "EF", " ", " ", " ", " "

1631" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1632" ", " ", "LV", "CJ", "VU", "FY", "DQ", " ", " ", " "

1633" ", " ", "HC", "ND", "GD", "VD", "QF", " ", " ", " "

1634" ", " ", "WY", "OY", "KR", "LT", "DS", " ", " ", " "

1635" ", " ", "PI", "NN", "LW", "PV", "JV", " ", " ", " "

1636" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1637destin = EMPTY

1638call setMatCopy(destin(3:9, 3:7), rdpack, source(1:5, 1:7), rdpack, dia, transHerm, doff)

1639destin

1640" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1641" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1642" ", " ", " ", " ", " ", "YP", " ", " ", " ", " "

1643" ", " ", " ", " ", " ", " ", "GP", " ", " ", " "

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" ", " ", "FE", "GJ", "IE", " ", "HC", "WY", "PI", " "

1658" ", " ", "JA", "ZP", "XG", "CJ", " ", "OY", "NN", " "

1659" ", " ", "ZQ", "LU", "JD", "VU", "GD", " ", "LW", " "

1660" ", " ", "YP", "EF", "US", "FY", "VD", "LT", " ", " "

1661" ", " ", "IR", "GP", "LT", "DQ", "QF", "DS", "JV", " "

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" ", " ", " ", " ", " ", "LV", " ", " ", " ", " "

1671" ", " ", " ", " ", " ", " ", "ND", " ", " ", " "

1672" ", " ", " ", " ", " ", " ", " ", "KR", " ", " "

1673" ", " ", " ", " ", " ", " ", " ", " ", "PV", " "

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" ", " ", "FE", "JA", "ZQ", "YP", "IR", " ", " ", " "

1686" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1687" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1688" ", " ", " ", "CJ", "VU", "FY", "DQ", " ", " ", " "

1689" ", " ", "HC", " ", "GD", "VD", "QF", " ", " ", " "

1690" ", " ", "WY", "OY", " ", "LT", "DS", " ", " ", " "

1691" ", " ", "PI", "NN", "LW", " ", "JV", " ", " ", " "

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" ", " ", "LV", " ", " ", " ", " ", " ", " ", " "

1702" ", " ", " ", "ND", " ", " ", " ", " ", " ", " "

1703" ", " ", " ", " ", "KR", " ", " ", " ", " ", " "

1704" ", " ", " ", " ", " ", "PV", " ", " ", " ", " "

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" ", " ", "FE", "JA", "ZQ", "YP", "IR", " ", " ", " "

1714" ", " ", "GJ", "ZP", "LU", "EF", "GP", " ", " ", " "

1715" ", " ", "IE", "XG", "JD", "US", "LT", " ", " ", " "

1716" ", " ", " ", "CJ", "VU", "FY", "DQ", " ", " ", " "

1717" ", " ", "HC", " ", "GD", "VD", "QF", " ", " ", " "

1718" ", " ", "WY", "OY", " ", "LT", "DS", " ", " ", " "

1719" ", " ", "PI", "NN", "LW", " ", "JV", " ", " ", " "

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" ", " ", "LV", " ", " ", " ", " ", " ", " ", " "

1730" ", " ", " ", "ND", " ", " ", " ", " ", " ", " "

1731" ", " ", " ", " ", "KR", " ", " ", " ", " ", " "

1732" ", " ", " ", " ", " ", "PV", " ", " ", " ", " "

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, +1.0), ( +8.0, +4.0), ( +5.0, +2.0), ( +9.0, +1.0), ( +1.0, +1.0)

1739( +8.0, +1.0), ( +1.0, +7.0), ( +6.0, +8.0), ( +1.0, +3.0), ( +1.0, +1.0)

1740( +5.0, +6.0), ( +6.0, +4.0), ( +6.0, +9.0), ( +2.0, +9.0), ( +6.0, +3.0)

1741( +7.0, +2.0), ( +2.0, +4.0), ( +1.0, +3.0), ( +3.0, +3.0), ( +6.0, +4.0)

1742( +4.0, +8.0), ( +2.0, +7.0), ( +9.0, +8.0), ( +2.0, +2.0), ( +3.0, +5.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, +1.0), ( +8.0, +4.0), ( +5.0, +2.0), ( +0.0, +0.0)

1749( +0.0, +0.0), ( +8.0, +1.0), ( +1.0, +7.0), ( +6.0, +8.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), ( +8.0, +1.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, +1.0), ( +8.0, +1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1767( +0.0, +0.0), ( +8.0, +4.0), ( +1.0, +7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1768( +0.0, +0.0), ( +5.0, +2.0), ( +6.0, +8.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), ( +8.0, +1.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, -1.0), ( +8.0, -1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1785( +0.0, +0.0), ( +8.0, -4.0), ( +1.0, -7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1786( +0.0, +0.0), ( +5.0, -2.0), ( +6.0, -8.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), ( +8.0, -1.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, +1.0), ( +8.0, +4.0), ( +0.0, +0.0), ( +0.0, +0.0)

1803( +0.0, +0.0), ( +8.0, +1.0), ( +1.0, +7.0), ( +6.0, +8.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, +1.0), ( +8.0, +1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1813( +0.0, +0.0), ( +8.0, +4.0), ( +1.0, +7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1814( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, +8.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), ( +8.0, +4.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1822( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, +8.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, -1.0), ( +8.0, -1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1831( +0.0, +0.0), ( +8.0, -4.0), ( +1.0, -7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1832( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, -8.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), ( +8.0, -4.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1840( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, -8.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, +1.0), ( +8.0, +4.0), ( +5.0, +2.0), ( +0.0, +0.0)

1849( +0.0, +0.0), ( +0.0, +0.0), ( +1.0, +7.0), ( +6.0, +8.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, +1.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1859( +0.0, +0.0), ( +8.0, +4.0), ( +1.0, +7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1860( +0.0, +0.0), ( +5.0, +2.0), ( +6.0, +8.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), ( +8.0, +1.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, -1.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1877( +0.0, +0.0), ( +8.0, -4.0), ( +1.0, -7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1878( +0.0, +0.0), ( +5.0, -2.0), ( +6.0, -8.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), ( +8.0, -1.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, +1.0), ( +0.0, +0.0), ( +5.0, +2.0), ( +0.0, +0.0)

1895( +0.0, +0.0), ( +8.0, +1.0), ( +1.0, +7.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), ( +8.0, +4.0), ( +0.0, +0.0), ( +0.0, +0.0)

1903( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, +8.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, +1.0), ( +8.0, +1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1913( +0.0, +0.0), ( +0.0, +0.0), ( +1.0, +7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1914( +0.0, +0.0), ( +5.0, +2.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), ( +8.0, +4.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1922( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, +8.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, -1.0), ( +8.0, -1.0), ( +0.0, +0.0), ( +0.0, +0.0)

1931( +0.0, +0.0), ( +0.0, +0.0), ( +1.0, -7.0), ( +0.0, +0.0), ( +0.0, +0.0)

1932( +0.0, +0.0), ( +5.0, -2.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), ( +8.0, -4.0), ( +0.0, +0.0), ( +0.0, +0.0), ( +0.0, +0.0)

1940( +0.0, +0.0), ( +0.0, +0.0), ( +6.0, -8.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"EC", "KR", "CV", "FA", "CD", "NK", "WU", "CO", "WT", "GZ", "QT", "LR", "SL", "DA", "LX", "AA", "PY", "TM", "RT", "MZ", "SK", "MI", "KA", "KP", "SF", "WV", "LE", "SP", "EP", "SL", "QM", "KK", "FC", "CD", "KX", "JQ", "OH", "PC", "OB", "UO", "BM", "SA", "NS", "QS", "RQ", "RV", "YP", "NB", "IK", "HQ", "QR", "GU", "FX", "IB", "JM"

1952destin = EMPTY

1953call setMatCopy(destin(3:9,3:7), rdpack, source(2:6), lfpack, dia)

1954destin

1955" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1956" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1957" ", " ", "KR", " ", " ", " ", " ", " ", " ", " "

1958" ", " ", " ", "CV", " ", " ", " ", " ", " ", " "

1959" ", " ", " ", " ", "FA", " ", " ", " ", " ", " "

1960" ", " ", " ", " ", " ", "CD", " ", " ", " ", " "

1961" ", " ", " ", " ", " ", " ", "NK", " ", " ", " "

1962" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1963" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1964" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1965desnew = EMPTY

1966call setMatCopy(desnew(2:6), lfpack, destin(3:9,3:7), rdpack, dia)

1967desnew

1968" ", "KR", "CV", "FA", "CD", "NK", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

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" ", " ", "KR", " ", " ", " ", " ", " ", " ", " "

1980" ", " ", " ", "CV", " ", " ", " ", " ", " ", " "

1981" ", " ", " ", " ", "FA", " ", " ", " ", " ", " "

1982" ", " ", " ", " ", " ", "CD", " ", " ", " ", " "

1983" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1984desnew = EMPTY

1985call setMatCopy(desnew(2:5), lfpack, destin(3:9,3:7), rdpack, dia, doff)

1986desnew

1987" ", "KR", "CV", "FA", "CD", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1988

1989

1990call setUnifRand(source, SKG_'AA', SKG_'ZZ')

1991source

1992"ZH", "BM", "HX", "GI", "ZV", "WX", "OZ", "HA", "MD", "ZO", "FY", "HW", "LM", "EA", "QL", "VJ", "WI", "ID", "UH", "XV", "IW", "XP", "UK", "GL", "SM", "OJ", "CY", "YB", "OB", "AO", "EW", "RK", "AV", "LR", "DD", "OA", "ES", "US", "TS", "ZB", "LK", "IP", "PM", "ED", "LW", "CI", "GT", "SQ", "PL", "RR", "CE", "WC", "SI", "FV", "BQ"

1993destin = EMPTY

1994doff = +3;

1995call setMatCopy(destin(3:7, 3:9), rdpack, source(2:5), lfpack, dia, doff)

1996destin

1997" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1998" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

1999" ", " ", " ", " ", " ", "BM", " ", " ", " ", " "

2000" ", " ", " ", " ", " ", " ", "HX", " ", " ", " "

2001" ", " ", " ", " ", " ", " ", " ", "GI", " ", " "

2002" ", " ", " ", " ", " ", " ", " ", " ", "ZV", " "

2003" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2004" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2005" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2006" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2007desnew = EMPTY

2008call setMatCopy(desnew(2:5), lfpack, destin(3:7, 3:9), rdpack, dia, doff)

2009desnew

2010" ", "BM", "HX", "GI", "ZV", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

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" ", " ", " ", " ", " ", " ", "HX", " ", " ", " "

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", "HX", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

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"TS", "DV", "JO", "ZS", "IC", "VJ", "ZO", "YD", "KE", "GQ", "HS", "VI", "EB", "IQ", "OQ", "LM", "NZ", "JF", "GA", "JT", "RR", "EV", "QS", "CO", "KI", "LS", "LV", "MW", "LZ", "VH", "LE", "AI", "ER", "CO", "RV", "KS", "AW", "HP", "LA", "ZL", "KA", "KG", "ML", "KP", "DC", "FQ", "IP", "IT", "MQ", "IZ", "BD", "SQ", "PI", "AR", "BQ"

2040destin = EMPTY

2041doff = -3

2042call setMatCopy(destin(3:9,3:7), rdpack, source, lfpack, uppDia, doff)

2043destin

2044" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2045" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2046" ", " ", "TS", "IC", "GQ", "LM", "QS", " ", " ", " "

2047" ", " ", "DV", "VJ", "HS", "NZ", "CO", " ", " ", " "

2048" ", " ", "JO", "ZO", "VI", "JF", "KI", " ", " ", " "

2049" ", " ", "ZS", "YD", "EB", "GA", "LS", " ", " ", " "

2050" ", " ", " ", "KE", "IQ", "JT", "LV", " ", " ", " "

2051" ", " ", " ", " ", "OQ", "RR", "MW", " ", " ", " "

2052" ", " ", " ", " ", " ", "EV", "LZ", " ", " ", " "

2053" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2054desnew = EMPTY

2055call setMatCopy(desnew, lfpack, destin(3:9,3:7), rdpack, uppDia, doff)

2056desnew

2057"TS", "DV", "JO", "ZS", "IC", "VJ", "ZO", "YD", "KE", "GQ", "HS", "VI", "EB", "IQ", "OQ", "LM", "NZ", "JF", "GA", "JT", "RR", "EV", "QS", "CO", "KI", "LS", "LV", "MW", "LZ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2058

2059

2060call setUnifRand(source, SKG_'AA', SKG_'ZZ')

2061source

2062"PI", "CS", "UD", "NS", "GP", "NU", "TT", "DQ", "RY", "LS", "DE", "MA", "GR", "GM", "UX", "ER", "SW", "JV", "PP", "UU", "TQ", "ON", "BH", "XD", "EN", "QL", "KX", "KO", "PS", "MG", "DO", "HB", "TO", "LK", "LI", "QW", "AP", "ZK", "DK", "CO", "LU", "JL", "DQ", "TG", "UR", "KM", "YX", "YW", "AN", "WX", "HX", "IN", "FG", "LB", "JY"

2063destin = EMPTY

2064doff = -3

2065call setMatCopy(destin(3:9,3:7), rdpack, source, lfpack, uppDia, transSymm, doff)

2066destin

2067" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2068" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2069" ", " ", "PI", "CS", "UD", "NS", " ", " ", " ", " "

2070" ", " ", "GP", "NU", "TT", "DQ", "RY", " ", " ", " "

2071" ", " ", "LS", "DE", "MA", "GR", "GM", " ", " ", " "

2072" ", " ", "UX", "ER", "SW", "JV", "PP", " ", " ", " "

2073" ", " ", "UU", "TQ", "ON", "BH", "XD", " ", " ", " "

2074" ", " ", "EN", "QL", "KX", "KO", "PS", " ", " ", " "

2075" ", " ", "MG", "DO", "HB", "TO", "LK", " ", " ", " "

2076" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2077desnew = EMPTY

2078call setMatCopy(desnew, lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, -doff)

2079desnew

2080"PI", "CS", "UD", "NS", "GP", "NU", "TT", "DQ", "RY", "LS", "DE", "MA", "GR", "GM", "UX", "ER", "SW", "JV", "PP", "UU", "TQ", "ON", "BH", "XD", "EN", "QL", "KX", "KO", "PS", "MG", "DO", "HB", "TO", "LK", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2081

2082

2083call setUnifRand(source, SKG_'AA', SKG_'ZZ')

2084source

2085"OH", "JT", "SR", "EC", "GQ", "VA", "HN", "FE", "OQ", "TS", "NC", "WA", "IS", "ES", "UR", "ZR", "EQ", "RK", "TE", "TV", "PW", "MT", "AB", "AX", "JQ", "PF", "RF", "DQ", "SK", "MP", "KG", "NZ", "BR", "NC", "RP", "MW", "CG", "LV", "TI", "YF", "KH", "JG", "LM", "RD", "TF", "EQ", "OO", "WG", "EV", "CE", "ZN", "OM", "RV", "VE", "JE"

2086destin = EMPTY

2087doff = +3;

2088call setMatCopy(destin(3:7, 3:9), rdpack, source, lfpack, lowDia, doff)

2089destin

2090" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2091" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2092" ", " ", "OH", "VA", "NC", "ZR", " ", " ", " ", " "

2093" ", " ", "JT", "HN", "WA", "EQ", "PW", " ", " ", " "

2094" ", " ", "SR", "FE", "IS", "RK", "MT", "JQ", " ", " "

2095" ", " ", "EC", "OQ", "ES", "TE", "AB", "PF", "DQ", " "

2096" ", " ", "GQ", "TS", "UR", "TV", "AX", "RF", "SK", " "

2097" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2098" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2099" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2100destin = EMPTY

2101call setMatCopy(destin(3:9, 3:7), rdpack, source, lfpack, lowDia, transSymm, doff)

2102destin

2103" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2104" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2105" ", " ", "OH", "JT", "SR", "EC", " ", " ", " ", " "

2106" ", " ", "GQ", "VA", "HN", "FE", "OQ", " ", " ", " "

2107" ", " ", "TS", "NC", "WA", "IS", "ES", " ", " ", " "

2108" ", " ", "UR", "ZR", "EQ", "RK", "TE", " ", " ", " "

2109" ", " ", "TV", "PW", "MT", "AB", "AX", " ", " ", " "

2110" ", " ", "JQ", "PF", "RF", "DQ", "SK", " ", " ", " "

2111" ", " ", "MP", "KG", "NZ", "BR", "NC", " ", " ", " "

2112" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2113desnew = EMPTY

2114call setMatCopy(desnew, lfpack, destin(3:9,3:7), rdpack, lowDia, transSymm, doff)

2115desnew

2116"OH", "JT", "SR", "EC", "GQ", "VA", "HN", "FE", "OQ", "TS", "NC", "WA", "IS", "ES", "UR", "ZR", "EQ", "RK", "TE", "TV", "PW", "MT", "AB", "AX", "JQ", "PF", "RF", "DQ", "SK", "MP", "KG", "NZ", "BR", "NC", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2117

2118destin = EMPTY

2119doff = +3;

2120call setMatCopy(destin(3:9, 3:7), rdpack, source, lfpack, lowDia, transHerm, doff)

2121destin

2122" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2123" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2124" ", " ", "OH", "JT", "SR", "EC", " ", " ", " ", " "

2125" ", " ", "GQ", "VA", "HN", "FE", "OQ", " ", " ", " "

2126" ", " ", "TS", "NC", "WA", "IS", "ES", " ", " ", " "

2127" ", " ", "UR", "ZR", "EQ", "RK", "TE", " ", " ", " "

2128" ", " ", "TV", "PW", "MT", "AB", "AX", " ", " ", " "

2129" ", " ", "JQ", "PF", "RF", "DQ", "SK", " ", " ", " "

2130" ", " ", "MP", "KG", "NZ", "BR", "NC", " ", " ", " "

2131" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2132desnew = EMPTY

2133call setMatCopy(desnew, lfpack, destin(3:9,3:7), rdpack, lowDia, transHerm, doff)

2134desnew

2135"OH", "JT", "SR", "EC", "GQ", "VA", "HN", "FE", "OQ", "TS", "NC", "WA", "IS", "ES", "UR", "ZR", "EQ", "RK", "TE", "TV", "PW", "MT", "AB", "AX", "JQ", "PF", "RF", "DQ", "SK", "MP", "KG", "NZ", "BR", "NC", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " ", " "

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"VH", "OY", "HW", "LE", "WE", "MH", "MJ", "RR", "RM", "UL"

2146"HB", "FO", "SH", "VY", "RS", "OH", "XT", "BC", "CS", "SU"

2147"VQ", "BB", "QP", "HA", "VP", "KW", "CK", "IS", "XD", "ZW"

2148"RN", "WM", "WS", "EM", "OX", "US", "HL", "UI", "HB", "MX"

2149"WF", "OM", "OE", "MM", "QC", "LI", "NN", "YQ", "AJ", "RU"

2150"CZ", "VD", "FA", "AW", "KW", "QL", "AE", "HJ", "JU", "UR"

2151"EM", "FZ", "YK", "QC", "HM", "BW", "ZN", "LV", "CZ", "VB"

2152"WB", "JX", "SF", "AC", "KV", "CL", "AS", "WV", "AC", "QN"

2153"NX", "HA", "XL", "OX", "VC", "XV", "ZE", "CZ", "LK", "KO"

2154"WV", "MP", "BO", "KC", "QO", "FU", "YK", "VT", "YW", "SO"

2155destin = EMPTY

2156call setMatCopy(destin(4:8, 3:5), rfpack, source(2:6, 3:7), rdpack, uppDia)

2157destin

2158" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2159" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2160" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2161" ", " ", "RS", "OH", "XT", " ", " ", " ", " ", " "

2162" ", " ", "VP", "KW", "CK", " ", " ", " ", " ", " "

2163" ", " ", "OX", "US", "HL", " ", " ", " ", " ", " "

2164" ", " ", "SH", "LI", "NN", " ", " ", " ", " ", " "

2165" ", " ", "VY", "HA", "AE", " ", " ", " ", " ", " "

2166" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2167" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2168desnew = EMPTY

2169call setMatCopy(desnew(3:5, 4:8), rfpack, source(2:6, 3:7), rdpack, uppDia) ! transpose

2170desnew

2171" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2172" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2173" ", " ", " ", "RS", "VP", "OX", "SH", "VY", " ", " "

2174" ", " ", " ", "OH", "KW", "US", "LI", "HA", " ", " "

2175" ", " ", " ", "XT", "CK", "HL", "NN", "AE", " ", " "

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" ", " ", "SH", "VY", "RS", "OH", "XT", " ", " ", " "

2186" ", " ", " ", "HA", "VP", "KW", "CK", " ", " ", " "

2187" ", " ", " ", " ", "OX", "US", "HL", " ", " ", " "

2188" ", " ", " ", " ", " ", "LI", "NN", " ", " ", " "

2189" ", " ", " ", " ", " ", " ", "AE", " ", " ", " "

2190" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2191" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2192" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2193" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2194

2195

2196call setUnifRand(source, SKG_'AA', SKG_'ZZ')

2197source

2198"MT", "SG", "KP", "FP", "RR", "GA", "TX", "BD", "DQ", "CJ"

2199"CZ", "TR", "EA", "UR", "DB", "QL", "EK", "CJ", "NX", "NQ"

2200"HH", "BL", "YX", "OB", "HN", "DL", "UM", "CQ", "YE", "BE"

2201"YP", "FE", "AB", "VK", "GZ", "BP", "QU", "NF", "XM", "MS"

2202"IR", "BC", "QG", "UI", "ZG", "NK", "OX", "FR", "DU", "SI"

2203"IG", "GT", "IZ", "FH", "WD", "OM", "GT", "AK", "DB", "OD"

2204"PJ", "PF", "TL", "WE", "ZD", "HC", "TE", "TH", "QB", "TG"

2205"VS", "OJ", "QK", "TH", "UL", "JX", "DL", "DF", "GW", "JW"

2206"DH", "WD", "SP", "HS", "LS", "ES", "XJ", "LW", "ZZ", "MX"

2207"FQ", "NH", "PC", "WD", "VN", "FY", "XE", "IC", "JH", "BK"

2208destin = EMPTY

2209call setMatCopy(destin(4:8, 3:5), rfpack, source(2:6, 3:7), rdpack, lowDia)

2210destin

2211" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2212" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2213" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2214" ", " ", "EA", "NK", "OM", " ", " ", " ", " ", " "

2215" ", " ", "YX", "OB", "GT", " ", " ", " ", " ", " "

2216" ", " ", "AB", "VK", "GZ", " ", " ", " ", " ", " "

2217" ", " ", "QG", "UI", "ZG", " ", " ", " ", " ", " "

2218" ", " ", "IZ", "FH", "WD", " ", " ", " ", " ", " "

2219" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2220" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2221desnew = EMPTY

2222call setMatCopy(desnew(2:6, 3:7), rdpack, destin(4:8, 3:5), rfpack, lowDia)

2223desnew

2224" ", " ", " ", " ", " ", " ", " ", " ", " ", " "

2225" ", " ", "EA", " ", " ", " ", " ", " ", " ", " "

2226" ", " ", "YX", "OB", " ", " ", " ", " ", " ", " "

2227" ", " ", "AB", "VK", "GZ", " ", " ", " ", " ", " "

2228" ", " ", "QG", "UI", "ZG", "NK", " ", " ", " ", " "

2229" ", " ", "IZ", "FH", "WD", "OM", "GT", " ", " ", " "

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.

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.
If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library (i.e., other than C, C++, Fortran, MATLAB, Python, R), please also ask the end users to cite this original ParaMonte library.

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

Copyright: Computational Data Science Lab

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

Definition at line 17748 of file pm_matrixCopy.F90.

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

src/fortran/main/pm_matrixCopy.F90