(git:b195825)
hfx_compression_core_methods.F
Go to the documentation of this file.
1 !--------------------------------------------------------------------------------------------------!
2 ! CP2K: A general program to perform molecular dynamics simulations !
3 ! Copyright 2000-2024 CP2K developers group <https://cp2k.org> !
4 ! !
5 ! SPDX-License-Identifier: GPL-2.0-or-later !
6 !--------------------------------------------------------------------------------------------------!
7 
8 ! **************************************************************************************************
9 !> \brief Contains routines for data compression. PLEASE DO NOT MODIFY.
10 !> \par History
11 !> 04.2008 created [Manuel Guidon]
12 !> \author Manuel Guidon
13 ! **************************************************************************************************
14 MODULE hfx_compression_core_methods
15 
16  USE kinds, ONLY: int_8
17 #include "../base/base_uses.f90"
18 
19  IMPLICIT NONE
20  PRIVATE
21 
22  ! masks the corresponding number of bits from the right
23  INTEGER(kind=int_8), PARAMETER :: mask_right(0:63) = &
24  (/0_int_8, 1_int_8, 3_int_8, 7_int_8, 15_int_8, 31_int_8, 63_int_8, 127_int_8, 255_int_8, 511_int_8, &
25  1023_int_8, 2047_int_8, 4095_int_8, 8191_int_8, 16383_int_8, 32767_int_8, 65535_int_8, 131071_int_8, &
26  262143_int_8, 524287_int_8, 1048575_int_8, 2097151_int_8, 4194303_int_8, 8388607_int_8, 16777215_int_8, &
27  33554431_int_8, 67108863_int_8, 134217727_int_8, 268435455_int_8, 536870911_int_8, 1073741823_int_8, &
28  2147483647_int_8, 4294967295_int_8, 8589934591_int_8, 17179869183_int_8, 34359738367_int_8, &
29  68719476735_int_8, 137438953471_int_8, 274877906943_int_8, 549755813887_int_8, 1099511627775_int_8, &
30  2199023255551_int_8, 4398046511103_int_8, 8796093022207_int_8, 17592186044415_int_8, &
31  35184372088831_int_8, 70368744177663_int_8, 140737488355327_int_8, 281474976710655_int_8, &
32  562949953421311_int_8, 1125899906842623_int_8, 2251799813685247_int_8, 4503599627370495_int_8, &
33  9007199254740991_int_8, 18014398509481983_int_8, 36028797018963967_int_8, 72057594037927935_int_8, &
34  144115188075855871_int_8, 288230376151711743_int_8, 576460752303423487_int_8, &
35  1152921504606846975_int_8, 2305843009213693951_int_8, 4611686018427387903_int_8, &
36  9223372036854775807_int_8/)
37 
38  ! masks the corresponding number of bits from the left
39  ! use ishft to avoid explicitly writing -HUGE-1, and keep it out of the array a work-around for a bug in pgi 6.1-1
40  INTEGER(kind=int_8), PARAMETER :: ugly_duck = ishft(1_int_8, 63)
41  INTEGER(kind=int_8), PARAMETER :: mask_left(0:63) = &
42  (/0_int_8, ugly_duck, -4611686018427387904_int_8, -2305843009213693952_int_8, &
43  -1152921504606846976_int_8, -576460752303423488_int_8, -288230376151711744_int_8, &
44  -144115188075855872_int_8, -72057594037927936_int_8, -36028797018963968_int_8, &
45  -18014398509481984_int_8, -9007199254740992_int_8, -4503599627370496_int_8, -2251799813685248_int_8, &
46  -1125899906842624_int_8, -562949953421312_int_8, -281474976710656_int_8, -140737488355328_int_8, &
47  -70368744177664_int_8, -35184372088832_int_8, -17592186044416_int_8, -8796093022208_int_8, &
48  -4398046511104_int_8, -2199023255552_int_8, -1099511627776_int_8, -549755813888_int_8, &
49  -274877906944_int_8, -137438953472_int_8, -68719476736_int_8, -34359738368_int_8, -17179869184_int_8, &
50  -8589934592_int_8, -4294967296_int_8, -2147483648_int_8, -1073741824_int_8, -536870912_int_8, &
51  -268435456_int_8, -134217728_int_8, -67108864_int_8, -33554432_int_8, -16777216_int_8, &
52  -8388608_int_8, -4194304_int_8, -2097152_int_8, -1048576_int_8, -524288_int_8, -262144_int_8, &
53  -131072_int_8, -65536_int_8, -32768_int_8, -16384_int_8, -8192_int_8, -4096_int_8, -2048_int_8, &
54  -1024_int_8, -512_int_8, -256_int_8, -128_int_8, -64_int_8, -32_int_8, -16_int_8, -8_int_8, -4_int_8, &
55  -2_int_8/)
56 
57  PUBLIC :: bits2ints_specific, ints2bits_specific
58 
59 CONTAINS
60 
61 ! **************************************************************************************************
62 !> \brief ...
63 !> \param Ndata ...
64 !> \param packed_data ...
65 !> \param full_data ...
66 ! **************************************************************************************************
67  SUBROUTINE ints2ints(Ndata, packed_data, full_data)
68  INTEGER, INTENT(IN) :: Ndata
69  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
70  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
71 
72  full_data(1:ndata) = packed_data(1:ndata)
73  END SUBROUTINE
74 
75  ! Nbits : number of relevant bits per int in the bit stream (this includes all bits)
76  ! Ndata : number of ints that need to be extracted from the bit stream
77  ! packed_data : the stream of bits
78  ! full_data : the extracted ints
79 ! **************************************************************************************************
80 !> \brief ...
81 !> \param Nbits ...
82 !> \param Ndata ...
83 !> \param packed_data ...
84 !> \param full_data ...
85 ! **************************************************************************************************
86  SUBROUTINE bits2ints_generic(Nbits, Ndata, packed_data, full_data)
87 
88  INTEGER, INTENT(IN) :: Nbits, Ndata
89  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
90  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
91 
92  INTEGER :: i_odd_bits, ibits_remaining, idata, ipack
93  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
94 
95  idata = 0
96 
97  ! number of data bits in the pack_tmp that should still be read
98  ibits_remaining = 64
99  ipack = 1
100  pack_tmp = packed_data(ipack)
101 
102  ! give the compiler a hint that Nbits is strictly positive
103  IF (nbits < 1) cpabort("This is a bug")
104  ! we also limit the making number of bits
105  IF (nbits >= 64) cpabort("This is a bug")
106 
107  DO
108  ! we've unpacked all data
109  IF (idata == ndata) EXIT
110  idata = idata + 1
111  IF (ibits_remaining >= nbits) THEN
112  data_tmp = iand(pack_tmp, mask_right(nbits)) ! get the last Nbits
113  full_data(idata) = data_tmp
114  pack_tmp = ishft(pack_tmp, -nbits) ! and shift right to get the bits in place for the next
115  ibits_remaining = ibits_remaining - nbits
116  ELSE
117  i_odd_bits = nbits - ibits_remaining
118  data_tmp = ishft(pack_tmp, i_odd_bits) ! use all remaining bits, shifted left to make place for the missing bits
119  ipack = ipack + 1
120  pack_tmp = packed_data(ipack) ! get new storage
121  ibits_remaining = 64
122  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(i_odd_bits))) ! and use the missing bits to assemble the data
123  pack_tmp = ishft(pack_tmp, -i_odd_bits) ! shift right to get the bits in place for the next
124  ibits_remaining = 64 - i_odd_bits
125  END IF
126  END DO
127 
128  END SUBROUTINE bits2ints_generic
129 
130 ! **************************************************************************************************
131 !> \brief ...
132 !> \param Nbits ...
133 !> \param Ndata ...
134 !> \param packed_data ...
135 !> \param full_data ...
136 ! **************************************************************************************************
137  SUBROUTINE ints2bits_generic(Nbits, Ndata, packed_data, full_data)
138  INTEGER, INTENT(IN) :: Nbits, Ndata
139  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
140  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
141 
142  INTEGER :: i_odd_bits, ibits_remaining, idata, ipack
143  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
144 
145  idata = 0
146  ipack = 0
147  pack_tmp = 0
148 
149  ! number of data bits in the pack_tmp that should still be written
150  ibits_remaining = 64
151 
152  ! give the compiler a hint that Nbits is strictly positive
153  IF (nbits < 1) cpabort("This is a bug")
154  ! we also limit the making number of bits
155  IF (nbits >= 64) cpabort("This is a bug")
156 
157  DO
158  ! we've packed all data
159  IF (idata == ndata) EXIT
160  idata = idata + 1
161  IF (ibits_remaining >= nbits) THEN
162  data_tmp = full_data(idata)
163  data_tmp = ishft(data_tmp, 64 - nbits) ! put bits on the left
164  pack_tmp = ior(pack_tmp, data_tmp) ! add to the packed data
165  ibits_remaining = ibits_remaining - nbits
166  pack_tmp = ishft(pack_tmp, -min(nbits, ibits_remaining)) ! and shift to the right to make place for the next
167  ELSE
168  i_odd_bits = ibits_remaining
169  data_tmp = full_data(idata)
170  data_tmp = ishft(data_tmp, 64 - nbits) ! put bits on the left
171  data_tmp = iand(data_tmp, mask_left(i_odd_bits)) ! restrict to those bits for which we still have space
172  pack_tmp = ior(pack_tmp, data_tmp) ! add them to the packed bits
173  ipack = ipack + 1
174  packed_data(ipack) = pack_tmp ! store the full packed data away and start with a new one
175  data_tmp = full_data(idata)
176  pack_tmp = ishft(data_tmp, 64 - nbits + i_odd_bits) ! put the missing bits on the left if pack_tmp
177  ibits_remaining = 64 - nbits + i_odd_bits
178  pack_tmp = ishft(pack_tmp, -min(nbits, ibits_remaining)) ! shift to make place, but not more than the number of available bits
179  END IF
180  END DO
181 
182  ! cleanup this unfinished packed data and store
183  pack_tmp = ishft(pack_tmp, -max(0, ibits_remaining - nbits))
184  ipack = ipack + 1
185  packed_data(ipack) = pack_tmp
186 
187  END SUBROUTINE ints2bits_generic
188 
189 ! **************************************************************************************************
190 !> \brief ...
191 !> \param Ndata ...
192 !> \param packed_data ...
193 !> \param full_data ...
194 ! **************************************************************************************************
195  SUBROUTINE ints2bits_1(Ndata, packed_data, full_data)
196  INTEGER, INTENT(IN) :: Ndata
197  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
198  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
199 
200  INTEGER, PARAMETER :: Nbits = 1
201 
202  INTEGER :: idata, ipack, kdata, Ndata_rep
203  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
204 
205  idata = 0
206  ipack = 0
207  ndata_rep = (ndata/64)*64
208  DO kdata = 1, ndata_rep, 64
209  pack_tmp = 0
210  idata = idata + 1
211  data_tmp = full_data(idata)
212  data_tmp = ishft(data_tmp, 63)
213  pack_tmp = ior(pack_tmp, data_tmp)
214  pack_tmp = ishft(pack_tmp, -1)
215  idata = idata + 1
216  data_tmp = full_data(idata)
217  data_tmp = ishft(data_tmp, 63)
218  pack_tmp = ior(pack_tmp, data_tmp)
219  pack_tmp = ishft(pack_tmp, -1)
220  idata = idata + 1
221  data_tmp = full_data(idata)
222  data_tmp = ishft(data_tmp, 63)
223  pack_tmp = ior(pack_tmp, data_tmp)
224  pack_tmp = ishft(pack_tmp, -1)
225  idata = idata + 1
226  data_tmp = full_data(idata)
227  data_tmp = ishft(data_tmp, 63)
228  pack_tmp = ior(pack_tmp, data_tmp)
229  pack_tmp = ishft(pack_tmp, -1)
230  idata = idata + 1
231  data_tmp = full_data(idata)
232  data_tmp = ishft(data_tmp, 63)
233  pack_tmp = ior(pack_tmp, data_tmp)
234  pack_tmp = ishft(pack_tmp, -1)
235  idata = idata + 1
236  data_tmp = full_data(idata)
237  data_tmp = ishft(data_tmp, 63)
238  pack_tmp = ior(pack_tmp, data_tmp)
239  pack_tmp = ishft(pack_tmp, -1)
240  idata = idata + 1
241  data_tmp = full_data(idata)
242  data_tmp = ishft(data_tmp, 63)
243  pack_tmp = ior(pack_tmp, data_tmp)
244  pack_tmp = ishft(pack_tmp, -1)
245  idata = idata + 1
246  data_tmp = full_data(idata)
247  data_tmp = ishft(data_tmp, 63)
248  pack_tmp = ior(pack_tmp, data_tmp)
249  pack_tmp = ishft(pack_tmp, -1)
250  idata = idata + 1
251  data_tmp = full_data(idata)
252  data_tmp = ishft(data_tmp, 63)
253  pack_tmp = ior(pack_tmp, data_tmp)
254  pack_tmp = ishft(pack_tmp, -1)
255  idata = idata + 1
256  data_tmp = full_data(idata)
257  data_tmp = ishft(data_tmp, 63)
258  pack_tmp = ior(pack_tmp, data_tmp)
259  pack_tmp = ishft(pack_tmp, -1)
260  idata = idata + 1
261  data_tmp = full_data(idata)
262  data_tmp = ishft(data_tmp, 63)
263  pack_tmp = ior(pack_tmp, data_tmp)
264  pack_tmp = ishft(pack_tmp, -1)
265  idata = idata + 1
266  data_tmp = full_data(idata)
267  data_tmp = ishft(data_tmp, 63)
268  pack_tmp = ior(pack_tmp, data_tmp)
269  pack_tmp = ishft(pack_tmp, -1)
270  idata = idata + 1
271  data_tmp = full_data(idata)
272  data_tmp = ishft(data_tmp, 63)
273  pack_tmp = ior(pack_tmp, data_tmp)
274  pack_tmp = ishft(pack_tmp, -1)
275  idata = idata + 1
276  data_tmp = full_data(idata)
277  data_tmp = ishft(data_tmp, 63)
278  pack_tmp = ior(pack_tmp, data_tmp)
279  pack_tmp = ishft(pack_tmp, -1)
280  idata = idata + 1
281  data_tmp = full_data(idata)
282  data_tmp = ishft(data_tmp, 63)
283  pack_tmp = ior(pack_tmp, data_tmp)
284  pack_tmp = ishft(pack_tmp, -1)
285  idata = idata + 1
286  data_tmp = full_data(idata)
287  data_tmp = ishft(data_tmp, 63)
288  pack_tmp = ior(pack_tmp, data_tmp)
289  pack_tmp = ishft(pack_tmp, -1)
290  idata = idata + 1
291  data_tmp = full_data(idata)
292  data_tmp = ishft(data_tmp, 63)
293  pack_tmp = ior(pack_tmp, data_tmp)
294  pack_tmp = ishft(pack_tmp, -1)
295  idata = idata + 1
296  data_tmp = full_data(idata)
297  data_tmp = ishft(data_tmp, 63)
298  pack_tmp = ior(pack_tmp, data_tmp)
299  pack_tmp = ishft(pack_tmp, -1)
300  idata = idata + 1
301  data_tmp = full_data(idata)
302  data_tmp = ishft(data_tmp, 63)
303  pack_tmp = ior(pack_tmp, data_tmp)
304  pack_tmp = ishft(pack_tmp, -1)
305  idata = idata + 1
306  data_tmp = full_data(idata)
307  data_tmp = ishft(data_tmp, 63)
308  pack_tmp = ior(pack_tmp, data_tmp)
309  pack_tmp = ishft(pack_tmp, -1)
310  idata = idata + 1
311  data_tmp = full_data(idata)
312  data_tmp = ishft(data_tmp, 63)
313  pack_tmp = ior(pack_tmp, data_tmp)
314  pack_tmp = ishft(pack_tmp, -1)
315  idata = idata + 1
316  data_tmp = full_data(idata)
317  data_tmp = ishft(data_tmp, 63)
318  pack_tmp = ior(pack_tmp, data_tmp)
319  pack_tmp = ishft(pack_tmp, -1)
320  idata = idata + 1
321  data_tmp = full_data(idata)
322  data_tmp = ishft(data_tmp, 63)
323  pack_tmp = ior(pack_tmp, data_tmp)
324  pack_tmp = ishft(pack_tmp, -1)
325  idata = idata + 1
326  data_tmp = full_data(idata)
327  data_tmp = ishft(data_tmp, 63)
328  pack_tmp = ior(pack_tmp, data_tmp)
329  pack_tmp = ishft(pack_tmp, -1)
330  idata = idata + 1
331  data_tmp = full_data(idata)
332  data_tmp = ishft(data_tmp, 63)
333  pack_tmp = ior(pack_tmp, data_tmp)
334  pack_tmp = ishft(pack_tmp, -1)
335  idata = idata + 1
336  data_tmp = full_data(idata)
337  data_tmp = ishft(data_tmp, 63)
338  pack_tmp = ior(pack_tmp, data_tmp)
339  pack_tmp = ishft(pack_tmp, -1)
340  idata = idata + 1
341  data_tmp = full_data(idata)
342  data_tmp = ishft(data_tmp, 63)
343  pack_tmp = ior(pack_tmp, data_tmp)
344  pack_tmp = ishft(pack_tmp, -1)
345  idata = idata + 1
346  data_tmp = full_data(idata)
347  data_tmp = ishft(data_tmp, 63)
348  pack_tmp = ior(pack_tmp, data_tmp)
349  pack_tmp = ishft(pack_tmp, -1)
350  idata = idata + 1
351  data_tmp = full_data(idata)
352  data_tmp = ishft(data_tmp, 63)
353  pack_tmp = ior(pack_tmp, data_tmp)
354  pack_tmp = ishft(pack_tmp, -1)
355  idata = idata + 1
356  data_tmp = full_data(idata)
357  data_tmp = ishft(data_tmp, 63)
358  pack_tmp = ior(pack_tmp, data_tmp)
359  pack_tmp = ishft(pack_tmp, -1)
360  idata = idata + 1
361  data_tmp = full_data(idata)
362  data_tmp = ishft(data_tmp, 63)
363  pack_tmp = ior(pack_tmp, data_tmp)
364  pack_tmp = ishft(pack_tmp, -1)
365  idata = idata + 1
366  data_tmp = full_data(idata)
367  data_tmp = ishft(data_tmp, 63)
368  pack_tmp = ior(pack_tmp, data_tmp)
369  pack_tmp = ishft(pack_tmp, -1)
370  idata = idata + 1
371  data_tmp = full_data(idata)
372  data_tmp = ishft(data_tmp, 63)
373  pack_tmp = ior(pack_tmp, data_tmp)
374  pack_tmp = ishft(pack_tmp, -1)
375  idata = idata + 1
376  data_tmp = full_data(idata)
377  data_tmp = ishft(data_tmp, 63)
378  pack_tmp = ior(pack_tmp, data_tmp)
379  pack_tmp = ishft(pack_tmp, -1)
380  idata = idata + 1
381  data_tmp = full_data(idata)
382  data_tmp = ishft(data_tmp, 63)
383  pack_tmp = ior(pack_tmp, data_tmp)
384  pack_tmp = ishft(pack_tmp, -1)
385  idata = idata + 1
386  data_tmp = full_data(idata)
387  data_tmp = ishft(data_tmp, 63)
388  pack_tmp = ior(pack_tmp, data_tmp)
389  pack_tmp = ishft(pack_tmp, -1)
390  idata = idata + 1
391  data_tmp = full_data(idata)
392  data_tmp = ishft(data_tmp, 63)
393  pack_tmp = ior(pack_tmp, data_tmp)
394  pack_tmp = ishft(pack_tmp, -1)
395  idata = idata + 1
396  data_tmp = full_data(idata)
397  data_tmp = ishft(data_tmp, 63)
398  pack_tmp = ior(pack_tmp, data_tmp)
399  pack_tmp = ishft(pack_tmp, -1)
400  idata = idata + 1
401  data_tmp = full_data(idata)
402  data_tmp = ishft(data_tmp, 63)
403  pack_tmp = ior(pack_tmp, data_tmp)
404  pack_tmp = ishft(pack_tmp, -1)
405  idata = idata + 1
406  data_tmp = full_data(idata)
407  data_tmp = ishft(data_tmp, 63)
408  pack_tmp = ior(pack_tmp, data_tmp)
409  pack_tmp = ishft(pack_tmp, -1)
410  idata = idata + 1
411  data_tmp = full_data(idata)
412  data_tmp = ishft(data_tmp, 63)
413  pack_tmp = ior(pack_tmp, data_tmp)
414  pack_tmp = ishft(pack_tmp, -1)
415  idata = idata + 1
416  data_tmp = full_data(idata)
417  data_tmp = ishft(data_tmp, 63)
418  pack_tmp = ior(pack_tmp, data_tmp)
419  pack_tmp = ishft(pack_tmp, -1)
420  idata = idata + 1
421  data_tmp = full_data(idata)
422  data_tmp = ishft(data_tmp, 63)
423  pack_tmp = ior(pack_tmp, data_tmp)
424  pack_tmp = ishft(pack_tmp, -1)
425  idata = idata + 1
426  data_tmp = full_data(idata)
427  data_tmp = ishft(data_tmp, 63)
428  pack_tmp = ior(pack_tmp, data_tmp)
429  pack_tmp = ishft(pack_tmp, -1)
430  idata = idata + 1
431  data_tmp = full_data(idata)
432  data_tmp = ishft(data_tmp, 63)
433  pack_tmp = ior(pack_tmp, data_tmp)
434  pack_tmp = ishft(pack_tmp, -1)
435  idata = idata + 1
436  data_tmp = full_data(idata)
437  data_tmp = ishft(data_tmp, 63)
438  pack_tmp = ior(pack_tmp, data_tmp)
439  pack_tmp = ishft(pack_tmp, -1)
440  idata = idata + 1
441  data_tmp = full_data(idata)
442  data_tmp = ishft(data_tmp, 63)
443  pack_tmp = ior(pack_tmp, data_tmp)
444  pack_tmp = ishft(pack_tmp, -1)
445  idata = idata + 1
446  data_tmp = full_data(idata)
447  data_tmp = ishft(data_tmp, 63)
448  pack_tmp = ior(pack_tmp, data_tmp)
449  pack_tmp = ishft(pack_tmp, -1)
450  idata = idata + 1
451  data_tmp = full_data(idata)
452  data_tmp = ishft(data_tmp, 63)
453  pack_tmp = ior(pack_tmp, data_tmp)
454  pack_tmp = ishft(pack_tmp, -1)
455  idata = idata + 1
456  data_tmp = full_data(idata)
457  data_tmp = ishft(data_tmp, 63)
458  pack_tmp = ior(pack_tmp, data_tmp)
459  pack_tmp = ishft(pack_tmp, -1)
460  idata = idata + 1
461  data_tmp = full_data(idata)
462  data_tmp = ishft(data_tmp, 63)
463  pack_tmp = ior(pack_tmp, data_tmp)
464  pack_tmp = ishft(pack_tmp, -1)
465  idata = idata + 1
466  data_tmp = full_data(idata)
467  data_tmp = ishft(data_tmp, 63)
468  pack_tmp = ior(pack_tmp, data_tmp)
469  pack_tmp = ishft(pack_tmp, -1)
470  idata = idata + 1
471  data_tmp = full_data(idata)
472  data_tmp = ishft(data_tmp, 63)
473  pack_tmp = ior(pack_tmp, data_tmp)
474  pack_tmp = ishft(pack_tmp, -1)
475  idata = idata + 1
476  data_tmp = full_data(idata)
477  data_tmp = ishft(data_tmp, 63)
478  pack_tmp = ior(pack_tmp, data_tmp)
479  pack_tmp = ishft(pack_tmp, -1)
480  idata = idata + 1
481  data_tmp = full_data(idata)
482  data_tmp = ishft(data_tmp, 63)
483  pack_tmp = ior(pack_tmp, data_tmp)
484  pack_tmp = ishft(pack_tmp, -1)
485  idata = idata + 1
486  data_tmp = full_data(idata)
487  data_tmp = ishft(data_tmp, 63)
488  pack_tmp = ior(pack_tmp, data_tmp)
489  pack_tmp = ishft(pack_tmp, -1)
490  idata = idata + 1
491  data_tmp = full_data(idata)
492  data_tmp = ishft(data_tmp, 63)
493  pack_tmp = ior(pack_tmp, data_tmp)
494  pack_tmp = ishft(pack_tmp, -1)
495  idata = idata + 1
496  data_tmp = full_data(idata)
497  data_tmp = ishft(data_tmp, 63)
498  pack_tmp = ior(pack_tmp, data_tmp)
499  pack_tmp = ishft(pack_tmp, -1)
500  idata = idata + 1
501  data_tmp = full_data(idata)
502  data_tmp = ishft(data_tmp, 63)
503  pack_tmp = ior(pack_tmp, data_tmp)
504  pack_tmp = ishft(pack_tmp, -1)
505  idata = idata + 1
506  data_tmp = full_data(idata)
507  data_tmp = ishft(data_tmp, 63)
508  pack_tmp = ior(pack_tmp, data_tmp)
509  pack_tmp = ishft(pack_tmp, -1)
510  idata = idata + 1
511  data_tmp = full_data(idata)
512  data_tmp = ishft(data_tmp, 63)
513  pack_tmp = ior(pack_tmp, data_tmp)
514  pack_tmp = ishft(pack_tmp, -1)
515  idata = idata + 1
516  data_tmp = full_data(idata)
517  data_tmp = ishft(data_tmp, 63)
518  pack_tmp = ior(pack_tmp, data_tmp)
519  pack_tmp = ishft(pack_tmp, -1)
520  idata = idata + 1
521  data_tmp = full_data(idata)
522  data_tmp = ishft(data_tmp, 63)
523  pack_tmp = ior(pack_tmp, data_tmp)
524  pack_tmp = ishft(pack_tmp, -1)
525  idata = idata + 1
526  data_tmp = full_data(idata)
527  data_tmp = ishft(data_tmp, 63)
528  pack_tmp = ior(pack_tmp, data_tmp)
529  pack_tmp = ishft(pack_tmp, 0)
530  pack_tmp = ishft(pack_tmp, 0)
531  ipack = ipack + 1
532  packed_data(ipack) = pack_tmp
533  END DO
534  IF (ndata_rep < ndata) THEN
535  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
536  END IF
537  END SUBROUTINE ints2bits_1
538 
539 ! **************************************************************************************************
540 !> \brief ...
541 !> \param Ndata ...
542 !> \param packed_data ...
543 !> \param full_data ...
544 ! **************************************************************************************************
545  SUBROUTINE bits2ints_1(Ndata, packed_data, full_data)
546  INTEGER, INTENT(IN) :: Ndata
547  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
548  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
549 
550  INTEGER, PARAMETER :: Nbits = 1
551 
552  INTEGER :: idata, ipack, kdata, Ndata_rep
553  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
554 
555  ipack = 0
556  idata = 0
557  pack_tmp = 0
558  ndata_rep = (ndata/64)*64
559  DO kdata = 1, ndata_rep, 64
560  idata = idata + 1
561  data_tmp = ishft(pack_tmp, 1)
562  ipack = ipack + 1
563  pack_tmp = packed_data(ipack)
564  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
565  pack_tmp = ishft(pack_tmp, -1)
566  idata = idata + 1
567  data_tmp = iand(pack_tmp, mask_right(nbits))
568  full_data(idata) = data_tmp
569  pack_tmp = ishft(pack_tmp, -nbits)
570  idata = idata + 1
571  data_tmp = iand(pack_tmp, mask_right(nbits))
572  full_data(idata) = data_tmp
573  pack_tmp = ishft(pack_tmp, -nbits)
574  idata = idata + 1
575  data_tmp = iand(pack_tmp, mask_right(nbits))
576  full_data(idata) = data_tmp
577  pack_tmp = ishft(pack_tmp, -nbits)
578  idata = idata + 1
579  data_tmp = iand(pack_tmp, mask_right(nbits))
580  full_data(idata) = data_tmp
581  pack_tmp = ishft(pack_tmp, -nbits)
582  idata = idata + 1
583  data_tmp = iand(pack_tmp, mask_right(nbits))
584  full_data(idata) = data_tmp
585  pack_tmp = ishft(pack_tmp, -nbits)
586  idata = idata + 1
587  data_tmp = iand(pack_tmp, mask_right(nbits))
588  full_data(idata) = data_tmp
589  pack_tmp = ishft(pack_tmp, -nbits)
590  idata = idata + 1
591  data_tmp = iand(pack_tmp, mask_right(nbits))
592  full_data(idata) = data_tmp
593  pack_tmp = ishft(pack_tmp, -nbits)
594  idata = idata + 1
595  data_tmp = iand(pack_tmp, mask_right(nbits))
596  full_data(idata) = data_tmp
597  pack_tmp = ishft(pack_tmp, -nbits)
598  idata = idata + 1
599  data_tmp = iand(pack_tmp, mask_right(nbits))
600  full_data(idata) = data_tmp
601  pack_tmp = ishft(pack_tmp, -nbits)
602  idata = idata + 1
603  data_tmp = iand(pack_tmp, mask_right(nbits))
604  full_data(idata) = data_tmp
605  pack_tmp = ishft(pack_tmp, -nbits)
606  idata = idata + 1
607  data_tmp = iand(pack_tmp, mask_right(nbits))
608  full_data(idata) = data_tmp
609  pack_tmp = ishft(pack_tmp, -nbits)
610  idata = idata + 1
611  data_tmp = iand(pack_tmp, mask_right(nbits))
612  full_data(idata) = data_tmp
613  pack_tmp = ishft(pack_tmp, -nbits)
614  idata = idata + 1
615  data_tmp = iand(pack_tmp, mask_right(nbits))
616  full_data(idata) = data_tmp
617  pack_tmp = ishft(pack_tmp, -nbits)
618  idata = idata + 1
619  data_tmp = iand(pack_tmp, mask_right(nbits))
620  full_data(idata) = data_tmp
621  pack_tmp = ishft(pack_tmp, -nbits)
622  idata = idata + 1
623  data_tmp = iand(pack_tmp, mask_right(nbits))
624  full_data(idata) = data_tmp
625  pack_tmp = ishft(pack_tmp, -nbits)
626  idata = idata + 1
627  data_tmp = iand(pack_tmp, mask_right(nbits))
628  full_data(idata) = data_tmp
629  pack_tmp = ishft(pack_tmp, -nbits)
630  idata = idata + 1
631  data_tmp = iand(pack_tmp, mask_right(nbits))
632  full_data(idata) = data_tmp
633  pack_tmp = ishft(pack_tmp, -nbits)
634  idata = idata + 1
635  data_tmp = iand(pack_tmp, mask_right(nbits))
636  full_data(idata) = data_tmp
637  pack_tmp = ishft(pack_tmp, -nbits)
638  idata = idata + 1
639  data_tmp = iand(pack_tmp, mask_right(nbits))
640  full_data(idata) = data_tmp
641  pack_tmp = ishft(pack_tmp, -nbits)
642  idata = idata + 1
643  data_tmp = iand(pack_tmp, mask_right(nbits))
644  full_data(idata) = data_tmp
645  pack_tmp = ishft(pack_tmp, -nbits)
646  idata = idata + 1
647  data_tmp = iand(pack_tmp, mask_right(nbits))
648  full_data(idata) = data_tmp
649  pack_tmp = ishft(pack_tmp, -nbits)
650  idata = idata + 1
651  data_tmp = iand(pack_tmp, mask_right(nbits))
652  full_data(idata) = data_tmp
653  pack_tmp = ishft(pack_tmp, -nbits)
654  idata = idata + 1
655  data_tmp = iand(pack_tmp, mask_right(nbits))
656  full_data(idata) = data_tmp
657  pack_tmp = ishft(pack_tmp, -nbits)
658  idata = idata + 1
659  data_tmp = iand(pack_tmp, mask_right(nbits))
660  full_data(idata) = data_tmp
661  pack_tmp = ishft(pack_tmp, -nbits)
662  idata = idata + 1
663  data_tmp = iand(pack_tmp, mask_right(nbits))
664  full_data(idata) = data_tmp
665  pack_tmp = ishft(pack_tmp, -nbits)
666  idata = idata + 1
667  data_tmp = iand(pack_tmp, mask_right(nbits))
668  full_data(idata) = data_tmp
669  pack_tmp = ishft(pack_tmp, -nbits)
670  idata = idata + 1
671  data_tmp = iand(pack_tmp, mask_right(nbits))
672  full_data(idata) = data_tmp
673  pack_tmp = ishft(pack_tmp, -nbits)
674  idata = idata + 1
675  data_tmp = iand(pack_tmp, mask_right(nbits))
676  full_data(idata) = data_tmp
677  pack_tmp = ishft(pack_tmp, -nbits)
678  idata = idata + 1
679  data_tmp = iand(pack_tmp, mask_right(nbits))
680  full_data(idata) = data_tmp
681  pack_tmp = ishft(pack_tmp, -nbits)
682  idata = idata + 1
683  data_tmp = iand(pack_tmp, mask_right(nbits))
684  full_data(idata) = data_tmp
685  pack_tmp = ishft(pack_tmp, -nbits)
686  idata = idata + 1
687  data_tmp = iand(pack_tmp, mask_right(nbits))
688  full_data(idata) = data_tmp
689  pack_tmp = ishft(pack_tmp, -nbits)
690  idata = idata + 1
691  data_tmp = iand(pack_tmp, mask_right(nbits))
692  full_data(idata) = data_tmp
693  pack_tmp = ishft(pack_tmp, -nbits)
694  idata = idata + 1
695  data_tmp = iand(pack_tmp, mask_right(nbits))
696  full_data(idata) = data_tmp
697  pack_tmp = ishft(pack_tmp, -nbits)
698  idata = idata + 1
699  data_tmp = iand(pack_tmp, mask_right(nbits))
700  full_data(idata) = data_tmp
701  pack_tmp = ishft(pack_tmp, -nbits)
702  idata = idata + 1
703  data_tmp = iand(pack_tmp, mask_right(nbits))
704  full_data(idata) = data_tmp
705  pack_tmp = ishft(pack_tmp, -nbits)
706  idata = idata + 1
707  data_tmp = iand(pack_tmp, mask_right(nbits))
708  full_data(idata) = data_tmp
709  pack_tmp = ishft(pack_tmp, -nbits)
710  idata = idata + 1
711  data_tmp = iand(pack_tmp, mask_right(nbits))
712  full_data(idata) = data_tmp
713  pack_tmp = ishft(pack_tmp, -nbits)
714  idata = idata + 1
715  data_tmp = iand(pack_tmp, mask_right(nbits))
716  full_data(idata) = data_tmp
717  pack_tmp = ishft(pack_tmp, -nbits)
718  idata = idata + 1
719  data_tmp = iand(pack_tmp, mask_right(nbits))
720  full_data(idata) = data_tmp
721  pack_tmp = ishft(pack_tmp, -nbits)
722  idata = idata + 1
723  data_tmp = iand(pack_tmp, mask_right(nbits))
724  full_data(idata) = data_tmp
725  pack_tmp = ishft(pack_tmp, -nbits)
726  idata = idata + 1
727  data_tmp = iand(pack_tmp, mask_right(nbits))
728  full_data(idata) = data_tmp
729  pack_tmp = ishft(pack_tmp, -nbits)
730  idata = idata + 1
731  data_tmp = iand(pack_tmp, mask_right(nbits))
732  full_data(idata) = data_tmp
733  pack_tmp = ishft(pack_tmp, -nbits)
734  idata = idata + 1
735  data_tmp = iand(pack_tmp, mask_right(nbits))
736  full_data(idata) = data_tmp
737  pack_tmp = ishft(pack_tmp, -nbits)
738  idata = idata + 1
739  data_tmp = iand(pack_tmp, mask_right(nbits))
740  full_data(idata) = data_tmp
741  pack_tmp = ishft(pack_tmp, -nbits)
742  idata = idata + 1
743  data_tmp = iand(pack_tmp, mask_right(nbits))
744  full_data(idata) = data_tmp
745  pack_tmp = ishft(pack_tmp, -nbits)
746  idata = idata + 1
747  data_tmp = iand(pack_tmp, mask_right(nbits))
748  full_data(idata) = data_tmp
749  pack_tmp = ishft(pack_tmp, -nbits)
750  idata = idata + 1
751  data_tmp = iand(pack_tmp, mask_right(nbits))
752  full_data(idata) = data_tmp
753  pack_tmp = ishft(pack_tmp, -nbits)
754  idata = idata + 1
755  data_tmp = iand(pack_tmp, mask_right(nbits))
756  full_data(idata) = data_tmp
757  pack_tmp = ishft(pack_tmp, -nbits)
758  idata = idata + 1
759  data_tmp = iand(pack_tmp, mask_right(nbits))
760  full_data(idata) = data_tmp
761  pack_tmp = ishft(pack_tmp, -nbits)
762  idata = idata + 1
763  data_tmp = iand(pack_tmp, mask_right(nbits))
764  full_data(idata) = data_tmp
765  pack_tmp = ishft(pack_tmp, -nbits)
766  idata = idata + 1
767  data_tmp = iand(pack_tmp, mask_right(nbits))
768  full_data(idata) = data_tmp
769  pack_tmp = ishft(pack_tmp, -nbits)
770  idata = idata + 1
771  data_tmp = iand(pack_tmp, mask_right(nbits))
772  full_data(idata) = data_tmp
773  pack_tmp = ishft(pack_tmp, -nbits)
774  idata = idata + 1
775  data_tmp = iand(pack_tmp, mask_right(nbits))
776  full_data(idata) = data_tmp
777  pack_tmp = ishft(pack_tmp, -nbits)
778  idata = idata + 1
779  data_tmp = iand(pack_tmp, mask_right(nbits))
780  full_data(idata) = data_tmp
781  pack_tmp = ishft(pack_tmp, -nbits)
782  idata = idata + 1
783  data_tmp = iand(pack_tmp, mask_right(nbits))
784  full_data(idata) = data_tmp
785  pack_tmp = ishft(pack_tmp, -nbits)
786  idata = idata + 1
787  data_tmp = iand(pack_tmp, mask_right(nbits))
788  full_data(idata) = data_tmp
789  pack_tmp = ishft(pack_tmp, -nbits)
790  idata = idata + 1
791  data_tmp = iand(pack_tmp, mask_right(nbits))
792  full_data(idata) = data_tmp
793  pack_tmp = ishft(pack_tmp, -nbits)
794  idata = idata + 1
795  data_tmp = iand(pack_tmp, mask_right(nbits))
796  full_data(idata) = data_tmp
797  pack_tmp = ishft(pack_tmp, -nbits)
798  idata = idata + 1
799  data_tmp = iand(pack_tmp, mask_right(nbits))
800  full_data(idata) = data_tmp
801  pack_tmp = ishft(pack_tmp, -nbits)
802  idata = idata + 1
803  data_tmp = iand(pack_tmp, mask_right(nbits))
804  full_data(idata) = data_tmp
805  pack_tmp = ishft(pack_tmp, -nbits)
806  idata = idata + 1
807  data_tmp = iand(pack_tmp, mask_right(nbits))
808  full_data(idata) = data_tmp
809  pack_tmp = ishft(pack_tmp, -nbits)
810  idata = idata + 1
811  data_tmp = iand(pack_tmp, mask_right(nbits))
812  full_data(idata) = data_tmp
813  pack_tmp = ishft(pack_tmp, -nbits)
814  idata = idata + 1
815  data_tmp = iand(pack_tmp, mask_right(nbits))
816  full_data(idata) = data_tmp
817  pack_tmp = ishft(pack_tmp, -nbits)
818  END DO
819  IF (ndata_rep < ndata) THEN
820  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
821  END IF
822  END SUBROUTINE bits2ints_1
823 
824 ! **************************************************************************************************
825 !> \brief ...
826 !> \param Ndata ...
827 !> \param packed_data ...
828 !> \param full_data ...
829 ! **************************************************************************************************
830  SUBROUTINE ints2bits_2(Ndata, packed_data, full_data)
831  INTEGER, INTENT(IN) :: Ndata
832  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
833  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
834 
835  INTEGER, PARAMETER :: Nbits = 2
836 
837  INTEGER :: idata, ipack, kdata, Ndata_rep
838  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
839 
840  idata = 0
841  ipack = 0
842  ndata_rep = (ndata/64)*64
843  DO kdata = 1, ndata_rep, 64
844  pack_tmp = 0
845  idata = idata + 1
846  data_tmp = full_data(idata)
847  data_tmp = ishft(data_tmp, 62)
848  pack_tmp = ior(pack_tmp, data_tmp)
849  pack_tmp = ishft(pack_tmp, -2)
850  idata = idata + 1
851  data_tmp = full_data(idata)
852  data_tmp = ishft(data_tmp, 62)
853  pack_tmp = ior(pack_tmp, data_tmp)
854  pack_tmp = ishft(pack_tmp, -2)
855  idata = idata + 1
856  data_tmp = full_data(idata)
857  data_tmp = ishft(data_tmp, 62)
858  pack_tmp = ior(pack_tmp, data_tmp)
859  pack_tmp = ishft(pack_tmp, -2)
860  idata = idata + 1
861  data_tmp = full_data(idata)
862  data_tmp = ishft(data_tmp, 62)
863  pack_tmp = ior(pack_tmp, data_tmp)
864  pack_tmp = ishft(pack_tmp, -2)
865  idata = idata + 1
866  data_tmp = full_data(idata)
867  data_tmp = ishft(data_tmp, 62)
868  pack_tmp = ior(pack_tmp, data_tmp)
869  pack_tmp = ishft(pack_tmp, -2)
870  idata = idata + 1
871  data_tmp = full_data(idata)
872  data_tmp = ishft(data_tmp, 62)
873  pack_tmp = ior(pack_tmp, data_tmp)
874  pack_tmp = ishft(pack_tmp, -2)
875  idata = idata + 1
876  data_tmp = full_data(idata)
877  data_tmp = ishft(data_tmp, 62)
878  pack_tmp = ior(pack_tmp, data_tmp)
879  pack_tmp = ishft(pack_tmp, -2)
880  idata = idata + 1
881  data_tmp = full_data(idata)
882  data_tmp = ishft(data_tmp, 62)
883  pack_tmp = ior(pack_tmp, data_tmp)
884  pack_tmp = ishft(pack_tmp, -2)
885  idata = idata + 1
886  data_tmp = full_data(idata)
887  data_tmp = ishft(data_tmp, 62)
888  pack_tmp = ior(pack_tmp, data_tmp)
889  pack_tmp = ishft(pack_tmp, -2)
890  idata = idata + 1
891  data_tmp = full_data(idata)
892  data_tmp = ishft(data_tmp, 62)
893  pack_tmp = ior(pack_tmp, data_tmp)
894  pack_tmp = ishft(pack_tmp, -2)
895  idata = idata + 1
896  data_tmp = full_data(idata)
897  data_tmp = ishft(data_tmp, 62)
898  pack_tmp = ior(pack_tmp, data_tmp)
899  pack_tmp = ishft(pack_tmp, -2)
900  idata = idata + 1
901  data_tmp = full_data(idata)
902  data_tmp = ishft(data_tmp, 62)
903  pack_tmp = ior(pack_tmp, data_tmp)
904  pack_tmp = ishft(pack_tmp, -2)
905  idata = idata + 1
906  data_tmp = full_data(idata)
907  data_tmp = ishft(data_tmp, 62)
908  pack_tmp = ior(pack_tmp, data_tmp)
909  pack_tmp = ishft(pack_tmp, -2)
910  idata = idata + 1
911  data_tmp = full_data(idata)
912  data_tmp = ishft(data_tmp, 62)
913  pack_tmp = ior(pack_tmp, data_tmp)
914  pack_tmp = ishft(pack_tmp, -2)
915  idata = idata + 1
916  data_tmp = full_data(idata)
917  data_tmp = ishft(data_tmp, 62)
918  pack_tmp = ior(pack_tmp, data_tmp)
919  pack_tmp = ishft(pack_tmp, -2)
920  idata = idata + 1
921  data_tmp = full_data(idata)
922  data_tmp = ishft(data_tmp, 62)
923  pack_tmp = ior(pack_tmp, data_tmp)
924  pack_tmp = ishft(pack_tmp, -2)
925  idata = idata + 1
926  data_tmp = full_data(idata)
927  data_tmp = ishft(data_tmp, 62)
928  pack_tmp = ior(pack_tmp, data_tmp)
929  pack_tmp = ishft(pack_tmp, -2)
930  idata = idata + 1
931  data_tmp = full_data(idata)
932  data_tmp = ishft(data_tmp, 62)
933  pack_tmp = ior(pack_tmp, data_tmp)
934  pack_tmp = ishft(pack_tmp, -2)
935  idata = idata + 1
936  data_tmp = full_data(idata)
937  data_tmp = ishft(data_tmp, 62)
938  pack_tmp = ior(pack_tmp, data_tmp)
939  pack_tmp = ishft(pack_tmp, -2)
940  idata = idata + 1
941  data_tmp = full_data(idata)
942  data_tmp = ishft(data_tmp, 62)
943  pack_tmp = ior(pack_tmp, data_tmp)
944  pack_tmp = ishft(pack_tmp, -2)
945  idata = idata + 1
946  data_tmp = full_data(idata)
947  data_tmp = ishft(data_tmp, 62)
948  pack_tmp = ior(pack_tmp, data_tmp)
949  pack_tmp = ishft(pack_tmp, -2)
950  idata = idata + 1
951  data_tmp = full_data(idata)
952  data_tmp = ishft(data_tmp, 62)
953  pack_tmp = ior(pack_tmp, data_tmp)
954  pack_tmp = ishft(pack_tmp, -2)
955  idata = idata + 1
956  data_tmp = full_data(idata)
957  data_tmp = ishft(data_tmp, 62)
958  pack_tmp = ior(pack_tmp, data_tmp)
959  pack_tmp = ishft(pack_tmp, -2)
960  idata = idata + 1
961  data_tmp = full_data(idata)
962  data_tmp = ishft(data_tmp, 62)
963  pack_tmp = ior(pack_tmp, data_tmp)
964  pack_tmp = ishft(pack_tmp, -2)
965  idata = idata + 1
966  data_tmp = full_data(idata)
967  data_tmp = ishft(data_tmp, 62)
968  pack_tmp = ior(pack_tmp, data_tmp)
969  pack_tmp = ishft(pack_tmp, -2)
970  idata = idata + 1
971  data_tmp = full_data(idata)
972  data_tmp = ishft(data_tmp, 62)
973  pack_tmp = ior(pack_tmp, data_tmp)
974  pack_tmp = ishft(pack_tmp, -2)
975  idata = idata + 1
976  data_tmp = full_data(idata)
977  data_tmp = ishft(data_tmp, 62)
978  pack_tmp = ior(pack_tmp, data_tmp)
979  pack_tmp = ishft(pack_tmp, -2)
980  idata = idata + 1
981  data_tmp = full_data(idata)
982  data_tmp = ishft(data_tmp, 62)
983  pack_tmp = ior(pack_tmp, data_tmp)
984  pack_tmp = ishft(pack_tmp, -2)
985  idata = idata + 1
986  data_tmp = full_data(idata)
987  data_tmp = ishft(data_tmp, 62)
988  pack_tmp = ior(pack_tmp, data_tmp)
989  pack_tmp = ishft(pack_tmp, -2)
990  idata = idata + 1
991  data_tmp = full_data(idata)
992  data_tmp = ishft(data_tmp, 62)
993  pack_tmp = ior(pack_tmp, data_tmp)
994  pack_tmp = ishft(pack_tmp, -2)
995  idata = idata + 1
996  data_tmp = full_data(idata)
997  data_tmp = ishft(data_tmp, 62)
998  pack_tmp = ior(pack_tmp, data_tmp)
999  pack_tmp = ishft(pack_tmp, -2)
1000  idata = idata + 1
1001  data_tmp = full_data(idata)
1002  data_tmp = ishft(data_tmp, 62)
1003  pack_tmp = ior(pack_tmp, data_tmp)
1004  pack_tmp = ishft(pack_tmp, 0)
1005  idata = idata + 1
1006  data_tmp = full_data(idata)
1007  data_tmp = ishft(data_tmp, 62)
1008  data_tmp = iand(data_tmp, mask_left(0))
1009  pack_tmp = ior(pack_tmp, data_tmp)
1010  ipack = ipack + 1
1011  packed_data(ipack) = pack_tmp
1012  data_tmp = full_data(idata)
1013  pack_tmp = ishft(data_tmp, 62)
1014  pack_tmp = ishft(pack_tmp, -2)
1015  idata = idata + 1
1016  data_tmp = full_data(idata)
1017  data_tmp = ishft(data_tmp, 62)
1018  pack_tmp = ior(pack_tmp, data_tmp)
1019  pack_tmp = ishft(pack_tmp, -2)
1020  idata = idata + 1
1021  data_tmp = full_data(idata)
1022  data_tmp = ishft(data_tmp, 62)
1023  pack_tmp = ior(pack_tmp, data_tmp)
1024  pack_tmp = ishft(pack_tmp, -2)
1025  idata = idata + 1
1026  data_tmp = full_data(idata)
1027  data_tmp = ishft(data_tmp, 62)
1028  pack_tmp = ior(pack_tmp, data_tmp)
1029  pack_tmp = ishft(pack_tmp, -2)
1030  idata = idata + 1
1031  data_tmp = full_data(idata)
1032  data_tmp = ishft(data_tmp, 62)
1033  pack_tmp = ior(pack_tmp, data_tmp)
1034  pack_tmp = ishft(pack_tmp, -2)
1035  idata = idata + 1
1036  data_tmp = full_data(idata)
1037  data_tmp = ishft(data_tmp, 62)
1038  pack_tmp = ior(pack_tmp, data_tmp)
1039  pack_tmp = ishft(pack_tmp, -2)
1040  idata = idata + 1
1041  data_tmp = full_data(idata)
1042  data_tmp = ishft(data_tmp, 62)
1043  pack_tmp = ior(pack_tmp, data_tmp)
1044  pack_tmp = ishft(pack_tmp, -2)
1045  idata = idata + 1
1046  data_tmp = full_data(idata)
1047  data_tmp = ishft(data_tmp, 62)
1048  pack_tmp = ior(pack_tmp, data_tmp)
1049  pack_tmp = ishft(pack_tmp, -2)
1050  idata = idata + 1
1051  data_tmp = full_data(idata)
1052  data_tmp = ishft(data_tmp, 62)
1053  pack_tmp = ior(pack_tmp, data_tmp)
1054  pack_tmp = ishft(pack_tmp, -2)
1055  idata = idata + 1
1056  data_tmp = full_data(idata)
1057  data_tmp = ishft(data_tmp, 62)
1058  pack_tmp = ior(pack_tmp, data_tmp)
1059  pack_tmp = ishft(pack_tmp, -2)
1060  idata = idata + 1
1061  data_tmp = full_data(idata)
1062  data_tmp = ishft(data_tmp, 62)
1063  pack_tmp = ior(pack_tmp, data_tmp)
1064  pack_tmp = ishft(pack_tmp, -2)
1065  idata = idata + 1
1066  data_tmp = full_data(idata)
1067  data_tmp = ishft(data_tmp, 62)
1068  pack_tmp = ior(pack_tmp, data_tmp)
1069  pack_tmp = ishft(pack_tmp, -2)
1070  idata = idata + 1
1071  data_tmp = full_data(idata)
1072  data_tmp = ishft(data_tmp, 62)
1073  pack_tmp = ior(pack_tmp, data_tmp)
1074  pack_tmp = ishft(pack_tmp, -2)
1075  idata = idata + 1
1076  data_tmp = full_data(idata)
1077  data_tmp = ishft(data_tmp, 62)
1078  pack_tmp = ior(pack_tmp, data_tmp)
1079  pack_tmp = ishft(pack_tmp, -2)
1080  idata = idata + 1
1081  data_tmp = full_data(idata)
1082  data_tmp = ishft(data_tmp, 62)
1083  pack_tmp = ior(pack_tmp, data_tmp)
1084  pack_tmp = ishft(pack_tmp, -2)
1085  idata = idata + 1
1086  data_tmp = full_data(idata)
1087  data_tmp = ishft(data_tmp, 62)
1088  pack_tmp = ior(pack_tmp, data_tmp)
1089  pack_tmp = ishft(pack_tmp, -2)
1090  idata = idata + 1
1091  data_tmp = full_data(idata)
1092  data_tmp = ishft(data_tmp, 62)
1093  pack_tmp = ior(pack_tmp, data_tmp)
1094  pack_tmp = ishft(pack_tmp, -2)
1095  idata = idata + 1
1096  data_tmp = full_data(idata)
1097  data_tmp = ishft(data_tmp, 62)
1098  pack_tmp = ior(pack_tmp, data_tmp)
1099  pack_tmp = ishft(pack_tmp, -2)
1100  idata = idata + 1
1101  data_tmp = full_data(idata)
1102  data_tmp = ishft(data_tmp, 62)
1103  pack_tmp = ior(pack_tmp, data_tmp)
1104  pack_tmp = ishft(pack_tmp, -2)
1105  idata = idata + 1
1106  data_tmp = full_data(idata)
1107  data_tmp = ishft(data_tmp, 62)
1108  pack_tmp = ior(pack_tmp, data_tmp)
1109  pack_tmp = ishft(pack_tmp, -2)
1110  idata = idata + 1
1111  data_tmp = full_data(idata)
1112  data_tmp = ishft(data_tmp, 62)
1113  pack_tmp = ior(pack_tmp, data_tmp)
1114  pack_tmp = ishft(pack_tmp, -2)
1115  idata = idata + 1
1116  data_tmp = full_data(idata)
1117  data_tmp = ishft(data_tmp, 62)
1118  pack_tmp = ior(pack_tmp, data_tmp)
1119  pack_tmp = ishft(pack_tmp, -2)
1120  idata = idata + 1
1121  data_tmp = full_data(idata)
1122  data_tmp = ishft(data_tmp, 62)
1123  pack_tmp = ior(pack_tmp, data_tmp)
1124  pack_tmp = ishft(pack_tmp, -2)
1125  idata = idata + 1
1126  data_tmp = full_data(idata)
1127  data_tmp = ishft(data_tmp, 62)
1128  pack_tmp = ior(pack_tmp, data_tmp)
1129  pack_tmp = ishft(pack_tmp, -2)
1130  idata = idata + 1
1131  data_tmp = full_data(idata)
1132  data_tmp = ishft(data_tmp, 62)
1133  pack_tmp = ior(pack_tmp, data_tmp)
1134  pack_tmp = ishft(pack_tmp, -2)
1135  idata = idata + 1
1136  data_tmp = full_data(idata)
1137  data_tmp = ishft(data_tmp, 62)
1138  pack_tmp = ior(pack_tmp, data_tmp)
1139  pack_tmp = ishft(pack_tmp, -2)
1140  idata = idata + 1
1141  data_tmp = full_data(idata)
1142  data_tmp = ishft(data_tmp, 62)
1143  pack_tmp = ior(pack_tmp, data_tmp)
1144  pack_tmp = ishft(pack_tmp, -2)
1145  idata = idata + 1
1146  data_tmp = full_data(idata)
1147  data_tmp = ishft(data_tmp, 62)
1148  pack_tmp = ior(pack_tmp, data_tmp)
1149  pack_tmp = ishft(pack_tmp, -2)
1150  idata = idata + 1
1151  data_tmp = full_data(idata)
1152  data_tmp = ishft(data_tmp, 62)
1153  pack_tmp = ior(pack_tmp, data_tmp)
1154  pack_tmp = ishft(pack_tmp, -2)
1155  idata = idata + 1
1156  data_tmp = full_data(idata)
1157  data_tmp = ishft(data_tmp, 62)
1158  pack_tmp = ior(pack_tmp, data_tmp)
1159  pack_tmp = ishft(pack_tmp, -2)
1160  idata = idata + 1
1161  data_tmp = full_data(idata)
1162  data_tmp = ishft(data_tmp, 62)
1163  pack_tmp = ior(pack_tmp, data_tmp)
1164  pack_tmp = ishft(pack_tmp, -2)
1165  idata = idata + 1
1166  data_tmp = full_data(idata)
1167  data_tmp = ishft(data_tmp, 62)
1168  pack_tmp = ior(pack_tmp, data_tmp)
1169  pack_tmp = ishft(pack_tmp, 0)
1170  pack_tmp = ishft(pack_tmp, 0)
1171  ipack = ipack + 1
1172  packed_data(ipack) = pack_tmp
1173  END DO
1174  IF (ndata_rep < ndata) THEN
1175  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
1176  END IF
1177  END SUBROUTINE ints2bits_2
1178 
1179 ! **************************************************************************************************
1180 !> \brief ...
1181 !> \param Ndata ...
1182 !> \param packed_data ...
1183 !> \param full_data ...
1184 ! **************************************************************************************************
1185  SUBROUTINE bits2ints_2(Ndata, packed_data, full_data)
1186  INTEGER, INTENT(IN) :: Ndata
1187  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
1188  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
1189 
1190  INTEGER, PARAMETER :: Nbits = 2
1191 
1192  INTEGER :: idata, ipack, kdata, Ndata_rep
1193  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
1194 
1195  ipack = 0
1196  idata = 0
1197  pack_tmp = 0
1198  ndata_rep = (ndata/64)*64
1199  DO kdata = 1, ndata_rep, 64
1200  idata = idata + 1
1201  data_tmp = ishft(pack_tmp, 2)
1202  ipack = ipack + 1
1203  pack_tmp = packed_data(ipack)
1204  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
1205  pack_tmp = ishft(pack_tmp, -2)
1206  idata = idata + 1
1207  data_tmp = iand(pack_tmp, mask_right(nbits))
1208  full_data(idata) = data_tmp
1209  pack_tmp = ishft(pack_tmp, -nbits)
1210  idata = idata + 1
1211  data_tmp = iand(pack_tmp, mask_right(nbits))
1212  full_data(idata) = data_tmp
1213  pack_tmp = ishft(pack_tmp, -nbits)
1214  idata = idata + 1
1215  data_tmp = iand(pack_tmp, mask_right(nbits))
1216  full_data(idata) = data_tmp
1217  pack_tmp = ishft(pack_tmp, -nbits)
1218  idata = idata + 1
1219  data_tmp = iand(pack_tmp, mask_right(nbits))
1220  full_data(idata) = data_tmp
1221  pack_tmp = ishft(pack_tmp, -nbits)
1222  idata = idata + 1
1223  data_tmp = iand(pack_tmp, mask_right(nbits))
1224  full_data(idata) = data_tmp
1225  pack_tmp = ishft(pack_tmp, -nbits)
1226  idata = idata + 1
1227  data_tmp = iand(pack_tmp, mask_right(nbits))
1228  full_data(idata) = data_tmp
1229  pack_tmp = ishft(pack_tmp, -nbits)
1230  idata = idata + 1
1231  data_tmp = iand(pack_tmp, mask_right(nbits))
1232  full_data(idata) = data_tmp
1233  pack_tmp = ishft(pack_tmp, -nbits)
1234  idata = idata + 1
1235  data_tmp = iand(pack_tmp, mask_right(nbits))
1236  full_data(idata) = data_tmp
1237  pack_tmp = ishft(pack_tmp, -nbits)
1238  idata = idata + 1
1239  data_tmp = iand(pack_tmp, mask_right(nbits))
1240  full_data(idata) = data_tmp
1241  pack_tmp = ishft(pack_tmp, -nbits)
1242  idata = idata + 1
1243  data_tmp = iand(pack_tmp, mask_right(nbits))
1244  full_data(idata) = data_tmp
1245  pack_tmp = ishft(pack_tmp, -nbits)
1246  idata = idata + 1
1247  data_tmp = iand(pack_tmp, mask_right(nbits))
1248  full_data(idata) = data_tmp
1249  pack_tmp = ishft(pack_tmp, -nbits)
1250  idata = idata + 1
1251  data_tmp = iand(pack_tmp, mask_right(nbits))
1252  full_data(idata) = data_tmp
1253  pack_tmp = ishft(pack_tmp, -nbits)
1254  idata = idata + 1
1255  data_tmp = iand(pack_tmp, mask_right(nbits))
1256  full_data(idata) = data_tmp
1257  pack_tmp = ishft(pack_tmp, -nbits)
1258  idata = idata + 1
1259  data_tmp = iand(pack_tmp, mask_right(nbits))
1260  full_data(idata) = data_tmp
1261  pack_tmp = ishft(pack_tmp, -nbits)
1262  idata = idata + 1
1263  data_tmp = iand(pack_tmp, mask_right(nbits))
1264  full_data(idata) = data_tmp
1265  pack_tmp = ishft(pack_tmp, -nbits)
1266  idata = idata + 1
1267  data_tmp = iand(pack_tmp, mask_right(nbits))
1268  full_data(idata) = data_tmp
1269  pack_tmp = ishft(pack_tmp, -nbits)
1270  idata = idata + 1
1271  data_tmp = iand(pack_tmp, mask_right(nbits))
1272  full_data(idata) = data_tmp
1273  pack_tmp = ishft(pack_tmp, -nbits)
1274  idata = idata + 1
1275  data_tmp = iand(pack_tmp, mask_right(nbits))
1276  full_data(idata) = data_tmp
1277  pack_tmp = ishft(pack_tmp, -nbits)
1278  idata = idata + 1
1279  data_tmp = iand(pack_tmp, mask_right(nbits))
1280  full_data(idata) = data_tmp
1281  pack_tmp = ishft(pack_tmp, -nbits)
1282  idata = idata + 1
1283  data_tmp = iand(pack_tmp, mask_right(nbits))
1284  full_data(idata) = data_tmp
1285  pack_tmp = ishft(pack_tmp, -nbits)
1286  idata = idata + 1
1287  data_tmp = iand(pack_tmp, mask_right(nbits))
1288  full_data(idata) = data_tmp
1289  pack_tmp = ishft(pack_tmp, -nbits)
1290  idata = idata + 1
1291  data_tmp = iand(pack_tmp, mask_right(nbits))
1292  full_data(idata) = data_tmp
1293  pack_tmp = ishft(pack_tmp, -nbits)
1294  idata = idata + 1
1295  data_tmp = iand(pack_tmp, mask_right(nbits))
1296  full_data(idata) = data_tmp
1297  pack_tmp = ishft(pack_tmp, -nbits)
1298  idata = idata + 1
1299  data_tmp = iand(pack_tmp, mask_right(nbits))
1300  full_data(idata) = data_tmp
1301  pack_tmp = ishft(pack_tmp, -nbits)
1302  idata = idata + 1
1303  data_tmp = iand(pack_tmp, mask_right(nbits))
1304  full_data(idata) = data_tmp
1305  pack_tmp = ishft(pack_tmp, -nbits)
1306  idata = idata + 1
1307  data_tmp = iand(pack_tmp, mask_right(nbits))
1308  full_data(idata) = data_tmp
1309  pack_tmp = ishft(pack_tmp, -nbits)
1310  idata = idata + 1
1311  data_tmp = iand(pack_tmp, mask_right(nbits))
1312  full_data(idata) = data_tmp
1313  pack_tmp = ishft(pack_tmp, -nbits)
1314  idata = idata + 1
1315  data_tmp = iand(pack_tmp, mask_right(nbits))
1316  full_data(idata) = data_tmp
1317  pack_tmp = ishft(pack_tmp, -nbits)
1318  idata = idata + 1
1319  data_tmp = iand(pack_tmp, mask_right(nbits))
1320  full_data(idata) = data_tmp
1321  pack_tmp = ishft(pack_tmp, -nbits)
1322  idata = idata + 1
1323  data_tmp = iand(pack_tmp, mask_right(nbits))
1324  full_data(idata) = data_tmp
1325  pack_tmp = ishft(pack_tmp, -nbits)
1326  idata = idata + 1
1327  data_tmp = iand(pack_tmp, mask_right(nbits))
1328  full_data(idata) = data_tmp
1329  pack_tmp = ishft(pack_tmp, -nbits)
1330  idata = idata + 1
1331  data_tmp = ishft(pack_tmp, 2)
1332  ipack = ipack + 1
1333  pack_tmp = packed_data(ipack)
1334  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
1335  pack_tmp = ishft(pack_tmp, -2)
1336  idata = idata + 1
1337  data_tmp = iand(pack_tmp, mask_right(nbits))
1338  full_data(idata) = data_tmp
1339  pack_tmp = ishft(pack_tmp, -nbits)
1340  idata = idata + 1
1341  data_tmp = iand(pack_tmp, mask_right(nbits))
1342  full_data(idata) = data_tmp
1343  pack_tmp = ishft(pack_tmp, -nbits)
1344  idata = idata + 1
1345  data_tmp = iand(pack_tmp, mask_right(nbits))
1346  full_data(idata) = data_tmp
1347  pack_tmp = ishft(pack_tmp, -nbits)
1348  idata = idata + 1
1349  data_tmp = iand(pack_tmp, mask_right(nbits))
1350  full_data(idata) = data_tmp
1351  pack_tmp = ishft(pack_tmp, -nbits)
1352  idata = idata + 1
1353  data_tmp = iand(pack_tmp, mask_right(nbits))
1354  full_data(idata) = data_tmp
1355  pack_tmp = ishft(pack_tmp, -nbits)
1356  idata = idata + 1
1357  data_tmp = iand(pack_tmp, mask_right(nbits))
1358  full_data(idata) = data_tmp
1359  pack_tmp = ishft(pack_tmp, -nbits)
1360  idata = idata + 1
1361  data_tmp = iand(pack_tmp, mask_right(nbits))
1362  full_data(idata) = data_tmp
1363  pack_tmp = ishft(pack_tmp, -nbits)
1364  idata = idata + 1
1365  data_tmp = iand(pack_tmp, mask_right(nbits))
1366  full_data(idata) = data_tmp
1367  pack_tmp = ishft(pack_tmp, -nbits)
1368  idata = idata + 1
1369  data_tmp = iand(pack_tmp, mask_right(nbits))
1370  full_data(idata) = data_tmp
1371  pack_tmp = ishft(pack_tmp, -nbits)
1372  idata = idata + 1
1373  data_tmp = iand(pack_tmp, mask_right(nbits))
1374  full_data(idata) = data_tmp
1375  pack_tmp = ishft(pack_tmp, -nbits)
1376  idata = idata + 1
1377  data_tmp = iand(pack_tmp, mask_right(nbits))
1378  full_data(idata) = data_tmp
1379  pack_tmp = ishft(pack_tmp, -nbits)
1380  idata = idata + 1
1381  data_tmp = iand(pack_tmp, mask_right(nbits))
1382  full_data(idata) = data_tmp
1383  pack_tmp = ishft(pack_tmp, -nbits)
1384  idata = idata + 1
1385  data_tmp = iand(pack_tmp, mask_right(nbits))
1386  full_data(idata) = data_tmp
1387  pack_tmp = ishft(pack_tmp, -nbits)
1388  idata = idata + 1
1389  data_tmp = iand(pack_tmp, mask_right(nbits))
1390  full_data(idata) = data_tmp
1391  pack_tmp = ishft(pack_tmp, -nbits)
1392  idata = idata + 1
1393  data_tmp = iand(pack_tmp, mask_right(nbits))
1394  full_data(idata) = data_tmp
1395  pack_tmp = ishft(pack_tmp, -nbits)
1396  idata = idata + 1
1397  data_tmp = iand(pack_tmp, mask_right(nbits))
1398  full_data(idata) = data_tmp
1399  pack_tmp = ishft(pack_tmp, -nbits)
1400  idata = idata + 1
1401  data_tmp = iand(pack_tmp, mask_right(nbits))
1402  full_data(idata) = data_tmp
1403  pack_tmp = ishft(pack_tmp, -nbits)
1404  idata = idata + 1
1405  data_tmp = iand(pack_tmp, mask_right(nbits))
1406  full_data(idata) = data_tmp
1407  pack_tmp = ishft(pack_tmp, -nbits)
1408  idata = idata + 1
1409  data_tmp = iand(pack_tmp, mask_right(nbits))
1410  full_data(idata) = data_tmp
1411  pack_tmp = ishft(pack_tmp, -nbits)
1412  idata = idata + 1
1413  data_tmp = iand(pack_tmp, mask_right(nbits))
1414  full_data(idata) = data_tmp
1415  pack_tmp = ishft(pack_tmp, -nbits)
1416  idata = idata + 1
1417  data_tmp = iand(pack_tmp, mask_right(nbits))
1418  full_data(idata) = data_tmp
1419  pack_tmp = ishft(pack_tmp, -nbits)
1420  idata = idata + 1
1421  data_tmp = iand(pack_tmp, mask_right(nbits))
1422  full_data(idata) = data_tmp
1423  pack_tmp = ishft(pack_tmp, -nbits)
1424  idata = idata + 1
1425  data_tmp = iand(pack_tmp, mask_right(nbits))
1426  full_data(idata) = data_tmp
1427  pack_tmp = ishft(pack_tmp, -nbits)
1428  idata = idata + 1
1429  data_tmp = iand(pack_tmp, mask_right(nbits))
1430  full_data(idata) = data_tmp
1431  pack_tmp = ishft(pack_tmp, -nbits)
1432  idata = idata + 1
1433  data_tmp = iand(pack_tmp, mask_right(nbits))
1434  full_data(idata) = data_tmp
1435  pack_tmp = ishft(pack_tmp, -nbits)
1436  idata = idata + 1
1437  data_tmp = iand(pack_tmp, mask_right(nbits))
1438  full_data(idata) = data_tmp
1439  pack_tmp = ishft(pack_tmp, -nbits)
1440  idata = idata + 1
1441  data_tmp = iand(pack_tmp, mask_right(nbits))
1442  full_data(idata) = data_tmp
1443  pack_tmp = ishft(pack_tmp, -nbits)
1444  idata = idata + 1
1445  data_tmp = iand(pack_tmp, mask_right(nbits))
1446  full_data(idata) = data_tmp
1447  pack_tmp = ishft(pack_tmp, -nbits)
1448  idata = idata + 1
1449  data_tmp = iand(pack_tmp, mask_right(nbits))
1450  full_data(idata) = data_tmp
1451  pack_tmp = ishft(pack_tmp, -nbits)
1452  idata = idata + 1
1453  data_tmp = iand(pack_tmp, mask_right(nbits))
1454  full_data(idata) = data_tmp
1455  pack_tmp = ishft(pack_tmp, -nbits)
1456  idata = idata + 1
1457  data_tmp = iand(pack_tmp, mask_right(nbits))
1458  full_data(idata) = data_tmp
1459  pack_tmp = ishft(pack_tmp, -nbits)
1460  END DO
1461  IF (ndata_rep < ndata) THEN
1462  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
1463  END IF
1464  END SUBROUTINE bits2ints_2
1465 
1466 ! **************************************************************************************************
1467 !> \brief ...
1468 !> \param Ndata ...
1469 !> \param packed_data ...
1470 !> \param full_data ...
1471 ! **************************************************************************************************
1472  SUBROUTINE ints2bits_3(Ndata, packed_data, full_data)
1473  INTEGER, INTENT(IN) :: Ndata
1474  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
1475  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
1476 
1477  INTEGER, PARAMETER :: Nbits = 3
1478 
1479  INTEGER :: idata, ipack, kdata, Ndata_rep
1480  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
1481 
1482  idata = 0
1483  ipack = 0
1484  ndata_rep = (ndata/64)*64
1485  DO kdata = 1, ndata_rep, 64
1486  pack_tmp = 0
1487  idata = idata + 1
1488  data_tmp = full_data(idata)
1489  data_tmp = ishft(data_tmp, 61)
1490  pack_tmp = ior(pack_tmp, data_tmp)
1491  pack_tmp = ishft(pack_tmp, -3)
1492  idata = idata + 1
1493  data_tmp = full_data(idata)
1494  data_tmp = ishft(data_tmp, 61)
1495  pack_tmp = ior(pack_tmp, data_tmp)
1496  pack_tmp = ishft(pack_tmp, -3)
1497  idata = idata + 1
1498  data_tmp = full_data(idata)
1499  data_tmp = ishft(data_tmp, 61)
1500  pack_tmp = ior(pack_tmp, data_tmp)
1501  pack_tmp = ishft(pack_tmp, -3)
1502  idata = idata + 1
1503  data_tmp = full_data(idata)
1504  data_tmp = ishft(data_tmp, 61)
1505  pack_tmp = ior(pack_tmp, data_tmp)
1506  pack_tmp = ishft(pack_tmp, -3)
1507  idata = idata + 1
1508  data_tmp = full_data(idata)
1509  data_tmp = ishft(data_tmp, 61)
1510  pack_tmp = ior(pack_tmp, data_tmp)
1511  pack_tmp = ishft(pack_tmp, -3)
1512  idata = idata + 1
1513  data_tmp = full_data(idata)
1514  data_tmp = ishft(data_tmp, 61)
1515  pack_tmp = ior(pack_tmp, data_tmp)
1516  pack_tmp = ishft(pack_tmp, -3)
1517  idata = idata + 1
1518  data_tmp = full_data(idata)
1519  data_tmp = ishft(data_tmp, 61)
1520  pack_tmp = ior(pack_tmp, data_tmp)
1521  pack_tmp = ishft(pack_tmp, -3)
1522  idata = idata + 1
1523  data_tmp = full_data(idata)
1524  data_tmp = ishft(data_tmp, 61)
1525  pack_tmp = ior(pack_tmp, data_tmp)
1526  pack_tmp = ishft(pack_tmp, -3)
1527  idata = idata + 1
1528  data_tmp = full_data(idata)
1529  data_tmp = ishft(data_tmp, 61)
1530  pack_tmp = ior(pack_tmp, data_tmp)
1531  pack_tmp = ishft(pack_tmp, -3)
1532  idata = idata + 1
1533  data_tmp = full_data(idata)
1534  data_tmp = ishft(data_tmp, 61)
1535  pack_tmp = ior(pack_tmp, data_tmp)
1536  pack_tmp = ishft(pack_tmp, -3)
1537  idata = idata + 1
1538  data_tmp = full_data(idata)
1539  data_tmp = ishft(data_tmp, 61)
1540  pack_tmp = ior(pack_tmp, data_tmp)
1541  pack_tmp = ishft(pack_tmp, -3)
1542  idata = idata + 1
1543  data_tmp = full_data(idata)
1544  data_tmp = ishft(data_tmp, 61)
1545  pack_tmp = ior(pack_tmp, data_tmp)
1546  pack_tmp = ishft(pack_tmp, -3)
1547  idata = idata + 1
1548  data_tmp = full_data(idata)
1549  data_tmp = ishft(data_tmp, 61)
1550  pack_tmp = ior(pack_tmp, data_tmp)
1551  pack_tmp = ishft(pack_tmp, -3)
1552  idata = idata + 1
1553  data_tmp = full_data(idata)
1554  data_tmp = ishft(data_tmp, 61)
1555  pack_tmp = ior(pack_tmp, data_tmp)
1556  pack_tmp = ishft(pack_tmp, -3)
1557  idata = idata + 1
1558  data_tmp = full_data(idata)
1559  data_tmp = ishft(data_tmp, 61)
1560  pack_tmp = ior(pack_tmp, data_tmp)
1561  pack_tmp = ishft(pack_tmp, -3)
1562  idata = idata + 1
1563  data_tmp = full_data(idata)
1564  data_tmp = ishft(data_tmp, 61)
1565  pack_tmp = ior(pack_tmp, data_tmp)
1566  pack_tmp = ishft(pack_tmp, -3)
1567  idata = idata + 1
1568  data_tmp = full_data(idata)
1569  data_tmp = ishft(data_tmp, 61)
1570  pack_tmp = ior(pack_tmp, data_tmp)
1571  pack_tmp = ishft(pack_tmp, -3)
1572  idata = idata + 1
1573  data_tmp = full_data(idata)
1574  data_tmp = ishft(data_tmp, 61)
1575  pack_tmp = ior(pack_tmp, data_tmp)
1576  pack_tmp = ishft(pack_tmp, -3)
1577  idata = idata + 1
1578  data_tmp = full_data(idata)
1579  data_tmp = ishft(data_tmp, 61)
1580  pack_tmp = ior(pack_tmp, data_tmp)
1581  pack_tmp = ishft(pack_tmp, -3)
1582  idata = idata + 1
1583  data_tmp = full_data(idata)
1584  data_tmp = ishft(data_tmp, 61)
1585  pack_tmp = ior(pack_tmp, data_tmp)
1586  pack_tmp = ishft(pack_tmp, -3)
1587  idata = idata + 1
1588  data_tmp = full_data(idata)
1589  data_tmp = ishft(data_tmp, 61)
1590  pack_tmp = ior(pack_tmp, data_tmp)
1591  pack_tmp = ishft(pack_tmp, -1)
1592  idata = idata + 1
1593  data_tmp = full_data(idata)
1594  data_tmp = ishft(data_tmp, 61)
1595  data_tmp = iand(data_tmp, mask_left(1))
1596  pack_tmp = ior(pack_tmp, data_tmp)
1597  ipack = ipack + 1
1598  packed_data(ipack) = pack_tmp
1599  data_tmp = full_data(idata)
1600  pack_tmp = ishft(data_tmp, 62)
1601  pack_tmp = ishft(pack_tmp, -3)
1602  idata = idata + 1
1603  data_tmp = full_data(idata)
1604  data_tmp = ishft(data_tmp, 61)
1605  pack_tmp = ior(pack_tmp, data_tmp)
1606  pack_tmp = ishft(pack_tmp, -3)
1607  idata = idata + 1
1608  data_tmp = full_data(idata)
1609  data_tmp = ishft(data_tmp, 61)
1610  pack_tmp = ior(pack_tmp, data_tmp)
1611  pack_tmp = ishft(pack_tmp, -3)
1612  idata = idata + 1
1613  data_tmp = full_data(idata)
1614  data_tmp = ishft(data_tmp, 61)
1615  pack_tmp = ior(pack_tmp, data_tmp)
1616  pack_tmp = ishft(pack_tmp, -3)
1617  idata = idata + 1
1618  data_tmp = full_data(idata)
1619  data_tmp = ishft(data_tmp, 61)
1620  pack_tmp = ior(pack_tmp, data_tmp)
1621  pack_tmp = ishft(pack_tmp, -3)
1622  idata = idata + 1
1623  data_tmp = full_data(idata)
1624  data_tmp = ishft(data_tmp, 61)
1625  pack_tmp = ior(pack_tmp, data_tmp)
1626  pack_tmp = ishft(pack_tmp, -3)
1627  idata = idata + 1
1628  data_tmp = full_data(idata)
1629  data_tmp = ishft(data_tmp, 61)
1630  pack_tmp = ior(pack_tmp, data_tmp)
1631  pack_tmp = ishft(pack_tmp, -3)
1632  idata = idata + 1
1633  data_tmp = full_data(idata)
1634  data_tmp = ishft(data_tmp, 61)
1635  pack_tmp = ior(pack_tmp, data_tmp)
1636  pack_tmp = ishft(pack_tmp, -3)
1637  idata = idata + 1
1638  data_tmp = full_data(idata)
1639  data_tmp = ishft(data_tmp, 61)
1640  pack_tmp = ior(pack_tmp, data_tmp)
1641  pack_tmp = ishft(pack_tmp, -3)
1642  idata = idata + 1
1643  data_tmp = full_data(idata)
1644  data_tmp = ishft(data_tmp, 61)
1645  pack_tmp = ior(pack_tmp, data_tmp)
1646  pack_tmp = ishft(pack_tmp, -3)
1647  idata = idata + 1
1648  data_tmp = full_data(idata)
1649  data_tmp = ishft(data_tmp, 61)
1650  pack_tmp = ior(pack_tmp, data_tmp)
1651  pack_tmp = ishft(pack_tmp, -3)
1652  idata = idata + 1
1653  data_tmp = full_data(idata)
1654  data_tmp = ishft(data_tmp, 61)
1655  pack_tmp = ior(pack_tmp, data_tmp)
1656  pack_tmp = ishft(pack_tmp, -3)
1657  idata = idata + 1
1658  data_tmp = full_data(idata)
1659  data_tmp = ishft(data_tmp, 61)
1660  pack_tmp = ior(pack_tmp, data_tmp)
1661  pack_tmp = ishft(pack_tmp, -3)
1662  idata = idata + 1
1663  data_tmp = full_data(idata)
1664  data_tmp = ishft(data_tmp, 61)
1665  pack_tmp = ior(pack_tmp, data_tmp)
1666  pack_tmp = ishft(pack_tmp, -3)
1667  idata = idata + 1
1668  data_tmp = full_data(idata)
1669  data_tmp = ishft(data_tmp, 61)
1670  pack_tmp = ior(pack_tmp, data_tmp)
1671  pack_tmp = ishft(pack_tmp, -3)
1672  idata = idata + 1
1673  data_tmp = full_data(idata)
1674  data_tmp = ishft(data_tmp, 61)
1675  pack_tmp = ior(pack_tmp, data_tmp)
1676  pack_tmp = ishft(pack_tmp, -3)
1677  idata = idata + 1
1678  data_tmp = full_data(idata)
1679  data_tmp = ishft(data_tmp, 61)
1680  pack_tmp = ior(pack_tmp, data_tmp)
1681  pack_tmp = ishft(pack_tmp, -3)
1682  idata = idata + 1
1683  data_tmp = full_data(idata)
1684  data_tmp = ishft(data_tmp, 61)
1685  pack_tmp = ior(pack_tmp, data_tmp)
1686  pack_tmp = ishft(pack_tmp, -3)
1687  idata = idata + 1
1688  data_tmp = full_data(idata)
1689  data_tmp = ishft(data_tmp, 61)
1690  pack_tmp = ior(pack_tmp, data_tmp)
1691  pack_tmp = ishft(pack_tmp, -3)
1692  idata = idata + 1
1693  data_tmp = full_data(idata)
1694  data_tmp = ishft(data_tmp, 61)
1695  pack_tmp = ior(pack_tmp, data_tmp)
1696  pack_tmp = ishft(pack_tmp, -3)
1697  idata = idata + 1
1698  data_tmp = full_data(idata)
1699  data_tmp = ishft(data_tmp, 61)
1700  pack_tmp = ior(pack_tmp, data_tmp)
1701  pack_tmp = ishft(pack_tmp, -2)
1702  idata = idata + 1
1703  data_tmp = full_data(idata)
1704  data_tmp = ishft(data_tmp, 61)
1705  data_tmp = iand(data_tmp, mask_left(2))
1706  pack_tmp = ior(pack_tmp, data_tmp)
1707  ipack = ipack + 1
1708  packed_data(ipack) = pack_tmp
1709  data_tmp = full_data(idata)
1710  pack_tmp = ishft(data_tmp, 63)
1711  pack_tmp = ishft(pack_tmp, -3)
1712  idata = idata + 1
1713  data_tmp = full_data(idata)
1714  data_tmp = ishft(data_tmp, 61)
1715  pack_tmp = ior(pack_tmp, data_tmp)
1716  pack_tmp = ishft(pack_tmp, -3)
1717  idata = idata + 1
1718  data_tmp = full_data(idata)
1719  data_tmp = ishft(data_tmp, 61)
1720  pack_tmp = ior(pack_tmp, data_tmp)
1721  pack_tmp = ishft(pack_tmp, -3)
1722  idata = idata + 1
1723  data_tmp = full_data(idata)
1724  data_tmp = ishft(data_tmp, 61)
1725  pack_tmp = ior(pack_tmp, data_tmp)
1726  pack_tmp = ishft(pack_tmp, -3)
1727  idata = idata + 1
1728  data_tmp = full_data(idata)
1729  data_tmp = ishft(data_tmp, 61)
1730  pack_tmp = ior(pack_tmp, data_tmp)
1731  pack_tmp = ishft(pack_tmp, -3)
1732  idata = idata + 1
1733  data_tmp = full_data(idata)
1734  data_tmp = ishft(data_tmp, 61)
1735  pack_tmp = ior(pack_tmp, data_tmp)
1736  pack_tmp = ishft(pack_tmp, -3)
1737  idata = idata + 1
1738  data_tmp = full_data(idata)
1739  data_tmp = ishft(data_tmp, 61)
1740  pack_tmp = ior(pack_tmp, data_tmp)
1741  pack_tmp = ishft(pack_tmp, -3)
1742  idata = idata + 1
1743  data_tmp = full_data(idata)
1744  data_tmp = ishft(data_tmp, 61)
1745  pack_tmp = ior(pack_tmp, data_tmp)
1746  pack_tmp = ishft(pack_tmp, -3)
1747  idata = idata + 1
1748  data_tmp = full_data(idata)
1749  data_tmp = ishft(data_tmp, 61)
1750  pack_tmp = ior(pack_tmp, data_tmp)
1751  pack_tmp = ishft(pack_tmp, -3)
1752  idata = idata + 1
1753  data_tmp = full_data(idata)
1754  data_tmp = ishft(data_tmp, 61)
1755  pack_tmp = ior(pack_tmp, data_tmp)
1756  pack_tmp = ishft(pack_tmp, -3)
1757  idata = idata + 1
1758  data_tmp = full_data(idata)
1759  data_tmp = ishft(data_tmp, 61)
1760  pack_tmp = ior(pack_tmp, data_tmp)
1761  pack_tmp = ishft(pack_tmp, -3)
1762  idata = idata + 1
1763  data_tmp = full_data(idata)
1764  data_tmp = ishft(data_tmp, 61)
1765  pack_tmp = ior(pack_tmp, data_tmp)
1766  pack_tmp = ishft(pack_tmp, -3)
1767  idata = idata + 1
1768  data_tmp = full_data(idata)
1769  data_tmp = ishft(data_tmp, 61)
1770  pack_tmp = ior(pack_tmp, data_tmp)
1771  pack_tmp = ishft(pack_tmp, -3)
1772  idata = idata + 1
1773  data_tmp = full_data(idata)
1774  data_tmp = ishft(data_tmp, 61)
1775  pack_tmp = ior(pack_tmp, data_tmp)
1776  pack_tmp = ishft(pack_tmp, -3)
1777  idata = idata + 1
1778  data_tmp = full_data(idata)
1779  data_tmp = ishft(data_tmp, 61)
1780  pack_tmp = ior(pack_tmp, data_tmp)
1781  pack_tmp = ishft(pack_tmp, -3)
1782  idata = idata + 1
1783  data_tmp = full_data(idata)
1784  data_tmp = ishft(data_tmp, 61)
1785  pack_tmp = ior(pack_tmp, data_tmp)
1786  pack_tmp = ishft(pack_tmp, -3)
1787  idata = idata + 1
1788  data_tmp = full_data(idata)
1789  data_tmp = ishft(data_tmp, 61)
1790  pack_tmp = ior(pack_tmp, data_tmp)
1791  pack_tmp = ishft(pack_tmp, -3)
1792  idata = idata + 1
1793  data_tmp = full_data(idata)
1794  data_tmp = ishft(data_tmp, 61)
1795  pack_tmp = ior(pack_tmp, data_tmp)
1796  pack_tmp = ishft(pack_tmp, -3)
1797  idata = idata + 1
1798  data_tmp = full_data(idata)
1799  data_tmp = ishft(data_tmp, 61)
1800  pack_tmp = ior(pack_tmp, data_tmp)
1801  pack_tmp = ishft(pack_tmp, -3)
1802  idata = idata + 1
1803  data_tmp = full_data(idata)
1804  data_tmp = ishft(data_tmp, 61)
1805  pack_tmp = ior(pack_tmp, data_tmp)
1806  pack_tmp = ishft(pack_tmp, -3)
1807  idata = idata + 1
1808  data_tmp = full_data(idata)
1809  data_tmp = ishft(data_tmp, 61)
1810  pack_tmp = ior(pack_tmp, data_tmp)
1811  pack_tmp = ishft(pack_tmp, -3)
1812  idata = idata + 1
1813  data_tmp = full_data(idata)
1814  data_tmp = ishft(data_tmp, 61)
1815  pack_tmp = ior(pack_tmp, data_tmp)
1816  pack_tmp = ishft(pack_tmp, 0)
1817  pack_tmp = ishft(pack_tmp, 0)
1818  ipack = ipack + 1
1819  packed_data(ipack) = pack_tmp
1820  END DO
1821  IF (ndata_rep < ndata) THEN
1822  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
1823  END IF
1824  END SUBROUTINE ints2bits_3
1825 
1826 ! **************************************************************************************************
1827 !> \brief ...
1828 !> \param Ndata ...
1829 !> \param packed_data ...
1830 !> \param full_data ...
1831 ! **************************************************************************************************
1832  SUBROUTINE bits2ints_3(Ndata, packed_data, full_data)
1833  INTEGER, INTENT(IN) :: Ndata
1834  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
1835  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
1836 
1837  INTEGER, PARAMETER :: Nbits = 3
1838 
1839  INTEGER :: idata, ipack, kdata, Ndata_rep
1840  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
1841 
1842  ipack = 0
1843  idata = 0
1844  pack_tmp = 0
1845  ndata_rep = (ndata/64)*64
1846  DO kdata = 1, ndata_rep, 64
1847  idata = idata + 1
1848  data_tmp = ishft(pack_tmp, 3)
1849  ipack = ipack + 1
1850  pack_tmp = packed_data(ipack)
1851  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
1852  pack_tmp = ishft(pack_tmp, -3)
1853  idata = idata + 1
1854  data_tmp = iand(pack_tmp, mask_right(nbits))
1855  full_data(idata) = data_tmp
1856  pack_tmp = ishft(pack_tmp, -nbits)
1857  idata = idata + 1
1858  data_tmp = iand(pack_tmp, mask_right(nbits))
1859  full_data(idata) = data_tmp
1860  pack_tmp = ishft(pack_tmp, -nbits)
1861  idata = idata + 1
1862  data_tmp = iand(pack_tmp, mask_right(nbits))
1863  full_data(idata) = data_tmp
1864  pack_tmp = ishft(pack_tmp, -nbits)
1865  idata = idata + 1
1866  data_tmp = iand(pack_tmp, mask_right(nbits))
1867  full_data(idata) = data_tmp
1868  pack_tmp = ishft(pack_tmp, -nbits)
1869  idata = idata + 1
1870  data_tmp = iand(pack_tmp, mask_right(nbits))
1871  full_data(idata) = data_tmp
1872  pack_tmp = ishft(pack_tmp, -nbits)
1873  idata = idata + 1
1874  data_tmp = iand(pack_tmp, mask_right(nbits))
1875  full_data(idata) = data_tmp
1876  pack_tmp = ishft(pack_tmp, -nbits)
1877  idata = idata + 1
1878  data_tmp = iand(pack_tmp, mask_right(nbits))
1879  full_data(idata) = data_tmp
1880  pack_tmp = ishft(pack_tmp, -nbits)
1881  idata = idata + 1
1882  data_tmp = iand(pack_tmp, mask_right(nbits))
1883  full_data(idata) = data_tmp
1884  pack_tmp = ishft(pack_tmp, -nbits)
1885  idata = idata + 1
1886  data_tmp = iand(pack_tmp, mask_right(nbits))
1887  full_data(idata) = data_tmp
1888  pack_tmp = ishft(pack_tmp, -nbits)
1889  idata = idata + 1
1890  data_tmp = iand(pack_tmp, mask_right(nbits))
1891  full_data(idata) = data_tmp
1892  pack_tmp = ishft(pack_tmp, -nbits)
1893  idata = idata + 1
1894  data_tmp = iand(pack_tmp, mask_right(nbits))
1895  full_data(idata) = data_tmp
1896  pack_tmp = ishft(pack_tmp, -nbits)
1897  idata = idata + 1
1898  data_tmp = iand(pack_tmp, mask_right(nbits))
1899  full_data(idata) = data_tmp
1900  pack_tmp = ishft(pack_tmp, -nbits)
1901  idata = idata + 1
1902  data_tmp = iand(pack_tmp, mask_right(nbits))
1903  full_data(idata) = data_tmp
1904  pack_tmp = ishft(pack_tmp, -nbits)
1905  idata = idata + 1
1906  data_tmp = iand(pack_tmp, mask_right(nbits))
1907  full_data(idata) = data_tmp
1908  pack_tmp = ishft(pack_tmp, -nbits)
1909  idata = idata + 1
1910  data_tmp = iand(pack_tmp, mask_right(nbits))
1911  full_data(idata) = data_tmp
1912  pack_tmp = ishft(pack_tmp, -nbits)
1913  idata = idata + 1
1914  data_tmp = iand(pack_tmp, mask_right(nbits))
1915  full_data(idata) = data_tmp
1916  pack_tmp = ishft(pack_tmp, -nbits)
1917  idata = idata + 1
1918  data_tmp = iand(pack_tmp, mask_right(nbits))
1919  full_data(idata) = data_tmp
1920  pack_tmp = ishft(pack_tmp, -nbits)
1921  idata = idata + 1
1922  data_tmp = iand(pack_tmp, mask_right(nbits))
1923  full_data(idata) = data_tmp
1924  pack_tmp = ishft(pack_tmp, -nbits)
1925  idata = idata + 1
1926  data_tmp = iand(pack_tmp, mask_right(nbits))
1927  full_data(idata) = data_tmp
1928  pack_tmp = ishft(pack_tmp, -nbits)
1929  idata = idata + 1
1930  data_tmp = iand(pack_tmp, mask_right(nbits))
1931  full_data(idata) = data_tmp
1932  pack_tmp = ishft(pack_tmp, -nbits)
1933  idata = idata + 1
1934  data_tmp = ishft(pack_tmp, 2)
1935  ipack = ipack + 1
1936  pack_tmp = packed_data(ipack)
1937  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
1938  pack_tmp = ishft(pack_tmp, -2)
1939  idata = idata + 1
1940  data_tmp = iand(pack_tmp, mask_right(nbits))
1941  full_data(idata) = data_tmp
1942  pack_tmp = ishft(pack_tmp, -nbits)
1943  idata = idata + 1
1944  data_tmp = iand(pack_tmp, mask_right(nbits))
1945  full_data(idata) = data_tmp
1946  pack_tmp = ishft(pack_tmp, -nbits)
1947  idata = idata + 1
1948  data_tmp = iand(pack_tmp, mask_right(nbits))
1949  full_data(idata) = data_tmp
1950  pack_tmp = ishft(pack_tmp, -nbits)
1951  idata = idata + 1
1952  data_tmp = iand(pack_tmp, mask_right(nbits))
1953  full_data(idata) = data_tmp
1954  pack_tmp = ishft(pack_tmp, -nbits)
1955  idata = idata + 1
1956  data_tmp = iand(pack_tmp, mask_right(nbits))
1957  full_data(idata) = data_tmp
1958  pack_tmp = ishft(pack_tmp, -nbits)
1959  idata = idata + 1
1960  data_tmp = iand(pack_tmp, mask_right(nbits))
1961  full_data(idata) = data_tmp
1962  pack_tmp = ishft(pack_tmp, -nbits)
1963  idata = idata + 1
1964  data_tmp = iand(pack_tmp, mask_right(nbits))
1965  full_data(idata) = data_tmp
1966  pack_tmp = ishft(pack_tmp, -nbits)
1967  idata = idata + 1
1968  data_tmp = iand(pack_tmp, mask_right(nbits))
1969  full_data(idata) = data_tmp
1970  pack_tmp = ishft(pack_tmp, -nbits)
1971  idata = idata + 1
1972  data_tmp = iand(pack_tmp, mask_right(nbits))
1973  full_data(idata) = data_tmp
1974  pack_tmp = ishft(pack_tmp, -nbits)
1975  idata = idata + 1
1976  data_tmp = iand(pack_tmp, mask_right(nbits))
1977  full_data(idata) = data_tmp
1978  pack_tmp = ishft(pack_tmp, -nbits)
1979  idata = idata + 1
1980  data_tmp = iand(pack_tmp, mask_right(nbits))
1981  full_data(idata) = data_tmp
1982  pack_tmp = ishft(pack_tmp, -nbits)
1983  idata = idata + 1
1984  data_tmp = iand(pack_tmp, mask_right(nbits))
1985  full_data(idata) = data_tmp
1986  pack_tmp = ishft(pack_tmp, -nbits)
1987  idata = idata + 1
1988  data_tmp = iand(pack_tmp, mask_right(nbits))
1989  full_data(idata) = data_tmp
1990  pack_tmp = ishft(pack_tmp, -nbits)
1991  idata = idata + 1
1992  data_tmp = iand(pack_tmp, mask_right(nbits))
1993  full_data(idata) = data_tmp
1994  pack_tmp = ishft(pack_tmp, -nbits)
1995  idata = idata + 1
1996  data_tmp = iand(pack_tmp, mask_right(nbits))
1997  full_data(idata) = data_tmp
1998  pack_tmp = ishft(pack_tmp, -nbits)
1999  idata = idata + 1
2000  data_tmp = iand(pack_tmp, mask_right(nbits))
2001  full_data(idata) = data_tmp
2002  pack_tmp = ishft(pack_tmp, -nbits)
2003  idata = idata + 1
2004  data_tmp = iand(pack_tmp, mask_right(nbits))
2005  full_data(idata) = data_tmp
2006  pack_tmp = ishft(pack_tmp, -nbits)
2007  idata = idata + 1
2008  data_tmp = iand(pack_tmp, mask_right(nbits))
2009  full_data(idata) = data_tmp
2010  pack_tmp = ishft(pack_tmp, -nbits)
2011  idata = idata + 1
2012  data_tmp = iand(pack_tmp, mask_right(nbits))
2013  full_data(idata) = data_tmp
2014  pack_tmp = ishft(pack_tmp, -nbits)
2015  idata = idata + 1
2016  data_tmp = iand(pack_tmp, mask_right(nbits))
2017  full_data(idata) = data_tmp
2018  pack_tmp = ishft(pack_tmp, -nbits)
2019  idata = idata + 1
2020  data_tmp = ishft(pack_tmp, 1)
2021  ipack = ipack + 1
2022  pack_tmp = packed_data(ipack)
2023  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
2024  pack_tmp = ishft(pack_tmp, -1)
2025  idata = idata + 1
2026  data_tmp = iand(pack_tmp, mask_right(nbits))
2027  full_data(idata) = data_tmp
2028  pack_tmp = ishft(pack_tmp, -nbits)
2029  idata = idata + 1
2030  data_tmp = iand(pack_tmp, mask_right(nbits))
2031  full_data(idata) = data_tmp
2032  pack_tmp = ishft(pack_tmp, -nbits)
2033  idata = idata + 1
2034  data_tmp = iand(pack_tmp, mask_right(nbits))
2035  full_data(idata) = data_tmp
2036  pack_tmp = ishft(pack_tmp, -nbits)
2037  idata = idata + 1
2038  data_tmp = iand(pack_tmp, mask_right(nbits))
2039  full_data(idata) = data_tmp
2040  pack_tmp = ishft(pack_tmp, -nbits)
2041  idata = idata + 1
2042  data_tmp = iand(pack_tmp, mask_right(nbits))
2043  full_data(idata) = data_tmp
2044  pack_tmp = ishft(pack_tmp, -nbits)
2045  idata = idata + 1
2046  data_tmp = iand(pack_tmp, mask_right(nbits))
2047  full_data(idata) = data_tmp
2048  pack_tmp = ishft(pack_tmp, -nbits)
2049  idata = idata + 1
2050  data_tmp = iand(pack_tmp, mask_right(nbits))
2051  full_data(idata) = data_tmp
2052  pack_tmp = ishft(pack_tmp, -nbits)
2053  idata = idata + 1
2054  data_tmp = iand(pack_tmp, mask_right(nbits))
2055  full_data(idata) = data_tmp
2056  pack_tmp = ishft(pack_tmp, -nbits)
2057  idata = idata + 1
2058  data_tmp = iand(pack_tmp, mask_right(nbits))
2059  full_data(idata) = data_tmp
2060  pack_tmp = ishft(pack_tmp, -nbits)
2061  idata = idata + 1
2062  data_tmp = iand(pack_tmp, mask_right(nbits))
2063  full_data(idata) = data_tmp
2064  pack_tmp = ishft(pack_tmp, -nbits)
2065  idata = idata + 1
2066  data_tmp = iand(pack_tmp, mask_right(nbits))
2067  full_data(idata) = data_tmp
2068  pack_tmp = ishft(pack_tmp, -nbits)
2069  idata = idata + 1
2070  data_tmp = iand(pack_tmp, mask_right(nbits))
2071  full_data(idata) = data_tmp
2072  pack_tmp = ishft(pack_tmp, -nbits)
2073  idata = idata + 1
2074  data_tmp = iand(pack_tmp, mask_right(nbits))
2075  full_data(idata) = data_tmp
2076  pack_tmp = ishft(pack_tmp, -nbits)
2077  idata = idata + 1
2078  data_tmp = iand(pack_tmp, mask_right(nbits))
2079  full_data(idata) = data_tmp
2080  pack_tmp = ishft(pack_tmp, -nbits)
2081  idata = idata + 1
2082  data_tmp = iand(pack_tmp, mask_right(nbits))
2083  full_data(idata) = data_tmp
2084  pack_tmp = ishft(pack_tmp, -nbits)
2085  idata = idata + 1
2086  data_tmp = iand(pack_tmp, mask_right(nbits))
2087  full_data(idata) = data_tmp
2088  pack_tmp = ishft(pack_tmp, -nbits)
2089  idata = idata + 1
2090  data_tmp = iand(pack_tmp, mask_right(nbits))
2091  full_data(idata) = data_tmp
2092  pack_tmp = ishft(pack_tmp, -nbits)
2093  idata = idata + 1
2094  data_tmp = iand(pack_tmp, mask_right(nbits))
2095  full_data(idata) = data_tmp
2096  pack_tmp = ishft(pack_tmp, -nbits)
2097  idata = idata + 1
2098  data_tmp = iand(pack_tmp, mask_right(nbits))
2099  full_data(idata) = data_tmp
2100  pack_tmp = ishft(pack_tmp, -nbits)
2101  idata = idata + 1
2102  data_tmp = iand(pack_tmp, mask_right(nbits))
2103  full_data(idata) = data_tmp
2104  pack_tmp = ishft(pack_tmp, -nbits)
2105  idata = idata + 1
2106  data_tmp = iand(pack_tmp, mask_right(nbits))
2107  full_data(idata) = data_tmp
2108  pack_tmp = ishft(pack_tmp, -nbits)
2109  END DO
2110  IF (ndata_rep < ndata) THEN
2111  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
2112  END IF
2113  END SUBROUTINE bits2ints_3
2114 
2115 ! **************************************************************************************************
2116 !> \brief ...
2117 !> \param Ndata ...
2118 !> \param packed_data ...
2119 !> \param full_data ...
2120 ! **************************************************************************************************
2121  SUBROUTINE ints2bits_4(Ndata, packed_data, full_data)
2122  INTEGER, INTENT(IN) :: Ndata
2123  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
2124  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
2125 
2126  INTEGER, PARAMETER :: Nbits = 4
2127 
2128  INTEGER :: idata, ipack, kdata, Ndata_rep
2129  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
2130 
2131  idata = 0
2132  ipack = 0
2133  ndata_rep = (ndata/64)*64
2134  DO kdata = 1, ndata_rep, 64
2135  pack_tmp = 0
2136  idata = idata + 1
2137  data_tmp = full_data(idata)
2138  data_tmp = ishft(data_tmp, 60)
2139  pack_tmp = ior(pack_tmp, data_tmp)
2140  pack_tmp = ishft(pack_tmp, -4)
2141  idata = idata + 1
2142  data_tmp = full_data(idata)
2143  data_tmp = ishft(data_tmp, 60)
2144  pack_tmp = ior(pack_tmp, data_tmp)
2145  pack_tmp = ishft(pack_tmp, -4)
2146  idata = idata + 1
2147  data_tmp = full_data(idata)
2148  data_tmp = ishft(data_tmp, 60)
2149  pack_tmp = ior(pack_tmp, data_tmp)
2150  pack_tmp = ishft(pack_tmp, -4)
2151  idata = idata + 1
2152  data_tmp = full_data(idata)
2153  data_tmp = ishft(data_tmp, 60)
2154  pack_tmp = ior(pack_tmp, data_tmp)
2155  pack_tmp = ishft(pack_tmp, -4)
2156  idata = idata + 1
2157  data_tmp = full_data(idata)
2158  data_tmp = ishft(data_tmp, 60)
2159  pack_tmp = ior(pack_tmp, data_tmp)
2160  pack_tmp = ishft(pack_tmp, -4)
2161  idata = idata + 1
2162  data_tmp = full_data(idata)
2163  data_tmp = ishft(data_tmp, 60)
2164  pack_tmp = ior(pack_tmp, data_tmp)
2165  pack_tmp = ishft(pack_tmp, -4)
2166  idata = idata + 1
2167  data_tmp = full_data(idata)
2168  data_tmp = ishft(data_tmp, 60)
2169  pack_tmp = ior(pack_tmp, data_tmp)
2170  pack_tmp = ishft(pack_tmp, -4)
2171  idata = idata + 1
2172  data_tmp = full_data(idata)
2173  data_tmp = ishft(data_tmp, 60)
2174  pack_tmp = ior(pack_tmp, data_tmp)
2175  pack_tmp = ishft(pack_tmp, -4)
2176  idata = idata + 1
2177  data_tmp = full_data(idata)
2178  data_tmp = ishft(data_tmp, 60)
2179  pack_tmp = ior(pack_tmp, data_tmp)
2180  pack_tmp = ishft(pack_tmp, -4)
2181  idata = idata + 1
2182  data_tmp = full_data(idata)
2183  data_tmp = ishft(data_tmp, 60)
2184  pack_tmp = ior(pack_tmp, data_tmp)
2185  pack_tmp = ishft(pack_tmp, -4)
2186  idata = idata + 1
2187  data_tmp = full_data(idata)
2188  data_tmp = ishft(data_tmp, 60)
2189  pack_tmp = ior(pack_tmp, data_tmp)
2190  pack_tmp = ishft(pack_tmp, -4)
2191  idata = idata + 1
2192  data_tmp = full_data(idata)
2193  data_tmp = ishft(data_tmp, 60)
2194  pack_tmp = ior(pack_tmp, data_tmp)
2195  pack_tmp = ishft(pack_tmp, -4)
2196  idata = idata + 1
2197  data_tmp = full_data(idata)
2198  data_tmp = ishft(data_tmp, 60)
2199  pack_tmp = ior(pack_tmp, data_tmp)
2200  pack_tmp = ishft(pack_tmp, -4)
2201  idata = idata + 1
2202  data_tmp = full_data(idata)
2203  data_tmp = ishft(data_tmp, 60)
2204  pack_tmp = ior(pack_tmp, data_tmp)
2205  pack_tmp = ishft(pack_tmp, -4)
2206  idata = idata + 1
2207  data_tmp = full_data(idata)
2208  data_tmp = ishft(data_tmp, 60)
2209  pack_tmp = ior(pack_tmp, data_tmp)
2210  pack_tmp = ishft(pack_tmp, -4)
2211  idata = idata + 1
2212  data_tmp = full_data(idata)
2213  data_tmp = ishft(data_tmp, 60)
2214  pack_tmp = ior(pack_tmp, data_tmp)
2215  pack_tmp = ishft(pack_tmp, 0)
2216  idata = idata + 1
2217  data_tmp = full_data(idata)
2218  data_tmp = ishft(data_tmp, 60)
2219  data_tmp = iand(data_tmp, mask_left(0))
2220  pack_tmp = ior(pack_tmp, data_tmp)
2221  ipack = ipack + 1
2222  packed_data(ipack) = pack_tmp
2223  data_tmp = full_data(idata)
2224  pack_tmp = ishft(data_tmp, 60)
2225  pack_tmp = ishft(pack_tmp, -4)
2226  idata = idata + 1
2227  data_tmp = full_data(idata)
2228  data_tmp = ishft(data_tmp, 60)
2229  pack_tmp = ior(pack_tmp, data_tmp)
2230  pack_tmp = ishft(pack_tmp, -4)
2231  idata = idata + 1
2232  data_tmp = full_data(idata)
2233  data_tmp = ishft(data_tmp, 60)
2234  pack_tmp = ior(pack_tmp, data_tmp)
2235  pack_tmp = ishft(pack_tmp, -4)
2236  idata = idata + 1
2237  data_tmp = full_data(idata)
2238  data_tmp = ishft(data_tmp, 60)
2239  pack_tmp = ior(pack_tmp, data_tmp)
2240  pack_tmp = ishft(pack_tmp, -4)
2241  idata = idata + 1
2242  data_tmp = full_data(idata)
2243  data_tmp = ishft(data_tmp, 60)
2244  pack_tmp = ior(pack_tmp, data_tmp)
2245  pack_tmp = ishft(pack_tmp, -4)
2246  idata = idata + 1
2247  data_tmp = full_data(idata)
2248  data_tmp = ishft(data_tmp, 60)
2249  pack_tmp = ior(pack_tmp, data_tmp)
2250  pack_tmp = ishft(pack_tmp, -4)
2251  idata = idata + 1
2252  data_tmp = full_data(idata)
2253  data_tmp = ishft(data_tmp, 60)
2254  pack_tmp = ior(pack_tmp, data_tmp)
2255  pack_tmp = ishft(pack_tmp, -4)
2256  idata = idata + 1
2257  data_tmp = full_data(idata)
2258  data_tmp = ishft(data_tmp, 60)
2259  pack_tmp = ior(pack_tmp, data_tmp)
2260  pack_tmp = ishft(pack_tmp, -4)
2261  idata = idata + 1
2262  data_tmp = full_data(idata)
2263  data_tmp = ishft(data_tmp, 60)
2264  pack_tmp = ior(pack_tmp, data_tmp)
2265  pack_tmp = ishft(pack_tmp, -4)
2266  idata = idata + 1
2267  data_tmp = full_data(idata)
2268  data_tmp = ishft(data_tmp, 60)
2269  pack_tmp = ior(pack_tmp, data_tmp)
2270  pack_tmp = ishft(pack_tmp, -4)
2271  idata = idata + 1
2272  data_tmp = full_data(idata)
2273  data_tmp = ishft(data_tmp, 60)
2274  pack_tmp = ior(pack_tmp, data_tmp)
2275  pack_tmp = ishft(pack_tmp, -4)
2276  idata = idata + 1
2277  data_tmp = full_data(idata)
2278  data_tmp = ishft(data_tmp, 60)
2279  pack_tmp = ior(pack_tmp, data_tmp)
2280  pack_tmp = ishft(pack_tmp, -4)
2281  idata = idata + 1
2282  data_tmp = full_data(idata)
2283  data_tmp = ishft(data_tmp, 60)
2284  pack_tmp = ior(pack_tmp, data_tmp)
2285  pack_tmp = ishft(pack_tmp, -4)
2286  idata = idata + 1
2287  data_tmp = full_data(idata)
2288  data_tmp = ishft(data_tmp, 60)
2289  pack_tmp = ior(pack_tmp, data_tmp)
2290  pack_tmp = ishft(pack_tmp, -4)
2291  idata = idata + 1
2292  data_tmp = full_data(idata)
2293  data_tmp = ishft(data_tmp, 60)
2294  pack_tmp = ior(pack_tmp, data_tmp)
2295  pack_tmp = ishft(pack_tmp, -4)
2296  idata = idata + 1
2297  data_tmp = full_data(idata)
2298  data_tmp = ishft(data_tmp, 60)
2299  pack_tmp = ior(pack_tmp, data_tmp)
2300  pack_tmp = ishft(pack_tmp, 0)
2301  idata = idata + 1
2302  data_tmp = full_data(idata)
2303  data_tmp = ishft(data_tmp, 60)
2304  data_tmp = iand(data_tmp, mask_left(0))
2305  pack_tmp = ior(pack_tmp, data_tmp)
2306  ipack = ipack + 1
2307  packed_data(ipack) = pack_tmp
2308  data_tmp = full_data(idata)
2309  pack_tmp = ishft(data_tmp, 60)
2310  pack_tmp = ishft(pack_tmp, -4)
2311  idata = idata + 1
2312  data_tmp = full_data(idata)
2313  data_tmp = ishft(data_tmp, 60)
2314  pack_tmp = ior(pack_tmp, data_tmp)
2315  pack_tmp = ishft(pack_tmp, -4)
2316  idata = idata + 1
2317  data_tmp = full_data(idata)
2318  data_tmp = ishft(data_tmp, 60)
2319  pack_tmp = ior(pack_tmp, data_tmp)
2320  pack_tmp = ishft(pack_tmp, -4)
2321  idata = idata + 1
2322  data_tmp = full_data(idata)
2323  data_tmp = ishft(data_tmp, 60)
2324  pack_tmp = ior(pack_tmp, data_tmp)
2325  pack_tmp = ishft(pack_tmp, -4)
2326  idata = idata + 1
2327  data_tmp = full_data(idata)
2328  data_tmp = ishft(data_tmp, 60)
2329  pack_tmp = ior(pack_tmp, data_tmp)
2330  pack_tmp = ishft(pack_tmp, -4)
2331  idata = idata + 1
2332  data_tmp = full_data(idata)
2333  data_tmp = ishft(data_tmp, 60)
2334  pack_tmp = ior(pack_tmp, data_tmp)
2335  pack_tmp = ishft(pack_tmp, -4)
2336  idata = idata + 1
2337  data_tmp = full_data(idata)
2338  data_tmp = ishft(data_tmp, 60)
2339  pack_tmp = ior(pack_tmp, data_tmp)
2340  pack_tmp = ishft(pack_tmp, -4)
2341  idata = idata + 1
2342  data_tmp = full_data(idata)
2343  data_tmp = ishft(data_tmp, 60)
2344  pack_tmp = ior(pack_tmp, data_tmp)
2345  pack_tmp = ishft(pack_tmp, -4)
2346  idata = idata + 1
2347  data_tmp = full_data(idata)
2348  data_tmp = ishft(data_tmp, 60)
2349  pack_tmp = ior(pack_tmp, data_tmp)
2350  pack_tmp = ishft(pack_tmp, -4)
2351  idata = idata + 1
2352  data_tmp = full_data(idata)
2353  data_tmp = ishft(data_tmp, 60)
2354  pack_tmp = ior(pack_tmp, data_tmp)
2355  pack_tmp = ishft(pack_tmp, -4)
2356  idata = idata + 1
2357  data_tmp = full_data(idata)
2358  data_tmp = ishft(data_tmp, 60)
2359  pack_tmp = ior(pack_tmp, data_tmp)
2360  pack_tmp = ishft(pack_tmp, -4)
2361  idata = idata + 1
2362  data_tmp = full_data(idata)
2363  data_tmp = ishft(data_tmp, 60)
2364  pack_tmp = ior(pack_tmp, data_tmp)
2365  pack_tmp = ishft(pack_tmp, -4)
2366  idata = idata + 1
2367  data_tmp = full_data(idata)
2368  data_tmp = ishft(data_tmp, 60)
2369  pack_tmp = ior(pack_tmp, data_tmp)
2370  pack_tmp = ishft(pack_tmp, -4)
2371  idata = idata + 1
2372  data_tmp = full_data(idata)
2373  data_tmp = ishft(data_tmp, 60)
2374  pack_tmp = ior(pack_tmp, data_tmp)
2375  pack_tmp = ishft(pack_tmp, -4)
2376  idata = idata + 1
2377  data_tmp = full_data(idata)
2378  data_tmp = ishft(data_tmp, 60)
2379  pack_tmp = ior(pack_tmp, data_tmp)
2380  pack_tmp = ishft(pack_tmp, -4)
2381  idata = idata + 1
2382  data_tmp = full_data(idata)
2383  data_tmp = ishft(data_tmp, 60)
2384  pack_tmp = ior(pack_tmp, data_tmp)
2385  pack_tmp = ishft(pack_tmp, 0)
2386  idata = idata + 1
2387  data_tmp = full_data(idata)
2388  data_tmp = ishft(data_tmp, 60)
2389  data_tmp = iand(data_tmp, mask_left(0))
2390  pack_tmp = ior(pack_tmp, data_tmp)
2391  ipack = ipack + 1
2392  packed_data(ipack) = pack_tmp
2393  data_tmp = full_data(idata)
2394  pack_tmp = ishft(data_tmp, 60)
2395  pack_tmp = ishft(pack_tmp, -4)
2396  idata = idata + 1
2397  data_tmp = full_data(idata)
2398  data_tmp = ishft(data_tmp, 60)
2399  pack_tmp = ior(pack_tmp, data_tmp)
2400  pack_tmp = ishft(pack_tmp, -4)
2401  idata = idata + 1
2402  data_tmp = full_data(idata)
2403  data_tmp = ishft(data_tmp, 60)
2404  pack_tmp = ior(pack_tmp, data_tmp)
2405  pack_tmp = ishft(pack_tmp, -4)
2406  idata = idata + 1
2407  data_tmp = full_data(idata)
2408  data_tmp = ishft(data_tmp, 60)
2409  pack_tmp = ior(pack_tmp, data_tmp)
2410  pack_tmp = ishft(pack_tmp, -4)
2411  idata = idata + 1
2412  data_tmp = full_data(idata)
2413  data_tmp = ishft(data_tmp, 60)
2414  pack_tmp = ior(pack_tmp, data_tmp)
2415  pack_tmp = ishft(pack_tmp, -4)
2416  idata = idata + 1
2417  data_tmp = full_data(idata)
2418  data_tmp = ishft(data_tmp, 60)
2419  pack_tmp = ior(pack_tmp, data_tmp)
2420  pack_tmp = ishft(pack_tmp, -4)
2421  idata = idata + 1
2422  data_tmp = full_data(idata)
2423  data_tmp = ishft(data_tmp, 60)
2424  pack_tmp = ior(pack_tmp, data_tmp)
2425  pack_tmp = ishft(pack_tmp, -4)
2426  idata = idata + 1
2427  data_tmp = full_data(idata)
2428  data_tmp = ishft(data_tmp, 60)
2429  pack_tmp = ior(pack_tmp, data_tmp)
2430  pack_tmp = ishft(pack_tmp, -4)
2431  idata = idata + 1
2432  data_tmp = full_data(idata)
2433  data_tmp = ishft(data_tmp, 60)
2434  pack_tmp = ior(pack_tmp, data_tmp)
2435  pack_tmp = ishft(pack_tmp, -4)
2436  idata = idata + 1
2437  data_tmp = full_data(idata)
2438  data_tmp = ishft(data_tmp, 60)
2439  pack_tmp = ior(pack_tmp, data_tmp)
2440  pack_tmp = ishft(pack_tmp, -4)
2441  idata = idata + 1
2442  data_tmp = full_data(idata)
2443  data_tmp = ishft(data_tmp, 60)
2444  pack_tmp = ior(pack_tmp, data_tmp)
2445  pack_tmp = ishft(pack_tmp, -4)
2446  idata = idata + 1
2447  data_tmp = full_data(idata)
2448  data_tmp = ishft(data_tmp, 60)
2449  pack_tmp = ior(pack_tmp, data_tmp)
2450  pack_tmp = ishft(pack_tmp, -4)
2451  idata = idata + 1
2452  data_tmp = full_data(idata)
2453  data_tmp = ishft(data_tmp, 60)
2454  pack_tmp = ior(pack_tmp, data_tmp)
2455  pack_tmp = ishft(pack_tmp, -4)
2456  idata = idata + 1
2457  data_tmp = full_data(idata)
2458  data_tmp = ishft(data_tmp, 60)
2459  pack_tmp = ior(pack_tmp, data_tmp)
2460  pack_tmp = ishft(pack_tmp, -4)
2461  idata = idata + 1
2462  data_tmp = full_data(idata)
2463  data_tmp = ishft(data_tmp, 60)
2464  pack_tmp = ior(pack_tmp, data_tmp)
2465  pack_tmp = ishft(pack_tmp, -4)
2466  idata = idata + 1
2467  data_tmp = full_data(idata)
2468  data_tmp = ishft(data_tmp, 60)
2469  pack_tmp = ior(pack_tmp, data_tmp)
2470  pack_tmp = ishft(pack_tmp, 0)
2471  pack_tmp = ishft(pack_tmp, 0)
2472  ipack = ipack + 1
2473  packed_data(ipack) = pack_tmp
2474  END DO
2475  IF (ndata_rep < ndata) THEN
2476  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
2477  END IF
2478  END SUBROUTINE ints2bits_4
2479 
2480 ! **************************************************************************************************
2481 !> \brief ...
2482 !> \param Ndata ...
2483 !> \param packed_data ...
2484 !> \param full_data ...
2485 ! **************************************************************************************************
2486  SUBROUTINE bits2ints_4(Ndata, packed_data, full_data)
2487  INTEGER, INTENT(IN) :: Ndata
2488  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
2489  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
2490 
2491  INTEGER, PARAMETER :: Nbits = 4
2492 
2493  INTEGER :: idata, ipack, kdata, Ndata_rep
2494  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
2495 
2496  ipack = 0
2497  idata = 0
2498  pack_tmp = 0
2499  ndata_rep = (ndata/64)*64
2500  DO kdata = 1, ndata_rep, 64
2501  idata = idata + 1
2502  data_tmp = ishft(pack_tmp, 4)
2503  ipack = ipack + 1
2504  pack_tmp = packed_data(ipack)
2505  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
2506  pack_tmp = ishft(pack_tmp, -4)
2507  idata = idata + 1
2508  data_tmp = iand(pack_tmp, mask_right(nbits))
2509  full_data(idata) = data_tmp
2510  pack_tmp = ishft(pack_tmp, -nbits)
2511  idata = idata + 1
2512  data_tmp = iand(pack_tmp, mask_right(nbits))
2513  full_data(idata) = data_tmp
2514  pack_tmp = ishft(pack_tmp, -nbits)
2515  idata = idata + 1
2516  data_tmp = iand(pack_tmp, mask_right(nbits))
2517  full_data(idata) = data_tmp
2518  pack_tmp = ishft(pack_tmp, -nbits)
2519  idata = idata + 1
2520  data_tmp = iand(pack_tmp, mask_right(nbits))
2521  full_data(idata) = data_tmp
2522  pack_tmp = ishft(pack_tmp, -nbits)
2523  idata = idata + 1
2524  data_tmp = iand(pack_tmp, mask_right(nbits))
2525  full_data(idata) = data_tmp
2526  pack_tmp = ishft(pack_tmp, -nbits)
2527  idata = idata + 1
2528  data_tmp = iand(pack_tmp, mask_right(nbits))
2529  full_data(idata) = data_tmp
2530  pack_tmp = ishft(pack_tmp, -nbits)
2531  idata = idata + 1
2532  data_tmp = iand(pack_tmp, mask_right(nbits))
2533  full_data(idata) = data_tmp
2534  pack_tmp = ishft(pack_tmp, -nbits)
2535  idata = idata + 1
2536  data_tmp = iand(pack_tmp, mask_right(nbits))
2537  full_data(idata) = data_tmp
2538  pack_tmp = ishft(pack_tmp, -nbits)
2539  idata = idata + 1
2540  data_tmp = iand(pack_tmp, mask_right(nbits))
2541  full_data(idata) = data_tmp
2542  pack_tmp = ishft(pack_tmp, -nbits)
2543  idata = idata + 1
2544  data_tmp = iand(pack_tmp, mask_right(nbits))
2545  full_data(idata) = data_tmp
2546  pack_tmp = ishft(pack_tmp, -nbits)
2547  idata = idata + 1
2548  data_tmp = iand(pack_tmp, mask_right(nbits))
2549  full_data(idata) = data_tmp
2550  pack_tmp = ishft(pack_tmp, -nbits)
2551  idata = idata + 1
2552  data_tmp = iand(pack_tmp, mask_right(nbits))
2553  full_data(idata) = data_tmp
2554  pack_tmp = ishft(pack_tmp, -nbits)
2555  idata = idata + 1
2556  data_tmp = iand(pack_tmp, mask_right(nbits))
2557  full_data(idata) = data_tmp
2558  pack_tmp = ishft(pack_tmp, -nbits)
2559  idata = idata + 1
2560  data_tmp = iand(pack_tmp, mask_right(nbits))
2561  full_data(idata) = data_tmp
2562  pack_tmp = ishft(pack_tmp, -nbits)
2563  idata = idata + 1
2564  data_tmp = iand(pack_tmp, mask_right(nbits))
2565  full_data(idata) = data_tmp
2566  pack_tmp = ishft(pack_tmp, -nbits)
2567  idata = idata + 1
2568  data_tmp = ishft(pack_tmp, 4)
2569  ipack = ipack + 1
2570  pack_tmp = packed_data(ipack)
2571  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
2572  pack_tmp = ishft(pack_tmp, -4)
2573  idata = idata + 1
2574  data_tmp = iand(pack_tmp, mask_right(nbits))
2575  full_data(idata) = data_tmp
2576  pack_tmp = ishft(pack_tmp, -nbits)
2577  idata = idata + 1
2578  data_tmp = iand(pack_tmp, mask_right(nbits))
2579  full_data(idata) = data_tmp
2580  pack_tmp = ishft(pack_tmp, -nbits)
2581  idata = idata + 1
2582  data_tmp = iand(pack_tmp, mask_right(nbits))
2583  full_data(idata) = data_tmp
2584  pack_tmp = ishft(pack_tmp, -nbits)
2585  idata = idata + 1
2586  data_tmp = iand(pack_tmp, mask_right(nbits))
2587  full_data(idata) = data_tmp
2588  pack_tmp = ishft(pack_tmp, -nbits)
2589  idata = idata + 1
2590  data_tmp = iand(pack_tmp, mask_right(nbits))
2591  full_data(idata) = data_tmp
2592  pack_tmp = ishft(pack_tmp, -nbits)
2593  idata = idata + 1
2594  data_tmp = iand(pack_tmp, mask_right(nbits))
2595  full_data(idata) = data_tmp
2596  pack_tmp = ishft(pack_tmp, -nbits)
2597  idata = idata + 1
2598  data_tmp = iand(pack_tmp, mask_right(nbits))
2599  full_data(idata) = data_tmp
2600  pack_tmp = ishft(pack_tmp, -nbits)
2601  idata = idata + 1
2602  data_tmp = iand(pack_tmp, mask_right(nbits))
2603  full_data(idata) = data_tmp
2604  pack_tmp = ishft(pack_tmp, -nbits)
2605  idata = idata + 1
2606  data_tmp = iand(pack_tmp, mask_right(nbits))
2607  full_data(idata) = data_tmp
2608  pack_tmp = ishft(pack_tmp, -nbits)
2609  idata = idata + 1
2610  data_tmp = iand(pack_tmp, mask_right(nbits))
2611  full_data(idata) = data_tmp
2612  pack_tmp = ishft(pack_tmp, -nbits)
2613  idata = idata + 1
2614  data_tmp = iand(pack_tmp, mask_right(nbits))
2615  full_data(idata) = data_tmp
2616  pack_tmp = ishft(pack_tmp, -nbits)
2617  idata = idata + 1
2618  data_tmp = iand(pack_tmp, mask_right(nbits))
2619  full_data(idata) = data_tmp
2620  pack_tmp = ishft(pack_tmp, -nbits)
2621  idata = idata + 1
2622  data_tmp = iand(pack_tmp, mask_right(nbits))
2623  full_data(idata) = data_tmp
2624  pack_tmp = ishft(pack_tmp, -nbits)
2625  idata = idata + 1
2626  data_tmp = iand(pack_tmp, mask_right(nbits))
2627  full_data(idata) = data_tmp
2628  pack_tmp = ishft(pack_tmp, -nbits)
2629  idata = idata + 1
2630  data_tmp = iand(pack_tmp, mask_right(nbits))
2631  full_data(idata) = data_tmp
2632  pack_tmp = ishft(pack_tmp, -nbits)
2633  idata = idata + 1
2634  data_tmp = ishft(pack_tmp, 4)
2635  ipack = ipack + 1
2636  pack_tmp = packed_data(ipack)
2637  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
2638  pack_tmp = ishft(pack_tmp, -4)
2639  idata = idata + 1
2640  data_tmp = iand(pack_tmp, mask_right(nbits))
2641  full_data(idata) = data_tmp
2642  pack_tmp = ishft(pack_tmp, -nbits)
2643  idata = idata + 1
2644  data_tmp = iand(pack_tmp, mask_right(nbits))
2645  full_data(idata) = data_tmp
2646  pack_tmp = ishft(pack_tmp, -nbits)
2647  idata = idata + 1
2648  data_tmp = iand(pack_tmp, mask_right(nbits))
2649  full_data(idata) = data_tmp
2650  pack_tmp = ishft(pack_tmp, -nbits)
2651  idata = idata + 1
2652  data_tmp = iand(pack_tmp, mask_right(nbits))
2653  full_data(idata) = data_tmp
2654  pack_tmp = ishft(pack_tmp, -nbits)
2655  idata = idata + 1
2656  data_tmp = iand(pack_tmp, mask_right(nbits))
2657  full_data(idata) = data_tmp
2658  pack_tmp = ishft(pack_tmp, -nbits)
2659  idata = idata + 1
2660  data_tmp = iand(pack_tmp, mask_right(nbits))
2661  full_data(idata) = data_tmp
2662  pack_tmp = ishft(pack_tmp, -nbits)
2663  idata = idata + 1
2664  data_tmp = iand(pack_tmp, mask_right(nbits))
2665  full_data(idata) = data_tmp
2666  pack_tmp = ishft(pack_tmp, -nbits)
2667  idata = idata + 1
2668  data_tmp = iand(pack_tmp, mask_right(nbits))
2669  full_data(idata) = data_tmp
2670  pack_tmp = ishft(pack_tmp, -nbits)
2671  idata = idata + 1
2672  data_tmp = iand(pack_tmp, mask_right(nbits))
2673  full_data(idata) = data_tmp
2674  pack_tmp = ishft(pack_tmp, -nbits)
2675  idata = idata + 1
2676  data_tmp = iand(pack_tmp, mask_right(nbits))
2677  full_data(idata) = data_tmp
2678  pack_tmp = ishft(pack_tmp, -nbits)
2679  idata = idata + 1
2680  data_tmp = iand(pack_tmp, mask_right(nbits))
2681  full_data(idata) = data_tmp
2682  pack_tmp = ishft(pack_tmp, -nbits)
2683  idata = idata + 1
2684  data_tmp = iand(pack_tmp, mask_right(nbits))
2685  full_data(idata) = data_tmp
2686  pack_tmp = ishft(pack_tmp, -nbits)
2687  idata = idata + 1
2688  data_tmp = iand(pack_tmp, mask_right(nbits))
2689  full_data(idata) = data_tmp
2690  pack_tmp = ishft(pack_tmp, -nbits)
2691  idata = idata + 1
2692  data_tmp = iand(pack_tmp, mask_right(nbits))
2693  full_data(idata) = data_tmp
2694  pack_tmp = ishft(pack_tmp, -nbits)
2695  idata = idata + 1
2696  data_tmp = iand(pack_tmp, mask_right(nbits))
2697  full_data(idata) = data_tmp
2698  pack_tmp = ishft(pack_tmp, -nbits)
2699  idata = idata + 1
2700  data_tmp = ishft(pack_tmp, 4)
2701  ipack = ipack + 1
2702  pack_tmp = packed_data(ipack)
2703  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
2704  pack_tmp = ishft(pack_tmp, -4)
2705  idata = idata + 1
2706  data_tmp = iand(pack_tmp, mask_right(nbits))
2707  full_data(idata) = data_tmp
2708  pack_tmp = ishft(pack_tmp, -nbits)
2709  idata = idata + 1
2710  data_tmp = iand(pack_tmp, mask_right(nbits))
2711  full_data(idata) = data_tmp
2712  pack_tmp = ishft(pack_tmp, -nbits)
2713  idata = idata + 1
2714  data_tmp = iand(pack_tmp, mask_right(nbits))
2715  full_data(idata) = data_tmp
2716  pack_tmp = ishft(pack_tmp, -nbits)
2717  idata = idata + 1
2718  data_tmp = iand(pack_tmp, mask_right(nbits))
2719  full_data(idata) = data_tmp
2720  pack_tmp = ishft(pack_tmp, -nbits)
2721  idata = idata + 1
2722  data_tmp = iand(pack_tmp, mask_right(nbits))
2723  full_data(idata) = data_tmp
2724  pack_tmp = ishft(pack_tmp, -nbits)
2725  idata = idata + 1
2726  data_tmp = iand(pack_tmp, mask_right(nbits))
2727  full_data(idata) = data_tmp
2728  pack_tmp = ishft(pack_tmp, -nbits)
2729  idata = idata + 1
2730  data_tmp = iand(pack_tmp, mask_right(nbits))
2731  full_data(idata) = data_tmp
2732  pack_tmp = ishft(pack_tmp, -nbits)
2733  idata = idata + 1
2734  data_tmp = iand(pack_tmp, mask_right(nbits))
2735  full_data(idata) = data_tmp
2736  pack_tmp = ishft(pack_tmp, -nbits)
2737  idata = idata + 1
2738  data_tmp = iand(pack_tmp, mask_right(nbits))
2739  full_data(idata) = data_tmp
2740  pack_tmp = ishft(pack_tmp, -nbits)
2741  idata = idata + 1
2742  data_tmp = iand(pack_tmp, mask_right(nbits))
2743  full_data(idata) = data_tmp
2744  pack_tmp = ishft(pack_tmp, -nbits)
2745  idata = idata + 1
2746  data_tmp = iand(pack_tmp, mask_right(nbits))
2747  full_data(idata) = data_tmp
2748  pack_tmp = ishft(pack_tmp, -nbits)
2749  idata = idata + 1
2750  data_tmp = iand(pack_tmp, mask_right(nbits))
2751  full_data(idata) = data_tmp
2752  pack_tmp = ishft(pack_tmp, -nbits)
2753  idata = idata + 1
2754  data_tmp = iand(pack_tmp, mask_right(nbits))
2755  full_data(idata) = data_tmp
2756  pack_tmp = ishft(pack_tmp, -nbits)
2757  idata = idata + 1
2758  data_tmp = iand(pack_tmp, mask_right(nbits))
2759  full_data(idata) = data_tmp
2760  pack_tmp = ishft(pack_tmp, -nbits)
2761  idata = idata + 1
2762  data_tmp = iand(pack_tmp, mask_right(nbits))
2763  full_data(idata) = data_tmp
2764  pack_tmp = ishft(pack_tmp, -nbits)
2765  END DO
2766  IF (ndata_rep < ndata) THEN
2767  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
2768  END IF
2769  END SUBROUTINE bits2ints_4
2770 
2771 ! **************************************************************************************************
2772 !> \brief ...
2773 !> \param Ndata ...
2774 !> \param packed_data ...
2775 !> \param full_data ...
2776 ! **************************************************************************************************
2777  SUBROUTINE ints2bits_5(Ndata, packed_data, full_data)
2778  INTEGER, INTENT(IN) :: Ndata
2779  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
2780  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
2781 
2782  INTEGER, PARAMETER :: Nbits = 5
2783 
2784  INTEGER :: idata, ipack, kdata, Ndata_rep
2785  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
2786 
2787  idata = 0
2788  ipack = 0
2789  ndata_rep = (ndata/64)*64
2790  DO kdata = 1, ndata_rep, 64
2791  pack_tmp = 0
2792  idata = idata + 1
2793  data_tmp = full_data(idata)
2794  data_tmp = ishft(data_tmp, 59)
2795  pack_tmp = ior(pack_tmp, data_tmp)
2796  pack_tmp = ishft(pack_tmp, -5)
2797  idata = idata + 1
2798  data_tmp = full_data(idata)
2799  data_tmp = ishft(data_tmp, 59)
2800  pack_tmp = ior(pack_tmp, data_tmp)
2801  pack_tmp = ishft(pack_tmp, -5)
2802  idata = idata + 1
2803  data_tmp = full_data(idata)
2804  data_tmp = ishft(data_tmp, 59)
2805  pack_tmp = ior(pack_tmp, data_tmp)
2806  pack_tmp = ishft(pack_tmp, -5)
2807  idata = idata + 1
2808  data_tmp = full_data(idata)
2809  data_tmp = ishft(data_tmp, 59)
2810  pack_tmp = ior(pack_tmp, data_tmp)
2811  pack_tmp = ishft(pack_tmp, -5)
2812  idata = idata + 1
2813  data_tmp = full_data(idata)
2814  data_tmp = ishft(data_tmp, 59)
2815  pack_tmp = ior(pack_tmp, data_tmp)
2816  pack_tmp = ishft(pack_tmp, -5)
2817  idata = idata + 1
2818  data_tmp = full_data(idata)
2819  data_tmp = ishft(data_tmp, 59)
2820  pack_tmp = ior(pack_tmp, data_tmp)
2821  pack_tmp = ishft(pack_tmp, -5)
2822  idata = idata + 1
2823  data_tmp = full_data(idata)
2824  data_tmp = ishft(data_tmp, 59)
2825  pack_tmp = ior(pack_tmp, data_tmp)
2826  pack_tmp = ishft(pack_tmp, -5)
2827  idata = idata + 1
2828  data_tmp = full_data(idata)
2829  data_tmp = ishft(data_tmp, 59)
2830  pack_tmp = ior(pack_tmp, data_tmp)
2831  pack_tmp = ishft(pack_tmp, -5)
2832  idata = idata + 1
2833  data_tmp = full_data(idata)
2834  data_tmp = ishft(data_tmp, 59)
2835  pack_tmp = ior(pack_tmp, data_tmp)
2836  pack_tmp = ishft(pack_tmp, -5)
2837  idata = idata + 1
2838  data_tmp = full_data(idata)
2839  data_tmp = ishft(data_tmp, 59)
2840  pack_tmp = ior(pack_tmp, data_tmp)
2841  pack_tmp = ishft(pack_tmp, -5)
2842  idata = idata + 1
2843  data_tmp = full_data(idata)
2844  data_tmp = ishft(data_tmp, 59)
2845  pack_tmp = ior(pack_tmp, data_tmp)
2846  pack_tmp = ishft(pack_tmp, -5)
2847  idata = idata + 1
2848  data_tmp = full_data(idata)
2849  data_tmp = ishft(data_tmp, 59)
2850  pack_tmp = ior(pack_tmp, data_tmp)
2851  pack_tmp = ishft(pack_tmp, -4)
2852  idata = idata + 1
2853  data_tmp = full_data(idata)
2854  data_tmp = ishft(data_tmp, 59)
2855  data_tmp = iand(data_tmp, mask_left(4))
2856  pack_tmp = ior(pack_tmp, data_tmp)
2857  ipack = ipack + 1
2858  packed_data(ipack) = pack_tmp
2859  data_tmp = full_data(idata)
2860  pack_tmp = ishft(data_tmp, 63)
2861  pack_tmp = ishft(pack_tmp, -5)
2862  idata = idata + 1
2863  data_tmp = full_data(idata)
2864  data_tmp = ishft(data_tmp, 59)
2865  pack_tmp = ior(pack_tmp, data_tmp)
2866  pack_tmp = ishft(pack_tmp, -5)
2867  idata = idata + 1
2868  data_tmp = full_data(idata)
2869  data_tmp = ishft(data_tmp, 59)
2870  pack_tmp = ior(pack_tmp, data_tmp)
2871  pack_tmp = ishft(pack_tmp, -5)
2872  idata = idata + 1
2873  data_tmp = full_data(idata)
2874  data_tmp = ishft(data_tmp, 59)
2875  pack_tmp = ior(pack_tmp, data_tmp)
2876  pack_tmp = ishft(pack_tmp, -5)
2877  idata = idata + 1
2878  data_tmp = full_data(idata)
2879  data_tmp = ishft(data_tmp, 59)
2880  pack_tmp = ior(pack_tmp, data_tmp)
2881  pack_tmp = ishft(pack_tmp, -5)
2882  idata = idata + 1
2883  data_tmp = full_data(idata)
2884  data_tmp = ishft(data_tmp, 59)
2885  pack_tmp = ior(pack_tmp, data_tmp)
2886  pack_tmp = ishft(pack_tmp, -5)
2887  idata = idata + 1
2888  data_tmp = full_data(idata)
2889  data_tmp = ishft(data_tmp, 59)
2890  pack_tmp = ior(pack_tmp, data_tmp)
2891  pack_tmp = ishft(pack_tmp, -5)
2892  idata = idata + 1
2893  data_tmp = full_data(idata)
2894  data_tmp = ishft(data_tmp, 59)
2895  pack_tmp = ior(pack_tmp, data_tmp)
2896  pack_tmp = ishft(pack_tmp, -5)
2897  idata = idata + 1
2898  data_tmp = full_data(idata)
2899  data_tmp = ishft(data_tmp, 59)
2900  pack_tmp = ior(pack_tmp, data_tmp)
2901  pack_tmp = ishft(pack_tmp, -5)
2902  idata = idata + 1
2903  data_tmp = full_data(idata)
2904  data_tmp = ishft(data_tmp, 59)
2905  pack_tmp = ior(pack_tmp, data_tmp)
2906  pack_tmp = ishft(pack_tmp, -5)
2907  idata = idata + 1
2908  data_tmp = full_data(idata)
2909  data_tmp = ishft(data_tmp, 59)
2910  pack_tmp = ior(pack_tmp, data_tmp)
2911  pack_tmp = ishft(pack_tmp, -5)
2912  idata = idata + 1
2913  data_tmp = full_data(idata)
2914  data_tmp = ishft(data_tmp, 59)
2915  pack_tmp = ior(pack_tmp, data_tmp)
2916  pack_tmp = ishft(pack_tmp, -5)
2917  idata = idata + 1
2918  data_tmp = full_data(idata)
2919  data_tmp = ishft(data_tmp, 59)
2920  pack_tmp = ior(pack_tmp, data_tmp)
2921  pack_tmp = ishft(pack_tmp, -3)
2922  idata = idata + 1
2923  data_tmp = full_data(idata)
2924  data_tmp = ishft(data_tmp, 59)
2925  data_tmp = iand(data_tmp, mask_left(3))
2926  pack_tmp = ior(pack_tmp, data_tmp)
2927  ipack = ipack + 1
2928  packed_data(ipack) = pack_tmp
2929  data_tmp = full_data(idata)
2930  pack_tmp = ishft(data_tmp, 62)
2931  pack_tmp = ishft(pack_tmp, -5)
2932  idata = idata + 1
2933  data_tmp = full_data(idata)
2934  data_tmp = ishft(data_tmp, 59)
2935  pack_tmp = ior(pack_tmp, data_tmp)
2936  pack_tmp = ishft(pack_tmp, -5)
2937  idata = idata + 1
2938  data_tmp = full_data(idata)
2939  data_tmp = ishft(data_tmp, 59)
2940  pack_tmp = ior(pack_tmp, data_tmp)
2941  pack_tmp = ishft(pack_tmp, -5)
2942  idata = idata + 1
2943  data_tmp = full_data(idata)
2944  data_tmp = ishft(data_tmp, 59)
2945  pack_tmp = ior(pack_tmp, data_tmp)
2946  pack_tmp = ishft(pack_tmp, -5)
2947  idata = idata + 1
2948  data_tmp = full_data(idata)
2949  data_tmp = ishft(data_tmp, 59)
2950  pack_tmp = ior(pack_tmp, data_tmp)
2951  pack_tmp = ishft(pack_tmp, -5)
2952  idata = idata + 1
2953  data_tmp = full_data(idata)
2954  data_tmp = ishft(data_tmp, 59)
2955  pack_tmp = ior(pack_tmp, data_tmp)
2956  pack_tmp = ishft(pack_tmp, -5)
2957  idata = idata + 1
2958  data_tmp = full_data(idata)
2959  data_tmp = ishft(data_tmp, 59)
2960  pack_tmp = ior(pack_tmp, data_tmp)
2961  pack_tmp = ishft(pack_tmp, -5)
2962  idata = idata + 1
2963  data_tmp = full_data(idata)
2964  data_tmp = ishft(data_tmp, 59)
2965  pack_tmp = ior(pack_tmp, data_tmp)
2966  pack_tmp = ishft(pack_tmp, -5)
2967  idata = idata + 1
2968  data_tmp = full_data(idata)
2969  data_tmp = ishft(data_tmp, 59)
2970  pack_tmp = ior(pack_tmp, data_tmp)
2971  pack_tmp = ishft(pack_tmp, -5)
2972  idata = idata + 1
2973  data_tmp = full_data(idata)
2974  data_tmp = ishft(data_tmp, 59)
2975  pack_tmp = ior(pack_tmp, data_tmp)
2976  pack_tmp = ishft(pack_tmp, -5)
2977  idata = idata + 1
2978  data_tmp = full_data(idata)
2979  data_tmp = ishft(data_tmp, 59)
2980  pack_tmp = ior(pack_tmp, data_tmp)
2981  pack_tmp = ishft(pack_tmp, -5)
2982  idata = idata + 1
2983  data_tmp = full_data(idata)
2984  data_tmp = ishft(data_tmp, 59)
2985  pack_tmp = ior(pack_tmp, data_tmp)
2986  pack_tmp = ishft(pack_tmp, -5)
2987  idata = idata + 1
2988  data_tmp = full_data(idata)
2989  data_tmp = ishft(data_tmp, 59)
2990  pack_tmp = ior(pack_tmp, data_tmp)
2991  pack_tmp = ishft(pack_tmp, -2)
2992  idata = idata + 1
2993  data_tmp = full_data(idata)
2994  data_tmp = ishft(data_tmp, 59)
2995  data_tmp = iand(data_tmp, mask_left(2))
2996  pack_tmp = ior(pack_tmp, data_tmp)
2997  ipack = ipack + 1
2998  packed_data(ipack) = pack_tmp
2999  data_tmp = full_data(idata)
3000  pack_tmp = ishft(data_tmp, 61)
3001  pack_tmp = ishft(pack_tmp, -5)
3002  idata = idata + 1
3003  data_tmp = full_data(idata)
3004  data_tmp = ishft(data_tmp, 59)
3005  pack_tmp = ior(pack_tmp, data_tmp)
3006  pack_tmp = ishft(pack_tmp, -5)
3007  idata = idata + 1
3008  data_tmp = full_data(idata)
3009  data_tmp = ishft(data_tmp, 59)
3010  pack_tmp = ior(pack_tmp, data_tmp)
3011  pack_tmp = ishft(pack_tmp, -5)
3012  idata = idata + 1
3013  data_tmp = full_data(idata)
3014  data_tmp = ishft(data_tmp, 59)
3015  pack_tmp = ior(pack_tmp, data_tmp)
3016  pack_tmp = ishft(pack_tmp, -5)
3017  idata = idata + 1
3018  data_tmp = full_data(idata)
3019  data_tmp = ishft(data_tmp, 59)
3020  pack_tmp = ior(pack_tmp, data_tmp)
3021  pack_tmp = ishft(pack_tmp, -5)
3022  idata = idata + 1
3023  data_tmp = full_data(idata)
3024  data_tmp = ishft(data_tmp, 59)
3025  pack_tmp = ior(pack_tmp, data_tmp)
3026  pack_tmp = ishft(pack_tmp, -5)
3027  idata = idata + 1
3028  data_tmp = full_data(idata)
3029  data_tmp = ishft(data_tmp, 59)
3030  pack_tmp = ior(pack_tmp, data_tmp)
3031  pack_tmp = ishft(pack_tmp, -5)
3032  idata = idata + 1
3033  data_tmp = full_data(idata)
3034  data_tmp = ishft(data_tmp, 59)
3035  pack_tmp = ior(pack_tmp, data_tmp)
3036  pack_tmp = ishft(pack_tmp, -5)
3037  idata = idata + 1
3038  data_tmp = full_data(idata)
3039  data_tmp = ishft(data_tmp, 59)
3040  pack_tmp = ior(pack_tmp, data_tmp)
3041  pack_tmp = ishft(pack_tmp, -5)
3042  idata = idata + 1
3043  data_tmp = full_data(idata)
3044  data_tmp = ishft(data_tmp, 59)
3045  pack_tmp = ior(pack_tmp, data_tmp)
3046  pack_tmp = ishft(pack_tmp, -5)
3047  idata = idata + 1
3048  data_tmp = full_data(idata)
3049  data_tmp = ishft(data_tmp, 59)
3050  pack_tmp = ior(pack_tmp, data_tmp)
3051  pack_tmp = ishft(pack_tmp, -5)
3052  idata = idata + 1
3053  data_tmp = full_data(idata)
3054  data_tmp = ishft(data_tmp, 59)
3055  pack_tmp = ior(pack_tmp, data_tmp)
3056  pack_tmp = ishft(pack_tmp, -5)
3057  idata = idata + 1
3058  data_tmp = full_data(idata)
3059  data_tmp = ishft(data_tmp, 59)
3060  pack_tmp = ior(pack_tmp, data_tmp)
3061  pack_tmp = ishft(pack_tmp, -1)
3062  idata = idata + 1
3063  data_tmp = full_data(idata)
3064  data_tmp = ishft(data_tmp, 59)
3065  data_tmp = iand(data_tmp, mask_left(1))
3066  pack_tmp = ior(pack_tmp, data_tmp)
3067  ipack = ipack + 1
3068  packed_data(ipack) = pack_tmp
3069  data_tmp = full_data(idata)
3070  pack_tmp = ishft(data_tmp, 60)
3071  pack_tmp = ishft(pack_tmp, -5)
3072  idata = idata + 1
3073  data_tmp = full_data(idata)
3074  data_tmp = ishft(data_tmp, 59)
3075  pack_tmp = ior(pack_tmp, data_tmp)
3076  pack_tmp = ishft(pack_tmp, -5)
3077  idata = idata + 1
3078  data_tmp = full_data(idata)
3079  data_tmp = ishft(data_tmp, 59)
3080  pack_tmp = ior(pack_tmp, data_tmp)
3081  pack_tmp = ishft(pack_tmp, -5)
3082  idata = idata + 1
3083  data_tmp = full_data(idata)
3084  data_tmp = ishft(data_tmp, 59)
3085  pack_tmp = ior(pack_tmp, data_tmp)
3086  pack_tmp = ishft(pack_tmp, -5)
3087  idata = idata + 1
3088  data_tmp = full_data(idata)
3089  data_tmp = ishft(data_tmp, 59)
3090  pack_tmp = ior(pack_tmp, data_tmp)
3091  pack_tmp = ishft(pack_tmp, -5)
3092  idata = idata + 1
3093  data_tmp = full_data(idata)
3094  data_tmp = ishft(data_tmp, 59)
3095  pack_tmp = ior(pack_tmp, data_tmp)
3096  pack_tmp = ishft(pack_tmp, -5)
3097  idata = idata + 1
3098  data_tmp = full_data(idata)
3099  data_tmp = ishft(data_tmp, 59)
3100  pack_tmp = ior(pack_tmp, data_tmp)
3101  pack_tmp = ishft(pack_tmp, -5)
3102  idata = idata + 1
3103  data_tmp = full_data(idata)
3104  data_tmp = ishft(data_tmp, 59)
3105  pack_tmp = ior(pack_tmp, data_tmp)
3106  pack_tmp = ishft(pack_tmp, -5)
3107  idata = idata + 1
3108  data_tmp = full_data(idata)
3109  data_tmp = ishft(data_tmp, 59)
3110  pack_tmp = ior(pack_tmp, data_tmp)
3111  pack_tmp = ishft(pack_tmp, -5)
3112  idata = idata + 1
3113  data_tmp = full_data(idata)
3114  data_tmp = ishft(data_tmp, 59)
3115  pack_tmp = ior(pack_tmp, data_tmp)
3116  pack_tmp = ishft(pack_tmp, -5)
3117  idata = idata + 1
3118  data_tmp = full_data(idata)
3119  data_tmp = ishft(data_tmp, 59)
3120  pack_tmp = ior(pack_tmp, data_tmp)
3121  pack_tmp = ishft(pack_tmp, -5)
3122  idata = idata + 1
3123  data_tmp = full_data(idata)
3124  data_tmp = ishft(data_tmp, 59)
3125  pack_tmp = ior(pack_tmp, data_tmp)
3126  pack_tmp = ishft(pack_tmp, -5)
3127  idata = idata + 1
3128  data_tmp = full_data(idata)
3129  data_tmp = ishft(data_tmp, 59)
3130  pack_tmp = ior(pack_tmp, data_tmp)
3131  pack_tmp = ishft(pack_tmp, 0)
3132  pack_tmp = ishft(pack_tmp, 0)
3133  ipack = ipack + 1
3134  packed_data(ipack) = pack_tmp
3135  END DO
3136  IF (ndata_rep < ndata) THEN
3137  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
3138  END IF
3139  END SUBROUTINE ints2bits_5
3140 
3141 ! **************************************************************************************************
3142 !> \brief ...
3143 !> \param Ndata ...
3144 !> \param packed_data ...
3145 !> \param full_data ...
3146 ! **************************************************************************************************
3147  SUBROUTINE bits2ints_5(Ndata, packed_data, full_data)
3148  INTEGER, INTENT(IN) :: Ndata
3149  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
3150  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
3151 
3152  INTEGER, PARAMETER :: Nbits = 5
3153 
3154  INTEGER :: idata, ipack, kdata, Ndata_rep
3155  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
3156 
3157  ipack = 0
3158  idata = 0
3159  pack_tmp = 0
3160  ndata_rep = (ndata/64)*64
3161  DO kdata = 1, ndata_rep, 64
3162  idata = idata + 1
3163  data_tmp = ishft(pack_tmp, 5)
3164  ipack = ipack + 1
3165  pack_tmp = packed_data(ipack)
3166  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
3167  pack_tmp = ishft(pack_tmp, -5)
3168  idata = idata + 1
3169  data_tmp = iand(pack_tmp, mask_right(nbits))
3170  full_data(idata) = data_tmp
3171  pack_tmp = ishft(pack_tmp, -nbits)
3172  idata = idata + 1
3173  data_tmp = iand(pack_tmp, mask_right(nbits))
3174  full_data(idata) = data_tmp
3175  pack_tmp = ishft(pack_tmp, -nbits)
3176  idata = idata + 1
3177  data_tmp = iand(pack_tmp, mask_right(nbits))
3178  full_data(idata) = data_tmp
3179  pack_tmp = ishft(pack_tmp, -nbits)
3180  idata = idata + 1
3181  data_tmp = iand(pack_tmp, mask_right(nbits))
3182  full_data(idata) = data_tmp
3183  pack_tmp = ishft(pack_tmp, -nbits)
3184  idata = idata + 1
3185  data_tmp = iand(pack_tmp, mask_right(nbits))
3186  full_data(idata) = data_tmp
3187  pack_tmp = ishft(pack_tmp, -nbits)
3188  idata = idata + 1
3189  data_tmp = iand(pack_tmp, mask_right(nbits))
3190  full_data(idata) = data_tmp
3191  pack_tmp = ishft(pack_tmp, -nbits)
3192  idata = idata + 1
3193  data_tmp = iand(pack_tmp, mask_right(nbits))
3194  full_data(idata) = data_tmp
3195  pack_tmp = ishft(pack_tmp, -nbits)
3196  idata = idata + 1
3197  data_tmp = iand(pack_tmp, mask_right(nbits))
3198  full_data(idata) = data_tmp
3199  pack_tmp = ishft(pack_tmp, -nbits)
3200  idata = idata + 1
3201  data_tmp = iand(pack_tmp, mask_right(nbits))
3202  full_data(idata) = data_tmp
3203  pack_tmp = ishft(pack_tmp, -nbits)
3204  idata = idata + 1
3205  data_tmp = iand(pack_tmp, mask_right(nbits))
3206  full_data(idata) = data_tmp
3207  pack_tmp = ishft(pack_tmp, -nbits)
3208  idata = idata + 1
3209  data_tmp = iand(pack_tmp, mask_right(nbits))
3210  full_data(idata) = data_tmp
3211  pack_tmp = ishft(pack_tmp, -nbits)
3212  idata = idata + 1
3213  data_tmp = ishft(pack_tmp, 1)
3214  ipack = ipack + 1
3215  pack_tmp = packed_data(ipack)
3216  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
3217  pack_tmp = ishft(pack_tmp, -1)
3218  idata = idata + 1
3219  data_tmp = iand(pack_tmp, mask_right(nbits))
3220  full_data(idata) = data_tmp
3221  pack_tmp = ishft(pack_tmp, -nbits)
3222  idata = idata + 1
3223  data_tmp = iand(pack_tmp, mask_right(nbits))
3224  full_data(idata) = data_tmp
3225  pack_tmp = ishft(pack_tmp, -nbits)
3226  idata = idata + 1
3227  data_tmp = iand(pack_tmp, mask_right(nbits))
3228  full_data(idata) = data_tmp
3229  pack_tmp = ishft(pack_tmp, -nbits)
3230  idata = idata + 1
3231  data_tmp = iand(pack_tmp, mask_right(nbits))
3232  full_data(idata) = data_tmp
3233  pack_tmp = ishft(pack_tmp, -nbits)
3234  idata = idata + 1
3235  data_tmp = iand(pack_tmp, mask_right(nbits))
3236  full_data(idata) = data_tmp
3237  pack_tmp = ishft(pack_tmp, -nbits)
3238  idata = idata + 1
3239  data_tmp = iand(pack_tmp, mask_right(nbits))
3240  full_data(idata) = data_tmp
3241  pack_tmp = ishft(pack_tmp, -nbits)
3242  idata = idata + 1
3243  data_tmp = iand(pack_tmp, mask_right(nbits))
3244  full_data(idata) = data_tmp
3245  pack_tmp = ishft(pack_tmp, -nbits)
3246  idata = idata + 1
3247  data_tmp = iand(pack_tmp, mask_right(nbits))
3248  full_data(idata) = data_tmp
3249  pack_tmp = ishft(pack_tmp, -nbits)
3250  idata = idata + 1
3251  data_tmp = iand(pack_tmp, mask_right(nbits))
3252  full_data(idata) = data_tmp
3253  pack_tmp = ishft(pack_tmp, -nbits)
3254  idata = idata + 1
3255  data_tmp = iand(pack_tmp, mask_right(nbits))
3256  full_data(idata) = data_tmp
3257  pack_tmp = ishft(pack_tmp, -nbits)
3258  idata = idata + 1
3259  data_tmp = iand(pack_tmp, mask_right(nbits))
3260  full_data(idata) = data_tmp
3261  pack_tmp = ishft(pack_tmp, -nbits)
3262  idata = idata + 1
3263  data_tmp = iand(pack_tmp, mask_right(nbits))
3264  full_data(idata) = data_tmp
3265  pack_tmp = ishft(pack_tmp, -nbits)
3266  idata = idata + 1
3267  data_tmp = ishft(pack_tmp, 2)
3268  ipack = ipack + 1
3269  pack_tmp = packed_data(ipack)
3270  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
3271  pack_tmp = ishft(pack_tmp, -2)
3272  idata = idata + 1
3273  data_tmp = iand(pack_tmp, mask_right(nbits))
3274  full_data(idata) = data_tmp
3275  pack_tmp = ishft(pack_tmp, -nbits)
3276  idata = idata + 1
3277  data_tmp = iand(pack_tmp, mask_right(nbits))
3278  full_data(idata) = data_tmp
3279  pack_tmp = ishft(pack_tmp, -nbits)
3280  idata = idata + 1
3281  data_tmp = iand(pack_tmp, mask_right(nbits))
3282  full_data(idata) = data_tmp
3283  pack_tmp = ishft(pack_tmp, -nbits)
3284  idata = idata + 1
3285  data_tmp = iand(pack_tmp, mask_right(nbits))
3286  full_data(idata) = data_tmp
3287  pack_tmp = ishft(pack_tmp, -nbits)
3288  idata = idata + 1
3289  data_tmp = iand(pack_tmp, mask_right(nbits))
3290  full_data(idata) = data_tmp
3291  pack_tmp = ishft(pack_tmp, -nbits)
3292  idata = idata + 1
3293  data_tmp = iand(pack_tmp, mask_right(nbits))
3294  full_data(idata) = data_tmp
3295  pack_tmp = ishft(pack_tmp, -nbits)
3296  idata = idata + 1
3297  data_tmp = iand(pack_tmp, mask_right(nbits))
3298  full_data(idata) = data_tmp
3299  pack_tmp = ishft(pack_tmp, -nbits)
3300  idata = idata + 1
3301  data_tmp = iand(pack_tmp, mask_right(nbits))
3302  full_data(idata) = data_tmp
3303  pack_tmp = ishft(pack_tmp, -nbits)
3304  idata = idata + 1
3305  data_tmp = iand(pack_tmp, mask_right(nbits))
3306  full_data(idata) = data_tmp
3307  pack_tmp = ishft(pack_tmp, -nbits)
3308  idata = idata + 1
3309  data_tmp = iand(pack_tmp, mask_right(nbits))
3310  full_data(idata) = data_tmp
3311  pack_tmp = ishft(pack_tmp, -nbits)
3312  idata = idata + 1
3313  data_tmp = iand(pack_tmp, mask_right(nbits))
3314  full_data(idata) = data_tmp
3315  pack_tmp = ishft(pack_tmp, -nbits)
3316  idata = idata + 1
3317  data_tmp = iand(pack_tmp, mask_right(nbits))
3318  full_data(idata) = data_tmp
3319  pack_tmp = ishft(pack_tmp, -nbits)
3320  idata = idata + 1
3321  data_tmp = ishft(pack_tmp, 3)
3322  ipack = ipack + 1
3323  pack_tmp = packed_data(ipack)
3324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
3325  pack_tmp = ishft(pack_tmp, -3)
3326  idata = idata + 1
3327  data_tmp = iand(pack_tmp, mask_right(nbits))
3328  full_data(idata) = data_tmp
3329  pack_tmp = ishft(pack_tmp, -nbits)
3330  idata = idata + 1
3331  data_tmp = iand(pack_tmp, mask_right(nbits))
3332  full_data(idata) = data_tmp
3333  pack_tmp = ishft(pack_tmp, -nbits)
3334  idata = idata + 1
3335  data_tmp = iand(pack_tmp, mask_right(nbits))
3336  full_data(idata) = data_tmp
3337  pack_tmp = ishft(pack_tmp, -nbits)
3338  idata = idata + 1
3339  data_tmp = iand(pack_tmp, mask_right(nbits))
3340  full_data(idata) = data_tmp
3341  pack_tmp = ishft(pack_tmp, -nbits)
3342  idata = idata + 1
3343  data_tmp = iand(pack_tmp, mask_right(nbits))
3344  full_data(idata) = data_tmp
3345  pack_tmp = ishft(pack_tmp, -nbits)
3346  idata = idata + 1
3347  data_tmp = iand(pack_tmp, mask_right(nbits))
3348  full_data(idata) = data_tmp
3349  pack_tmp = ishft(pack_tmp, -nbits)
3350  idata = idata + 1
3351  data_tmp = iand(pack_tmp, mask_right(nbits))
3352  full_data(idata) = data_tmp
3353  pack_tmp = ishft(pack_tmp, -nbits)
3354  idata = idata + 1
3355  data_tmp = iand(pack_tmp, mask_right(nbits))
3356  full_data(idata) = data_tmp
3357  pack_tmp = ishft(pack_tmp, -nbits)
3358  idata = idata + 1
3359  data_tmp = iand(pack_tmp, mask_right(nbits))
3360  full_data(idata) = data_tmp
3361  pack_tmp = ishft(pack_tmp, -nbits)
3362  idata = idata + 1
3363  data_tmp = iand(pack_tmp, mask_right(nbits))
3364  full_data(idata) = data_tmp
3365  pack_tmp = ishft(pack_tmp, -nbits)
3366  idata = idata + 1
3367  data_tmp = iand(pack_tmp, mask_right(nbits))
3368  full_data(idata) = data_tmp
3369  pack_tmp = ishft(pack_tmp, -nbits)
3370  idata = idata + 1
3371  data_tmp = iand(pack_tmp, mask_right(nbits))
3372  full_data(idata) = data_tmp
3373  pack_tmp = ishft(pack_tmp, -nbits)
3374  idata = idata + 1
3375  data_tmp = ishft(pack_tmp, 4)
3376  ipack = ipack + 1
3377  pack_tmp = packed_data(ipack)
3378  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
3379  pack_tmp = ishft(pack_tmp, -4)
3380  idata = idata + 1
3381  data_tmp = iand(pack_tmp, mask_right(nbits))
3382  full_data(idata) = data_tmp
3383  pack_tmp = ishft(pack_tmp, -nbits)
3384  idata = idata + 1
3385  data_tmp = iand(pack_tmp, mask_right(nbits))
3386  full_data(idata) = data_tmp
3387  pack_tmp = ishft(pack_tmp, -nbits)
3388  idata = idata + 1
3389  data_tmp = iand(pack_tmp, mask_right(nbits))
3390  full_data(idata) = data_tmp
3391  pack_tmp = ishft(pack_tmp, -nbits)
3392  idata = idata + 1
3393  data_tmp = iand(pack_tmp, mask_right(nbits))
3394  full_data(idata) = data_tmp
3395  pack_tmp = ishft(pack_tmp, -nbits)
3396  idata = idata + 1
3397  data_tmp = iand(pack_tmp, mask_right(nbits))
3398  full_data(idata) = data_tmp
3399  pack_tmp = ishft(pack_tmp, -nbits)
3400  idata = idata + 1
3401  data_tmp = iand(pack_tmp, mask_right(nbits))
3402  full_data(idata) = data_tmp
3403  pack_tmp = ishft(pack_tmp, -nbits)
3404  idata = idata + 1
3405  data_tmp = iand(pack_tmp, mask_right(nbits))
3406  full_data(idata) = data_tmp
3407  pack_tmp = ishft(pack_tmp, -nbits)
3408  idata = idata + 1
3409  data_tmp = iand(pack_tmp, mask_right(nbits))
3410  full_data(idata) = data_tmp
3411  pack_tmp = ishft(pack_tmp, -nbits)
3412  idata = idata + 1
3413  data_tmp = iand(pack_tmp, mask_right(nbits))
3414  full_data(idata) = data_tmp
3415  pack_tmp = ishft(pack_tmp, -nbits)
3416  idata = idata + 1
3417  data_tmp = iand(pack_tmp, mask_right(nbits))
3418  full_data(idata) = data_tmp
3419  pack_tmp = ishft(pack_tmp, -nbits)
3420  idata = idata + 1
3421  data_tmp = iand(pack_tmp, mask_right(nbits))
3422  full_data(idata) = data_tmp
3423  pack_tmp = ishft(pack_tmp, -nbits)
3424  idata = idata + 1
3425  data_tmp = iand(pack_tmp, mask_right(nbits))
3426  full_data(idata) = data_tmp
3427  pack_tmp = ishft(pack_tmp, -nbits)
3428  END DO
3429  IF (ndata_rep < ndata) THEN
3430  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
3431  END IF
3432  END SUBROUTINE bits2ints_5
3433 
3434 ! **************************************************************************************************
3435 !> \brief ...
3436 !> \param Ndata ...
3437 !> \param packed_data ...
3438 !> \param full_data ...
3439 ! **************************************************************************************************
3440  SUBROUTINE ints2bits_6(Ndata, packed_data, full_data)
3441  INTEGER, INTENT(IN) :: Ndata
3442  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
3443  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
3444 
3445  INTEGER, PARAMETER :: Nbits = 6
3446 
3447  INTEGER :: idata, ipack, kdata, Ndata_rep
3448  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
3449 
3450  idata = 0
3451  ipack = 0
3452  ndata_rep = (ndata/64)*64
3453  DO kdata = 1, ndata_rep, 64
3454  pack_tmp = 0
3455  idata = idata + 1
3456  data_tmp = full_data(idata)
3457  data_tmp = ishft(data_tmp, 58)
3458  pack_tmp = ior(pack_tmp, data_tmp)
3459  pack_tmp = ishft(pack_tmp, -6)
3460  idata = idata + 1
3461  data_tmp = full_data(idata)
3462  data_tmp = ishft(data_tmp, 58)
3463  pack_tmp = ior(pack_tmp, data_tmp)
3464  pack_tmp = ishft(pack_tmp, -6)
3465  idata = idata + 1
3466  data_tmp = full_data(idata)
3467  data_tmp = ishft(data_tmp, 58)
3468  pack_tmp = ior(pack_tmp, data_tmp)
3469  pack_tmp = ishft(pack_tmp, -6)
3470  idata = idata + 1
3471  data_tmp = full_data(idata)
3472  data_tmp = ishft(data_tmp, 58)
3473  pack_tmp = ior(pack_tmp, data_tmp)
3474  pack_tmp = ishft(pack_tmp, -6)
3475  idata = idata + 1
3476  data_tmp = full_data(idata)
3477  data_tmp = ishft(data_tmp, 58)
3478  pack_tmp = ior(pack_tmp, data_tmp)
3479  pack_tmp = ishft(pack_tmp, -6)
3480  idata = idata + 1
3481  data_tmp = full_data(idata)
3482  data_tmp = ishft(data_tmp, 58)
3483  pack_tmp = ior(pack_tmp, data_tmp)
3484  pack_tmp = ishft(pack_tmp, -6)
3485  idata = idata + 1
3486  data_tmp = full_data(idata)
3487  data_tmp = ishft(data_tmp, 58)
3488  pack_tmp = ior(pack_tmp, data_tmp)
3489  pack_tmp = ishft(pack_tmp, -6)
3490  idata = idata + 1
3491  data_tmp = full_data(idata)
3492  data_tmp = ishft(data_tmp, 58)
3493  pack_tmp = ior(pack_tmp, data_tmp)
3494  pack_tmp = ishft(pack_tmp, -6)
3495  idata = idata + 1
3496  data_tmp = full_data(idata)
3497  data_tmp = ishft(data_tmp, 58)
3498  pack_tmp = ior(pack_tmp, data_tmp)
3499  pack_tmp = ishft(pack_tmp, -6)
3500  idata = idata + 1
3501  data_tmp = full_data(idata)
3502  data_tmp = ishft(data_tmp, 58)
3503  pack_tmp = ior(pack_tmp, data_tmp)
3504  pack_tmp = ishft(pack_tmp, -4)
3505  idata = idata + 1
3506  data_tmp = full_data(idata)
3507  data_tmp = ishft(data_tmp, 58)
3508  data_tmp = iand(data_tmp, mask_left(4))
3509  pack_tmp = ior(pack_tmp, data_tmp)
3510  ipack = ipack + 1
3511  packed_data(ipack) = pack_tmp
3512  data_tmp = full_data(idata)
3513  pack_tmp = ishft(data_tmp, 62)
3514  pack_tmp = ishft(pack_tmp, -6)
3515  idata = idata + 1
3516  data_tmp = full_data(idata)
3517  data_tmp = ishft(data_tmp, 58)
3518  pack_tmp = ior(pack_tmp, data_tmp)
3519  pack_tmp = ishft(pack_tmp, -6)
3520  idata = idata + 1
3521  data_tmp = full_data(idata)
3522  data_tmp = ishft(data_tmp, 58)
3523  pack_tmp = ior(pack_tmp, data_tmp)
3524  pack_tmp = ishft(pack_tmp, -6)
3525  idata = idata + 1
3526  data_tmp = full_data(idata)
3527  data_tmp = ishft(data_tmp, 58)
3528  pack_tmp = ior(pack_tmp, data_tmp)
3529  pack_tmp = ishft(pack_tmp, -6)
3530  idata = idata + 1
3531  data_tmp = full_data(idata)
3532  data_tmp = ishft(data_tmp, 58)
3533  pack_tmp = ior(pack_tmp, data_tmp)
3534  pack_tmp = ishft(pack_tmp, -6)
3535  idata = idata + 1
3536  data_tmp = full_data(idata)
3537  data_tmp = ishft(data_tmp, 58)
3538  pack_tmp = ior(pack_tmp, data_tmp)
3539  pack_tmp = ishft(pack_tmp, -6)
3540  idata = idata + 1
3541  data_tmp = full_data(idata)
3542  data_tmp = ishft(data_tmp, 58)
3543  pack_tmp = ior(pack_tmp, data_tmp)
3544  pack_tmp = ishft(pack_tmp, -6)
3545  idata = idata + 1
3546  data_tmp = full_data(idata)
3547  data_tmp = ishft(data_tmp, 58)
3548  pack_tmp = ior(pack_tmp, data_tmp)
3549  pack_tmp = ishft(pack_tmp, -6)
3550  idata = idata + 1
3551  data_tmp = full_data(idata)
3552  data_tmp = ishft(data_tmp, 58)
3553  pack_tmp = ior(pack_tmp, data_tmp)
3554  pack_tmp = ishft(pack_tmp, -6)
3555  idata = idata + 1
3556  data_tmp = full_data(idata)
3557  data_tmp = ishft(data_tmp, 58)
3558  pack_tmp = ior(pack_tmp, data_tmp)
3559  pack_tmp = ishft(pack_tmp, -6)
3560  idata = idata + 1
3561  data_tmp = full_data(idata)
3562  data_tmp = ishft(data_tmp, 58)
3563  pack_tmp = ior(pack_tmp, data_tmp)
3564  pack_tmp = ishft(pack_tmp, -2)
3565  idata = idata + 1
3566  data_tmp = full_data(idata)
3567  data_tmp = ishft(data_tmp, 58)
3568  data_tmp = iand(data_tmp, mask_left(2))
3569  pack_tmp = ior(pack_tmp, data_tmp)
3570  ipack = ipack + 1
3571  packed_data(ipack) = pack_tmp
3572  data_tmp = full_data(idata)
3573  pack_tmp = ishft(data_tmp, 60)
3574  pack_tmp = ishft(pack_tmp, -6)
3575  idata = idata + 1
3576  data_tmp = full_data(idata)
3577  data_tmp = ishft(data_tmp, 58)
3578  pack_tmp = ior(pack_tmp, data_tmp)
3579  pack_tmp = ishft(pack_tmp, -6)
3580  idata = idata + 1
3581  data_tmp = full_data(idata)
3582  data_tmp = ishft(data_tmp, 58)
3583  pack_tmp = ior(pack_tmp, data_tmp)
3584  pack_tmp = ishft(pack_tmp, -6)
3585  idata = idata + 1
3586  data_tmp = full_data(idata)
3587  data_tmp = ishft(data_tmp, 58)
3588  pack_tmp = ior(pack_tmp, data_tmp)
3589  pack_tmp = ishft(pack_tmp, -6)
3590  idata = idata + 1
3591  data_tmp = full_data(idata)
3592  data_tmp = ishft(data_tmp, 58)
3593  pack_tmp = ior(pack_tmp, data_tmp)
3594  pack_tmp = ishft(pack_tmp, -6)
3595  idata = idata + 1
3596  data_tmp = full_data(idata)
3597  data_tmp = ishft(data_tmp, 58)
3598  pack_tmp = ior(pack_tmp, data_tmp)
3599  pack_tmp = ishft(pack_tmp, -6)
3600  idata = idata + 1
3601  data_tmp = full_data(idata)
3602  data_tmp = ishft(data_tmp, 58)
3603  pack_tmp = ior(pack_tmp, data_tmp)
3604  pack_tmp = ishft(pack_tmp, -6)
3605  idata = idata + 1
3606  data_tmp = full_data(idata)
3607  data_tmp = ishft(data_tmp, 58)
3608  pack_tmp = ior(pack_tmp, data_tmp)
3609  pack_tmp = ishft(pack_tmp, -6)
3610  idata = idata + 1
3611  data_tmp = full_data(idata)
3612  data_tmp = ishft(data_tmp, 58)
3613  pack_tmp = ior(pack_tmp, data_tmp)
3614  pack_tmp = ishft(pack_tmp, -6)
3615  idata = idata + 1
3616  data_tmp = full_data(idata)
3617  data_tmp = ishft(data_tmp, 58)
3618  pack_tmp = ior(pack_tmp, data_tmp)
3619  pack_tmp = ishft(pack_tmp, -6)
3620  idata = idata + 1
3621  data_tmp = full_data(idata)
3622  data_tmp = ishft(data_tmp, 58)
3623  pack_tmp = ior(pack_tmp, data_tmp)
3624  pack_tmp = ishft(pack_tmp, 0)
3625  idata = idata + 1
3626  data_tmp = full_data(idata)
3627  data_tmp = ishft(data_tmp, 58)
3628  data_tmp = iand(data_tmp, mask_left(0))
3629  pack_tmp = ior(pack_tmp, data_tmp)
3630  ipack = ipack + 1
3631  packed_data(ipack) = pack_tmp
3632  data_tmp = full_data(idata)
3633  pack_tmp = ishft(data_tmp, 58)
3634  pack_tmp = ishft(pack_tmp, -6)
3635  idata = idata + 1
3636  data_tmp = full_data(idata)
3637  data_tmp = ishft(data_tmp, 58)
3638  pack_tmp = ior(pack_tmp, data_tmp)
3639  pack_tmp = ishft(pack_tmp, -6)
3640  idata = idata + 1
3641  data_tmp = full_data(idata)
3642  data_tmp = ishft(data_tmp, 58)
3643  pack_tmp = ior(pack_tmp, data_tmp)
3644  pack_tmp = ishft(pack_tmp, -6)
3645  idata = idata + 1
3646  data_tmp = full_data(idata)
3647  data_tmp = ishft(data_tmp, 58)
3648  pack_tmp = ior(pack_tmp, data_tmp)
3649  pack_tmp = ishft(pack_tmp, -6)
3650  idata = idata + 1
3651  data_tmp = full_data(idata)
3652  data_tmp = ishft(data_tmp, 58)
3653  pack_tmp = ior(pack_tmp, data_tmp)
3654  pack_tmp = ishft(pack_tmp, -6)
3655  idata = idata + 1
3656  data_tmp = full_data(idata)
3657  data_tmp = ishft(data_tmp, 58)
3658  pack_tmp = ior(pack_tmp, data_tmp)
3659  pack_tmp = ishft(pack_tmp, -6)
3660  idata = idata + 1
3661  data_tmp = full_data(idata)
3662  data_tmp = ishft(data_tmp, 58)
3663  pack_tmp = ior(pack_tmp, data_tmp)
3664  pack_tmp = ishft(pack_tmp, -6)
3665  idata = idata + 1
3666  data_tmp = full_data(idata)
3667  data_tmp = ishft(data_tmp, 58)
3668  pack_tmp = ior(pack_tmp, data_tmp)
3669  pack_tmp = ishft(pack_tmp, -6)
3670  idata = idata + 1
3671  data_tmp = full_data(idata)
3672  data_tmp = ishft(data_tmp, 58)
3673  pack_tmp = ior(pack_tmp, data_tmp)
3674  pack_tmp = ishft(pack_tmp, -6)
3675  idata = idata + 1
3676  data_tmp = full_data(idata)
3677  data_tmp = ishft(data_tmp, 58)
3678  pack_tmp = ior(pack_tmp, data_tmp)
3679  pack_tmp = ishft(pack_tmp, -4)
3680  idata = idata + 1
3681  data_tmp = full_data(idata)
3682  data_tmp = ishft(data_tmp, 58)
3683  data_tmp = iand(data_tmp, mask_left(4))
3684  pack_tmp = ior(pack_tmp, data_tmp)
3685  ipack = ipack + 1
3686  packed_data(ipack) = pack_tmp
3687  data_tmp = full_data(idata)
3688  pack_tmp = ishft(data_tmp, 62)
3689  pack_tmp = ishft(pack_tmp, -6)
3690  idata = idata + 1
3691  data_tmp = full_data(idata)
3692  data_tmp = ishft(data_tmp, 58)
3693  pack_tmp = ior(pack_tmp, data_tmp)
3694  pack_tmp = ishft(pack_tmp, -6)
3695  idata = idata + 1
3696  data_tmp = full_data(idata)
3697  data_tmp = ishft(data_tmp, 58)
3698  pack_tmp = ior(pack_tmp, data_tmp)
3699  pack_tmp = ishft(pack_tmp, -6)
3700  idata = idata + 1
3701  data_tmp = full_data(idata)
3702  data_tmp = ishft(data_tmp, 58)
3703  pack_tmp = ior(pack_tmp, data_tmp)
3704  pack_tmp = ishft(pack_tmp, -6)
3705  idata = idata + 1
3706  data_tmp = full_data(idata)
3707  data_tmp = ishft(data_tmp, 58)
3708  pack_tmp = ior(pack_tmp, data_tmp)
3709  pack_tmp = ishft(pack_tmp, -6)
3710  idata = idata + 1
3711  data_tmp = full_data(idata)
3712  data_tmp = ishft(data_tmp, 58)
3713  pack_tmp = ior(pack_tmp, data_tmp)
3714  pack_tmp = ishft(pack_tmp, -6)
3715  idata = idata + 1
3716  data_tmp = full_data(idata)
3717  data_tmp = ishft(data_tmp, 58)
3718  pack_tmp = ior(pack_tmp, data_tmp)
3719  pack_tmp = ishft(pack_tmp, -6)
3720  idata = idata + 1
3721  data_tmp = full_data(idata)
3722  data_tmp = ishft(data_tmp, 58)
3723  pack_tmp = ior(pack_tmp, data_tmp)
3724  pack_tmp = ishft(pack_tmp, -6)
3725  idata = idata + 1
3726  data_tmp = full_data(idata)
3727  data_tmp = ishft(data_tmp, 58)
3728  pack_tmp = ior(pack_tmp, data_tmp)
3729  pack_tmp = ishft(pack_tmp, -6)
3730  idata = idata + 1
3731  data_tmp = full_data(idata)
3732  data_tmp = ishft(data_tmp, 58)
3733  pack_tmp = ior(pack_tmp, data_tmp)
3734  pack_tmp = ishft(pack_tmp, -6)
3735  idata = idata + 1
3736  data_tmp = full_data(idata)
3737  data_tmp = ishft(data_tmp, 58)
3738  pack_tmp = ior(pack_tmp, data_tmp)
3739  pack_tmp = ishft(pack_tmp, -2)
3740  idata = idata + 1
3741  data_tmp = full_data(idata)
3742  data_tmp = ishft(data_tmp, 58)
3743  data_tmp = iand(data_tmp, mask_left(2))
3744  pack_tmp = ior(pack_tmp, data_tmp)
3745  ipack = ipack + 1
3746  packed_data(ipack) = pack_tmp
3747  data_tmp = full_data(idata)
3748  pack_tmp = ishft(data_tmp, 60)
3749  pack_tmp = ishft(pack_tmp, -6)
3750  idata = idata + 1
3751  data_tmp = full_data(idata)
3752  data_tmp = ishft(data_tmp, 58)
3753  pack_tmp = ior(pack_tmp, data_tmp)
3754  pack_tmp = ishft(pack_tmp, -6)
3755  idata = idata + 1
3756  data_tmp = full_data(idata)
3757  data_tmp = ishft(data_tmp, 58)
3758  pack_tmp = ior(pack_tmp, data_tmp)
3759  pack_tmp = ishft(pack_tmp, -6)
3760  idata = idata + 1
3761  data_tmp = full_data(idata)
3762  data_tmp = ishft(data_tmp, 58)
3763  pack_tmp = ior(pack_tmp, data_tmp)
3764  pack_tmp = ishft(pack_tmp, -6)
3765  idata = idata + 1
3766  data_tmp = full_data(idata)
3767  data_tmp = ishft(data_tmp, 58)
3768  pack_tmp = ior(pack_tmp, data_tmp)
3769  pack_tmp = ishft(pack_tmp, -6)
3770  idata = idata + 1
3771  data_tmp = full_data(idata)
3772  data_tmp = ishft(data_tmp, 58)
3773  pack_tmp = ior(pack_tmp, data_tmp)
3774  pack_tmp = ishft(pack_tmp, -6)
3775  idata = idata + 1
3776  data_tmp = full_data(idata)
3777  data_tmp = ishft(data_tmp, 58)
3778  pack_tmp = ior(pack_tmp, data_tmp)
3779  pack_tmp = ishft(pack_tmp, -6)
3780  idata = idata + 1
3781  data_tmp = full_data(idata)
3782  data_tmp = ishft(data_tmp, 58)
3783  pack_tmp = ior(pack_tmp, data_tmp)
3784  pack_tmp = ishft(pack_tmp, -6)
3785  idata = idata + 1
3786  data_tmp = full_data(idata)
3787  data_tmp = ishft(data_tmp, 58)
3788  pack_tmp = ior(pack_tmp, data_tmp)
3789  pack_tmp = ishft(pack_tmp, -6)
3790  idata = idata + 1
3791  data_tmp = full_data(idata)
3792  data_tmp = ishft(data_tmp, 58)
3793  pack_tmp = ior(pack_tmp, data_tmp)
3794  pack_tmp = ishft(pack_tmp, -6)
3795  idata = idata + 1
3796  data_tmp = full_data(idata)
3797  data_tmp = ishft(data_tmp, 58)
3798  pack_tmp = ior(pack_tmp, data_tmp)
3799  pack_tmp = ishft(pack_tmp, 0)
3800  pack_tmp = ishft(pack_tmp, 0)
3801  ipack = ipack + 1
3802  packed_data(ipack) = pack_tmp
3803  END DO
3804  IF (ndata_rep < ndata) THEN
3805  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
3806  END IF
3807  END SUBROUTINE ints2bits_6
3808 
3809 ! **************************************************************************************************
3810 !> \brief ...
3811 !> \param Ndata ...
3812 !> \param packed_data ...
3813 !> \param full_data ...
3814 ! **************************************************************************************************
3815  SUBROUTINE bits2ints_6(Ndata, packed_data, full_data)
3816  INTEGER, INTENT(IN) :: Ndata
3817  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
3818  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
3819 
3820  INTEGER, PARAMETER :: Nbits = 6
3821 
3822  INTEGER :: idata, ipack, kdata, Ndata_rep
3823  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
3824 
3825  ipack = 0
3826  idata = 0
3827  pack_tmp = 0
3828  ndata_rep = (ndata/64)*64
3829  DO kdata = 1, ndata_rep, 64
3830  idata = idata + 1
3831  data_tmp = ishft(pack_tmp, 6)
3832  ipack = ipack + 1
3833  pack_tmp = packed_data(ipack)
3834  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
3835  pack_tmp = ishft(pack_tmp, -6)
3836  idata = idata + 1
3837  data_tmp = iand(pack_tmp, mask_right(nbits))
3838  full_data(idata) = data_tmp
3839  pack_tmp = ishft(pack_tmp, -nbits)
3840  idata = idata + 1
3841  data_tmp = iand(pack_tmp, mask_right(nbits))
3842  full_data(idata) = data_tmp
3843  pack_tmp = ishft(pack_tmp, -nbits)
3844  idata = idata + 1
3845  data_tmp = iand(pack_tmp, mask_right(nbits))
3846  full_data(idata) = data_tmp
3847  pack_tmp = ishft(pack_tmp, -nbits)
3848  idata = idata + 1
3849  data_tmp = iand(pack_tmp, mask_right(nbits))
3850  full_data(idata) = data_tmp
3851  pack_tmp = ishft(pack_tmp, -nbits)
3852  idata = idata + 1
3853  data_tmp = iand(pack_tmp, mask_right(nbits))
3854  full_data(idata) = data_tmp
3855  pack_tmp = ishft(pack_tmp, -nbits)
3856  idata = idata + 1
3857  data_tmp = iand(pack_tmp, mask_right(nbits))
3858  full_data(idata) = data_tmp
3859  pack_tmp = ishft(pack_tmp, -nbits)
3860  idata = idata + 1
3861  data_tmp = iand(pack_tmp, mask_right(nbits))
3862  full_data(idata) = data_tmp
3863  pack_tmp = ishft(pack_tmp, -nbits)
3864  idata = idata + 1
3865  data_tmp = iand(pack_tmp, mask_right(nbits))
3866  full_data(idata) = data_tmp
3867  pack_tmp = ishft(pack_tmp, -nbits)
3868  idata = idata + 1
3869  data_tmp = iand(pack_tmp, mask_right(nbits))
3870  full_data(idata) = data_tmp
3871  pack_tmp = ishft(pack_tmp, -nbits)
3872  idata = idata + 1
3873  data_tmp = ishft(pack_tmp, 2)
3874  ipack = ipack + 1
3875  pack_tmp = packed_data(ipack)
3876  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
3877  pack_tmp = ishft(pack_tmp, -2)
3878  idata = idata + 1
3879  data_tmp = iand(pack_tmp, mask_right(nbits))
3880  full_data(idata) = data_tmp
3881  pack_tmp = ishft(pack_tmp, -nbits)
3882  idata = idata + 1
3883  data_tmp = iand(pack_tmp, mask_right(nbits))
3884  full_data(idata) = data_tmp
3885  pack_tmp = ishft(pack_tmp, -nbits)
3886  idata = idata + 1
3887  data_tmp = iand(pack_tmp, mask_right(nbits))
3888  full_data(idata) = data_tmp
3889  pack_tmp = ishft(pack_tmp, -nbits)
3890  idata = idata + 1
3891  data_tmp = iand(pack_tmp, mask_right(nbits))
3892  full_data(idata) = data_tmp
3893  pack_tmp = ishft(pack_tmp, -nbits)
3894  idata = idata + 1
3895  data_tmp = iand(pack_tmp, mask_right(nbits))
3896  full_data(idata) = data_tmp
3897  pack_tmp = ishft(pack_tmp, -nbits)
3898  idata = idata + 1
3899  data_tmp = iand(pack_tmp, mask_right(nbits))
3900  full_data(idata) = data_tmp
3901  pack_tmp = ishft(pack_tmp, -nbits)
3902  idata = idata + 1
3903  data_tmp = iand(pack_tmp, mask_right(nbits))
3904  full_data(idata) = data_tmp
3905  pack_tmp = ishft(pack_tmp, -nbits)
3906  idata = idata + 1
3907  data_tmp = iand(pack_tmp, mask_right(nbits))
3908  full_data(idata) = data_tmp
3909  pack_tmp = ishft(pack_tmp, -nbits)
3910  idata = idata + 1
3911  data_tmp = iand(pack_tmp, mask_right(nbits))
3912  full_data(idata) = data_tmp
3913  pack_tmp = ishft(pack_tmp, -nbits)
3914  idata = idata + 1
3915  data_tmp = iand(pack_tmp, mask_right(nbits))
3916  full_data(idata) = data_tmp
3917  pack_tmp = ishft(pack_tmp, -nbits)
3918  idata = idata + 1
3919  data_tmp = ishft(pack_tmp, 4)
3920  ipack = ipack + 1
3921  pack_tmp = packed_data(ipack)
3922  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
3923  pack_tmp = ishft(pack_tmp, -4)
3924  idata = idata + 1
3925  data_tmp = iand(pack_tmp, mask_right(nbits))
3926  full_data(idata) = data_tmp
3927  pack_tmp = ishft(pack_tmp, -nbits)
3928  idata = idata + 1
3929  data_tmp = iand(pack_tmp, mask_right(nbits))
3930  full_data(idata) = data_tmp
3931  pack_tmp = ishft(pack_tmp, -nbits)
3932  idata = idata + 1
3933  data_tmp = iand(pack_tmp, mask_right(nbits))
3934  full_data(idata) = data_tmp
3935  pack_tmp = ishft(pack_tmp, -nbits)
3936  idata = idata + 1
3937  data_tmp = iand(pack_tmp, mask_right(nbits))
3938  full_data(idata) = data_tmp
3939  pack_tmp = ishft(pack_tmp, -nbits)
3940  idata = idata + 1
3941  data_tmp = iand(pack_tmp, mask_right(nbits))
3942  full_data(idata) = data_tmp
3943  pack_tmp = ishft(pack_tmp, -nbits)
3944  idata = idata + 1
3945  data_tmp = iand(pack_tmp, mask_right(nbits))
3946  full_data(idata) = data_tmp
3947  pack_tmp = ishft(pack_tmp, -nbits)
3948  idata = idata + 1
3949  data_tmp = iand(pack_tmp, mask_right(nbits))
3950  full_data(idata) = data_tmp
3951  pack_tmp = ishft(pack_tmp, -nbits)
3952  idata = idata + 1
3953  data_tmp = iand(pack_tmp, mask_right(nbits))
3954  full_data(idata) = data_tmp
3955  pack_tmp = ishft(pack_tmp, -nbits)
3956  idata = idata + 1
3957  data_tmp = iand(pack_tmp, mask_right(nbits))
3958  full_data(idata) = data_tmp
3959  pack_tmp = ishft(pack_tmp, -nbits)
3960  idata = idata + 1
3961  data_tmp = iand(pack_tmp, mask_right(nbits))
3962  full_data(idata) = data_tmp
3963  pack_tmp = ishft(pack_tmp, -nbits)
3964  idata = idata + 1
3965  data_tmp = ishft(pack_tmp, 6)
3966  ipack = ipack + 1
3967  pack_tmp = packed_data(ipack)
3968  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
3969  pack_tmp = ishft(pack_tmp, -6)
3970  idata = idata + 1
3971  data_tmp = iand(pack_tmp, mask_right(nbits))
3972  full_data(idata) = data_tmp
3973  pack_tmp = ishft(pack_tmp, -nbits)
3974  idata = idata + 1
3975  data_tmp = iand(pack_tmp, mask_right(nbits))
3976  full_data(idata) = data_tmp
3977  pack_tmp = ishft(pack_tmp, -nbits)
3978  idata = idata + 1
3979  data_tmp = iand(pack_tmp, mask_right(nbits))
3980  full_data(idata) = data_tmp
3981  pack_tmp = ishft(pack_tmp, -nbits)
3982  idata = idata + 1
3983  data_tmp = iand(pack_tmp, mask_right(nbits))
3984  full_data(idata) = data_tmp
3985  pack_tmp = ishft(pack_tmp, -nbits)
3986  idata = idata + 1
3987  data_tmp = iand(pack_tmp, mask_right(nbits))
3988  full_data(idata) = data_tmp
3989  pack_tmp = ishft(pack_tmp, -nbits)
3990  idata = idata + 1
3991  data_tmp = iand(pack_tmp, mask_right(nbits))
3992  full_data(idata) = data_tmp
3993  pack_tmp = ishft(pack_tmp, -nbits)
3994  idata = idata + 1
3995  data_tmp = iand(pack_tmp, mask_right(nbits))
3996  full_data(idata) = data_tmp
3997  pack_tmp = ishft(pack_tmp, -nbits)
3998  idata = idata + 1
3999  data_tmp = iand(pack_tmp, mask_right(nbits))
4000  full_data(idata) = data_tmp
4001  pack_tmp = ishft(pack_tmp, -nbits)
4002  idata = idata + 1
4003  data_tmp = iand(pack_tmp, mask_right(nbits))
4004  full_data(idata) = data_tmp
4005  pack_tmp = ishft(pack_tmp, -nbits)
4006  idata = idata + 1
4007  data_tmp = ishft(pack_tmp, 2)
4008  ipack = ipack + 1
4009  pack_tmp = packed_data(ipack)
4010  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
4011  pack_tmp = ishft(pack_tmp, -2)
4012  idata = idata + 1
4013  data_tmp = iand(pack_tmp, mask_right(nbits))
4014  full_data(idata) = data_tmp
4015  pack_tmp = ishft(pack_tmp, -nbits)
4016  idata = idata + 1
4017  data_tmp = iand(pack_tmp, mask_right(nbits))
4018  full_data(idata) = data_tmp
4019  pack_tmp = ishft(pack_tmp, -nbits)
4020  idata = idata + 1
4021  data_tmp = iand(pack_tmp, mask_right(nbits))
4022  full_data(idata) = data_tmp
4023  pack_tmp = ishft(pack_tmp, -nbits)
4024  idata = idata + 1
4025  data_tmp = iand(pack_tmp, mask_right(nbits))
4026  full_data(idata) = data_tmp
4027  pack_tmp = ishft(pack_tmp, -nbits)
4028  idata = idata + 1
4029  data_tmp = iand(pack_tmp, mask_right(nbits))
4030  full_data(idata) = data_tmp
4031  pack_tmp = ishft(pack_tmp, -nbits)
4032  idata = idata + 1
4033  data_tmp = iand(pack_tmp, mask_right(nbits))
4034  full_data(idata) = data_tmp
4035  pack_tmp = ishft(pack_tmp, -nbits)
4036  idata = idata + 1
4037  data_tmp = iand(pack_tmp, mask_right(nbits))
4038  full_data(idata) = data_tmp
4039  pack_tmp = ishft(pack_tmp, -nbits)
4040  idata = idata + 1
4041  data_tmp = iand(pack_tmp, mask_right(nbits))
4042  full_data(idata) = data_tmp
4043  pack_tmp = ishft(pack_tmp, -nbits)
4044  idata = idata + 1
4045  data_tmp = iand(pack_tmp, mask_right(nbits))
4046  full_data(idata) = data_tmp
4047  pack_tmp = ishft(pack_tmp, -nbits)
4048  idata = idata + 1
4049  data_tmp = iand(pack_tmp, mask_right(nbits))
4050  full_data(idata) = data_tmp
4051  pack_tmp = ishft(pack_tmp, -nbits)
4052  idata = idata + 1
4053  data_tmp = ishft(pack_tmp, 4)
4054  ipack = ipack + 1
4055  pack_tmp = packed_data(ipack)
4056  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
4057  pack_tmp = ishft(pack_tmp, -4)
4058  idata = idata + 1
4059  data_tmp = iand(pack_tmp, mask_right(nbits))
4060  full_data(idata) = data_tmp
4061  pack_tmp = ishft(pack_tmp, -nbits)
4062  idata = idata + 1
4063  data_tmp = iand(pack_tmp, mask_right(nbits))
4064  full_data(idata) = data_tmp
4065  pack_tmp = ishft(pack_tmp, -nbits)
4066  idata = idata + 1
4067  data_tmp = iand(pack_tmp, mask_right(nbits))
4068  full_data(idata) = data_tmp
4069  pack_tmp = ishft(pack_tmp, -nbits)
4070  idata = idata + 1
4071  data_tmp = iand(pack_tmp, mask_right(nbits))
4072  full_data(idata) = data_tmp
4073  pack_tmp = ishft(pack_tmp, -nbits)
4074  idata = idata + 1
4075  data_tmp = iand(pack_tmp, mask_right(nbits))
4076  full_data(idata) = data_tmp
4077  pack_tmp = ishft(pack_tmp, -nbits)
4078  idata = idata + 1
4079  data_tmp = iand(pack_tmp, mask_right(nbits))
4080  full_data(idata) = data_tmp
4081  pack_tmp = ishft(pack_tmp, -nbits)
4082  idata = idata + 1
4083  data_tmp = iand(pack_tmp, mask_right(nbits))
4084  full_data(idata) = data_tmp
4085  pack_tmp = ishft(pack_tmp, -nbits)
4086  idata = idata + 1
4087  data_tmp = iand(pack_tmp, mask_right(nbits))
4088  full_data(idata) = data_tmp
4089  pack_tmp = ishft(pack_tmp, -nbits)
4090  idata = idata + 1
4091  data_tmp = iand(pack_tmp, mask_right(nbits))
4092  full_data(idata) = data_tmp
4093  pack_tmp = ishft(pack_tmp, -nbits)
4094  idata = idata + 1
4095  data_tmp = iand(pack_tmp, mask_right(nbits))
4096  full_data(idata) = data_tmp
4097  pack_tmp = ishft(pack_tmp, -nbits)
4098  END DO
4099  IF (ndata_rep < ndata) THEN
4100  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
4101  END IF
4102  END SUBROUTINE bits2ints_6
4103 
4104 ! **************************************************************************************************
4105 !> \brief ...
4106 !> \param Ndata ...
4107 !> \param packed_data ...
4108 !> \param full_data ...
4109 ! **************************************************************************************************
4110  SUBROUTINE ints2bits_7(Ndata, packed_data, full_data)
4111  INTEGER, INTENT(IN) :: Ndata
4112  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
4113  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
4114 
4115  INTEGER, PARAMETER :: Nbits = 7
4116 
4117  INTEGER :: idata, ipack, kdata, Ndata_rep
4118  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
4119 
4120  idata = 0
4121  ipack = 0
4122  ndata_rep = (ndata/64)*64
4123  DO kdata = 1, ndata_rep, 64
4124  pack_tmp = 0
4125  idata = idata + 1
4126  data_tmp = full_data(idata)
4127  data_tmp = ishft(data_tmp, 57)
4128  pack_tmp = ior(pack_tmp, data_tmp)
4129  pack_tmp = ishft(pack_tmp, -7)
4130  idata = idata + 1
4131  data_tmp = full_data(idata)
4132  data_tmp = ishft(data_tmp, 57)
4133  pack_tmp = ior(pack_tmp, data_tmp)
4134  pack_tmp = ishft(pack_tmp, -7)
4135  idata = idata + 1
4136  data_tmp = full_data(idata)
4137  data_tmp = ishft(data_tmp, 57)
4138  pack_tmp = ior(pack_tmp, data_tmp)
4139  pack_tmp = ishft(pack_tmp, -7)
4140  idata = idata + 1
4141  data_tmp = full_data(idata)
4142  data_tmp = ishft(data_tmp, 57)
4143  pack_tmp = ior(pack_tmp, data_tmp)
4144  pack_tmp = ishft(pack_tmp, -7)
4145  idata = idata + 1
4146  data_tmp = full_data(idata)
4147  data_tmp = ishft(data_tmp, 57)
4148  pack_tmp = ior(pack_tmp, data_tmp)
4149  pack_tmp = ishft(pack_tmp, -7)
4150  idata = idata + 1
4151  data_tmp = full_data(idata)
4152  data_tmp = ishft(data_tmp, 57)
4153  pack_tmp = ior(pack_tmp, data_tmp)
4154  pack_tmp = ishft(pack_tmp, -7)
4155  idata = idata + 1
4156  data_tmp = full_data(idata)
4157  data_tmp = ishft(data_tmp, 57)
4158  pack_tmp = ior(pack_tmp, data_tmp)
4159  pack_tmp = ishft(pack_tmp, -7)
4160  idata = idata + 1
4161  data_tmp = full_data(idata)
4162  data_tmp = ishft(data_tmp, 57)
4163  pack_tmp = ior(pack_tmp, data_tmp)
4164  pack_tmp = ishft(pack_tmp, -7)
4165  idata = idata + 1
4166  data_tmp = full_data(idata)
4167  data_tmp = ishft(data_tmp, 57)
4168  pack_tmp = ior(pack_tmp, data_tmp)
4169  pack_tmp = ishft(pack_tmp, -1)
4170  idata = idata + 1
4171  data_tmp = full_data(idata)
4172  data_tmp = ishft(data_tmp, 57)
4173  data_tmp = iand(data_tmp, mask_left(1))
4174  pack_tmp = ior(pack_tmp, data_tmp)
4175  ipack = ipack + 1
4176  packed_data(ipack) = pack_tmp
4177  data_tmp = full_data(idata)
4178  pack_tmp = ishft(data_tmp, 58)
4179  pack_tmp = ishft(pack_tmp, -7)
4180  idata = idata + 1
4181  data_tmp = full_data(idata)
4182  data_tmp = ishft(data_tmp, 57)
4183  pack_tmp = ior(pack_tmp, data_tmp)
4184  pack_tmp = ishft(pack_tmp, -7)
4185  idata = idata + 1
4186  data_tmp = full_data(idata)
4187  data_tmp = ishft(data_tmp, 57)
4188  pack_tmp = ior(pack_tmp, data_tmp)
4189  pack_tmp = ishft(pack_tmp, -7)
4190  idata = idata + 1
4191  data_tmp = full_data(idata)
4192  data_tmp = ishft(data_tmp, 57)
4193  pack_tmp = ior(pack_tmp, data_tmp)
4194  pack_tmp = ishft(pack_tmp, -7)
4195  idata = idata + 1
4196  data_tmp = full_data(idata)
4197  data_tmp = ishft(data_tmp, 57)
4198  pack_tmp = ior(pack_tmp, data_tmp)
4199  pack_tmp = ishft(pack_tmp, -7)
4200  idata = idata + 1
4201  data_tmp = full_data(idata)
4202  data_tmp = ishft(data_tmp, 57)
4203  pack_tmp = ior(pack_tmp, data_tmp)
4204  pack_tmp = ishft(pack_tmp, -7)
4205  idata = idata + 1
4206  data_tmp = full_data(idata)
4207  data_tmp = ishft(data_tmp, 57)
4208  pack_tmp = ior(pack_tmp, data_tmp)
4209  pack_tmp = ishft(pack_tmp, -7)
4210  idata = idata + 1
4211  data_tmp = full_data(idata)
4212  data_tmp = ishft(data_tmp, 57)
4213  pack_tmp = ior(pack_tmp, data_tmp)
4214  pack_tmp = ishft(pack_tmp, -7)
4215  idata = idata + 1
4216  data_tmp = full_data(idata)
4217  data_tmp = ishft(data_tmp, 57)
4218  pack_tmp = ior(pack_tmp, data_tmp)
4219  pack_tmp = ishft(pack_tmp, -2)
4220  idata = idata + 1
4221  data_tmp = full_data(idata)
4222  data_tmp = ishft(data_tmp, 57)
4223  data_tmp = iand(data_tmp, mask_left(2))
4224  pack_tmp = ior(pack_tmp, data_tmp)
4225  ipack = ipack + 1
4226  packed_data(ipack) = pack_tmp
4227  data_tmp = full_data(idata)
4228  pack_tmp = ishft(data_tmp, 59)
4229  pack_tmp = ishft(pack_tmp, -7)
4230  idata = idata + 1
4231  data_tmp = full_data(idata)
4232  data_tmp = ishft(data_tmp, 57)
4233  pack_tmp = ior(pack_tmp, data_tmp)
4234  pack_tmp = ishft(pack_tmp, -7)
4235  idata = idata + 1
4236  data_tmp = full_data(idata)
4237  data_tmp = ishft(data_tmp, 57)
4238  pack_tmp = ior(pack_tmp, data_tmp)
4239  pack_tmp = ishft(pack_tmp, -7)
4240  idata = idata + 1
4241  data_tmp = full_data(idata)
4242  data_tmp = ishft(data_tmp, 57)
4243  pack_tmp = ior(pack_tmp, data_tmp)
4244  pack_tmp = ishft(pack_tmp, -7)
4245  idata = idata + 1
4246  data_tmp = full_data(idata)
4247  data_tmp = ishft(data_tmp, 57)
4248  pack_tmp = ior(pack_tmp, data_tmp)
4249  pack_tmp = ishft(pack_tmp, -7)
4250  idata = idata + 1
4251  data_tmp = full_data(idata)
4252  data_tmp = ishft(data_tmp, 57)
4253  pack_tmp = ior(pack_tmp, data_tmp)
4254  pack_tmp = ishft(pack_tmp, -7)
4255  idata = idata + 1
4256  data_tmp = full_data(idata)
4257  data_tmp = ishft(data_tmp, 57)
4258  pack_tmp = ior(pack_tmp, data_tmp)
4259  pack_tmp = ishft(pack_tmp, -7)
4260  idata = idata + 1
4261  data_tmp = full_data(idata)
4262  data_tmp = ishft(data_tmp, 57)
4263  pack_tmp = ior(pack_tmp, data_tmp)
4264  pack_tmp = ishft(pack_tmp, -7)
4265  idata = idata + 1
4266  data_tmp = full_data(idata)
4267  data_tmp = ishft(data_tmp, 57)
4268  pack_tmp = ior(pack_tmp, data_tmp)
4269  pack_tmp = ishft(pack_tmp, -3)
4270  idata = idata + 1
4271  data_tmp = full_data(idata)
4272  data_tmp = ishft(data_tmp, 57)
4273  data_tmp = iand(data_tmp, mask_left(3))
4274  pack_tmp = ior(pack_tmp, data_tmp)
4275  ipack = ipack + 1
4276  packed_data(ipack) = pack_tmp
4277  data_tmp = full_data(idata)
4278  pack_tmp = ishft(data_tmp, 60)
4279  pack_tmp = ishft(pack_tmp, -7)
4280  idata = idata + 1
4281  data_tmp = full_data(idata)
4282  data_tmp = ishft(data_tmp, 57)
4283  pack_tmp = ior(pack_tmp, data_tmp)
4284  pack_tmp = ishft(pack_tmp, -7)
4285  idata = idata + 1
4286  data_tmp = full_data(idata)
4287  data_tmp = ishft(data_tmp, 57)
4288  pack_tmp = ior(pack_tmp, data_tmp)
4289  pack_tmp = ishft(pack_tmp, -7)
4290  idata = idata + 1
4291  data_tmp = full_data(idata)
4292  data_tmp = ishft(data_tmp, 57)
4293  pack_tmp = ior(pack_tmp, data_tmp)
4294  pack_tmp = ishft(pack_tmp, -7)
4295  idata = idata + 1
4296  data_tmp = full_data(idata)
4297  data_tmp = ishft(data_tmp, 57)
4298  pack_tmp = ior(pack_tmp, data_tmp)
4299  pack_tmp = ishft(pack_tmp, -7)
4300  idata = idata + 1
4301  data_tmp = full_data(idata)
4302  data_tmp = ishft(data_tmp, 57)
4303  pack_tmp = ior(pack_tmp, data_tmp)
4304  pack_tmp = ishft(pack_tmp, -7)
4305  idata = idata + 1
4306  data_tmp = full_data(idata)
4307  data_tmp = ishft(data_tmp, 57)
4308  pack_tmp = ior(pack_tmp, data_tmp)
4309  pack_tmp = ishft(pack_tmp, -7)
4310  idata = idata + 1
4311  data_tmp = full_data(idata)
4312  data_tmp = ishft(data_tmp, 57)
4313  pack_tmp = ior(pack_tmp, data_tmp)
4314  pack_tmp = ishft(pack_tmp, -7)
4315  idata = idata + 1
4316  data_tmp = full_data(idata)
4317  data_tmp = ishft(data_tmp, 57)
4318  pack_tmp = ior(pack_tmp, data_tmp)
4319  pack_tmp = ishft(pack_tmp, -4)
4320  idata = idata + 1
4321  data_tmp = full_data(idata)
4322  data_tmp = ishft(data_tmp, 57)
4323  data_tmp = iand(data_tmp, mask_left(4))
4324  pack_tmp = ior(pack_tmp, data_tmp)
4325  ipack = ipack + 1
4326  packed_data(ipack) = pack_tmp
4327  data_tmp = full_data(idata)
4328  pack_tmp = ishft(data_tmp, 61)
4329  pack_tmp = ishft(pack_tmp, -7)
4330  idata = idata + 1
4331  data_tmp = full_data(idata)
4332  data_tmp = ishft(data_tmp, 57)
4333  pack_tmp = ior(pack_tmp, data_tmp)
4334  pack_tmp = ishft(pack_tmp, -7)
4335  idata = idata + 1
4336  data_tmp = full_data(idata)
4337  data_tmp = ishft(data_tmp, 57)
4338  pack_tmp = ior(pack_tmp, data_tmp)
4339  pack_tmp = ishft(pack_tmp, -7)
4340  idata = idata + 1
4341  data_tmp = full_data(idata)
4342  data_tmp = ishft(data_tmp, 57)
4343  pack_tmp = ior(pack_tmp, data_tmp)
4344  pack_tmp = ishft(pack_tmp, -7)
4345  idata = idata + 1
4346  data_tmp = full_data(idata)
4347  data_tmp = ishft(data_tmp, 57)
4348  pack_tmp = ior(pack_tmp, data_tmp)
4349  pack_tmp = ishft(pack_tmp, -7)
4350  idata = idata + 1
4351  data_tmp = full_data(idata)
4352  data_tmp = ishft(data_tmp, 57)
4353  pack_tmp = ior(pack_tmp, data_tmp)
4354  pack_tmp = ishft(pack_tmp, -7)
4355  idata = idata + 1
4356  data_tmp = full_data(idata)
4357  data_tmp = ishft(data_tmp, 57)
4358  pack_tmp = ior(pack_tmp, data_tmp)
4359  pack_tmp = ishft(pack_tmp, -7)
4360  idata = idata + 1
4361  data_tmp = full_data(idata)
4362  data_tmp = ishft(data_tmp, 57)
4363  pack_tmp = ior(pack_tmp, data_tmp)
4364  pack_tmp = ishft(pack_tmp, -7)
4365  idata = idata + 1
4366  data_tmp = full_data(idata)
4367  data_tmp = ishft(data_tmp, 57)
4368  pack_tmp = ior(pack_tmp, data_tmp)
4369  pack_tmp = ishft(pack_tmp, -5)
4370  idata = idata + 1
4371  data_tmp = full_data(idata)
4372  data_tmp = ishft(data_tmp, 57)
4373  data_tmp = iand(data_tmp, mask_left(5))
4374  pack_tmp = ior(pack_tmp, data_tmp)
4375  ipack = ipack + 1
4376  packed_data(ipack) = pack_tmp
4377  data_tmp = full_data(idata)
4378  pack_tmp = ishft(data_tmp, 62)
4379  pack_tmp = ishft(pack_tmp, -7)
4380  idata = idata + 1
4381  data_tmp = full_data(idata)
4382  data_tmp = ishft(data_tmp, 57)
4383  pack_tmp = ior(pack_tmp, data_tmp)
4384  pack_tmp = ishft(pack_tmp, -7)
4385  idata = idata + 1
4386  data_tmp = full_data(idata)
4387  data_tmp = ishft(data_tmp, 57)
4388  pack_tmp = ior(pack_tmp, data_tmp)
4389  pack_tmp = ishft(pack_tmp, -7)
4390  idata = idata + 1
4391  data_tmp = full_data(idata)
4392  data_tmp = ishft(data_tmp, 57)
4393  pack_tmp = ior(pack_tmp, data_tmp)
4394  pack_tmp = ishft(pack_tmp, -7)
4395  idata = idata + 1
4396  data_tmp = full_data(idata)
4397  data_tmp = ishft(data_tmp, 57)
4398  pack_tmp = ior(pack_tmp, data_tmp)
4399  pack_tmp = ishft(pack_tmp, -7)
4400  idata = idata + 1
4401  data_tmp = full_data(idata)
4402  data_tmp = ishft(data_tmp, 57)
4403  pack_tmp = ior(pack_tmp, data_tmp)
4404  pack_tmp = ishft(pack_tmp, -7)
4405  idata = idata + 1
4406  data_tmp = full_data(idata)
4407  data_tmp = ishft(data_tmp, 57)
4408  pack_tmp = ior(pack_tmp, data_tmp)
4409  pack_tmp = ishft(pack_tmp, -7)
4410  idata = idata + 1
4411  data_tmp = full_data(idata)
4412  data_tmp = ishft(data_tmp, 57)
4413  pack_tmp = ior(pack_tmp, data_tmp)
4414  pack_tmp = ishft(pack_tmp, -7)
4415  idata = idata + 1
4416  data_tmp = full_data(idata)
4417  data_tmp = ishft(data_tmp, 57)
4418  pack_tmp = ior(pack_tmp, data_tmp)
4419  pack_tmp = ishft(pack_tmp, -6)
4420  idata = idata + 1
4421  data_tmp = full_data(idata)
4422  data_tmp = ishft(data_tmp, 57)
4423  data_tmp = iand(data_tmp, mask_left(6))
4424  pack_tmp = ior(pack_tmp, data_tmp)
4425  ipack = ipack + 1
4426  packed_data(ipack) = pack_tmp
4427  data_tmp = full_data(idata)
4428  pack_tmp = ishft(data_tmp, 63)
4429  pack_tmp = ishft(pack_tmp, -7)
4430  idata = idata + 1
4431  data_tmp = full_data(idata)
4432  data_tmp = ishft(data_tmp, 57)
4433  pack_tmp = ior(pack_tmp, data_tmp)
4434  pack_tmp = ishft(pack_tmp, -7)
4435  idata = idata + 1
4436  data_tmp = full_data(idata)
4437  data_tmp = ishft(data_tmp, 57)
4438  pack_tmp = ior(pack_tmp, data_tmp)
4439  pack_tmp = ishft(pack_tmp, -7)
4440  idata = idata + 1
4441  data_tmp = full_data(idata)
4442  data_tmp = ishft(data_tmp, 57)
4443  pack_tmp = ior(pack_tmp, data_tmp)
4444  pack_tmp = ishft(pack_tmp, -7)
4445  idata = idata + 1
4446  data_tmp = full_data(idata)
4447  data_tmp = ishft(data_tmp, 57)
4448  pack_tmp = ior(pack_tmp, data_tmp)
4449  pack_tmp = ishft(pack_tmp, -7)
4450  idata = idata + 1
4451  data_tmp = full_data(idata)
4452  data_tmp = ishft(data_tmp, 57)
4453  pack_tmp = ior(pack_tmp, data_tmp)
4454  pack_tmp = ishft(pack_tmp, -7)
4455  idata = idata + 1
4456  data_tmp = full_data(idata)
4457  data_tmp = ishft(data_tmp, 57)
4458  pack_tmp = ior(pack_tmp, data_tmp)
4459  pack_tmp = ishft(pack_tmp, -7)
4460  idata = idata + 1
4461  data_tmp = full_data(idata)
4462  data_tmp = ishft(data_tmp, 57)
4463  pack_tmp = ior(pack_tmp, data_tmp)
4464  pack_tmp = ishft(pack_tmp, -7)
4465  idata = idata + 1
4466  data_tmp = full_data(idata)
4467  data_tmp = ishft(data_tmp, 57)
4468  pack_tmp = ior(pack_tmp, data_tmp)
4469  pack_tmp = ishft(pack_tmp, -7)
4470  idata = idata + 1
4471  data_tmp = full_data(idata)
4472  data_tmp = ishft(data_tmp, 57)
4473  pack_tmp = ior(pack_tmp, data_tmp)
4474  pack_tmp = ishft(pack_tmp, 0)
4475  pack_tmp = ishft(pack_tmp, 0)
4476  ipack = ipack + 1
4477  packed_data(ipack) = pack_tmp
4478  END DO
4479  IF (ndata_rep < ndata) THEN
4480  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
4481  END IF
4482  END SUBROUTINE ints2bits_7
4483 
4484 ! **************************************************************************************************
4485 !> \brief ...
4486 !> \param Ndata ...
4487 !> \param packed_data ...
4488 !> \param full_data ...
4489 ! **************************************************************************************************
4490  SUBROUTINE bits2ints_7(Ndata, packed_data, full_data)
4491  INTEGER, INTENT(IN) :: Ndata
4492  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
4493  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
4494 
4495  INTEGER, PARAMETER :: Nbits = 7
4496 
4497  INTEGER :: idata, ipack, kdata, Ndata_rep
4498  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
4499 
4500  ipack = 0
4501  idata = 0
4502  pack_tmp = 0
4503  ndata_rep = (ndata/64)*64
4504  DO kdata = 1, ndata_rep, 64
4505  idata = idata + 1
4506  data_tmp = ishft(pack_tmp, 7)
4507  ipack = ipack + 1
4508  pack_tmp = packed_data(ipack)
4509  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
4510  pack_tmp = ishft(pack_tmp, -7)
4511  idata = idata + 1
4512  data_tmp = iand(pack_tmp, mask_right(nbits))
4513  full_data(idata) = data_tmp
4514  pack_tmp = ishft(pack_tmp, -nbits)
4515  idata = idata + 1
4516  data_tmp = iand(pack_tmp, mask_right(nbits))
4517  full_data(idata) = data_tmp
4518  pack_tmp = ishft(pack_tmp, -nbits)
4519  idata = idata + 1
4520  data_tmp = iand(pack_tmp, mask_right(nbits))
4521  full_data(idata) = data_tmp
4522  pack_tmp = ishft(pack_tmp, -nbits)
4523  idata = idata + 1
4524  data_tmp = iand(pack_tmp, mask_right(nbits))
4525  full_data(idata) = data_tmp
4526  pack_tmp = ishft(pack_tmp, -nbits)
4527  idata = idata + 1
4528  data_tmp = iand(pack_tmp, mask_right(nbits))
4529  full_data(idata) = data_tmp
4530  pack_tmp = ishft(pack_tmp, -nbits)
4531  idata = idata + 1
4532  data_tmp = iand(pack_tmp, mask_right(nbits))
4533  full_data(idata) = data_tmp
4534  pack_tmp = ishft(pack_tmp, -nbits)
4535  idata = idata + 1
4536  data_tmp = iand(pack_tmp, mask_right(nbits))
4537  full_data(idata) = data_tmp
4538  pack_tmp = ishft(pack_tmp, -nbits)
4539  idata = idata + 1
4540  data_tmp = iand(pack_tmp, mask_right(nbits))
4541  full_data(idata) = data_tmp
4542  pack_tmp = ishft(pack_tmp, -nbits)
4543  idata = idata + 1
4544  data_tmp = ishft(pack_tmp, 6)
4545  ipack = ipack + 1
4546  pack_tmp = packed_data(ipack)
4547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
4548  pack_tmp = ishft(pack_tmp, -6)
4549  idata = idata + 1
4550  data_tmp = iand(pack_tmp, mask_right(nbits))
4551  full_data(idata) = data_tmp
4552  pack_tmp = ishft(pack_tmp, -nbits)
4553  idata = idata + 1
4554  data_tmp = iand(pack_tmp, mask_right(nbits))
4555  full_data(idata) = data_tmp
4556  pack_tmp = ishft(pack_tmp, -nbits)
4557  idata = idata + 1
4558  data_tmp = iand(pack_tmp, mask_right(nbits))
4559  full_data(idata) = data_tmp
4560  pack_tmp = ishft(pack_tmp, -nbits)
4561  idata = idata + 1
4562  data_tmp = iand(pack_tmp, mask_right(nbits))
4563  full_data(idata) = data_tmp
4564  pack_tmp = ishft(pack_tmp, -nbits)
4565  idata = idata + 1
4566  data_tmp = iand(pack_tmp, mask_right(nbits))
4567  full_data(idata) = data_tmp
4568  pack_tmp = ishft(pack_tmp, -nbits)
4569  idata = idata + 1
4570  data_tmp = iand(pack_tmp, mask_right(nbits))
4571  full_data(idata) = data_tmp
4572  pack_tmp = ishft(pack_tmp, -nbits)
4573  idata = idata + 1
4574  data_tmp = iand(pack_tmp, mask_right(nbits))
4575  full_data(idata) = data_tmp
4576  pack_tmp = ishft(pack_tmp, -nbits)
4577  idata = idata + 1
4578  data_tmp = iand(pack_tmp, mask_right(nbits))
4579  full_data(idata) = data_tmp
4580  pack_tmp = ishft(pack_tmp, -nbits)
4581  idata = idata + 1
4582  data_tmp = ishft(pack_tmp, 5)
4583  ipack = ipack + 1
4584  pack_tmp = packed_data(ipack)
4585  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
4586  pack_tmp = ishft(pack_tmp, -5)
4587  idata = idata + 1
4588  data_tmp = iand(pack_tmp, mask_right(nbits))
4589  full_data(idata) = data_tmp
4590  pack_tmp = ishft(pack_tmp, -nbits)
4591  idata = idata + 1
4592  data_tmp = iand(pack_tmp, mask_right(nbits))
4593  full_data(idata) = data_tmp
4594  pack_tmp = ishft(pack_tmp, -nbits)
4595  idata = idata + 1
4596  data_tmp = iand(pack_tmp, mask_right(nbits))
4597  full_data(idata) = data_tmp
4598  pack_tmp = ishft(pack_tmp, -nbits)
4599  idata = idata + 1
4600  data_tmp = iand(pack_tmp, mask_right(nbits))
4601  full_data(idata) = data_tmp
4602  pack_tmp = ishft(pack_tmp, -nbits)
4603  idata = idata + 1
4604  data_tmp = iand(pack_tmp, mask_right(nbits))
4605  full_data(idata) = data_tmp
4606  pack_tmp = ishft(pack_tmp, -nbits)
4607  idata = idata + 1
4608  data_tmp = iand(pack_tmp, mask_right(nbits))
4609  full_data(idata) = data_tmp
4610  pack_tmp = ishft(pack_tmp, -nbits)
4611  idata = idata + 1
4612  data_tmp = iand(pack_tmp, mask_right(nbits))
4613  full_data(idata) = data_tmp
4614  pack_tmp = ishft(pack_tmp, -nbits)
4615  idata = idata + 1
4616  data_tmp = iand(pack_tmp, mask_right(nbits))
4617  full_data(idata) = data_tmp
4618  pack_tmp = ishft(pack_tmp, -nbits)
4619  idata = idata + 1
4620  data_tmp = ishft(pack_tmp, 4)
4621  ipack = ipack + 1
4622  pack_tmp = packed_data(ipack)
4623  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
4624  pack_tmp = ishft(pack_tmp, -4)
4625  idata = idata + 1
4626  data_tmp = iand(pack_tmp, mask_right(nbits))
4627  full_data(idata) = data_tmp
4628  pack_tmp = ishft(pack_tmp, -nbits)
4629  idata = idata + 1
4630  data_tmp = iand(pack_tmp, mask_right(nbits))
4631  full_data(idata) = data_tmp
4632  pack_tmp = ishft(pack_tmp, -nbits)
4633  idata = idata + 1
4634  data_tmp = iand(pack_tmp, mask_right(nbits))
4635  full_data(idata) = data_tmp
4636  pack_tmp = ishft(pack_tmp, -nbits)
4637  idata = idata + 1
4638  data_tmp = iand(pack_tmp, mask_right(nbits))
4639  full_data(idata) = data_tmp
4640  pack_tmp = ishft(pack_tmp, -nbits)
4641  idata = idata + 1
4642  data_tmp = iand(pack_tmp, mask_right(nbits))
4643  full_data(idata) = data_tmp
4644  pack_tmp = ishft(pack_tmp, -nbits)
4645  idata = idata + 1
4646  data_tmp = iand(pack_tmp, mask_right(nbits))
4647  full_data(idata) = data_tmp
4648  pack_tmp = ishft(pack_tmp, -nbits)
4649  idata = idata + 1
4650  data_tmp = iand(pack_tmp, mask_right(nbits))
4651  full_data(idata) = data_tmp
4652  pack_tmp = ishft(pack_tmp, -nbits)
4653  idata = idata + 1
4654  data_tmp = iand(pack_tmp, mask_right(nbits))
4655  full_data(idata) = data_tmp
4656  pack_tmp = ishft(pack_tmp, -nbits)
4657  idata = idata + 1
4658  data_tmp = ishft(pack_tmp, 3)
4659  ipack = ipack + 1
4660  pack_tmp = packed_data(ipack)
4661  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
4662  pack_tmp = ishft(pack_tmp, -3)
4663  idata = idata + 1
4664  data_tmp = iand(pack_tmp, mask_right(nbits))
4665  full_data(idata) = data_tmp
4666  pack_tmp = ishft(pack_tmp, -nbits)
4667  idata = idata + 1
4668  data_tmp = iand(pack_tmp, mask_right(nbits))
4669  full_data(idata) = data_tmp
4670  pack_tmp = ishft(pack_tmp, -nbits)
4671  idata = idata + 1
4672  data_tmp = iand(pack_tmp, mask_right(nbits))
4673  full_data(idata) = data_tmp
4674  pack_tmp = ishft(pack_tmp, -nbits)
4675  idata = idata + 1
4676  data_tmp = iand(pack_tmp, mask_right(nbits))
4677  full_data(idata) = data_tmp
4678  pack_tmp = ishft(pack_tmp, -nbits)
4679  idata = idata + 1
4680  data_tmp = iand(pack_tmp, mask_right(nbits))
4681  full_data(idata) = data_tmp
4682  pack_tmp = ishft(pack_tmp, -nbits)
4683  idata = idata + 1
4684  data_tmp = iand(pack_tmp, mask_right(nbits))
4685  full_data(idata) = data_tmp
4686  pack_tmp = ishft(pack_tmp, -nbits)
4687  idata = idata + 1
4688  data_tmp = iand(pack_tmp, mask_right(nbits))
4689  full_data(idata) = data_tmp
4690  pack_tmp = ishft(pack_tmp, -nbits)
4691  idata = idata + 1
4692  data_tmp = iand(pack_tmp, mask_right(nbits))
4693  full_data(idata) = data_tmp
4694  pack_tmp = ishft(pack_tmp, -nbits)
4695  idata = idata + 1
4696  data_tmp = ishft(pack_tmp, 2)
4697  ipack = ipack + 1
4698  pack_tmp = packed_data(ipack)
4699  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
4700  pack_tmp = ishft(pack_tmp, -2)
4701  idata = idata + 1
4702  data_tmp = iand(pack_tmp, mask_right(nbits))
4703  full_data(idata) = data_tmp
4704  pack_tmp = ishft(pack_tmp, -nbits)
4705  idata = idata + 1
4706  data_tmp = iand(pack_tmp, mask_right(nbits))
4707  full_data(idata) = data_tmp
4708  pack_tmp = ishft(pack_tmp, -nbits)
4709  idata = idata + 1
4710  data_tmp = iand(pack_tmp, mask_right(nbits))
4711  full_data(idata) = data_tmp
4712  pack_tmp = ishft(pack_tmp, -nbits)
4713  idata = idata + 1
4714  data_tmp = iand(pack_tmp, mask_right(nbits))
4715  full_data(idata) = data_tmp
4716  pack_tmp = ishft(pack_tmp, -nbits)
4717  idata = idata + 1
4718  data_tmp = iand(pack_tmp, mask_right(nbits))
4719  full_data(idata) = data_tmp
4720  pack_tmp = ishft(pack_tmp, -nbits)
4721  idata = idata + 1
4722  data_tmp = iand(pack_tmp, mask_right(nbits))
4723  full_data(idata) = data_tmp
4724  pack_tmp = ishft(pack_tmp, -nbits)
4725  idata = idata + 1
4726  data_tmp = iand(pack_tmp, mask_right(nbits))
4727  full_data(idata) = data_tmp
4728  pack_tmp = ishft(pack_tmp, -nbits)
4729  idata = idata + 1
4730  data_tmp = iand(pack_tmp, mask_right(nbits))
4731  full_data(idata) = data_tmp
4732  pack_tmp = ishft(pack_tmp, -nbits)
4733  idata = idata + 1
4734  data_tmp = ishft(pack_tmp, 1)
4735  ipack = ipack + 1
4736  pack_tmp = packed_data(ipack)
4737  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
4738  pack_tmp = ishft(pack_tmp, -1)
4739  idata = idata + 1
4740  data_tmp = iand(pack_tmp, mask_right(nbits))
4741  full_data(idata) = data_tmp
4742  pack_tmp = ishft(pack_tmp, -nbits)
4743  idata = idata + 1
4744  data_tmp = iand(pack_tmp, mask_right(nbits))
4745  full_data(idata) = data_tmp
4746  pack_tmp = ishft(pack_tmp, -nbits)
4747  idata = idata + 1
4748  data_tmp = iand(pack_tmp, mask_right(nbits))
4749  full_data(idata) = data_tmp
4750  pack_tmp = ishft(pack_tmp, -nbits)
4751  idata = idata + 1
4752  data_tmp = iand(pack_tmp, mask_right(nbits))
4753  full_data(idata) = data_tmp
4754  pack_tmp = ishft(pack_tmp, -nbits)
4755  idata = idata + 1
4756  data_tmp = iand(pack_tmp, mask_right(nbits))
4757  full_data(idata) = data_tmp
4758  pack_tmp = ishft(pack_tmp, -nbits)
4759  idata = idata + 1
4760  data_tmp = iand(pack_tmp, mask_right(nbits))
4761  full_data(idata) = data_tmp
4762  pack_tmp = ishft(pack_tmp, -nbits)
4763  idata = idata + 1
4764  data_tmp = iand(pack_tmp, mask_right(nbits))
4765  full_data(idata) = data_tmp
4766  pack_tmp = ishft(pack_tmp, -nbits)
4767  idata = idata + 1
4768  data_tmp = iand(pack_tmp, mask_right(nbits))
4769  full_data(idata) = data_tmp
4770  pack_tmp = ishft(pack_tmp, -nbits)
4771  idata = idata + 1
4772  data_tmp = iand(pack_tmp, mask_right(nbits))
4773  full_data(idata) = data_tmp
4774  pack_tmp = ishft(pack_tmp, -nbits)
4775  END DO
4776  IF (ndata_rep < ndata) THEN
4777  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
4778  END IF
4779  END SUBROUTINE bits2ints_7
4780 
4781 ! **************************************************************************************************
4782 !> \brief ...
4783 !> \param Ndata ...
4784 !> \param packed_data ...
4785 !> \param full_data ...
4786 ! **************************************************************************************************
4787  SUBROUTINE ints2bits_8(Ndata, packed_data, full_data)
4788  INTEGER, INTENT(IN) :: Ndata
4789  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
4790  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
4791 
4792  INTEGER, PARAMETER :: Nbits = 8
4793 
4794  INTEGER :: idata, ipack, kdata, Ndata_rep
4795  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
4796 
4797  idata = 0
4798  ipack = 0
4799  ndata_rep = (ndata/64)*64
4800  DO kdata = 1, ndata_rep, 64
4801  pack_tmp = 0
4802  idata = idata + 1
4803  data_tmp = full_data(idata)
4804  data_tmp = ishft(data_tmp, 56)
4805  pack_tmp = ior(pack_tmp, data_tmp)
4806  pack_tmp = ishft(pack_tmp, -8)
4807  idata = idata + 1
4808  data_tmp = full_data(idata)
4809  data_tmp = ishft(data_tmp, 56)
4810  pack_tmp = ior(pack_tmp, data_tmp)
4811  pack_tmp = ishft(pack_tmp, -8)
4812  idata = idata + 1
4813  data_tmp = full_data(idata)
4814  data_tmp = ishft(data_tmp, 56)
4815  pack_tmp = ior(pack_tmp, data_tmp)
4816  pack_tmp = ishft(pack_tmp, -8)
4817  idata = idata + 1
4818  data_tmp = full_data(idata)
4819  data_tmp = ishft(data_tmp, 56)
4820  pack_tmp = ior(pack_tmp, data_tmp)
4821  pack_tmp = ishft(pack_tmp, -8)
4822  idata = idata + 1
4823  data_tmp = full_data(idata)
4824  data_tmp = ishft(data_tmp, 56)
4825  pack_tmp = ior(pack_tmp, data_tmp)
4826  pack_tmp = ishft(pack_tmp, -8)
4827  idata = idata + 1
4828  data_tmp = full_data(idata)
4829  data_tmp = ishft(data_tmp, 56)
4830  pack_tmp = ior(pack_tmp, data_tmp)
4831  pack_tmp = ishft(pack_tmp, -8)
4832  idata = idata + 1
4833  data_tmp = full_data(idata)
4834  data_tmp = ishft(data_tmp, 56)
4835  pack_tmp = ior(pack_tmp, data_tmp)
4836  pack_tmp = ishft(pack_tmp, -8)
4837  idata = idata + 1
4838  data_tmp = full_data(idata)
4839  data_tmp = ishft(data_tmp, 56)
4840  pack_tmp = ior(pack_tmp, data_tmp)
4841  pack_tmp = ishft(pack_tmp, 0)
4842  idata = idata + 1
4843  data_tmp = full_data(idata)
4844  data_tmp = ishft(data_tmp, 56)
4845  data_tmp = iand(data_tmp, mask_left(0))
4846  pack_tmp = ior(pack_tmp, data_tmp)
4847  ipack = ipack + 1
4848  packed_data(ipack) = pack_tmp
4849  data_tmp = full_data(idata)
4850  pack_tmp = ishft(data_tmp, 56)
4851  pack_tmp = ishft(pack_tmp, -8)
4852  idata = idata + 1
4853  data_tmp = full_data(idata)
4854  data_tmp = ishft(data_tmp, 56)
4855  pack_tmp = ior(pack_tmp, data_tmp)
4856  pack_tmp = ishft(pack_tmp, -8)
4857  idata = idata + 1
4858  data_tmp = full_data(idata)
4859  data_tmp = ishft(data_tmp, 56)
4860  pack_tmp = ior(pack_tmp, data_tmp)
4861  pack_tmp = ishft(pack_tmp, -8)
4862  idata = idata + 1
4863  data_tmp = full_data(idata)
4864  data_tmp = ishft(data_tmp, 56)
4865  pack_tmp = ior(pack_tmp, data_tmp)
4866  pack_tmp = ishft(pack_tmp, -8)
4867  idata = idata + 1
4868  data_tmp = full_data(idata)
4869  data_tmp = ishft(data_tmp, 56)
4870  pack_tmp = ior(pack_tmp, data_tmp)
4871  pack_tmp = ishft(pack_tmp, -8)
4872  idata = idata + 1
4873  data_tmp = full_data(idata)
4874  data_tmp = ishft(data_tmp, 56)
4875  pack_tmp = ior(pack_tmp, data_tmp)
4876  pack_tmp = ishft(pack_tmp, -8)
4877  idata = idata + 1
4878  data_tmp = full_data(idata)
4879  data_tmp = ishft(data_tmp, 56)
4880  pack_tmp = ior(pack_tmp, data_tmp)
4881  pack_tmp = ishft(pack_tmp, -8)
4882  idata = idata + 1
4883  data_tmp = full_data(idata)
4884  data_tmp = ishft(data_tmp, 56)
4885  pack_tmp = ior(pack_tmp, data_tmp)
4886  pack_tmp = ishft(pack_tmp, 0)
4887  idata = idata + 1
4888  data_tmp = full_data(idata)
4889  data_tmp = ishft(data_tmp, 56)
4890  data_tmp = iand(data_tmp, mask_left(0))
4891  pack_tmp = ior(pack_tmp, data_tmp)
4892  ipack = ipack + 1
4893  packed_data(ipack) = pack_tmp
4894  data_tmp = full_data(idata)
4895  pack_tmp = ishft(data_tmp, 56)
4896  pack_tmp = ishft(pack_tmp, -8)
4897  idata = idata + 1
4898  data_tmp = full_data(idata)
4899  data_tmp = ishft(data_tmp, 56)
4900  pack_tmp = ior(pack_tmp, data_tmp)
4901  pack_tmp = ishft(pack_tmp, -8)
4902  idata = idata + 1
4903  data_tmp = full_data(idata)
4904  data_tmp = ishft(data_tmp, 56)
4905  pack_tmp = ior(pack_tmp, data_tmp)
4906  pack_tmp = ishft(pack_tmp, -8)
4907  idata = idata + 1
4908  data_tmp = full_data(idata)
4909  data_tmp = ishft(data_tmp, 56)
4910  pack_tmp = ior(pack_tmp, data_tmp)
4911  pack_tmp = ishft(pack_tmp, -8)
4912  idata = idata + 1
4913  data_tmp = full_data(idata)
4914  data_tmp = ishft(data_tmp, 56)
4915  pack_tmp = ior(pack_tmp, data_tmp)
4916  pack_tmp = ishft(pack_tmp, -8)
4917  idata = idata + 1
4918  data_tmp = full_data(idata)
4919  data_tmp = ishft(data_tmp, 56)
4920  pack_tmp = ior(pack_tmp, data_tmp)
4921  pack_tmp = ishft(pack_tmp, -8)
4922  idata = idata + 1
4923  data_tmp = full_data(idata)
4924  data_tmp = ishft(data_tmp, 56)
4925  pack_tmp = ior(pack_tmp, data_tmp)
4926  pack_tmp = ishft(pack_tmp, -8)
4927  idata = idata + 1
4928  data_tmp = full_data(idata)
4929  data_tmp = ishft(data_tmp, 56)
4930  pack_tmp = ior(pack_tmp, data_tmp)
4931  pack_tmp = ishft(pack_tmp, 0)
4932  idata = idata + 1
4933  data_tmp = full_data(idata)
4934  data_tmp = ishft(data_tmp, 56)
4935  data_tmp = iand(data_tmp, mask_left(0))
4936  pack_tmp = ior(pack_tmp, data_tmp)
4937  ipack = ipack + 1
4938  packed_data(ipack) = pack_tmp
4939  data_tmp = full_data(idata)
4940  pack_tmp = ishft(data_tmp, 56)
4941  pack_tmp = ishft(pack_tmp, -8)
4942  idata = idata + 1
4943  data_tmp = full_data(idata)
4944  data_tmp = ishft(data_tmp, 56)
4945  pack_tmp = ior(pack_tmp, data_tmp)
4946  pack_tmp = ishft(pack_tmp, -8)
4947  idata = idata + 1
4948  data_tmp = full_data(idata)
4949  data_tmp = ishft(data_tmp, 56)
4950  pack_tmp = ior(pack_tmp, data_tmp)
4951  pack_tmp = ishft(pack_tmp, -8)
4952  idata = idata + 1
4953  data_tmp = full_data(idata)
4954  data_tmp = ishft(data_tmp, 56)
4955  pack_tmp = ior(pack_tmp, data_tmp)
4956  pack_tmp = ishft(pack_tmp, -8)
4957  idata = idata + 1
4958  data_tmp = full_data(idata)
4959  data_tmp = ishft(data_tmp, 56)
4960  pack_tmp = ior(pack_tmp, data_tmp)
4961  pack_tmp = ishft(pack_tmp, -8)
4962  idata = idata + 1
4963  data_tmp = full_data(idata)
4964  data_tmp = ishft(data_tmp, 56)
4965  pack_tmp = ior(pack_tmp, data_tmp)
4966  pack_tmp = ishft(pack_tmp, -8)
4967  idata = idata + 1
4968  data_tmp = full_data(idata)
4969  data_tmp = ishft(data_tmp, 56)
4970  pack_tmp = ior(pack_tmp, data_tmp)
4971  pack_tmp = ishft(pack_tmp, -8)
4972  idata = idata + 1
4973  data_tmp = full_data(idata)
4974  data_tmp = ishft(data_tmp, 56)
4975  pack_tmp = ior(pack_tmp, data_tmp)
4976  pack_tmp = ishft(pack_tmp, 0)
4977  idata = idata + 1
4978  data_tmp = full_data(idata)
4979  data_tmp = ishft(data_tmp, 56)
4980  data_tmp = iand(data_tmp, mask_left(0))
4981  pack_tmp = ior(pack_tmp, data_tmp)
4982  ipack = ipack + 1
4983  packed_data(ipack) = pack_tmp
4984  data_tmp = full_data(idata)
4985  pack_tmp = ishft(data_tmp, 56)
4986  pack_tmp = ishft(pack_tmp, -8)
4987  idata = idata + 1
4988  data_tmp = full_data(idata)
4989  data_tmp = ishft(data_tmp, 56)
4990  pack_tmp = ior(pack_tmp, data_tmp)
4991  pack_tmp = ishft(pack_tmp, -8)
4992  idata = idata + 1
4993  data_tmp = full_data(idata)
4994  data_tmp = ishft(data_tmp, 56)
4995  pack_tmp = ior(pack_tmp, data_tmp)
4996  pack_tmp = ishft(pack_tmp, -8)
4997  idata = idata + 1
4998  data_tmp = full_data(idata)
4999  data_tmp = ishft(data_tmp, 56)
5000  pack_tmp = ior(pack_tmp, data_tmp)
5001  pack_tmp = ishft(pack_tmp, -8)
5002  idata = idata + 1
5003  data_tmp = full_data(idata)
5004  data_tmp = ishft(data_tmp, 56)
5005  pack_tmp = ior(pack_tmp, data_tmp)
5006  pack_tmp = ishft(pack_tmp, -8)
5007  idata = idata + 1
5008  data_tmp = full_data(idata)
5009  data_tmp = ishft(data_tmp, 56)
5010  pack_tmp = ior(pack_tmp, data_tmp)
5011  pack_tmp = ishft(pack_tmp, -8)
5012  idata = idata + 1
5013  data_tmp = full_data(idata)
5014  data_tmp = ishft(data_tmp, 56)
5015  pack_tmp = ior(pack_tmp, data_tmp)
5016  pack_tmp = ishft(pack_tmp, -8)
5017  idata = idata + 1
5018  data_tmp = full_data(idata)
5019  data_tmp = ishft(data_tmp, 56)
5020  pack_tmp = ior(pack_tmp, data_tmp)
5021  pack_tmp = ishft(pack_tmp, 0)
5022  idata = idata + 1
5023  data_tmp = full_data(idata)
5024  data_tmp = ishft(data_tmp, 56)
5025  data_tmp = iand(data_tmp, mask_left(0))
5026  pack_tmp = ior(pack_tmp, data_tmp)
5027  ipack = ipack + 1
5028  packed_data(ipack) = pack_tmp
5029  data_tmp = full_data(idata)
5030  pack_tmp = ishft(data_tmp, 56)
5031  pack_tmp = ishft(pack_tmp, -8)
5032  idata = idata + 1
5033  data_tmp = full_data(idata)
5034  data_tmp = ishft(data_tmp, 56)
5035  pack_tmp = ior(pack_tmp, data_tmp)
5036  pack_tmp = ishft(pack_tmp, -8)
5037  idata = idata + 1
5038  data_tmp = full_data(idata)
5039  data_tmp = ishft(data_tmp, 56)
5040  pack_tmp = ior(pack_tmp, data_tmp)
5041  pack_tmp = ishft(pack_tmp, -8)
5042  idata = idata + 1
5043  data_tmp = full_data(idata)
5044  data_tmp = ishft(data_tmp, 56)
5045  pack_tmp = ior(pack_tmp, data_tmp)
5046  pack_tmp = ishft(pack_tmp, -8)
5047  idata = idata + 1
5048  data_tmp = full_data(idata)
5049  data_tmp = ishft(data_tmp, 56)
5050  pack_tmp = ior(pack_tmp, data_tmp)
5051  pack_tmp = ishft(pack_tmp, -8)
5052  idata = idata + 1
5053  data_tmp = full_data(idata)
5054  data_tmp = ishft(data_tmp, 56)
5055  pack_tmp = ior(pack_tmp, data_tmp)
5056  pack_tmp = ishft(pack_tmp, -8)
5057  idata = idata + 1
5058  data_tmp = full_data(idata)
5059  data_tmp = ishft(data_tmp, 56)
5060  pack_tmp = ior(pack_tmp, data_tmp)
5061  pack_tmp = ishft(pack_tmp, -8)
5062  idata = idata + 1
5063  data_tmp = full_data(idata)
5064  data_tmp = ishft(data_tmp, 56)
5065  pack_tmp = ior(pack_tmp, data_tmp)
5066  pack_tmp = ishft(pack_tmp, 0)
5067  idata = idata + 1
5068  data_tmp = full_data(idata)
5069  data_tmp = ishft(data_tmp, 56)
5070  data_tmp = iand(data_tmp, mask_left(0))
5071  pack_tmp = ior(pack_tmp, data_tmp)
5072  ipack = ipack + 1
5073  packed_data(ipack) = pack_tmp
5074  data_tmp = full_data(idata)
5075  pack_tmp = ishft(data_tmp, 56)
5076  pack_tmp = ishft(pack_tmp, -8)
5077  idata = idata + 1
5078  data_tmp = full_data(idata)
5079  data_tmp = ishft(data_tmp, 56)
5080  pack_tmp = ior(pack_tmp, data_tmp)
5081  pack_tmp = ishft(pack_tmp, -8)
5082  idata = idata + 1
5083  data_tmp = full_data(idata)
5084  data_tmp = ishft(data_tmp, 56)
5085  pack_tmp = ior(pack_tmp, data_tmp)
5086  pack_tmp = ishft(pack_tmp, -8)
5087  idata = idata + 1
5088  data_tmp = full_data(idata)
5089  data_tmp = ishft(data_tmp, 56)
5090  pack_tmp = ior(pack_tmp, data_tmp)
5091  pack_tmp = ishft(pack_tmp, -8)
5092  idata = idata + 1
5093  data_tmp = full_data(idata)
5094  data_tmp = ishft(data_tmp, 56)
5095  pack_tmp = ior(pack_tmp, data_tmp)
5096  pack_tmp = ishft(pack_tmp, -8)
5097  idata = idata + 1
5098  data_tmp = full_data(idata)
5099  data_tmp = ishft(data_tmp, 56)
5100  pack_tmp = ior(pack_tmp, data_tmp)
5101  pack_tmp = ishft(pack_tmp, -8)
5102  idata = idata + 1
5103  data_tmp = full_data(idata)
5104  data_tmp = ishft(data_tmp, 56)
5105  pack_tmp = ior(pack_tmp, data_tmp)
5106  pack_tmp = ishft(pack_tmp, -8)
5107  idata = idata + 1
5108  data_tmp = full_data(idata)
5109  data_tmp = ishft(data_tmp, 56)
5110  pack_tmp = ior(pack_tmp, data_tmp)
5111  pack_tmp = ishft(pack_tmp, 0)
5112  idata = idata + 1
5113  data_tmp = full_data(idata)
5114  data_tmp = ishft(data_tmp, 56)
5115  data_tmp = iand(data_tmp, mask_left(0))
5116  pack_tmp = ior(pack_tmp, data_tmp)
5117  ipack = ipack + 1
5118  packed_data(ipack) = pack_tmp
5119  data_tmp = full_data(idata)
5120  pack_tmp = ishft(data_tmp, 56)
5121  pack_tmp = ishft(pack_tmp, -8)
5122  idata = idata + 1
5123  data_tmp = full_data(idata)
5124  data_tmp = ishft(data_tmp, 56)
5125  pack_tmp = ior(pack_tmp, data_tmp)
5126  pack_tmp = ishft(pack_tmp, -8)
5127  idata = idata + 1
5128  data_tmp = full_data(idata)
5129  data_tmp = ishft(data_tmp, 56)
5130  pack_tmp = ior(pack_tmp, data_tmp)
5131  pack_tmp = ishft(pack_tmp, -8)
5132  idata = idata + 1
5133  data_tmp = full_data(idata)
5134  data_tmp = ishft(data_tmp, 56)
5135  pack_tmp = ior(pack_tmp, data_tmp)
5136  pack_tmp = ishft(pack_tmp, -8)
5137  idata = idata + 1
5138  data_tmp = full_data(idata)
5139  data_tmp = ishft(data_tmp, 56)
5140  pack_tmp = ior(pack_tmp, data_tmp)
5141  pack_tmp = ishft(pack_tmp, -8)
5142  idata = idata + 1
5143  data_tmp = full_data(idata)
5144  data_tmp = ishft(data_tmp, 56)
5145  pack_tmp = ior(pack_tmp, data_tmp)
5146  pack_tmp = ishft(pack_tmp, -8)
5147  idata = idata + 1
5148  data_tmp = full_data(idata)
5149  data_tmp = ishft(data_tmp, 56)
5150  pack_tmp = ior(pack_tmp, data_tmp)
5151  pack_tmp = ishft(pack_tmp, -8)
5152  idata = idata + 1
5153  data_tmp = full_data(idata)
5154  data_tmp = ishft(data_tmp, 56)
5155  pack_tmp = ior(pack_tmp, data_tmp)
5156  pack_tmp = ishft(pack_tmp, 0)
5157  pack_tmp = ishft(pack_tmp, 0)
5158  ipack = ipack + 1
5159  packed_data(ipack) = pack_tmp
5160  END DO
5161  IF (ndata_rep < ndata) THEN
5162  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
5163  END IF
5164  END SUBROUTINE ints2bits_8
5165 
5166 ! **************************************************************************************************
5167 !> \brief ...
5168 !> \param Ndata ...
5169 !> \param packed_data ...
5170 !> \param full_data ...
5171 ! **************************************************************************************************
5172  SUBROUTINE bits2ints_8(Ndata, packed_data, full_data)
5173  INTEGER, INTENT(IN) :: Ndata
5174  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
5175  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
5176 
5177  INTEGER, PARAMETER :: Nbits = 8
5178 
5179  INTEGER :: idata, ipack, kdata, Ndata_rep
5180  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
5181 
5182  ipack = 0
5183  idata = 0
5184  pack_tmp = 0
5185  ndata_rep = (ndata/64)*64
5186  DO kdata = 1, ndata_rep, 64
5187  idata = idata + 1
5188  data_tmp = ishft(pack_tmp, 8)
5189  ipack = ipack + 1
5190  pack_tmp = packed_data(ipack)
5191  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5192  pack_tmp = ishft(pack_tmp, -8)
5193  idata = idata + 1
5194  data_tmp = iand(pack_tmp, mask_right(nbits))
5195  full_data(idata) = data_tmp
5196  pack_tmp = ishft(pack_tmp, -nbits)
5197  idata = idata + 1
5198  data_tmp = iand(pack_tmp, mask_right(nbits))
5199  full_data(idata) = data_tmp
5200  pack_tmp = ishft(pack_tmp, -nbits)
5201  idata = idata + 1
5202  data_tmp = iand(pack_tmp, mask_right(nbits))
5203  full_data(idata) = data_tmp
5204  pack_tmp = ishft(pack_tmp, -nbits)
5205  idata = idata + 1
5206  data_tmp = iand(pack_tmp, mask_right(nbits))
5207  full_data(idata) = data_tmp
5208  pack_tmp = ishft(pack_tmp, -nbits)
5209  idata = idata + 1
5210  data_tmp = iand(pack_tmp, mask_right(nbits))
5211  full_data(idata) = data_tmp
5212  pack_tmp = ishft(pack_tmp, -nbits)
5213  idata = idata + 1
5214  data_tmp = iand(pack_tmp, mask_right(nbits))
5215  full_data(idata) = data_tmp
5216  pack_tmp = ishft(pack_tmp, -nbits)
5217  idata = idata + 1
5218  data_tmp = iand(pack_tmp, mask_right(nbits))
5219  full_data(idata) = data_tmp
5220  pack_tmp = ishft(pack_tmp, -nbits)
5221  idata = idata + 1
5222  data_tmp = ishft(pack_tmp, 8)
5223  ipack = ipack + 1
5224  pack_tmp = packed_data(ipack)
5225  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5226  pack_tmp = ishft(pack_tmp, -8)
5227  idata = idata + 1
5228  data_tmp = iand(pack_tmp, mask_right(nbits))
5229  full_data(idata) = data_tmp
5230  pack_tmp = ishft(pack_tmp, -nbits)
5231  idata = idata + 1
5232  data_tmp = iand(pack_tmp, mask_right(nbits))
5233  full_data(idata) = data_tmp
5234  pack_tmp = ishft(pack_tmp, -nbits)
5235  idata = idata + 1
5236  data_tmp = iand(pack_tmp, mask_right(nbits))
5237  full_data(idata) = data_tmp
5238  pack_tmp = ishft(pack_tmp, -nbits)
5239  idata = idata + 1
5240  data_tmp = iand(pack_tmp, mask_right(nbits))
5241  full_data(idata) = data_tmp
5242  pack_tmp = ishft(pack_tmp, -nbits)
5243  idata = idata + 1
5244  data_tmp = iand(pack_tmp, mask_right(nbits))
5245  full_data(idata) = data_tmp
5246  pack_tmp = ishft(pack_tmp, -nbits)
5247  idata = idata + 1
5248  data_tmp = iand(pack_tmp, mask_right(nbits))
5249  full_data(idata) = data_tmp
5250  pack_tmp = ishft(pack_tmp, -nbits)
5251  idata = idata + 1
5252  data_tmp = iand(pack_tmp, mask_right(nbits))
5253  full_data(idata) = data_tmp
5254  pack_tmp = ishft(pack_tmp, -nbits)
5255  idata = idata + 1
5256  data_tmp = ishft(pack_tmp, 8)
5257  ipack = ipack + 1
5258  pack_tmp = packed_data(ipack)
5259  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5260  pack_tmp = ishft(pack_tmp, -8)
5261  idata = idata + 1
5262  data_tmp = iand(pack_tmp, mask_right(nbits))
5263  full_data(idata) = data_tmp
5264  pack_tmp = ishft(pack_tmp, -nbits)
5265  idata = idata + 1
5266  data_tmp = iand(pack_tmp, mask_right(nbits))
5267  full_data(idata) = data_tmp
5268  pack_tmp = ishft(pack_tmp, -nbits)
5269  idata = idata + 1
5270  data_tmp = iand(pack_tmp, mask_right(nbits))
5271  full_data(idata) = data_tmp
5272  pack_tmp = ishft(pack_tmp, -nbits)
5273  idata = idata + 1
5274  data_tmp = iand(pack_tmp, mask_right(nbits))
5275  full_data(idata) = data_tmp
5276  pack_tmp = ishft(pack_tmp, -nbits)
5277  idata = idata + 1
5278  data_tmp = iand(pack_tmp, mask_right(nbits))
5279  full_data(idata) = data_tmp
5280  pack_tmp = ishft(pack_tmp, -nbits)
5281  idata = idata + 1
5282  data_tmp = iand(pack_tmp, mask_right(nbits))
5283  full_data(idata) = data_tmp
5284  pack_tmp = ishft(pack_tmp, -nbits)
5285  idata = idata + 1
5286  data_tmp = iand(pack_tmp, mask_right(nbits))
5287  full_data(idata) = data_tmp
5288  pack_tmp = ishft(pack_tmp, -nbits)
5289  idata = idata + 1
5290  data_tmp = ishft(pack_tmp, 8)
5291  ipack = ipack + 1
5292  pack_tmp = packed_data(ipack)
5293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5294  pack_tmp = ishft(pack_tmp, -8)
5295  idata = idata + 1
5296  data_tmp = iand(pack_tmp, mask_right(nbits))
5297  full_data(idata) = data_tmp
5298  pack_tmp = ishft(pack_tmp, -nbits)
5299  idata = idata + 1
5300  data_tmp = iand(pack_tmp, mask_right(nbits))
5301  full_data(idata) = data_tmp
5302  pack_tmp = ishft(pack_tmp, -nbits)
5303  idata = idata + 1
5304  data_tmp = iand(pack_tmp, mask_right(nbits))
5305  full_data(idata) = data_tmp
5306  pack_tmp = ishft(pack_tmp, -nbits)
5307  idata = idata + 1
5308  data_tmp = iand(pack_tmp, mask_right(nbits))
5309  full_data(idata) = data_tmp
5310  pack_tmp = ishft(pack_tmp, -nbits)
5311  idata = idata + 1
5312  data_tmp = iand(pack_tmp, mask_right(nbits))
5313  full_data(idata) = data_tmp
5314  pack_tmp = ishft(pack_tmp, -nbits)
5315  idata = idata + 1
5316  data_tmp = iand(pack_tmp, mask_right(nbits))
5317  full_data(idata) = data_tmp
5318  pack_tmp = ishft(pack_tmp, -nbits)
5319  idata = idata + 1
5320  data_tmp = iand(pack_tmp, mask_right(nbits))
5321  full_data(idata) = data_tmp
5322  pack_tmp = ishft(pack_tmp, -nbits)
5323  idata = idata + 1
5324  data_tmp = ishft(pack_tmp, 8)
5325  ipack = ipack + 1
5326  pack_tmp = packed_data(ipack)
5327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5328  pack_tmp = ishft(pack_tmp, -8)
5329  idata = idata + 1
5330  data_tmp = iand(pack_tmp, mask_right(nbits))
5331  full_data(idata) = data_tmp
5332  pack_tmp = ishft(pack_tmp, -nbits)
5333  idata = idata + 1
5334  data_tmp = iand(pack_tmp, mask_right(nbits))
5335  full_data(idata) = data_tmp
5336  pack_tmp = ishft(pack_tmp, -nbits)
5337  idata = idata + 1
5338  data_tmp = iand(pack_tmp, mask_right(nbits))
5339  full_data(idata) = data_tmp
5340  pack_tmp = ishft(pack_tmp, -nbits)
5341  idata = idata + 1
5342  data_tmp = iand(pack_tmp, mask_right(nbits))
5343  full_data(idata) = data_tmp
5344  pack_tmp = ishft(pack_tmp, -nbits)
5345  idata = idata + 1
5346  data_tmp = iand(pack_tmp, mask_right(nbits))
5347  full_data(idata) = data_tmp
5348  pack_tmp = ishft(pack_tmp, -nbits)
5349  idata = idata + 1
5350  data_tmp = iand(pack_tmp, mask_right(nbits))
5351  full_data(idata) = data_tmp
5352  pack_tmp = ishft(pack_tmp, -nbits)
5353  idata = idata + 1
5354  data_tmp = iand(pack_tmp, mask_right(nbits))
5355  full_data(idata) = data_tmp
5356  pack_tmp = ishft(pack_tmp, -nbits)
5357  idata = idata + 1
5358  data_tmp = ishft(pack_tmp, 8)
5359  ipack = ipack + 1
5360  pack_tmp = packed_data(ipack)
5361  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5362  pack_tmp = ishft(pack_tmp, -8)
5363  idata = idata + 1
5364  data_tmp = iand(pack_tmp, mask_right(nbits))
5365  full_data(idata) = data_tmp
5366  pack_tmp = ishft(pack_tmp, -nbits)
5367  idata = idata + 1
5368  data_tmp = iand(pack_tmp, mask_right(nbits))
5369  full_data(idata) = data_tmp
5370  pack_tmp = ishft(pack_tmp, -nbits)
5371  idata = idata + 1
5372  data_tmp = iand(pack_tmp, mask_right(nbits))
5373  full_data(idata) = data_tmp
5374  pack_tmp = ishft(pack_tmp, -nbits)
5375  idata = idata + 1
5376  data_tmp = iand(pack_tmp, mask_right(nbits))
5377  full_data(idata) = data_tmp
5378  pack_tmp = ishft(pack_tmp, -nbits)
5379  idata = idata + 1
5380  data_tmp = iand(pack_tmp, mask_right(nbits))
5381  full_data(idata) = data_tmp
5382  pack_tmp = ishft(pack_tmp, -nbits)
5383  idata = idata + 1
5384  data_tmp = iand(pack_tmp, mask_right(nbits))
5385  full_data(idata) = data_tmp
5386  pack_tmp = ishft(pack_tmp, -nbits)
5387  idata = idata + 1
5388  data_tmp = iand(pack_tmp, mask_right(nbits))
5389  full_data(idata) = data_tmp
5390  pack_tmp = ishft(pack_tmp, -nbits)
5391  idata = idata + 1
5392  data_tmp = ishft(pack_tmp, 8)
5393  ipack = ipack + 1
5394  pack_tmp = packed_data(ipack)
5395  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5396  pack_tmp = ishft(pack_tmp, -8)
5397  idata = idata + 1
5398  data_tmp = iand(pack_tmp, mask_right(nbits))
5399  full_data(idata) = data_tmp
5400  pack_tmp = ishft(pack_tmp, -nbits)
5401  idata = idata + 1
5402  data_tmp = iand(pack_tmp, mask_right(nbits))
5403  full_data(idata) = data_tmp
5404  pack_tmp = ishft(pack_tmp, -nbits)
5405  idata = idata + 1
5406  data_tmp = iand(pack_tmp, mask_right(nbits))
5407  full_data(idata) = data_tmp
5408  pack_tmp = ishft(pack_tmp, -nbits)
5409  idata = idata + 1
5410  data_tmp = iand(pack_tmp, mask_right(nbits))
5411  full_data(idata) = data_tmp
5412  pack_tmp = ishft(pack_tmp, -nbits)
5413  idata = idata + 1
5414  data_tmp = iand(pack_tmp, mask_right(nbits))
5415  full_data(idata) = data_tmp
5416  pack_tmp = ishft(pack_tmp, -nbits)
5417  idata = idata + 1
5418  data_tmp = iand(pack_tmp, mask_right(nbits))
5419  full_data(idata) = data_tmp
5420  pack_tmp = ishft(pack_tmp, -nbits)
5421  idata = idata + 1
5422  data_tmp = iand(pack_tmp, mask_right(nbits))
5423  full_data(idata) = data_tmp
5424  pack_tmp = ishft(pack_tmp, -nbits)
5425  idata = idata + 1
5426  data_tmp = ishft(pack_tmp, 8)
5427  ipack = ipack + 1
5428  pack_tmp = packed_data(ipack)
5429  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5430  pack_tmp = ishft(pack_tmp, -8)
5431  idata = idata + 1
5432  data_tmp = iand(pack_tmp, mask_right(nbits))
5433  full_data(idata) = data_tmp
5434  pack_tmp = ishft(pack_tmp, -nbits)
5435  idata = idata + 1
5436  data_tmp = iand(pack_tmp, mask_right(nbits))
5437  full_data(idata) = data_tmp
5438  pack_tmp = ishft(pack_tmp, -nbits)
5439  idata = idata + 1
5440  data_tmp = iand(pack_tmp, mask_right(nbits))
5441  full_data(idata) = data_tmp
5442  pack_tmp = ishft(pack_tmp, -nbits)
5443  idata = idata + 1
5444  data_tmp = iand(pack_tmp, mask_right(nbits))
5445  full_data(idata) = data_tmp
5446  pack_tmp = ishft(pack_tmp, -nbits)
5447  idata = idata + 1
5448  data_tmp = iand(pack_tmp, mask_right(nbits))
5449  full_data(idata) = data_tmp
5450  pack_tmp = ishft(pack_tmp, -nbits)
5451  idata = idata + 1
5452  data_tmp = iand(pack_tmp, mask_right(nbits))
5453  full_data(idata) = data_tmp
5454  pack_tmp = ishft(pack_tmp, -nbits)
5455  idata = idata + 1
5456  data_tmp = iand(pack_tmp, mask_right(nbits))
5457  full_data(idata) = data_tmp
5458  pack_tmp = ishft(pack_tmp, -nbits)
5459  END DO
5460  IF (ndata_rep < ndata) THEN
5461  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
5462  END IF
5463  END SUBROUTINE bits2ints_8
5464 
5465 ! **************************************************************************************************
5466 !> \brief ...
5467 !> \param Ndata ...
5468 !> \param packed_data ...
5469 !> \param full_data ...
5470 ! **************************************************************************************************
5471  SUBROUTINE ints2bits_9(Ndata, packed_data, full_data)
5472  INTEGER, INTENT(IN) :: Ndata
5473  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
5474  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
5475 
5476  INTEGER, PARAMETER :: Nbits = 9
5477 
5478  INTEGER :: idata, ipack, kdata, Ndata_rep
5479  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
5480 
5481  idata = 0
5482  ipack = 0
5483  ndata_rep = (ndata/64)*64
5484  DO kdata = 1, ndata_rep, 64
5485  pack_tmp = 0
5486  idata = idata + 1
5487  data_tmp = full_data(idata)
5488  data_tmp = ishft(data_tmp, 55)
5489  pack_tmp = ior(pack_tmp, data_tmp)
5490  pack_tmp = ishft(pack_tmp, -9)
5491  idata = idata + 1
5492  data_tmp = full_data(idata)
5493  data_tmp = ishft(data_tmp, 55)
5494  pack_tmp = ior(pack_tmp, data_tmp)
5495  pack_tmp = ishft(pack_tmp, -9)
5496  idata = idata + 1
5497  data_tmp = full_data(idata)
5498  data_tmp = ishft(data_tmp, 55)
5499  pack_tmp = ior(pack_tmp, data_tmp)
5500  pack_tmp = ishft(pack_tmp, -9)
5501  idata = idata + 1
5502  data_tmp = full_data(idata)
5503  data_tmp = ishft(data_tmp, 55)
5504  pack_tmp = ior(pack_tmp, data_tmp)
5505  pack_tmp = ishft(pack_tmp, -9)
5506  idata = idata + 1
5507  data_tmp = full_data(idata)
5508  data_tmp = ishft(data_tmp, 55)
5509  pack_tmp = ior(pack_tmp, data_tmp)
5510  pack_tmp = ishft(pack_tmp, -9)
5511  idata = idata + 1
5512  data_tmp = full_data(idata)
5513  data_tmp = ishft(data_tmp, 55)
5514  pack_tmp = ior(pack_tmp, data_tmp)
5515  pack_tmp = ishft(pack_tmp, -9)
5516  idata = idata + 1
5517  data_tmp = full_data(idata)
5518  data_tmp = ishft(data_tmp, 55)
5519  pack_tmp = ior(pack_tmp, data_tmp)
5520  pack_tmp = ishft(pack_tmp, -1)
5521  idata = idata + 1
5522  data_tmp = full_data(idata)
5523  data_tmp = ishft(data_tmp, 55)
5524  data_tmp = iand(data_tmp, mask_left(1))
5525  pack_tmp = ior(pack_tmp, data_tmp)
5526  ipack = ipack + 1
5527  packed_data(ipack) = pack_tmp
5528  data_tmp = full_data(idata)
5529  pack_tmp = ishft(data_tmp, 56)
5530  pack_tmp = ishft(pack_tmp, -9)
5531  idata = idata + 1
5532  data_tmp = full_data(idata)
5533  data_tmp = ishft(data_tmp, 55)
5534  pack_tmp = ior(pack_tmp, data_tmp)
5535  pack_tmp = ishft(pack_tmp, -9)
5536  idata = idata + 1
5537  data_tmp = full_data(idata)
5538  data_tmp = ishft(data_tmp, 55)
5539  pack_tmp = ior(pack_tmp, data_tmp)
5540  pack_tmp = ishft(pack_tmp, -9)
5541  idata = idata + 1
5542  data_tmp = full_data(idata)
5543  data_tmp = ishft(data_tmp, 55)
5544  pack_tmp = ior(pack_tmp, data_tmp)
5545  pack_tmp = ishft(pack_tmp, -9)
5546  idata = idata + 1
5547  data_tmp = full_data(idata)
5548  data_tmp = ishft(data_tmp, 55)
5549  pack_tmp = ior(pack_tmp, data_tmp)
5550  pack_tmp = ishft(pack_tmp, -9)
5551  idata = idata + 1
5552  data_tmp = full_data(idata)
5553  data_tmp = ishft(data_tmp, 55)
5554  pack_tmp = ior(pack_tmp, data_tmp)
5555  pack_tmp = ishft(pack_tmp, -9)
5556  idata = idata + 1
5557  data_tmp = full_data(idata)
5558  data_tmp = ishft(data_tmp, 55)
5559  pack_tmp = ior(pack_tmp, data_tmp)
5560  pack_tmp = ishft(pack_tmp, -2)
5561  idata = idata + 1
5562  data_tmp = full_data(idata)
5563  data_tmp = ishft(data_tmp, 55)
5564  data_tmp = iand(data_tmp, mask_left(2))
5565  pack_tmp = ior(pack_tmp, data_tmp)
5566  ipack = ipack + 1
5567  packed_data(ipack) = pack_tmp
5568  data_tmp = full_data(idata)
5569  pack_tmp = ishft(data_tmp, 57)
5570  pack_tmp = ishft(pack_tmp, -9)
5571  idata = idata + 1
5572  data_tmp = full_data(idata)
5573  data_tmp = ishft(data_tmp, 55)
5574  pack_tmp = ior(pack_tmp, data_tmp)
5575  pack_tmp = ishft(pack_tmp, -9)
5576  idata = idata + 1
5577  data_tmp = full_data(idata)
5578  data_tmp = ishft(data_tmp, 55)
5579  pack_tmp = ior(pack_tmp, data_tmp)
5580  pack_tmp = ishft(pack_tmp, -9)
5581  idata = idata + 1
5582  data_tmp = full_data(idata)
5583  data_tmp = ishft(data_tmp, 55)
5584  pack_tmp = ior(pack_tmp, data_tmp)
5585  pack_tmp = ishft(pack_tmp, -9)
5586  idata = idata + 1
5587  data_tmp = full_data(idata)
5588  data_tmp = ishft(data_tmp, 55)
5589  pack_tmp = ior(pack_tmp, data_tmp)
5590  pack_tmp = ishft(pack_tmp, -9)
5591  idata = idata + 1
5592  data_tmp = full_data(idata)
5593  data_tmp = ishft(data_tmp, 55)
5594  pack_tmp = ior(pack_tmp, data_tmp)
5595  pack_tmp = ishft(pack_tmp, -9)
5596  idata = idata + 1
5597  data_tmp = full_data(idata)
5598  data_tmp = ishft(data_tmp, 55)
5599  pack_tmp = ior(pack_tmp, data_tmp)
5600  pack_tmp = ishft(pack_tmp, -3)
5601  idata = idata + 1
5602  data_tmp = full_data(idata)
5603  data_tmp = ishft(data_tmp, 55)
5604  data_tmp = iand(data_tmp, mask_left(3))
5605  pack_tmp = ior(pack_tmp, data_tmp)
5606  ipack = ipack + 1
5607  packed_data(ipack) = pack_tmp
5608  data_tmp = full_data(idata)
5609  pack_tmp = ishft(data_tmp, 58)
5610  pack_tmp = ishft(pack_tmp, -9)
5611  idata = idata + 1
5612  data_tmp = full_data(idata)
5613  data_tmp = ishft(data_tmp, 55)
5614  pack_tmp = ior(pack_tmp, data_tmp)
5615  pack_tmp = ishft(pack_tmp, -9)
5616  idata = idata + 1
5617  data_tmp = full_data(idata)
5618  data_tmp = ishft(data_tmp, 55)
5619  pack_tmp = ior(pack_tmp, data_tmp)
5620  pack_tmp = ishft(pack_tmp, -9)
5621  idata = idata + 1
5622  data_tmp = full_data(idata)
5623  data_tmp = ishft(data_tmp, 55)
5624  pack_tmp = ior(pack_tmp, data_tmp)
5625  pack_tmp = ishft(pack_tmp, -9)
5626  idata = idata + 1
5627  data_tmp = full_data(idata)
5628  data_tmp = ishft(data_tmp, 55)
5629  pack_tmp = ior(pack_tmp, data_tmp)
5630  pack_tmp = ishft(pack_tmp, -9)
5631  idata = idata + 1
5632  data_tmp = full_data(idata)
5633  data_tmp = ishft(data_tmp, 55)
5634  pack_tmp = ior(pack_tmp, data_tmp)
5635  pack_tmp = ishft(pack_tmp, -9)
5636  idata = idata + 1
5637  data_tmp = full_data(idata)
5638  data_tmp = ishft(data_tmp, 55)
5639  pack_tmp = ior(pack_tmp, data_tmp)
5640  pack_tmp = ishft(pack_tmp, -4)
5641  idata = idata + 1
5642  data_tmp = full_data(idata)
5643  data_tmp = ishft(data_tmp, 55)
5644  data_tmp = iand(data_tmp, mask_left(4))
5645  pack_tmp = ior(pack_tmp, data_tmp)
5646  ipack = ipack + 1
5647  packed_data(ipack) = pack_tmp
5648  data_tmp = full_data(idata)
5649  pack_tmp = ishft(data_tmp, 59)
5650  pack_tmp = ishft(pack_tmp, -9)
5651  idata = idata + 1
5652  data_tmp = full_data(idata)
5653  data_tmp = ishft(data_tmp, 55)
5654  pack_tmp = ior(pack_tmp, data_tmp)
5655  pack_tmp = ishft(pack_tmp, -9)
5656  idata = idata + 1
5657  data_tmp = full_data(idata)
5658  data_tmp = ishft(data_tmp, 55)
5659  pack_tmp = ior(pack_tmp, data_tmp)
5660  pack_tmp = ishft(pack_tmp, -9)
5661  idata = idata + 1
5662  data_tmp = full_data(idata)
5663  data_tmp = ishft(data_tmp, 55)
5664  pack_tmp = ior(pack_tmp, data_tmp)
5665  pack_tmp = ishft(pack_tmp, -9)
5666  idata = idata + 1
5667  data_tmp = full_data(idata)
5668  data_tmp = ishft(data_tmp, 55)
5669  pack_tmp = ior(pack_tmp, data_tmp)
5670  pack_tmp = ishft(pack_tmp, -9)
5671  idata = idata + 1
5672  data_tmp = full_data(idata)
5673  data_tmp = ishft(data_tmp, 55)
5674  pack_tmp = ior(pack_tmp, data_tmp)
5675  pack_tmp = ishft(pack_tmp, -9)
5676  idata = idata + 1
5677  data_tmp = full_data(idata)
5678  data_tmp = ishft(data_tmp, 55)
5679  pack_tmp = ior(pack_tmp, data_tmp)
5680  pack_tmp = ishft(pack_tmp, -5)
5681  idata = idata + 1
5682  data_tmp = full_data(idata)
5683  data_tmp = ishft(data_tmp, 55)
5684  data_tmp = iand(data_tmp, mask_left(5))
5685  pack_tmp = ior(pack_tmp, data_tmp)
5686  ipack = ipack + 1
5687  packed_data(ipack) = pack_tmp
5688  data_tmp = full_data(idata)
5689  pack_tmp = ishft(data_tmp, 60)
5690  pack_tmp = ishft(pack_tmp, -9)
5691  idata = idata + 1
5692  data_tmp = full_data(idata)
5693  data_tmp = ishft(data_tmp, 55)
5694  pack_tmp = ior(pack_tmp, data_tmp)
5695  pack_tmp = ishft(pack_tmp, -9)
5696  idata = idata + 1
5697  data_tmp = full_data(idata)
5698  data_tmp = ishft(data_tmp, 55)
5699  pack_tmp = ior(pack_tmp, data_tmp)
5700  pack_tmp = ishft(pack_tmp, -9)
5701  idata = idata + 1
5702  data_tmp = full_data(idata)
5703  data_tmp = ishft(data_tmp, 55)
5704  pack_tmp = ior(pack_tmp, data_tmp)
5705  pack_tmp = ishft(pack_tmp, -9)
5706  idata = idata + 1
5707  data_tmp = full_data(idata)
5708  data_tmp = ishft(data_tmp, 55)
5709  pack_tmp = ior(pack_tmp, data_tmp)
5710  pack_tmp = ishft(pack_tmp, -9)
5711  idata = idata + 1
5712  data_tmp = full_data(idata)
5713  data_tmp = ishft(data_tmp, 55)
5714  pack_tmp = ior(pack_tmp, data_tmp)
5715  pack_tmp = ishft(pack_tmp, -9)
5716  idata = idata + 1
5717  data_tmp = full_data(idata)
5718  data_tmp = ishft(data_tmp, 55)
5719  pack_tmp = ior(pack_tmp, data_tmp)
5720  pack_tmp = ishft(pack_tmp, -6)
5721  idata = idata + 1
5722  data_tmp = full_data(idata)
5723  data_tmp = ishft(data_tmp, 55)
5724  data_tmp = iand(data_tmp, mask_left(6))
5725  pack_tmp = ior(pack_tmp, data_tmp)
5726  ipack = ipack + 1
5727  packed_data(ipack) = pack_tmp
5728  data_tmp = full_data(idata)
5729  pack_tmp = ishft(data_tmp, 61)
5730  pack_tmp = ishft(pack_tmp, -9)
5731  idata = idata + 1
5732  data_tmp = full_data(idata)
5733  data_tmp = ishft(data_tmp, 55)
5734  pack_tmp = ior(pack_tmp, data_tmp)
5735  pack_tmp = ishft(pack_tmp, -9)
5736  idata = idata + 1
5737  data_tmp = full_data(idata)
5738  data_tmp = ishft(data_tmp, 55)
5739  pack_tmp = ior(pack_tmp, data_tmp)
5740  pack_tmp = ishft(pack_tmp, -9)
5741  idata = idata + 1
5742  data_tmp = full_data(idata)
5743  data_tmp = ishft(data_tmp, 55)
5744  pack_tmp = ior(pack_tmp, data_tmp)
5745  pack_tmp = ishft(pack_tmp, -9)
5746  idata = idata + 1
5747  data_tmp = full_data(idata)
5748  data_tmp = ishft(data_tmp, 55)
5749  pack_tmp = ior(pack_tmp, data_tmp)
5750  pack_tmp = ishft(pack_tmp, -9)
5751  idata = idata + 1
5752  data_tmp = full_data(idata)
5753  data_tmp = ishft(data_tmp, 55)
5754  pack_tmp = ior(pack_tmp, data_tmp)
5755  pack_tmp = ishft(pack_tmp, -9)
5756  idata = idata + 1
5757  data_tmp = full_data(idata)
5758  data_tmp = ishft(data_tmp, 55)
5759  pack_tmp = ior(pack_tmp, data_tmp)
5760  pack_tmp = ishft(pack_tmp, -7)
5761  idata = idata + 1
5762  data_tmp = full_data(idata)
5763  data_tmp = ishft(data_tmp, 55)
5764  data_tmp = iand(data_tmp, mask_left(7))
5765  pack_tmp = ior(pack_tmp, data_tmp)
5766  ipack = ipack + 1
5767  packed_data(ipack) = pack_tmp
5768  data_tmp = full_data(idata)
5769  pack_tmp = ishft(data_tmp, 62)
5770  pack_tmp = ishft(pack_tmp, -9)
5771  idata = idata + 1
5772  data_tmp = full_data(idata)
5773  data_tmp = ishft(data_tmp, 55)
5774  pack_tmp = ior(pack_tmp, data_tmp)
5775  pack_tmp = ishft(pack_tmp, -9)
5776  idata = idata + 1
5777  data_tmp = full_data(idata)
5778  data_tmp = ishft(data_tmp, 55)
5779  pack_tmp = ior(pack_tmp, data_tmp)
5780  pack_tmp = ishft(pack_tmp, -9)
5781  idata = idata + 1
5782  data_tmp = full_data(idata)
5783  data_tmp = ishft(data_tmp, 55)
5784  pack_tmp = ior(pack_tmp, data_tmp)
5785  pack_tmp = ishft(pack_tmp, -9)
5786  idata = idata + 1
5787  data_tmp = full_data(idata)
5788  data_tmp = ishft(data_tmp, 55)
5789  pack_tmp = ior(pack_tmp, data_tmp)
5790  pack_tmp = ishft(pack_tmp, -9)
5791  idata = idata + 1
5792  data_tmp = full_data(idata)
5793  data_tmp = ishft(data_tmp, 55)
5794  pack_tmp = ior(pack_tmp, data_tmp)
5795  pack_tmp = ishft(pack_tmp, -9)
5796  idata = idata + 1
5797  data_tmp = full_data(idata)
5798  data_tmp = ishft(data_tmp, 55)
5799  pack_tmp = ior(pack_tmp, data_tmp)
5800  pack_tmp = ishft(pack_tmp, -8)
5801  idata = idata + 1
5802  data_tmp = full_data(idata)
5803  data_tmp = ishft(data_tmp, 55)
5804  data_tmp = iand(data_tmp, mask_left(8))
5805  pack_tmp = ior(pack_tmp, data_tmp)
5806  ipack = ipack + 1
5807  packed_data(ipack) = pack_tmp
5808  data_tmp = full_data(idata)
5809  pack_tmp = ishft(data_tmp, 63)
5810  pack_tmp = ishft(pack_tmp, -9)
5811  idata = idata + 1
5812  data_tmp = full_data(idata)
5813  data_tmp = ishft(data_tmp, 55)
5814  pack_tmp = ior(pack_tmp, data_tmp)
5815  pack_tmp = ishft(pack_tmp, -9)
5816  idata = idata + 1
5817  data_tmp = full_data(idata)
5818  data_tmp = ishft(data_tmp, 55)
5819  pack_tmp = ior(pack_tmp, data_tmp)
5820  pack_tmp = ishft(pack_tmp, -9)
5821  idata = idata + 1
5822  data_tmp = full_data(idata)
5823  data_tmp = ishft(data_tmp, 55)
5824  pack_tmp = ior(pack_tmp, data_tmp)
5825  pack_tmp = ishft(pack_tmp, -9)
5826  idata = idata + 1
5827  data_tmp = full_data(idata)
5828  data_tmp = ishft(data_tmp, 55)
5829  pack_tmp = ior(pack_tmp, data_tmp)
5830  pack_tmp = ishft(pack_tmp, -9)
5831  idata = idata + 1
5832  data_tmp = full_data(idata)
5833  data_tmp = ishft(data_tmp, 55)
5834  pack_tmp = ior(pack_tmp, data_tmp)
5835  pack_tmp = ishft(pack_tmp, -9)
5836  idata = idata + 1
5837  data_tmp = full_data(idata)
5838  data_tmp = ishft(data_tmp, 55)
5839  pack_tmp = ior(pack_tmp, data_tmp)
5840  pack_tmp = ishft(pack_tmp, -9)
5841  idata = idata + 1
5842  data_tmp = full_data(idata)
5843  data_tmp = ishft(data_tmp, 55)
5844  pack_tmp = ior(pack_tmp, data_tmp)
5845  pack_tmp = ishft(pack_tmp, 0)
5846  pack_tmp = ishft(pack_tmp, 0)
5847  ipack = ipack + 1
5848  packed_data(ipack) = pack_tmp
5849  END DO
5850  IF (ndata_rep < ndata) THEN
5851  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
5852  END IF
5853  END SUBROUTINE ints2bits_9
5854 
5855 ! **************************************************************************************************
5856 !> \brief ...
5857 !> \param Ndata ...
5858 !> \param packed_data ...
5859 !> \param full_data ...
5860 ! **************************************************************************************************
5861  SUBROUTINE bits2ints_9(Ndata, packed_data, full_data)
5862  INTEGER, INTENT(IN) :: Ndata
5863  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
5864  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
5865 
5866  INTEGER, PARAMETER :: Nbits = 9
5867 
5868  INTEGER :: idata, ipack, kdata, Ndata_rep
5869  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
5870 
5871  ipack = 0
5872  idata = 0
5873  pack_tmp = 0
5874  ndata_rep = (ndata/64)*64
5875  DO kdata = 1, ndata_rep, 64
5876  idata = idata + 1
5877  data_tmp = ishft(pack_tmp, 9)
5878  ipack = ipack + 1
5879  pack_tmp = packed_data(ipack)
5880  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
5881  pack_tmp = ishft(pack_tmp, -9)
5882  idata = idata + 1
5883  data_tmp = iand(pack_tmp, mask_right(nbits))
5884  full_data(idata) = data_tmp
5885  pack_tmp = ishft(pack_tmp, -nbits)
5886  idata = idata + 1
5887  data_tmp = iand(pack_tmp, mask_right(nbits))
5888  full_data(idata) = data_tmp
5889  pack_tmp = ishft(pack_tmp, -nbits)
5890  idata = idata + 1
5891  data_tmp = iand(pack_tmp, mask_right(nbits))
5892  full_data(idata) = data_tmp
5893  pack_tmp = ishft(pack_tmp, -nbits)
5894  idata = idata + 1
5895  data_tmp = iand(pack_tmp, mask_right(nbits))
5896  full_data(idata) = data_tmp
5897  pack_tmp = ishft(pack_tmp, -nbits)
5898  idata = idata + 1
5899  data_tmp = iand(pack_tmp, mask_right(nbits))
5900  full_data(idata) = data_tmp
5901  pack_tmp = ishft(pack_tmp, -nbits)
5902  idata = idata + 1
5903  data_tmp = iand(pack_tmp, mask_right(nbits))
5904  full_data(idata) = data_tmp
5905  pack_tmp = ishft(pack_tmp, -nbits)
5906  idata = idata + 1
5907  data_tmp = ishft(pack_tmp, 8)
5908  ipack = ipack + 1
5909  pack_tmp = packed_data(ipack)
5910  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
5911  pack_tmp = ishft(pack_tmp, -8)
5912  idata = idata + 1
5913  data_tmp = iand(pack_tmp, mask_right(nbits))
5914  full_data(idata) = data_tmp
5915  pack_tmp = ishft(pack_tmp, -nbits)
5916  idata = idata + 1
5917  data_tmp = iand(pack_tmp, mask_right(nbits))
5918  full_data(idata) = data_tmp
5919  pack_tmp = ishft(pack_tmp, -nbits)
5920  idata = idata + 1
5921  data_tmp = iand(pack_tmp, mask_right(nbits))
5922  full_data(idata) = data_tmp
5923  pack_tmp = ishft(pack_tmp, -nbits)
5924  idata = idata + 1
5925  data_tmp = iand(pack_tmp, mask_right(nbits))
5926  full_data(idata) = data_tmp
5927  pack_tmp = ishft(pack_tmp, -nbits)
5928  idata = idata + 1
5929  data_tmp = iand(pack_tmp, mask_right(nbits))
5930  full_data(idata) = data_tmp
5931  pack_tmp = ishft(pack_tmp, -nbits)
5932  idata = idata + 1
5933  data_tmp = iand(pack_tmp, mask_right(nbits))
5934  full_data(idata) = data_tmp
5935  pack_tmp = ishft(pack_tmp, -nbits)
5936  idata = idata + 1
5937  data_tmp = ishft(pack_tmp, 7)
5938  ipack = ipack + 1
5939  pack_tmp = packed_data(ipack)
5940  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
5941  pack_tmp = ishft(pack_tmp, -7)
5942  idata = idata + 1
5943  data_tmp = iand(pack_tmp, mask_right(nbits))
5944  full_data(idata) = data_tmp
5945  pack_tmp = ishft(pack_tmp, -nbits)
5946  idata = idata + 1
5947  data_tmp = iand(pack_tmp, mask_right(nbits))
5948  full_data(idata) = data_tmp
5949  pack_tmp = ishft(pack_tmp, -nbits)
5950  idata = idata + 1
5951  data_tmp = iand(pack_tmp, mask_right(nbits))
5952  full_data(idata) = data_tmp
5953  pack_tmp = ishft(pack_tmp, -nbits)
5954  idata = idata + 1
5955  data_tmp = iand(pack_tmp, mask_right(nbits))
5956  full_data(idata) = data_tmp
5957  pack_tmp = ishft(pack_tmp, -nbits)
5958  idata = idata + 1
5959  data_tmp = iand(pack_tmp, mask_right(nbits))
5960  full_data(idata) = data_tmp
5961  pack_tmp = ishft(pack_tmp, -nbits)
5962  idata = idata + 1
5963  data_tmp = iand(pack_tmp, mask_right(nbits))
5964  full_data(idata) = data_tmp
5965  pack_tmp = ishft(pack_tmp, -nbits)
5966  idata = idata + 1
5967  data_tmp = ishft(pack_tmp, 6)
5968  ipack = ipack + 1
5969  pack_tmp = packed_data(ipack)
5970  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
5971  pack_tmp = ishft(pack_tmp, -6)
5972  idata = idata + 1
5973  data_tmp = iand(pack_tmp, mask_right(nbits))
5974  full_data(idata) = data_tmp
5975  pack_tmp = ishft(pack_tmp, -nbits)
5976  idata = idata + 1
5977  data_tmp = iand(pack_tmp, mask_right(nbits))
5978  full_data(idata) = data_tmp
5979  pack_tmp = ishft(pack_tmp, -nbits)
5980  idata = idata + 1
5981  data_tmp = iand(pack_tmp, mask_right(nbits))
5982  full_data(idata) = data_tmp
5983  pack_tmp = ishft(pack_tmp, -nbits)
5984  idata = idata + 1
5985  data_tmp = iand(pack_tmp, mask_right(nbits))
5986  full_data(idata) = data_tmp
5987  pack_tmp = ishft(pack_tmp, -nbits)
5988  idata = idata + 1
5989  data_tmp = iand(pack_tmp, mask_right(nbits))
5990  full_data(idata) = data_tmp
5991  pack_tmp = ishft(pack_tmp, -nbits)
5992  idata = idata + 1
5993  data_tmp = iand(pack_tmp, mask_right(nbits))
5994  full_data(idata) = data_tmp
5995  pack_tmp = ishft(pack_tmp, -nbits)
5996  idata = idata + 1
5997  data_tmp = ishft(pack_tmp, 5)
5998  ipack = ipack + 1
5999  pack_tmp = packed_data(ipack)
6000  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
6001  pack_tmp = ishft(pack_tmp, -5)
6002  idata = idata + 1
6003  data_tmp = iand(pack_tmp, mask_right(nbits))
6004  full_data(idata) = data_tmp
6005  pack_tmp = ishft(pack_tmp, -nbits)
6006  idata = idata + 1
6007  data_tmp = iand(pack_tmp, mask_right(nbits))
6008  full_data(idata) = data_tmp
6009  pack_tmp = ishft(pack_tmp, -nbits)
6010  idata = idata + 1
6011  data_tmp = iand(pack_tmp, mask_right(nbits))
6012  full_data(idata) = data_tmp
6013  pack_tmp = ishft(pack_tmp, -nbits)
6014  idata = idata + 1
6015  data_tmp = iand(pack_tmp, mask_right(nbits))
6016  full_data(idata) = data_tmp
6017  pack_tmp = ishft(pack_tmp, -nbits)
6018  idata = idata + 1
6019  data_tmp = iand(pack_tmp, mask_right(nbits))
6020  full_data(idata) = data_tmp
6021  pack_tmp = ishft(pack_tmp, -nbits)
6022  idata = idata + 1
6023  data_tmp = iand(pack_tmp, mask_right(nbits))
6024  full_data(idata) = data_tmp
6025  pack_tmp = ishft(pack_tmp, -nbits)
6026  idata = idata + 1
6027  data_tmp = ishft(pack_tmp, 4)
6028  ipack = ipack + 1
6029  pack_tmp = packed_data(ipack)
6030  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
6031  pack_tmp = ishft(pack_tmp, -4)
6032  idata = idata + 1
6033  data_tmp = iand(pack_tmp, mask_right(nbits))
6034  full_data(idata) = data_tmp
6035  pack_tmp = ishft(pack_tmp, -nbits)
6036  idata = idata + 1
6037  data_tmp = iand(pack_tmp, mask_right(nbits))
6038  full_data(idata) = data_tmp
6039  pack_tmp = ishft(pack_tmp, -nbits)
6040  idata = idata + 1
6041  data_tmp = iand(pack_tmp, mask_right(nbits))
6042  full_data(idata) = data_tmp
6043  pack_tmp = ishft(pack_tmp, -nbits)
6044  idata = idata + 1
6045  data_tmp = iand(pack_tmp, mask_right(nbits))
6046  full_data(idata) = data_tmp
6047  pack_tmp = ishft(pack_tmp, -nbits)
6048  idata = idata + 1
6049  data_tmp = iand(pack_tmp, mask_right(nbits))
6050  full_data(idata) = data_tmp
6051  pack_tmp = ishft(pack_tmp, -nbits)
6052  idata = idata + 1
6053  data_tmp = iand(pack_tmp, mask_right(nbits))
6054  full_data(idata) = data_tmp
6055  pack_tmp = ishft(pack_tmp, -nbits)
6056  idata = idata + 1
6057  data_tmp = ishft(pack_tmp, 3)
6058  ipack = ipack + 1
6059  pack_tmp = packed_data(ipack)
6060  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
6061  pack_tmp = ishft(pack_tmp, -3)
6062  idata = idata + 1
6063  data_tmp = iand(pack_tmp, mask_right(nbits))
6064  full_data(idata) = data_tmp
6065  pack_tmp = ishft(pack_tmp, -nbits)
6066  idata = idata + 1
6067  data_tmp = iand(pack_tmp, mask_right(nbits))
6068  full_data(idata) = data_tmp
6069  pack_tmp = ishft(pack_tmp, -nbits)
6070  idata = idata + 1
6071  data_tmp = iand(pack_tmp, mask_right(nbits))
6072  full_data(idata) = data_tmp
6073  pack_tmp = ishft(pack_tmp, -nbits)
6074  idata = idata + 1
6075  data_tmp = iand(pack_tmp, mask_right(nbits))
6076  full_data(idata) = data_tmp
6077  pack_tmp = ishft(pack_tmp, -nbits)
6078  idata = idata + 1
6079  data_tmp = iand(pack_tmp, mask_right(nbits))
6080  full_data(idata) = data_tmp
6081  pack_tmp = ishft(pack_tmp, -nbits)
6082  idata = idata + 1
6083  data_tmp = iand(pack_tmp, mask_right(nbits))
6084  full_data(idata) = data_tmp
6085  pack_tmp = ishft(pack_tmp, -nbits)
6086  idata = idata + 1
6087  data_tmp = ishft(pack_tmp, 2)
6088  ipack = ipack + 1
6089  pack_tmp = packed_data(ipack)
6090  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
6091  pack_tmp = ishft(pack_tmp, -2)
6092  idata = idata + 1
6093  data_tmp = iand(pack_tmp, mask_right(nbits))
6094  full_data(idata) = data_tmp
6095  pack_tmp = ishft(pack_tmp, -nbits)
6096  idata = idata + 1
6097  data_tmp = iand(pack_tmp, mask_right(nbits))
6098  full_data(idata) = data_tmp
6099  pack_tmp = ishft(pack_tmp, -nbits)
6100  idata = idata + 1
6101  data_tmp = iand(pack_tmp, mask_right(nbits))
6102  full_data(idata) = data_tmp
6103  pack_tmp = ishft(pack_tmp, -nbits)
6104  idata = idata + 1
6105  data_tmp = iand(pack_tmp, mask_right(nbits))
6106  full_data(idata) = data_tmp
6107  pack_tmp = ishft(pack_tmp, -nbits)
6108  idata = idata + 1
6109  data_tmp = iand(pack_tmp, mask_right(nbits))
6110  full_data(idata) = data_tmp
6111  pack_tmp = ishft(pack_tmp, -nbits)
6112  idata = idata + 1
6113  data_tmp = iand(pack_tmp, mask_right(nbits))
6114  full_data(idata) = data_tmp
6115  pack_tmp = ishft(pack_tmp, -nbits)
6116  idata = idata + 1
6117  data_tmp = ishft(pack_tmp, 1)
6118  ipack = ipack + 1
6119  pack_tmp = packed_data(ipack)
6120  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
6121  pack_tmp = ishft(pack_tmp, -1)
6122  idata = idata + 1
6123  data_tmp = iand(pack_tmp, mask_right(nbits))
6124  full_data(idata) = data_tmp
6125  pack_tmp = ishft(pack_tmp, -nbits)
6126  idata = idata + 1
6127  data_tmp = iand(pack_tmp, mask_right(nbits))
6128  full_data(idata) = data_tmp
6129  pack_tmp = ishft(pack_tmp, -nbits)
6130  idata = idata + 1
6131  data_tmp = iand(pack_tmp, mask_right(nbits))
6132  full_data(idata) = data_tmp
6133  pack_tmp = ishft(pack_tmp, -nbits)
6134  idata = idata + 1
6135  data_tmp = iand(pack_tmp, mask_right(nbits))
6136  full_data(idata) = data_tmp
6137  pack_tmp = ishft(pack_tmp, -nbits)
6138  idata = idata + 1
6139  data_tmp = iand(pack_tmp, mask_right(nbits))
6140  full_data(idata) = data_tmp
6141  pack_tmp = ishft(pack_tmp, -nbits)
6142  idata = idata + 1
6143  data_tmp = iand(pack_tmp, mask_right(nbits))
6144  full_data(idata) = data_tmp
6145  pack_tmp = ishft(pack_tmp, -nbits)
6146  idata = idata + 1
6147  data_tmp = iand(pack_tmp, mask_right(nbits))
6148  full_data(idata) = data_tmp
6149  pack_tmp = ishft(pack_tmp, -nbits)
6150  END DO
6151  IF (ndata_rep < ndata) THEN
6152  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
6153  END IF
6154  END SUBROUTINE bits2ints_9
6155 
6156 ! **************************************************************************************************
6157 !> \brief ...
6158 !> \param Ndata ...
6159 !> \param packed_data ...
6160 !> \param full_data ...
6161 ! **************************************************************************************************
6162  SUBROUTINE ints2bits_10(Ndata, packed_data, full_data)
6163  INTEGER, INTENT(IN) :: Ndata
6164  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
6165  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
6166 
6167  INTEGER, PARAMETER :: Nbits = 10
6168 
6169  INTEGER :: idata, ipack, kdata, Ndata_rep
6170  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
6171 
6172  idata = 0
6173  ipack = 0
6174  ndata_rep = (ndata/64)*64
6175  DO kdata = 1, ndata_rep, 64
6176  pack_tmp = 0
6177  idata = idata + 1
6178  data_tmp = full_data(idata)
6179  data_tmp = ishft(data_tmp, 54)
6180  pack_tmp = ior(pack_tmp, data_tmp)
6181  pack_tmp = ishft(pack_tmp, -10)
6182  idata = idata + 1
6183  data_tmp = full_data(idata)
6184  data_tmp = ishft(data_tmp, 54)
6185  pack_tmp = ior(pack_tmp, data_tmp)
6186  pack_tmp = ishft(pack_tmp, -10)
6187  idata = idata + 1
6188  data_tmp = full_data(idata)
6189  data_tmp = ishft(data_tmp, 54)
6190  pack_tmp = ior(pack_tmp, data_tmp)
6191  pack_tmp = ishft(pack_tmp, -10)
6192  idata = idata + 1
6193  data_tmp = full_data(idata)
6194  data_tmp = ishft(data_tmp, 54)
6195  pack_tmp = ior(pack_tmp, data_tmp)
6196  pack_tmp = ishft(pack_tmp, -10)
6197  idata = idata + 1
6198  data_tmp = full_data(idata)
6199  data_tmp = ishft(data_tmp, 54)
6200  pack_tmp = ior(pack_tmp, data_tmp)
6201  pack_tmp = ishft(pack_tmp, -10)
6202  idata = idata + 1
6203  data_tmp = full_data(idata)
6204  data_tmp = ishft(data_tmp, 54)
6205  pack_tmp = ior(pack_tmp, data_tmp)
6206  pack_tmp = ishft(pack_tmp, -4)
6207  idata = idata + 1
6208  data_tmp = full_data(idata)
6209  data_tmp = ishft(data_tmp, 54)
6210  data_tmp = iand(data_tmp, mask_left(4))
6211  pack_tmp = ior(pack_tmp, data_tmp)
6212  ipack = ipack + 1
6213  packed_data(ipack) = pack_tmp
6214  data_tmp = full_data(idata)
6215  pack_tmp = ishft(data_tmp, 58)
6216  pack_tmp = ishft(pack_tmp, -10)
6217  idata = idata + 1
6218  data_tmp = full_data(idata)
6219  data_tmp = ishft(data_tmp, 54)
6220  pack_tmp = ior(pack_tmp, data_tmp)
6221  pack_tmp = ishft(pack_tmp, -10)
6222  idata = idata + 1
6223  data_tmp = full_data(idata)
6224  data_tmp = ishft(data_tmp, 54)
6225  pack_tmp = ior(pack_tmp, data_tmp)
6226  pack_tmp = ishft(pack_tmp, -10)
6227  idata = idata + 1
6228  data_tmp = full_data(idata)
6229  data_tmp = ishft(data_tmp, 54)
6230  pack_tmp = ior(pack_tmp, data_tmp)
6231  pack_tmp = ishft(pack_tmp, -10)
6232  idata = idata + 1
6233  data_tmp = full_data(idata)
6234  data_tmp = ishft(data_tmp, 54)
6235  pack_tmp = ior(pack_tmp, data_tmp)
6236  pack_tmp = ishft(pack_tmp, -10)
6237  idata = idata + 1
6238  data_tmp = full_data(idata)
6239  data_tmp = ishft(data_tmp, 54)
6240  pack_tmp = ior(pack_tmp, data_tmp)
6241  pack_tmp = ishft(pack_tmp, -8)
6242  idata = idata + 1
6243  data_tmp = full_data(idata)
6244  data_tmp = ishft(data_tmp, 54)
6245  data_tmp = iand(data_tmp, mask_left(8))
6246  pack_tmp = ior(pack_tmp, data_tmp)
6247  ipack = ipack + 1
6248  packed_data(ipack) = pack_tmp
6249  data_tmp = full_data(idata)
6250  pack_tmp = ishft(data_tmp, 62)
6251  pack_tmp = ishft(pack_tmp, -10)
6252  idata = idata + 1
6253  data_tmp = full_data(idata)
6254  data_tmp = ishft(data_tmp, 54)
6255  pack_tmp = ior(pack_tmp, data_tmp)
6256  pack_tmp = ishft(pack_tmp, -10)
6257  idata = idata + 1
6258  data_tmp = full_data(idata)
6259  data_tmp = ishft(data_tmp, 54)
6260  pack_tmp = ior(pack_tmp, data_tmp)
6261  pack_tmp = ishft(pack_tmp, -10)
6262  idata = idata + 1
6263  data_tmp = full_data(idata)
6264  data_tmp = ishft(data_tmp, 54)
6265  pack_tmp = ior(pack_tmp, data_tmp)
6266  pack_tmp = ishft(pack_tmp, -10)
6267  idata = idata + 1
6268  data_tmp = full_data(idata)
6269  data_tmp = ishft(data_tmp, 54)
6270  pack_tmp = ior(pack_tmp, data_tmp)
6271  pack_tmp = ishft(pack_tmp, -10)
6272  idata = idata + 1
6273  data_tmp = full_data(idata)
6274  data_tmp = ishft(data_tmp, 54)
6275  pack_tmp = ior(pack_tmp, data_tmp)
6276  pack_tmp = ishft(pack_tmp, -10)
6277  idata = idata + 1
6278  data_tmp = full_data(idata)
6279  data_tmp = ishft(data_tmp, 54)
6280  pack_tmp = ior(pack_tmp, data_tmp)
6281  pack_tmp = ishft(pack_tmp, -2)
6282  idata = idata + 1
6283  data_tmp = full_data(idata)
6284  data_tmp = ishft(data_tmp, 54)
6285  data_tmp = iand(data_tmp, mask_left(2))
6286  pack_tmp = ior(pack_tmp, data_tmp)
6287  ipack = ipack + 1
6288  packed_data(ipack) = pack_tmp
6289  data_tmp = full_data(idata)
6290  pack_tmp = ishft(data_tmp, 56)
6291  pack_tmp = ishft(pack_tmp, -10)
6292  idata = idata + 1
6293  data_tmp = full_data(idata)
6294  data_tmp = ishft(data_tmp, 54)
6295  pack_tmp = ior(pack_tmp, data_tmp)
6296  pack_tmp = ishft(pack_tmp, -10)
6297  idata = idata + 1
6298  data_tmp = full_data(idata)
6299  data_tmp = ishft(data_tmp, 54)
6300  pack_tmp = ior(pack_tmp, data_tmp)
6301  pack_tmp = ishft(pack_tmp, -10)
6302  idata = idata + 1
6303  data_tmp = full_data(idata)
6304  data_tmp = ishft(data_tmp, 54)
6305  pack_tmp = ior(pack_tmp, data_tmp)
6306  pack_tmp = ishft(pack_tmp, -10)
6307  idata = idata + 1
6308  data_tmp = full_data(idata)
6309  data_tmp = ishft(data_tmp, 54)
6310  pack_tmp = ior(pack_tmp, data_tmp)
6311  pack_tmp = ishft(pack_tmp, -10)
6312  idata = idata + 1
6313  data_tmp = full_data(idata)
6314  data_tmp = ishft(data_tmp, 54)
6315  pack_tmp = ior(pack_tmp, data_tmp)
6316  pack_tmp = ishft(pack_tmp, -6)
6317  idata = idata + 1
6318  data_tmp = full_data(idata)
6319  data_tmp = ishft(data_tmp, 54)
6320  data_tmp = iand(data_tmp, mask_left(6))
6321  pack_tmp = ior(pack_tmp, data_tmp)
6322  ipack = ipack + 1
6323  packed_data(ipack) = pack_tmp
6324  data_tmp = full_data(idata)
6325  pack_tmp = ishft(data_tmp, 60)
6326  pack_tmp = ishft(pack_tmp, -10)
6327  idata = idata + 1
6328  data_tmp = full_data(idata)
6329  data_tmp = ishft(data_tmp, 54)
6330  pack_tmp = ior(pack_tmp, data_tmp)
6331  pack_tmp = ishft(pack_tmp, -10)
6332  idata = idata + 1
6333  data_tmp = full_data(idata)
6334  data_tmp = ishft(data_tmp, 54)
6335  pack_tmp = ior(pack_tmp, data_tmp)
6336  pack_tmp = ishft(pack_tmp, -10)
6337  idata = idata + 1
6338  data_tmp = full_data(idata)
6339  data_tmp = ishft(data_tmp, 54)
6340  pack_tmp = ior(pack_tmp, data_tmp)
6341  pack_tmp = ishft(pack_tmp, -10)
6342  idata = idata + 1
6343  data_tmp = full_data(idata)
6344  data_tmp = ishft(data_tmp, 54)
6345  pack_tmp = ior(pack_tmp, data_tmp)
6346  pack_tmp = ishft(pack_tmp, -10)
6347  idata = idata + 1
6348  data_tmp = full_data(idata)
6349  data_tmp = ishft(data_tmp, 54)
6350  pack_tmp = ior(pack_tmp, data_tmp)
6351  pack_tmp = ishft(pack_tmp, -10)
6352  idata = idata + 1
6353  data_tmp = full_data(idata)
6354  data_tmp = ishft(data_tmp, 54)
6355  pack_tmp = ior(pack_tmp, data_tmp)
6356  pack_tmp = ishft(pack_tmp, 0)
6357  idata = idata + 1
6358  data_tmp = full_data(idata)
6359  data_tmp = ishft(data_tmp, 54)
6360  data_tmp = iand(data_tmp, mask_left(0))
6361  pack_tmp = ior(pack_tmp, data_tmp)
6362  ipack = ipack + 1
6363  packed_data(ipack) = pack_tmp
6364  data_tmp = full_data(idata)
6365  pack_tmp = ishft(data_tmp, 54)
6366  pack_tmp = ishft(pack_tmp, -10)
6367  idata = idata + 1
6368  data_tmp = full_data(idata)
6369  data_tmp = ishft(data_tmp, 54)
6370  pack_tmp = ior(pack_tmp, data_tmp)
6371  pack_tmp = ishft(pack_tmp, -10)
6372  idata = idata + 1
6373  data_tmp = full_data(idata)
6374  data_tmp = ishft(data_tmp, 54)
6375  pack_tmp = ior(pack_tmp, data_tmp)
6376  pack_tmp = ishft(pack_tmp, -10)
6377  idata = idata + 1
6378  data_tmp = full_data(idata)
6379  data_tmp = ishft(data_tmp, 54)
6380  pack_tmp = ior(pack_tmp, data_tmp)
6381  pack_tmp = ishft(pack_tmp, -10)
6382  idata = idata + 1
6383  data_tmp = full_data(idata)
6384  data_tmp = ishft(data_tmp, 54)
6385  pack_tmp = ior(pack_tmp, data_tmp)
6386  pack_tmp = ishft(pack_tmp, -10)
6387  idata = idata + 1
6388  data_tmp = full_data(idata)
6389  data_tmp = ishft(data_tmp, 54)
6390  pack_tmp = ior(pack_tmp, data_tmp)
6391  pack_tmp = ishft(pack_tmp, -4)
6392  idata = idata + 1
6393  data_tmp = full_data(idata)
6394  data_tmp = ishft(data_tmp, 54)
6395  data_tmp = iand(data_tmp, mask_left(4))
6396  pack_tmp = ior(pack_tmp, data_tmp)
6397  ipack = ipack + 1
6398  packed_data(ipack) = pack_tmp
6399  data_tmp = full_data(idata)
6400  pack_tmp = ishft(data_tmp, 58)
6401  pack_tmp = ishft(pack_tmp, -10)
6402  idata = idata + 1
6403  data_tmp = full_data(idata)
6404  data_tmp = ishft(data_tmp, 54)
6405  pack_tmp = ior(pack_tmp, data_tmp)
6406  pack_tmp = ishft(pack_tmp, -10)
6407  idata = idata + 1
6408  data_tmp = full_data(idata)
6409  data_tmp = ishft(data_tmp, 54)
6410  pack_tmp = ior(pack_tmp, data_tmp)
6411  pack_tmp = ishft(pack_tmp, -10)
6412  idata = idata + 1
6413  data_tmp = full_data(idata)
6414  data_tmp = ishft(data_tmp, 54)
6415  pack_tmp = ior(pack_tmp, data_tmp)
6416  pack_tmp = ishft(pack_tmp, -10)
6417  idata = idata + 1
6418  data_tmp = full_data(idata)
6419  data_tmp = ishft(data_tmp, 54)
6420  pack_tmp = ior(pack_tmp, data_tmp)
6421  pack_tmp = ishft(pack_tmp, -10)
6422  idata = idata + 1
6423  data_tmp = full_data(idata)
6424  data_tmp = ishft(data_tmp, 54)
6425  pack_tmp = ior(pack_tmp, data_tmp)
6426  pack_tmp = ishft(pack_tmp, -8)
6427  idata = idata + 1
6428  data_tmp = full_data(idata)
6429  data_tmp = ishft(data_tmp, 54)
6430  data_tmp = iand(data_tmp, mask_left(8))
6431  pack_tmp = ior(pack_tmp, data_tmp)
6432  ipack = ipack + 1
6433  packed_data(ipack) = pack_tmp
6434  data_tmp = full_data(idata)
6435  pack_tmp = ishft(data_tmp, 62)
6436  pack_tmp = ishft(pack_tmp, -10)
6437  idata = idata + 1
6438  data_tmp = full_data(idata)
6439  data_tmp = ishft(data_tmp, 54)
6440  pack_tmp = ior(pack_tmp, data_tmp)
6441  pack_tmp = ishft(pack_tmp, -10)
6442  idata = idata + 1
6443  data_tmp = full_data(idata)
6444  data_tmp = ishft(data_tmp, 54)
6445  pack_tmp = ior(pack_tmp, data_tmp)
6446  pack_tmp = ishft(pack_tmp, -10)
6447  idata = idata + 1
6448  data_tmp = full_data(idata)
6449  data_tmp = ishft(data_tmp, 54)
6450  pack_tmp = ior(pack_tmp, data_tmp)
6451  pack_tmp = ishft(pack_tmp, -10)
6452  idata = idata + 1
6453  data_tmp = full_data(idata)
6454  data_tmp = ishft(data_tmp, 54)
6455  pack_tmp = ior(pack_tmp, data_tmp)
6456  pack_tmp = ishft(pack_tmp, -10)
6457  idata = idata + 1
6458  data_tmp = full_data(idata)
6459  data_tmp = ishft(data_tmp, 54)
6460  pack_tmp = ior(pack_tmp, data_tmp)
6461  pack_tmp = ishft(pack_tmp, -10)
6462  idata = idata + 1
6463  data_tmp = full_data(idata)
6464  data_tmp = ishft(data_tmp, 54)
6465  pack_tmp = ior(pack_tmp, data_tmp)
6466  pack_tmp = ishft(pack_tmp, -2)
6467  idata = idata + 1
6468  data_tmp = full_data(idata)
6469  data_tmp = ishft(data_tmp, 54)
6470  data_tmp = iand(data_tmp, mask_left(2))
6471  pack_tmp = ior(pack_tmp, data_tmp)
6472  ipack = ipack + 1
6473  packed_data(ipack) = pack_tmp
6474  data_tmp = full_data(idata)
6475  pack_tmp = ishft(data_tmp, 56)
6476  pack_tmp = ishft(pack_tmp, -10)
6477  idata = idata + 1
6478  data_tmp = full_data(idata)
6479  data_tmp = ishft(data_tmp, 54)
6480  pack_tmp = ior(pack_tmp, data_tmp)
6481  pack_tmp = ishft(pack_tmp, -10)
6482  idata = idata + 1
6483  data_tmp = full_data(idata)
6484  data_tmp = ishft(data_tmp, 54)
6485  pack_tmp = ior(pack_tmp, data_tmp)
6486  pack_tmp = ishft(pack_tmp, -10)
6487  idata = idata + 1
6488  data_tmp = full_data(idata)
6489  data_tmp = ishft(data_tmp, 54)
6490  pack_tmp = ior(pack_tmp, data_tmp)
6491  pack_tmp = ishft(pack_tmp, -10)
6492  idata = idata + 1
6493  data_tmp = full_data(idata)
6494  data_tmp = ishft(data_tmp, 54)
6495  pack_tmp = ior(pack_tmp, data_tmp)
6496  pack_tmp = ishft(pack_tmp, -10)
6497  idata = idata + 1
6498  data_tmp = full_data(idata)
6499  data_tmp = ishft(data_tmp, 54)
6500  pack_tmp = ior(pack_tmp, data_tmp)
6501  pack_tmp = ishft(pack_tmp, -6)
6502  idata = idata + 1
6503  data_tmp = full_data(idata)
6504  data_tmp = ishft(data_tmp, 54)
6505  data_tmp = iand(data_tmp, mask_left(6))
6506  pack_tmp = ior(pack_tmp, data_tmp)
6507  ipack = ipack + 1
6508  packed_data(ipack) = pack_tmp
6509  data_tmp = full_data(idata)
6510  pack_tmp = ishft(data_tmp, 60)
6511  pack_tmp = ishft(pack_tmp, -10)
6512  idata = idata + 1
6513  data_tmp = full_data(idata)
6514  data_tmp = ishft(data_tmp, 54)
6515  pack_tmp = ior(pack_tmp, data_tmp)
6516  pack_tmp = ishft(pack_tmp, -10)
6517  idata = idata + 1
6518  data_tmp = full_data(idata)
6519  data_tmp = ishft(data_tmp, 54)
6520  pack_tmp = ior(pack_tmp, data_tmp)
6521  pack_tmp = ishft(pack_tmp, -10)
6522  idata = idata + 1
6523  data_tmp = full_data(idata)
6524  data_tmp = ishft(data_tmp, 54)
6525  pack_tmp = ior(pack_tmp, data_tmp)
6526  pack_tmp = ishft(pack_tmp, -10)
6527  idata = idata + 1
6528  data_tmp = full_data(idata)
6529  data_tmp = ishft(data_tmp, 54)
6530  pack_tmp = ior(pack_tmp, data_tmp)
6531  pack_tmp = ishft(pack_tmp, -10)
6532  idata = idata + 1
6533  data_tmp = full_data(idata)
6534  data_tmp = ishft(data_tmp, 54)
6535  pack_tmp = ior(pack_tmp, data_tmp)
6536  pack_tmp = ishft(pack_tmp, -10)
6537  idata = idata + 1
6538  data_tmp = full_data(idata)
6539  data_tmp = ishft(data_tmp, 54)
6540  pack_tmp = ior(pack_tmp, data_tmp)
6541  pack_tmp = ishft(pack_tmp, 0)
6542  pack_tmp = ishft(pack_tmp, 0)
6543  ipack = ipack + 1
6544  packed_data(ipack) = pack_tmp
6545  END DO
6546  IF (ndata_rep < ndata) THEN
6547  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
6548  END IF
6549  END SUBROUTINE ints2bits_10
6550 
6551 ! **************************************************************************************************
6552 !> \brief ...
6553 !> \param Ndata ...
6554 !> \param packed_data ...
6555 !> \param full_data ...
6556 ! **************************************************************************************************
6557  SUBROUTINE bits2ints_10(Ndata, packed_data, full_data)
6558  INTEGER, INTENT(IN) :: Ndata
6559  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
6560  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
6561 
6562  INTEGER, PARAMETER :: Nbits = 10
6563 
6564  INTEGER :: idata, ipack, kdata, Ndata_rep
6565  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
6566 
6567  ipack = 0
6568  idata = 0
6569  pack_tmp = 0
6570  ndata_rep = (ndata/64)*64
6571  DO kdata = 1, ndata_rep, 64
6572  idata = idata + 1
6573  data_tmp = ishft(pack_tmp, 10)
6574  ipack = ipack + 1
6575  pack_tmp = packed_data(ipack)
6576  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
6577  pack_tmp = ishft(pack_tmp, -10)
6578  idata = idata + 1
6579  data_tmp = iand(pack_tmp, mask_right(nbits))
6580  full_data(idata) = data_tmp
6581  pack_tmp = ishft(pack_tmp, -nbits)
6582  idata = idata + 1
6583  data_tmp = iand(pack_tmp, mask_right(nbits))
6584  full_data(idata) = data_tmp
6585  pack_tmp = ishft(pack_tmp, -nbits)
6586  idata = idata + 1
6587  data_tmp = iand(pack_tmp, mask_right(nbits))
6588  full_data(idata) = data_tmp
6589  pack_tmp = ishft(pack_tmp, -nbits)
6590  idata = idata + 1
6591  data_tmp = iand(pack_tmp, mask_right(nbits))
6592  full_data(idata) = data_tmp
6593  pack_tmp = ishft(pack_tmp, -nbits)
6594  idata = idata + 1
6595  data_tmp = iand(pack_tmp, mask_right(nbits))
6596  full_data(idata) = data_tmp
6597  pack_tmp = ishft(pack_tmp, -nbits)
6598  idata = idata + 1
6599  data_tmp = ishft(pack_tmp, 6)
6600  ipack = ipack + 1
6601  pack_tmp = packed_data(ipack)
6602  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
6603  pack_tmp = ishft(pack_tmp, -6)
6604  idata = idata + 1
6605  data_tmp = iand(pack_tmp, mask_right(nbits))
6606  full_data(idata) = data_tmp
6607  pack_tmp = ishft(pack_tmp, -nbits)
6608  idata = idata + 1
6609  data_tmp = iand(pack_tmp, mask_right(nbits))
6610  full_data(idata) = data_tmp
6611  pack_tmp = ishft(pack_tmp, -nbits)
6612  idata = idata + 1
6613  data_tmp = iand(pack_tmp, mask_right(nbits))
6614  full_data(idata) = data_tmp
6615  pack_tmp = ishft(pack_tmp, -nbits)
6616  idata = idata + 1
6617  data_tmp = iand(pack_tmp, mask_right(nbits))
6618  full_data(idata) = data_tmp
6619  pack_tmp = ishft(pack_tmp, -nbits)
6620  idata = idata + 1
6621  data_tmp = iand(pack_tmp, mask_right(nbits))
6622  full_data(idata) = data_tmp
6623  pack_tmp = ishft(pack_tmp, -nbits)
6624  idata = idata + 1
6625  data_tmp = ishft(pack_tmp, 2)
6626  ipack = ipack + 1
6627  pack_tmp = packed_data(ipack)
6628  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
6629  pack_tmp = ishft(pack_tmp, -2)
6630  idata = idata + 1
6631  data_tmp = iand(pack_tmp, mask_right(nbits))
6632  full_data(idata) = data_tmp
6633  pack_tmp = ishft(pack_tmp, -nbits)
6634  idata = idata + 1
6635  data_tmp = iand(pack_tmp, mask_right(nbits))
6636  full_data(idata) = data_tmp
6637  pack_tmp = ishft(pack_tmp, -nbits)
6638  idata = idata + 1
6639  data_tmp = iand(pack_tmp, mask_right(nbits))
6640  full_data(idata) = data_tmp
6641  pack_tmp = ishft(pack_tmp, -nbits)
6642  idata = idata + 1
6643  data_tmp = iand(pack_tmp, mask_right(nbits))
6644  full_data(idata) = data_tmp
6645  pack_tmp = ishft(pack_tmp, -nbits)
6646  idata = idata + 1
6647  data_tmp = iand(pack_tmp, mask_right(nbits))
6648  full_data(idata) = data_tmp
6649  pack_tmp = ishft(pack_tmp, -nbits)
6650  idata = idata + 1
6651  data_tmp = iand(pack_tmp, mask_right(nbits))
6652  full_data(idata) = data_tmp
6653  pack_tmp = ishft(pack_tmp, -nbits)
6654  idata = idata + 1
6655  data_tmp = ishft(pack_tmp, 8)
6656  ipack = ipack + 1
6657  pack_tmp = packed_data(ipack)
6658  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
6659  pack_tmp = ishft(pack_tmp, -8)
6660  idata = idata + 1
6661  data_tmp = iand(pack_tmp, mask_right(nbits))
6662  full_data(idata) = data_tmp
6663  pack_tmp = ishft(pack_tmp, -nbits)
6664  idata = idata + 1
6665  data_tmp = iand(pack_tmp, mask_right(nbits))
6666  full_data(idata) = data_tmp
6667  pack_tmp = ishft(pack_tmp, -nbits)
6668  idata = idata + 1
6669  data_tmp = iand(pack_tmp, mask_right(nbits))
6670  full_data(idata) = data_tmp
6671  pack_tmp = ishft(pack_tmp, -nbits)
6672  idata = idata + 1
6673  data_tmp = iand(pack_tmp, mask_right(nbits))
6674  full_data(idata) = data_tmp
6675  pack_tmp = ishft(pack_tmp, -nbits)
6676  idata = idata + 1
6677  data_tmp = iand(pack_tmp, mask_right(nbits))
6678  full_data(idata) = data_tmp
6679  pack_tmp = ishft(pack_tmp, -nbits)
6680  idata = idata + 1
6681  data_tmp = ishft(pack_tmp, 4)
6682  ipack = ipack + 1
6683  pack_tmp = packed_data(ipack)
6684  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
6685  pack_tmp = ishft(pack_tmp, -4)
6686  idata = idata + 1
6687  data_tmp = iand(pack_tmp, mask_right(nbits))
6688  full_data(idata) = data_tmp
6689  pack_tmp = ishft(pack_tmp, -nbits)
6690  idata = idata + 1
6691  data_tmp = iand(pack_tmp, mask_right(nbits))
6692  full_data(idata) = data_tmp
6693  pack_tmp = ishft(pack_tmp, -nbits)
6694  idata = idata + 1
6695  data_tmp = iand(pack_tmp, mask_right(nbits))
6696  full_data(idata) = data_tmp
6697  pack_tmp = ishft(pack_tmp, -nbits)
6698  idata = idata + 1
6699  data_tmp = iand(pack_tmp, mask_right(nbits))
6700  full_data(idata) = data_tmp
6701  pack_tmp = ishft(pack_tmp, -nbits)
6702  idata = idata + 1
6703  data_tmp = iand(pack_tmp, mask_right(nbits))
6704  full_data(idata) = data_tmp
6705  pack_tmp = ishft(pack_tmp, -nbits)
6706  idata = idata + 1
6707  data_tmp = iand(pack_tmp, mask_right(nbits))
6708  full_data(idata) = data_tmp
6709  pack_tmp = ishft(pack_tmp, -nbits)
6710  idata = idata + 1
6711  data_tmp = ishft(pack_tmp, 10)
6712  ipack = ipack + 1
6713  pack_tmp = packed_data(ipack)
6714  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
6715  pack_tmp = ishft(pack_tmp, -10)
6716  idata = idata + 1
6717  data_tmp = iand(pack_tmp, mask_right(nbits))
6718  full_data(idata) = data_tmp
6719  pack_tmp = ishft(pack_tmp, -nbits)
6720  idata = idata + 1
6721  data_tmp = iand(pack_tmp, mask_right(nbits))
6722  full_data(idata) = data_tmp
6723  pack_tmp = ishft(pack_tmp, -nbits)
6724  idata = idata + 1
6725  data_tmp = iand(pack_tmp, mask_right(nbits))
6726  full_data(idata) = data_tmp
6727  pack_tmp = ishft(pack_tmp, -nbits)
6728  idata = idata + 1
6729  data_tmp = iand(pack_tmp, mask_right(nbits))
6730  full_data(idata) = data_tmp
6731  pack_tmp = ishft(pack_tmp, -nbits)
6732  idata = idata + 1
6733  data_tmp = iand(pack_tmp, mask_right(nbits))
6734  full_data(idata) = data_tmp
6735  pack_tmp = ishft(pack_tmp, -nbits)
6736  idata = idata + 1
6737  data_tmp = ishft(pack_tmp, 6)
6738  ipack = ipack + 1
6739  pack_tmp = packed_data(ipack)
6740  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
6741  pack_tmp = ishft(pack_tmp, -6)
6742  idata = idata + 1
6743  data_tmp = iand(pack_tmp, mask_right(nbits))
6744  full_data(idata) = data_tmp
6745  pack_tmp = ishft(pack_tmp, -nbits)
6746  idata = idata + 1
6747  data_tmp = iand(pack_tmp, mask_right(nbits))
6748  full_data(idata) = data_tmp
6749  pack_tmp = ishft(pack_tmp, -nbits)
6750  idata = idata + 1
6751  data_tmp = iand(pack_tmp, mask_right(nbits))
6752  full_data(idata) = data_tmp
6753  pack_tmp = ishft(pack_tmp, -nbits)
6754  idata = idata + 1
6755  data_tmp = iand(pack_tmp, mask_right(nbits))
6756  full_data(idata) = data_tmp
6757  pack_tmp = ishft(pack_tmp, -nbits)
6758  idata = idata + 1
6759  data_tmp = iand(pack_tmp, mask_right(nbits))
6760  full_data(idata) = data_tmp
6761  pack_tmp = ishft(pack_tmp, -nbits)
6762  idata = idata + 1
6763  data_tmp = ishft(pack_tmp, 2)
6764  ipack = ipack + 1
6765  pack_tmp = packed_data(ipack)
6766  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
6767  pack_tmp = ishft(pack_tmp, -2)
6768  idata = idata + 1
6769  data_tmp = iand(pack_tmp, mask_right(nbits))
6770  full_data(idata) = data_tmp
6771  pack_tmp = ishft(pack_tmp, -nbits)
6772  idata = idata + 1
6773  data_tmp = iand(pack_tmp, mask_right(nbits))
6774  full_data(idata) = data_tmp
6775  pack_tmp = ishft(pack_tmp, -nbits)
6776  idata = idata + 1
6777  data_tmp = iand(pack_tmp, mask_right(nbits))
6778  full_data(idata) = data_tmp
6779  pack_tmp = ishft(pack_tmp, -nbits)
6780  idata = idata + 1
6781  data_tmp = iand(pack_tmp, mask_right(nbits))
6782  full_data(idata) = data_tmp
6783  pack_tmp = ishft(pack_tmp, -nbits)
6784  idata = idata + 1
6785  data_tmp = iand(pack_tmp, mask_right(nbits))
6786  full_data(idata) = data_tmp
6787  pack_tmp = ishft(pack_tmp, -nbits)
6788  idata = idata + 1
6789  data_tmp = iand(pack_tmp, mask_right(nbits))
6790  full_data(idata) = data_tmp
6791  pack_tmp = ishft(pack_tmp, -nbits)
6792  idata = idata + 1
6793  data_tmp = ishft(pack_tmp, 8)
6794  ipack = ipack + 1
6795  pack_tmp = packed_data(ipack)
6796  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
6797  pack_tmp = ishft(pack_tmp, -8)
6798  idata = idata + 1
6799  data_tmp = iand(pack_tmp, mask_right(nbits))
6800  full_data(idata) = data_tmp
6801  pack_tmp = ishft(pack_tmp, -nbits)
6802  idata = idata + 1
6803  data_tmp = iand(pack_tmp, mask_right(nbits))
6804  full_data(idata) = data_tmp
6805  pack_tmp = ishft(pack_tmp, -nbits)
6806  idata = idata + 1
6807  data_tmp = iand(pack_tmp, mask_right(nbits))
6808  full_data(idata) = data_tmp
6809  pack_tmp = ishft(pack_tmp, -nbits)
6810  idata = idata + 1
6811  data_tmp = iand(pack_tmp, mask_right(nbits))
6812  full_data(idata) = data_tmp
6813  pack_tmp = ishft(pack_tmp, -nbits)
6814  idata = idata + 1
6815  data_tmp = iand(pack_tmp, mask_right(nbits))
6816  full_data(idata) = data_tmp
6817  pack_tmp = ishft(pack_tmp, -nbits)
6818  idata = idata + 1
6819  data_tmp = ishft(pack_tmp, 4)
6820  ipack = ipack + 1
6821  pack_tmp = packed_data(ipack)
6822  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
6823  pack_tmp = ishft(pack_tmp, -4)
6824  idata = idata + 1
6825  data_tmp = iand(pack_tmp, mask_right(nbits))
6826  full_data(idata) = data_tmp
6827  pack_tmp = ishft(pack_tmp, -nbits)
6828  idata = idata + 1
6829  data_tmp = iand(pack_tmp, mask_right(nbits))
6830  full_data(idata) = data_tmp
6831  pack_tmp = ishft(pack_tmp, -nbits)
6832  idata = idata + 1
6833  data_tmp = iand(pack_tmp, mask_right(nbits))
6834  full_data(idata) = data_tmp
6835  pack_tmp = ishft(pack_tmp, -nbits)
6836  idata = idata + 1
6837  data_tmp = iand(pack_tmp, mask_right(nbits))
6838  full_data(idata) = data_tmp
6839  pack_tmp = ishft(pack_tmp, -nbits)
6840  idata = idata + 1
6841  data_tmp = iand(pack_tmp, mask_right(nbits))
6842  full_data(idata) = data_tmp
6843  pack_tmp = ishft(pack_tmp, -nbits)
6844  idata = idata + 1
6845  data_tmp = iand(pack_tmp, mask_right(nbits))
6846  full_data(idata) = data_tmp
6847  pack_tmp = ishft(pack_tmp, -nbits)
6848  END DO
6849  IF (ndata_rep < ndata) THEN
6850  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
6851  END IF
6852  END SUBROUTINE bits2ints_10
6853 
6854 ! **************************************************************************************************
6855 !> \brief ...
6856 !> \param Ndata ...
6857 !> \param packed_data ...
6858 !> \param full_data ...
6859 ! **************************************************************************************************
6860  SUBROUTINE ints2bits_11(Ndata, packed_data, full_data)
6861  INTEGER, INTENT(IN) :: Ndata
6862  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
6863  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
6864 
6865  INTEGER, PARAMETER :: Nbits = 11
6866 
6867  INTEGER :: idata, ipack, kdata, Ndata_rep
6868  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
6869 
6870  idata = 0
6871  ipack = 0
6872  ndata_rep = (ndata/64)*64
6873  DO kdata = 1, ndata_rep, 64
6874  pack_tmp = 0
6875  idata = idata + 1
6876  data_tmp = full_data(idata)
6877  data_tmp = ishft(data_tmp, 53)
6878  pack_tmp = ior(pack_tmp, data_tmp)
6879  pack_tmp = ishft(pack_tmp, -11)
6880  idata = idata + 1
6881  data_tmp = full_data(idata)
6882  data_tmp = ishft(data_tmp, 53)
6883  pack_tmp = ior(pack_tmp, data_tmp)
6884  pack_tmp = ishft(pack_tmp, -11)
6885  idata = idata + 1
6886  data_tmp = full_data(idata)
6887  data_tmp = ishft(data_tmp, 53)
6888  pack_tmp = ior(pack_tmp, data_tmp)
6889  pack_tmp = ishft(pack_tmp, -11)
6890  idata = idata + 1
6891  data_tmp = full_data(idata)
6892  data_tmp = ishft(data_tmp, 53)
6893  pack_tmp = ior(pack_tmp, data_tmp)
6894  pack_tmp = ishft(pack_tmp, -11)
6895  idata = idata + 1
6896  data_tmp = full_data(idata)
6897  data_tmp = ishft(data_tmp, 53)
6898  pack_tmp = ior(pack_tmp, data_tmp)
6899  pack_tmp = ishft(pack_tmp, -9)
6900  idata = idata + 1
6901  data_tmp = full_data(idata)
6902  data_tmp = ishft(data_tmp, 53)
6903  data_tmp = iand(data_tmp, mask_left(9))
6904  pack_tmp = ior(pack_tmp, data_tmp)
6905  ipack = ipack + 1
6906  packed_data(ipack) = pack_tmp
6907  data_tmp = full_data(idata)
6908  pack_tmp = ishft(data_tmp, 62)
6909  pack_tmp = ishft(pack_tmp, -11)
6910  idata = idata + 1
6911  data_tmp = full_data(idata)
6912  data_tmp = ishft(data_tmp, 53)
6913  pack_tmp = ior(pack_tmp, data_tmp)
6914  pack_tmp = ishft(pack_tmp, -11)
6915  idata = idata + 1
6916  data_tmp = full_data(idata)
6917  data_tmp = ishft(data_tmp, 53)
6918  pack_tmp = ior(pack_tmp, data_tmp)
6919  pack_tmp = ishft(pack_tmp, -11)
6920  idata = idata + 1
6921  data_tmp = full_data(idata)
6922  data_tmp = ishft(data_tmp, 53)
6923  pack_tmp = ior(pack_tmp, data_tmp)
6924  pack_tmp = ishft(pack_tmp, -11)
6925  idata = idata + 1
6926  data_tmp = full_data(idata)
6927  data_tmp = ishft(data_tmp, 53)
6928  pack_tmp = ior(pack_tmp, data_tmp)
6929  pack_tmp = ishft(pack_tmp, -11)
6930  idata = idata + 1
6931  data_tmp = full_data(idata)
6932  data_tmp = ishft(data_tmp, 53)
6933  pack_tmp = ior(pack_tmp, data_tmp)
6934  pack_tmp = ishft(pack_tmp, -7)
6935  idata = idata + 1
6936  data_tmp = full_data(idata)
6937  data_tmp = ishft(data_tmp, 53)
6938  data_tmp = iand(data_tmp, mask_left(7))
6939  pack_tmp = ior(pack_tmp, data_tmp)
6940  ipack = ipack + 1
6941  packed_data(ipack) = pack_tmp
6942  data_tmp = full_data(idata)
6943  pack_tmp = ishft(data_tmp, 60)
6944  pack_tmp = ishft(pack_tmp, -11)
6945  idata = idata + 1
6946  data_tmp = full_data(idata)
6947  data_tmp = ishft(data_tmp, 53)
6948  pack_tmp = ior(pack_tmp, data_tmp)
6949  pack_tmp = ishft(pack_tmp, -11)
6950  idata = idata + 1
6951  data_tmp = full_data(idata)
6952  data_tmp = ishft(data_tmp, 53)
6953  pack_tmp = ior(pack_tmp, data_tmp)
6954  pack_tmp = ishft(pack_tmp, -11)
6955  idata = idata + 1
6956  data_tmp = full_data(idata)
6957  data_tmp = ishft(data_tmp, 53)
6958  pack_tmp = ior(pack_tmp, data_tmp)
6959  pack_tmp = ishft(pack_tmp, -11)
6960  idata = idata + 1
6961  data_tmp = full_data(idata)
6962  data_tmp = ishft(data_tmp, 53)
6963  pack_tmp = ior(pack_tmp, data_tmp)
6964  pack_tmp = ishft(pack_tmp, -11)
6965  idata = idata + 1
6966  data_tmp = full_data(idata)
6967  data_tmp = ishft(data_tmp, 53)
6968  pack_tmp = ior(pack_tmp, data_tmp)
6969  pack_tmp = ishft(pack_tmp, -5)
6970  idata = idata + 1
6971  data_tmp = full_data(idata)
6972  data_tmp = ishft(data_tmp, 53)
6973  data_tmp = iand(data_tmp, mask_left(5))
6974  pack_tmp = ior(pack_tmp, data_tmp)
6975  ipack = ipack + 1
6976  packed_data(ipack) = pack_tmp
6977  data_tmp = full_data(idata)
6978  pack_tmp = ishft(data_tmp, 58)
6979  pack_tmp = ishft(pack_tmp, -11)
6980  idata = idata + 1
6981  data_tmp = full_data(idata)
6982  data_tmp = ishft(data_tmp, 53)
6983  pack_tmp = ior(pack_tmp, data_tmp)
6984  pack_tmp = ishft(pack_tmp, -11)
6985  idata = idata + 1
6986  data_tmp = full_data(idata)
6987  data_tmp = ishft(data_tmp, 53)
6988  pack_tmp = ior(pack_tmp, data_tmp)
6989  pack_tmp = ishft(pack_tmp, -11)
6990  idata = idata + 1
6991  data_tmp = full_data(idata)
6992  data_tmp = ishft(data_tmp, 53)
6993  pack_tmp = ior(pack_tmp, data_tmp)
6994  pack_tmp = ishft(pack_tmp, -11)
6995  idata = idata + 1
6996  data_tmp = full_data(idata)
6997  data_tmp = ishft(data_tmp, 53)
6998  pack_tmp = ior(pack_tmp, data_tmp)
6999  pack_tmp = ishft(pack_tmp, -11)
7000  idata = idata + 1
7001  data_tmp = full_data(idata)
7002  data_tmp = ishft(data_tmp, 53)
7003  pack_tmp = ior(pack_tmp, data_tmp)
7004  pack_tmp = ishft(pack_tmp, -3)
7005  idata = idata + 1
7006  data_tmp = full_data(idata)
7007  data_tmp = ishft(data_tmp, 53)
7008  data_tmp = iand(data_tmp, mask_left(3))
7009  pack_tmp = ior(pack_tmp, data_tmp)
7010  ipack = ipack + 1
7011  packed_data(ipack) = pack_tmp
7012  data_tmp = full_data(idata)
7013  pack_tmp = ishft(data_tmp, 56)
7014  pack_tmp = ishft(pack_tmp, -11)
7015  idata = idata + 1
7016  data_tmp = full_data(idata)
7017  data_tmp = ishft(data_tmp, 53)
7018  pack_tmp = ior(pack_tmp, data_tmp)
7019  pack_tmp = ishft(pack_tmp, -11)
7020  idata = idata + 1
7021  data_tmp = full_data(idata)
7022  data_tmp = ishft(data_tmp, 53)
7023  pack_tmp = ior(pack_tmp, data_tmp)
7024  pack_tmp = ishft(pack_tmp, -11)
7025  idata = idata + 1
7026  data_tmp = full_data(idata)
7027  data_tmp = ishft(data_tmp, 53)
7028  pack_tmp = ior(pack_tmp, data_tmp)
7029  pack_tmp = ishft(pack_tmp, -11)
7030  idata = idata + 1
7031  data_tmp = full_data(idata)
7032  data_tmp = ishft(data_tmp, 53)
7033  pack_tmp = ior(pack_tmp, data_tmp)
7034  pack_tmp = ishft(pack_tmp, -11)
7035  idata = idata + 1
7036  data_tmp = full_data(idata)
7037  data_tmp = ishft(data_tmp, 53)
7038  pack_tmp = ior(pack_tmp, data_tmp)
7039  pack_tmp = ishft(pack_tmp, -1)
7040  idata = idata + 1
7041  data_tmp = full_data(idata)
7042  data_tmp = ishft(data_tmp, 53)
7043  data_tmp = iand(data_tmp, mask_left(1))
7044  pack_tmp = ior(pack_tmp, data_tmp)
7045  ipack = ipack + 1
7046  packed_data(ipack) = pack_tmp
7047  data_tmp = full_data(idata)
7048  pack_tmp = ishft(data_tmp, 54)
7049  pack_tmp = ishft(pack_tmp, -11)
7050  idata = idata + 1
7051  data_tmp = full_data(idata)
7052  data_tmp = ishft(data_tmp, 53)
7053  pack_tmp = ior(pack_tmp, data_tmp)
7054  pack_tmp = ishft(pack_tmp, -11)
7055  idata = idata + 1
7056  data_tmp = full_data(idata)
7057  data_tmp = ishft(data_tmp, 53)
7058  pack_tmp = ior(pack_tmp, data_tmp)
7059  pack_tmp = ishft(pack_tmp, -11)
7060  idata = idata + 1
7061  data_tmp = full_data(idata)
7062  data_tmp = ishft(data_tmp, 53)
7063  pack_tmp = ior(pack_tmp, data_tmp)
7064  pack_tmp = ishft(pack_tmp, -11)
7065  idata = idata + 1
7066  data_tmp = full_data(idata)
7067  data_tmp = ishft(data_tmp, 53)
7068  pack_tmp = ior(pack_tmp, data_tmp)
7069  pack_tmp = ishft(pack_tmp, -10)
7070  idata = idata + 1
7071  data_tmp = full_data(idata)
7072  data_tmp = ishft(data_tmp, 53)
7073  data_tmp = iand(data_tmp, mask_left(10))
7074  pack_tmp = ior(pack_tmp, data_tmp)
7075  ipack = ipack + 1
7076  packed_data(ipack) = pack_tmp
7077  data_tmp = full_data(idata)
7078  pack_tmp = ishft(data_tmp, 63)
7079  pack_tmp = ishft(pack_tmp, -11)
7080  idata = idata + 1
7081  data_tmp = full_data(idata)
7082  data_tmp = ishft(data_tmp, 53)
7083  pack_tmp = ior(pack_tmp, data_tmp)
7084  pack_tmp = ishft(pack_tmp, -11)
7085  idata = idata + 1
7086  data_tmp = full_data(idata)
7087  data_tmp = ishft(data_tmp, 53)
7088  pack_tmp = ior(pack_tmp, data_tmp)
7089  pack_tmp = ishft(pack_tmp, -11)
7090  idata = idata + 1
7091  data_tmp = full_data(idata)
7092  data_tmp = ishft(data_tmp, 53)
7093  pack_tmp = ior(pack_tmp, data_tmp)
7094  pack_tmp = ishft(pack_tmp, -11)
7095  idata = idata + 1
7096  data_tmp = full_data(idata)
7097  data_tmp = ishft(data_tmp, 53)
7098  pack_tmp = ior(pack_tmp, data_tmp)
7099  pack_tmp = ishft(pack_tmp, -11)
7100  idata = idata + 1
7101  data_tmp = full_data(idata)
7102  data_tmp = ishft(data_tmp, 53)
7103  pack_tmp = ior(pack_tmp, data_tmp)
7104  pack_tmp = ishft(pack_tmp, -8)
7105  idata = idata + 1
7106  data_tmp = full_data(idata)
7107  data_tmp = ishft(data_tmp, 53)
7108  data_tmp = iand(data_tmp, mask_left(8))
7109  pack_tmp = ior(pack_tmp, data_tmp)
7110  ipack = ipack + 1
7111  packed_data(ipack) = pack_tmp
7112  data_tmp = full_data(idata)
7113  pack_tmp = ishft(data_tmp, 61)
7114  pack_tmp = ishft(pack_tmp, -11)
7115  idata = idata + 1
7116  data_tmp = full_data(idata)
7117  data_tmp = ishft(data_tmp, 53)
7118  pack_tmp = ior(pack_tmp, data_tmp)
7119  pack_tmp = ishft(pack_tmp, -11)
7120  idata = idata + 1
7121  data_tmp = full_data(idata)
7122  data_tmp = ishft(data_tmp, 53)
7123  pack_tmp = ior(pack_tmp, data_tmp)
7124  pack_tmp = ishft(pack_tmp, -11)
7125  idata = idata + 1
7126  data_tmp = full_data(idata)
7127  data_tmp = ishft(data_tmp, 53)
7128  pack_tmp = ior(pack_tmp, data_tmp)
7129  pack_tmp = ishft(pack_tmp, -11)
7130  idata = idata + 1
7131  data_tmp = full_data(idata)
7132  data_tmp = ishft(data_tmp, 53)
7133  pack_tmp = ior(pack_tmp, data_tmp)
7134  pack_tmp = ishft(pack_tmp, -11)
7135  idata = idata + 1
7136  data_tmp = full_data(idata)
7137  data_tmp = ishft(data_tmp, 53)
7138  pack_tmp = ior(pack_tmp, data_tmp)
7139  pack_tmp = ishft(pack_tmp, -6)
7140  idata = idata + 1
7141  data_tmp = full_data(idata)
7142  data_tmp = ishft(data_tmp, 53)
7143  data_tmp = iand(data_tmp, mask_left(6))
7144  pack_tmp = ior(pack_tmp, data_tmp)
7145  ipack = ipack + 1
7146  packed_data(ipack) = pack_tmp
7147  data_tmp = full_data(idata)
7148  pack_tmp = ishft(data_tmp, 59)
7149  pack_tmp = ishft(pack_tmp, -11)
7150  idata = idata + 1
7151  data_tmp = full_data(idata)
7152  data_tmp = ishft(data_tmp, 53)
7153  pack_tmp = ior(pack_tmp, data_tmp)
7154  pack_tmp = ishft(pack_tmp, -11)
7155  idata = idata + 1
7156  data_tmp = full_data(idata)
7157  data_tmp = ishft(data_tmp, 53)
7158  pack_tmp = ior(pack_tmp, data_tmp)
7159  pack_tmp = ishft(pack_tmp, -11)
7160  idata = idata + 1
7161  data_tmp = full_data(idata)
7162  data_tmp = ishft(data_tmp, 53)
7163  pack_tmp = ior(pack_tmp, data_tmp)
7164  pack_tmp = ishft(pack_tmp, -11)
7165  idata = idata + 1
7166  data_tmp = full_data(idata)
7167  data_tmp = ishft(data_tmp, 53)
7168  pack_tmp = ior(pack_tmp, data_tmp)
7169  pack_tmp = ishft(pack_tmp, -11)
7170  idata = idata + 1
7171  data_tmp = full_data(idata)
7172  data_tmp = ishft(data_tmp, 53)
7173  pack_tmp = ior(pack_tmp, data_tmp)
7174  pack_tmp = ishft(pack_tmp, -4)
7175  idata = idata + 1
7176  data_tmp = full_data(idata)
7177  data_tmp = ishft(data_tmp, 53)
7178  data_tmp = iand(data_tmp, mask_left(4))
7179  pack_tmp = ior(pack_tmp, data_tmp)
7180  ipack = ipack + 1
7181  packed_data(ipack) = pack_tmp
7182  data_tmp = full_data(idata)
7183  pack_tmp = ishft(data_tmp, 57)
7184  pack_tmp = ishft(pack_tmp, -11)
7185  idata = idata + 1
7186  data_tmp = full_data(idata)
7187  data_tmp = ishft(data_tmp, 53)
7188  pack_tmp = ior(pack_tmp, data_tmp)
7189  pack_tmp = ishft(pack_tmp, -11)
7190  idata = idata + 1
7191  data_tmp = full_data(idata)
7192  data_tmp = ishft(data_tmp, 53)
7193  pack_tmp = ior(pack_tmp, data_tmp)
7194  pack_tmp = ishft(pack_tmp, -11)
7195  idata = idata + 1
7196  data_tmp = full_data(idata)
7197  data_tmp = ishft(data_tmp, 53)
7198  pack_tmp = ior(pack_tmp, data_tmp)
7199  pack_tmp = ishft(pack_tmp, -11)
7200  idata = idata + 1
7201  data_tmp = full_data(idata)
7202  data_tmp = ishft(data_tmp, 53)
7203  pack_tmp = ior(pack_tmp, data_tmp)
7204  pack_tmp = ishft(pack_tmp, -11)
7205  idata = idata + 1
7206  data_tmp = full_data(idata)
7207  data_tmp = ishft(data_tmp, 53)
7208  pack_tmp = ior(pack_tmp, data_tmp)
7209  pack_tmp = ishft(pack_tmp, -2)
7210  idata = idata + 1
7211  data_tmp = full_data(idata)
7212  data_tmp = ishft(data_tmp, 53)
7213  data_tmp = iand(data_tmp, mask_left(2))
7214  pack_tmp = ior(pack_tmp, data_tmp)
7215  ipack = ipack + 1
7216  packed_data(ipack) = pack_tmp
7217  data_tmp = full_data(idata)
7218  pack_tmp = ishft(data_tmp, 55)
7219  pack_tmp = ishft(pack_tmp, -11)
7220  idata = idata + 1
7221  data_tmp = full_data(idata)
7222  data_tmp = ishft(data_tmp, 53)
7223  pack_tmp = ior(pack_tmp, data_tmp)
7224  pack_tmp = ishft(pack_tmp, -11)
7225  idata = idata + 1
7226  data_tmp = full_data(idata)
7227  data_tmp = ishft(data_tmp, 53)
7228  pack_tmp = ior(pack_tmp, data_tmp)
7229  pack_tmp = ishft(pack_tmp, -11)
7230  idata = idata + 1
7231  data_tmp = full_data(idata)
7232  data_tmp = ishft(data_tmp, 53)
7233  pack_tmp = ior(pack_tmp, data_tmp)
7234  pack_tmp = ishft(pack_tmp, -11)
7235  idata = idata + 1
7236  data_tmp = full_data(idata)
7237  data_tmp = ishft(data_tmp, 53)
7238  pack_tmp = ior(pack_tmp, data_tmp)
7239  pack_tmp = ishft(pack_tmp, -11)
7240  idata = idata + 1
7241  data_tmp = full_data(idata)
7242  data_tmp = ishft(data_tmp, 53)
7243  pack_tmp = ior(pack_tmp, data_tmp)
7244  pack_tmp = ishft(pack_tmp, 0)
7245  pack_tmp = ishft(pack_tmp, 0)
7246  ipack = ipack + 1
7247  packed_data(ipack) = pack_tmp
7248  END DO
7249  IF (ndata_rep < ndata) THEN
7250  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
7251  END IF
7252  END SUBROUTINE ints2bits_11
7253 
7254 ! **************************************************************************************************
7255 !> \brief ...
7256 !> \param Ndata ...
7257 !> \param packed_data ...
7258 !> \param full_data ...
7259 ! **************************************************************************************************
7260  SUBROUTINE bits2ints_11(Ndata, packed_data, full_data)
7261  INTEGER, INTENT(IN) :: Ndata
7262  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
7263  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
7264 
7265  INTEGER, PARAMETER :: Nbits = 11
7266 
7267  INTEGER :: idata, ipack, kdata, Ndata_rep
7268  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
7269 
7270  ipack = 0
7271  idata = 0
7272  pack_tmp = 0
7273  ndata_rep = (ndata/64)*64
7274  DO kdata = 1, ndata_rep, 64
7275  idata = idata + 1
7276  data_tmp = ishft(pack_tmp, 11)
7277  ipack = ipack + 1
7278  pack_tmp = packed_data(ipack)
7279  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
7280  pack_tmp = ishft(pack_tmp, -11)
7281  idata = idata + 1
7282  data_tmp = iand(pack_tmp, mask_right(nbits))
7283  full_data(idata) = data_tmp
7284  pack_tmp = ishft(pack_tmp, -nbits)
7285  idata = idata + 1
7286  data_tmp = iand(pack_tmp, mask_right(nbits))
7287  full_data(idata) = data_tmp
7288  pack_tmp = ishft(pack_tmp, -nbits)
7289  idata = idata + 1
7290  data_tmp = iand(pack_tmp, mask_right(nbits))
7291  full_data(idata) = data_tmp
7292  pack_tmp = ishft(pack_tmp, -nbits)
7293  idata = idata + 1
7294  data_tmp = iand(pack_tmp, mask_right(nbits))
7295  full_data(idata) = data_tmp
7296  pack_tmp = ishft(pack_tmp, -nbits)
7297  idata = idata + 1
7298  data_tmp = ishft(pack_tmp, 2)
7299  ipack = ipack + 1
7300  pack_tmp = packed_data(ipack)
7301  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
7302  pack_tmp = ishft(pack_tmp, -2)
7303  idata = idata + 1
7304  data_tmp = iand(pack_tmp, mask_right(nbits))
7305  full_data(idata) = data_tmp
7306  pack_tmp = ishft(pack_tmp, -nbits)
7307  idata = idata + 1
7308  data_tmp = iand(pack_tmp, mask_right(nbits))
7309  full_data(idata) = data_tmp
7310  pack_tmp = ishft(pack_tmp, -nbits)
7311  idata = idata + 1
7312  data_tmp = iand(pack_tmp, mask_right(nbits))
7313  full_data(idata) = data_tmp
7314  pack_tmp = ishft(pack_tmp, -nbits)
7315  idata = idata + 1
7316  data_tmp = iand(pack_tmp, mask_right(nbits))
7317  full_data(idata) = data_tmp
7318  pack_tmp = ishft(pack_tmp, -nbits)
7319  idata = idata + 1
7320  data_tmp = iand(pack_tmp, mask_right(nbits))
7321  full_data(idata) = data_tmp
7322  pack_tmp = ishft(pack_tmp, -nbits)
7323  idata = idata + 1
7324  data_tmp = ishft(pack_tmp, 4)
7325  ipack = ipack + 1
7326  pack_tmp = packed_data(ipack)
7327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
7328  pack_tmp = ishft(pack_tmp, -4)
7329  idata = idata + 1
7330  data_tmp = iand(pack_tmp, mask_right(nbits))
7331  full_data(idata) = data_tmp
7332  pack_tmp = ishft(pack_tmp, -nbits)
7333  idata = idata + 1
7334  data_tmp = iand(pack_tmp, mask_right(nbits))
7335  full_data(idata) = data_tmp
7336  pack_tmp = ishft(pack_tmp, -nbits)
7337  idata = idata + 1
7338  data_tmp = iand(pack_tmp, mask_right(nbits))
7339  full_data(idata) = data_tmp
7340  pack_tmp = ishft(pack_tmp, -nbits)
7341  idata = idata + 1
7342  data_tmp = iand(pack_tmp, mask_right(nbits))
7343  full_data(idata) = data_tmp
7344  pack_tmp = ishft(pack_tmp, -nbits)
7345  idata = idata + 1
7346  data_tmp = iand(pack_tmp, mask_right(nbits))
7347  full_data(idata) = data_tmp
7348  pack_tmp = ishft(pack_tmp, -nbits)
7349  idata = idata + 1
7350  data_tmp = ishft(pack_tmp, 6)
7351  ipack = ipack + 1
7352  pack_tmp = packed_data(ipack)
7353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
7354  pack_tmp = ishft(pack_tmp, -6)
7355  idata = idata + 1
7356  data_tmp = iand(pack_tmp, mask_right(nbits))
7357  full_data(idata) = data_tmp
7358  pack_tmp = ishft(pack_tmp, -nbits)
7359  idata = idata + 1
7360  data_tmp = iand(pack_tmp, mask_right(nbits))
7361  full_data(idata) = data_tmp
7362  pack_tmp = ishft(pack_tmp, -nbits)
7363  idata = idata + 1
7364  data_tmp = iand(pack_tmp, mask_right(nbits))
7365  full_data(idata) = data_tmp
7366  pack_tmp = ishft(pack_tmp, -nbits)
7367  idata = idata + 1
7368  data_tmp = iand(pack_tmp, mask_right(nbits))
7369  full_data(idata) = data_tmp
7370  pack_tmp = ishft(pack_tmp, -nbits)
7371  idata = idata + 1
7372  data_tmp = iand(pack_tmp, mask_right(nbits))
7373  full_data(idata) = data_tmp
7374  pack_tmp = ishft(pack_tmp, -nbits)
7375  idata = idata + 1
7376  data_tmp = ishft(pack_tmp, 8)
7377  ipack = ipack + 1
7378  pack_tmp = packed_data(ipack)
7379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
7380  pack_tmp = ishft(pack_tmp, -8)
7381  idata = idata + 1
7382  data_tmp = iand(pack_tmp, mask_right(nbits))
7383  full_data(idata) = data_tmp
7384  pack_tmp = ishft(pack_tmp, -nbits)
7385  idata = idata + 1
7386  data_tmp = iand(pack_tmp, mask_right(nbits))
7387  full_data(idata) = data_tmp
7388  pack_tmp = ishft(pack_tmp, -nbits)
7389  idata = idata + 1
7390  data_tmp = iand(pack_tmp, mask_right(nbits))
7391  full_data(idata) = data_tmp
7392  pack_tmp = ishft(pack_tmp, -nbits)
7393  idata = idata + 1
7394  data_tmp = iand(pack_tmp, mask_right(nbits))
7395  full_data(idata) = data_tmp
7396  pack_tmp = ishft(pack_tmp, -nbits)
7397  idata = idata + 1
7398  data_tmp = iand(pack_tmp, mask_right(nbits))
7399  full_data(idata) = data_tmp
7400  pack_tmp = ishft(pack_tmp, -nbits)
7401  idata = idata + 1
7402  data_tmp = ishft(pack_tmp, 10)
7403  ipack = ipack + 1
7404  pack_tmp = packed_data(ipack)
7405  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
7406  pack_tmp = ishft(pack_tmp, -10)
7407  idata = idata + 1
7408  data_tmp = iand(pack_tmp, mask_right(nbits))
7409  full_data(idata) = data_tmp
7410  pack_tmp = ishft(pack_tmp, -nbits)
7411  idata = idata + 1
7412  data_tmp = iand(pack_tmp, mask_right(nbits))
7413  full_data(idata) = data_tmp
7414  pack_tmp = ishft(pack_tmp, -nbits)
7415  idata = idata + 1
7416  data_tmp = iand(pack_tmp, mask_right(nbits))
7417  full_data(idata) = data_tmp
7418  pack_tmp = ishft(pack_tmp, -nbits)
7419  idata = idata + 1
7420  data_tmp = iand(pack_tmp, mask_right(nbits))
7421  full_data(idata) = data_tmp
7422  pack_tmp = ishft(pack_tmp, -nbits)
7423  idata = idata + 1
7424  data_tmp = ishft(pack_tmp, 1)
7425  ipack = ipack + 1
7426  pack_tmp = packed_data(ipack)
7427  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
7428  pack_tmp = ishft(pack_tmp, -1)
7429  idata = idata + 1
7430  data_tmp = iand(pack_tmp, mask_right(nbits))
7431  full_data(idata) = data_tmp
7432  pack_tmp = ishft(pack_tmp, -nbits)
7433  idata = idata + 1
7434  data_tmp = iand(pack_tmp, mask_right(nbits))
7435  full_data(idata) = data_tmp
7436  pack_tmp = ishft(pack_tmp, -nbits)
7437  idata = idata + 1
7438  data_tmp = iand(pack_tmp, mask_right(nbits))
7439  full_data(idata) = data_tmp
7440  pack_tmp = ishft(pack_tmp, -nbits)
7441  idata = idata + 1
7442  data_tmp = iand(pack_tmp, mask_right(nbits))
7443  full_data(idata) = data_tmp
7444  pack_tmp = ishft(pack_tmp, -nbits)
7445  idata = idata + 1
7446  data_tmp = iand(pack_tmp, mask_right(nbits))
7447  full_data(idata) = data_tmp
7448  pack_tmp = ishft(pack_tmp, -nbits)
7449  idata = idata + 1
7450  data_tmp = ishft(pack_tmp, 3)
7451  ipack = ipack + 1
7452  pack_tmp = packed_data(ipack)
7453  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
7454  pack_tmp = ishft(pack_tmp, -3)
7455  idata = idata + 1
7456  data_tmp = iand(pack_tmp, mask_right(nbits))
7457  full_data(idata) = data_tmp
7458  pack_tmp = ishft(pack_tmp, -nbits)
7459  idata = idata + 1
7460  data_tmp = iand(pack_tmp, mask_right(nbits))
7461  full_data(idata) = data_tmp
7462  pack_tmp = ishft(pack_tmp, -nbits)
7463  idata = idata + 1
7464  data_tmp = iand(pack_tmp, mask_right(nbits))
7465  full_data(idata) = data_tmp
7466  pack_tmp = ishft(pack_tmp, -nbits)
7467  idata = idata + 1
7468  data_tmp = iand(pack_tmp, mask_right(nbits))
7469  full_data(idata) = data_tmp
7470  pack_tmp = ishft(pack_tmp, -nbits)
7471  idata = idata + 1
7472  data_tmp = iand(pack_tmp, mask_right(nbits))
7473  full_data(idata) = data_tmp
7474  pack_tmp = ishft(pack_tmp, -nbits)
7475  idata = idata + 1
7476  data_tmp = ishft(pack_tmp, 5)
7477  ipack = ipack + 1
7478  pack_tmp = packed_data(ipack)
7479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
7480  pack_tmp = ishft(pack_tmp, -5)
7481  idata = idata + 1
7482  data_tmp = iand(pack_tmp, mask_right(nbits))
7483  full_data(idata) = data_tmp
7484  pack_tmp = ishft(pack_tmp, -nbits)
7485  idata = idata + 1
7486  data_tmp = iand(pack_tmp, mask_right(nbits))
7487  full_data(idata) = data_tmp
7488  pack_tmp = ishft(pack_tmp, -nbits)
7489  idata = idata + 1
7490  data_tmp = iand(pack_tmp, mask_right(nbits))
7491  full_data(idata) = data_tmp
7492  pack_tmp = ishft(pack_tmp, -nbits)
7493  idata = idata + 1
7494  data_tmp = iand(pack_tmp, mask_right(nbits))
7495  full_data(idata) = data_tmp
7496  pack_tmp = ishft(pack_tmp, -nbits)
7497  idata = idata + 1
7498  data_tmp = iand(pack_tmp, mask_right(nbits))
7499  full_data(idata) = data_tmp
7500  pack_tmp = ishft(pack_tmp, -nbits)
7501  idata = idata + 1
7502  data_tmp = ishft(pack_tmp, 7)
7503  ipack = ipack + 1
7504  pack_tmp = packed_data(ipack)
7505  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
7506  pack_tmp = ishft(pack_tmp, -7)
7507  idata = idata + 1
7508  data_tmp = iand(pack_tmp, mask_right(nbits))
7509  full_data(idata) = data_tmp
7510  pack_tmp = ishft(pack_tmp, -nbits)
7511  idata = idata + 1
7512  data_tmp = iand(pack_tmp, mask_right(nbits))
7513  full_data(idata) = data_tmp
7514  pack_tmp = ishft(pack_tmp, -nbits)
7515  idata = idata + 1
7516  data_tmp = iand(pack_tmp, mask_right(nbits))
7517  full_data(idata) = data_tmp
7518  pack_tmp = ishft(pack_tmp, -nbits)
7519  idata = idata + 1
7520  data_tmp = iand(pack_tmp, mask_right(nbits))
7521  full_data(idata) = data_tmp
7522  pack_tmp = ishft(pack_tmp, -nbits)
7523  idata = idata + 1
7524  data_tmp = iand(pack_tmp, mask_right(nbits))
7525  full_data(idata) = data_tmp
7526  pack_tmp = ishft(pack_tmp, -nbits)
7527  idata = idata + 1
7528  data_tmp = ishft(pack_tmp, 9)
7529  ipack = ipack + 1
7530  pack_tmp = packed_data(ipack)
7531  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
7532  pack_tmp = ishft(pack_tmp, -9)
7533  idata = idata + 1
7534  data_tmp = iand(pack_tmp, mask_right(nbits))
7535  full_data(idata) = data_tmp
7536  pack_tmp = ishft(pack_tmp, -nbits)
7537  idata = idata + 1
7538  data_tmp = iand(pack_tmp, mask_right(nbits))
7539  full_data(idata) = data_tmp
7540  pack_tmp = ishft(pack_tmp, -nbits)
7541  idata = idata + 1
7542  data_tmp = iand(pack_tmp, mask_right(nbits))
7543  full_data(idata) = data_tmp
7544  pack_tmp = ishft(pack_tmp, -nbits)
7545  idata = idata + 1
7546  data_tmp = iand(pack_tmp, mask_right(nbits))
7547  full_data(idata) = data_tmp
7548  pack_tmp = ishft(pack_tmp, -nbits)
7549  idata = idata + 1
7550  data_tmp = iand(pack_tmp, mask_right(nbits))
7551  full_data(idata) = data_tmp
7552  pack_tmp = ishft(pack_tmp, -nbits)
7553  END DO
7554  IF (ndata_rep < ndata) THEN
7555  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
7556  END IF
7557  END SUBROUTINE bits2ints_11
7558 
7559 ! **************************************************************************************************
7560 !> \brief ...
7561 !> \param Ndata ...
7562 !> \param packed_data ...
7563 !> \param full_data ...
7564 ! **************************************************************************************************
7565  SUBROUTINE ints2bits_12(Ndata, packed_data, full_data)
7566  INTEGER, INTENT(IN) :: Ndata
7567  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
7568  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
7569 
7570  INTEGER, PARAMETER :: Nbits = 12
7571 
7572  INTEGER :: idata, ipack, kdata, Ndata_rep
7573  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
7574 
7575  idata = 0
7576  ipack = 0
7577  ndata_rep = (ndata/64)*64
7578  DO kdata = 1, ndata_rep, 64
7579  pack_tmp = 0
7580  idata = idata + 1
7581  data_tmp = full_data(idata)
7582  data_tmp = ishft(data_tmp, 52)
7583  pack_tmp = ior(pack_tmp, data_tmp)
7584  pack_tmp = ishft(pack_tmp, -12)
7585  idata = idata + 1
7586  data_tmp = full_data(idata)
7587  data_tmp = ishft(data_tmp, 52)
7588  pack_tmp = ior(pack_tmp, data_tmp)
7589  pack_tmp = ishft(pack_tmp, -12)
7590  idata = idata + 1
7591  data_tmp = full_data(idata)
7592  data_tmp = ishft(data_tmp, 52)
7593  pack_tmp = ior(pack_tmp, data_tmp)
7594  pack_tmp = ishft(pack_tmp, -12)
7595  idata = idata + 1
7596  data_tmp = full_data(idata)
7597  data_tmp = ishft(data_tmp, 52)
7598  pack_tmp = ior(pack_tmp, data_tmp)
7599  pack_tmp = ishft(pack_tmp, -12)
7600  idata = idata + 1
7601  data_tmp = full_data(idata)
7602  data_tmp = ishft(data_tmp, 52)
7603  pack_tmp = ior(pack_tmp, data_tmp)
7604  pack_tmp = ishft(pack_tmp, -4)
7605  idata = idata + 1
7606  data_tmp = full_data(idata)
7607  data_tmp = ishft(data_tmp, 52)
7608  data_tmp = iand(data_tmp, mask_left(4))
7609  pack_tmp = ior(pack_tmp, data_tmp)
7610  ipack = ipack + 1
7611  packed_data(ipack) = pack_tmp
7612  data_tmp = full_data(idata)
7613  pack_tmp = ishft(data_tmp, 56)
7614  pack_tmp = ishft(pack_tmp, -12)
7615  idata = idata + 1
7616  data_tmp = full_data(idata)
7617  data_tmp = ishft(data_tmp, 52)
7618  pack_tmp = ior(pack_tmp, data_tmp)
7619  pack_tmp = ishft(pack_tmp, -12)
7620  idata = idata + 1
7621  data_tmp = full_data(idata)
7622  data_tmp = ishft(data_tmp, 52)
7623  pack_tmp = ior(pack_tmp, data_tmp)
7624  pack_tmp = ishft(pack_tmp, -12)
7625  idata = idata + 1
7626  data_tmp = full_data(idata)
7627  data_tmp = ishft(data_tmp, 52)
7628  pack_tmp = ior(pack_tmp, data_tmp)
7629  pack_tmp = ishft(pack_tmp, -12)
7630  idata = idata + 1
7631  data_tmp = full_data(idata)
7632  data_tmp = ishft(data_tmp, 52)
7633  pack_tmp = ior(pack_tmp, data_tmp)
7634  pack_tmp = ishft(pack_tmp, -8)
7635  idata = idata + 1
7636  data_tmp = full_data(idata)
7637  data_tmp = ishft(data_tmp, 52)
7638  data_tmp = iand(data_tmp, mask_left(8))
7639  pack_tmp = ior(pack_tmp, data_tmp)
7640  ipack = ipack + 1
7641  packed_data(ipack) = pack_tmp
7642  data_tmp = full_data(idata)
7643  pack_tmp = ishft(data_tmp, 60)
7644  pack_tmp = ishft(pack_tmp, -12)
7645  idata = idata + 1
7646  data_tmp = full_data(idata)
7647  data_tmp = ishft(data_tmp, 52)
7648  pack_tmp = ior(pack_tmp, data_tmp)
7649  pack_tmp = ishft(pack_tmp, -12)
7650  idata = idata + 1
7651  data_tmp = full_data(idata)
7652  data_tmp = ishft(data_tmp, 52)
7653  pack_tmp = ior(pack_tmp, data_tmp)
7654  pack_tmp = ishft(pack_tmp, -12)
7655  idata = idata + 1
7656  data_tmp = full_data(idata)
7657  data_tmp = ishft(data_tmp, 52)
7658  pack_tmp = ior(pack_tmp, data_tmp)
7659  pack_tmp = ishft(pack_tmp, -12)
7660  idata = idata + 1
7661  data_tmp = full_data(idata)
7662  data_tmp = ishft(data_tmp, 52)
7663  pack_tmp = ior(pack_tmp, data_tmp)
7664  pack_tmp = ishft(pack_tmp, -12)
7665  idata = idata + 1
7666  data_tmp = full_data(idata)
7667  data_tmp = ishft(data_tmp, 52)
7668  pack_tmp = ior(pack_tmp, data_tmp)
7669  pack_tmp = ishft(pack_tmp, 0)
7670  idata = idata + 1
7671  data_tmp = full_data(idata)
7672  data_tmp = ishft(data_tmp, 52)
7673  data_tmp = iand(data_tmp, mask_left(0))
7674  pack_tmp = ior(pack_tmp, data_tmp)
7675  ipack = ipack + 1
7676  packed_data(ipack) = pack_tmp
7677  data_tmp = full_data(idata)
7678  pack_tmp = ishft(data_tmp, 52)
7679  pack_tmp = ishft(pack_tmp, -12)
7680  idata = idata + 1
7681  data_tmp = full_data(idata)
7682  data_tmp = ishft(data_tmp, 52)
7683  pack_tmp = ior(pack_tmp, data_tmp)
7684  pack_tmp = ishft(pack_tmp, -12)
7685  idata = idata + 1
7686  data_tmp = full_data(idata)
7687  data_tmp = ishft(data_tmp, 52)
7688  pack_tmp = ior(pack_tmp, data_tmp)
7689  pack_tmp = ishft(pack_tmp, -12)
7690  idata = idata + 1
7691  data_tmp = full_data(idata)
7692  data_tmp = ishft(data_tmp, 52)
7693  pack_tmp = ior(pack_tmp, data_tmp)
7694  pack_tmp = ishft(pack_tmp, -12)
7695  idata = idata + 1
7696  data_tmp = full_data(idata)
7697  data_tmp = ishft(data_tmp, 52)
7698  pack_tmp = ior(pack_tmp, data_tmp)
7699  pack_tmp = ishft(pack_tmp, -4)
7700  idata = idata + 1
7701  data_tmp = full_data(idata)
7702  data_tmp = ishft(data_tmp, 52)
7703  data_tmp = iand(data_tmp, mask_left(4))
7704  pack_tmp = ior(pack_tmp, data_tmp)
7705  ipack = ipack + 1
7706  packed_data(ipack) = pack_tmp
7707  data_tmp = full_data(idata)
7708  pack_tmp = ishft(data_tmp, 56)
7709  pack_tmp = ishft(pack_tmp, -12)
7710  idata = idata + 1
7711  data_tmp = full_data(idata)
7712  data_tmp = ishft(data_tmp, 52)
7713  pack_tmp = ior(pack_tmp, data_tmp)
7714  pack_tmp = ishft(pack_tmp, -12)
7715  idata = idata + 1
7716  data_tmp = full_data(idata)
7717  data_tmp = ishft(data_tmp, 52)
7718  pack_tmp = ior(pack_tmp, data_tmp)
7719  pack_tmp = ishft(pack_tmp, -12)
7720  idata = idata + 1
7721  data_tmp = full_data(idata)
7722  data_tmp = ishft(data_tmp, 52)
7723  pack_tmp = ior(pack_tmp, data_tmp)
7724  pack_tmp = ishft(pack_tmp, -12)
7725  idata = idata + 1
7726  data_tmp = full_data(idata)
7727  data_tmp = ishft(data_tmp, 52)
7728  pack_tmp = ior(pack_tmp, data_tmp)
7729  pack_tmp = ishft(pack_tmp, -8)
7730  idata = idata + 1
7731  data_tmp = full_data(idata)
7732  data_tmp = ishft(data_tmp, 52)
7733  data_tmp = iand(data_tmp, mask_left(8))
7734  pack_tmp = ior(pack_tmp, data_tmp)
7735  ipack = ipack + 1
7736  packed_data(ipack) = pack_tmp
7737  data_tmp = full_data(idata)
7738  pack_tmp = ishft(data_tmp, 60)
7739  pack_tmp = ishft(pack_tmp, -12)
7740  idata = idata + 1
7741  data_tmp = full_data(idata)
7742  data_tmp = ishft(data_tmp, 52)
7743  pack_tmp = ior(pack_tmp, data_tmp)
7744  pack_tmp = ishft(pack_tmp, -12)
7745  idata = idata + 1
7746  data_tmp = full_data(idata)
7747  data_tmp = ishft(data_tmp, 52)
7748  pack_tmp = ior(pack_tmp, data_tmp)
7749  pack_tmp = ishft(pack_tmp, -12)
7750  idata = idata + 1
7751  data_tmp = full_data(idata)
7752  data_tmp = ishft(data_tmp, 52)
7753  pack_tmp = ior(pack_tmp, data_tmp)
7754  pack_tmp = ishft(pack_tmp, -12)
7755  idata = idata + 1
7756  data_tmp = full_data(idata)
7757  data_tmp = ishft(data_tmp, 52)
7758  pack_tmp = ior(pack_tmp, data_tmp)
7759  pack_tmp = ishft(pack_tmp, -12)
7760  idata = idata + 1
7761  data_tmp = full_data(idata)
7762  data_tmp = ishft(data_tmp, 52)
7763  pack_tmp = ior(pack_tmp, data_tmp)
7764  pack_tmp = ishft(pack_tmp, 0)
7765  idata = idata + 1
7766  data_tmp = full_data(idata)
7767  data_tmp = ishft(data_tmp, 52)
7768  data_tmp = iand(data_tmp, mask_left(0))
7769  pack_tmp = ior(pack_tmp, data_tmp)
7770  ipack = ipack + 1
7771  packed_data(ipack) = pack_tmp
7772  data_tmp = full_data(idata)
7773  pack_tmp = ishft(data_tmp, 52)
7774  pack_tmp = ishft(pack_tmp, -12)
7775  idata = idata + 1
7776  data_tmp = full_data(idata)
7777  data_tmp = ishft(data_tmp, 52)
7778  pack_tmp = ior(pack_tmp, data_tmp)
7779  pack_tmp = ishft(pack_tmp, -12)
7780  idata = idata + 1
7781  data_tmp = full_data(idata)
7782  data_tmp = ishft(data_tmp, 52)
7783  pack_tmp = ior(pack_tmp, data_tmp)
7784  pack_tmp = ishft(pack_tmp, -12)
7785  idata = idata + 1
7786  data_tmp = full_data(idata)
7787  data_tmp = ishft(data_tmp, 52)
7788  pack_tmp = ior(pack_tmp, data_tmp)
7789  pack_tmp = ishft(pack_tmp, -12)
7790  idata = idata + 1
7791  data_tmp = full_data(idata)
7792  data_tmp = ishft(data_tmp, 52)
7793  pack_tmp = ior(pack_tmp, data_tmp)
7794  pack_tmp = ishft(pack_tmp, -4)
7795  idata = idata + 1
7796  data_tmp = full_data(idata)
7797  data_tmp = ishft(data_tmp, 52)
7798  data_tmp = iand(data_tmp, mask_left(4))
7799  pack_tmp = ior(pack_tmp, data_tmp)
7800  ipack = ipack + 1
7801  packed_data(ipack) = pack_tmp
7802  data_tmp = full_data(idata)
7803  pack_tmp = ishft(data_tmp, 56)
7804  pack_tmp = ishft(pack_tmp, -12)
7805  idata = idata + 1
7806  data_tmp = full_data(idata)
7807  data_tmp = ishft(data_tmp, 52)
7808  pack_tmp = ior(pack_tmp, data_tmp)
7809  pack_tmp = ishft(pack_tmp, -12)
7810  idata = idata + 1
7811  data_tmp = full_data(idata)
7812  data_tmp = ishft(data_tmp, 52)
7813  pack_tmp = ior(pack_tmp, data_tmp)
7814  pack_tmp = ishft(pack_tmp, -12)
7815  idata = idata + 1
7816  data_tmp = full_data(idata)
7817  data_tmp = ishft(data_tmp, 52)
7818  pack_tmp = ior(pack_tmp, data_tmp)
7819  pack_tmp = ishft(pack_tmp, -12)
7820  idata = idata + 1
7821  data_tmp = full_data(idata)
7822  data_tmp = ishft(data_tmp, 52)
7823  pack_tmp = ior(pack_tmp, data_tmp)
7824  pack_tmp = ishft(pack_tmp, -8)
7825  idata = idata + 1
7826  data_tmp = full_data(idata)
7827  data_tmp = ishft(data_tmp, 52)
7828  data_tmp = iand(data_tmp, mask_left(8))
7829  pack_tmp = ior(pack_tmp, data_tmp)
7830  ipack = ipack + 1
7831  packed_data(ipack) = pack_tmp
7832  data_tmp = full_data(idata)
7833  pack_tmp = ishft(data_tmp, 60)
7834  pack_tmp = ishft(pack_tmp, -12)
7835  idata = idata + 1
7836  data_tmp = full_data(idata)
7837  data_tmp = ishft(data_tmp, 52)
7838  pack_tmp = ior(pack_tmp, data_tmp)
7839  pack_tmp = ishft(pack_tmp, -12)
7840  idata = idata + 1
7841  data_tmp = full_data(idata)
7842  data_tmp = ishft(data_tmp, 52)
7843  pack_tmp = ior(pack_tmp, data_tmp)
7844  pack_tmp = ishft(pack_tmp, -12)
7845  idata = idata + 1
7846  data_tmp = full_data(idata)
7847  data_tmp = ishft(data_tmp, 52)
7848  pack_tmp = ior(pack_tmp, data_tmp)
7849  pack_tmp = ishft(pack_tmp, -12)
7850  idata = idata + 1
7851  data_tmp = full_data(idata)
7852  data_tmp = ishft(data_tmp, 52)
7853  pack_tmp = ior(pack_tmp, data_tmp)
7854  pack_tmp = ishft(pack_tmp, -12)
7855  idata = idata + 1
7856  data_tmp = full_data(idata)
7857  data_tmp = ishft(data_tmp, 52)
7858  pack_tmp = ior(pack_tmp, data_tmp)
7859  pack_tmp = ishft(pack_tmp, 0)
7860  idata = idata + 1
7861  data_tmp = full_data(idata)
7862  data_tmp = ishft(data_tmp, 52)
7863  data_tmp = iand(data_tmp, mask_left(0))
7864  pack_tmp = ior(pack_tmp, data_tmp)
7865  ipack = ipack + 1
7866  packed_data(ipack) = pack_tmp
7867  data_tmp = full_data(idata)
7868  pack_tmp = ishft(data_tmp, 52)
7869  pack_tmp = ishft(pack_tmp, -12)
7870  idata = idata + 1
7871  data_tmp = full_data(idata)
7872  data_tmp = ishft(data_tmp, 52)
7873  pack_tmp = ior(pack_tmp, data_tmp)
7874  pack_tmp = ishft(pack_tmp, -12)
7875  idata = idata + 1
7876  data_tmp = full_data(idata)
7877  data_tmp = ishft(data_tmp, 52)
7878  pack_tmp = ior(pack_tmp, data_tmp)
7879  pack_tmp = ishft(pack_tmp, -12)
7880  idata = idata + 1
7881  data_tmp = full_data(idata)
7882  data_tmp = ishft(data_tmp, 52)
7883  pack_tmp = ior(pack_tmp, data_tmp)
7884  pack_tmp = ishft(pack_tmp, -12)
7885  idata = idata + 1
7886  data_tmp = full_data(idata)
7887  data_tmp = ishft(data_tmp, 52)
7888  pack_tmp = ior(pack_tmp, data_tmp)
7889  pack_tmp = ishft(pack_tmp, -4)
7890  idata = idata + 1
7891  data_tmp = full_data(idata)
7892  data_tmp = ishft(data_tmp, 52)
7893  data_tmp = iand(data_tmp, mask_left(4))
7894  pack_tmp = ior(pack_tmp, data_tmp)
7895  ipack = ipack + 1
7896  packed_data(ipack) = pack_tmp
7897  data_tmp = full_data(idata)
7898  pack_tmp = ishft(data_tmp, 56)
7899  pack_tmp = ishft(pack_tmp, -12)
7900  idata = idata + 1
7901  data_tmp = full_data(idata)
7902  data_tmp = ishft(data_tmp, 52)
7903  pack_tmp = ior(pack_tmp, data_tmp)
7904  pack_tmp = ishft(pack_tmp, -12)
7905  idata = idata + 1
7906  data_tmp = full_data(idata)
7907  data_tmp = ishft(data_tmp, 52)
7908  pack_tmp = ior(pack_tmp, data_tmp)
7909  pack_tmp = ishft(pack_tmp, -12)
7910  idata = idata + 1
7911  data_tmp = full_data(idata)
7912  data_tmp = ishft(data_tmp, 52)
7913  pack_tmp = ior(pack_tmp, data_tmp)
7914  pack_tmp = ishft(pack_tmp, -12)
7915  idata = idata + 1
7916  data_tmp = full_data(idata)
7917  data_tmp = ishft(data_tmp, 52)
7918  pack_tmp = ior(pack_tmp, data_tmp)
7919  pack_tmp = ishft(pack_tmp, -8)
7920  idata = idata + 1
7921  data_tmp = full_data(idata)
7922  data_tmp = ishft(data_tmp, 52)
7923  data_tmp = iand(data_tmp, mask_left(8))
7924  pack_tmp = ior(pack_tmp, data_tmp)
7925  ipack = ipack + 1
7926  packed_data(ipack) = pack_tmp
7927  data_tmp = full_data(idata)
7928  pack_tmp = ishft(data_tmp, 60)
7929  pack_tmp = ishft(pack_tmp, -12)
7930  idata = idata + 1
7931  data_tmp = full_data(idata)
7932  data_tmp = ishft(data_tmp, 52)
7933  pack_tmp = ior(pack_tmp, data_tmp)
7934  pack_tmp = ishft(pack_tmp, -12)
7935  idata = idata + 1
7936  data_tmp = full_data(idata)
7937  data_tmp = ishft(data_tmp, 52)
7938  pack_tmp = ior(pack_tmp, data_tmp)
7939  pack_tmp = ishft(pack_tmp, -12)
7940  idata = idata + 1
7941  data_tmp = full_data(idata)
7942  data_tmp = ishft(data_tmp, 52)
7943  pack_tmp = ior(pack_tmp, data_tmp)
7944  pack_tmp = ishft(pack_tmp, -12)
7945  idata = idata + 1
7946  data_tmp = full_data(idata)
7947  data_tmp = ishft(data_tmp, 52)
7948  pack_tmp = ior(pack_tmp, data_tmp)
7949  pack_tmp = ishft(pack_tmp, -12)
7950  idata = idata + 1
7951  data_tmp = full_data(idata)
7952  data_tmp = ishft(data_tmp, 52)
7953  pack_tmp = ior(pack_tmp, data_tmp)
7954  pack_tmp = ishft(pack_tmp, 0)
7955  pack_tmp = ishft(pack_tmp, 0)
7956  ipack = ipack + 1
7957  packed_data(ipack) = pack_tmp
7958  END DO
7959  IF (ndata_rep < ndata) THEN
7960  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
7961  END IF
7962  END SUBROUTINE ints2bits_12
7963 
7964 ! **************************************************************************************************
7965 !> \brief ...
7966 !> \param Ndata ...
7967 !> \param packed_data ...
7968 !> \param full_data ...
7969 ! **************************************************************************************************
7970  SUBROUTINE bits2ints_12(Ndata, packed_data, full_data)
7971  INTEGER, INTENT(IN) :: Ndata
7972  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
7973  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
7974 
7975  INTEGER, PARAMETER :: Nbits = 12
7976 
7977  INTEGER :: idata, ipack, kdata, Ndata_rep
7978  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
7979 
7980  ipack = 0
7981  idata = 0
7982  pack_tmp = 0
7983  ndata_rep = (ndata/64)*64
7984  DO kdata = 1, ndata_rep, 64
7985  idata = idata + 1
7986  data_tmp = ishft(pack_tmp, 12)
7987  ipack = ipack + 1
7988  pack_tmp = packed_data(ipack)
7989  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
7990  pack_tmp = ishft(pack_tmp, -12)
7991  idata = idata + 1
7992  data_tmp = iand(pack_tmp, mask_right(nbits))
7993  full_data(idata) = data_tmp
7994  pack_tmp = ishft(pack_tmp, -nbits)
7995  idata = idata + 1
7996  data_tmp = iand(pack_tmp, mask_right(nbits))
7997  full_data(idata) = data_tmp
7998  pack_tmp = ishft(pack_tmp, -nbits)
7999  idata = idata + 1
8000  data_tmp = iand(pack_tmp, mask_right(nbits))
8001  full_data(idata) = data_tmp
8002  pack_tmp = ishft(pack_tmp, -nbits)
8003  idata = idata + 1
8004  data_tmp = iand(pack_tmp, mask_right(nbits))
8005  full_data(idata) = data_tmp
8006  pack_tmp = ishft(pack_tmp, -nbits)
8007  idata = idata + 1
8008  data_tmp = ishft(pack_tmp, 8)
8009  ipack = ipack + 1
8010  pack_tmp = packed_data(ipack)
8011  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
8012  pack_tmp = ishft(pack_tmp, -8)
8013  idata = idata + 1
8014  data_tmp = iand(pack_tmp, mask_right(nbits))
8015  full_data(idata) = data_tmp
8016  pack_tmp = ishft(pack_tmp, -nbits)
8017  idata = idata + 1
8018  data_tmp = iand(pack_tmp, mask_right(nbits))
8019  full_data(idata) = data_tmp
8020  pack_tmp = ishft(pack_tmp, -nbits)
8021  idata = idata + 1
8022  data_tmp = iand(pack_tmp, mask_right(nbits))
8023  full_data(idata) = data_tmp
8024  pack_tmp = ishft(pack_tmp, -nbits)
8025  idata = idata + 1
8026  data_tmp = iand(pack_tmp, mask_right(nbits))
8027  full_data(idata) = data_tmp
8028  pack_tmp = ishft(pack_tmp, -nbits)
8029  idata = idata + 1
8030  data_tmp = ishft(pack_tmp, 4)
8031  ipack = ipack + 1
8032  pack_tmp = packed_data(ipack)
8033  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
8034  pack_tmp = ishft(pack_tmp, -4)
8035  idata = idata + 1
8036  data_tmp = iand(pack_tmp, mask_right(nbits))
8037  full_data(idata) = data_tmp
8038  pack_tmp = ishft(pack_tmp, -nbits)
8039  idata = idata + 1
8040  data_tmp = iand(pack_tmp, mask_right(nbits))
8041  full_data(idata) = data_tmp
8042  pack_tmp = ishft(pack_tmp, -nbits)
8043  idata = idata + 1
8044  data_tmp = iand(pack_tmp, mask_right(nbits))
8045  full_data(idata) = data_tmp
8046  pack_tmp = ishft(pack_tmp, -nbits)
8047  idata = idata + 1
8048  data_tmp = iand(pack_tmp, mask_right(nbits))
8049  full_data(idata) = data_tmp
8050  pack_tmp = ishft(pack_tmp, -nbits)
8051  idata = idata + 1
8052  data_tmp = iand(pack_tmp, mask_right(nbits))
8053  full_data(idata) = data_tmp
8054  pack_tmp = ishft(pack_tmp, -nbits)
8055  idata = idata + 1
8056  data_tmp = ishft(pack_tmp, 12)
8057  ipack = ipack + 1
8058  pack_tmp = packed_data(ipack)
8059  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
8060  pack_tmp = ishft(pack_tmp, -12)
8061  idata = idata + 1
8062  data_tmp = iand(pack_tmp, mask_right(nbits))
8063  full_data(idata) = data_tmp
8064  pack_tmp = ishft(pack_tmp, -nbits)
8065  idata = idata + 1
8066  data_tmp = iand(pack_tmp, mask_right(nbits))
8067  full_data(idata) = data_tmp
8068  pack_tmp = ishft(pack_tmp, -nbits)
8069  idata = idata + 1
8070  data_tmp = iand(pack_tmp, mask_right(nbits))
8071  full_data(idata) = data_tmp
8072  pack_tmp = ishft(pack_tmp, -nbits)
8073  idata = idata + 1
8074  data_tmp = iand(pack_tmp, mask_right(nbits))
8075  full_data(idata) = data_tmp
8076  pack_tmp = ishft(pack_tmp, -nbits)
8077  idata = idata + 1
8078  data_tmp = ishft(pack_tmp, 8)
8079  ipack = ipack + 1
8080  pack_tmp = packed_data(ipack)
8081  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
8082  pack_tmp = ishft(pack_tmp, -8)
8083  idata = idata + 1
8084  data_tmp = iand(pack_tmp, mask_right(nbits))
8085  full_data(idata) = data_tmp
8086  pack_tmp = ishft(pack_tmp, -nbits)
8087  idata = idata + 1
8088  data_tmp = iand(pack_tmp, mask_right(nbits))
8089  full_data(idata) = data_tmp
8090  pack_tmp = ishft(pack_tmp, -nbits)
8091  idata = idata + 1
8092  data_tmp = iand(pack_tmp, mask_right(nbits))
8093  full_data(idata) = data_tmp
8094  pack_tmp = ishft(pack_tmp, -nbits)
8095  idata = idata + 1
8096  data_tmp = iand(pack_tmp, mask_right(nbits))
8097  full_data(idata) = data_tmp
8098  pack_tmp = ishft(pack_tmp, -nbits)
8099  idata = idata + 1
8100  data_tmp = ishft(pack_tmp, 4)
8101  ipack = ipack + 1
8102  pack_tmp = packed_data(ipack)
8103  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
8104  pack_tmp = ishft(pack_tmp, -4)
8105  idata = idata + 1
8106  data_tmp = iand(pack_tmp, mask_right(nbits))
8107  full_data(idata) = data_tmp
8108  pack_tmp = ishft(pack_tmp, -nbits)
8109  idata = idata + 1
8110  data_tmp = iand(pack_tmp, mask_right(nbits))
8111  full_data(idata) = data_tmp
8112  pack_tmp = ishft(pack_tmp, -nbits)
8113  idata = idata + 1
8114  data_tmp = iand(pack_tmp, mask_right(nbits))
8115  full_data(idata) = data_tmp
8116  pack_tmp = ishft(pack_tmp, -nbits)
8117  idata = idata + 1
8118  data_tmp = iand(pack_tmp, mask_right(nbits))
8119  full_data(idata) = data_tmp
8120  pack_tmp = ishft(pack_tmp, -nbits)
8121  idata = idata + 1
8122  data_tmp = iand(pack_tmp, mask_right(nbits))
8123  full_data(idata) = data_tmp
8124  pack_tmp = ishft(pack_tmp, -nbits)
8125  idata = idata + 1
8126  data_tmp = ishft(pack_tmp, 12)
8127  ipack = ipack + 1
8128  pack_tmp = packed_data(ipack)
8129  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
8130  pack_tmp = ishft(pack_tmp, -12)
8131  idata = idata + 1
8132  data_tmp = iand(pack_tmp, mask_right(nbits))
8133  full_data(idata) = data_tmp
8134  pack_tmp = ishft(pack_tmp, -nbits)
8135  idata = idata + 1
8136  data_tmp = iand(pack_tmp, mask_right(nbits))
8137  full_data(idata) = data_tmp
8138  pack_tmp = ishft(pack_tmp, -nbits)
8139  idata = idata + 1
8140  data_tmp = iand(pack_tmp, mask_right(nbits))
8141  full_data(idata) = data_tmp
8142  pack_tmp = ishft(pack_tmp, -nbits)
8143  idata = idata + 1
8144  data_tmp = iand(pack_tmp, mask_right(nbits))
8145  full_data(idata) = data_tmp
8146  pack_tmp = ishft(pack_tmp, -nbits)
8147  idata = idata + 1
8148  data_tmp = ishft(pack_tmp, 8)
8149  ipack = ipack + 1
8150  pack_tmp = packed_data(ipack)
8151  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
8152  pack_tmp = ishft(pack_tmp, -8)
8153  idata = idata + 1
8154  data_tmp = iand(pack_tmp, mask_right(nbits))
8155  full_data(idata) = data_tmp
8156  pack_tmp = ishft(pack_tmp, -nbits)
8157  idata = idata + 1
8158  data_tmp = iand(pack_tmp, mask_right(nbits))
8159  full_data(idata) = data_tmp
8160  pack_tmp = ishft(pack_tmp, -nbits)
8161  idata = idata + 1
8162  data_tmp = iand(pack_tmp, mask_right(nbits))
8163  full_data(idata) = data_tmp
8164  pack_tmp = ishft(pack_tmp, -nbits)
8165  idata = idata + 1
8166  data_tmp = iand(pack_tmp, mask_right(nbits))
8167  full_data(idata) = data_tmp
8168  pack_tmp = ishft(pack_tmp, -nbits)
8169  idata = idata + 1
8170  data_tmp = ishft(pack_tmp, 4)
8171  ipack = ipack + 1
8172  pack_tmp = packed_data(ipack)
8173  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
8174  pack_tmp = ishft(pack_tmp, -4)
8175  idata = idata + 1
8176  data_tmp = iand(pack_tmp, mask_right(nbits))
8177  full_data(idata) = data_tmp
8178  pack_tmp = ishft(pack_tmp, -nbits)
8179  idata = idata + 1
8180  data_tmp = iand(pack_tmp, mask_right(nbits))
8181  full_data(idata) = data_tmp
8182  pack_tmp = ishft(pack_tmp, -nbits)
8183  idata = idata + 1
8184  data_tmp = iand(pack_tmp, mask_right(nbits))
8185  full_data(idata) = data_tmp
8186  pack_tmp = ishft(pack_tmp, -nbits)
8187  idata = idata + 1
8188  data_tmp = iand(pack_tmp, mask_right(nbits))
8189  full_data(idata) = data_tmp
8190  pack_tmp = ishft(pack_tmp, -nbits)
8191  idata = idata + 1
8192  data_tmp = iand(pack_tmp, mask_right(nbits))
8193  full_data(idata) = data_tmp
8194  pack_tmp = ishft(pack_tmp, -nbits)
8195  idata = idata + 1
8196  data_tmp = ishft(pack_tmp, 12)
8197  ipack = ipack + 1
8198  pack_tmp = packed_data(ipack)
8199  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
8200  pack_tmp = ishft(pack_tmp, -12)
8201  idata = idata + 1
8202  data_tmp = iand(pack_tmp, mask_right(nbits))
8203  full_data(idata) = data_tmp
8204  pack_tmp = ishft(pack_tmp, -nbits)
8205  idata = idata + 1
8206  data_tmp = iand(pack_tmp, mask_right(nbits))
8207  full_data(idata) = data_tmp
8208  pack_tmp = ishft(pack_tmp, -nbits)
8209  idata = idata + 1
8210  data_tmp = iand(pack_tmp, mask_right(nbits))
8211  full_data(idata) = data_tmp
8212  pack_tmp = ishft(pack_tmp, -nbits)
8213  idata = idata + 1
8214  data_tmp = iand(pack_tmp, mask_right(nbits))
8215  full_data(idata) = data_tmp
8216  pack_tmp = ishft(pack_tmp, -nbits)
8217  idata = idata + 1
8218  data_tmp = ishft(pack_tmp, 8)
8219  ipack = ipack + 1
8220  pack_tmp = packed_data(ipack)
8221  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
8222  pack_tmp = ishft(pack_tmp, -8)
8223  idata = idata + 1
8224  data_tmp = iand(pack_tmp, mask_right(nbits))
8225  full_data(idata) = data_tmp
8226  pack_tmp = ishft(pack_tmp, -nbits)
8227  idata = idata + 1
8228  data_tmp = iand(pack_tmp, mask_right(nbits))
8229  full_data(idata) = data_tmp
8230  pack_tmp = ishft(pack_tmp, -nbits)
8231  idata = idata + 1
8232  data_tmp = iand(pack_tmp, mask_right(nbits))
8233  full_data(idata) = data_tmp
8234  pack_tmp = ishft(pack_tmp, -nbits)
8235  idata = idata + 1
8236  data_tmp = iand(pack_tmp, mask_right(nbits))
8237  full_data(idata) = data_tmp
8238  pack_tmp = ishft(pack_tmp, -nbits)
8239  idata = idata + 1
8240  data_tmp = ishft(pack_tmp, 4)
8241  ipack = ipack + 1
8242  pack_tmp = packed_data(ipack)
8243  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
8244  pack_tmp = ishft(pack_tmp, -4)
8245  idata = idata + 1
8246  data_tmp = iand(pack_tmp, mask_right(nbits))
8247  full_data(idata) = data_tmp
8248  pack_tmp = ishft(pack_tmp, -nbits)
8249  idata = idata + 1
8250  data_tmp = iand(pack_tmp, mask_right(nbits))
8251  full_data(idata) = data_tmp
8252  pack_tmp = ishft(pack_tmp, -nbits)
8253  idata = idata + 1
8254  data_tmp = iand(pack_tmp, mask_right(nbits))
8255  full_data(idata) = data_tmp
8256  pack_tmp = ishft(pack_tmp, -nbits)
8257  idata = idata + 1
8258  data_tmp = iand(pack_tmp, mask_right(nbits))
8259  full_data(idata) = data_tmp
8260  pack_tmp = ishft(pack_tmp, -nbits)
8261  idata = idata + 1
8262  data_tmp = iand(pack_tmp, mask_right(nbits))
8263  full_data(idata) = data_tmp
8264  pack_tmp = ishft(pack_tmp, -nbits)
8265  END DO
8266  IF (ndata_rep < ndata) THEN
8267  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
8268  END IF
8269  END SUBROUTINE bits2ints_12
8270 
8271 ! **************************************************************************************************
8272 !> \brief ...
8273 !> \param Ndata ...
8274 !> \param packed_data ...
8275 !> \param full_data ...
8276 ! **************************************************************************************************
8277  SUBROUTINE ints2bits_13(Ndata, packed_data, full_data)
8278  INTEGER, INTENT(IN) :: Ndata
8279  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
8280  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
8281 
8282  INTEGER, PARAMETER :: Nbits = 13
8283 
8284  INTEGER :: idata, ipack, kdata, Ndata_rep
8285  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
8286 
8287  idata = 0
8288  ipack = 0
8289  ndata_rep = (ndata/64)*64
8290  DO kdata = 1, ndata_rep, 64
8291  pack_tmp = 0
8292  idata = idata + 1
8293  data_tmp = full_data(idata)
8294  data_tmp = ishft(data_tmp, 51)
8295  pack_tmp = ior(pack_tmp, data_tmp)
8296  pack_tmp = ishft(pack_tmp, -13)
8297  idata = idata + 1
8298  data_tmp = full_data(idata)
8299  data_tmp = ishft(data_tmp, 51)
8300  pack_tmp = ior(pack_tmp, data_tmp)
8301  pack_tmp = ishft(pack_tmp, -13)
8302  idata = idata + 1
8303  data_tmp = full_data(idata)
8304  data_tmp = ishft(data_tmp, 51)
8305  pack_tmp = ior(pack_tmp, data_tmp)
8306  pack_tmp = ishft(pack_tmp, -13)
8307  idata = idata + 1
8308  data_tmp = full_data(idata)
8309  data_tmp = ishft(data_tmp, 51)
8310  pack_tmp = ior(pack_tmp, data_tmp)
8311  pack_tmp = ishft(pack_tmp, -12)
8312  idata = idata + 1
8313  data_tmp = full_data(idata)
8314  data_tmp = ishft(data_tmp, 51)
8315  data_tmp = iand(data_tmp, mask_left(12))
8316  pack_tmp = ior(pack_tmp, data_tmp)
8317  ipack = ipack + 1
8318  packed_data(ipack) = pack_tmp
8319  data_tmp = full_data(idata)
8320  pack_tmp = ishft(data_tmp, 63)
8321  pack_tmp = ishft(pack_tmp, -13)
8322  idata = idata + 1
8323  data_tmp = full_data(idata)
8324  data_tmp = ishft(data_tmp, 51)
8325  pack_tmp = ior(pack_tmp, data_tmp)
8326  pack_tmp = ishft(pack_tmp, -13)
8327  idata = idata + 1
8328  data_tmp = full_data(idata)
8329  data_tmp = ishft(data_tmp, 51)
8330  pack_tmp = ior(pack_tmp, data_tmp)
8331  pack_tmp = ishft(pack_tmp, -13)
8332  idata = idata + 1
8333  data_tmp = full_data(idata)
8334  data_tmp = ishft(data_tmp, 51)
8335  pack_tmp = ior(pack_tmp, data_tmp)
8336  pack_tmp = ishft(pack_tmp, -13)
8337  idata = idata + 1
8338  data_tmp = full_data(idata)
8339  data_tmp = ishft(data_tmp, 51)
8340  pack_tmp = ior(pack_tmp, data_tmp)
8341  pack_tmp = ishft(pack_tmp, -11)
8342  idata = idata + 1
8343  data_tmp = full_data(idata)
8344  data_tmp = ishft(data_tmp, 51)
8345  data_tmp = iand(data_tmp, mask_left(11))
8346  pack_tmp = ior(pack_tmp, data_tmp)
8347  ipack = ipack + 1
8348  packed_data(ipack) = pack_tmp
8349  data_tmp = full_data(idata)
8350  pack_tmp = ishft(data_tmp, 62)
8351  pack_tmp = ishft(pack_tmp, -13)
8352  idata = idata + 1
8353  data_tmp = full_data(idata)
8354  data_tmp = ishft(data_tmp, 51)
8355  pack_tmp = ior(pack_tmp, data_tmp)
8356  pack_tmp = ishft(pack_tmp, -13)
8357  idata = idata + 1
8358  data_tmp = full_data(idata)
8359  data_tmp = ishft(data_tmp, 51)
8360  pack_tmp = ior(pack_tmp, data_tmp)
8361  pack_tmp = ishft(pack_tmp, -13)
8362  idata = idata + 1
8363  data_tmp = full_data(idata)
8364  data_tmp = ishft(data_tmp, 51)
8365  pack_tmp = ior(pack_tmp, data_tmp)
8366  pack_tmp = ishft(pack_tmp, -13)
8367  idata = idata + 1
8368  data_tmp = full_data(idata)
8369  data_tmp = ishft(data_tmp, 51)
8370  pack_tmp = ior(pack_tmp, data_tmp)
8371  pack_tmp = ishft(pack_tmp, -10)
8372  idata = idata + 1
8373  data_tmp = full_data(idata)
8374  data_tmp = ishft(data_tmp, 51)
8375  data_tmp = iand(data_tmp, mask_left(10))
8376  pack_tmp = ior(pack_tmp, data_tmp)
8377  ipack = ipack + 1
8378  packed_data(ipack) = pack_tmp
8379  data_tmp = full_data(idata)
8380  pack_tmp = ishft(data_tmp, 61)
8381  pack_tmp = ishft(pack_tmp, -13)
8382  idata = idata + 1
8383  data_tmp = full_data(idata)
8384  data_tmp = ishft(data_tmp, 51)
8385  pack_tmp = ior(pack_tmp, data_tmp)
8386  pack_tmp = ishft(pack_tmp, -13)
8387  idata = idata + 1
8388  data_tmp = full_data(idata)
8389  data_tmp = ishft(data_tmp, 51)
8390  pack_tmp = ior(pack_tmp, data_tmp)
8391  pack_tmp = ishft(pack_tmp, -13)
8392  idata = idata + 1
8393  data_tmp = full_data(idata)
8394  data_tmp = ishft(data_tmp, 51)
8395  pack_tmp = ior(pack_tmp, data_tmp)
8396  pack_tmp = ishft(pack_tmp, -13)
8397  idata = idata + 1
8398  data_tmp = full_data(idata)
8399  data_tmp = ishft(data_tmp, 51)
8400  pack_tmp = ior(pack_tmp, data_tmp)
8401  pack_tmp = ishft(pack_tmp, -9)
8402  idata = idata + 1
8403  data_tmp = full_data(idata)
8404  data_tmp = ishft(data_tmp, 51)
8405  data_tmp = iand(data_tmp, mask_left(9))
8406  pack_tmp = ior(pack_tmp, data_tmp)
8407  ipack = ipack + 1
8408  packed_data(ipack) = pack_tmp
8409  data_tmp = full_data(idata)
8410  pack_tmp = ishft(data_tmp, 60)
8411  pack_tmp = ishft(pack_tmp, -13)
8412  idata = idata + 1
8413  data_tmp = full_data(idata)
8414  data_tmp = ishft(data_tmp, 51)
8415  pack_tmp = ior(pack_tmp, data_tmp)
8416  pack_tmp = ishft(pack_tmp, -13)
8417  idata = idata + 1
8418  data_tmp = full_data(idata)
8419  data_tmp = ishft(data_tmp, 51)
8420  pack_tmp = ior(pack_tmp, data_tmp)
8421  pack_tmp = ishft(pack_tmp, -13)
8422  idata = idata + 1
8423  data_tmp = full_data(idata)
8424  data_tmp = ishft(data_tmp, 51)
8425  pack_tmp = ior(pack_tmp, data_tmp)
8426  pack_tmp = ishft(pack_tmp, -13)
8427  idata = idata + 1
8428  data_tmp = full_data(idata)
8429  data_tmp = ishft(data_tmp, 51)
8430  pack_tmp = ior(pack_tmp, data_tmp)
8431  pack_tmp = ishft(pack_tmp, -8)
8432  idata = idata + 1
8433  data_tmp = full_data(idata)
8434  data_tmp = ishft(data_tmp, 51)
8435  data_tmp = iand(data_tmp, mask_left(8))
8436  pack_tmp = ior(pack_tmp, data_tmp)
8437  ipack = ipack + 1
8438  packed_data(ipack) = pack_tmp
8439  data_tmp = full_data(idata)
8440  pack_tmp = ishft(data_tmp, 59)
8441  pack_tmp = ishft(pack_tmp, -13)
8442  idata = idata + 1
8443  data_tmp = full_data(idata)
8444  data_tmp = ishft(data_tmp, 51)
8445  pack_tmp = ior(pack_tmp, data_tmp)
8446  pack_tmp = ishft(pack_tmp, -13)
8447  idata = idata + 1
8448  data_tmp = full_data(idata)
8449  data_tmp = ishft(data_tmp, 51)
8450  pack_tmp = ior(pack_tmp, data_tmp)
8451  pack_tmp = ishft(pack_tmp, -13)
8452  idata = idata + 1
8453  data_tmp = full_data(idata)
8454  data_tmp = ishft(data_tmp, 51)
8455  pack_tmp = ior(pack_tmp, data_tmp)
8456  pack_tmp = ishft(pack_tmp, -13)
8457  idata = idata + 1
8458  data_tmp = full_data(idata)
8459  data_tmp = ishft(data_tmp, 51)
8460  pack_tmp = ior(pack_tmp, data_tmp)
8461  pack_tmp = ishft(pack_tmp, -7)
8462  idata = idata + 1
8463  data_tmp = full_data(idata)
8464  data_tmp = ishft(data_tmp, 51)
8465  data_tmp = iand(data_tmp, mask_left(7))
8466  pack_tmp = ior(pack_tmp, data_tmp)
8467  ipack = ipack + 1
8468  packed_data(ipack) = pack_tmp
8469  data_tmp = full_data(idata)
8470  pack_tmp = ishft(data_tmp, 58)
8471  pack_tmp = ishft(pack_tmp, -13)
8472  idata = idata + 1
8473  data_tmp = full_data(idata)
8474  data_tmp = ishft(data_tmp, 51)
8475  pack_tmp = ior(pack_tmp, data_tmp)
8476  pack_tmp = ishft(pack_tmp, -13)
8477  idata = idata + 1
8478  data_tmp = full_data(idata)
8479  data_tmp = ishft(data_tmp, 51)
8480  pack_tmp = ior(pack_tmp, data_tmp)
8481  pack_tmp = ishft(pack_tmp, -13)
8482  idata = idata + 1
8483  data_tmp = full_data(idata)
8484  data_tmp = ishft(data_tmp, 51)
8485  pack_tmp = ior(pack_tmp, data_tmp)
8486  pack_tmp = ishft(pack_tmp, -13)
8487  idata = idata + 1
8488  data_tmp = full_data(idata)
8489  data_tmp = ishft(data_tmp, 51)
8490  pack_tmp = ior(pack_tmp, data_tmp)
8491  pack_tmp = ishft(pack_tmp, -6)
8492  idata = idata + 1
8493  data_tmp = full_data(idata)
8494  data_tmp = ishft(data_tmp, 51)
8495  data_tmp = iand(data_tmp, mask_left(6))
8496  pack_tmp = ior(pack_tmp, data_tmp)
8497  ipack = ipack + 1
8498  packed_data(ipack) = pack_tmp
8499  data_tmp = full_data(idata)
8500  pack_tmp = ishft(data_tmp, 57)
8501  pack_tmp = ishft(pack_tmp, -13)
8502  idata = idata + 1
8503  data_tmp = full_data(idata)
8504  data_tmp = ishft(data_tmp, 51)
8505  pack_tmp = ior(pack_tmp, data_tmp)
8506  pack_tmp = ishft(pack_tmp, -13)
8507  idata = idata + 1
8508  data_tmp = full_data(idata)
8509  data_tmp = ishft(data_tmp, 51)
8510  pack_tmp = ior(pack_tmp, data_tmp)
8511  pack_tmp = ishft(pack_tmp, -13)
8512  idata = idata + 1
8513  data_tmp = full_data(idata)
8514  data_tmp = ishft(data_tmp, 51)
8515  pack_tmp = ior(pack_tmp, data_tmp)
8516  pack_tmp = ishft(pack_tmp, -13)
8517  idata = idata + 1
8518  data_tmp = full_data(idata)
8519  data_tmp = ishft(data_tmp, 51)
8520  pack_tmp = ior(pack_tmp, data_tmp)
8521  pack_tmp = ishft(pack_tmp, -5)
8522  idata = idata + 1
8523  data_tmp = full_data(idata)
8524  data_tmp = ishft(data_tmp, 51)
8525  data_tmp = iand(data_tmp, mask_left(5))
8526  pack_tmp = ior(pack_tmp, data_tmp)
8527  ipack = ipack + 1
8528  packed_data(ipack) = pack_tmp
8529  data_tmp = full_data(idata)
8530  pack_tmp = ishft(data_tmp, 56)
8531  pack_tmp = ishft(pack_tmp, -13)
8532  idata = idata + 1
8533  data_tmp = full_data(idata)
8534  data_tmp = ishft(data_tmp, 51)
8535  pack_tmp = ior(pack_tmp, data_tmp)
8536  pack_tmp = ishft(pack_tmp, -13)
8537  idata = idata + 1
8538  data_tmp = full_data(idata)
8539  data_tmp = ishft(data_tmp, 51)
8540  pack_tmp = ior(pack_tmp, data_tmp)
8541  pack_tmp = ishft(pack_tmp, -13)
8542  idata = idata + 1
8543  data_tmp = full_data(idata)
8544  data_tmp = ishft(data_tmp, 51)
8545  pack_tmp = ior(pack_tmp, data_tmp)
8546  pack_tmp = ishft(pack_tmp, -13)
8547  idata = idata + 1
8548  data_tmp = full_data(idata)
8549  data_tmp = ishft(data_tmp, 51)
8550  pack_tmp = ior(pack_tmp, data_tmp)
8551  pack_tmp = ishft(pack_tmp, -4)
8552  idata = idata + 1
8553  data_tmp = full_data(idata)
8554  data_tmp = ishft(data_tmp, 51)
8555  data_tmp = iand(data_tmp, mask_left(4))
8556  pack_tmp = ior(pack_tmp, data_tmp)
8557  ipack = ipack + 1
8558  packed_data(ipack) = pack_tmp
8559  data_tmp = full_data(idata)
8560  pack_tmp = ishft(data_tmp, 55)
8561  pack_tmp = ishft(pack_tmp, -13)
8562  idata = idata + 1
8563  data_tmp = full_data(idata)
8564  data_tmp = ishft(data_tmp, 51)
8565  pack_tmp = ior(pack_tmp, data_tmp)
8566  pack_tmp = ishft(pack_tmp, -13)
8567  idata = idata + 1
8568  data_tmp = full_data(idata)
8569  data_tmp = ishft(data_tmp, 51)
8570  pack_tmp = ior(pack_tmp, data_tmp)
8571  pack_tmp = ishft(pack_tmp, -13)
8572  idata = idata + 1
8573  data_tmp = full_data(idata)
8574  data_tmp = ishft(data_tmp, 51)
8575  pack_tmp = ior(pack_tmp, data_tmp)
8576  pack_tmp = ishft(pack_tmp, -13)
8577  idata = idata + 1
8578  data_tmp = full_data(idata)
8579  data_tmp = ishft(data_tmp, 51)
8580  pack_tmp = ior(pack_tmp, data_tmp)
8581  pack_tmp = ishft(pack_tmp, -3)
8582  idata = idata + 1
8583  data_tmp = full_data(idata)
8584  data_tmp = ishft(data_tmp, 51)
8585  data_tmp = iand(data_tmp, mask_left(3))
8586  pack_tmp = ior(pack_tmp, data_tmp)
8587  ipack = ipack + 1
8588  packed_data(ipack) = pack_tmp
8589  data_tmp = full_data(idata)
8590  pack_tmp = ishft(data_tmp, 54)
8591  pack_tmp = ishft(pack_tmp, -13)
8592  idata = idata + 1
8593  data_tmp = full_data(idata)
8594  data_tmp = ishft(data_tmp, 51)
8595  pack_tmp = ior(pack_tmp, data_tmp)
8596  pack_tmp = ishft(pack_tmp, -13)
8597  idata = idata + 1
8598  data_tmp = full_data(idata)
8599  data_tmp = ishft(data_tmp, 51)
8600  pack_tmp = ior(pack_tmp, data_tmp)
8601  pack_tmp = ishft(pack_tmp, -13)
8602  idata = idata + 1
8603  data_tmp = full_data(idata)
8604  data_tmp = ishft(data_tmp, 51)
8605  pack_tmp = ior(pack_tmp, data_tmp)
8606  pack_tmp = ishft(pack_tmp, -13)
8607  idata = idata + 1
8608  data_tmp = full_data(idata)
8609  data_tmp = ishft(data_tmp, 51)
8610  pack_tmp = ior(pack_tmp, data_tmp)
8611  pack_tmp = ishft(pack_tmp, -2)
8612  idata = idata + 1
8613  data_tmp = full_data(idata)
8614  data_tmp = ishft(data_tmp, 51)
8615  data_tmp = iand(data_tmp, mask_left(2))
8616  pack_tmp = ior(pack_tmp, data_tmp)
8617  ipack = ipack + 1
8618  packed_data(ipack) = pack_tmp
8619  data_tmp = full_data(idata)
8620  pack_tmp = ishft(data_tmp, 53)
8621  pack_tmp = ishft(pack_tmp, -13)
8622  idata = idata + 1
8623  data_tmp = full_data(idata)
8624  data_tmp = ishft(data_tmp, 51)
8625  pack_tmp = ior(pack_tmp, data_tmp)
8626  pack_tmp = ishft(pack_tmp, -13)
8627  idata = idata + 1
8628  data_tmp = full_data(idata)
8629  data_tmp = ishft(data_tmp, 51)
8630  pack_tmp = ior(pack_tmp, data_tmp)
8631  pack_tmp = ishft(pack_tmp, -13)
8632  idata = idata + 1
8633  data_tmp = full_data(idata)
8634  data_tmp = ishft(data_tmp, 51)
8635  pack_tmp = ior(pack_tmp, data_tmp)
8636  pack_tmp = ishft(pack_tmp, -13)
8637  idata = idata + 1
8638  data_tmp = full_data(idata)
8639  data_tmp = ishft(data_tmp, 51)
8640  pack_tmp = ior(pack_tmp, data_tmp)
8641  pack_tmp = ishft(pack_tmp, -1)
8642  idata = idata + 1
8643  data_tmp = full_data(idata)
8644  data_tmp = ishft(data_tmp, 51)
8645  data_tmp = iand(data_tmp, mask_left(1))
8646  pack_tmp = ior(pack_tmp, data_tmp)
8647  ipack = ipack + 1
8648  packed_data(ipack) = pack_tmp
8649  data_tmp = full_data(idata)
8650  pack_tmp = ishft(data_tmp, 52)
8651  pack_tmp = ishft(pack_tmp, -13)
8652  idata = idata + 1
8653  data_tmp = full_data(idata)
8654  data_tmp = ishft(data_tmp, 51)
8655  pack_tmp = ior(pack_tmp, data_tmp)
8656  pack_tmp = ishft(pack_tmp, -13)
8657  idata = idata + 1
8658  data_tmp = full_data(idata)
8659  data_tmp = ishft(data_tmp, 51)
8660  pack_tmp = ior(pack_tmp, data_tmp)
8661  pack_tmp = ishft(pack_tmp, -13)
8662  idata = idata + 1
8663  data_tmp = full_data(idata)
8664  data_tmp = ishft(data_tmp, 51)
8665  pack_tmp = ior(pack_tmp, data_tmp)
8666  pack_tmp = ishft(pack_tmp, -13)
8667  idata = idata + 1
8668  data_tmp = full_data(idata)
8669  data_tmp = ishft(data_tmp, 51)
8670  pack_tmp = ior(pack_tmp, data_tmp)
8671  pack_tmp = ishft(pack_tmp, 0)
8672  pack_tmp = ishft(pack_tmp, 0)
8673  ipack = ipack + 1
8674  packed_data(ipack) = pack_tmp
8675  END DO
8676  IF (ndata_rep < ndata) THEN
8677  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
8678  END IF
8679  END SUBROUTINE ints2bits_13
8680 
8681 ! **************************************************************************************************
8682 !> \brief ...
8683 !> \param Ndata ...
8684 !> \param packed_data ...
8685 !> \param full_data ...
8686 ! **************************************************************************************************
8687  SUBROUTINE bits2ints_13(Ndata, packed_data, full_data)
8688  INTEGER, INTENT(IN) :: Ndata
8689  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
8690  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
8691 
8692  INTEGER, PARAMETER :: Nbits = 13
8693 
8694  INTEGER :: idata, ipack, kdata, Ndata_rep
8695  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
8696 
8697  ipack = 0
8698  idata = 0
8699  pack_tmp = 0
8700  ndata_rep = (ndata/64)*64
8701  DO kdata = 1, ndata_rep, 64
8702  idata = idata + 1
8703  data_tmp = ishft(pack_tmp, 13)
8704  ipack = ipack + 1
8705  pack_tmp = packed_data(ipack)
8706  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
8707  pack_tmp = ishft(pack_tmp, -13)
8708  idata = idata + 1
8709  data_tmp = iand(pack_tmp, mask_right(nbits))
8710  full_data(idata) = data_tmp
8711  pack_tmp = ishft(pack_tmp, -nbits)
8712  idata = idata + 1
8713  data_tmp = iand(pack_tmp, mask_right(nbits))
8714  full_data(idata) = data_tmp
8715  pack_tmp = ishft(pack_tmp, -nbits)
8716  idata = idata + 1
8717  data_tmp = iand(pack_tmp, mask_right(nbits))
8718  full_data(idata) = data_tmp
8719  pack_tmp = ishft(pack_tmp, -nbits)
8720  idata = idata + 1
8721  data_tmp = ishft(pack_tmp, 1)
8722  ipack = ipack + 1
8723  pack_tmp = packed_data(ipack)
8724  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
8725  pack_tmp = ishft(pack_tmp, -1)
8726  idata = idata + 1
8727  data_tmp = iand(pack_tmp, mask_right(nbits))
8728  full_data(idata) = data_tmp
8729  pack_tmp = ishft(pack_tmp, -nbits)
8730  idata = idata + 1
8731  data_tmp = iand(pack_tmp, mask_right(nbits))
8732  full_data(idata) = data_tmp
8733  pack_tmp = ishft(pack_tmp, -nbits)
8734  idata = idata + 1
8735  data_tmp = iand(pack_tmp, mask_right(nbits))
8736  full_data(idata) = data_tmp
8737  pack_tmp = ishft(pack_tmp, -nbits)
8738  idata = idata + 1
8739  data_tmp = iand(pack_tmp, mask_right(nbits))
8740  full_data(idata) = data_tmp
8741  pack_tmp = ishft(pack_tmp, -nbits)
8742  idata = idata + 1
8743  data_tmp = ishft(pack_tmp, 2)
8744  ipack = ipack + 1
8745  pack_tmp = packed_data(ipack)
8746  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
8747  pack_tmp = ishft(pack_tmp, -2)
8748  idata = idata + 1
8749  data_tmp = iand(pack_tmp, mask_right(nbits))
8750  full_data(idata) = data_tmp
8751  pack_tmp = ishft(pack_tmp, -nbits)
8752  idata = idata + 1
8753  data_tmp = iand(pack_tmp, mask_right(nbits))
8754  full_data(idata) = data_tmp
8755  pack_tmp = ishft(pack_tmp, -nbits)
8756  idata = idata + 1
8757  data_tmp = iand(pack_tmp, mask_right(nbits))
8758  full_data(idata) = data_tmp
8759  pack_tmp = ishft(pack_tmp, -nbits)
8760  idata = idata + 1
8761  data_tmp = iand(pack_tmp, mask_right(nbits))
8762  full_data(idata) = data_tmp
8763  pack_tmp = ishft(pack_tmp, -nbits)
8764  idata = idata + 1
8765  data_tmp = ishft(pack_tmp, 3)
8766  ipack = ipack + 1
8767  pack_tmp = packed_data(ipack)
8768  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
8769  pack_tmp = ishft(pack_tmp, -3)
8770  idata = idata + 1
8771  data_tmp = iand(pack_tmp, mask_right(nbits))
8772  full_data(idata) = data_tmp
8773  pack_tmp = ishft(pack_tmp, -nbits)
8774  idata = idata + 1
8775  data_tmp = iand(pack_tmp, mask_right(nbits))
8776  full_data(idata) = data_tmp
8777  pack_tmp = ishft(pack_tmp, -nbits)
8778  idata = idata + 1
8779  data_tmp = iand(pack_tmp, mask_right(nbits))
8780  full_data(idata) = data_tmp
8781  pack_tmp = ishft(pack_tmp, -nbits)
8782  idata = idata + 1
8783  data_tmp = iand(pack_tmp, mask_right(nbits))
8784  full_data(idata) = data_tmp
8785  pack_tmp = ishft(pack_tmp, -nbits)
8786  idata = idata + 1
8787  data_tmp = ishft(pack_tmp, 4)
8788  ipack = ipack + 1
8789  pack_tmp = packed_data(ipack)
8790  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
8791  pack_tmp = ishft(pack_tmp, -4)
8792  idata = idata + 1
8793  data_tmp = iand(pack_tmp, mask_right(nbits))
8794  full_data(idata) = data_tmp
8795  pack_tmp = ishft(pack_tmp, -nbits)
8796  idata = idata + 1
8797  data_tmp = iand(pack_tmp, mask_right(nbits))
8798  full_data(idata) = data_tmp
8799  pack_tmp = ishft(pack_tmp, -nbits)
8800  idata = idata + 1
8801  data_tmp = iand(pack_tmp, mask_right(nbits))
8802  full_data(idata) = data_tmp
8803  pack_tmp = ishft(pack_tmp, -nbits)
8804  idata = idata + 1
8805  data_tmp = iand(pack_tmp, mask_right(nbits))
8806  full_data(idata) = data_tmp
8807  pack_tmp = ishft(pack_tmp, -nbits)
8808  idata = idata + 1
8809  data_tmp = ishft(pack_tmp, 5)
8810  ipack = ipack + 1
8811  pack_tmp = packed_data(ipack)
8812  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
8813  pack_tmp = ishft(pack_tmp, -5)
8814  idata = idata + 1
8815  data_tmp = iand(pack_tmp, mask_right(nbits))
8816  full_data(idata) = data_tmp
8817  pack_tmp = ishft(pack_tmp, -nbits)
8818  idata = idata + 1
8819  data_tmp = iand(pack_tmp, mask_right(nbits))
8820  full_data(idata) = data_tmp
8821  pack_tmp = ishft(pack_tmp, -nbits)
8822  idata = idata + 1
8823  data_tmp = iand(pack_tmp, mask_right(nbits))
8824  full_data(idata) = data_tmp
8825  pack_tmp = ishft(pack_tmp, -nbits)
8826  idata = idata + 1
8827  data_tmp = iand(pack_tmp, mask_right(nbits))
8828  full_data(idata) = data_tmp
8829  pack_tmp = ishft(pack_tmp, -nbits)
8830  idata = idata + 1
8831  data_tmp = ishft(pack_tmp, 6)
8832  ipack = ipack + 1
8833  pack_tmp = packed_data(ipack)
8834  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
8835  pack_tmp = ishft(pack_tmp, -6)
8836  idata = idata + 1
8837  data_tmp = iand(pack_tmp, mask_right(nbits))
8838  full_data(idata) = data_tmp
8839  pack_tmp = ishft(pack_tmp, -nbits)
8840  idata = idata + 1
8841  data_tmp = iand(pack_tmp, mask_right(nbits))
8842  full_data(idata) = data_tmp
8843  pack_tmp = ishft(pack_tmp, -nbits)
8844  idata = idata + 1
8845  data_tmp = iand(pack_tmp, mask_right(nbits))
8846  full_data(idata) = data_tmp
8847  pack_tmp = ishft(pack_tmp, -nbits)
8848  idata = idata + 1
8849  data_tmp = iand(pack_tmp, mask_right(nbits))
8850  full_data(idata) = data_tmp
8851  pack_tmp = ishft(pack_tmp, -nbits)
8852  idata = idata + 1
8853  data_tmp = ishft(pack_tmp, 7)
8854  ipack = ipack + 1
8855  pack_tmp = packed_data(ipack)
8856  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
8857  pack_tmp = ishft(pack_tmp, -7)
8858  idata = idata + 1
8859  data_tmp = iand(pack_tmp, mask_right(nbits))
8860  full_data(idata) = data_tmp
8861  pack_tmp = ishft(pack_tmp, -nbits)
8862  idata = idata + 1
8863  data_tmp = iand(pack_tmp, mask_right(nbits))
8864  full_data(idata) = data_tmp
8865  pack_tmp = ishft(pack_tmp, -nbits)
8866  idata = idata + 1
8867  data_tmp = iand(pack_tmp, mask_right(nbits))
8868  full_data(idata) = data_tmp
8869  pack_tmp = ishft(pack_tmp, -nbits)
8870  idata = idata + 1
8871  data_tmp = iand(pack_tmp, mask_right(nbits))
8872  full_data(idata) = data_tmp
8873  pack_tmp = ishft(pack_tmp, -nbits)
8874  idata = idata + 1
8875  data_tmp = ishft(pack_tmp, 8)
8876  ipack = ipack + 1
8877  pack_tmp = packed_data(ipack)
8878  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
8879  pack_tmp = ishft(pack_tmp, -8)
8880  idata = idata + 1
8881  data_tmp = iand(pack_tmp, mask_right(nbits))
8882  full_data(idata) = data_tmp
8883  pack_tmp = ishft(pack_tmp, -nbits)
8884  idata = idata + 1
8885  data_tmp = iand(pack_tmp, mask_right(nbits))
8886  full_data(idata) = data_tmp
8887  pack_tmp = ishft(pack_tmp, -nbits)
8888  idata = idata + 1
8889  data_tmp = iand(pack_tmp, mask_right(nbits))
8890  full_data(idata) = data_tmp
8891  pack_tmp = ishft(pack_tmp, -nbits)
8892  idata = idata + 1
8893  data_tmp = iand(pack_tmp, mask_right(nbits))
8894  full_data(idata) = data_tmp
8895  pack_tmp = ishft(pack_tmp, -nbits)
8896  idata = idata + 1
8897  data_tmp = ishft(pack_tmp, 9)
8898  ipack = ipack + 1
8899  pack_tmp = packed_data(ipack)
8900  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
8901  pack_tmp = ishft(pack_tmp, -9)
8902  idata = idata + 1
8903  data_tmp = iand(pack_tmp, mask_right(nbits))
8904  full_data(idata) = data_tmp
8905  pack_tmp = ishft(pack_tmp, -nbits)
8906  idata = idata + 1
8907  data_tmp = iand(pack_tmp, mask_right(nbits))
8908  full_data(idata) = data_tmp
8909  pack_tmp = ishft(pack_tmp, -nbits)
8910  idata = idata + 1
8911  data_tmp = iand(pack_tmp, mask_right(nbits))
8912  full_data(idata) = data_tmp
8913  pack_tmp = ishft(pack_tmp, -nbits)
8914  idata = idata + 1
8915  data_tmp = iand(pack_tmp, mask_right(nbits))
8916  full_data(idata) = data_tmp
8917  pack_tmp = ishft(pack_tmp, -nbits)
8918  idata = idata + 1
8919  data_tmp = ishft(pack_tmp, 10)
8920  ipack = ipack + 1
8921  pack_tmp = packed_data(ipack)
8922  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
8923  pack_tmp = ishft(pack_tmp, -10)
8924  idata = idata + 1
8925  data_tmp = iand(pack_tmp, mask_right(nbits))
8926  full_data(idata) = data_tmp
8927  pack_tmp = ishft(pack_tmp, -nbits)
8928  idata = idata + 1
8929  data_tmp = iand(pack_tmp, mask_right(nbits))
8930  full_data(idata) = data_tmp
8931  pack_tmp = ishft(pack_tmp, -nbits)
8932  idata = idata + 1
8933  data_tmp = iand(pack_tmp, mask_right(nbits))
8934  full_data(idata) = data_tmp
8935  pack_tmp = ishft(pack_tmp, -nbits)
8936  idata = idata + 1
8937  data_tmp = iand(pack_tmp, mask_right(nbits))
8938  full_data(idata) = data_tmp
8939  pack_tmp = ishft(pack_tmp, -nbits)
8940  idata = idata + 1
8941  data_tmp = ishft(pack_tmp, 11)
8942  ipack = ipack + 1
8943  pack_tmp = packed_data(ipack)
8944  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
8945  pack_tmp = ishft(pack_tmp, -11)
8946  idata = idata + 1
8947  data_tmp = iand(pack_tmp, mask_right(nbits))
8948  full_data(idata) = data_tmp
8949  pack_tmp = ishft(pack_tmp, -nbits)
8950  idata = idata + 1
8951  data_tmp = iand(pack_tmp, mask_right(nbits))
8952  full_data(idata) = data_tmp
8953  pack_tmp = ishft(pack_tmp, -nbits)
8954  idata = idata + 1
8955  data_tmp = iand(pack_tmp, mask_right(nbits))
8956  full_data(idata) = data_tmp
8957  pack_tmp = ishft(pack_tmp, -nbits)
8958  idata = idata + 1
8959  data_tmp = iand(pack_tmp, mask_right(nbits))
8960  full_data(idata) = data_tmp
8961  pack_tmp = ishft(pack_tmp, -nbits)
8962  idata = idata + 1
8963  data_tmp = ishft(pack_tmp, 12)
8964  ipack = ipack + 1
8965  pack_tmp = packed_data(ipack)
8966  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
8967  pack_tmp = ishft(pack_tmp, -12)
8968  idata = idata + 1
8969  data_tmp = iand(pack_tmp, mask_right(nbits))
8970  full_data(idata) = data_tmp
8971  pack_tmp = ishft(pack_tmp, -nbits)
8972  idata = idata + 1
8973  data_tmp = iand(pack_tmp, mask_right(nbits))
8974  full_data(idata) = data_tmp
8975  pack_tmp = ishft(pack_tmp, -nbits)
8976  idata = idata + 1
8977  data_tmp = iand(pack_tmp, mask_right(nbits))
8978  full_data(idata) = data_tmp
8979  pack_tmp = ishft(pack_tmp, -nbits)
8980  idata = idata + 1
8981  data_tmp = iand(pack_tmp, mask_right(nbits))
8982  full_data(idata) = data_tmp
8983  pack_tmp = ishft(pack_tmp, -nbits)
8984  END DO
8985  IF (ndata_rep < ndata) THEN
8986  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
8987  END IF
8988  END SUBROUTINE bits2ints_13
8989 
8990 ! **************************************************************************************************
8991 !> \brief ...
8992 !> \param Ndata ...
8993 !> \param packed_data ...
8994 !> \param full_data ...
8995 ! **************************************************************************************************
8996  SUBROUTINE ints2bits_14(Ndata, packed_data, full_data)
8997  INTEGER, INTENT(IN) :: Ndata
8998  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
8999  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
9000 
9001  INTEGER, PARAMETER :: Nbits = 14
9002 
9003  INTEGER :: idata, ipack, kdata, Ndata_rep
9004  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
9005 
9006  idata = 0
9007  ipack = 0
9008  ndata_rep = (ndata/64)*64
9009  DO kdata = 1, ndata_rep, 64
9010  pack_tmp = 0
9011  idata = idata + 1
9012  data_tmp = full_data(idata)
9013  data_tmp = ishft(data_tmp, 50)
9014  pack_tmp = ior(pack_tmp, data_tmp)
9015  pack_tmp = ishft(pack_tmp, -14)
9016  idata = idata + 1
9017  data_tmp = full_data(idata)
9018  data_tmp = ishft(data_tmp, 50)
9019  pack_tmp = ior(pack_tmp, data_tmp)
9020  pack_tmp = ishft(pack_tmp, -14)
9021  idata = idata + 1
9022  data_tmp = full_data(idata)
9023  data_tmp = ishft(data_tmp, 50)
9024  pack_tmp = ior(pack_tmp, data_tmp)
9025  pack_tmp = ishft(pack_tmp, -14)
9026  idata = idata + 1
9027  data_tmp = full_data(idata)
9028  data_tmp = ishft(data_tmp, 50)
9029  pack_tmp = ior(pack_tmp, data_tmp)
9030  pack_tmp = ishft(pack_tmp, -8)
9031  idata = idata + 1
9032  data_tmp = full_data(idata)
9033  data_tmp = ishft(data_tmp, 50)
9034  data_tmp = iand(data_tmp, mask_left(8))
9035  pack_tmp = ior(pack_tmp, data_tmp)
9036  ipack = ipack + 1
9037  packed_data(ipack) = pack_tmp
9038  data_tmp = full_data(idata)
9039  pack_tmp = ishft(data_tmp, 58)
9040  pack_tmp = ishft(pack_tmp, -14)
9041  idata = idata + 1
9042  data_tmp = full_data(idata)
9043  data_tmp = ishft(data_tmp, 50)
9044  pack_tmp = ior(pack_tmp, data_tmp)
9045  pack_tmp = ishft(pack_tmp, -14)
9046  idata = idata + 1
9047  data_tmp = full_data(idata)
9048  data_tmp = ishft(data_tmp, 50)
9049  pack_tmp = ior(pack_tmp, data_tmp)
9050  pack_tmp = ishft(pack_tmp, -14)
9051  idata = idata + 1
9052  data_tmp = full_data(idata)
9053  data_tmp = ishft(data_tmp, 50)
9054  pack_tmp = ior(pack_tmp, data_tmp)
9055  pack_tmp = ishft(pack_tmp, -14)
9056  idata = idata + 1
9057  data_tmp = full_data(idata)
9058  data_tmp = ishft(data_tmp, 50)
9059  pack_tmp = ior(pack_tmp, data_tmp)
9060  pack_tmp = ishft(pack_tmp, -2)
9061  idata = idata + 1
9062  data_tmp = full_data(idata)
9063  data_tmp = ishft(data_tmp, 50)
9064  data_tmp = iand(data_tmp, mask_left(2))
9065  pack_tmp = ior(pack_tmp, data_tmp)
9066  ipack = ipack + 1
9067  packed_data(ipack) = pack_tmp
9068  data_tmp = full_data(idata)
9069  pack_tmp = ishft(data_tmp, 52)
9070  pack_tmp = ishft(pack_tmp, -14)
9071  idata = idata + 1
9072  data_tmp = full_data(idata)
9073  data_tmp = ishft(data_tmp, 50)
9074  pack_tmp = ior(pack_tmp, data_tmp)
9075  pack_tmp = ishft(pack_tmp, -14)
9076  idata = idata + 1
9077  data_tmp = full_data(idata)
9078  data_tmp = ishft(data_tmp, 50)
9079  pack_tmp = ior(pack_tmp, data_tmp)
9080  pack_tmp = ishft(pack_tmp, -14)
9081  idata = idata + 1
9082  data_tmp = full_data(idata)
9083  data_tmp = ishft(data_tmp, 50)
9084  pack_tmp = ior(pack_tmp, data_tmp)
9085  pack_tmp = ishft(pack_tmp, -10)
9086  idata = idata + 1
9087  data_tmp = full_data(idata)
9088  data_tmp = ishft(data_tmp, 50)
9089  data_tmp = iand(data_tmp, mask_left(10))
9090  pack_tmp = ior(pack_tmp, data_tmp)
9091  ipack = ipack + 1
9092  packed_data(ipack) = pack_tmp
9093  data_tmp = full_data(idata)
9094  pack_tmp = ishft(data_tmp, 60)
9095  pack_tmp = ishft(pack_tmp, -14)
9096  idata = idata + 1
9097  data_tmp = full_data(idata)
9098  data_tmp = ishft(data_tmp, 50)
9099  pack_tmp = ior(pack_tmp, data_tmp)
9100  pack_tmp = ishft(pack_tmp, -14)
9101  idata = idata + 1
9102  data_tmp = full_data(idata)
9103  data_tmp = ishft(data_tmp, 50)
9104  pack_tmp = ior(pack_tmp, data_tmp)
9105  pack_tmp = ishft(pack_tmp, -14)
9106  idata = idata + 1
9107  data_tmp = full_data(idata)
9108  data_tmp = ishft(data_tmp, 50)
9109  pack_tmp = ior(pack_tmp, data_tmp)
9110  pack_tmp = ishft(pack_tmp, -14)
9111  idata = idata + 1
9112  data_tmp = full_data(idata)
9113  data_tmp = ishft(data_tmp, 50)
9114  pack_tmp = ior(pack_tmp, data_tmp)
9115  pack_tmp = ishft(pack_tmp, -4)
9116  idata = idata + 1
9117  data_tmp = full_data(idata)
9118  data_tmp = ishft(data_tmp, 50)
9119  data_tmp = iand(data_tmp, mask_left(4))
9120  pack_tmp = ior(pack_tmp, data_tmp)
9121  ipack = ipack + 1
9122  packed_data(ipack) = pack_tmp
9123  data_tmp = full_data(idata)
9124  pack_tmp = ishft(data_tmp, 54)
9125  pack_tmp = ishft(pack_tmp, -14)
9126  idata = idata + 1
9127  data_tmp = full_data(idata)
9128  data_tmp = ishft(data_tmp, 50)
9129  pack_tmp = ior(pack_tmp, data_tmp)
9130  pack_tmp = ishft(pack_tmp, -14)
9131  idata = idata + 1
9132  data_tmp = full_data(idata)
9133  data_tmp = ishft(data_tmp, 50)
9134  pack_tmp = ior(pack_tmp, data_tmp)
9135  pack_tmp = ishft(pack_tmp, -14)
9136  idata = idata + 1
9137  data_tmp = full_data(idata)
9138  data_tmp = ishft(data_tmp, 50)
9139  pack_tmp = ior(pack_tmp, data_tmp)
9140  pack_tmp = ishft(pack_tmp, -12)
9141  idata = idata + 1
9142  data_tmp = full_data(idata)
9143  data_tmp = ishft(data_tmp, 50)
9144  data_tmp = iand(data_tmp, mask_left(12))
9145  pack_tmp = ior(pack_tmp, data_tmp)
9146  ipack = ipack + 1
9147  packed_data(ipack) = pack_tmp
9148  data_tmp = full_data(idata)
9149  pack_tmp = ishft(data_tmp, 62)
9150  pack_tmp = ishft(pack_tmp, -14)
9151  idata = idata + 1
9152  data_tmp = full_data(idata)
9153  data_tmp = ishft(data_tmp, 50)
9154  pack_tmp = ior(pack_tmp, data_tmp)
9155  pack_tmp = ishft(pack_tmp, -14)
9156  idata = idata + 1
9157  data_tmp = full_data(idata)
9158  data_tmp = ishft(data_tmp, 50)
9159  pack_tmp = ior(pack_tmp, data_tmp)
9160  pack_tmp = ishft(pack_tmp, -14)
9161  idata = idata + 1
9162  data_tmp = full_data(idata)
9163  data_tmp = ishft(data_tmp, 50)
9164  pack_tmp = ior(pack_tmp, data_tmp)
9165  pack_tmp = ishft(pack_tmp, -14)
9166  idata = idata + 1
9167  data_tmp = full_data(idata)
9168  data_tmp = ishft(data_tmp, 50)
9169  pack_tmp = ior(pack_tmp, data_tmp)
9170  pack_tmp = ishft(pack_tmp, -6)
9171  idata = idata + 1
9172  data_tmp = full_data(idata)
9173  data_tmp = ishft(data_tmp, 50)
9174  data_tmp = iand(data_tmp, mask_left(6))
9175  pack_tmp = ior(pack_tmp, data_tmp)
9176  ipack = ipack + 1
9177  packed_data(ipack) = pack_tmp
9178  data_tmp = full_data(idata)
9179  pack_tmp = ishft(data_tmp, 56)
9180  pack_tmp = ishft(pack_tmp, -14)
9181  idata = idata + 1
9182  data_tmp = full_data(idata)
9183  data_tmp = ishft(data_tmp, 50)
9184  pack_tmp = ior(pack_tmp, data_tmp)
9185  pack_tmp = ishft(pack_tmp, -14)
9186  idata = idata + 1
9187  data_tmp = full_data(idata)
9188  data_tmp = ishft(data_tmp, 50)
9189  pack_tmp = ior(pack_tmp, data_tmp)
9190  pack_tmp = ishft(pack_tmp, -14)
9191  idata = idata + 1
9192  data_tmp = full_data(idata)
9193  data_tmp = ishft(data_tmp, 50)
9194  pack_tmp = ior(pack_tmp, data_tmp)
9195  pack_tmp = ishft(pack_tmp, -14)
9196  idata = idata + 1
9197  data_tmp = full_data(idata)
9198  data_tmp = ishft(data_tmp, 50)
9199  pack_tmp = ior(pack_tmp, data_tmp)
9200  pack_tmp = ishft(pack_tmp, 0)
9201  idata = idata + 1
9202  data_tmp = full_data(idata)
9203  data_tmp = ishft(data_tmp, 50)
9204  data_tmp = iand(data_tmp, mask_left(0))
9205  pack_tmp = ior(pack_tmp, data_tmp)
9206  ipack = ipack + 1
9207  packed_data(ipack) = pack_tmp
9208  data_tmp = full_data(idata)
9209  pack_tmp = ishft(data_tmp, 50)
9210  pack_tmp = ishft(pack_tmp, -14)
9211  idata = idata + 1
9212  data_tmp = full_data(idata)
9213  data_tmp = ishft(data_tmp, 50)
9214  pack_tmp = ior(pack_tmp, data_tmp)
9215  pack_tmp = ishft(pack_tmp, -14)
9216  idata = idata + 1
9217  data_tmp = full_data(idata)
9218  data_tmp = ishft(data_tmp, 50)
9219  pack_tmp = ior(pack_tmp, data_tmp)
9220  pack_tmp = ishft(pack_tmp, -14)
9221  idata = idata + 1
9222  data_tmp = full_data(idata)
9223  data_tmp = ishft(data_tmp, 50)
9224  pack_tmp = ior(pack_tmp, data_tmp)
9225  pack_tmp = ishft(pack_tmp, -8)
9226  idata = idata + 1
9227  data_tmp = full_data(idata)
9228  data_tmp = ishft(data_tmp, 50)
9229  data_tmp = iand(data_tmp, mask_left(8))
9230  pack_tmp = ior(pack_tmp, data_tmp)
9231  ipack = ipack + 1
9232  packed_data(ipack) = pack_tmp
9233  data_tmp = full_data(idata)
9234  pack_tmp = ishft(data_tmp, 58)
9235  pack_tmp = ishft(pack_tmp, -14)
9236  idata = idata + 1
9237  data_tmp = full_data(idata)
9238  data_tmp = ishft(data_tmp, 50)
9239  pack_tmp = ior(pack_tmp, data_tmp)
9240  pack_tmp = ishft(pack_tmp, -14)
9241  idata = idata + 1
9242  data_tmp = full_data(idata)
9243  data_tmp = ishft(data_tmp, 50)
9244  pack_tmp = ior(pack_tmp, data_tmp)
9245  pack_tmp = ishft(pack_tmp, -14)
9246  idata = idata + 1
9247  data_tmp = full_data(idata)
9248  data_tmp = ishft(data_tmp, 50)
9249  pack_tmp = ior(pack_tmp, data_tmp)
9250  pack_tmp = ishft(pack_tmp, -14)
9251  idata = idata + 1
9252  data_tmp = full_data(idata)
9253  data_tmp = ishft(data_tmp, 50)
9254  pack_tmp = ior(pack_tmp, data_tmp)
9255  pack_tmp = ishft(pack_tmp, -2)
9256  idata = idata + 1
9257  data_tmp = full_data(idata)
9258  data_tmp = ishft(data_tmp, 50)
9259  data_tmp = iand(data_tmp, mask_left(2))
9260  pack_tmp = ior(pack_tmp, data_tmp)
9261  ipack = ipack + 1
9262  packed_data(ipack) = pack_tmp
9263  data_tmp = full_data(idata)
9264  pack_tmp = ishft(data_tmp, 52)
9265  pack_tmp = ishft(pack_tmp, -14)
9266  idata = idata + 1
9267  data_tmp = full_data(idata)
9268  data_tmp = ishft(data_tmp, 50)
9269  pack_tmp = ior(pack_tmp, data_tmp)
9270  pack_tmp = ishft(pack_tmp, -14)
9271  idata = idata + 1
9272  data_tmp = full_data(idata)
9273  data_tmp = ishft(data_tmp, 50)
9274  pack_tmp = ior(pack_tmp, data_tmp)
9275  pack_tmp = ishft(pack_tmp, -14)
9276  idata = idata + 1
9277  data_tmp = full_data(idata)
9278  data_tmp = ishft(data_tmp, 50)
9279  pack_tmp = ior(pack_tmp, data_tmp)
9280  pack_tmp = ishft(pack_tmp, -10)
9281  idata = idata + 1
9282  data_tmp = full_data(idata)
9283  data_tmp = ishft(data_tmp, 50)
9284  data_tmp = iand(data_tmp, mask_left(10))
9285  pack_tmp = ior(pack_tmp, data_tmp)
9286  ipack = ipack + 1
9287  packed_data(ipack) = pack_tmp
9288  data_tmp = full_data(idata)
9289  pack_tmp = ishft(data_tmp, 60)
9290  pack_tmp = ishft(pack_tmp, -14)
9291  idata = idata + 1
9292  data_tmp = full_data(idata)
9293  data_tmp = ishft(data_tmp, 50)
9294  pack_tmp = ior(pack_tmp, data_tmp)
9295  pack_tmp = ishft(pack_tmp, -14)
9296  idata = idata + 1
9297  data_tmp = full_data(idata)
9298  data_tmp = ishft(data_tmp, 50)
9299  pack_tmp = ior(pack_tmp, data_tmp)
9300  pack_tmp = ishft(pack_tmp, -14)
9301  idata = idata + 1
9302  data_tmp = full_data(idata)
9303  data_tmp = ishft(data_tmp, 50)
9304  pack_tmp = ior(pack_tmp, data_tmp)
9305  pack_tmp = ishft(pack_tmp, -14)
9306  idata = idata + 1
9307  data_tmp = full_data(idata)
9308  data_tmp = ishft(data_tmp, 50)
9309  pack_tmp = ior(pack_tmp, data_tmp)
9310  pack_tmp = ishft(pack_tmp, -4)
9311  idata = idata + 1
9312  data_tmp = full_data(idata)
9313  data_tmp = ishft(data_tmp, 50)
9314  data_tmp = iand(data_tmp, mask_left(4))
9315  pack_tmp = ior(pack_tmp, data_tmp)
9316  ipack = ipack + 1
9317  packed_data(ipack) = pack_tmp
9318  data_tmp = full_data(idata)
9319  pack_tmp = ishft(data_tmp, 54)
9320  pack_tmp = ishft(pack_tmp, -14)
9321  idata = idata + 1
9322  data_tmp = full_data(idata)
9323  data_tmp = ishft(data_tmp, 50)
9324  pack_tmp = ior(pack_tmp, data_tmp)
9325  pack_tmp = ishft(pack_tmp, -14)
9326  idata = idata + 1
9327  data_tmp = full_data(idata)
9328  data_tmp = ishft(data_tmp, 50)
9329  pack_tmp = ior(pack_tmp, data_tmp)
9330  pack_tmp = ishft(pack_tmp, -14)
9331  idata = idata + 1
9332  data_tmp = full_data(idata)
9333  data_tmp = ishft(data_tmp, 50)
9334  pack_tmp = ior(pack_tmp, data_tmp)
9335  pack_tmp = ishft(pack_tmp, -12)
9336  idata = idata + 1
9337  data_tmp = full_data(idata)
9338  data_tmp = ishft(data_tmp, 50)
9339  data_tmp = iand(data_tmp, mask_left(12))
9340  pack_tmp = ior(pack_tmp, data_tmp)
9341  ipack = ipack + 1
9342  packed_data(ipack) = pack_tmp
9343  data_tmp = full_data(idata)
9344  pack_tmp = ishft(data_tmp, 62)
9345  pack_tmp = ishft(pack_tmp, -14)
9346  idata = idata + 1
9347  data_tmp = full_data(idata)
9348  data_tmp = ishft(data_tmp, 50)
9349  pack_tmp = ior(pack_tmp, data_tmp)
9350  pack_tmp = ishft(pack_tmp, -14)
9351  idata = idata + 1
9352  data_tmp = full_data(idata)
9353  data_tmp = ishft(data_tmp, 50)
9354  pack_tmp = ior(pack_tmp, data_tmp)
9355  pack_tmp = ishft(pack_tmp, -14)
9356  idata = idata + 1
9357  data_tmp = full_data(idata)
9358  data_tmp = ishft(data_tmp, 50)
9359  pack_tmp = ior(pack_tmp, data_tmp)
9360  pack_tmp = ishft(pack_tmp, -14)
9361  idata = idata + 1
9362  data_tmp = full_data(idata)
9363  data_tmp = ishft(data_tmp, 50)
9364  pack_tmp = ior(pack_tmp, data_tmp)
9365  pack_tmp = ishft(pack_tmp, -6)
9366  idata = idata + 1
9367  data_tmp = full_data(idata)
9368  data_tmp = ishft(data_tmp, 50)
9369  data_tmp = iand(data_tmp, mask_left(6))
9370  pack_tmp = ior(pack_tmp, data_tmp)
9371  ipack = ipack + 1
9372  packed_data(ipack) = pack_tmp
9373  data_tmp = full_data(idata)
9374  pack_tmp = ishft(data_tmp, 56)
9375  pack_tmp = ishft(pack_tmp, -14)
9376  idata = idata + 1
9377  data_tmp = full_data(idata)
9378  data_tmp = ishft(data_tmp, 50)
9379  pack_tmp = ior(pack_tmp, data_tmp)
9380  pack_tmp = ishft(pack_tmp, -14)
9381  idata = idata + 1
9382  data_tmp = full_data(idata)
9383  data_tmp = ishft(data_tmp, 50)
9384  pack_tmp = ior(pack_tmp, data_tmp)
9385  pack_tmp = ishft(pack_tmp, -14)
9386  idata = idata + 1
9387  data_tmp = full_data(idata)
9388  data_tmp = ishft(data_tmp, 50)
9389  pack_tmp = ior(pack_tmp, data_tmp)
9390  pack_tmp = ishft(pack_tmp, -14)
9391  idata = idata + 1
9392  data_tmp = full_data(idata)
9393  data_tmp = ishft(data_tmp, 50)
9394  pack_tmp = ior(pack_tmp, data_tmp)
9395  pack_tmp = ishft(pack_tmp, 0)
9396  pack_tmp = ishft(pack_tmp, 0)
9397  ipack = ipack + 1
9398  packed_data(ipack) = pack_tmp
9399  END DO
9400  IF (ndata_rep < ndata) THEN
9401  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
9402  END IF
9403  END SUBROUTINE ints2bits_14
9404 
9405 ! **************************************************************************************************
9406 !> \brief ...
9407 !> \param Ndata ...
9408 !> \param packed_data ...
9409 !> \param full_data ...
9410 ! **************************************************************************************************
9411  SUBROUTINE bits2ints_14(Ndata, packed_data, full_data)
9412  INTEGER, INTENT(IN) :: Ndata
9413  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
9414  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
9415 
9416  INTEGER, PARAMETER :: Nbits = 14
9417 
9418  INTEGER :: idata, ipack, kdata, Ndata_rep
9419  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
9420 
9421  ipack = 0
9422  idata = 0
9423  pack_tmp = 0
9424  ndata_rep = (ndata/64)*64
9425  DO kdata = 1, ndata_rep, 64
9426  idata = idata + 1
9427  data_tmp = ishft(pack_tmp, 14)
9428  ipack = ipack + 1
9429  pack_tmp = packed_data(ipack)
9430  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
9431  pack_tmp = ishft(pack_tmp, -14)
9432  idata = idata + 1
9433  data_tmp = iand(pack_tmp, mask_right(nbits))
9434  full_data(idata) = data_tmp
9435  pack_tmp = ishft(pack_tmp, -nbits)
9436  idata = idata + 1
9437  data_tmp = iand(pack_tmp, mask_right(nbits))
9438  full_data(idata) = data_tmp
9439  pack_tmp = ishft(pack_tmp, -nbits)
9440  idata = idata + 1
9441  data_tmp = iand(pack_tmp, mask_right(nbits))
9442  full_data(idata) = data_tmp
9443  pack_tmp = ishft(pack_tmp, -nbits)
9444  idata = idata + 1
9445  data_tmp = ishft(pack_tmp, 6)
9446  ipack = ipack + 1
9447  pack_tmp = packed_data(ipack)
9448  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
9449  pack_tmp = ishft(pack_tmp, -6)
9450  idata = idata + 1
9451  data_tmp = iand(pack_tmp, mask_right(nbits))
9452  full_data(idata) = data_tmp
9453  pack_tmp = ishft(pack_tmp, -nbits)
9454  idata = idata + 1
9455  data_tmp = iand(pack_tmp, mask_right(nbits))
9456  full_data(idata) = data_tmp
9457  pack_tmp = ishft(pack_tmp, -nbits)
9458  idata = idata + 1
9459  data_tmp = iand(pack_tmp, mask_right(nbits))
9460  full_data(idata) = data_tmp
9461  pack_tmp = ishft(pack_tmp, -nbits)
9462  idata = idata + 1
9463  data_tmp = iand(pack_tmp, mask_right(nbits))
9464  full_data(idata) = data_tmp
9465  pack_tmp = ishft(pack_tmp, -nbits)
9466  idata = idata + 1
9467  data_tmp = ishft(pack_tmp, 12)
9468  ipack = ipack + 1
9469  pack_tmp = packed_data(ipack)
9470  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
9471  pack_tmp = ishft(pack_tmp, -12)
9472  idata = idata + 1
9473  data_tmp = iand(pack_tmp, mask_right(nbits))
9474  full_data(idata) = data_tmp
9475  pack_tmp = ishft(pack_tmp, -nbits)
9476  idata = idata + 1
9477  data_tmp = iand(pack_tmp, mask_right(nbits))
9478  full_data(idata) = data_tmp
9479  pack_tmp = ishft(pack_tmp, -nbits)
9480  idata = idata + 1
9481  data_tmp = iand(pack_tmp, mask_right(nbits))
9482  full_data(idata) = data_tmp
9483  pack_tmp = ishft(pack_tmp, -nbits)
9484  idata = idata + 1
9485  data_tmp = ishft(pack_tmp, 4)
9486  ipack = ipack + 1
9487  pack_tmp = packed_data(ipack)
9488  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
9489  pack_tmp = ishft(pack_tmp, -4)
9490  idata = idata + 1
9491  data_tmp = iand(pack_tmp, mask_right(nbits))
9492  full_data(idata) = data_tmp
9493  pack_tmp = ishft(pack_tmp, -nbits)
9494  idata = idata + 1
9495  data_tmp = iand(pack_tmp, mask_right(nbits))
9496  full_data(idata) = data_tmp
9497  pack_tmp = ishft(pack_tmp, -nbits)
9498  idata = idata + 1
9499  data_tmp = iand(pack_tmp, mask_right(nbits))
9500  full_data(idata) = data_tmp
9501  pack_tmp = ishft(pack_tmp, -nbits)
9502  idata = idata + 1
9503  data_tmp = iand(pack_tmp, mask_right(nbits))
9504  full_data(idata) = data_tmp
9505  pack_tmp = ishft(pack_tmp, -nbits)
9506  idata = idata + 1
9507  data_tmp = ishft(pack_tmp, 10)
9508  ipack = ipack + 1
9509  pack_tmp = packed_data(ipack)
9510  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
9511  pack_tmp = ishft(pack_tmp, -10)
9512  idata = idata + 1
9513  data_tmp = iand(pack_tmp, mask_right(nbits))
9514  full_data(idata) = data_tmp
9515  pack_tmp = ishft(pack_tmp, -nbits)
9516  idata = idata + 1
9517  data_tmp = iand(pack_tmp, mask_right(nbits))
9518  full_data(idata) = data_tmp
9519  pack_tmp = ishft(pack_tmp, -nbits)
9520  idata = idata + 1
9521  data_tmp = iand(pack_tmp, mask_right(nbits))
9522  full_data(idata) = data_tmp
9523  pack_tmp = ishft(pack_tmp, -nbits)
9524  idata = idata + 1
9525  data_tmp = ishft(pack_tmp, 2)
9526  ipack = ipack + 1
9527  pack_tmp = packed_data(ipack)
9528  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
9529  pack_tmp = ishft(pack_tmp, -2)
9530  idata = idata + 1
9531  data_tmp = iand(pack_tmp, mask_right(nbits))
9532  full_data(idata) = data_tmp
9533  pack_tmp = ishft(pack_tmp, -nbits)
9534  idata = idata + 1
9535  data_tmp = iand(pack_tmp, mask_right(nbits))
9536  full_data(idata) = data_tmp
9537  pack_tmp = ishft(pack_tmp, -nbits)
9538  idata = idata + 1
9539  data_tmp = iand(pack_tmp, mask_right(nbits))
9540  full_data(idata) = data_tmp
9541  pack_tmp = ishft(pack_tmp, -nbits)
9542  idata = idata + 1
9543  data_tmp = iand(pack_tmp, mask_right(nbits))
9544  full_data(idata) = data_tmp
9545  pack_tmp = ishft(pack_tmp, -nbits)
9546  idata = idata + 1
9547  data_tmp = ishft(pack_tmp, 8)
9548  ipack = ipack + 1
9549  pack_tmp = packed_data(ipack)
9550  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
9551  pack_tmp = ishft(pack_tmp, -8)
9552  idata = idata + 1
9553  data_tmp = iand(pack_tmp, mask_right(nbits))
9554  full_data(idata) = data_tmp
9555  pack_tmp = ishft(pack_tmp, -nbits)
9556  idata = idata + 1
9557  data_tmp = iand(pack_tmp, mask_right(nbits))
9558  full_data(idata) = data_tmp
9559  pack_tmp = ishft(pack_tmp, -nbits)
9560  idata = idata + 1
9561  data_tmp = iand(pack_tmp, mask_right(nbits))
9562  full_data(idata) = data_tmp
9563  pack_tmp = ishft(pack_tmp, -nbits)
9564  idata = idata + 1
9565  data_tmp = iand(pack_tmp, mask_right(nbits))
9566  full_data(idata) = data_tmp
9567  pack_tmp = ishft(pack_tmp, -nbits)
9568  idata = idata + 1
9569  data_tmp = ishft(pack_tmp, 14)
9570  ipack = ipack + 1
9571  pack_tmp = packed_data(ipack)
9572  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
9573  pack_tmp = ishft(pack_tmp, -14)
9574  idata = idata + 1
9575  data_tmp = iand(pack_tmp, mask_right(nbits))
9576  full_data(idata) = data_tmp
9577  pack_tmp = ishft(pack_tmp, -nbits)
9578  idata = idata + 1
9579  data_tmp = iand(pack_tmp, mask_right(nbits))
9580  full_data(idata) = data_tmp
9581  pack_tmp = ishft(pack_tmp, -nbits)
9582  idata = idata + 1
9583  data_tmp = iand(pack_tmp, mask_right(nbits))
9584  full_data(idata) = data_tmp
9585  pack_tmp = ishft(pack_tmp, -nbits)
9586  idata = idata + 1
9587  data_tmp = ishft(pack_tmp, 6)
9588  ipack = ipack + 1
9589  pack_tmp = packed_data(ipack)
9590  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
9591  pack_tmp = ishft(pack_tmp, -6)
9592  idata = idata + 1
9593  data_tmp = iand(pack_tmp, mask_right(nbits))
9594  full_data(idata) = data_tmp
9595  pack_tmp = ishft(pack_tmp, -nbits)
9596  idata = idata + 1
9597  data_tmp = iand(pack_tmp, mask_right(nbits))
9598  full_data(idata) = data_tmp
9599  pack_tmp = ishft(pack_tmp, -nbits)
9600  idata = idata + 1
9601  data_tmp = iand(pack_tmp, mask_right(nbits))
9602  full_data(idata) = data_tmp
9603  pack_tmp = ishft(pack_tmp, -nbits)
9604  idata = idata + 1
9605  data_tmp = iand(pack_tmp, mask_right(nbits))
9606  full_data(idata) = data_tmp
9607  pack_tmp = ishft(pack_tmp, -nbits)
9608  idata = idata + 1
9609  data_tmp = ishft(pack_tmp, 12)
9610  ipack = ipack + 1
9611  pack_tmp = packed_data(ipack)
9612  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
9613  pack_tmp = ishft(pack_tmp, -12)
9614  idata = idata + 1
9615  data_tmp = iand(pack_tmp, mask_right(nbits))
9616  full_data(idata) = data_tmp
9617  pack_tmp = ishft(pack_tmp, -nbits)
9618  idata = idata + 1
9619  data_tmp = iand(pack_tmp, mask_right(nbits))
9620  full_data(idata) = data_tmp
9621  pack_tmp = ishft(pack_tmp, -nbits)
9622  idata = idata + 1
9623  data_tmp = iand(pack_tmp, mask_right(nbits))
9624  full_data(idata) = data_tmp
9625  pack_tmp = ishft(pack_tmp, -nbits)
9626  idata = idata + 1
9627  data_tmp = ishft(pack_tmp, 4)
9628  ipack = ipack + 1
9629  pack_tmp = packed_data(ipack)
9630  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
9631  pack_tmp = ishft(pack_tmp, -4)
9632  idata = idata + 1
9633  data_tmp = iand(pack_tmp, mask_right(nbits))
9634  full_data(idata) = data_tmp
9635  pack_tmp = ishft(pack_tmp, -nbits)
9636  idata = idata + 1
9637  data_tmp = iand(pack_tmp, mask_right(nbits))
9638  full_data(idata) = data_tmp
9639  pack_tmp = ishft(pack_tmp, -nbits)
9640  idata = idata + 1
9641  data_tmp = iand(pack_tmp, mask_right(nbits))
9642  full_data(idata) = data_tmp
9643  pack_tmp = ishft(pack_tmp, -nbits)
9644  idata = idata + 1
9645  data_tmp = iand(pack_tmp, mask_right(nbits))
9646  full_data(idata) = data_tmp
9647  pack_tmp = ishft(pack_tmp, -nbits)
9648  idata = idata + 1
9649  data_tmp = ishft(pack_tmp, 10)
9650  ipack = ipack + 1
9651  pack_tmp = packed_data(ipack)
9652  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
9653  pack_tmp = ishft(pack_tmp, -10)
9654  idata = idata + 1
9655  data_tmp = iand(pack_tmp, mask_right(nbits))
9656  full_data(idata) = data_tmp
9657  pack_tmp = ishft(pack_tmp, -nbits)
9658  idata = idata + 1
9659  data_tmp = iand(pack_tmp, mask_right(nbits))
9660  full_data(idata) = data_tmp
9661  pack_tmp = ishft(pack_tmp, -nbits)
9662  idata = idata + 1
9663  data_tmp = iand(pack_tmp, mask_right(nbits))
9664  full_data(idata) = data_tmp
9665  pack_tmp = ishft(pack_tmp, -nbits)
9666  idata = idata + 1
9667  data_tmp = ishft(pack_tmp, 2)
9668  ipack = ipack + 1
9669  pack_tmp = packed_data(ipack)
9670  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
9671  pack_tmp = ishft(pack_tmp, -2)
9672  idata = idata + 1
9673  data_tmp = iand(pack_tmp, mask_right(nbits))
9674  full_data(idata) = data_tmp
9675  pack_tmp = ishft(pack_tmp, -nbits)
9676  idata = idata + 1
9677  data_tmp = iand(pack_tmp, mask_right(nbits))
9678  full_data(idata) = data_tmp
9679  pack_tmp = ishft(pack_tmp, -nbits)
9680  idata = idata + 1
9681  data_tmp = iand(pack_tmp, mask_right(nbits))
9682  full_data(idata) = data_tmp
9683  pack_tmp = ishft(pack_tmp, -nbits)
9684  idata = idata + 1
9685  data_tmp = iand(pack_tmp, mask_right(nbits))
9686  full_data(idata) = data_tmp
9687  pack_tmp = ishft(pack_tmp, -nbits)
9688  idata = idata + 1
9689  data_tmp = ishft(pack_tmp, 8)
9690  ipack = ipack + 1
9691  pack_tmp = packed_data(ipack)
9692  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
9693  pack_tmp = ishft(pack_tmp, -8)
9694  idata = idata + 1
9695  data_tmp = iand(pack_tmp, mask_right(nbits))
9696  full_data(idata) = data_tmp
9697  pack_tmp = ishft(pack_tmp, -nbits)
9698  idata = idata + 1
9699  data_tmp = iand(pack_tmp, mask_right(nbits))
9700  full_data(idata) = data_tmp
9701  pack_tmp = ishft(pack_tmp, -nbits)
9702  idata = idata + 1
9703  data_tmp = iand(pack_tmp, mask_right(nbits))
9704  full_data(idata) = data_tmp
9705  pack_tmp = ishft(pack_tmp, -nbits)
9706  idata = idata + 1
9707  data_tmp = iand(pack_tmp, mask_right(nbits))
9708  full_data(idata) = data_tmp
9709  pack_tmp = ishft(pack_tmp, -nbits)
9710  END DO
9711  IF (ndata_rep < ndata) THEN
9712  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
9713  END IF
9714  END SUBROUTINE bits2ints_14
9715 
9716 ! **************************************************************************************************
9717 !> \brief ...
9718 !> \param Ndata ...
9719 !> \param packed_data ...
9720 !> \param full_data ...
9721 ! **************************************************************************************************
9722  SUBROUTINE ints2bits_15(Ndata, packed_data, full_data)
9723  INTEGER, INTENT(IN) :: Ndata
9724  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
9725  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
9726 
9727  INTEGER, PARAMETER :: Nbits = 15
9728 
9729  INTEGER :: idata, ipack, kdata, Ndata_rep
9730  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
9731 
9732  idata = 0
9733  ipack = 0
9734  ndata_rep = (ndata/64)*64
9735  DO kdata = 1, ndata_rep, 64
9736  pack_tmp = 0
9737  idata = idata + 1
9738  data_tmp = full_data(idata)
9739  data_tmp = ishft(data_tmp, 49)
9740  pack_tmp = ior(pack_tmp, data_tmp)
9741  pack_tmp = ishft(pack_tmp, -15)
9742  idata = idata + 1
9743  data_tmp = full_data(idata)
9744  data_tmp = ishft(data_tmp, 49)
9745  pack_tmp = ior(pack_tmp, data_tmp)
9746  pack_tmp = ishft(pack_tmp, -15)
9747  idata = idata + 1
9748  data_tmp = full_data(idata)
9749  data_tmp = ishft(data_tmp, 49)
9750  pack_tmp = ior(pack_tmp, data_tmp)
9751  pack_tmp = ishft(pack_tmp, -15)
9752  idata = idata + 1
9753  data_tmp = full_data(idata)
9754  data_tmp = ishft(data_tmp, 49)
9755  pack_tmp = ior(pack_tmp, data_tmp)
9756  pack_tmp = ishft(pack_tmp, -4)
9757  idata = idata + 1
9758  data_tmp = full_data(idata)
9759  data_tmp = ishft(data_tmp, 49)
9760  data_tmp = iand(data_tmp, mask_left(4))
9761  pack_tmp = ior(pack_tmp, data_tmp)
9762  ipack = ipack + 1
9763  packed_data(ipack) = pack_tmp
9764  data_tmp = full_data(idata)
9765  pack_tmp = ishft(data_tmp, 53)
9766  pack_tmp = ishft(pack_tmp, -15)
9767  idata = idata + 1
9768  data_tmp = full_data(idata)
9769  data_tmp = ishft(data_tmp, 49)
9770  pack_tmp = ior(pack_tmp, data_tmp)
9771  pack_tmp = ishft(pack_tmp, -15)
9772  idata = idata + 1
9773  data_tmp = full_data(idata)
9774  data_tmp = ishft(data_tmp, 49)
9775  pack_tmp = ior(pack_tmp, data_tmp)
9776  pack_tmp = ishft(pack_tmp, -15)
9777  idata = idata + 1
9778  data_tmp = full_data(idata)
9779  data_tmp = ishft(data_tmp, 49)
9780  pack_tmp = ior(pack_tmp, data_tmp)
9781  pack_tmp = ishft(pack_tmp, -8)
9782  idata = idata + 1
9783  data_tmp = full_data(idata)
9784  data_tmp = ishft(data_tmp, 49)
9785  data_tmp = iand(data_tmp, mask_left(8))
9786  pack_tmp = ior(pack_tmp, data_tmp)
9787  ipack = ipack + 1
9788  packed_data(ipack) = pack_tmp
9789  data_tmp = full_data(idata)
9790  pack_tmp = ishft(data_tmp, 57)
9791  pack_tmp = ishft(pack_tmp, -15)
9792  idata = idata + 1
9793  data_tmp = full_data(idata)
9794  data_tmp = ishft(data_tmp, 49)
9795  pack_tmp = ior(pack_tmp, data_tmp)
9796  pack_tmp = ishft(pack_tmp, -15)
9797  idata = idata + 1
9798  data_tmp = full_data(idata)
9799  data_tmp = ishft(data_tmp, 49)
9800  pack_tmp = ior(pack_tmp, data_tmp)
9801  pack_tmp = ishft(pack_tmp, -15)
9802  idata = idata + 1
9803  data_tmp = full_data(idata)
9804  data_tmp = ishft(data_tmp, 49)
9805  pack_tmp = ior(pack_tmp, data_tmp)
9806  pack_tmp = ishft(pack_tmp, -12)
9807  idata = idata + 1
9808  data_tmp = full_data(idata)
9809  data_tmp = ishft(data_tmp, 49)
9810  data_tmp = iand(data_tmp, mask_left(12))
9811  pack_tmp = ior(pack_tmp, data_tmp)
9812  ipack = ipack + 1
9813  packed_data(ipack) = pack_tmp
9814  data_tmp = full_data(idata)
9815  pack_tmp = ishft(data_tmp, 61)
9816  pack_tmp = ishft(pack_tmp, -15)
9817  idata = idata + 1
9818  data_tmp = full_data(idata)
9819  data_tmp = ishft(data_tmp, 49)
9820  pack_tmp = ior(pack_tmp, data_tmp)
9821  pack_tmp = ishft(pack_tmp, -15)
9822  idata = idata + 1
9823  data_tmp = full_data(idata)
9824  data_tmp = ishft(data_tmp, 49)
9825  pack_tmp = ior(pack_tmp, data_tmp)
9826  pack_tmp = ishft(pack_tmp, -15)
9827  idata = idata + 1
9828  data_tmp = full_data(idata)
9829  data_tmp = ishft(data_tmp, 49)
9830  pack_tmp = ior(pack_tmp, data_tmp)
9831  pack_tmp = ishft(pack_tmp, -15)
9832  idata = idata + 1
9833  data_tmp = full_data(idata)
9834  data_tmp = ishft(data_tmp, 49)
9835  pack_tmp = ior(pack_tmp, data_tmp)
9836  pack_tmp = ishft(pack_tmp, -1)
9837  idata = idata + 1
9838  data_tmp = full_data(idata)
9839  data_tmp = ishft(data_tmp, 49)
9840  data_tmp = iand(data_tmp, mask_left(1))
9841  pack_tmp = ior(pack_tmp, data_tmp)
9842  ipack = ipack + 1
9843  packed_data(ipack) = pack_tmp
9844  data_tmp = full_data(idata)
9845  pack_tmp = ishft(data_tmp, 50)
9846  pack_tmp = ishft(pack_tmp, -15)
9847  idata = idata + 1
9848  data_tmp = full_data(idata)
9849  data_tmp = ishft(data_tmp, 49)
9850  pack_tmp = ior(pack_tmp, data_tmp)
9851  pack_tmp = ishft(pack_tmp, -15)
9852  idata = idata + 1
9853  data_tmp = full_data(idata)
9854  data_tmp = ishft(data_tmp, 49)
9855  pack_tmp = ior(pack_tmp, data_tmp)
9856  pack_tmp = ishft(pack_tmp, -15)
9857  idata = idata + 1
9858  data_tmp = full_data(idata)
9859  data_tmp = ishft(data_tmp, 49)
9860  pack_tmp = ior(pack_tmp, data_tmp)
9861  pack_tmp = ishft(pack_tmp, -5)
9862  idata = idata + 1
9863  data_tmp = full_data(idata)
9864  data_tmp = ishft(data_tmp, 49)
9865  data_tmp = iand(data_tmp, mask_left(5))
9866  pack_tmp = ior(pack_tmp, data_tmp)
9867  ipack = ipack + 1
9868  packed_data(ipack) = pack_tmp
9869  data_tmp = full_data(idata)
9870  pack_tmp = ishft(data_tmp, 54)
9871  pack_tmp = ishft(pack_tmp, -15)
9872  idata = idata + 1
9873  data_tmp = full_data(idata)
9874  data_tmp = ishft(data_tmp, 49)
9875  pack_tmp = ior(pack_tmp, data_tmp)
9876  pack_tmp = ishft(pack_tmp, -15)
9877  idata = idata + 1
9878  data_tmp = full_data(idata)
9879  data_tmp = ishft(data_tmp, 49)
9880  pack_tmp = ior(pack_tmp, data_tmp)
9881  pack_tmp = ishft(pack_tmp, -15)
9882  idata = idata + 1
9883  data_tmp = full_data(idata)
9884  data_tmp = ishft(data_tmp, 49)
9885  pack_tmp = ior(pack_tmp, data_tmp)
9886  pack_tmp = ishft(pack_tmp, -9)
9887  idata = idata + 1
9888  data_tmp = full_data(idata)
9889  data_tmp = ishft(data_tmp, 49)
9890  data_tmp = iand(data_tmp, mask_left(9))
9891  pack_tmp = ior(pack_tmp, data_tmp)
9892  ipack = ipack + 1
9893  packed_data(ipack) = pack_tmp
9894  data_tmp = full_data(idata)
9895  pack_tmp = ishft(data_tmp, 58)
9896  pack_tmp = ishft(pack_tmp, -15)
9897  idata = idata + 1
9898  data_tmp = full_data(idata)
9899  data_tmp = ishft(data_tmp, 49)
9900  pack_tmp = ior(pack_tmp, data_tmp)
9901  pack_tmp = ishft(pack_tmp, -15)
9902  idata = idata + 1
9903  data_tmp = full_data(idata)
9904  data_tmp = ishft(data_tmp, 49)
9905  pack_tmp = ior(pack_tmp, data_tmp)
9906  pack_tmp = ishft(pack_tmp, -15)
9907  idata = idata + 1
9908  data_tmp = full_data(idata)
9909  data_tmp = ishft(data_tmp, 49)
9910  pack_tmp = ior(pack_tmp, data_tmp)
9911  pack_tmp = ishft(pack_tmp, -13)
9912  idata = idata + 1
9913  data_tmp = full_data(idata)
9914  data_tmp = ishft(data_tmp, 49)
9915  data_tmp = iand(data_tmp, mask_left(13))
9916  pack_tmp = ior(pack_tmp, data_tmp)
9917  ipack = ipack + 1
9918  packed_data(ipack) = pack_tmp
9919  data_tmp = full_data(idata)
9920  pack_tmp = ishft(data_tmp, 62)
9921  pack_tmp = ishft(pack_tmp, -15)
9922  idata = idata + 1
9923  data_tmp = full_data(idata)
9924  data_tmp = ishft(data_tmp, 49)
9925  pack_tmp = ior(pack_tmp, data_tmp)
9926  pack_tmp = ishft(pack_tmp, -15)
9927  idata = idata + 1
9928  data_tmp = full_data(idata)
9929  data_tmp = ishft(data_tmp, 49)
9930  pack_tmp = ior(pack_tmp, data_tmp)
9931  pack_tmp = ishft(pack_tmp, -15)
9932  idata = idata + 1
9933  data_tmp = full_data(idata)
9934  data_tmp = ishft(data_tmp, 49)
9935  pack_tmp = ior(pack_tmp, data_tmp)
9936  pack_tmp = ishft(pack_tmp, -15)
9937  idata = idata + 1
9938  data_tmp = full_data(idata)
9939  data_tmp = ishft(data_tmp, 49)
9940  pack_tmp = ior(pack_tmp, data_tmp)
9941  pack_tmp = ishft(pack_tmp, -2)
9942  idata = idata + 1
9943  data_tmp = full_data(idata)
9944  data_tmp = ishft(data_tmp, 49)
9945  data_tmp = iand(data_tmp, mask_left(2))
9946  pack_tmp = ior(pack_tmp, data_tmp)
9947  ipack = ipack + 1
9948  packed_data(ipack) = pack_tmp
9949  data_tmp = full_data(idata)
9950  pack_tmp = ishft(data_tmp, 51)
9951  pack_tmp = ishft(pack_tmp, -15)
9952  idata = idata + 1
9953  data_tmp = full_data(idata)
9954  data_tmp = ishft(data_tmp, 49)
9955  pack_tmp = ior(pack_tmp, data_tmp)
9956  pack_tmp = ishft(pack_tmp, -15)
9957  idata = idata + 1
9958  data_tmp = full_data(idata)
9959  data_tmp = ishft(data_tmp, 49)
9960  pack_tmp = ior(pack_tmp, data_tmp)
9961  pack_tmp = ishft(pack_tmp, -15)
9962  idata = idata + 1
9963  data_tmp = full_data(idata)
9964  data_tmp = ishft(data_tmp, 49)
9965  pack_tmp = ior(pack_tmp, data_tmp)
9966  pack_tmp = ishft(pack_tmp, -6)
9967  idata = idata + 1
9968  data_tmp = full_data(idata)
9969  data_tmp = ishft(data_tmp, 49)
9970  data_tmp = iand(data_tmp, mask_left(6))
9971  pack_tmp = ior(pack_tmp, data_tmp)
9972  ipack = ipack + 1
9973  packed_data(ipack) = pack_tmp
9974  data_tmp = full_data(idata)
9975  pack_tmp = ishft(data_tmp, 55)
9976  pack_tmp = ishft(pack_tmp, -15)
9977  idata = idata + 1
9978  data_tmp = full_data(idata)
9979  data_tmp = ishft(data_tmp, 49)
9980  pack_tmp = ior(pack_tmp, data_tmp)
9981  pack_tmp = ishft(pack_tmp, -15)
9982  idata = idata + 1
9983  data_tmp = full_data(idata)
9984  data_tmp = ishft(data_tmp, 49)
9985  pack_tmp = ior(pack_tmp, data_tmp)
9986  pack_tmp = ishft(pack_tmp, -15)
9987  idata = idata + 1
9988  data_tmp = full_data(idata)
9989  data_tmp = ishft(data_tmp, 49)
9990  pack_tmp = ior(pack_tmp, data_tmp)
9991  pack_tmp = ishft(pack_tmp, -10)
9992  idata = idata + 1
9993  data_tmp = full_data(idata)
9994  data_tmp = ishft(data_tmp, 49)
9995  data_tmp = iand(data_tmp, mask_left(10))
9996  pack_tmp = ior(pack_tmp, data_tmp)
9997  ipack = ipack + 1
9998  packed_data(ipack) = pack_tmp
9999  data_tmp = full_data(idata)
10000  pack_tmp = ishft(data_tmp, 59)
10001  pack_tmp = ishft(pack_tmp, -15)
10002  idata = idata + 1
10003  data_tmp = full_data(idata)
10004  data_tmp = ishft(data_tmp, 49)
10005  pack_tmp = ior(pack_tmp, data_tmp)
10006  pack_tmp = ishft(pack_tmp, -15)
10007  idata = idata + 1
10008  data_tmp = full_data(idata)
10009  data_tmp = ishft(data_tmp, 49)
10010  pack_tmp = ior(pack_tmp, data_tmp)
10011  pack_tmp = ishft(pack_tmp, -15)
10012  idata = idata + 1
10013  data_tmp = full_data(idata)
10014  data_tmp = ishft(data_tmp, 49)
10015  pack_tmp = ior(pack_tmp, data_tmp)
10016  pack_tmp = ishft(pack_tmp, -14)
10017  idata = idata + 1
10018  data_tmp = full_data(idata)
10019  data_tmp = ishft(data_tmp, 49)
10020  data_tmp = iand(data_tmp, mask_left(14))
10021  pack_tmp = ior(pack_tmp, data_tmp)
10022  ipack = ipack + 1
10023  packed_data(ipack) = pack_tmp
10024  data_tmp = full_data(idata)
10025  pack_tmp = ishft(data_tmp, 63)
10026  pack_tmp = ishft(pack_tmp, -15)
10027  idata = idata + 1
10028  data_tmp = full_data(idata)
10029  data_tmp = ishft(data_tmp, 49)
10030  pack_tmp = ior(pack_tmp, data_tmp)
10031  pack_tmp = ishft(pack_tmp, -15)
10032  idata = idata + 1
10033  data_tmp = full_data(idata)
10034  data_tmp = ishft(data_tmp, 49)
10035  pack_tmp = ior(pack_tmp, data_tmp)
10036  pack_tmp = ishft(pack_tmp, -15)
10037  idata = idata + 1
10038  data_tmp = full_data(idata)
10039  data_tmp = ishft(data_tmp, 49)
10040  pack_tmp = ior(pack_tmp, data_tmp)
10041  pack_tmp = ishft(pack_tmp, -15)
10042  idata = idata + 1
10043  data_tmp = full_data(idata)
10044  data_tmp = ishft(data_tmp, 49)
10045  pack_tmp = ior(pack_tmp, data_tmp)
10046  pack_tmp = ishft(pack_tmp, -3)
10047  idata = idata + 1
10048  data_tmp = full_data(idata)
10049  data_tmp = ishft(data_tmp, 49)
10050  data_tmp = iand(data_tmp, mask_left(3))
10051  pack_tmp = ior(pack_tmp, data_tmp)
10052  ipack = ipack + 1
10053  packed_data(ipack) = pack_tmp
10054  data_tmp = full_data(idata)
10055  pack_tmp = ishft(data_tmp, 52)
10056  pack_tmp = ishft(pack_tmp, -15)
10057  idata = idata + 1
10058  data_tmp = full_data(idata)
10059  data_tmp = ishft(data_tmp, 49)
10060  pack_tmp = ior(pack_tmp, data_tmp)
10061  pack_tmp = ishft(pack_tmp, -15)
10062  idata = idata + 1
10063  data_tmp = full_data(idata)
10064  data_tmp = ishft(data_tmp, 49)
10065  pack_tmp = ior(pack_tmp, data_tmp)
10066  pack_tmp = ishft(pack_tmp, -15)
10067  idata = idata + 1
10068  data_tmp = full_data(idata)
10069  data_tmp = ishft(data_tmp, 49)
10070  pack_tmp = ior(pack_tmp, data_tmp)
10071  pack_tmp = ishft(pack_tmp, -7)
10072  idata = idata + 1
10073  data_tmp = full_data(idata)
10074  data_tmp = ishft(data_tmp, 49)
10075  data_tmp = iand(data_tmp, mask_left(7))
10076  pack_tmp = ior(pack_tmp, data_tmp)
10077  ipack = ipack + 1
10078  packed_data(ipack) = pack_tmp
10079  data_tmp = full_data(idata)
10080  pack_tmp = ishft(data_tmp, 56)
10081  pack_tmp = ishft(pack_tmp, -15)
10082  idata = idata + 1
10083  data_tmp = full_data(idata)
10084  data_tmp = ishft(data_tmp, 49)
10085  pack_tmp = ior(pack_tmp, data_tmp)
10086  pack_tmp = ishft(pack_tmp, -15)
10087  idata = idata + 1
10088  data_tmp = full_data(idata)
10089  data_tmp = ishft(data_tmp, 49)
10090  pack_tmp = ior(pack_tmp, data_tmp)
10091  pack_tmp = ishft(pack_tmp, -15)
10092  idata = idata + 1
10093  data_tmp = full_data(idata)
10094  data_tmp = ishft(data_tmp, 49)
10095  pack_tmp = ior(pack_tmp, data_tmp)
10096  pack_tmp = ishft(pack_tmp, -11)
10097  idata = idata + 1
10098  data_tmp = full_data(idata)
10099  data_tmp = ishft(data_tmp, 49)
10100  data_tmp = iand(data_tmp, mask_left(11))
10101  pack_tmp = ior(pack_tmp, data_tmp)
10102  ipack = ipack + 1
10103  packed_data(ipack) = pack_tmp
10104  data_tmp = full_data(idata)
10105  pack_tmp = ishft(data_tmp, 60)
10106  pack_tmp = ishft(pack_tmp, -15)
10107  idata = idata + 1
10108  data_tmp = full_data(idata)
10109  data_tmp = ishft(data_tmp, 49)
10110  pack_tmp = ior(pack_tmp, data_tmp)
10111  pack_tmp = ishft(pack_tmp, -15)
10112  idata = idata + 1
10113  data_tmp = full_data(idata)
10114  data_tmp = ishft(data_tmp, 49)
10115  pack_tmp = ior(pack_tmp, data_tmp)
10116  pack_tmp = ishft(pack_tmp, -15)
10117  idata = idata + 1
10118  data_tmp = full_data(idata)
10119  data_tmp = ishft(data_tmp, 49)
10120  pack_tmp = ior(pack_tmp, data_tmp)
10121  pack_tmp = ishft(pack_tmp, -15)
10122  idata = idata + 1
10123  data_tmp = full_data(idata)
10124  data_tmp = ishft(data_tmp, 49)
10125  pack_tmp = ior(pack_tmp, data_tmp)
10126  pack_tmp = ishft(pack_tmp, 0)
10127  pack_tmp = ishft(pack_tmp, 0)
10128  ipack = ipack + 1
10129  packed_data(ipack) = pack_tmp
10130  END DO
10131  IF (ndata_rep < ndata) THEN
10132  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
10133  END IF
10134  END SUBROUTINE ints2bits_15
10135 
10136 ! **************************************************************************************************
10137 !> \brief ...
10138 !> \param Ndata ...
10139 !> \param packed_data ...
10140 !> \param full_data ...
10141 ! **************************************************************************************************
10142  SUBROUTINE bits2ints_15(Ndata, packed_data, full_data)
10143  INTEGER, INTENT(IN) :: Ndata
10144  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
10145  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
10146 
10147  INTEGER, PARAMETER :: Nbits = 15
10148 
10149  INTEGER :: idata, ipack, kdata, Ndata_rep
10150  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
10151 
10152  ipack = 0
10153  idata = 0
10154  pack_tmp = 0
10155  ndata_rep = (ndata/64)*64
10156  DO kdata = 1, ndata_rep, 64
10157  idata = idata + 1
10158  data_tmp = ishft(pack_tmp, 15)
10159  ipack = ipack + 1
10160  pack_tmp = packed_data(ipack)
10161  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
10162  pack_tmp = ishft(pack_tmp, -15)
10163  idata = idata + 1
10164  data_tmp = iand(pack_tmp, mask_right(nbits))
10165  full_data(idata) = data_tmp
10166  pack_tmp = ishft(pack_tmp, -nbits)
10167  idata = idata + 1
10168  data_tmp = iand(pack_tmp, mask_right(nbits))
10169  full_data(idata) = data_tmp
10170  pack_tmp = ishft(pack_tmp, -nbits)
10171  idata = idata + 1
10172  data_tmp = iand(pack_tmp, mask_right(nbits))
10173  full_data(idata) = data_tmp
10174  pack_tmp = ishft(pack_tmp, -nbits)
10175  idata = idata + 1
10176  data_tmp = ishft(pack_tmp, 11)
10177  ipack = ipack + 1
10178  pack_tmp = packed_data(ipack)
10179  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
10180  pack_tmp = ishft(pack_tmp, -11)
10181  idata = idata + 1
10182  data_tmp = iand(pack_tmp, mask_right(nbits))
10183  full_data(idata) = data_tmp
10184  pack_tmp = ishft(pack_tmp, -nbits)
10185  idata = idata + 1
10186  data_tmp = iand(pack_tmp, mask_right(nbits))
10187  full_data(idata) = data_tmp
10188  pack_tmp = ishft(pack_tmp, -nbits)
10189  idata = idata + 1
10190  data_tmp = iand(pack_tmp, mask_right(nbits))
10191  full_data(idata) = data_tmp
10192  pack_tmp = ishft(pack_tmp, -nbits)
10193  idata = idata + 1
10194  data_tmp = ishft(pack_tmp, 7)
10195  ipack = ipack + 1
10196  pack_tmp = packed_data(ipack)
10197  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
10198  pack_tmp = ishft(pack_tmp, -7)
10199  idata = idata + 1
10200  data_tmp = iand(pack_tmp, mask_right(nbits))
10201  full_data(idata) = data_tmp
10202  pack_tmp = ishft(pack_tmp, -nbits)
10203  idata = idata + 1
10204  data_tmp = iand(pack_tmp, mask_right(nbits))
10205  full_data(idata) = data_tmp
10206  pack_tmp = ishft(pack_tmp, -nbits)
10207  idata = idata + 1
10208  data_tmp = iand(pack_tmp, mask_right(nbits))
10209  full_data(idata) = data_tmp
10210  pack_tmp = ishft(pack_tmp, -nbits)
10211  idata = idata + 1
10212  data_tmp = ishft(pack_tmp, 3)
10213  ipack = ipack + 1
10214  pack_tmp = packed_data(ipack)
10215  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
10216  pack_tmp = ishft(pack_tmp, -3)
10217  idata = idata + 1
10218  data_tmp = iand(pack_tmp, mask_right(nbits))
10219  full_data(idata) = data_tmp
10220  pack_tmp = ishft(pack_tmp, -nbits)
10221  idata = idata + 1
10222  data_tmp = iand(pack_tmp, mask_right(nbits))
10223  full_data(idata) = data_tmp
10224  pack_tmp = ishft(pack_tmp, -nbits)
10225  idata = idata + 1
10226  data_tmp = iand(pack_tmp, mask_right(nbits))
10227  full_data(idata) = data_tmp
10228  pack_tmp = ishft(pack_tmp, -nbits)
10229  idata = idata + 1
10230  data_tmp = iand(pack_tmp, mask_right(nbits))
10231  full_data(idata) = data_tmp
10232  pack_tmp = ishft(pack_tmp, -nbits)
10233  idata = idata + 1
10234  data_tmp = ishft(pack_tmp, 14)
10235  ipack = ipack + 1
10236  pack_tmp = packed_data(ipack)
10237  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
10238  pack_tmp = ishft(pack_tmp, -14)
10239  idata = idata + 1
10240  data_tmp = iand(pack_tmp, mask_right(nbits))
10241  full_data(idata) = data_tmp
10242  pack_tmp = ishft(pack_tmp, -nbits)
10243  idata = idata + 1
10244  data_tmp = iand(pack_tmp, mask_right(nbits))
10245  full_data(idata) = data_tmp
10246  pack_tmp = ishft(pack_tmp, -nbits)
10247  idata = idata + 1
10248  data_tmp = iand(pack_tmp, mask_right(nbits))
10249  full_data(idata) = data_tmp
10250  pack_tmp = ishft(pack_tmp, -nbits)
10251  idata = idata + 1
10252  data_tmp = ishft(pack_tmp, 10)
10253  ipack = ipack + 1
10254  pack_tmp = packed_data(ipack)
10255  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
10256  pack_tmp = ishft(pack_tmp, -10)
10257  idata = idata + 1
10258  data_tmp = iand(pack_tmp, mask_right(nbits))
10259  full_data(idata) = data_tmp
10260  pack_tmp = ishft(pack_tmp, -nbits)
10261  idata = idata + 1
10262  data_tmp = iand(pack_tmp, mask_right(nbits))
10263  full_data(idata) = data_tmp
10264  pack_tmp = ishft(pack_tmp, -nbits)
10265  idata = idata + 1
10266  data_tmp = iand(pack_tmp, mask_right(nbits))
10267  full_data(idata) = data_tmp
10268  pack_tmp = ishft(pack_tmp, -nbits)
10269  idata = idata + 1
10270  data_tmp = ishft(pack_tmp, 6)
10271  ipack = ipack + 1
10272  pack_tmp = packed_data(ipack)
10273  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
10274  pack_tmp = ishft(pack_tmp, -6)
10275  idata = idata + 1
10276  data_tmp = iand(pack_tmp, mask_right(nbits))
10277  full_data(idata) = data_tmp
10278  pack_tmp = ishft(pack_tmp, -nbits)
10279  idata = idata + 1
10280  data_tmp = iand(pack_tmp, mask_right(nbits))
10281  full_data(idata) = data_tmp
10282  pack_tmp = ishft(pack_tmp, -nbits)
10283  idata = idata + 1
10284  data_tmp = iand(pack_tmp, mask_right(nbits))
10285  full_data(idata) = data_tmp
10286  pack_tmp = ishft(pack_tmp, -nbits)
10287  idata = idata + 1
10288  data_tmp = ishft(pack_tmp, 2)
10289  ipack = ipack + 1
10290  pack_tmp = packed_data(ipack)
10291  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
10292  pack_tmp = ishft(pack_tmp, -2)
10293  idata = idata + 1
10294  data_tmp = iand(pack_tmp, mask_right(nbits))
10295  full_data(idata) = data_tmp
10296  pack_tmp = ishft(pack_tmp, -nbits)
10297  idata = idata + 1
10298  data_tmp = iand(pack_tmp, mask_right(nbits))
10299  full_data(idata) = data_tmp
10300  pack_tmp = ishft(pack_tmp, -nbits)
10301  idata = idata + 1
10302  data_tmp = iand(pack_tmp, mask_right(nbits))
10303  full_data(idata) = data_tmp
10304  pack_tmp = ishft(pack_tmp, -nbits)
10305  idata = idata + 1
10306  data_tmp = iand(pack_tmp, mask_right(nbits))
10307  full_data(idata) = data_tmp
10308  pack_tmp = ishft(pack_tmp, -nbits)
10309  idata = idata + 1
10310  data_tmp = ishft(pack_tmp, 13)
10311  ipack = ipack + 1
10312  pack_tmp = packed_data(ipack)
10313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
10314  pack_tmp = ishft(pack_tmp, -13)
10315  idata = idata + 1
10316  data_tmp = iand(pack_tmp, mask_right(nbits))
10317  full_data(idata) = data_tmp
10318  pack_tmp = ishft(pack_tmp, -nbits)
10319  idata = idata + 1
10320  data_tmp = iand(pack_tmp, mask_right(nbits))
10321  full_data(idata) = data_tmp
10322  pack_tmp = ishft(pack_tmp, -nbits)
10323  idata = idata + 1
10324  data_tmp = iand(pack_tmp, mask_right(nbits))
10325  full_data(idata) = data_tmp
10326  pack_tmp = ishft(pack_tmp, -nbits)
10327  idata = idata + 1
10328  data_tmp = ishft(pack_tmp, 9)
10329  ipack = ipack + 1
10330  pack_tmp = packed_data(ipack)
10331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
10332  pack_tmp = ishft(pack_tmp, -9)
10333  idata = idata + 1
10334  data_tmp = iand(pack_tmp, mask_right(nbits))
10335  full_data(idata) = data_tmp
10336  pack_tmp = ishft(pack_tmp, -nbits)
10337  idata = idata + 1
10338  data_tmp = iand(pack_tmp, mask_right(nbits))
10339  full_data(idata) = data_tmp
10340  pack_tmp = ishft(pack_tmp, -nbits)
10341  idata = idata + 1
10342  data_tmp = iand(pack_tmp, mask_right(nbits))
10343  full_data(idata) = data_tmp
10344  pack_tmp = ishft(pack_tmp, -nbits)
10345  idata = idata + 1
10346  data_tmp = ishft(pack_tmp, 5)
10347  ipack = ipack + 1
10348  pack_tmp = packed_data(ipack)
10349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
10350  pack_tmp = ishft(pack_tmp, -5)
10351  idata = idata + 1
10352  data_tmp = iand(pack_tmp, mask_right(nbits))
10353  full_data(idata) = data_tmp
10354  pack_tmp = ishft(pack_tmp, -nbits)
10355  idata = idata + 1
10356  data_tmp = iand(pack_tmp, mask_right(nbits))
10357  full_data(idata) = data_tmp
10358  pack_tmp = ishft(pack_tmp, -nbits)
10359  idata = idata + 1
10360  data_tmp = iand(pack_tmp, mask_right(nbits))
10361  full_data(idata) = data_tmp
10362  pack_tmp = ishft(pack_tmp, -nbits)
10363  idata = idata + 1
10364  data_tmp = ishft(pack_tmp, 1)
10365  ipack = ipack + 1
10366  pack_tmp = packed_data(ipack)
10367  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
10368  pack_tmp = ishft(pack_tmp, -1)
10369  idata = idata + 1
10370  data_tmp = iand(pack_tmp, mask_right(nbits))
10371  full_data(idata) = data_tmp
10372  pack_tmp = ishft(pack_tmp, -nbits)
10373  idata = idata + 1
10374  data_tmp = iand(pack_tmp, mask_right(nbits))
10375  full_data(idata) = data_tmp
10376  pack_tmp = ishft(pack_tmp, -nbits)
10377  idata = idata + 1
10378  data_tmp = iand(pack_tmp, mask_right(nbits))
10379  full_data(idata) = data_tmp
10380  pack_tmp = ishft(pack_tmp, -nbits)
10381  idata = idata + 1
10382  data_tmp = iand(pack_tmp, mask_right(nbits))
10383  full_data(idata) = data_tmp
10384  pack_tmp = ishft(pack_tmp, -nbits)
10385  idata = idata + 1
10386  data_tmp = ishft(pack_tmp, 12)
10387  ipack = ipack + 1
10388  pack_tmp = packed_data(ipack)
10389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
10390  pack_tmp = ishft(pack_tmp, -12)
10391  idata = idata + 1
10392  data_tmp = iand(pack_tmp, mask_right(nbits))
10393  full_data(idata) = data_tmp
10394  pack_tmp = ishft(pack_tmp, -nbits)
10395  idata = idata + 1
10396  data_tmp = iand(pack_tmp, mask_right(nbits))
10397  full_data(idata) = data_tmp
10398  pack_tmp = ishft(pack_tmp, -nbits)
10399  idata = idata + 1
10400  data_tmp = iand(pack_tmp, mask_right(nbits))
10401  full_data(idata) = data_tmp
10402  pack_tmp = ishft(pack_tmp, -nbits)
10403  idata = idata + 1
10404  data_tmp = ishft(pack_tmp, 8)
10405  ipack = ipack + 1
10406  pack_tmp = packed_data(ipack)
10407  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
10408  pack_tmp = ishft(pack_tmp, -8)
10409  idata = idata + 1
10410  data_tmp = iand(pack_tmp, mask_right(nbits))
10411  full_data(idata) = data_tmp
10412  pack_tmp = ishft(pack_tmp, -nbits)
10413  idata = idata + 1
10414  data_tmp = iand(pack_tmp, mask_right(nbits))
10415  full_data(idata) = data_tmp
10416  pack_tmp = ishft(pack_tmp, -nbits)
10417  idata = idata + 1
10418  data_tmp = iand(pack_tmp, mask_right(nbits))
10419  full_data(idata) = data_tmp
10420  pack_tmp = ishft(pack_tmp, -nbits)
10421  idata = idata + 1
10422  data_tmp = ishft(pack_tmp, 4)
10423  ipack = ipack + 1
10424  pack_tmp = packed_data(ipack)
10425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
10426  pack_tmp = ishft(pack_tmp, -4)
10427  idata = idata + 1
10428  data_tmp = iand(pack_tmp, mask_right(nbits))
10429  full_data(idata) = data_tmp
10430  pack_tmp = ishft(pack_tmp, -nbits)
10431  idata = idata + 1
10432  data_tmp = iand(pack_tmp, mask_right(nbits))
10433  full_data(idata) = data_tmp
10434  pack_tmp = ishft(pack_tmp, -nbits)
10435  idata = idata + 1
10436  data_tmp = iand(pack_tmp, mask_right(nbits))
10437  full_data(idata) = data_tmp
10438  pack_tmp = ishft(pack_tmp, -nbits)
10439  idata = idata + 1
10440  data_tmp = iand(pack_tmp, mask_right(nbits))
10441  full_data(idata) = data_tmp
10442  pack_tmp = ishft(pack_tmp, -nbits)
10443  END DO
10444  IF (ndata_rep < ndata) THEN
10445  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
10446  END IF
10447  END SUBROUTINE bits2ints_15
10448 
10449 ! **************************************************************************************************
10450 !> \brief ...
10451 !> \param Ndata ...
10452 !> \param packed_data ...
10453 !> \param full_data ...
10454 ! **************************************************************************************************
10455  SUBROUTINE ints2bits_16(Ndata, packed_data, full_data)
10456  INTEGER, INTENT(IN) :: Ndata
10457  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
10458  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
10459 
10460  INTEGER, PARAMETER :: Nbits = 16
10461 
10462  INTEGER :: idata, ipack, kdata, Ndata_rep
10463  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
10464 
10465  idata = 0
10466  ipack = 0
10467  ndata_rep = (ndata/64)*64
10468  DO kdata = 1, ndata_rep, 64
10469  pack_tmp = 0
10470  idata = idata + 1
10471  data_tmp = full_data(idata)
10472  data_tmp = ishft(data_tmp, 48)
10473  pack_tmp = ior(pack_tmp, data_tmp)
10474  pack_tmp = ishft(pack_tmp, -16)
10475  idata = idata + 1
10476  data_tmp = full_data(idata)
10477  data_tmp = ishft(data_tmp, 48)
10478  pack_tmp = ior(pack_tmp, data_tmp)
10479  pack_tmp = ishft(pack_tmp, -16)
10480  idata = idata + 1
10481  data_tmp = full_data(idata)
10482  data_tmp = ishft(data_tmp, 48)
10483  pack_tmp = ior(pack_tmp, data_tmp)
10484  pack_tmp = ishft(pack_tmp, -16)
10485  idata = idata + 1
10486  data_tmp = full_data(idata)
10487  data_tmp = ishft(data_tmp, 48)
10488  pack_tmp = ior(pack_tmp, data_tmp)
10489  pack_tmp = ishft(pack_tmp, 0)
10490  idata = idata + 1
10491  data_tmp = full_data(idata)
10492  data_tmp = ishft(data_tmp, 48)
10493  data_tmp = iand(data_tmp, mask_left(0))
10494  pack_tmp = ior(pack_tmp, data_tmp)
10495  ipack = ipack + 1
10496  packed_data(ipack) = pack_tmp
10497  data_tmp = full_data(idata)
10498  pack_tmp = ishft(data_tmp, 48)
10499  pack_tmp = ishft(pack_tmp, -16)
10500  idata = idata + 1
10501  data_tmp = full_data(idata)
10502  data_tmp = ishft(data_tmp, 48)
10503  pack_tmp = ior(pack_tmp, data_tmp)
10504  pack_tmp = ishft(pack_tmp, -16)
10505  idata = idata + 1
10506  data_tmp = full_data(idata)
10507  data_tmp = ishft(data_tmp, 48)
10508  pack_tmp = ior(pack_tmp, data_tmp)
10509  pack_tmp = ishft(pack_tmp, -16)
10510  idata = idata + 1
10511  data_tmp = full_data(idata)
10512  data_tmp = ishft(data_tmp, 48)
10513  pack_tmp = ior(pack_tmp, data_tmp)
10514  pack_tmp = ishft(pack_tmp, 0)
10515  idata = idata + 1
10516  data_tmp = full_data(idata)
10517  data_tmp = ishft(data_tmp, 48)
10518  data_tmp = iand(data_tmp, mask_left(0))
10519  pack_tmp = ior(pack_tmp, data_tmp)
10520  ipack = ipack + 1
10521  packed_data(ipack) = pack_tmp
10522  data_tmp = full_data(idata)
10523  pack_tmp = ishft(data_tmp, 48)
10524  pack_tmp = ishft(pack_tmp, -16)
10525  idata = idata + 1
10526  data_tmp = full_data(idata)
10527  data_tmp = ishft(data_tmp, 48)
10528  pack_tmp = ior(pack_tmp, data_tmp)
10529  pack_tmp = ishft(pack_tmp, -16)
10530  idata = idata + 1
10531  data_tmp = full_data(idata)
10532  data_tmp = ishft(data_tmp, 48)
10533  pack_tmp = ior(pack_tmp, data_tmp)
10534  pack_tmp = ishft(pack_tmp, -16)
10535  idata = idata + 1
10536  data_tmp = full_data(idata)
10537  data_tmp = ishft(data_tmp, 48)
10538  pack_tmp = ior(pack_tmp, data_tmp)
10539  pack_tmp = ishft(pack_tmp, 0)
10540  idata = idata + 1
10541  data_tmp = full_data(idata)
10542  data_tmp = ishft(data_tmp, 48)
10543  data_tmp = iand(data_tmp, mask_left(0))
10544  pack_tmp = ior(pack_tmp, data_tmp)
10545  ipack = ipack + 1
10546  packed_data(ipack) = pack_tmp
10547  data_tmp = full_data(idata)
10548  pack_tmp = ishft(data_tmp, 48)
10549  pack_tmp = ishft(pack_tmp, -16)
10550  idata = idata + 1
10551  data_tmp = full_data(idata)
10552  data_tmp = ishft(data_tmp, 48)
10553  pack_tmp = ior(pack_tmp, data_tmp)
10554  pack_tmp = ishft(pack_tmp, -16)
10555  idata = idata + 1
10556  data_tmp = full_data(idata)
10557  data_tmp = ishft(data_tmp, 48)
10558  pack_tmp = ior(pack_tmp, data_tmp)
10559  pack_tmp = ishft(pack_tmp, -16)
10560  idata = idata + 1
10561  data_tmp = full_data(idata)
10562  data_tmp = ishft(data_tmp, 48)
10563  pack_tmp = ior(pack_tmp, data_tmp)
10564  pack_tmp = ishft(pack_tmp, 0)
10565  idata = idata + 1
10566  data_tmp = full_data(idata)
10567  data_tmp = ishft(data_tmp, 48)
10568  data_tmp = iand(data_tmp, mask_left(0))
10569  pack_tmp = ior(pack_tmp, data_tmp)
10570  ipack = ipack + 1
10571  packed_data(ipack) = pack_tmp
10572  data_tmp = full_data(idata)
10573  pack_tmp = ishft(data_tmp, 48)
10574  pack_tmp = ishft(pack_tmp, -16)
10575  idata = idata + 1
10576  data_tmp = full_data(idata)
10577  data_tmp = ishft(data_tmp, 48)
10578  pack_tmp = ior(pack_tmp, data_tmp)
10579  pack_tmp = ishft(pack_tmp, -16)
10580  idata = idata + 1
10581  data_tmp = full_data(idata)
10582  data_tmp = ishft(data_tmp, 48)
10583  pack_tmp = ior(pack_tmp, data_tmp)
10584  pack_tmp = ishft(pack_tmp, -16)
10585  idata = idata + 1
10586  data_tmp = full_data(idata)
10587  data_tmp = ishft(data_tmp, 48)
10588  pack_tmp = ior(pack_tmp, data_tmp)
10589  pack_tmp = ishft(pack_tmp, 0)
10590  idata = idata + 1
10591  data_tmp = full_data(idata)
10592  data_tmp = ishft(data_tmp, 48)
10593  data_tmp = iand(data_tmp, mask_left(0))
10594  pack_tmp = ior(pack_tmp, data_tmp)
10595  ipack = ipack + 1
10596  packed_data(ipack) = pack_tmp
10597  data_tmp = full_data(idata)
10598  pack_tmp = ishft(data_tmp, 48)
10599  pack_tmp = ishft(pack_tmp, -16)
10600  idata = idata + 1
10601  data_tmp = full_data(idata)
10602  data_tmp = ishft(data_tmp, 48)
10603  pack_tmp = ior(pack_tmp, data_tmp)
10604  pack_tmp = ishft(pack_tmp, -16)
10605  idata = idata + 1
10606  data_tmp = full_data(idata)
10607  data_tmp = ishft(data_tmp, 48)
10608  pack_tmp = ior(pack_tmp, data_tmp)
10609  pack_tmp = ishft(pack_tmp, -16)
10610  idata = idata + 1
10611  data_tmp = full_data(idata)
10612  data_tmp = ishft(data_tmp, 48)
10613  pack_tmp = ior(pack_tmp, data_tmp)
10614  pack_tmp = ishft(pack_tmp, 0)
10615  idata = idata + 1
10616  data_tmp = full_data(idata)
10617  data_tmp = ishft(data_tmp, 48)
10618  data_tmp = iand(data_tmp, mask_left(0))
10619  pack_tmp = ior(pack_tmp, data_tmp)
10620  ipack = ipack + 1
10621  packed_data(ipack) = pack_tmp
10622  data_tmp = full_data(idata)
10623  pack_tmp = ishft(data_tmp, 48)
10624  pack_tmp = ishft(pack_tmp, -16)
10625  idata = idata + 1
10626  data_tmp = full_data(idata)
10627  data_tmp = ishft(data_tmp, 48)
10628  pack_tmp = ior(pack_tmp, data_tmp)
10629  pack_tmp = ishft(pack_tmp, -16)
10630  idata = idata + 1
10631  data_tmp = full_data(idata)
10632  data_tmp = ishft(data_tmp, 48)
10633  pack_tmp = ior(pack_tmp, data_tmp)
10634  pack_tmp = ishft(pack_tmp, -16)
10635  idata = idata + 1
10636  data_tmp = full_data(idata)
10637  data_tmp = ishft(data_tmp, 48)
10638  pack_tmp = ior(pack_tmp, data_tmp)
10639  pack_tmp = ishft(pack_tmp, 0)
10640  idata = idata + 1
10641  data_tmp = full_data(idata)
10642  data_tmp = ishft(data_tmp, 48)
10643  data_tmp = iand(data_tmp, mask_left(0))
10644  pack_tmp = ior(pack_tmp, data_tmp)
10645  ipack = ipack + 1
10646  packed_data(ipack) = pack_tmp
10647  data_tmp = full_data(idata)
10648  pack_tmp = ishft(data_tmp, 48)
10649  pack_tmp = ishft(pack_tmp, -16)
10650  idata = idata + 1
10651  data_tmp = full_data(idata)
10652  data_tmp = ishft(data_tmp, 48)
10653  pack_tmp = ior(pack_tmp, data_tmp)
10654  pack_tmp = ishft(pack_tmp, -16)
10655  idata = idata + 1
10656  data_tmp = full_data(idata)
10657  data_tmp = ishft(data_tmp, 48)
10658  pack_tmp = ior(pack_tmp, data_tmp)
10659  pack_tmp = ishft(pack_tmp, -16)
10660  idata = idata + 1
10661  data_tmp = full_data(idata)
10662  data_tmp = ishft(data_tmp, 48)
10663  pack_tmp = ior(pack_tmp, data_tmp)
10664  pack_tmp = ishft(pack_tmp, 0)
10665  idata = idata + 1
10666  data_tmp = full_data(idata)
10667  data_tmp = ishft(data_tmp, 48)
10668  data_tmp = iand(data_tmp, mask_left(0))
10669  pack_tmp = ior(pack_tmp, data_tmp)
10670  ipack = ipack + 1
10671  packed_data(ipack) = pack_tmp
10672  data_tmp = full_data(idata)
10673  pack_tmp = ishft(data_tmp, 48)
10674  pack_tmp = ishft(pack_tmp, -16)
10675  idata = idata + 1
10676  data_tmp = full_data(idata)
10677  data_tmp = ishft(data_tmp, 48)
10678  pack_tmp = ior(pack_tmp, data_tmp)
10679  pack_tmp = ishft(pack_tmp, -16)
10680  idata = idata + 1
10681  data_tmp = full_data(idata)
10682  data_tmp = ishft(data_tmp, 48)
10683  pack_tmp = ior(pack_tmp, data_tmp)
10684  pack_tmp = ishft(pack_tmp, -16)
10685  idata = idata + 1
10686  data_tmp = full_data(idata)
10687  data_tmp = ishft(data_tmp, 48)
10688  pack_tmp = ior(pack_tmp, data_tmp)
10689  pack_tmp = ishft(pack_tmp, 0)
10690  idata = idata + 1
10691  data_tmp = full_data(idata)
10692  data_tmp = ishft(data_tmp, 48)
10693  data_tmp = iand(data_tmp, mask_left(0))
10694  pack_tmp = ior(pack_tmp, data_tmp)
10695  ipack = ipack + 1
10696  packed_data(ipack) = pack_tmp
10697  data_tmp = full_data(idata)
10698  pack_tmp = ishft(data_tmp, 48)
10699  pack_tmp = ishft(pack_tmp, -16)
10700  idata = idata + 1
10701  data_tmp = full_data(idata)
10702  data_tmp = ishft(data_tmp, 48)
10703  pack_tmp = ior(pack_tmp, data_tmp)
10704  pack_tmp = ishft(pack_tmp, -16)
10705  idata = idata + 1
10706  data_tmp = full_data(idata)
10707  data_tmp = ishft(data_tmp, 48)
10708  pack_tmp = ior(pack_tmp, data_tmp)
10709  pack_tmp = ishft(pack_tmp, -16)
10710  idata = idata + 1
10711  data_tmp = full_data(idata)
10712  data_tmp = ishft(data_tmp, 48)
10713  pack_tmp = ior(pack_tmp, data_tmp)
10714  pack_tmp = ishft(pack_tmp, 0)
10715  idata = idata + 1
10716  data_tmp = full_data(idata)
10717  data_tmp = ishft(data_tmp, 48)
10718  data_tmp = iand(data_tmp, mask_left(0))
10719  pack_tmp = ior(pack_tmp, data_tmp)
10720  ipack = ipack + 1
10721  packed_data(ipack) = pack_tmp
10722  data_tmp = full_data(idata)
10723  pack_tmp = ishft(data_tmp, 48)
10724  pack_tmp = ishft(pack_tmp, -16)
10725  idata = idata + 1
10726  data_tmp = full_data(idata)
10727  data_tmp = ishft(data_tmp, 48)
10728  pack_tmp = ior(pack_tmp, data_tmp)
10729  pack_tmp = ishft(pack_tmp, -16)
10730  idata = idata + 1
10731  data_tmp = full_data(idata)
10732  data_tmp = ishft(data_tmp, 48)
10733  pack_tmp = ior(pack_tmp, data_tmp)
10734  pack_tmp = ishft(pack_tmp, -16)
10735  idata = idata + 1
10736  data_tmp = full_data(idata)
10737  data_tmp = ishft(data_tmp, 48)
10738  pack_tmp = ior(pack_tmp, data_tmp)
10739  pack_tmp = ishft(pack_tmp, 0)
10740  idata = idata + 1
10741  data_tmp = full_data(idata)
10742  data_tmp = ishft(data_tmp, 48)
10743  data_tmp = iand(data_tmp, mask_left(0))
10744  pack_tmp = ior(pack_tmp, data_tmp)
10745  ipack = ipack + 1
10746  packed_data(ipack) = pack_tmp
10747  data_tmp = full_data(idata)
10748  pack_tmp = ishft(data_tmp, 48)
10749  pack_tmp = ishft(pack_tmp, -16)
10750  idata = idata + 1
10751  data_tmp = full_data(idata)
10752  data_tmp = ishft(data_tmp, 48)
10753  pack_tmp = ior(pack_tmp, data_tmp)
10754  pack_tmp = ishft(pack_tmp, -16)
10755  idata = idata + 1
10756  data_tmp = full_data(idata)
10757  data_tmp = ishft(data_tmp, 48)
10758  pack_tmp = ior(pack_tmp, data_tmp)
10759  pack_tmp = ishft(pack_tmp, -16)
10760  idata = idata + 1
10761  data_tmp = full_data(idata)
10762  data_tmp = ishft(data_tmp, 48)
10763  pack_tmp = ior(pack_tmp, data_tmp)
10764  pack_tmp = ishft(pack_tmp, 0)
10765  idata = idata + 1
10766  data_tmp = full_data(idata)
10767  data_tmp = ishft(data_tmp, 48)
10768  data_tmp = iand(data_tmp, mask_left(0))
10769  pack_tmp = ior(pack_tmp, data_tmp)
10770  ipack = ipack + 1
10771  packed_data(ipack) = pack_tmp
10772  data_tmp = full_data(idata)
10773  pack_tmp = ishft(data_tmp, 48)
10774  pack_tmp = ishft(pack_tmp, -16)
10775  idata = idata + 1
10776  data_tmp = full_data(idata)
10777  data_tmp = ishft(data_tmp, 48)
10778  pack_tmp = ior(pack_tmp, data_tmp)
10779  pack_tmp = ishft(pack_tmp, -16)
10780  idata = idata + 1
10781  data_tmp = full_data(idata)
10782  data_tmp = ishft(data_tmp, 48)
10783  pack_tmp = ior(pack_tmp, data_tmp)
10784  pack_tmp = ishft(pack_tmp, -16)
10785  idata = idata + 1
10786  data_tmp = full_data(idata)
10787  data_tmp = ishft(data_tmp, 48)
10788  pack_tmp = ior(pack_tmp, data_tmp)
10789  pack_tmp = ishft(pack_tmp, 0)
10790  idata = idata + 1
10791  data_tmp = full_data(idata)
10792  data_tmp = ishft(data_tmp, 48)
10793  data_tmp = iand(data_tmp, mask_left(0))
10794  pack_tmp = ior(pack_tmp, data_tmp)
10795  ipack = ipack + 1
10796  packed_data(ipack) = pack_tmp
10797  data_tmp = full_data(idata)
10798  pack_tmp = ishft(data_tmp, 48)
10799  pack_tmp = ishft(pack_tmp, -16)
10800  idata = idata + 1
10801  data_tmp = full_data(idata)
10802  data_tmp = ishft(data_tmp, 48)
10803  pack_tmp = ior(pack_tmp, data_tmp)
10804  pack_tmp = ishft(pack_tmp, -16)
10805  idata = idata + 1
10806  data_tmp = full_data(idata)
10807  data_tmp = ishft(data_tmp, 48)
10808  pack_tmp = ior(pack_tmp, data_tmp)
10809  pack_tmp = ishft(pack_tmp, -16)
10810  idata = idata + 1
10811  data_tmp = full_data(idata)
10812  data_tmp = ishft(data_tmp, 48)
10813  pack_tmp = ior(pack_tmp, data_tmp)
10814  pack_tmp = ishft(pack_tmp, 0)
10815  idata = idata + 1
10816  data_tmp = full_data(idata)
10817  data_tmp = ishft(data_tmp, 48)
10818  data_tmp = iand(data_tmp, mask_left(0))
10819  pack_tmp = ior(pack_tmp, data_tmp)
10820  ipack = ipack + 1
10821  packed_data(ipack) = pack_tmp
10822  data_tmp = full_data(idata)
10823  pack_tmp = ishft(data_tmp, 48)
10824  pack_tmp = ishft(pack_tmp, -16)
10825  idata = idata + 1
10826  data_tmp = full_data(idata)
10827  data_tmp = ishft(data_tmp, 48)
10828  pack_tmp = ior(pack_tmp, data_tmp)
10829  pack_tmp = ishft(pack_tmp, -16)
10830  idata = idata + 1
10831  data_tmp = full_data(idata)
10832  data_tmp = ishft(data_tmp, 48)
10833  pack_tmp = ior(pack_tmp, data_tmp)
10834  pack_tmp = ishft(pack_tmp, -16)
10835  idata = idata + 1
10836  data_tmp = full_data(idata)
10837  data_tmp = ishft(data_tmp, 48)
10838  pack_tmp = ior(pack_tmp, data_tmp)
10839  pack_tmp = ishft(pack_tmp, 0)
10840  idata = idata + 1
10841  data_tmp = full_data(idata)
10842  data_tmp = ishft(data_tmp, 48)
10843  data_tmp = iand(data_tmp, mask_left(0))
10844  pack_tmp = ior(pack_tmp, data_tmp)
10845  ipack = ipack + 1
10846  packed_data(ipack) = pack_tmp
10847  data_tmp = full_data(idata)
10848  pack_tmp = ishft(data_tmp, 48)
10849  pack_tmp = ishft(pack_tmp, -16)
10850  idata = idata + 1
10851  data_tmp = full_data(idata)
10852  data_tmp = ishft(data_tmp, 48)
10853  pack_tmp = ior(pack_tmp, data_tmp)
10854  pack_tmp = ishft(pack_tmp, -16)
10855  idata = idata + 1
10856  data_tmp = full_data(idata)
10857  data_tmp = ishft(data_tmp, 48)
10858  pack_tmp = ior(pack_tmp, data_tmp)
10859  pack_tmp = ishft(pack_tmp, -16)
10860  idata = idata + 1
10861  data_tmp = full_data(idata)
10862  data_tmp = ishft(data_tmp, 48)
10863  pack_tmp = ior(pack_tmp, data_tmp)
10864  pack_tmp = ishft(pack_tmp, 0)
10865  pack_tmp = ishft(pack_tmp, 0)
10866  ipack = ipack + 1
10867  packed_data(ipack) = pack_tmp
10868  END DO
10869  IF (ndata_rep < ndata) THEN
10870  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
10871  END IF
10872  END SUBROUTINE ints2bits_16
10873 
10874 ! **************************************************************************************************
10875 !> \brief ...
10876 !> \param Ndata ...
10877 !> \param packed_data ...
10878 !> \param full_data ...
10879 ! **************************************************************************************************
10880  SUBROUTINE bits2ints_16(Ndata, packed_data, full_data)
10881  INTEGER, INTENT(IN) :: Ndata
10882  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
10883  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
10884 
10885  INTEGER, PARAMETER :: Nbits = 16
10886 
10887  INTEGER :: idata, ipack, kdata, Ndata_rep
10888  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
10889 
10890  ipack = 0
10891  idata = 0
10892  pack_tmp = 0
10893  ndata_rep = (ndata/64)*64
10894  DO kdata = 1, ndata_rep, 64
10895  idata = idata + 1
10896  data_tmp = ishft(pack_tmp, 16)
10897  ipack = ipack + 1
10898  pack_tmp = packed_data(ipack)
10899  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10900  pack_tmp = ishft(pack_tmp, -16)
10901  idata = idata + 1
10902  data_tmp = iand(pack_tmp, mask_right(nbits))
10903  full_data(idata) = data_tmp
10904  pack_tmp = ishft(pack_tmp, -nbits)
10905  idata = idata + 1
10906  data_tmp = iand(pack_tmp, mask_right(nbits))
10907  full_data(idata) = data_tmp
10908  pack_tmp = ishft(pack_tmp, -nbits)
10909  idata = idata + 1
10910  data_tmp = iand(pack_tmp, mask_right(nbits))
10911  full_data(idata) = data_tmp
10912  pack_tmp = ishft(pack_tmp, -nbits)
10913  idata = idata + 1
10914  data_tmp = ishft(pack_tmp, 16)
10915  ipack = ipack + 1
10916  pack_tmp = packed_data(ipack)
10917  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10918  pack_tmp = ishft(pack_tmp, -16)
10919  idata = idata + 1
10920  data_tmp = iand(pack_tmp, mask_right(nbits))
10921  full_data(idata) = data_tmp
10922  pack_tmp = ishft(pack_tmp, -nbits)
10923  idata = idata + 1
10924  data_tmp = iand(pack_tmp, mask_right(nbits))
10925  full_data(idata) = data_tmp
10926  pack_tmp = ishft(pack_tmp, -nbits)
10927  idata = idata + 1
10928  data_tmp = iand(pack_tmp, mask_right(nbits))
10929  full_data(idata) = data_tmp
10930  pack_tmp = ishft(pack_tmp, -nbits)
10931  idata = idata + 1
10932  data_tmp = ishft(pack_tmp, 16)
10933  ipack = ipack + 1
10934  pack_tmp = packed_data(ipack)
10935  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10936  pack_tmp = ishft(pack_tmp, -16)
10937  idata = idata + 1
10938  data_tmp = iand(pack_tmp, mask_right(nbits))
10939  full_data(idata) = data_tmp
10940  pack_tmp = ishft(pack_tmp, -nbits)
10941  idata = idata + 1
10942  data_tmp = iand(pack_tmp, mask_right(nbits))
10943  full_data(idata) = data_tmp
10944  pack_tmp = ishft(pack_tmp, -nbits)
10945  idata = idata + 1
10946  data_tmp = iand(pack_tmp, mask_right(nbits))
10947  full_data(idata) = data_tmp
10948  pack_tmp = ishft(pack_tmp, -nbits)
10949  idata = idata + 1
10950  data_tmp = ishft(pack_tmp, 16)
10951  ipack = ipack + 1
10952  pack_tmp = packed_data(ipack)
10953  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10954  pack_tmp = ishft(pack_tmp, -16)
10955  idata = idata + 1
10956  data_tmp = iand(pack_tmp, mask_right(nbits))
10957  full_data(idata) = data_tmp
10958  pack_tmp = ishft(pack_tmp, -nbits)
10959  idata = idata + 1
10960  data_tmp = iand(pack_tmp, mask_right(nbits))
10961  full_data(idata) = data_tmp
10962  pack_tmp = ishft(pack_tmp, -nbits)
10963  idata = idata + 1
10964  data_tmp = iand(pack_tmp, mask_right(nbits))
10965  full_data(idata) = data_tmp
10966  pack_tmp = ishft(pack_tmp, -nbits)
10967  idata = idata + 1
10968  data_tmp = ishft(pack_tmp, 16)
10969  ipack = ipack + 1
10970  pack_tmp = packed_data(ipack)
10971  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10972  pack_tmp = ishft(pack_tmp, -16)
10973  idata = idata + 1
10974  data_tmp = iand(pack_tmp, mask_right(nbits))
10975  full_data(idata) = data_tmp
10976  pack_tmp = ishft(pack_tmp, -nbits)
10977  idata = idata + 1
10978  data_tmp = iand(pack_tmp, mask_right(nbits))
10979  full_data(idata) = data_tmp
10980  pack_tmp = ishft(pack_tmp, -nbits)
10981  idata = idata + 1
10982  data_tmp = iand(pack_tmp, mask_right(nbits))
10983  full_data(idata) = data_tmp
10984  pack_tmp = ishft(pack_tmp, -nbits)
10985  idata = idata + 1
10986  data_tmp = ishft(pack_tmp, 16)
10987  ipack = ipack + 1
10988  pack_tmp = packed_data(ipack)
10989  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
10990  pack_tmp = ishft(pack_tmp, -16)
10991  idata = idata + 1
10992  data_tmp = iand(pack_tmp, mask_right(nbits))
10993  full_data(idata) = data_tmp
10994  pack_tmp = ishft(pack_tmp, -nbits)
10995  idata = idata + 1
10996  data_tmp = iand(pack_tmp, mask_right(nbits))
10997  full_data(idata) = data_tmp
10998  pack_tmp = ishft(pack_tmp, -nbits)
10999  idata = idata + 1
11000  data_tmp = iand(pack_tmp, mask_right(nbits))
11001  full_data(idata) = data_tmp
11002  pack_tmp = ishft(pack_tmp, -nbits)
11003  idata = idata + 1
11004  data_tmp = ishft(pack_tmp, 16)
11005  ipack = ipack + 1
11006  pack_tmp = packed_data(ipack)
11007  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11008  pack_tmp = ishft(pack_tmp, -16)
11009  idata = idata + 1
11010  data_tmp = iand(pack_tmp, mask_right(nbits))
11011  full_data(idata) = data_tmp
11012  pack_tmp = ishft(pack_tmp, -nbits)
11013  idata = idata + 1
11014  data_tmp = iand(pack_tmp, mask_right(nbits))
11015  full_data(idata) = data_tmp
11016  pack_tmp = ishft(pack_tmp, -nbits)
11017  idata = idata + 1
11018  data_tmp = iand(pack_tmp, mask_right(nbits))
11019  full_data(idata) = data_tmp
11020  pack_tmp = ishft(pack_tmp, -nbits)
11021  idata = idata + 1
11022  data_tmp = ishft(pack_tmp, 16)
11023  ipack = ipack + 1
11024  pack_tmp = packed_data(ipack)
11025  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11026  pack_tmp = ishft(pack_tmp, -16)
11027  idata = idata + 1
11028  data_tmp = iand(pack_tmp, mask_right(nbits))
11029  full_data(idata) = data_tmp
11030  pack_tmp = ishft(pack_tmp, -nbits)
11031  idata = idata + 1
11032  data_tmp = iand(pack_tmp, mask_right(nbits))
11033  full_data(idata) = data_tmp
11034  pack_tmp = ishft(pack_tmp, -nbits)
11035  idata = idata + 1
11036  data_tmp = iand(pack_tmp, mask_right(nbits))
11037  full_data(idata) = data_tmp
11038  pack_tmp = ishft(pack_tmp, -nbits)
11039  idata = idata + 1
11040  data_tmp = ishft(pack_tmp, 16)
11041  ipack = ipack + 1
11042  pack_tmp = packed_data(ipack)
11043  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11044  pack_tmp = ishft(pack_tmp, -16)
11045  idata = idata + 1
11046  data_tmp = iand(pack_tmp, mask_right(nbits))
11047  full_data(idata) = data_tmp
11048  pack_tmp = ishft(pack_tmp, -nbits)
11049  idata = idata + 1
11050  data_tmp = iand(pack_tmp, mask_right(nbits))
11051  full_data(idata) = data_tmp
11052  pack_tmp = ishft(pack_tmp, -nbits)
11053  idata = idata + 1
11054  data_tmp = iand(pack_tmp, mask_right(nbits))
11055  full_data(idata) = data_tmp
11056  pack_tmp = ishft(pack_tmp, -nbits)
11057  idata = idata + 1
11058  data_tmp = ishft(pack_tmp, 16)
11059  ipack = ipack + 1
11060  pack_tmp = packed_data(ipack)
11061  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11062  pack_tmp = ishft(pack_tmp, -16)
11063  idata = idata + 1
11064  data_tmp = iand(pack_tmp, mask_right(nbits))
11065  full_data(idata) = data_tmp
11066  pack_tmp = ishft(pack_tmp, -nbits)
11067  idata = idata + 1
11068  data_tmp = iand(pack_tmp, mask_right(nbits))
11069  full_data(idata) = data_tmp
11070  pack_tmp = ishft(pack_tmp, -nbits)
11071  idata = idata + 1
11072  data_tmp = iand(pack_tmp, mask_right(nbits))
11073  full_data(idata) = data_tmp
11074  pack_tmp = ishft(pack_tmp, -nbits)
11075  idata = idata + 1
11076  data_tmp = ishft(pack_tmp, 16)
11077  ipack = ipack + 1
11078  pack_tmp = packed_data(ipack)
11079  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11080  pack_tmp = ishft(pack_tmp, -16)
11081  idata = idata + 1
11082  data_tmp = iand(pack_tmp, mask_right(nbits))
11083  full_data(idata) = data_tmp
11084  pack_tmp = ishft(pack_tmp, -nbits)
11085  idata = idata + 1
11086  data_tmp = iand(pack_tmp, mask_right(nbits))
11087  full_data(idata) = data_tmp
11088  pack_tmp = ishft(pack_tmp, -nbits)
11089  idata = idata + 1
11090  data_tmp = iand(pack_tmp, mask_right(nbits))
11091  full_data(idata) = data_tmp
11092  pack_tmp = ishft(pack_tmp, -nbits)
11093  idata = idata + 1
11094  data_tmp = ishft(pack_tmp, 16)
11095  ipack = ipack + 1
11096  pack_tmp = packed_data(ipack)
11097  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11098  pack_tmp = ishft(pack_tmp, -16)
11099  idata = idata + 1
11100  data_tmp = iand(pack_tmp, mask_right(nbits))
11101  full_data(idata) = data_tmp
11102  pack_tmp = ishft(pack_tmp, -nbits)
11103  idata = idata + 1
11104  data_tmp = iand(pack_tmp, mask_right(nbits))
11105  full_data(idata) = data_tmp
11106  pack_tmp = ishft(pack_tmp, -nbits)
11107  idata = idata + 1
11108  data_tmp = iand(pack_tmp, mask_right(nbits))
11109  full_data(idata) = data_tmp
11110  pack_tmp = ishft(pack_tmp, -nbits)
11111  idata = idata + 1
11112  data_tmp = ishft(pack_tmp, 16)
11113  ipack = ipack + 1
11114  pack_tmp = packed_data(ipack)
11115  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11116  pack_tmp = ishft(pack_tmp, -16)
11117  idata = idata + 1
11118  data_tmp = iand(pack_tmp, mask_right(nbits))
11119  full_data(idata) = data_tmp
11120  pack_tmp = ishft(pack_tmp, -nbits)
11121  idata = idata + 1
11122  data_tmp = iand(pack_tmp, mask_right(nbits))
11123  full_data(idata) = data_tmp
11124  pack_tmp = ishft(pack_tmp, -nbits)
11125  idata = idata + 1
11126  data_tmp = iand(pack_tmp, mask_right(nbits))
11127  full_data(idata) = data_tmp
11128  pack_tmp = ishft(pack_tmp, -nbits)
11129  idata = idata + 1
11130  data_tmp = ishft(pack_tmp, 16)
11131  ipack = ipack + 1
11132  pack_tmp = packed_data(ipack)
11133  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11134  pack_tmp = ishft(pack_tmp, -16)
11135  idata = idata + 1
11136  data_tmp = iand(pack_tmp, mask_right(nbits))
11137  full_data(idata) = data_tmp
11138  pack_tmp = ishft(pack_tmp, -nbits)
11139  idata = idata + 1
11140  data_tmp = iand(pack_tmp, mask_right(nbits))
11141  full_data(idata) = data_tmp
11142  pack_tmp = ishft(pack_tmp, -nbits)
11143  idata = idata + 1
11144  data_tmp = iand(pack_tmp, mask_right(nbits))
11145  full_data(idata) = data_tmp
11146  pack_tmp = ishft(pack_tmp, -nbits)
11147  idata = idata + 1
11148  data_tmp = ishft(pack_tmp, 16)
11149  ipack = ipack + 1
11150  pack_tmp = packed_data(ipack)
11151  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11152  pack_tmp = ishft(pack_tmp, -16)
11153  idata = idata + 1
11154  data_tmp = iand(pack_tmp, mask_right(nbits))
11155  full_data(idata) = data_tmp
11156  pack_tmp = ishft(pack_tmp, -nbits)
11157  idata = idata + 1
11158  data_tmp = iand(pack_tmp, mask_right(nbits))
11159  full_data(idata) = data_tmp
11160  pack_tmp = ishft(pack_tmp, -nbits)
11161  idata = idata + 1
11162  data_tmp = iand(pack_tmp, mask_right(nbits))
11163  full_data(idata) = data_tmp
11164  pack_tmp = ishft(pack_tmp, -nbits)
11165  idata = idata + 1
11166  data_tmp = ishft(pack_tmp, 16)
11167  ipack = ipack + 1
11168  pack_tmp = packed_data(ipack)
11169  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11170  pack_tmp = ishft(pack_tmp, -16)
11171  idata = idata + 1
11172  data_tmp = iand(pack_tmp, mask_right(nbits))
11173  full_data(idata) = data_tmp
11174  pack_tmp = ishft(pack_tmp, -nbits)
11175  idata = idata + 1
11176  data_tmp = iand(pack_tmp, mask_right(nbits))
11177  full_data(idata) = data_tmp
11178  pack_tmp = ishft(pack_tmp, -nbits)
11179  idata = idata + 1
11180  data_tmp = iand(pack_tmp, mask_right(nbits))
11181  full_data(idata) = data_tmp
11182  pack_tmp = ishft(pack_tmp, -nbits)
11183  END DO
11184  IF (ndata_rep < ndata) THEN
11185  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
11186  END IF
11187  END SUBROUTINE bits2ints_16
11188 
11189 ! **************************************************************************************************
11190 !> \brief ...
11191 !> \param Ndata ...
11192 !> \param packed_data ...
11193 !> \param full_data ...
11194 ! **************************************************************************************************
11195  SUBROUTINE ints2bits_17(Ndata, packed_data, full_data)
11196  INTEGER, INTENT(IN) :: Ndata
11197  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
11198  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
11199 
11200  INTEGER, PARAMETER :: Nbits = 17
11201 
11202  INTEGER :: idata, ipack, kdata, Ndata_rep
11203  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
11204 
11205  idata = 0
11206  ipack = 0
11207  ndata_rep = (ndata/64)*64
11208  DO kdata = 1, ndata_rep, 64
11209  pack_tmp = 0
11210  idata = idata + 1
11211  data_tmp = full_data(idata)
11212  data_tmp = ishft(data_tmp, 47)
11213  pack_tmp = ior(pack_tmp, data_tmp)
11214  pack_tmp = ishft(pack_tmp, -17)
11215  idata = idata + 1
11216  data_tmp = full_data(idata)
11217  data_tmp = ishft(data_tmp, 47)
11218  pack_tmp = ior(pack_tmp, data_tmp)
11219  pack_tmp = ishft(pack_tmp, -17)
11220  idata = idata + 1
11221  data_tmp = full_data(idata)
11222  data_tmp = ishft(data_tmp, 47)
11223  pack_tmp = ior(pack_tmp, data_tmp)
11224  pack_tmp = ishft(pack_tmp, -13)
11225  idata = idata + 1
11226  data_tmp = full_data(idata)
11227  data_tmp = ishft(data_tmp, 47)
11228  data_tmp = iand(data_tmp, mask_left(13))
11229  pack_tmp = ior(pack_tmp, data_tmp)
11230  ipack = ipack + 1
11231  packed_data(ipack) = pack_tmp
11232  data_tmp = full_data(idata)
11233  pack_tmp = ishft(data_tmp, 60)
11234  pack_tmp = ishft(pack_tmp, -17)
11235  idata = idata + 1
11236  data_tmp = full_data(idata)
11237  data_tmp = ishft(data_tmp, 47)
11238  pack_tmp = ior(pack_tmp, data_tmp)
11239  pack_tmp = ishft(pack_tmp, -17)
11240  idata = idata + 1
11241  data_tmp = full_data(idata)
11242  data_tmp = ishft(data_tmp, 47)
11243  pack_tmp = ior(pack_tmp, data_tmp)
11244  pack_tmp = ishft(pack_tmp, -17)
11245  idata = idata + 1
11246  data_tmp = full_data(idata)
11247  data_tmp = ishft(data_tmp, 47)
11248  pack_tmp = ior(pack_tmp, data_tmp)
11249  pack_tmp = ishft(pack_tmp, -9)
11250  idata = idata + 1
11251  data_tmp = full_data(idata)
11252  data_tmp = ishft(data_tmp, 47)
11253  data_tmp = iand(data_tmp, mask_left(9))
11254  pack_tmp = ior(pack_tmp, data_tmp)
11255  ipack = ipack + 1
11256  packed_data(ipack) = pack_tmp
11257  data_tmp = full_data(idata)
11258  pack_tmp = ishft(data_tmp, 56)
11259  pack_tmp = ishft(pack_tmp, -17)
11260  idata = idata + 1
11261  data_tmp = full_data(idata)
11262  data_tmp = ishft(data_tmp, 47)
11263  pack_tmp = ior(pack_tmp, data_tmp)
11264  pack_tmp = ishft(pack_tmp, -17)
11265  idata = idata + 1
11266  data_tmp = full_data(idata)
11267  data_tmp = ishft(data_tmp, 47)
11268  pack_tmp = ior(pack_tmp, data_tmp)
11269  pack_tmp = ishft(pack_tmp, -17)
11270  idata = idata + 1
11271  data_tmp = full_data(idata)
11272  data_tmp = ishft(data_tmp, 47)
11273  pack_tmp = ior(pack_tmp, data_tmp)
11274  pack_tmp = ishft(pack_tmp, -5)
11275  idata = idata + 1
11276  data_tmp = full_data(idata)
11277  data_tmp = ishft(data_tmp, 47)
11278  data_tmp = iand(data_tmp, mask_left(5))
11279  pack_tmp = ior(pack_tmp, data_tmp)
11280  ipack = ipack + 1
11281  packed_data(ipack) = pack_tmp
11282  data_tmp = full_data(idata)
11283  pack_tmp = ishft(data_tmp, 52)
11284  pack_tmp = ishft(pack_tmp, -17)
11285  idata = idata + 1
11286  data_tmp = full_data(idata)
11287  data_tmp = ishft(data_tmp, 47)
11288  pack_tmp = ior(pack_tmp, data_tmp)
11289  pack_tmp = ishft(pack_tmp, -17)
11290  idata = idata + 1
11291  data_tmp = full_data(idata)
11292  data_tmp = ishft(data_tmp, 47)
11293  pack_tmp = ior(pack_tmp, data_tmp)
11294  pack_tmp = ishft(pack_tmp, -17)
11295  idata = idata + 1
11296  data_tmp = full_data(idata)
11297  data_tmp = ishft(data_tmp, 47)
11298  pack_tmp = ior(pack_tmp, data_tmp)
11299  pack_tmp = ishft(pack_tmp, -1)
11300  idata = idata + 1
11301  data_tmp = full_data(idata)
11302  data_tmp = ishft(data_tmp, 47)
11303  data_tmp = iand(data_tmp, mask_left(1))
11304  pack_tmp = ior(pack_tmp, data_tmp)
11305  ipack = ipack + 1
11306  packed_data(ipack) = pack_tmp
11307  data_tmp = full_data(idata)
11308  pack_tmp = ishft(data_tmp, 48)
11309  pack_tmp = ishft(pack_tmp, -17)
11310  idata = idata + 1
11311  data_tmp = full_data(idata)
11312  data_tmp = ishft(data_tmp, 47)
11313  pack_tmp = ior(pack_tmp, data_tmp)
11314  pack_tmp = ishft(pack_tmp, -17)
11315  idata = idata + 1
11316  data_tmp = full_data(idata)
11317  data_tmp = ishft(data_tmp, 47)
11318  pack_tmp = ior(pack_tmp, data_tmp)
11319  pack_tmp = ishft(pack_tmp, -14)
11320  idata = idata + 1
11321  data_tmp = full_data(idata)
11322  data_tmp = ishft(data_tmp, 47)
11323  data_tmp = iand(data_tmp, mask_left(14))
11324  pack_tmp = ior(pack_tmp, data_tmp)
11325  ipack = ipack + 1
11326  packed_data(ipack) = pack_tmp
11327  data_tmp = full_data(idata)
11328  pack_tmp = ishft(data_tmp, 61)
11329  pack_tmp = ishft(pack_tmp, -17)
11330  idata = idata + 1
11331  data_tmp = full_data(idata)
11332  data_tmp = ishft(data_tmp, 47)
11333  pack_tmp = ior(pack_tmp, data_tmp)
11334  pack_tmp = ishft(pack_tmp, -17)
11335  idata = idata + 1
11336  data_tmp = full_data(idata)
11337  data_tmp = ishft(data_tmp, 47)
11338  pack_tmp = ior(pack_tmp, data_tmp)
11339  pack_tmp = ishft(pack_tmp, -17)
11340  idata = idata + 1
11341  data_tmp = full_data(idata)
11342  data_tmp = ishft(data_tmp, 47)
11343  pack_tmp = ior(pack_tmp, data_tmp)
11344  pack_tmp = ishft(pack_tmp, -10)
11345  idata = idata + 1
11346  data_tmp = full_data(idata)
11347  data_tmp = ishft(data_tmp, 47)
11348  data_tmp = iand(data_tmp, mask_left(10))
11349  pack_tmp = ior(pack_tmp, data_tmp)
11350  ipack = ipack + 1
11351  packed_data(ipack) = pack_tmp
11352  data_tmp = full_data(idata)
11353  pack_tmp = ishft(data_tmp, 57)
11354  pack_tmp = ishft(pack_tmp, -17)
11355  idata = idata + 1
11356  data_tmp = full_data(idata)
11357  data_tmp = ishft(data_tmp, 47)
11358  pack_tmp = ior(pack_tmp, data_tmp)
11359  pack_tmp = ishft(pack_tmp, -17)
11360  idata = idata + 1
11361  data_tmp = full_data(idata)
11362  data_tmp = ishft(data_tmp, 47)
11363  pack_tmp = ior(pack_tmp, data_tmp)
11364  pack_tmp = ishft(pack_tmp, -17)
11365  idata = idata + 1
11366  data_tmp = full_data(idata)
11367  data_tmp = ishft(data_tmp, 47)
11368  pack_tmp = ior(pack_tmp, data_tmp)
11369  pack_tmp = ishft(pack_tmp, -6)
11370  idata = idata + 1
11371  data_tmp = full_data(idata)
11372  data_tmp = ishft(data_tmp, 47)
11373  data_tmp = iand(data_tmp, mask_left(6))
11374  pack_tmp = ior(pack_tmp, data_tmp)
11375  ipack = ipack + 1
11376  packed_data(ipack) = pack_tmp
11377  data_tmp = full_data(idata)
11378  pack_tmp = ishft(data_tmp, 53)
11379  pack_tmp = ishft(pack_tmp, -17)
11380  idata = idata + 1
11381  data_tmp = full_data(idata)
11382  data_tmp = ishft(data_tmp, 47)
11383  pack_tmp = ior(pack_tmp, data_tmp)
11384  pack_tmp = ishft(pack_tmp, -17)
11385  idata = idata + 1
11386  data_tmp = full_data(idata)
11387  data_tmp = ishft(data_tmp, 47)
11388  pack_tmp = ior(pack_tmp, data_tmp)
11389  pack_tmp = ishft(pack_tmp, -17)
11390  idata = idata + 1
11391  data_tmp = full_data(idata)
11392  data_tmp = ishft(data_tmp, 47)
11393  pack_tmp = ior(pack_tmp, data_tmp)
11394  pack_tmp = ishft(pack_tmp, -2)
11395  idata = idata + 1
11396  data_tmp = full_data(idata)
11397  data_tmp = ishft(data_tmp, 47)
11398  data_tmp = iand(data_tmp, mask_left(2))
11399  pack_tmp = ior(pack_tmp, data_tmp)
11400  ipack = ipack + 1
11401  packed_data(ipack) = pack_tmp
11402  data_tmp = full_data(idata)
11403  pack_tmp = ishft(data_tmp, 49)
11404  pack_tmp = ishft(pack_tmp, -17)
11405  idata = idata + 1
11406  data_tmp = full_data(idata)
11407  data_tmp = ishft(data_tmp, 47)
11408  pack_tmp = ior(pack_tmp, data_tmp)
11409  pack_tmp = ishft(pack_tmp, -17)
11410  idata = idata + 1
11411  data_tmp = full_data(idata)
11412  data_tmp = ishft(data_tmp, 47)
11413  pack_tmp = ior(pack_tmp, data_tmp)
11414  pack_tmp = ishft(pack_tmp, -15)
11415  idata = idata + 1
11416  data_tmp = full_data(idata)
11417  data_tmp = ishft(data_tmp, 47)
11418  data_tmp = iand(data_tmp, mask_left(15))
11419  pack_tmp = ior(pack_tmp, data_tmp)
11420  ipack = ipack + 1
11421  packed_data(ipack) = pack_tmp
11422  data_tmp = full_data(idata)
11423  pack_tmp = ishft(data_tmp, 62)
11424  pack_tmp = ishft(pack_tmp, -17)
11425  idata = idata + 1
11426  data_tmp = full_data(idata)
11427  data_tmp = ishft(data_tmp, 47)
11428  pack_tmp = ior(pack_tmp, data_tmp)
11429  pack_tmp = ishft(pack_tmp, -17)
11430  idata = idata + 1
11431  data_tmp = full_data(idata)
11432  data_tmp = ishft(data_tmp, 47)
11433  pack_tmp = ior(pack_tmp, data_tmp)
11434  pack_tmp = ishft(pack_tmp, -17)
11435  idata = idata + 1
11436  data_tmp = full_data(idata)
11437  data_tmp = ishft(data_tmp, 47)
11438  pack_tmp = ior(pack_tmp, data_tmp)
11439  pack_tmp = ishft(pack_tmp, -11)
11440  idata = idata + 1
11441  data_tmp = full_data(idata)
11442  data_tmp = ishft(data_tmp, 47)
11443  data_tmp = iand(data_tmp, mask_left(11))
11444  pack_tmp = ior(pack_tmp, data_tmp)
11445  ipack = ipack + 1
11446  packed_data(ipack) = pack_tmp
11447  data_tmp = full_data(idata)
11448  pack_tmp = ishft(data_tmp, 58)
11449  pack_tmp = ishft(pack_tmp, -17)
11450  idata = idata + 1
11451  data_tmp = full_data(idata)
11452  data_tmp = ishft(data_tmp, 47)
11453  pack_tmp = ior(pack_tmp, data_tmp)
11454  pack_tmp = ishft(pack_tmp, -17)
11455  idata = idata + 1
11456  data_tmp = full_data(idata)
11457  data_tmp = ishft(data_tmp, 47)
11458  pack_tmp = ior(pack_tmp, data_tmp)
11459  pack_tmp = ishft(pack_tmp, -17)
11460  idata = idata + 1
11461  data_tmp = full_data(idata)
11462  data_tmp = ishft(data_tmp, 47)
11463  pack_tmp = ior(pack_tmp, data_tmp)
11464  pack_tmp = ishft(pack_tmp, -7)
11465  idata = idata + 1
11466  data_tmp = full_data(idata)
11467  data_tmp = ishft(data_tmp, 47)
11468  data_tmp = iand(data_tmp, mask_left(7))
11469  pack_tmp = ior(pack_tmp, data_tmp)
11470  ipack = ipack + 1
11471  packed_data(ipack) = pack_tmp
11472  data_tmp = full_data(idata)
11473  pack_tmp = ishft(data_tmp, 54)
11474  pack_tmp = ishft(pack_tmp, -17)
11475  idata = idata + 1
11476  data_tmp = full_data(idata)
11477  data_tmp = ishft(data_tmp, 47)
11478  pack_tmp = ior(pack_tmp, data_tmp)
11479  pack_tmp = ishft(pack_tmp, -17)
11480  idata = idata + 1
11481  data_tmp = full_data(idata)
11482  data_tmp = ishft(data_tmp, 47)
11483  pack_tmp = ior(pack_tmp, data_tmp)
11484  pack_tmp = ishft(pack_tmp, -17)
11485  idata = idata + 1
11486  data_tmp = full_data(idata)
11487  data_tmp = ishft(data_tmp, 47)
11488  pack_tmp = ior(pack_tmp, data_tmp)
11489  pack_tmp = ishft(pack_tmp, -3)
11490  idata = idata + 1
11491  data_tmp = full_data(idata)
11492  data_tmp = ishft(data_tmp, 47)
11493  data_tmp = iand(data_tmp, mask_left(3))
11494  pack_tmp = ior(pack_tmp, data_tmp)
11495  ipack = ipack + 1
11496  packed_data(ipack) = pack_tmp
11497  data_tmp = full_data(idata)
11498  pack_tmp = ishft(data_tmp, 50)
11499  pack_tmp = ishft(pack_tmp, -17)
11500  idata = idata + 1
11501  data_tmp = full_data(idata)
11502  data_tmp = ishft(data_tmp, 47)
11503  pack_tmp = ior(pack_tmp, data_tmp)
11504  pack_tmp = ishft(pack_tmp, -17)
11505  idata = idata + 1
11506  data_tmp = full_data(idata)
11507  data_tmp = ishft(data_tmp, 47)
11508  pack_tmp = ior(pack_tmp, data_tmp)
11509  pack_tmp = ishft(pack_tmp, -16)
11510  idata = idata + 1
11511  data_tmp = full_data(idata)
11512  data_tmp = ishft(data_tmp, 47)
11513  data_tmp = iand(data_tmp, mask_left(16))
11514  pack_tmp = ior(pack_tmp, data_tmp)
11515  ipack = ipack + 1
11516  packed_data(ipack) = pack_tmp
11517  data_tmp = full_data(idata)
11518  pack_tmp = ishft(data_tmp, 63)
11519  pack_tmp = ishft(pack_tmp, -17)
11520  idata = idata + 1
11521  data_tmp = full_data(idata)
11522  data_tmp = ishft(data_tmp, 47)
11523  pack_tmp = ior(pack_tmp, data_tmp)
11524  pack_tmp = ishft(pack_tmp, -17)
11525  idata = idata + 1
11526  data_tmp = full_data(idata)
11527  data_tmp = ishft(data_tmp, 47)
11528  pack_tmp = ior(pack_tmp, data_tmp)
11529  pack_tmp = ishft(pack_tmp, -17)
11530  idata = idata + 1
11531  data_tmp = full_data(idata)
11532  data_tmp = ishft(data_tmp, 47)
11533  pack_tmp = ior(pack_tmp, data_tmp)
11534  pack_tmp = ishft(pack_tmp, -12)
11535  idata = idata + 1
11536  data_tmp = full_data(idata)
11537  data_tmp = ishft(data_tmp, 47)
11538  data_tmp = iand(data_tmp, mask_left(12))
11539  pack_tmp = ior(pack_tmp, data_tmp)
11540  ipack = ipack + 1
11541  packed_data(ipack) = pack_tmp
11542  data_tmp = full_data(idata)
11543  pack_tmp = ishft(data_tmp, 59)
11544  pack_tmp = ishft(pack_tmp, -17)
11545  idata = idata + 1
11546  data_tmp = full_data(idata)
11547  data_tmp = ishft(data_tmp, 47)
11548  pack_tmp = ior(pack_tmp, data_tmp)
11549  pack_tmp = ishft(pack_tmp, -17)
11550  idata = idata + 1
11551  data_tmp = full_data(idata)
11552  data_tmp = ishft(data_tmp, 47)
11553  pack_tmp = ior(pack_tmp, data_tmp)
11554  pack_tmp = ishft(pack_tmp, -17)
11555  idata = idata + 1
11556  data_tmp = full_data(idata)
11557  data_tmp = ishft(data_tmp, 47)
11558  pack_tmp = ior(pack_tmp, data_tmp)
11559  pack_tmp = ishft(pack_tmp, -8)
11560  idata = idata + 1
11561  data_tmp = full_data(idata)
11562  data_tmp = ishft(data_tmp, 47)
11563  data_tmp = iand(data_tmp, mask_left(8))
11564  pack_tmp = ior(pack_tmp, data_tmp)
11565  ipack = ipack + 1
11566  packed_data(ipack) = pack_tmp
11567  data_tmp = full_data(idata)
11568  pack_tmp = ishft(data_tmp, 55)
11569  pack_tmp = ishft(pack_tmp, -17)
11570  idata = idata + 1
11571  data_tmp = full_data(idata)
11572  data_tmp = ishft(data_tmp, 47)
11573  pack_tmp = ior(pack_tmp, data_tmp)
11574  pack_tmp = ishft(pack_tmp, -17)
11575  idata = idata + 1
11576  data_tmp = full_data(idata)
11577  data_tmp = ishft(data_tmp, 47)
11578  pack_tmp = ior(pack_tmp, data_tmp)
11579  pack_tmp = ishft(pack_tmp, -17)
11580  idata = idata + 1
11581  data_tmp = full_data(idata)
11582  data_tmp = ishft(data_tmp, 47)
11583  pack_tmp = ior(pack_tmp, data_tmp)
11584  pack_tmp = ishft(pack_tmp, -4)
11585  idata = idata + 1
11586  data_tmp = full_data(idata)
11587  data_tmp = ishft(data_tmp, 47)
11588  data_tmp = iand(data_tmp, mask_left(4))
11589  pack_tmp = ior(pack_tmp, data_tmp)
11590  ipack = ipack + 1
11591  packed_data(ipack) = pack_tmp
11592  data_tmp = full_data(idata)
11593  pack_tmp = ishft(data_tmp, 51)
11594  pack_tmp = ishft(pack_tmp, -17)
11595  idata = idata + 1
11596  data_tmp = full_data(idata)
11597  data_tmp = ishft(data_tmp, 47)
11598  pack_tmp = ior(pack_tmp, data_tmp)
11599  pack_tmp = ishft(pack_tmp, -17)
11600  idata = idata + 1
11601  data_tmp = full_data(idata)
11602  data_tmp = ishft(data_tmp, 47)
11603  pack_tmp = ior(pack_tmp, data_tmp)
11604  pack_tmp = ishft(pack_tmp, -17)
11605  idata = idata + 1
11606  data_tmp = full_data(idata)
11607  data_tmp = ishft(data_tmp, 47)
11608  pack_tmp = ior(pack_tmp, data_tmp)
11609  pack_tmp = ishft(pack_tmp, 0)
11610  pack_tmp = ishft(pack_tmp, 0)
11611  ipack = ipack + 1
11612  packed_data(ipack) = pack_tmp
11613  END DO
11614  IF (ndata_rep < ndata) THEN
11615  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
11616  END IF
11617  END SUBROUTINE ints2bits_17
11618 
11619 ! **************************************************************************************************
11620 !> \brief ...
11621 !> \param Ndata ...
11622 !> \param packed_data ...
11623 !> \param full_data ...
11624 ! **************************************************************************************************
11625  SUBROUTINE bits2ints_17(Ndata, packed_data, full_data)
11626  INTEGER, INTENT(IN) :: Ndata
11627  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
11628  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
11629 
11630  INTEGER, PARAMETER :: Nbits = 17
11631 
11632  INTEGER :: idata, ipack, kdata, Ndata_rep
11633  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
11634 
11635  ipack = 0
11636  idata = 0
11637  pack_tmp = 0
11638  ndata_rep = (ndata/64)*64
11639  DO kdata = 1, ndata_rep, 64
11640  idata = idata + 1
11641  data_tmp = ishft(pack_tmp, 17)
11642  ipack = ipack + 1
11643  pack_tmp = packed_data(ipack)
11644  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
11645  pack_tmp = ishft(pack_tmp, -17)
11646  idata = idata + 1
11647  data_tmp = iand(pack_tmp, mask_right(nbits))
11648  full_data(idata) = data_tmp
11649  pack_tmp = ishft(pack_tmp, -nbits)
11650  idata = idata + 1
11651  data_tmp = iand(pack_tmp, mask_right(nbits))
11652  full_data(idata) = data_tmp
11653  pack_tmp = ishft(pack_tmp, -nbits)
11654  idata = idata + 1
11655  data_tmp = ishft(pack_tmp, 4)
11656  ipack = ipack + 1
11657  pack_tmp = packed_data(ipack)
11658  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
11659  pack_tmp = ishft(pack_tmp, -4)
11660  idata = idata + 1
11661  data_tmp = iand(pack_tmp, mask_right(nbits))
11662  full_data(idata) = data_tmp
11663  pack_tmp = ishft(pack_tmp, -nbits)
11664  idata = idata + 1
11665  data_tmp = iand(pack_tmp, mask_right(nbits))
11666  full_data(idata) = data_tmp
11667  pack_tmp = ishft(pack_tmp, -nbits)
11668  idata = idata + 1
11669  data_tmp = iand(pack_tmp, mask_right(nbits))
11670  full_data(idata) = data_tmp
11671  pack_tmp = ishft(pack_tmp, -nbits)
11672  idata = idata + 1
11673  data_tmp = ishft(pack_tmp, 8)
11674  ipack = ipack + 1
11675  pack_tmp = packed_data(ipack)
11676  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
11677  pack_tmp = ishft(pack_tmp, -8)
11678  idata = idata + 1
11679  data_tmp = iand(pack_tmp, mask_right(nbits))
11680  full_data(idata) = data_tmp
11681  pack_tmp = ishft(pack_tmp, -nbits)
11682  idata = idata + 1
11683  data_tmp = iand(pack_tmp, mask_right(nbits))
11684  full_data(idata) = data_tmp
11685  pack_tmp = ishft(pack_tmp, -nbits)
11686  idata = idata + 1
11687  data_tmp = iand(pack_tmp, mask_right(nbits))
11688  full_data(idata) = data_tmp
11689  pack_tmp = ishft(pack_tmp, -nbits)
11690  idata = idata + 1
11691  data_tmp = ishft(pack_tmp, 12)
11692  ipack = ipack + 1
11693  pack_tmp = packed_data(ipack)
11694  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
11695  pack_tmp = ishft(pack_tmp, -12)
11696  idata = idata + 1
11697  data_tmp = iand(pack_tmp, mask_right(nbits))
11698  full_data(idata) = data_tmp
11699  pack_tmp = ishft(pack_tmp, -nbits)
11700  idata = idata + 1
11701  data_tmp = iand(pack_tmp, mask_right(nbits))
11702  full_data(idata) = data_tmp
11703  pack_tmp = ishft(pack_tmp, -nbits)
11704  idata = idata + 1
11705  data_tmp = iand(pack_tmp, mask_right(nbits))
11706  full_data(idata) = data_tmp
11707  pack_tmp = ishft(pack_tmp, -nbits)
11708  idata = idata + 1
11709  data_tmp = ishft(pack_tmp, 16)
11710  ipack = ipack + 1
11711  pack_tmp = packed_data(ipack)
11712  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
11713  pack_tmp = ishft(pack_tmp, -16)
11714  idata = idata + 1
11715  data_tmp = iand(pack_tmp, mask_right(nbits))
11716  full_data(idata) = data_tmp
11717  pack_tmp = ishft(pack_tmp, -nbits)
11718  idata = idata + 1
11719  data_tmp = iand(pack_tmp, mask_right(nbits))
11720  full_data(idata) = data_tmp
11721  pack_tmp = ishft(pack_tmp, -nbits)
11722  idata = idata + 1
11723  data_tmp = ishft(pack_tmp, 3)
11724  ipack = ipack + 1
11725  pack_tmp = packed_data(ipack)
11726  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
11727  pack_tmp = ishft(pack_tmp, -3)
11728  idata = idata + 1
11729  data_tmp = iand(pack_tmp, mask_right(nbits))
11730  full_data(idata) = data_tmp
11731  pack_tmp = ishft(pack_tmp, -nbits)
11732  idata = idata + 1
11733  data_tmp = iand(pack_tmp, mask_right(nbits))
11734  full_data(idata) = data_tmp
11735  pack_tmp = ishft(pack_tmp, -nbits)
11736  idata = idata + 1
11737  data_tmp = iand(pack_tmp, mask_right(nbits))
11738  full_data(idata) = data_tmp
11739  pack_tmp = ishft(pack_tmp, -nbits)
11740  idata = idata + 1
11741  data_tmp = ishft(pack_tmp, 7)
11742  ipack = ipack + 1
11743  pack_tmp = packed_data(ipack)
11744  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
11745  pack_tmp = ishft(pack_tmp, -7)
11746  idata = idata + 1
11747  data_tmp = iand(pack_tmp, mask_right(nbits))
11748  full_data(idata) = data_tmp
11749  pack_tmp = ishft(pack_tmp, -nbits)
11750  idata = idata + 1
11751  data_tmp = iand(pack_tmp, mask_right(nbits))
11752  full_data(idata) = data_tmp
11753  pack_tmp = ishft(pack_tmp, -nbits)
11754  idata = idata + 1
11755  data_tmp = iand(pack_tmp, mask_right(nbits))
11756  full_data(idata) = data_tmp
11757  pack_tmp = ishft(pack_tmp, -nbits)
11758  idata = idata + 1
11759  data_tmp = ishft(pack_tmp, 11)
11760  ipack = ipack + 1
11761  pack_tmp = packed_data(ipack)
11762  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
11763  pack_tmp = ishft(pack_tmp, -11)
11764  idata = idata + 1
11765  data_tmp = iand(pack_tmp, mask_right(nbits))
11766  full_data(idata) = data_tmp
11767  pack_tmp = ishft(pack_tmp, -nbits)
11768  idata = idata + 1
11769  data_tmp = iand(pack_tmp, mask_right(nbits))
11770  full_data(idata) = data_tmp
11771  pack_tmp = ishft(pack_tmp, -nbits)
11772  idata = idata + 1
11773  data_tmp = iand(pack_tmp, mask_right(nbits))
11774  full_data(idata) = data_tmp
11775  pack_tmp = ishft(pack_tmp, -nbits)
11776  idata = idata + 1
11777  data_tmp = ishft(pack_tmp, 15)
11778  ipack = ipack + 1
11779  pack_tmp = packed_data(ipack)
11780  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
11781  pack_tmp = ishft(pack_tmp, -15)
11782  idata = idata + 1
11783  data_tmp = iand(pack_tmp, mask_right(nbits))
11784  full_data(idata) = data_tmp
11785  pack_tmp = ishft(pack_tmp, -nbits)
11786  idata = idata + 1
11787  data_tmp = iand(pack_tmp, mask_right(nbits))
11788  full_data(idata) = data_tmp
11789  pack_tmp = ishft(pack_tmp, -nbits)
11790  idata = idata + 1
11791  data_tmp = ishft(pack_tmp, 2)
11792  ipack = ipack + 1
11793  pack_tmp = packed_data(ipack)
11794  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
11795  pack_tmp = ishft(pack_tmp, -2)
11796  idata = idata + 1
11797  data_tmp = iand(pack_tmp, mask_right(nbits))
11798  full_data(idata) = data_tmp
11799  pack_tmp = ishft(pack_tmp, -nbits)
11800  idata = idata + 1
11801  data_tmp = iand(pack_tmp, mask_right(nbits))
11802  full_data(idata) = data_tmp
11803  pack_tmp = ishft(pack_tmp, -nbits)
11804  idata = idata + 1
11805  data_tmp = iand(pack_tmp, mask_right(nbits))
11806  full_data(idata) = data_tmp
11807  pack_tmp = ishft(pack_tmp, -nbits)
11808  idata = idata + 1
11809  data_tmp = ishft(pack_tmp, 6)
11810  ipack = ipack + 1
11811  pack_tmp = packed_data(ipack)
11812  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
11813  pack_tmp = ishft(pack_tmp, -6)
11814  idata = idata + 1
11815  data_tmp = iand(pack_tmp, mask_right(nbits))
11816  full_data(idata) = data_tmp
11817  pack_tmp = ishft(pack_tmp, -nbits)
11818  idata = idata + 1
11819  data_tmp = iand(pack_tmp, mask_right(nbits))
11820  full_data(idata) = data_tmp
11821  pack_tmp = ishft(pack_tmp, -nbits)
11822  idata = idata + 1
11823  data_tmp = iand(pack_tmp, mask_right(nbits))
11824  full_data(idata) = data_tmp
11825  pack_tmp = ishft(pack_tmp, -nbits)
11826  idata = idata + 1
11827  data_tmp = ishft(pack_tmp, 10)
11828  ipack = ipack + 1
11829  pack_tmp = packed_data(ipack)
11830  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
11831  pack_tmp = ishft(pack_tmp, -10)
11832  idata = idata + 1
11833  data_tmp = iand(pack_tmp, mask_right(nbits))
11834  full_data(idata) = data_tmp
11835  pack_tmp = ishft(pack_tmp, -nbits)
11836  idata = idata + 1
11837  data_tmp = iand(pack_tmp, mask_right(nbits))
11838  full_data(idata) = data_tmp
11839  pack_tmp = ishft(pack_tmp, -nbits)
11840  idata = idata + 1
11841  data_tmp = iand(pack_tmp, mask_right(nbits))
11842  full_data(idata) = data_tmp
11843  pack_tmp = ishft(pack_tmp, -nbits)
11844  idata = idata + 1
11845  data_tmp = ishft(pack_tmp, 14)
11846  ipack = ipack + 1
11847  pack_tmp = packed_data(ipack)
11848  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
11849  pack_tmp = ishft(pack_tmp, -14)
11850  idata = idata + 1
11851  data_tmp = iand(pack_tmp, mask_right(nbits))
11852  full_data(idata) = data_tmp
11853  pack_tmp = ishft(pack_tmp, -nbits)
11854  idata = idata + 1
11855  data_tmp = iand(pack_tmp, mask_right(nbits))
11856  full_data(idata) = data_tmp
11857  pack_tmp = ishft(pack_tmp, -nbits)
11858  idata = idata + 1
11859  data_tmp = ishft(pack_tmp, 1)
11860  ipack = ipack + 1
11861  pack_tmp = packed_data(ipack)
11862  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
11863  pack_tmp = ishft(pack_tmp, -1)
11864  idata = idata + 1
11865  data_tmp = iand(pack_tmp, mask_right(nbits))
11866  full_data(idata) = data_tmp
11867  pack_tmp = ishft(pack_tmp, -nbits)
11868  idata = idata + 1
11869  data_tmp = iand(pack_tmp, mask_right(nbits))
11870  full_data(idata) = data_tmp
11871  pack_tmp = ishft(pack_tmp, -nbits)
11872  idata = idata + 1
11873  data_tmp = iand(pack_tmp, mask_right(nbits))
11874  full_data(idata) = data_tmp
11875  pack_tmp = ishft(pack_tmp, -nbits)
11876  idata = idata + 1
11877  data_tmp = ishft(pack_tmp, 5)
11878  ipack = ipack + 1
11879  pack_tmp = packed_data(ipack)
11880  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
11881  pack_tmp = ishft(pack_tmp, -5)
11882  idata = idata + 1
11883  data_tmp = iand(pack_tmp, mask_right(nbits))
11884  full_data(idata) = data_tmp
11885  pack_tmp = ishft(pack_tmp, -nbits)
11886  idata = idata + 1
11887  data_tmp = iand(pack_tmp, mask_right(nbits))
11888  full_data(idata) = data_tmp
11889  pack_tmp = ishft(pack_tmp, -nbits)
11890  idata = idata + 1
11891  data_tmp = iand(pack_tmp, mask_right(nbits))
11892  full_data(idata) = data_tmp
11893  pack_tmp = ishft(pack_tmp, -nbits)
11894  idata = idata + 1
11895  data_tmp = ishft(pack_tmp, 9)
11896  ipack = ipack + 1
11897  pack_tmp = packed_data(ipack)
11898  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
11899  pack_tmp = ishft(pack_tmp, -9)
11900  idata = idata + 1
11901  data_tmp = iand(pack_tmp, mask_right(nbits))
11902  full_data(idata) = data_tmp
11903  pack_tmp = ishft(pack_tmp, -nbits)
11904  idata = idata + 1
11905  data_tmp = iand(pack_tmp, mask_right(nbits))
11906  full_data(idata) = data_tmp
11907  pack_tmp = ishft(pack_tmp, -nbits)
11908  idata = idata + 1
11909  data_tmp = iand(pack_tmp, mask_right(nbits))
11910  full_data(idata) = data_tmp
11911  pack_tmp = ishft(pack_tmp, -nbits)
11912  idata = idata + 1
11913  data_tmp = ishft(pack_tmp, 13)
11914  ipack = ipack + 1
11915  pack_tmp = packed_data(ipack)
11916  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
11917  pack_tmp = ishft(pack_tmp, -13)
11918  idata = idata + 1
11919  data_tmp = iand(pack_tmp, mask_right(nbits))
11920  full_data(idata) = data_tmp
11921  pack_tmp = ishft(pack_tmp, -nbits)
11922  idata = idata + 1
11923  data_tmp = iand(pack_tmp, mask_right(nbits))
11924  full_data(idata) = data_tmp
11925  pack_tmp = ishft(pack_tmp, -nbits)
11926  idata = idata + 1
11927  data_tmp = iand(pack_tmp, mask_right(nbits))
11928  full_data(idata) = data_tmp
11929  pack_tmp = ishft(pack_tmp, -nbits)
11930  END DO
11931  IF (ndata_rep < ndata) THEN
11932  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
11933  END IF
11934  END SUBROUTINE bits2ints_17
11935 
11936 ! **************************************************************************************************
11937 !> \brief ...
11938 !> \param Ndata ...
11939 !> \param packed_data ...
11940 !> \param full_data ...
11941 ! **************************************************************************************************
11942  SUBROUTINE ints2bits_18(Ndata, packed_data, full_data)
11943  INTEGER, INTENT(IN) :: Ndata
11944  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
11945  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
11946 
11947  INTEGER, PARAMETER :: Nbits = 18
11948 
11949  INTEGER :: idata, ipack, kdata, Ndata_rep
11950  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
11951 
11952  idata = 0
11953  ipack = 0
11954  ndata_rep = (ndata/64)*64
11955  DO kdata = 1, ndata_rep, 64
11956  pack_tmp = 0
11957  idata = idata + 1
11958  data_tmp = full_data(idata)
11959  data_tmp = ishft(data_tmp, 46)
11960  pack_tmp = ior(pack_tmp, data_tmp)
11961  pack_tmp = ishft(pack_tmp, -18)
11962  idata = idata + 1
11963  data_tmp = full_data(idata)
11964  data_tmp = ishft(data_tmp, 46)
11965  pack_tmp = ior(pack_tmp, data_tmp)
11966  pack_tmp = ishft(pack_tmp, -18)
11967  idata = idata + 1
11968  data_tmp = full_data(idata)
11969  data_tmp = ishft(data_tmp, 46)
11970  pack_tmp = ior(pack_tmp, data_tmp)
11971  pack_tmp = ishft(pack_tmp, -10)
11972  idata = idata + 1
11973  data_tmp = full_data(idata)
11974  data_tmp = ishft(data_tmp, 46)
11975  data_tmp = iand(data_tmp, mask_left(10))
11976  pack_tmp = ior(pack_tmp, data_tmp)
11977  ipack = ipack + 1
11978  packed_data(ipack) = pack_tmp
11979  data_tmp = full_data(idata)
11980  pack_tmp = ishft(data_tmp, 56)
11981  pack_tmp = ishft(pack_tmp, -18)
11982  idata = idata + 1
11983  data_tmp = full_data(idata)
11984  data_tmp = ishft(data_tmp, 46)
11985  pack_tmp = ior(pack_tmp, data_tmp)
11986  pack_tmp = ishft(pack_tmp, -18)
11987  idata = idata + 1
11988  data_tmp = full_data(idata)
11989  data_tmp = ishft(data_tmp, 46)
11990  pack_tmp = ior(pack_tmp, data_tmp)
11991  pack_tmp = ishft(pack_tmp, -18)
11992  idata = idata + 1
11993  data_tmp = full_data(idata)
11994  data_tmp = ishft(data_tmp, 46)
11995  pack_tmp = ior(pack_tmp, data_tmp)
11996  pack_tmp = ishft(pack_tmp, -2)
11997  idata = idata + 1
11998  data_tmp = full_data(idata)
11999  data_tmp = ishft(data_tmp, 46)
12000  data_tmp = iand(data_tmp, mask_left(2))
12001  pack_tmp = ior(pack_tmp, data_tmp)
12002  ipack = ipack + 1
12003  packed_data(ipack) = pack_tmp
12004  data_tmp = full_data(idata)
12005  pack_tmp = ishft(data_tmp, 48)
12006  pack_tmp = ishft(pack_tmp, -18)
12007  idata = idata + 1
12008  data_tmp = full_data(idata)
12009  data_tmp = ishft(data_tmp, 46)
12010  pack_tmp = ior(pack_tmp, data_tmp)
12011  pack_tmp = ishft(pack_tmp, -18)
12012  idata = idata + 1
12013  data_tmp = full_data(idata)
12014  data_tmp = ishft(data_tmp, 46)
12015  pack_tmp = ior(pack_tmp, data_tmp)
12016  pack_tmp = ishft(pack_tmp, -12)
12017  idata = idata + 1
12018  data_tmp = full_data(idata)
12019  data_tmp = ishft(data_tmp, 46)
12020  data_tmp = iand(data_tmp, mask_left(12))
12021  pack_tmp = ior(pack_tmp, data_tmp)
12022  ipack = ipack + 1
12023  packed_data(ipack) = pack_tmp
12024  data_tmp = full_data(idata)
12025  pack_tmp = ishft(data_tmp, 58)
12026  pack_tmp = ishft(pack_tmp, -18)
12027  idata = idata + 1
12028  data_tmp = full_data(idata)
12029  data_tmp = ishft(data_tmp, 46)
12030  pack_tmp = ior(pack_tmp, data_tmp)
12031  pack_tmp = ishft(pack_tmp, -18)
12032  idata = idata + 1
12033  data_tmp = full_data(idata)
12034  data_tmp = ishft(data_tmp, 46)
12035  pack_tmp = ior(pack_tmp, data_tmp)
12036  pack_tmp = ishft(pack_tmp, -18)
12037  idata = idata + 1
12038  data_tmp = full_data(idata)
12039  data_tmp = ishft(data_tmp, 46)
12040  pack_tmp = ior(pack_tmp, data_tmp)
12041  pack_tmp = ishft(pack_tmp, -4)
12042  idata = idata + 1
12043  data_tmp = full_data(idata)
12044  data_tmp = ishft(data_tmp, 46)
12045  data_tmp = iand(data_tmp, mask_left(4))
12046  pack_tmp = ior(pack_tmp, data_tmp)
12047  ipack = ipack + 1
12048  packed_data(ipack) = pack_tmp
12049  data_tmp = full_data(idata)
12050  pack_tmp = ishft(data_tmp, 50)
12051  pack_tmp = ishft(pack_tmp, -18)
12052  idata = idata + 1
12053  data_tmp = full_data(idata)
12054  data_tmp = ishft(data_tmp, 46)
12055  pack_tmp = ior(pack_tmp, data_tmp)
12056  pack_tmp = ishft(pack_tmp, -18)
12057  idata = idata + 1
12058  data_tmp = full_data(idata)
12059  data_tmp = ishft(data_tmp, 46)
12060  pack_tmp = ior(pack_tmp, data_tmp)
12061  pack_tmp = ishft(pack_tmp, -14)
12062  idata = idata + 1
12063  data_tmp = full_data(idata)
12064  data_tmp = ishft(data_tmp, 46)
12065  data_tmp = iand(data_tmp, mask_left(14))
12066  pack_tmp = ior(pack_tmp, data_tmp)
12067  ipack = ipack + 1
12068  packed_data(ipack) = pack_tmp
12069  data_tmp = full_data(idata)
12070  pack_tmp = ishft(data_tmp, 60)
12071  pack_tmp = ishft(pack_tmp, -18)
12072  idata = idata + 1
12073  data_tmp = full_data(idata)
12074  data_tmp = ishft(data_tmp, 46)
12075  pack_tmp = ior(pack_tmp, data_tmp)
12076  pack_tmp = ishft(pack_tmp, -18)
12077  idata = idata + 1
12078  data_tmp = full_data(idata)
12079  data_tmp = ishft(data_tmp, 46)
12080  pack_tmp = ior(pack_tmp, data_tmp)
12081  pack_tmp = ishft(pack_tmp, -18)
12082  idata = idata + 1
12083  data_tmp = full_data(idata)
12084  data_tmp = ishft(data_tmp, 46)
12085  pack_tmp = ior(pack_tmp, data_tmp)
12086  pack_tmp = ishft(pack_tmp, -6)
12087  idata = idata + 1
12088  data_tmp = full_data(idata)
12089  data_tmp = ishft(data_tmp, 46)
12090  data_tmp = iand(data_tmp, mask_left(6))
12091  pack_tmp = ior(pack_tmp, data_tmp)
12092  ipack = ipack + 1
12093  packed_data(ipack) = pack_tmp
12094  data_tmp = full_data(idata)
12095  pack_tmp = ishft(data_tmp, 52)
12096  pack_tmp = ishft(pack_tmp, -18)
12097  idata = idata + 1
12098  data_tmp = full_data(idata)
12099  data_tmp = ishft(data_tmp, 46)
12100  pack_tmp = ior(pack_tmp, data_tmp)
12101  pack_tmp = ishft(pack_tmp, -18)
12102  idata = idata + 1
12103  data_tmp = full_data(idata)
12104  data_tmp = ishft(data_tmp, 46)
12105  pack_tmp = ior(pack_tmp, data_tmp)
12106  pack_tmp = ishft(pack_tmp, -16)
12107  idata = idata + 1
12108  data_tmp = full_data(idata)
12109  data_tmp = ishft(data_tmp, 46)
12110  data_tmp = iand(data_tmp, mask_left(16))
12111  pack_tmp = ior(pack_tmp, data_tmp)
12112  ipack = ipack + 1
12113  packed_data(ipack) = pack_tmp
12114  data_tmp = full_data(idata)
12115  pack_tmp = ishft(data_tmp, 62)
12116  pack_tmp = ishft(pack_tmp, -18)
12117  idata = idata + 1
12118  data_tmp = full_data(idata)
12119  data_tmp = ishft(data_tmp, 46)
12120  pack_tmp = ior(pack_tmp, data_tmp)
12121  pack_tmp = ishft(pack_tmp, -18)
12122  idata = idata + 1
12123  data_tmp = full_data(idata)
12124  data_tmp = ishft(data_tmp, 46)
12125  pack_tmp = ior(pack_tmp, data_tmp)
12126  pack_tmp = ishft(pack_tmp, -18)
12127  idata = idata + 1
12128  data_tmp = full_data(idata)
12129  data_tmp = ishft(data_tmp, 46)
12130  pack_tmp = ior(pack_tmp, data_tmp)
12131  pack_tmp = ishft(pack_tmp, -8)
12132  idata = idata + 1
12133  data_tmp = full_data(idata)
12134  data_tmp = ishft(data_tmp, 46)
12135  data_tmp = iand(data_tmp, mask_left(8))
12136  pack_tmp = ior(pack_tmp, data_tmp)
12137  ipack = ipack + 1
12138  packed_data(ipack) = pack_tmp
12139  data_tmp = full_data(idata)
12140  pack_tmp = ishft(data_tmp, 54)
12141  pack_tmp = ishft(pack_tmp, -18)
12142  idata = idata + 1
12143  data_tmp = full_data(idata)
12144  data_tmp = ishft(data_tmp, 46)
12145  pack_tmp = ior(pack_tmp, data_tmp)
12146  pack_tmp = ishft(pack_tmp, -18)
12147  idata = idata + 1
12148  data_tmp = full_data(idata)
12149  data_tmp = ishft(data_tmp, 46)
12150  pack_tmp = ior(pack_tmp, data_tmp)
12151  pack_tmp = ishft(pack_tmp, -18)
12152  idata = idata + 1
12153  data_tmp = full_data(idata)
12154  data_tmp = ishft(data_tmp, 46)
12155  pack_tmp = ior(pack_tmp, data_tmp)
12156  pack_tmp = ishft(pack_tmp, 0)
12157  idata = idata + 1
12158  data_tmp = full_data(idata)
12159  data_tmp = ishft(data_tmp, 46)
12160  data_tmp = iand(data_tmp, mask_left(0))
12161  pack_tmp = ior(pack_tmp, data_tmp)
12162  ipack = ipack + 1
12163  packed_data(ipack) = pack_tmp
12164  data_tmp = full_data(idata)
12165  pack_tmp = ishft(data_tmp, 46)
12166  pack_tmp = ishft(pack_tmp, -18)
12167  idata = idata + 1
12168  data_tmp = full_data(idata)
12169  data_tmp = ishft(data_tmp, 46)
12170  pack_tmp = ior(pack_tmp, data_tmp)
12171  pack_tmp = ishft(pack_tmp, -18)
12172  idata = idata + 1
12173  data_tmp = full_data(idata)
12174  data_tmp = ishft(data_tmp, 46)
12175  pack_tmp = ior(pack_tmp, data_tmp)
12176  pack_tmp = ishft(pack_tmp, -10)
12177  idata = idata + 1
12178  data_tmp = full_data(idata)
12179  data_tmp = ishft(data_tmp, 46)
12180  data_tmp = iand(data_tmp, mask_left(10))
12181  pack_tmp = ior(pack_tmp, data_tmp)
12182  ipack = ipack + 1
12183  packed_data(ipack) = pack_tmp
12184  data_tmp = full_data(idata)
12185  pack_tmp = ishft(data_tmp, 56)
12186  pack_tmp = ishft(pack_tmp, -18)
12187  idata = idata + 1
12188  data_tmp = full_data(idata)
12189  data_tmp = ishft(data_tmp, 46)
12190  pack_tmp = ior(pack_tmp, data_tmp)
12191  pack_tmp = ishft(pack_tmp, -18)
12192  idata = idata + 1
12193  data_tmp = full_data(idata)
12194  data_tmp = ishft(data_tmp, 46)
12195  pack_tmp = ior(pack_tmp, data_tmp)
12196  pack_tmp = ishft(pack_tmp, -18)
12197  idata = idata + 1
12198  data_tmp = full_data(idata)
12199  data_tmp = ishft(data_tmp, 46)
12200  pack_tmp = ior(pack_tmp, data_tmp)
12201  pack_tmp = ishft(pack_tmp, -2)
12202  idata = idata + 1
12203  data_tmp = full_data(idata)
12204  data_tmp = ishft(data_tmp, 46)
12205  data_tmp = iand(data_tmp, mask_left(2))
12206  pack_tmp = ior(pack_tmp, data_tmp)
12207  ipack = ipack + 1
12208  packed_data(ipack) = pack_tmp
12209  data_tmp = full_data(idata)
12210  pack_tmp = ishft(data_tmp, 48)
12211  pack_tmp = ishft(pack_tmp, -18)
12212  idata = idata + 1
12213  data_tmp = full_data(idata)
12214  data_tmp = ishft(data_tmp, 46)
12215  pack_tmp = ior(pack_tmp, data_tmp)
12216  pack_tmp = ishft(pack_tmp, -18)
12217  idata = idata + 1
12218  data_tmp = full_data(idata)
12219  data_tmp = ishft(data_tmp, 46)
12220  pack_tmp = ior(pack_tmp, data_tmp)
12221  pack_tmp = ishft(pack_tmp, -12)
12222  idata = idata + 1
12223  data_tmp = full_data(idata)
12224  data_tmp = ishft(data_tmp, 46)
12225  data_tmp = iand(data_tmp, mask_left(12))
12226  pack_tmp = ior(pack_tmp, data_tmp)
12227  ipack = ipack + 1
12228  packed_data(ipack) = pack_tmp
12229  data_tmp = full_data(idata)
12230  pack_tmp = ishft(data_tmp, 58)
12231  pack_tmp = ishft(pack_tmp, -18)
12232  idata = idata + 1
12233  data_tmp = full_data(idata)
12234  data_tmp = ishft(data_tmp, 46)
12235  pack_tmp = ior(pack_tmp, data_tmp)
12236  pack_tmp = ishft(pack_tmp, -18)
12237  idata = idata + 1
12238  data_tmp = full_data(idata)
12239  data_tmp = ishft(data_tmp, 46)
12240  pack_tmp = ior(pack_tmp, data_tmp)
12241  pack_tmp = ishft(pack_tmp, -18)
12242  idata = idata + 1
12243  data_tmp = full_data(idata)
12244  data_tmp = ishft(data_tmp, 46)
12245  pack_tmp = ior(pack_tmp, data_tmp)
12246  pack_tmp = ishft(pack_tmp, -4)
12247  idata = idata + 1
12248  data_tmp = full_data(idata)
12249  data_tmp = ishft(data_tmp, 46)
12250  data_tmp = iand(data_tmp, mask_left(4))
12251  pack_tmp = ior(pack_tmp, data_tmp)
12252  ipack = ipack + 1
12253  packed_data(ipack) = pack_tmp
12254  data_tmp = full_data(idata)
12255  pack_tmp = ishft(data_tmp, 50)
12256  pack_tmp = ishft(pack_tmp, -18)
12257  idata = idata + 1
12258  data_tmp = full_data(idata)
12259  data_tmp = ishft(data_tmp, 46)
12260  pack_tmp = ior(pack_tmp, data_tmp)
12261  pack_tmp = ishft(pack_tmp, -18)
12262  idata = idata + 1
12263  data_tmp = full_data(idata)
12264  data_tmp = ishft(data_tmp, 46)
12265  pack_tmp = ior(pack_tmp, data_tmp)
12266  pack_tmp = ishft(pack_tmp, -14)
12267  idata = idata + 1
12268  data_tmp = full_data(idata)
12269  data_tmp = ishft(data_tmp, 46)
12270  data_tmp = iand(data_tmp, mask_left(14))
12271  pack_tmp = ior(pack_tmp, data_tmp)
12272  ipack = ipack + 1
12273  packed_data(ipack) = pack_tmp
12274  data_tmp = full_data(idata)
12275  pack_tmp = ishft(data_tmp, 60)
12276  pack_tmp = ishft(pack_tmp, -18)
12277  idata = idata + 1
12278  data_tmp = full_data(idata)
12279  data_tmp = ishft(data_tmp, 46)
12280  pack_tmp = ior(pack_tmp, data_tmp)
12281  pack_tmp = ishft(pack_tmp, -18)
12282  idata = idata + 1
12283  data_tmp = full_data(idata)
12284  data_tmp = ishft(data_tmp, 46)
12285  pack_tmp = ior(pack_tmp, data_tmp)
12286  pack_tmp = ishft(pack_tmp, -18)
12287  idata = idata + 1
12288  data_tmp = full_data(idata)
12289  data_tmp = ishft(data_tmp, 46)
12290  pack_tmp = ior(pack_tmp, data_tmp)
12291  pack_tmp = ishft(pack_tmp, -6)
12292  idata = idata + 1
12293  data_tmp = full_data(idata)
12294  data_tmp = ishft(data_tmp, 46)
12295  data_tmp = iand(data_tmp, mask_left(6))
12296  pack_tmp = ior(pack_tmp, data_tmp)
12297  ipack = ipack + 1
12298  packed_data(ipack) = pack_tmp
12299  data_tmp = full_data(idata)
12300  pack_tmp = ishft(data_tmp, 52)
12301  pack_tmp = ishft(pack_tmp, -18)
12302  idata = idata + 1
12303  data_tmp = full_data(idata)
12304  data_tmp = ishft(data_tmp, 46)
12305  pack_tmp = ior(pack_tmp, data_tmp)
12306  pack_tmp = ishft(pack_tmp, -18)
12307  idata = idata + 1
12308  data_tmp = full_data(idata)
12309  data_tmp = ishft(data_tmp, 46)
12310  pack_tmp = ior(pack_tmp, data_tmp)
12311  pack_tmp = ishft(pack_tmp, -16)
12312  idata = idata + 1
12313  data_tmp = full_data(idata)
12314  data_tmp = ishft(data_tmp, 46)
12315  data_tmp = iand(data_tmp, mask_left(16))
12316  pack_tmp = ior(pack_tmp, data_tmp)
12317  ipack = ipack + 1
12318  packed_data(ipack) = pack_tmp
12319  data_tmp = full_data(idata)
12320  pack_tmp = ishft(data_tmp, 62)
12321  pack_tmp = ishft(pack_tmp, -18)
12322  idata = idata + 1
12323  data_tmp = full_data(idata)
12324  data_tmp = ishft(data_tmp, 46)
12325  pack_tmp = ior(pack_tmp, data_tmp)
12326  pack_tmp = ishft(pack_tmp, -18)
12327  idata = idata + 1
12328  data_tmp = full_data(idata)
12329  data_tmp = ishft(data_tmp, 46)
12330  pack_tmp = ior(pack_tmp, data_tmp)
12331  pack_tmp = ishft(pack_tmp, -18)
12332  idata = idata + 1
12333  data_tmp = full_data(idata)
12334  data_tmp = ishft(data_tmp, 46)
12335  pack_tmp = ior(pack_tmp, data_tmp)
12336  pack_tmp = ishft(pack_tmp, -8)
12337  idata = idata + 1
12338  data_tmp = full_data(idata)
12339  data_tmp = ishft(data_tmp, 46)
12340  data_tmp = iand(data_tmp, mask_left(8))
12341  pack_tmp = ior(pack_tmp, data_tmp)
12342  ipack = ipack + 1
12343  packed_data(ipack) = pack_tmp
12344  data_tmp = full_data(idata)
12345  pack_tmp = ishft(data_tmp, 54)
12346  pack_tmp = ishft(pack_tmp, -18)
12347  idata = idata + 1
12348  data_tmp = full_data(idata)
12349  data_tmp = ishft(data_tmp, 46)
12350  pack_tmp = ior(pack_tmp, data_tmp)
12351  pack_tmp = ishft(pack_tmp, -18)
12352  idata = idata + 1
12353  data_tmp = full_data(idata)
12354  data_tmp = ishft(data_tmp, 46)
12355  pack_tmp = ior(pack_tmp, data_tmp)
12356  pack_tmp = ishft(pack_tmp, -18)
12357  idata = idata + 1
12358  data_tmp = full_data(idata)
12359  data_tmp = ishft(data_tmp, 46)
12360  pack_tmp = ior(pack_tmp, data_tmp)
12361  pack_tmp = ishft(pack_tmp, 0)
12362  pack_tmp = ishft(pack_tmp, 0)
12363  ipack = ipack + 1
12364  packed_data(ipack) = pack_tmp
12365  END DO
12366  IF (ndata_rep < ndata) THEN
12367  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
12368  END IF
12369  END SUBROUTINE ints2bits_18
12370 
12371 ! **************************************************************************************************
12372 !> \brief ...
12373 !> \param Ndata ...
12374 !> \param packed_data ...
12375 !> \param full_data ...
12376 ! **************************************************************************************************
12377  SUBROUTINE bits2ints_18(Ndata, packed_data, full_data)
12378  INTEGER, INTENT(IN) :: Ndata
12379  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
12380  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
12381 
12382  INTEGER, PARAMETER :: Nbits = 18
12383 
12384  INTEGER :: idata, ipack, kdata, Ndata_rep
12385  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
12386 
12387  ipack = 0
12388  idata = 0
12389  pack_tmp = 0
12390  ndata_rep = (ndata/64)*64
12391  DO kdata = 1, ndata_rep, 64
12392  idata = idata + 1
12393  data_tmp = ishft(pack_tmp, 18)
12394  ipack = ipack + 1
12395  pack_tmp = packed_data(ipack)
12396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
12397  pack_tmp = ishft(pack_tmp, -18)
12398  idata = idata + 1
12399  data_tmp = iand(pack_tmp, mask_right(nbits))
12400  full_data(idata) = data_tmp
12401  pack_tmp = ishft(pack_tmp, -nbits)
12402  idata = idata + 1
12403  data_tmp = iand(pack_tmp, mask_right(nbits))
12404  full_data(idata) = data_tmp
12405  pack_tmp = ishft(pack_tmp, -nbits)
12406  idata = idata + 1
12407  data_tmp = ishft(pack_tmp, 8)
12408  ipack = ipack + 1
12409  pack_tmp = packed_data(ipack)
12410  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
12411  pack_tmp = ishft(pack_tmp, -8)
12412  idata = idata + 1
12413  data_tmp = iand(pack_tmp, mask_right(nbits))
12414  full_data(idata) = data_tmp
12415  pack_tmp = ishft(pack_tmp, -nbits)
12416  idata = idata + 1
12417  data_tmp = iand(pack_tmp, mask_right(nbits))
12418  full_data(idata) = data_tmp
12419  pack_tmp = ishft(pack_tmp, -nbits)
12420  idata = idata + 1
12421  data_tmp = iand(pack_tmp, mask_right(nbits))
12422  full_data(idata) = data_tmp
12423  pack_tmp = ishft(pack_tmp, -nbits)
12424  idata = idata + 1
12425  data_tmp = ishft(pack_tmp, 16)
12426  ipack = ipack + 1
12427  pack_tmp = packed_data(ipack)
12428  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
12429  pack_tmp = ishft(pack_tmp, -16)
12430  idata = idata + 1
12431  data_tmp = iand(pack_tmp, mask_right(nbits))
12432  full_data(idata) = data_tmp
12433  pack_tmp = ishft(pack_tmp, -nbits)
12434  idata = idata + 1
12435  data_tmp = iand(pack_tmp, mask_right(nbits))
12436  full_data(idata) = data_tmp
12437  pack_tmp = ishft(pack_tmp, -nbits)
12438  idata = idata + 1
12439  data_tmp = ishft(pack_tmp, 6)
12440  ipack = ipack + 1
12441  pack_tmp = packed_data(ipack)
12442  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
12443  pack_tmp = ishft(pack_tmp, -6)
12444  idata = idata + 1
12445  data_tmp = iand(pack_tmp, mask_right(nbits))
12446  full_data(idata) = data_tmp
12447  pack_tmp = ishft(pack_tmp, -nbits)
12448  idata = idata + 1
12449  data_tmp = iand(pack_tmp, mask_right(nbits))
12450  full_data(idata) = data_tmp
12451  pack_tmp = ishft(pack_tmp, -nbits)
12452  idata = idata + 1
12453  data_tmp = iand(pack_tmp, mask_right(nbits))
12454  full_data(idata) = data_tmp
12455  pack_tmp = ishft(pack_tmp, -nbits)
12456  idata = idata + 1
12457  data_tmp = ishft(pack_tmp, 14)
12458  ipack = ipack + 1
12459  pack_tmp = packed_data(ipack)
12460  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
12461  pack_tmp = ishft(pack_tmp, -14)
12462  idata = idata + 1
12463  data_tmp = iand(pack_tmp, mask_right(nbits))
12464  full_data(idata) = data_tmp
12465  pack_tmp = ishft(pack_tmp, -nbits)
12466  idata = idata + 1
12467  data_tmp = iand(pack_tmp, mask_right(nbits))
12468  full_data(idata) = data_tmp
12469  pack_tmp = ishft(pack_tmp, -nbits)
12470  idata = idata + 1
12471  data_tmp = ishft(pack_tmp, 4)
12472  ipack = ipack + 1
12473  pack_tmp = packed_data(ipack)
12474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
12475  pack_tmp = ishft(pack_tmp, -4)
12476  idata = idata + 1
12477  data_tmp = iand(pack_tmp, mask_right(nbits))
12478  full_data(idata) = data_tmp
12479  pack_tmp = ishft(pack_tmp, -nbits)
12480  idata = idata + 1
12481  data_tmp = iand(pack_tmp, mask_right(nbits))
12482  full_data(idata) = data_tmp
12483  pack_tmp = ishft(pack_tmp, -nbits)
12484  idata = idata + 1
12485  data_tmp = iand(pack_tmp, mask_right(nbits))
12486  full_data(idata) = data_tmp
12487  pack_tmp = ishft(pack_tmp, -nbits)
12488  idata = idata + 1
12489  data_tmp = ishft(pack_tmp, 12)
12490  ipack = ipack + 1
12491  pack_tmp = packed_data(ipack)
12492  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
12493  pack_tmp = ishft(pack_tmp, -12)
12494  idata = idata + 1
12495  data_tmp = iand(pack_tmp, mask_right(nbits))
12496  full_data(idata) = data_tmp
12497  pack_tmp = ishft(pack_tmp, -nbits)
12498  idata = idata + 1
12499  data_tmp = iand(pack_tmp, mask_right(nbits))
12500  full_data(idata) = data_tmp
12501  pack_tmp = ishft(pack_tmp, -nbits)
12502  idata = idata + 1
12503  data_tmp = ishft(pack_tmp, 2)
12504  ipack = ipack + 1
12505  pack_tmp = packed_data(ipack)
12506  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
12507  pack_tmp = ishft(pack_tmp, -2)
12508  idata = idata + 1
12509  data_tmp = iand(pack_tmp, mask_right(nbits))
12510  full_data(idata) = data_tmp
12511  pack_tmp = ishft(pack_tmp, -nbits)
12512  idata = idata + 1
12513  data_tmp = iand(pack_tmp, mask_right(nbits))
12514  full_data(idata) = data_tmp
12515  pack_tmp = ishft(pack_tmp, -nbits)
12516  idata = idata + 1
12517  data_tmp = iand(pack_tmp, mask_right(nbits))
12518  full_data(idata) = data_tmp
12519  pack_tmp = ishft(pack_tmp, -nbits)
12520  idata = idata + 1
12521  data_tmp = ishft(pack_tmp, 10)
12522  ipack = ipack + 1
12523  pack_tmp = packed_data(ipack)
12524  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
12525  pack_tmp = ishft(pack_tmp, -10)
12526  idata = idata + 1
12527  data_tmp = iand(pack_tmp, mask_right(nbits))
12528  full_data(idata) = data_tmp
12529  pack_tmp = ishft(pack_tmp, -nbits)
12530  idata = idata + 1
12531  data_tmp = iand(pack_tmp, mask_right(nbits))
12532  full_data(idata) = data_tmp
12533  pack_tmp = ishft(pack_tmp, -nbits)
12534  idata = idata + 1
12535  data_tmp = iand(pack_tmp, mask_right(nbits))
12536  full_data(idata) = data_tmp
12537  pack_tmp = ishft(pack_tmp, -nbits)
12538  idata = idata + 1
12539  data_tmp = ishft(pack_tmp, 18)
12540  ipack = ipack + 1
12541  pack_tmp = packed_data(ipack)
12542  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
12543  pack_tmp = ishft(pack_tmp, -18)
12544  idata = idata + 1
12545  data_tmp = iand(pack_tmp, mask_right(nbits))
12546  full_data(idata) = data_tmp
12547  pack_tmp = ishft(pack_tmp, -nbits)
12548  idata = idata + 1
12549  data_tmp = iand(pack_tmp, mask_right(nbits))
12550  full_data(idata) = data_tmp
12551  pack_tmp = ishft(pack_tmp, -nbits)
12552  idata = idata + 1
12553  data_tmp = ishft(pack_tmp, 8)
12554  ipack = ipack + 1
12555  pack_tmp = packed_data(ipack)
12556  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
12557  pack_tmp = ishft(pack_tmp, -8)
12558  idata = idata + 1
12559  data_tmp = iand(pack_tmp, mask_right(nbits))
12560  full_data(idata) = data_tmp
12561  pack_tmp = ishft(pack_tmp, -nbits)
12562  idata = idata + 1
12563  data_tmp = iand(pack_tmp, mask_right(nbits))
12564  full_data(idata) = data_tmp
12565  pack_tmp = ishft(pack_tmp, -nbits)
12566  idata = idata + 1
12567  data_tmp = iand(pack_tmp, mask_right(nbits))
12568  full_data(idata) = data_tmp
12569  pack_tmp = ishft(pack_tmp, -nbits)
12570  idata = idata + 1
12571  data_tmp = ishft(pack_tmp, 16)
12572  ipack = ipack + 1
12573  pack_tmp = packed_data(ipack)
12574  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
12575  pack_tmp = ishft(pack_tmp, -16)
12576  idata = idata + 1
12577  data_tmp = iand(pack_tmp, mask_right(nbits))
12578  full_data(idata) = data_tmp
12579  pack_tmp = ishft(pack_tmp, -nbits)
12580  idata = idata + 1
12581  data_tmp = iand(pack_tmp, mask_right(nbits))
12582  full_data(idata) = data_tmp
12583  pack_tmp = ishft(pack_tmp, -nbits)
12584  idata = idata + 1
12585  data_tmp = ishft(pack_tmp, 6)
12586  ipack = ipack + 1
12587  pack_tmp = packed_data(ipack)
12588  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
12589  pack_tmp = ishft(pack_tmp, -6)
12590  idata = idata + 1
12591  data_tmp = iand(pack_tmp, mask_right(nbits))
12592  full_data(idata) = data_tmp
12593  pack_tmp = ishft(pack_tmp, -nbits)
12594  idata = idata + 1
12595  data_tmp = iand(pack_tmp, mask_right(nbits))
12596  full_data(idata) = data_tmp
12597  pack_tmp = ishft(pack_tmp, -nbits)
12598  idata = idata + 1
12599  data_tmp = iand(pack_tmp, mask_right(nbits))
12600  full_data(idata) = data_tmp
12601  pack_tmp = ishft(pack_tmp, -nbits)
12602  idata = idata + 1
12603  data_tmp = ishft(pack_tmp, 14)
12604  ipack = ipack + 1
12605  pack_tmp = packed_data(ipack)
12606  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
12607  pack_tmp = ishft(pack_tmp, -14)
12608  idata = idata + 1
12609  data_tmp = iand(pack_tmp, mask_right(nbits))
12610  full_data(idata) = data_tmp
12611  pack_tmp = ishft(pack_tmp, -nbits)
12612  idata = idata + 1
12613  data_tmp = iand(pack_tmp, mask_right(nbits))
12614  full_data(idata) = data_tmp
12615  pack_tmp = ishft(pack_tmp, -nbits)
12616  idata = idata + 1
12617  data_tmp = ishft(pack_tmp, 4)
12618  ipack = ipack + 1
12619  pack_tmp = packed_data(ipack)
12620  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
12621  pack_tmp = ishft(pack_tmp, -4)
12622  idata = idata + 1
12623  data_tmp = iand(pack_tmp, mask_right(nbits))
12624  full_data(idata) = data_tmp
12625  pack_tmp = ishft(pack_tmp, -nbits)
12626  idata = idata + 1
12627  data_tmp = iand(pack_tmp, mask_right(nbits))
12628  full_data(idata) = data_tmp
12629  pack_tmp = ishft(pack_tmp, -nbits)
12630  idata = idata + 1
12631  data_tmp = iand(pack_tmp, mask_right(nbits))
12632  full_data(idata) = data_tmp
12633  pack_tmp = ishft(pack_tmp, -nbits)
12634  idata = idata + 1
12635  data_tmp = ishft(pack_tmp, 12)
12636  ipack = ipack + 1
12637  pack_tmp = packed_data(ipack)
12638  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
12639  pack_tmp = ishft(pack_tmp, -12)
12640  idata = idata + 1
12641  data_tmp = iand(pack_tmp, mask_right(nbits))
12642  full_data(idata) = data_tmp
12643  pack_tmp = ishft(pack_tmp, -nbits)
12644  idata = idata + 1
12645  data_tmp = iand(pack_tmp, mask_right(nbits))
12646  full_data(idata) = data_tmp
12647  pack_tmp = ishft(pack_tmp, -nbits)
12648  idata = idata + 1
12649  data_tmp = ishft(pack_tmp, 2)
12650  ipack = ipack + 1
12651  pack_tmp = packed_data(ipack)
12652  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
12653  pack_tmp = ishft(pack_tmp, -2)
12654  idata = idata + 1
12655  data_tmp = iand(pack_tmp, mask_right(nbits))
12656  full_data(idata) = data_tmp
12657  pack_tmp = ishft(pack_tmp, -nbits)
12658  idata = idata + 1
12659  data_tmp = iand(pack_tmp, mask_right(nbits))
12660  full_data(idata) = data_tmp
12661  pack_tmp = ishft(pack_tmp, -nbits)
12662  idata = idata + 1
12663  data_tmp = iand(pack_tmp, mask_right(nbits))
12664  full_data(idata) = data_tmp
12665  pack_tmp = ishft(pack_tmp, -nbits)
12666  idata = idata + 1
12667  data_tmp = ishft(pack_tmp, 10)
12668  ipack = ipack + 1
12669  pack_tmp = packed_data(ipack)
12670  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
12671  pack_tmp = ishft(pack_tmp, -10)
12672  idata = idata + 1
12673  data_tmp = iand(pack_tmp, mask_right(nbits))
12674  full_data(idata) = data_tmp
12675  pack_tmp = ishft(pack_tmp, -nbits)
12676  idata = idata + 1
12677  data_tmp = iand(pack_tmp, mask_right(nbits))
12678  full_data(idata) = data_tmp
12679  pack_tmp = ishft(pack_tmp, -nbits)
12680  idata = idata + 1
12681  data_tmp = iand(pack_tmp, mask_right(nbits))
12682  full_data(idata) = data_tmp
12683  pack_tmp = ishft(pack_tmp, -nbits)
12684  END DO
12685  IF (ndata_rep < ndata) THEN
12686  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
12687  END IF
12688  END SUBROUTINE bits2ints_18
12689 
12690 ! **************************************************************************************************
12691 !> \brief ...
12692 !> \param Ndata ...
12693 !> \param packed_data ...
12694 !> \param full_data ...
12695 ! **************************************************************************************************
12696  SUBROUTINE ints2bits_19(Ndata, packed_data, full_data)
12697  INTEGER, INTENT(IN) :: Ndata
12698  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
12699  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
12700 
12701  INTEGER, PARAMETER :: Nbits = 19
12702 
12703  INTEGER :: idata, ipack, kdata, Ndata_rep
12704  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
12705 
12706  idata = 0
12707  ipack = 0
12708  ndata_rep = (ndata/64)*64
12709  DO kdata = 1, ndata_rep, 64
12710  pack_tmp = 0
12711  idata = idata + 1
12712  data_tmp = full_data(idata)
12713  data_tmp = ishft(data_tmp, 45)
12714  pack_tmp = ior(pack_tmp, data_tmp)
12715  pack_tmp = ishft(pack_tmp, -19)
12716  idata = idata + 1
12717  data_tmp = full_data(idata)
12718  data_tmp = ishft(data_tmp, 45)
12719  pack_tmp = ior(pack_tmp, data_tmp)
12720  pack_tmp = ishft(pack_tmp, -19)
12721  idata = idata + 1
12722  data_tmp = full_data(idata)
12723  data_tmp = ishft(data_tmp, 45)
12724  pack_tmp = ior(pack_tmp, data_tmp)
12725  pack_tmp = ishft(pack_tmp, -7)
12726  idata = idata + 1
12727  data_tmp = full_data(idata)
12728  data_tmp = ishft(data_tmp, 45)
12729  data_tmp = iand(data_tmp, mask_left(7))
12730  pack_tmp = ior(pack_tmp, data_tmp)
12731  ipack = ipack + 1
12732  packed_data(ipack) = pack_tmp
12733  data_tmp = full_data(idata)
12734  pack_tmp = ishft(data_tmp, 52)
12735  pack_tmp = ishft(pack_tmp, -19)
12736  idata = idata + 1
12737  data_tmp = full_data(idata)
12738  data_tmp = ishft(data_tmp, 45)
12739  pack_tmp = ior(pack_tmp, data_tmp)
12740  pack_tmp = ishft(pack_tmp, -19)
12741  idata = idata + 1
12742  data_tmp = full_data(idata)
12743  data_tmp = ishft(data_tmp, 45)
12744  pack_tmp = ior(pack_tmp, data_tmp)
12745  pack_tmp = ishft(pack_tmp, -14)
12746  idata = idata + 1
12747  data_tmp = full_data(idata)
12748  data_tmp = ishft(data_tmp, 45)
12749  data_tmp = iand(data_tmp, mask_left(14))
12750  pack_tmp = ior(pack_tmp, data_tmp)
12751  ipack = ipack + 1
12752  packed_data(ipack) = pack_tmp
12753  data_tmp = full_data(idata)
12754  pack_tmp = ishft(data_tmp, 59)
12755  pack_tmp = ishft(pack_tmp, -19)
12756  idata = idata + 1
12757  data_tmp = full_data(idata)
12758  data_tmp = ishft(data_tmp, 45)
12759  pack_tmp = ior(pack_tmp, data_tmp)
12760  pack_tmp = ishft(pack_tmp, -19)
12761  idata = idata + 1
12762  data_tmp = full_data(idata)
12763  data_tmp = ishft(data_tmp, 45)
12764  pack_tmp = ior(pack_tmp, data_tmp)
12765  pack_tmp = ishft(pack_tmp, -19)
12766  idata = idata + 1
12767  data_tmp = full_data(idata)
12768  data_tmp = ishft(data_tmp, 45)
12769  pack_tmp = ior(pack_tmp, data_tmp)
12770  pack_tmp = ishft(pack_tmp, -2)
12771  idata = idata + 1
12772  data_tmp = full_data(idata)
12773  data_tmp = ishft(data_tmp, 45)
12774  data_tmp = iand(data_tmp, mask_left(2))
12775  pack_tmp = ior(pack_tmp, data_tmp)
12776  ipack = ipack + 1
12777  packed_data(ipack) = pack_tmp
12778  data_tmp = full_data(idata)
12779  pack_tmp = ishft(data_tmp, 47)
12780  pack_tmp = ishft(pack_tmp, -19)
12781  idata = idata + 1
12782  data_tmp = full_data(idata)
12783  data_tmp = ishft(data_tmp, 45)
12784  pack_tmp = ior(pack_tmp, data_tmp)
12785  pack_tmp = ishft(pack_tmp, -19)
12786  idata = idata + 1
12787  data_tmp = full_data(idata)
12788  data_tmp = ishft(data_tmp, 45)
12789  pack_tmp = ior(pack_tmp, data_tmp)
12790  pack_tmp = ishft(pack_tmp, -9)
12791  idata = idata + 1
12792  data_tmp = full_data(idata)
12793  data_tmp = ishft(data_tmp, 45)
12794  data_tmp = iand(data_tmp, mask_left(9))
12795  pack_tmp = ior(pack_tmp, data_tmp)
12796  ipack = ipack + 1
12797  packed_data(ipack) = pack_tmp
12798  data_tmp = full_data(idata)
12799  pack_tmp = ishft(data_tmp, 54)
12800  pack_tmp = ishft(pack_tmp, -19)
12801  idata = idata + 1
12802  data_tmp = full_data(idata)
12803  data_tmp = ishft(data_tmp, 45)
12804  pack_tmp = ior(pack_tmp, data_tmp)
12805  pack_tmp = ishft(pack_tmp, -19)
12806  idata = idata + 1
12807  data_tmp = full_data(idata)
12808  data_tmp = ishft(data_tmp, 45)
12809  pack_tmp = ior(pack_tmp, data_tmp)
12810  pack_tmp = ishft(pack_tmp, -16)
12811  idata = idata + 1
12812  data_tmp = full_data(idata)
12813  data_tmp = ishft(data_tmp, 45)
12814  data_tmp = iand(data_tmp, mask_left(16))
12815  pack_tmp = ior(pack_tmp, data_tmp)
12816  ipack = ipack + 1
12817  packed_data(ipack) = pack_tmp
12818  data_tmp = full_data(idata)
12819  pack_tmp = ishft(data_tmp, 61)
12820  pack_tmp = ishft(pack_tmp, -19)
12821  idata = idata + 1
12822  data_tmp = full_data(idata)
12823  data_tmp = ishft(data_tmp, 45)
12824  pack_tmp = ior(pack_tmp, data_tmp)
12825  pack_tmp = ishft(pack_tmp, -19)
12826  idata = idata + 1
12827  data_tmp = full_data(idata)
12828  data_tmp = ishft(data_tmp, 45)
12829  pack_tmp = ior(pack_tmp, data_tmp)
12830  pack_tmp = ishft(pack_tmp, -19)
12831  idata = idata + 1
12832  data_tmp = full_data(idata)
12833  data_tmp = ishft(data_tmp, 45)
12834  pack_tmp = ior(pack_tmp, data_tmp)
12835  pack_tmp = ishft(pack_tmp, -4)
12836  idata = idata + 1
12837  data_tmp = full_data(idata)
12838  data_tmp = ishft(data_tmp, 45)
12839  data_tmp = iand(data_tmp, mask_left(4))
12840  pack_tmp = ior(pack_tmp, data_tmp)
12841  ipack = ipack + 1
12842  packed_data(ipack) = pack_tmp
12843  data_tmp = full_data(idata)
12844  pack_tmp = ishft(data_tmp, 49)
12845  pack_tmp = ishft(pack_tmp, -19)
12846  idata = idata + 1
12847  data_tmp = full_data(idata)
12848  data_tmp = ishft(data_tmp, 45)
12849  pack_tmp = ior(pack_tmp, data_tmp)
12850  pack_tmp = ishft(pack_tmp, -19)
12851  idata = idata + 1
12852  data_tmp = full_data(idata)
12853  data_tmp = ishft(data_tmp, 45)
12854  pack_tmp = ior(pack_tmp, data_tmp)
12855  pack_tmp = ishft(pack_tmp, -11)
12856  idata = idata + 1
12857  data_tmp = full_data(idata)
12858  data_tmp = ishft(data_tmp, 45)
12859  data_tmp = iand(data_tmp, mask_left(11))
12860  pack_tmp = ior(pack_tmp, data_tmp)
12861  ipack = ipack + 1
12862  packed_data(ipack) = pack_tmp
12863  data_tmp = full_data(idata)
12864  pack_tmp = ishft(data_tmp, 56)
12865  pack_tmp = ishft(pack_tmp, -19)
12866  idata = idata + 1
12867  data_tmp = full_data(idata)
12868  data_tmp = ishft(data_tmp, 45)
12869  pack_tmp = ior(pack_tmp, data_tmp)
12870  pack_tmp = ishft(pack_tmp, -19)
12871  idata = idata + 1
12872  data_tmp = full_data(idata)
12873  data_tmp = ishft(data_tmp, 45)
12874  pack_tmp = ior(pack_tmp, data_tmp)
12875  pack_tmp = ishft(pack_tmp, -18)
12876  idata = idata + 1
12877  data_tmp = full_data(idata)
12878  data_tmp = ishft(data_tmp, 45)
12879  data_tmp = iand(data_tmp, mask_left(18))
12880  pack_tmp = ior(pack_tmp, data_tmp)
12881  ipack = ipack + 1
12882  packed_data(ipack) = pack_tmp
12883  data_tmp = full_data(idata)
12884  pack_tmp = ishft(data_tmp, 63)
12885  pack_tmp = ishft(pack_tmp, -19)
12886  idata = idata + 1
12887  data_tmp = full_data(idata)
12888  data_tmp = ishft(data_tmp, 45)
12889  pack_tmp = ior(pack_tmp, data_tmp)
12890  pack_tmp = ishft(pack_tmp, -19)
12891  idata = idata + 1
12892  data_tmp = full_data(idata)
12893  data_tmp = ishft(data_tmp, 45)
12894  pack_tmp = ior(pack_tmp, data_tmp)
12895  pack_tmp = ishft(pack_tmp, -19)
12896  idata = idata + 1
12897  data_tmp = full_data(idata)
12898  data_tmp = ishft(data_tmp, 45)
12899  pack_tmp = ior(pack_tmp, data_tmp)
12900  pack_tmp = ishft(pack_tmp, -6)
12901  idata = idata + 1
12902  data_tmp = full_data(idata)
12903  data_tmp = ishft(data_tmp, 45)
12904  data_tmp = iand(data_tmp, mask_left(6))
12905  pack_tmp = ior(pack_tmp, data_tmp)
12906  ipack = ipack + 1
12907  packed_data(ipack) = pack_tmp
12908  data_tmp = full_data(idata)
12909  pack_tmp = ishft(data_tmp, 51)
12910  pack_tmp = ishft(pack_tmp, -19)
12911  idata = idata + 1
12912  data_tmp = full_data(idata)
12913  data_tmp = ishft(data_tmp, 45)
12914  pack_tmp = ior(pack_tmp, data_tmp)
12915  pack_tmp = ishft(pack_tmp, -19)
12916  idata = idata + 1
12917  data_tmp = full_data(idata)
12918  data_tmp = ishft(data_tmp, 45)
12919  pack_tmp = ior(pack_tmp, data_tmp)
12920  pack_tmp = ishft(pack_tmp, -13)
12921  idata = idata + 1
12922  data_tmp = full_data(idata)
12923  data_tmp = ishft(data_tmp, 45)
12924  data_tmp = iand(data_tmp, mask_left(13))
12925  pack_tmp = ior(pack_tmp, data_tmp)
12926  ipack = ipack + 1
12927  packed_data(ipack) = pack_tmp
12928  data_tmp = full_data(idata)
12929  pack_tmp = ishft(data_tmp, 58)
12930  pack_tmp = ishft(pack_tmp, -19)
12931  idata = idata + 1
12932  data_tmp = full_data(idata)
12933  data_tmp = ishft(data_tmp, 45)
12934  pack_tmp = ior(pack_tmp, data_tmp)
12935  pack_tmp = ishft(pack_tmp, -19)
12936  idata = idata + 1
12937  data_tmp = full_data(idata)
12938  data_tmp = ishft(data_tmp, 45)
12939  pack_tmp = ior(pack_tmp, data_tmp)
12940  pack_tmp = ishft(pack_tmp, -19)
12941  idata = idata + 1
12942  data_tmp = full_data(idata)
12943  data_tmp = ishft(data_tmp, 45)
12944  pack_tmp = ior(pack_tmp, data_tmp)
12945  pack_tmp = ishft(pack_tmp, -1)
12946  idata = idata + 1
12947  data_tmp = full_data(idata)
12948  data_tmp = ishft(data_tmp, 45)
12949  data_tmp = iand(data_tmp, mask_left(1))
12950  pack_tmp = ior(pack_tmp, data_tmp)
12951  ipack = ipack + 1
12952  packed_data(ipack) = pack_tmp
12953  data_tmp = full_data(idata)
12954  pack_tmp = ishft(data_tmp, 46)
12955  pack_tmp = ishft(pack_tmp, -19)
12956  idata = idata + 1
12957  data_tmp = full_data(idata)
12958  data_tmp = ishft(data_tmp, 45)
12959  pack_tmp = ior(pack_tmp, data_tmp)
12960  pack_tmp = ishft(pack_tmp, -19)
12961  idata = idata + 1
12962  data_tmp = full_data(idata)
12963  data_tmp = ishft(data_tmp, 45)
12964  pack_tmp = ior(pack_tmp, data_tmp)
12965  pack_tmp = ishft(pack_tmp, -8)
12966  idata = idata + 1
12967  data_tmp = full_data(idata)
12968  data_tmp = ishft(data_tmp, 45)
12969  data_tmp = iand(data_tmp, mask_left(8))
12970  pack_tmp = ior(pack_tmp, data_tmp)
12971  ipack = ipack + 1
12972  packed_data(ipack) = pack_tmp
12973  data_tmp = full_data(idata)
12974  pack_tmp = ishft(data_tmp, 53)
12975  pack_tmp = ishft(pack_tmp, -19)
12976  idata = idata + 1
12977  data_tmp = full_data(idata)
12978  data_tmp = ishft(data_tmp, 45)
12979  pack_tmp = ior(pack_tmp, data_tmp)
12980  pack_tmp = ishft(pack_tmp, -19)
12981  idata = idata + 1
12982  data_tmp = full_data(idata)
12983  data_tmp = ishft(data_tmp, 45)
12984  pack_tmp = ior(pack_tmp, data_tmp)
12985  pack_tmp = ishft(pack_tmp, -15)
12986  idata = idata + 1
12987  data_tmp = full_data(idata)
12988  data_tmp = ishft(data_tmp, 45)
12989  data_tmp = iand(data_tmp, mask_left(15))
12990  pack_tmp = ior(pack_tmp, data_tmp)
12991  ipack = ipack + 1
12992  packed_data(ipack) = pack_tmp
12993  data_tmp = full_data(idata)
12994  pack_tmp = ishft(data_tmp, 60)
12995  pack_tmp = ishft(pack_tmp, -19)
12996  idata = idata + 1
12997  data_tmp = full_data(idata)
12998  data_tmp = ishft(data_tmp, 45)
12999  pack_tmp = ior(pack_tmp, data_tmp)
13000  pack_tmp = ishft(pack_tmp, -19)
13001  idata = idata + 1
13002  data_tmp = full_data(idata)
13003  data_tmp = ishft(data_tmp, 45)
13004  pack_tmp = ior(pack_tmp, data_tmp)
13005  pack_tmp = ishft(pack_tmp, -19)
13006  idata = idata + 1
13007  data_tmp = full_data(idata)
13008  data_tmp = ishft(data_tmp, 45)
13009  pack_tmp = ior(pack_tmp, data_tmp)
13010  pack_tmp = ishft(pack_tmp, -3)
13011  idata = idata + 1
13012  data_tmp = full_data(idata)
13013  data_tmp = ishft(data_tmp, 45)
13014  data_tmp = iand(data_tmp, mask_left(3))
13015  pack_tmp = ior(pack_tmp, data_tmp)
13016  ipack = ipack + 1
13017  packed_data(ipack) = pack_tmp
13018  data_tmp = full_data(idata)
13019  pack_tmp = ishft(data_tmp, 48)
13020  pack_tmp = ishft(pack_tmp, -19)
13021  idata = idata + 1
13022  data_tmp = full_data(idata)
13023  data_tmp = ishft(data_tmp, 45)
13024  pack_tmp = ior(pack_tmp, data_tmp)
13025  pack_tmp = ishft(pack_tmp, -19)
13026  idata = idata + 1
13027  data_tmp = full_data(idata)
13028  data_tmp = ishft(data_tmp, 45)
13029  pack_tmp = ior(pack_tmp, data_tmp)
13030  pack_tmp = ishft(pack_tmp, -10)
13031  idata = idata + 1
13032  data_tmp = full_data(idata)
13033  data_tmp = ishft(data_tmp, 45)
13034  data_tmp = iand(data_tmp, mask_left(10))
13035  pack_tmp = ior(pack_tmp, data_tmp)
13036  ipack = ipack + 1
13037  packed_data(ipack) = pack_tmp
13038  data_tmp = full_data(idata)
13039  pack_tmp = ishft(data_tmp, 55)
13040  pack_tmp = ishft(pack_tmp, -19)
13041  idata = idata + 1
13042  data_tmp = full_data(idata)
13043  data_tmp = ishft(data_tmp, 45)
13044  pack_tmp = ior(pack_tmp, data_tmp)
13045  pack_tmp = ishft(pack_tmp, -19)
13046  idata = idata + 1
13047  data_tmp = full_data(idata)
13048  data_tmp = ishft(data_tmp, 45)
13049  pack_tmp = ior(pack_tmp, data_tmp)
13050  pack_tmp = ishft(pack_tmp, -17)
13051  idata = idata + 1
13052  data_tmp = full_data(idata)
13053  data_tmp = ishft(data_tmp, 45)
13054  data_tmp = iand(data_tmp, mask_left(17))
13055  pack_tmp = ior(pack_tmp, data_tmp)
13056  ipack = ipack + 1
13057  packed_data(ipack) = pack_tmp
13058  data_tmp = full_data(idata)
13059  pack_tmp = ishft(data_tmp, 62)
13060  pack_tmp = ishft(pack_tmp, -19)
13061  idata = idata + 1
13062  data_tmp = full_data(idata)
13063  data_tmp = ishft(data_tmp, 45)
13064  pack_tmp = ior(pack_tmp, data_tmp)
13065  pack_tmp = ishft(pack_tmp, -19)
13066  idata = idata + 1
13067  data_tmp = full_data(idata)
13068  data_tmp = ishft(data_tmp, 45)
13069  pack_tmp = ior(pack_tmp, data_tmp)
13070  pack_tmp = ishft(pack_tmp, -19)
13071  idata = idata + 1
13072  data_tmp = full_data(idata)
13073  data_tmp = ishft(data_tmp, 45)
13074  pack_tmp = ior(pack_tmp, data_tmp)
13075  pack_tmp = ishft(pack_tmp, -5)
13076  idata = idata + 1
13077  data_tmp = full_data(idata)
13078  data_tmp = ishft(data_tmp, 45)
13079  data_tmp = iand(data_tmp, mask_left(5))
13080  pack_tmp = ior(pack_tmp, data_tmp)
13081  ipack = ipack + 1
13082  packed_data(ipack) = pack_tmp
13083  data_tmp = full_data(idata)
13084  pack_tmp = ishft(data_tmp, 50)
13085  pack_tmp = ishft(pack_tmp, -19)
13086  idata = idata + 1
13087  data_tmp = full_data(idata)
13088  data_tmp = ishft(data_tmp, 45)
13089  pack_tmp = ior(pack_tmp, data_tmp)
13090  pack_tmp = ishft(pack_tmp, -19)
13091  idata = idata + 1
13092  data_tmp = full_data(idata)
13093  data_tmp = ishft(data_tmp, 45)
13094  pack_tmp = ior(pack_tmp, data_tmp)
13095  pack_tmp = ishft(pack_tmp, -12)
13096  idata = idata + 1
13097  data_tmp = full_data(idata)
13098  data_tmp = ishft(data_tmp, 45)
13099  data_tmp = iand(data_tmp, mask_left(12))
13100  pack_tmp = ior(pack_tmp, data_tmp)
13101  ipack = ipack + 1
13102  packed_data(ipack) = pack_tmp
13103  data_tmp = full_data(idata)
13104  pack_tmp = ishft(data_tmp, 57)
13105  pack_tmp = ishft(pack_tmp, -19)
13106  idata = idata + 1
13107  data_tmp = full_data(idata)
13108  data_tmp = ishft(data_tmp, 45)
13109  pack_tmp = ior(pack_tmp, data_tmp)
13110  pack_tmp = ishft(pack_tmp, -19)
13111  idata = idata + 1
13112  data_tmp = full_data(idata)
13113  data_tmp = ishft(data_tmp, 45)
13114  pack_tmp = ior(pack_tmp, data_tmp)
13115  pack_tmp = ishft(pack_tmp, -19)
13116  idata = idata + 1
13117  data_tmp = full_data(idata)
13118  data_tmp = ishft(data_tmp, 45)
13119  pack_tmp = ior(pack_tmp, data_tmp)
13120  pack_tmp = ishft(pack_tmp, 0)
13121  pack_tmp = ishft(pack_tmp, 0)
13122  ipack = ipack + 1
13123  packed_data(ipack) = pack_tmp
13124  END DO
13125  IF (ndata_rep < ndata) THEN
13126  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
13127  END IF
13128  END SUBROUTINE ints2bits_19
13129 
13130 ! **************************************************************************************************
13131 !> \brief ...
13132 !> \param Ndata ...
13133 !> \param packed_data ...
13134 !> \param full_data ...
13135 ! **************************************************************************************************
13136  SUBROUTINE bits2ints_19(Ndata, packed_data, full_data)
13137  INTEGER, INTENT(IN) :: Ndata
13138  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
13139  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
13140 
13141  INTEGER, PARAMETER :: Nbits = 19
13142 
13143  INTEGER :: idata, ipack, kdata, Ndata_rep
13144  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
13145 
13146  ipack = 0
13147  idata = 0
13148  pack_tmp = 0
13149  ndata_rep = (ndata/64)*64
13150  DO kdata = 1, ndata_rep, 64
13151  idata = idata + 1
13152  data_tmp = ishft(pack_tmp, 19)
13153  ipack = ipack + 1
13154  pack_tmp = packed_data(ipack)
13155  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
13156  pack_tmp = ishft(pack_tmp, -19)
13157  idata = idata + 1
13158  data_tmp = iand(pack_tmp, mask_right(nbits))
13159  full_data(idata) = data_tmp
13160  pack_tmp = ishft(pack_tmp, -nbits)
13161  idata = idata + 1
13162  data_tmp = iand(pack_tmp, mask_right(nbits))
13163  full_data(idata) = data_tmp
13164  pack_tmp = ishft(pack_tmp, -nbits)
13165  idata = idata + 1
13166  data_tmp = ishft(pack_tmp, 12)
13167  ipack = ipack + 1
13168  pack_tmp = packed_data(ipack)
13169  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
13170  pack_tmp = ishft(pack_tmp, -12)
13171  idata = idata + 1
13172  data_tmp = iand(pack_tmp, mask_right(nbits))
13173  full_data(idata) = data_tmp
13174  pack_tmp = ishft(pack_tmp, -nbits)
13175  idata = idata + 1
13176  data_tmp = iand(pack_tmp, mask_right(nbits))
13177  full_data(idata) = data_tmp
13178  pack_tmp = ishft(pack_tmp, -nbits)
13179  idata = idata + 1
13180  data_tmp = ishft(pack_tmp, 5)
13181  ipack = ipack + 1
13182  pack_tmp = packed_data(ipack)
13183  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
13184  pack_tmp = ishft(pack_tmp, -5)
13185  idata = idata + 1
13186  data_tmp = iand(pack_tmp, mask_right(nbits))
13187  full_data(idata) = data_tmp
13188  pack_tmp = ishft(pack_tmp, -nbits)
13189  idata = idata + 1
13190  data_tmp = iand(pack_tmp, mask_right(nbits))
13191  full_data(idata) = data_tmp
13192  pack_tmp = ishft(pack_tmp, -nbits)
13193  idata = idata + 1
13194  data_tmp = iand(pack_tmp, mask_right(nbits))
13195  full_data(idata) = data_tmp
13196  pack_tmp = ishft(pack_tmp, -nbits)
13197  idata = idata + 1
13198  data_tmp = ishft(pack_tmp, 17)
13199  ipack = ipack + 1
13200  pack_tmp = packed_data(ipack)
13201  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
13202  pack_tmp = ishft(pack_tmp, -17)
13203  idata = idata + 1
13204  data_tmp = iand(pack_tmp, mask_right(nbits))
13205  full_data(idata) = data_tmp
13206  pack_tmp = ishft(pack_tmp, -nbits)
13207  idata = idata + 1
13208  data_tmp = iand(pack_tmp, mask_right(nbits))
13209  full_data(idata) = data_tmp
13210  pack_tmp = ishft(pack_tmp, -nbits)
13211  idata = idata + 1
13212  data_tmp = ishft(pack_tmp, 10)
13213  ipack = ipack + 1
13214  pack_tmp = packed_data(ipack)
13215  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
13216  pack_tmp = ishft(pack_tmp, -10)
13217  idata = idata + 1
13218  data_tmp = iand(pack_tmp, mask_right(nbits))
13219  full_data(idata) = data_tmp
13220  pack_tmp = ishft(pack_tmp, -nbits)
13221  idata = idata + 1
13222  data_tmp = iand(pack_tmp, mask_right(nbits))
13223  full_data(idata) = data_tmp
13224  pack_tmp = ishft(pack_tmp, -nbits)
13225  idata = idata + 1
13226  data_tmp = ishft(pack_tmp, 3)
13227  ipack = ipack + 1
13228  pack_tmp = packed_data(ipack)
13229  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
13230  pack_tmp = ishft(pack_tmp, -3)
13231  idata = idata + 1
13232  data_tmp = iand(pack_tmp, mask_right(nbits))
13233  full_data(idata) = data_tmp
13234  pack_tmp = ishft(pack_tmp, -nbits)
13235  idata = idata + 1
13236  data_tmp = iand(pack_tmp, mask_right(nbits))
13237  full_data(idata) = data_tmp
13238  pack_tmp = ishft(pack_tmp, -nbits)
13239  idata = idata + 1
13240  data_tmp = iand(pack_tmp, mask_right(nbits))
13241  full_data(idata) = data_tmp
13242  pack_tmp = ishft(pack_tmp, -nbits)
13243  idata = idata + 1
13244  data_tmp = ishft(pack_tmp, 15)
13245  ipack = ipack + 1
13246  pack_tmp = packed_data(ipack)
13247  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
13248  pack_tmp = ishft(pack_tmp, -15)
13249  idata = idata + 1
13250  data_tmp = iand(pack_tmp, mask_right(nbits))
13251  full_data(idata) = data_tmp
13252  pack_tmp = ishft(pack_tmp, -nbits)
13253  idata = idata + 1
13254  data_tmp = iand(pack_tmp, mask_right(nbits))
13255  full_data(idata) = data_tmp
13256  pack_tmp = ishft(pack_tmp, -nbits)
13257  idata = idata + 1
13258  data_tmp = ishft(pack_tmp, 8)
13259  ipack = ipack + 1
13260  pack_tmp = packed_data(ipack)
13261  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
13262  pack_tmp = ishft(pack_tmp, -8)
13263  idata = idata + 1
13264  data_tmp = iand(pack_tmp, mask_right(nbits))
13265  full_data(idata) = data_tmp
13266  pack_tmp = ishft(pack_tmp, -nbits)
13267  idata = idata + 1
13268  data_tmp = iand(pack_tmp, mask_right(nbits))
13269  full_data(idata) = data_tmp
13270  pack_tmp = ishft(pack_tmp, -nbits)
13271  idata = idata + 1
13272  data_tmp = ishft(pack_tmp, 1)
13273  ipack = ipack + 1
13274  pack_tmp = packed_data(ipack)
13275  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
13276  pack_tmp = ishft(pack_tmp, -1)
13277  idata = idata + 1
13278  data_tmp = iand(pack_tmp, mask_right(nbits))
13279  full_data(idata) = data_tmp
13280  pack_tmp = ishft(pack_tmp, -nbits)
13281  idata = idata + 1
13282  data_tmp = iand(pack_tmp, mask_right(nbits))
13283  full_data(idata) = data_tmp
13284  pack_tmp = ishft(pack_tmp, -nbits)
13285  idata = idata + 1
13286  data_tmp = iand(pack_tmp, mask_right(nbits))
13287  full_data(idata) = data_tmp
13288  pack_tmp = ishft(pack_tmp, -nbits)
13289  idata = idata + 1
13290  data_tmp = ishft(pack_tmp, 13)
13291  ipack = ipack + 1
13292  pack_tmp = packed_data(ipack)
13293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
13294  pack_tmp = ishft(pack_tmp, -13)
13295  idata = idata + 1
13296  data_tmp = iand(pack_tmp, mask_right(nbits))
13297  full_data(idata) = data_tmp
13298  pack_tmp = ishft(pack_tmp, -nbits)
13299  idata = idata + 1
13300  data_tmp = iand(pack_tmp, mask_right(nbits))
13301  full_data(idata) = data_tmp
13302  pack_tmp = ishft(pack_tmp, -nbits)
13303  idata = idata + 1
13304  data_tmp = ishft(pack_tmp, 6)
13305  ipack = ipack + 1
13306  pack_tmp = packed_data(ipack)
13307  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
13308  pack_tmp = ishft(pack_tmp, -6)
13309  idata = idata + 1
13310  data_tmp = iand(pack_tmp, mask_right(nbits))
13311  full_data(idata) = data_tmp
13312  pack_tmp = ishft(pack_tmp, -nbits)
13313  idata = idata + 1
13314  data_tmp = iand(pack_tmp, mask_right(nbits))
13315  full_data(idata) = data_tmp
13316  pack_tmp = ishft(pack_tmp, -nbits)
13317  idata = idata + 1
13318  data_tmp = iand(pack_tmp, mask_right(nbits))
13319  full_data(idata) = data_tmp
13320  pack_tmp = ishft(pack_tmp, -nbits)
13321  idata = idata + 1
13322  data_tmp = ishft(pack_tmp, 18)
13323  ipack = ipack + 1
13324  pack_tmp = packed_data(ipack)
13325  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
13326  pack_tmp = ishft(pack_tmp, -18)
13327  idata = idata + 1
13328  data_tmp = iand(pack_tmp, mask_right(nbits))
13329  full_data(idata) = data_tmp
13330  pack_tmp = ishft(pack_tmp, -nbits)
13331  idata = idata + 1
13332  data_tmp = iand(pack_tmp, mask_right(nbits))
13333  full_data(idata) = data_tmp
13334  pack_tmp = ishft(pack_tmp, -nbits)
13335  idata = idata + 1
13336  data_tmp = ishft(pack_tmp, 11)
13337  ipack = ipack + 1
13338  pack_tmp = packed_data(ipack)
13339  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
13340  pack_tmp = ishft(pack_tmp, -11)
13341  idata = idata + 1
13342  data_tmp = iand(pack_tmp, mask_right(nbits))
13343  full_data(idata) = data_tmp
13344  pack_tmp = ishft(pack_tmp, -nbits)
13345  idata = idata + 1
13346  data_tmp = iand(pack_tmp, mask_right(nbits))
13347  full_data(idata) = data_tmp
13348  pack_tmp = ishft(pack_tmp, -nbits)
13349  idata = idata + 1
13350  data_tmp = ishft(pack_tmp, 4)
13351  ipack = ipack + 1
13352  pack_tmp = packed_data(ipack)
13353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
13354  pack_tmp = ishft(pack_tmp, -4)
13355  idata = idata + 1
13356  data_tmp = iand(pack_tmp, mask_right(nbits))
13357  full_data(idata) = data_tmp
13358  pack_tmp = ishft(pack_tmp, -nbits)
13359  idata = idata + 1
13360  data_tmp = iand(pack_tmp, mask_right(nbits))
13361  full_data(idata) = data_tmp
13362  pack_tmp = ishft(pack_tmp, -nbits)
13363  idata = idata + 1
13364  data_tmp = iand(pack_tmp, mask_right(nbits))
13365  full_data(idata) = data_tmp
13366  pack_tmp = ishft(pack_tmp, -nbits)
13367  idata = idata + 1
13368  data_tmp = ishft(pack_tmp, 16)
13369  ipack = ipack + 1
13370  pack_tmp = packed_data(ipack)
13371  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
13372  pack_tmp = ishft(pack_tmp, -16)
13373  idata = idata + 1
13374  data_tmp = iand(pack_tmp, mask_right(nbits))
13375  full_data(idata) = data_tmp
13376  pack_tmp = ishft(pack_tmp, -nbits)
13377  idata = idata + 1
13378  data_tmp = iand(pack_tmp, mask_right(nbits))
13379  full_data(idata) = data_tmp
13380  pack_tmp = ishft(pack_tmp, -nbits)
13381  idata = idata + 1
13382  data_tmp = ishft(pack_tmp, 9)
13383  ipack = ipack + 1
13384  pack_tmp = packed_data(ipack)
13385  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
13386  pack_tmp = ishft(pack_tmp, -9)
13387  idata = idata + 1
13388  data_tmp = iand(pack_tmp, mask_right(nbits))
13389  full_data(idata) = data_tmp
13390  pack_tmp = ishft(pack_tmp, -nbits)
13391  idata = idata + 1
13392  data_tmp = iand(pack_tmp, mask_right(nbits))
13393  full_data(idata) = data_tmp
13394  pack_tmp = ishft(pack_tmp, -nbits)
13395  idata = idata + 1
13396  data_tmp = ishft(pack_tmp, 2)
13397  ipack = ipack + 1
13398  pack_tmp = packed_data(ipack)
13399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
13400  pack_tmp = ishft(pack_tmp, -2)
13401  idata = idata + 1
13402  data_tmp = iand(pack_tmp, mask_right(nbits))
13403  full_data(idata) = data_tmp
13404  pack_tmp = ishft(pack_tmp, -nbits)
13405  idata = idata + 1
13406  data_tmp = iand(pack_tmp, mask_right(nbits))
13407  full_data(idata) = data_tmp
13408  pack_tmp = ishft(pack_tmp, -nbits)
13409  idata = idata + 1
13410  data_tmp = iand(pack_tmp, mask_right(nbits))
13411  full_data(idata) = data_tmp
13412  pack_tmp = ishft(pack_tmp, -nbits)
13413  idata = idata + 1
13414  data_tmp = ishft(pack_tmp, 14)
13415  ipack = ipack + 1
13416  pack_tmp = packed_data(ipack)
13417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
13418  pack_tmp = ishft(pack_tmp, -14)
13419  idata = idata + 1
13420  data_tmp = iand(pack_tmp, mask_right(nbits))
13421  full_data(idata) = data_tmp
13422  pack_tmp = ishft(pack_tmp, -nbits)
13423  idata = idata + 1
13424  data_tmp = iand(pack_tmp, mask_right(nbits))
13425  full_data(idata) = data_tmp
13426  pack_tmp = ishft(pack_tmp, -nbits)
13427  idata = idata + 1
13428  data_tmp = ishft(pack_tmp, 7)
13429  ipack = ipack + 1
13430  pack_tmp = packed_data(ipack)
13431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
13432  pack_tmp = ishft(pack_tmp, -7)
13433  idata = idata + 1
13434  data_tmp = iand(pack_tmp, mask_right(nbits))
13435  full_data(idata) = data_tmp
13436  pack_tmp = ishft(pack_tmp, -nbits)
13437  idata = idata + 1
13438  data_tmp = iand(pack_tmp, mask_right(nbits))
13439  full_data(idata) = data_tmp
13440  pack_tmp = ishft(pack_tmp, -nbits)
13441  idata = idata + 1
13442  data_tmp = iand(pack_tmp, mask_right(nbits))
13443  full_data(idata) = data_tmp
13444  pack_tmp = ishft(pack_tmp, -nbits)
13445  END DO
13446  IF (ndata_rep < ndata) THEN
13447  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
13448  END IF
13449  END SUBROUTINE bits2ints_19
13450 
13451 ! **************************************************************************************************
13452 !> \brief ...
13453 !> \param Ndata ...
13454 !> \param packed_data ...
13455 !> \param full_data ...
13456 ! **************************************************************************************************
13457  SUBROUTINE ints2bits_20(Ndata, packed_data, full_data)
13458  INTEGER, INTENT(IN) :: Ndata
13459  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
13460  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
13461 
13462  INTEGER, PARAMETER :: Nbits = 20
13463 
13464  INTEGER :: idata, ipack, kdata, Ndata_rep
13465  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
13466 
13467  idata = 0
13468  ipack = 0
13469  ndata_rep = (ndata/64)*64
13470  DO kdata = 1, ndata_rep, 64
13471  pack_tmp = 0
13472  idata = idata + 1
13473  data_tmp = full_data(idata)
13474  data_tmp = ishft(data_tmp, 44)
13475  pack_tmp = ior(pack_tmp, data_tmp)
13476  pack_tmp = ishft(pack_tmp, -20)
13477  idata = idata + 1
13478  data_tmp = full_data(idata)
13479  data_tmp = ishft(data_tmp, 44)
13480  pack_tmp = ior(pack_tmp, data_tmp)
13481  pack_tmp = ishft(pack_tmp, -20)
13482  idata = idata + 1
13483  data_tmp = full_data(idata)
13484  data_tmp = ishft(data_tmp, 44)
13485  pack_tmp = ior(pack_tmp, data_tmp)
13486  pack_tmp = ishft(pack_tmp, -4)
13487  idata = idata + 1
13488  data_tmp = full_data(idata)
13489  data_tmp = ishft(data_tmp, 44)
13490  data_tmp = iand(data_tmp, mask_left(4))
13491  pack_tmp = ior(pack_tmp, data_tmp)
13492  ipack = ipack + 1
13493  packed_data(ipack) = pack_tmp
13494  data_tmp = full_data(idata)
13495  pack_tmp = ishft(data_tmp, 48)
13496  pack_tmp = ishft(pack_tmp, -20)
13497  idata = idata + 1
13498  data_tmp = full_data(idata)
13499  data_tmp = ishft(data_tmp, 44)
13500  pack_tmp = ior(pack_tmp, data_tmp)
13501  pack_tmp = ishft(pack_tmp, -20)
13502  idata = idata + 1
13503  data_tmp = full_data(idata)
13504  data_tmp = ishft(data_tmp, 44)
13505  pack_tmp = ior(pack_tmp, data_tmp)
13506  pack_tmp = ishft(pack_tmp, -8)
13507  idata = idata + 1
13508  data_tmp = full_data(idata)
13509  data_tmp = ishft(data_tmp, 44)
13510  data_tmp = iand(data_tmp, mask_left(8))
13511  pack_tmp = ior(pack_tmp, data_tmp)
13512  ipack = ipack + 1
13513  packed_data(ipack) = pack_tmp
13514  data_tmp = full_data(idata)
13515  pack_tmp = ishft(data_tmp, 52)
13516  pack_tmp = ishft(pack_tmp, -20)
13517  idata = idata + 1
13518  data_tmp = full_data(idata)
13519  data_tmp = ishft(data_tmp, 44)
13520  pack_tmp = ior(pack_tmp, data_tmp)
13521  pack_tmp = ishft(pack_tmp, -20)
13522  idata = idata + 1
13523  data_tmp = full_data(idata)
13524  data_tmp = ishft(data_tmp, 44)
13525  pack_tmp = ior(pack_tmp, data_tmp)
13526  pack_tmp = ishft(pack_tmp, -12)
13527  idata = idata + 1
13528  data_tmp = full_data(idata)
13529  data_tmp = ishft(data_tmp, 44)
13530  data_tmp = iand(data_tmp, mask_left(12))
13531  pack_tmp = ior(pack_tmp, data_tmp)
13532  ipack = ipack + 1
13533  packed_data(ipack) = pack_tmp
13534  data_tmp = full_data(idata)
13535  pack_tmp = ishft(data_tmp, 56)
13536  pack_tmp = ishft(pack_tmp, -20)
13537  idata = idata + 1
13538  data_tmp = full_data(idata)
13539  data_tmp = ishft(data_tmp, 44)
13540  pack_tmp = ior(pack_tmp, data_tmp)
13541  pack_tmp = ishft(pack_tmp, -20)
13542  idata = idata + 1
13543  data_tmp = full_data(idata)
13544  data_tmp = ishft(data_tmp, 44)
13545  pack_tmp = ior(pack_tmp, data_tmp)
13546  pack_tmp = ishft(pack_tmp, -16)
13547  idata = idata + 1
13548  data_tmp = full_data(idata)
13549  data_tmp = ishft(data_tmp, 44)
13550  data_tmp = iand(data_tmp, mask_left(16))
13551  pack_tmp = ior(pack_tmp, data_tmp)
13552  ipack = ipack + 1
13553  packed_data(ipack) = pack_tmp
13554  data_tmp = full_data(idata)
13555  pack_tmp = ishft(data_tmp, 60)
13556  pack_tmp = ishft(pack_tmp, -20)
13557  idata = idata + 1
13558  data_tmp = full_data(idata)
13559  data_tmp = ishft(data_tmp, 44)
13560  pack_tmp = ior(pack_tmp, data_tmp)
13561  pack_tmp = ishft(pack_tmp, -20)
13562  idata = idata + 1
13563  data_tmp = full_data(idata)
13564  data_tmp = ishft(data_tmp, 44)
13565  pack_tmp = ior(pack_tmp, data_tmp)
13566  pack_tmp = ishft(pack_tmp, -20)
13567  idata = idata + 1
13568  data_tmp = full_data(idata)
13569  data_tmp = ishft(data_tmp, 44)
13570  pack_tmp = ior(pack_tmp, data_tmp)
13571  pack_tmp = ishft(pack_tmp, 0)
13572  idata = idata + 1
13573  data_tmp = full_data(idata)
13574  data_tmp = ishft(data_tmp, 44)
13575  data_tmp = iand(data_tmp, mask_left(0))
13576  pack_tmp = ior(pack_tmp, data_tmp)
13577  ipack = ipack + 1
13578  packed_data(ipack) = pack_tmp
13579  data_tmp = full_data(idata)
13580  pack_tmp = ishft(data_tmp, 44)
13581  pack_tmp = ishft(pack_tmp, -20)
13582  idata = idata + 1
13583  data_tmp = full_data(idata)
13584  data_tmp = ishft(data_tmp, 44)
13585  pack_tmp = ior(pack_tmp, data_tmp)
13586  pack_tmp = ishft(pack_tmp, -20)
13587  idata = idata + 1
13588  data_tmp = full_data(idata)
13589  data_tmp = ishft(data_tmp, 44)
13590  pack_tmp = ior(pack_tmp, data_tmp)
13591  pack_tmp = ishft(pack_tmp, -4)
13592  idata = idata + 1
13593  data_tmp = full_data(idata)
13594  data_tmp = ishft(data_tmp, 44)
13595  data_tmp = iand(data_tmp, mask_left(4))
13596  pack_tmp = ior(pack_tmp, data_tmp)
13597  ipack = ipack + 1
13598  packed_data(ipack) = pack_tmp
13599  data_tmp = full_data(idata)
13600  pack_tmp = ishft(data_tmp, 48)
13601  pack_tmp = ishft(pack_tmp, -20)
13602  idata = idata + 1
13603  data_tmp = full_data(idata)
13604  data_tmp = ishft(data_tmp, 44)
13605  pack_tmp = ior(pack_tmp, data_tmp)
13606  pack_tmp = ishft(pack_tmp, -20)
13607  idata = idata + 1
13608  data_tmp = full_data(idata)
13609  data_tmp = ishft(data_tmp, 44)
13610  pack_tmp = ior(pack_tmp, data_tmp)
13611  pack_tmp = ishft(pack_tmp, -8)
13612  idata = idata + 1
13613  data_tmp = full_data(idata)
13614  data_tmp = ishft(data_tmp, 44)
13615  data_tmp = iand(data_tmp, mask_left(8))
13616  pack_tmp = ior(pack_tmp, data_tmp)
13617  ipack = ipack + 1
13618  packed_data(ipack) = pack_tmp
13619  data_tmp = full_data(idata)
13620  pack_tmp = ishft(data_tmp, 52)
13621  pack_tmp = ishft(pack_tmp, -20)
13622  idata = idata + 1
13623  data_tmp = full_data(idata)
13624  data_tmp = ishft(data_tmp, 44)
13625  pack_tmp = ior(pack_tmp, data_tmp)
13626  pack_tmp = ishft(pack_tmp, -20)
13627  idata = idata + 1
13628  data_tmp = full_data(idata)
13629  data_tmp = ishft(data_tmp, 44)
13630  pack_tmp = ior(pack_tmp, data_tmp)
13631  pack_tmp = ishft(pack_tmp, -12)
13632  idata = idata + 1
13633  data_tmp = full_data(idata)
13634  data_tmp = ishft(data_tmp, 44)
13635  data_tmp = iand(data_tmp, mask_left(12))
13636  pack_tmp = ior(pack_tmp, data_tmp)
13637  ipack = ipack + 1
13638  packed_data(ipack) = pack_tmp
13639  data_tmp = full_data(idata)
13640  pack_tmp = ishft(data_tmp, 56)
13641  pack_tmp = ishft(pack_tmp, -20)
13642  idata = idata + 1
13643  data_tmp = full_data(idata)
13644  data_tmp = ishft(data_tmp, 44)
13645  pack_tmp = ior(pack_tmp, data_tmp)
13646  pack_tmp = ishft(pack_tmp, -20)
13647  idata = idata + 1
13648  data_tmp = full_data(idata)
13649  data_tmp = ishft(data_tmp, 44)
13650  pack_tmp = ior(pack_tmp, data_tmp)
13651  pack_tmp = ishft(pack_tmp, -16)
13652  idata = idata + 1
13653  data_tmp = full_data(idata)
13654  data_tmp = ishft(data_tmp, 44)
13655  data_tmp = iand(data_tmp, mask_left(16))
13656  pack_tmp = ior(pack_tmp, data_tmp)
13657  ipack = ipack + 1
13658  packed_data(ipack) = pack_tmp
13659  data_tmp = full_data(idata)
13660  pack_tmp = ishft(data_tmp, 60)
13661  pack_tmp = ishft(pack_tmp, -20)
13662  idata = idata + 1
13663  data_tmp = full_data(idata)
13664  data_tmp = ishft(data_tmp, 44)
13665  pack_tmp = ior(pack_tmp, data_tmp)
13666  pack_tmp = ishft(pack_tmp, -20)
13667  idata = idata + 1
13668  data_tmp = full_data(idata)
13669  data_tmp = ishft(data_tmp, 44)
13670  pack_tmp = ior(pack_tmp, data_tmp)
13671  pack_tmp = ishft(pack_tmp, -20)
13672  idata = idata + 1
13673  data_tmp = full_data(idata)
13674  data_tmp = ishft(data_tmp, 44)
13675  pack_tmp = ior(pack_tmp, data_tmp)
13676  pack_tmp = ishft(pack_tmp, 0)
13677  idata = idata + 1
13678  data_tmp = full_data(idata)
13679  data_tmp = ishft(data_tmp, 44)
13680  data_tmp = iand(data_tmp, mask_left(0))
13681  pack_tmp = ior(pack_tmp, data_tmp)
13682  ipack = ipack + 1
13683  packed_data(ipack) = pack_tmp
13684  data_tmp = full_data(idata)
13685  pack_tmp = ishft(data_tmp, 44)
13686  pack_tmp = ishft(pack_tmp, -20)
13687  idata = idata + 1
13688  data_tmp = full_data(idata)
13689  data_tmp = ishft(data_tmp, 44)
13690  pack_tmp = ior(pack_tmp, data_tmp)
13691  pack_tmp = ishft(pack_tmp, -20)
13692  idata = idata + 1
13693  data_tmp = full_data(idata)
13694  data_tmp = ishft(data_tmp, 44)
13695  pack_tmp = ior(pack_tmp, data_tmp)
13696  pack_tmp = ishft(pack_tmp, -4)
13697  idata = idata + 1
13698  data_tmp = full_data(idata)
13699  data_tmp = ishft(data_tmp, 44)
13700  data_tmp = iand(data_tmp, mask_left(4))
13701  pack_tmp = ior(pack_tmp, data_tmp)
13702  ipack = ipack + 1
13703  packed_data(ipack) = pack_tmp
13704  data_tmp = full_data(idata)
13705  pack_tmp = ishft(data_tmp, 48)
13706  pack_tmp = ishft(pack_tmp, -20)
13707  idata = idata + 1
13708  data_tmp = full_data(idata)
13709  data_tmp = ishft(data_tmp, 44)
13710  pack_tmp = ior(pack_tmp, data_tmp)
13711  pack_tmp = ishft(pack_tmp, -20)
13712  idata = idata + 1
13713  data_tmp = full_data(idata)
13714  data_tmp = ishft(data_tmp, 44)
13715  pack_tmp = ior(pack_tmp, data_tmp)
13716  pack_tmp = ishft(pack_tmp, -8)
13717  idata = idata + 1
13718  data_tmp = full_data(idata)
13719  data_tmp = ishft(data_tmp, 44)
13720  data_tmp = iand(data_tmp, mask_left(8))
13721  pack_tmp = ior(pack_tmp, data_tmp)
13722  ipack = ipack + 1
13723  packed_data(ipack) = pack_tmp
13724  data_tmp = full_data(idata)
13725  pack_tmp = ishft(data_tmp, 52)
13726  pack_tmp = ishft(pack_tmp, -20)
13727  idata = idata + 1
13728  data_tmp = full_data(idata)
13729  data_tmp = ishft(data_tmp, 44)
13730  pack_tmp = ior(pack_tmp, data_tmp)
13731  pack_tmp = ishft(pack_tmp, -20)
13732  idata = idata + 1
13733  data_tmp = full_data(idata)
13734  data_tmp = ishft(data_tmp, 44)
13735  pack_tmp = ior(pack_tmp, data_tmp)
13736  pack_tmp = ishft(pack_tmp, -12)
13737  idata = idata + 1
13738  data_tmp = full_data(idata)
13739  data_tmp = ishft(data_tmp, 44)
13740  data_tmp = iand(data_tmp, mask_left(12))
13741  pack_tmp = ior(pack_tmp, data_tmp)
13742  ipack = ipack + 1
13743  packed_data(ipack) = pack_tmp
13744  data_tmp = full_data(idata)
13745  pack_tmp = ishft(data_tmp, 56)
13746  pack_tmp = ishft(pack_tmp, -20)
13747  idata = idata + 1
13748  data_tmp = full_data(idata)
13749  data_tmp = ishft(data_tmp, 44)
13750  pack_tmp = ior(pack_tmp, data_tmp)
13751  pack_tmp = ishft(pack_tmp, -20)
13752  idata = idata + 1
13753  data_tmp = full_data(idata)
13754  data_tmp = ishft(data_tmp, 44)
13755  pack_tmp = ior(pack_tmp, data_tmp)
13756  pack_tmp = ishft(pack_tmp, -16)
13757  idata = idata + 1
13758  data_tmp = full_data(idata)
13759  data_tmp = ishft(data_tmp, 44)
13760  data_tmp = iand(data_tmp, mask_left(16))
13761  pack_tmp = ior(pack_tmp, data_tmp)
13762  ipack = ipack + 1
13763  packed_data(ipack) = pack_tmp
13764  data_tmp = full_data(idata)
13765  pack_tmp = ishft(data_tmp, 60)
13766  pack_tmp = ishft(pack_tmp, -20)
13767  idata = idata + 1
13768  data_tmp = full_data(idata)
13769  data_tmp = ishft(data_tmp, 44)
13770  pack_tmp = ior(pack_tmp, data_tmp)
13771  pack_tmp = ishft(pack_tmp, -20)
13772  idata = idata + 1
13773  data_tmp = full_data(idata)
13774  data_tmp = ishft(data_tmp, 44)
13775  pack_tmp = ior(pack_tmp, data_tmp)
13776  pack_tmp = ishft(pack_tmp, -20)
13777  idata = idata + 1
13778  data_tmp = full_data(idata)
13779  data_tmp = ishft(data_tmp, 44)
13780  pack_tmp = ior(pack_tmp, data_tmp)
13781  pack_tmp = ishft(pack_tmp, 0)
13782  idata = idata + 1
13783  data_tmp = full_data(idata)
13784  data_tmp = ishft(data_tmp, 44)
13785  data_tmp = iand(data_tmp, mask_left(0))
13786  pack_tmp = ior(pack_tmp, data_tmp)
13787  ipack = ipack + 1
13788  packed_data(ipack) = pack_tmp
13789  data_tmp = full_data(idata)
13790  pack_tmp = ishft(data_tmp, 44)
13791  pack_tmp = ishft(pack_tmp, -20)
13792  idata = idata + 1
13793  data_tmp = full_data(idata)
13794  data_tmp = ishft(data_tmp, 44)
13795  pack_tmp = ior(pack_tmp, data_tmp)
13796  pack_tmp = ishft(pack_tmp, -20)
13797  idata = idata + 1
13798  data_tmp = full_data(idata)
13799  data_tmp = ishft(data_tmp, 44)
13800  pack_tmp = ior(pack_tmp, data_tmp)
13801  pack_tmp = ishft(pack_tmp, -4)
13802  idata = idata + 1
13803  data_tmp = full_data(idata)
13804  data_tmp = ishft(data_tmp, 44)
13805  data_tmp = iand(data_tmp, mask_left(4))
13806  pack_tmp = ior(pack_tmp, data_tmp)
13807  ipack = ipack + 1
13808  packed_data(ipack) = pack_tmp
13809  data_tmp = full_data(idata)
13810  pack_tmp = ishft(data_tmp, 48)
13811  pack_tmp = ishft(pack_tmp, -20)
13812  idata = idata + 1
13813  data_tmp = full_data(idata)
13814  data_tmp = ishft(data_tmp, 44)
13815  pack_tmp = ior(pack_tmp, data_tmp)
13816  pack_tmp = ishft(pack_tmp, -20)
13817  idata = idata + 1
13818  data_tmp = full_data(idata)
13819  data_tmp = ishft(data_tmp, 44)
13820  pack_tmp = ior(pack_tmp, data_tmp)
13821  pack_tmp = ishft(pack_tmp, -8)
13822  idata = idata + 1
13823  data_tmp = full_data(idata)
13824  data_tmp = ishft(data_tmp, 44)
13825  data_tmp = iand(data_tmp, mask_left(8))
13826  pack_tmp = ior(pack_tmp, data_tmp)
13827  ipack = ipack + 1
13828  packed_data(ipack) = pack_tmp
13829  data_tmp = full_data(idata)
13830  pack_tmp = ishft(data_tmp, 52)
13831  pack_tmp = ishft(pack_tmp, -20)
13832  idata = idata + 1
13833  data_tmp = full_data(idata)
13834  data_tmp = ishft(data_tmp, 44)
13835  pack_tmp = ior(pack_tmp, data_tmp)
13836  pack_tmp = ishft(pack_tmp, -20)
13837  idata = idata + 1
13838  data_tmp = full_data(idata)
13839  data_tmp = ishft(data_tmp, 44)
13840  pack_tmp = ior(pack_tmp, data_tmp)
13841  pack_tmp = ishft(pack_tmp, -12)
13842  idata = idata + 1
13843  data_tmp = full_data(idata)
13844  data_tmp = ishft(data_tmp, 44)
13845  data_tmp = iand(data_tmp, mask_left(12))
13846  pack_tmp = ior(pack_tmp, data_tmp)
13847  ipack = ipack + 1
13848  packed_data(ipack) = pack_tmp
13849  data_tmp = full_data(idata)
13850  pack_tmp = ishft(data_tmp, 56)
13851  pack_tmp = ishft(pack_tmp, -20)
13852  idata = idata + 1
13853  data_tmp = full_data(idata)
13854  data_tmp = ishft(data_tmp, 44)
13855  pack_tmp = ior(pack_tmp, data_tmp)
13856  pack_tmp = ishft(pack_tmp, -20)
13857  idata = idata + 1
13858  data_tmp = full_data(idata)
13859  data_tmp = ishft(data_tmp, 44)
13860  pack_tmp = ior(pack_tmp, data_tmp)
13861  pack_tmp = ishft(pack_tmp, -16)
13862  idata = idata + 1
13863  data_tmp = full_data(idata)
13864  data_tmp = ishft(data_tmp, 44)
13865  data_tmp = iand(data_tmp, mask_left(16))
13866  pack_tmp = ior(pack_tmp, data_tmp)
13867  ipack = ipack + 1
13868  packed_data(ipack) = pack_tmp
13869  data_tmp = full_data(idata)
13870  pack_tmp = ishft(data_tmp, 60)
13871  pack_tmp = ishft(pack_tmp, -20)
13872  idata = idata + 1
13873  data_tmp = full_data(idata)
13874  data_tmp = ishft(data_tmp, 44)
13875  pack_tmp = ior(pack_tmp, data_tmp)
13876  pack_tmp = ishft(pack_tmp, -20)
13877  idata = idata + 1
13878  data_tmp = full_data(idata)
13879  data_tmp = ishft(data_tmp, 44)
13880  pack_tmp = ior(pack_tmp, data_tmp)
13881  pack_tmp = ishft(pack_tmp, -20)
13882  idata = idata + 1
13883  data_tmp = full_data(idata)
13884  data_tmp = ishft(data_tmp, 44)
13885  pack_tmp = ior(pack_tmp, data_tmp)
13886  pack_tmp = ishft(pack_tmp, 0)
13887  pack_tmp = ishft(pack_tmp, 0)
13888  ipack = ipack + 1
13889  packed_data(ipack) = pack_tmp
13890  END DO
13891  IF (ndata_rep < ndata) THEN
13892  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
13893  END IF
13894  END SUBROUTINE ints2bits_20
13895 
13896 ! **************************************************************************************************
13897 !> \brief ...
13898 !> \param Ndata ...
13899 !> \param packed_data ...
13900 !> \param full_data ...
13901 ! **************************************************************************************************
13902  SUBROUTINE bits2ints_20(Ndata, packed_data, full_data)
13903  INTEGER, INTENT(IN) :: Ndata
13904  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
13905  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
13906 
13907  INTEGER, PARAMETER :: Nbits = 20
13908 
13909  INTEGER :: idata, ipack, kdata, Ndata_rep
13910  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
13911 
13912  ipack = 0
13913  idata = 0
13914  pack_tmp = 0
13915  ndata_rep = (ndata/64)*64
13916  DO kdata = 1, ndata_rep, 64
13917  idata = idata + 1
13918  data_tmp = ishft(pack_tmp, 20)
13919  ipack = ipack + 1
13920  pack_tmp = packed_data(ipack)
13921  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
13922  pack_tmp = ishft(pack_tmp, -20)
13923  idata = idata + 1
13924  data_tmp = iand(pack_tmp, mask_right(nbits))
13925  full_data(idata) = data_tmp
13926  pack_tmp = ishft(pack_tmp, -nbits)
13927  idata = idata + 1
13928  data_tmp = iand(pack_tmp, mask_right(nbits))
13929  full_data(idata) = data_tmp
13930  pack_tmp = ishft(pack_tmp, -nbits)
13931  idata = idata + 1
13932  data_tmp = ishft(pack_tmp, 16)
13933  ipack = ipack + 1
13934  pack_tmp = packed_data(ipack)
13935  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
13936  pack_tmp = ishft(pack_tmp, -16)
13937  idata = idata + 1
13938  data_tmp = iand(pack_tmp, mask_right(nbits))
13939  full_data(idata) = data_tmp
13940  pack_tmp = ishft(pack_tmp, -nbits)
13941  idata = idata + 1
13942  data_tmp = iand(pack_tmp, mask_right(nbits))
13943  full_data(idata) = data_tmp
13944  pack_tmp = ishft(pack_tmp, -nbits)
13945  idata = idata + 1
13946  data_tmp = ishft(pack_tmp, 12)
13947  ipack = ipack + 1
13948  pack_tmp = packed_data(ipack)
13949  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
13950  pack_tmp = ishft(pack_tmp, -12)
13951  idata = idata + 1
13952  data_tmp = iand(pack_tmp, mask_right(nbits))
13953  full_data(idata) = data_tmp
13954  pack_tmp = ishft(pack_tmp, -nbits)
13955  idata = idata + 1
13956  data_tmp = iand(pack_tmp, mask_right(nbits))
13957  full_data(idata) = data_tmp
13958  pack_tmp = ishft(pack_tmp, -nbits)
13959  idata = idata + 1
13960  data_tmp = ishft(pack_tmp, 8)
13961  ipack = ipack + 1
13962  pack_tmp = packed_data(ipack)
13963  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
13964  pack_tmp = ishft(pack_tmp, -8)
13965  idata = idata + 1
13966  data_tmp = iand(pack_tmp, mask_right(nbits))
13967  full_data(idata) = data_tmp
13968  pack_tmp = ishft(pack_tmp, -nbits)
13969  idata = idata + 1
13970  data_tmp = iand(pack_tmp, mask_right(nbits))
13971  full_data(idata) = data_tmp
13972  pack_tmp = ishft(pack_tmp, -nbits)
13973  idata = idata + 1
13974  data_tmp = ishft(pack_tmp, 4)
13975  ipack = ipack + 1
13976  pack_tmp = packed_data(ipack)
13977  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
13978  pack_tmp = ishft(pack_tmp, -4)
13979  idata = idata + 1
13980  data_tmp = iand(pack_tmp, mask_right(nbits))
13981  full_data(idata) = data_tmp
13982  pack_tmp = ishft(pack_tmp, -nbits)
13983  idata = idata + 1
13984  data_tmp = iand(pack_tmp, mask_right(nbits))
13985  full_data(idata) = data_tmp
13986  pack_tmp = ishft(pack_tmp, -nbits)
13987  idata = idata + 1
13988  data_tmp = iand(pack_tmp, mask_right(nbits))
13989  full_data(idata) = data_tmp
13990  pack_tmp = ishft(pack_tmp, -nbits)
13991  idata = idata + 1
13992  data_tmp = ishft(pack_tmp, 20)
13993  ipack = ipack + 1
13994  pack_tmp = packed_data(ipack)
13995  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
13996  pack_tmp = ishft(pack_tmp, -20)
13997  idata = idata + 1
13998  data_tmp = iand(pack_tmp, mask_right(nbits))
13999  full_data(idata) = data_tmp
14000  pack_tmp = ishft(pack_tmp, -nbits)
14001  idata = idata + 1
14002  data_tmp = iand(pack_tmp, mask_right(nbits))
14003  full_data(idata) = data_tmp
14004  pack_tmp = ishft(pack_tmp, -nbits)
14005  idata = idata + 1
14006  data_tmp = ishft(pack_tmp, 16)
14007  ipack = ipack + 1
14008  pack_tmp = packed_data(ipack)
14009  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
14010  pack_tmp = ishft(pack_tmp, -16)
14011  idata = idata + 1
14012  data_tmp = iand(pack_tmp, mask_right(nbits))
14013  full_data(idata) = data_tmp
14014  pack_tmp = ishft(pack_tmp, -nbits)
14015  idata = idata + 1
14016  data_tmp = iand(pack_tmp, mask_right(nbits))
14017  full_data(idata) = data_tmp
14018  pack_tmp = ishft(pack_tmp, -nbits)
14019  idata = idata + 1
14020  data_tmp = ishft(pack_tmp, 12)
14021  ipack = ipack + 1
14022  pack_tmp = packed_data(ipack)
14023  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
14024  pack_tmp = ishft(pack_tmp, -12)
14025  idata = idata + 1
14026  data_tmp = iand(pack_tmp, mask_right(nbits))
14027  full_data(idata) = data_tmp
14028  pack_tmp = ishft(pack_tmp, -nbits)
14029  idata = idata + 1
14030  data_tmp = iand(pack_tmp, mask_right(nbits))
14031  full_data(idata) = data_tmp
14032  pack_tmp = ishft(pack_tmp, -nbits)
14033  idata = idata + 1
14034  data_tmp = ishft(pack_tmp, 8)
14035  ipack = ipack + 1
14036  pack_tmp = packed_data(ipack)
14037  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
14038  pack_tmp = ishft(pack_tmp, -8)
14039  idata = idata + 1
14040  data_tmp = iand(pack_tmp, mask_right(nbits))
14041  full_data(idata) = data_tmp
14042  pack_tmp = ishft(pack_tmp, -nbits)
14043  idata = idata + 1
14044  data_tmp = iand(pack_tmp, mask_right(nbits))
14045  full_data(idata) = data_tmp
14046  pack_tmp = ishft(pack_tmp, -nbits)
14047  idata = idata + 1
14048  data_tmp = ishft(pack_tmp, 4)
14049  ipack = ipack + 1
14050  pack_tmp = packed_data(ipack)
14051  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
14052  pack_tmp = ishft(pack_tmp, -4)
14053  idata = idata + 1
14054  data_tmp = iand(pack_tmp, mask_right(nbits))
14055  full_data(idata) = data_tmp
14056  pack_tmp = ishft(pack_tmp, -nbits)
14057  idata = idata + 1
14058  data_tmp = iand(pack_tmp, mask_right(nbits))
14059  full_data(idata) = data_tmp
14060  pack_tmp = ishft(pack_tmp, -nbits)
14061  idata = idata + 1
14062  data_tmp = iand(pack_tmp, mask_right(nbits))
14063  full_data(idata) = data_tmp
14064  pack_tmp = ishft(pack_tmp, -nbits)
14065  idata = idata + 1
14066  data_tmp = ishft(pack_tmp, 20)
14067  ipack = ipack + 1
14068  pack_tmp = packed_data(ipack)
14069  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
14070  pack_tmp = ishft(pack_tmp, -20)
14071  idata = idata + 1
14072  data_tmp = iand(pack_tmp, mask_right(nbits))
14073  full_data(idata) = data_tmp
14074  pack_tmp = ishft(pack_tmp, -nbits)
14075  idata = idata + 1
14076  data_tmp = iand(pack_tmp, mask_right(nbits))
14077  full_data(idata) = data_tmp
14078  pack_tmp = ishft(pack_tmp, -nbits)
14079  idata = idata + 1
14080  data_tmp = ishft(pack_tmp, 16)
14081  ipack = ipack + 1
14082  pack_tmp = packed_data(ipack)
14083  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
14084  pack_tmp = ishft(pack_tmp, -16)
14085  idata = idata + 1
14086  data_tmp = iand(pack_tmp, mask_right(nbits))
14087  full_data(idata) = data_tmp
14088  pack_tmp = ishft(pack_tmp, -nbits)
14089  idata = idata + 1
14090  data_tmp = iand(pack_tmp, mask_right(nbits))
14091  full_data(idata) = data_tmp
14092  pack_tmp = ishft(pack_tmp, -nbits)
14093  idata = idata + 1
14094  data_tmp = ishft(pack_tmp, 12)
14095  ipack = ipack + 1
14096  pack_tmp = packed_data(ipack)
14097  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
14098  pack_tmp = ishft(pack_tmp, -12)
14099  idata = idata + 1
14100  data_tmp = iand(pack_tmp, mask_right(nbits))
14101  full_data(idata) = data_tmp
14102  pack_tmp = ishft(pack_tmp, -nbits)
14103  idata = idata + 1
14104  data_tmp = iand(pack_tmp, mask_right(nbits))
14105  full_data(idata) = data_tmp
14106  pack_tmp = ishft(pack_tmp, -nbits)
14107  idata = idata + 1
14108  data_tmp = ishft(pack_tmp, 8)
14109  ipack = ipack + 1
14110  pack_tmp = packed_data(ipack)
14111  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
14112  pack_tmp = ishft(pack_tmp, -8)
14113  idata = idata + 1
14114  data_tmp = iand(pack_tmp, mask_right(nbits))
14115  full_data(idata) = data_tmp
14116  pack_tmp = ishft(pack_tmp, -nbits)
14117  idata = idata + 1
14118  data_tmp = iand(pack_tmp, mask_right(nbits))
14119  full_data(idata) = data_tmp
14120  pack_tmp = ishft(pack_tmp, -nbits)
14121  idata = idata + 1
14122  data_tmp = ishft(pack_tmp, 4)
14123  ipack = ipack + 1
14124  pack_tmp = packed_data(ipack)
14125  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
14126  pack_tmp = ishft(pack_tmp, -4)
14127  idata = idata + 1
14128  data_tmp = iand(pack_tmp, mask_right(nbits))
14129  full_data(idata) = data_tmp
14130  pack_tmp = ishft(pack_tmp, -nbits)
14131  idata = idata + 1
14132  data_tmp = iand(pack_tmp, mask_right(nbits))
14133  full_data(idata) = data_tmp
14134  pack_tmp = ishft(pack_tmp, -nbits)
14135  idata = idata + 1
14136  data_tmp = iand(pack_tmp, mask_right(nbits))
14137  full_data(idata) = data_tmp
14138  pack_tmp = ishft(pack_tmp, -nbits)
14139  idata = idata + 1
14140  data_tmp = ishft(pack_tmp, 20)
14141  ipack = ipack + 1
14142  pack_tmp = packed_data(ipack)
14143  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
14144  pack_tmp = ishft(pack_tmp, -20)
14145  idata = idata + 1
14146  data_tmp = iand(pack_tmp, mask_right(nbits))
14147  full_data(idata) = data_tmp
14148  pack_tmp = ishft(pack_tmp, -nbits)
14149  idata = idata + 1
14150  data_tmp = iand(pack_tmp, mask_right(nbits))
14151  full_data(idata) = data_tmp
14152  pack_tmp = ishft(pack_tmp, -nbits)
14153  idata = idata + 1
14154  data_tmp = ishft(pack_tmp, 16)
14155  ipack = ipack + 1
14156  pack_tmp = packed_data(ipack)
14157  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
14158  pack_tmp = ishft(pack_tmp, -16)
14159  idata = idata + 1
14160  data_tmp = iand(pack_tmp, mask_right(nbits))
14161  full_data(idata) = data_tmp
14162  pack_tmp = ishft(pack_tmp, -nbits)
14163  idata = idata + 1
14164  data_tmp = iand(pack_tmp, mask_right(nbits))
14165  full_data(idata) = data_tmp
14166  pack_tmp = ishft(pack_tmp, -nbits)
14167  idata = idata + 1
14168  data_tmp = ishft(pack_tmp, 12)
14169  ipack = ipack + 1
14170  pack_tmp = packed_data(ipack)
14171  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
14172  pack_tmp = ishft(pack_tmp, -12)
14173  idata = idata + 1
14174  data_tmp = iand(pack_tmp, mask_right(nbits))
14175  full_data(idata) = data_tmp
14176  pack_tmp = ishft(pack_tmp, -nbits)
14177  idata = idata + 1
14178  data_tmp = iand(pack_tmp, mask_right(nbits))
14179  full_data(idata) = data_tmp
14180  pack_tmp = ishft(pack_tmp, -nbits)
14181  idata = idata + 1
14182  data_tmp = ishft(pack_tmp, 8)
14183  ipack = ipack + 1
14184  pack_tmp = packed_data(ipack)
14185  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
14186  pack_tmp = ishft(pack_tmp, -8)
14187  idata = idata + 1
14188  data_tmp = iand(pack_tmp, mask_right(nbits))
14189  full_data(idata) = data_tmp
14190  pack_tmp = ishft(pack_tmp, -nbits)
14191  idata = idata + 1
14192  data_tmp = iand(pack_tmp, mask_right(nbits))
14193  full_data(idata) = data_tmp
14194  pack_tmp = ishft(pack_tmp, -nbits)
14195  idata = idata + 1
14196  data_tmp = ishft(pack_tmp, 4)
14197  ipack = ipack + 1
14198  pack_tmp = packed_data(ipack)
14199  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
14200  pack_tmp = ishft(pack_tmp, -4)
14201  idata = idata + 1
14202  data_tmp = iand(pack_tmp, mask_right(nbits))
14203  full_data(idata) = data_tmp
14204  pack_tmp = ishft(pack_tmp, -nbits)
14205  idata = idata + 1
14206  data_tmp = iand(pack_tmp, mask_right(nbits))
14207  full_data(idata) = data_tmp
14208  pack_tmp = ishft(pack_tmp, -nbits)
14209  idata = idata + 1
14210  data_tmp = iand(pack_tmp, mask_right(nbits))
14211  full_data(idata) = data_tmp
14212  pack_tmp = ishft(pack_tmp, -nbits)
14213  END DO
14214  IF (ndata_rep < ndata) THEN
14215  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
14216  END IF
14217  END SUBROUTINE bits2ints_20
14218 
14219 ! **************************************************************************************************
14220 !> \brief ...
14221 !> \param Ndata ...
14222 !> \param packed_data ...
14223 !> \param full_data ...
14224 ! **************************************************************************************************
14225  SUBROUTINE ints2bits_21(Ndata, packed_data, full_data)
14226  INTEGER, INTENT(IN) :: Ndata
14227  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
14228  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
14229 
14230  INTEGER, PARAMETER :: Nbits = 21
14231 
14232  INTEGER :: idata, ipack, kdata, Ndata_rep
14233  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
14234 
14235  idata = 0
14236  ipack = 0
14237  ndata_rep = (ndata/64)*64
14238  DO kdata = 1, ndata_rep, 64
14239  pack_tmp = 0
14240  idata = idata + 1
14241  data_tmp = full_data(idata)
14242  data_tmp = ishft(data_tmp, 43)
14243  pack_tmp = ior(pack_tmp, data_tmp)
14244  pack_tmp = ishft(pack_tmp, -21)
14245  idata = idata + 1
14246  data_tmp = full_data(idata)
14247  data_tmp = ishft(data_tmp, 43)
14248  pack_tmp = ior(pack_tmp, data_tmp)
14249  pack_tmp = ishft(pack_tmp, -21)
14250  idata = idata + 1
14251  data_tmp = full_data(idata)
14252  data_tmp = ishft(data_tmp, 43)
14253  pack_tmp = ior(pack_tmp, data_tmp)
14254  pack_tmp = ishft(pack_tmp, -1)
14255  idata = idata + 1
14256  data_tmp = full_data(idata)
14257  data_tmp = ishft(data_tmp, 43)
14258  data_tmp = iand(data_tmp, mask_left(1))
14259  pack_tmp = ior(pack_tmp, data_tmp)
14260  ipack = ipack + 1
14261  packed_data(ipack) = pack_tmp
14262  data_tmp = full_data(idata)
14263  pack_tmp = ishft(data_tmp, 44)
14264  pack_tmp = ishft(pack_tmp, -21)
14265  idata = idata + 1
14266  data_tmp = full_data(idata)
14267  data_tmp = ishft(data_tmp, 43)
14268  pack_tmp = ior(pack_tmp, data_tmp)
14269  pack_tmp = ishft(pack_tmp, -21)
14270  idata = idata + 1
14271  data_tmp = full_data(idata)
14272  data_tmp = ishft(data_tmp, 43)
14273  pack_tmp = ior(pack_tmp, data_tmp)
14274  pack_tmp = ishft(pack_tmp, -2)
14275  idata = idata + 1
14276  data_tmp = full_data(idata)
14277  data_tmp = ishft(data_tmp, 43)
14278  data_tmp = iand(data_tmp, mask_left(2))
14279  pack_tmp = ior(pack_tmp, data_tmp)
14280  ipack = ipack + 1
14281  packed_data(ipack) = pack_tmp
14282  data_tmp = full_data(idata)
14283  pack_tmp = ishft(data_tmp, 45)
14284  pack_tmp = ishft(pack_tmp, -21)
14285  idata = idata + 1
14286  data_tmp = full_data(idata)
14287  data_tmp = ishft(data_tmp, 43)
14288  pack_tmp = ior(pack_tmp, data_tmp)
14289  pack_tmp = ishft(pack_tmp, -21)
14290  idata = idata + 1
14291  data_tmp = full_data(idata)
14292  data_tmp = ishft(data_tmp, 43)
14293  pack_tmp = ior(pack_tmp, data_tmp)
14294  pack_tmp = ishft(pack_tmp, -3)
14295  idata = idata + 1
14296  data_tmp = full_data(idata)
14297  data_tmp = ishft(data_tmp, 43)
14298  data_tmp = iand(data_tmp, mask_left(3))
14299  pack_tmp = ior(pack_tmp, data_tmp)
14300  ipack = ipack + 1
14301  packed_data(ipack) = pack_tmp
14302  data_tmp = full_data(idata)
14303  pack_tmp = ishft(data_tmp, 46)
14304  pack_tmp = ishft(pack_tmp, -21)
14305  idata = idata + 1
14306  data_tmp = full_data(idata)
14307  data_tmp = ishft(data_tmp, 43)
14308  pack_tmp = ior(pack_tmp, data_tmp)
14309  pack_tmp = ishft(pack_tmp, -21)
14310  idata = idata + 1
14311  data_tmp = full_data(idata)
14312  data_tmp = ishft(data_tmp, 43)
14313  pack_tmp = ior(pack_tmp, data_tmp)
14314  pack_tmp = ishft(pack_tmp, -4)
14315  idata = idata + 1
14316  data_tmp = full_data(idata)
14317  data_tmp = ishft(data_tmp, 43)
14318  data_tmp = iand(data_tmp, mask_left(4))
14319  pack_tmp = ior(pack_tmp, data_tmp)
14320  ipack = ipack + 1
14321  packed_data(ipack) = pack_tmp
14322  data_tmp = full_data(idata)
14323  pack_tmp = ishft(data_tmp, 47)
14324  pack_tmp = ishft(pack_tmp, -21)
14325  idata = idata + 1
14326  data_tmp = full_data(idata)
14327  data_tmp = ishft(data_tmp, 43)
14328  pack_tmp = ior(pack_tmp, data_tmp)
14329  pack_tmp = ishft(pack_tmp, -21)
14330  idata = idata + 1
14331  data_tmp = full_data(idata)
14332  data_tmp = ishft(data_tmp, 43)
14333  pack_tmp = ior(pack_tmp, data_tmp)
14334  pack_tmp = ishft(pack_tmp, -5)
14335  idata = idata + 1
14336  data_tmp = full_data(idata)
14337  data_tmp = ishft(data_tmp, 43)
14338  data_tmp = iand(data_tmp, mask_left(5))
14339  pack_tmp = ior(pack_tmp, data_tmp)
14340  ipack = ipack + 1
14341  packed_data(ipack) = pack_tmp
14342  data_tmp = full_data(idata)
14343  pack_tmp = ishft(data_tmp, 48)
14344  pack_tmp = ishft(pack_tmp, -21)
14345  idata = idata + 1
14346  data_tmp = full_data(idata)
14347  data_tmp = ishft(data_tmp, 43)
14348  pack_tmp = ior(pack_tmp, data_tmp)
14349  pack_tmp = ishft(pack_tmp, -21)
14350  idata = idata + 1
14351  data_tmp = full_data(idata)
14352  data_tmp = ishft(data_tmp, 43)
14353  pack_tmp = ior(pack_tmp, data_tmp)
14354  pack_tmp = ishft(pack_tmp, -6)
14355  idata = idata + 1
14356  data_tmp = full_data(idata)
14357  data_tmp = ishft(data_tmp, 43)
14358  data_tmp = iand(data_tmp, mask_left(6))
14359  pack_tmp = ior(pack_tmp, data_tmp)
14360  ipack = ipack + 1
14361  packed_data(ipack) = pack_tmp
14362  data_tmp = full_data(idata)
14363  pack_tmp = ishft(data_tmp, 49)
14364  pack_tmp = ishft(pack_tmp, -21)
14365  idata = idata + 1
14366  data_tmp = full_data(idata)
14367  data_tmp = ishft(data_tmp, 43)
14368  pack_tmp = ior(pack_tmp, data_tmp)
14369  pack_tmp = ishft(pack_tmp, -21)
14370  idata = idata + 1
14371  data_tmp = full_data(idata)
14372  data_tmp = ishft(data_tmp, 43)
14373  pack_tmp = ior(pack_tmp, data_tmp)
14374  pack_tmp = ishft(pack_tmp, -7)
14375  idata = idata + 1
14376  data_tmp = full_data(idata)
14377  data_tmp = ishft(data_tmp, 43)
14378  data_tmp = iand(data_tmp, mask_left(7))
14379  pack_tmp = ior(pack_tmp, data_tmp)
14380  ipack = ipack + 1
14381  packed_data(ipack) = pack_tmp
14382  data_tmp = full_data(idata)
14383  pack_tmp = ishft(data_tmp, 50)
14384  pack_tmp = ishft(pack_tmp, -21)
14385  idata = idata + 1
14386  data_tmp = full_data(idata)
14387  data_tmp = ishft(data_tmp, 43)
14388  pack_tmp = ior(pack_tmp, data_tmp)
14389  pack_tmp = ishft(pack_tmp, -21)
14390  idata = idata + 1
14391  data_tmp = full_data(idata)
14392  data_tmp = ishft(data_tmp, 43)
14393  pack_tmp = ior(pack_tmp, data_tmp)
14394  pack_tmp = ishft(pack_tmp, -8)
14395  idata = idata + 1
14396  data_tmp = full_data(idata)
14397  data_tmp = ishft(data_tmp, 43)
14398  data_tmp = iand(data_tmp, mask_left(8))
14399  pack_tmp = ior(pack_tmp, data_tmp)
14400  ipack = ipack + 1
14401  packed_data(ipack) = pack_tmp
14402  data_tmp = full_data(idata)
14403  pack_tmp = ishft(data_tmp, 51)
14404  pack_tmp = ishft(pack_tmp, -21)
14405  idata = idata + 1
14406  data_tmp = full_data(idata)
14407  data_tmp = ishft(data_tmp, 43)
14408  pack_tmp = ior(pack_tmp, data_tmp)
14409  pack_tmp = ishft(pack_tmp, -21)
14410  idata = idata + 1
14411  data_tmp = full_data(idata)
14412  data_tmp = ishft(data_tmp, 43)
14413  pack_tmp = ior(pack_tmp, data_tmp)
14414  pack_tmp = ishft(pack_tmp, -9)
14415  idata = idata + 1
14416  data_tmp = full_data(idata)
14417  data_tmp = ishft(data_tmp, 43)
14418  data_tmp = iand(data_tmp, mask_left(9))
14419  pack_tmp = ior(pack_tmp, data_tmp)
14420  ipack = ipack + 1
14421  packed_data(ipack) = pack_tmp
14422  data_tmp = full_data(idata)
14423  pack_tmp = ishft(data_tmp, 52)
14424  pack_tmp = ishft(pack_tmp, -21)
14425  idata = idata + 1
14426  data_tmp = full_data(idata)
14427  data_tmp = ishft(data_tmp, 43)
14428  pack_tmp = ior(pack_tmp, data_tmp)
14429  pack_tmp = ishft(pack_tmp, -21)
14430  idata = idata + 1
14431  data_tmp = full_data(idata)
14432  data_tmp = ishft(data_tmp, 43)
14433  pack_tmp = ior(pack_tmp, data_tmp)
14434  pack_tmp = ishft(pack_tmp, -10)
14435  idata = idata + 1
14436  data_tmp = full_data(idata)
14437  data_tmp = ishft(data_tmp, 43)
14438  data_tmp = iand(data_tmp, mask_left(10))
14439  pack_tmp = ior(pack_tmp, data_tmp)
14440  ipack = ipack + 1
14441  packed_data(ipack) = pack_tmp
14442  data_tmp = full_data(idata)
14443  pack_tmp = ishft(data_tmp, 53)
14444  pack_tmp = ishft(pack_tmp, -21)
14445  idata = idata + 1
14446  data_tmp = full_data(idata)
14447  data_tmp = ishft(data_tmp, 43)
14448  pack_tmp = ior(pack_tmp, data_tmp)
14449  pack_tmp = ishft(pack_tmp, -21)
14450  idata = idata + 1
14451  data_tmp = full_data(idata)
14452  data_tmp = ishft(data_tmp, 43)
14453  pack_tmp = ior(pack_tmp, data_tmp)
14454  pack_tmp = ishft(pack_tmp, -11)
14455  idata = idata + 1
14456  data_tmp = full_data(idata)
14457  data_tmp = ishft(data_tmp, 43)
14458  data_tmp = iand(data_tmp, mask_left(11))
14459  pack_tmp = ior(pack_tmp, data_tmp)
14460  ipack = ipack + 1
14461  packed_data(ipack) = pack_tmp
14462  data_tmp = full_data(idata)
14463  pack_tmp = ishft(data_tmp, 54)
14464  pack_tmp = ishft(pack_tmp, -21)
14465  idata = idata + 1
14466  data_tmp = full_data(idata)
14467  data_tmp = ishft(data_tmp, 43)
14468  pack_tmp = ior(pack_tmp, data_tmp)
14469  pack_tmp = ishft(pack_tmp, -21)
14470  idata = idata + 1
14471  data_tmp = full_data(idata)
14472  data_tmp = ishft(data_tmp, 43)
14473  pack_tmp = ior(pack_tmp, data_tmp)
14474  pack_tmp = ishft(pack_tmp, -12)
14475  idata = idata + 1
14476  data_tmp = full_data(idata)
14477  data_tmp = ishft(data_tmp, 43)
14478  data_tmp = iand(data_tmp, mask_left(12))
14479  pack_tmp = ior(pack_tmp, data_tmp)
14480  ipack = ipack + 1
14481  packed_data(ipack) = pack_tmp
14482  data_tmp = full_data(idata)
14483  pack_tmp = ishft(data_tmp, 55)
14484  pack_tmp = ishft(pack_tmp, -21)
14485  idata = idata + 1
14486  data_tmp = full_data(idata)
14487  data_tmp = ishft(data_tmp, 43)
14488  pack_tmp = ior(pack_tmp, data_tmp)
14489  pack_tmp = ishft(pack_tmp, -21)
14490  idata = idata + 1
14491  data_tmp = full_data(idata)
14492  data_tmp = ishft(data_tmp, 43)
14493  pack_tmp = ior(pack_tmp, data_tmp)
14494  pack_tmp = ishft(pack_tmp, -13)
14495  idata = idata + 1
14496  data_tmp = full_data(idata)
14497  data_tmp = ishft(data_tmp, 43)
14498  data_tmp = iand(data_tmp, mask_left(13))
14499  pack_tmp = ior(pack_tmp, data_tmp)
14500  ipack = ipack + 1
14501  packed_data(ipack) = pack_tmp
14502  data_tmp = full_data(idata)
14503  pack_tmp = ishft(data_tmp, 56)
14504  pack_tmp = ishft(pack_tmp, -21)
14505  idata = idata + 1
14506  data_tmp = full_data(idata)
14507  data_tmp = ishft(data_tmp, 43)
14508  pack_tmp = ior(pack_tmp, data_tmp)
14509  pack_tmp = ishft(pack_tmp, -21)
14510  idata = idata + 1
14511  data_tmp = full_data(idata)
14512  data_tmp = ishft(data_tmp, 43)
14513  pack_tmp = ior(pack_tmp, data_tmp)
14514  pack_tmp = ishft(pack_tmp, -14)
14515  idata = idata + 1
14516  data_tmp = full_data(idata)
14517  data_tmp = ishft(data_tmp, 43)
14518  data_tmp = iand(data_tmp, mask_left(14))
14519  pack_tmp = ior(pack_tmp, data_tmp)
14520  ipack = ipack + 1
14521  packed_data(ipack) = pack_tmp
14522  data_tmp = full_data(idata)
14523  pack_tmp = ishft(data_tmp, 57)
14524  pack_tmp = ishft(pack_tmp, -21)
14525  idata = idata + 1
14526  data_tmp = full_data(idata)
14527  data_tmp = ishft(data_tmp, 43)
14528  pack_tmp = ior(pack_tmp, data_tmp)
14529  pack_tmp = ishft(pack_tmp, -21)
14530  idata = idata + 1
14531  data_tmp = full_data(idata)
14532  data_tmp = ishft(data_tmp, 43)
14533  pack_tmp = ior(pack_tmp, data_tmp)
14534  pack_tmp = ishft(pack_tmp, -15)
14535  idata = idata + 1
14536  data_tmp = full_data(idata)
14537  data_tmp = ishft(data_tmp, 43)
14538  data_tmp = iand(data_tmp, mask_left(15))
14539  pack_tmp = ior(pack_tmp, data_tmp)
14540  ipack = ipack + 1
14541  packed_data(ipack) = pack_tmp
14542  data_tmp = full_data(idata)
14543  pack_tmp = ishft(data_tmp, 58)
14544  pack_tmp = ishft(pack_tmp, -21)
14545  idata = idata + 1
14546  data_tmp = full_data(idata)
14547  data_tmp = ishft(data_tmp, 43)
14548  pack_tmp = ior(pack_tmp, data_tmp)
14549  pack_tmp = ishft(pack_tmp, -21)
14550  idata = idata + 1
14551  data_tmp = full_data(idata)
14552  data_tmp = ishft(data_tmp, 43)
14553  pack_tmp = ior(pack_tmp, data_tmp)
14554  pack_tmp = ishft(pack_tmp, -16)
14555  idata = idata + 1
14556  data_tmp = full_data(idata)
14557  data_tmp = ishft(data_tmp, 43)
14558  data_tmp = iand(data_tmp, mask_left(16))
14559  pack_tmp = ior(pack_tmp, data_tmp)
14560  ipack = ipack + 1
14561  packed_data(ipack) = pack_tmp
14562  data_tmp = full_data(idata)
14563  pack_tmp = ishft(data_tmp, 59)
14564  pack_tmp = ishft(pack_tmp, -21)
14565  idata = idata + 1
14566  data_tmp = full_data(idata)
14567  data_tmp = ishft(data_tmp, 43)
14568  pack_tmp = ior(pack_tmp, data_tmp)
14569  pack_tmp = ishft(pack_tmp, -21)
14570  idata = idata + 1
14571  data_tmp = full_data(idata)
14572  data_tmp = ishft(data_tmp, 43)
14573  pack_tmp = ior(pack_tmp, data_tmp)
14574  pack_tmp = ishft(pack_tmp, -17)
14575  idata = idata + 1
14576  data_tmp = full_data(idata)
14577  data_tmp = ishft(data_tmp, 43)
14578  data_tmp = iand(data_tmp, mask_left(17))
14579  pack_tmp = ior(pack_tmp, data_tmp)
14580  ipack = ipack + 1
14581  packed_data(ipack) = pack_tmp
14582  data_tmp = full_data(idata)
14583  pack_tmp = ishft(data_tmp, 60)
14584  pack_tmp = ishft(pack_tmp, -21)
14585  idata = idata + 1
14586  data_tmp = full_data(idata)
14587  data_tmp = ishft(data_tmp, 43)
14588  pack_tmp = ior(pack_tmp, data_tmp)
14589  pack_tmp = ishft(pack_tmp, -21)
14590  idata = idata + 1
14591  data_tmp = full_data(idata)
14592  data_tmp = ishft(data_tmp, 43)
14593  pack_tmp = ior(pack_tmp, data_tmp)
14594  pack_tmp = ishft(pack_tmp, -18)
14595  idata = idata + 1
14596  data_tmp = full_data(idata)
14597  data_tmp = ishft(data_tmp, 43)
14598  data_tmp = iand(data_tmp, mask_left(18))
14599  pack_tmp = ior(pack_tmp, data_tmp)
14600  ipack = ipack + 1
14601  packed_data(ipack) = pack_tmp
14602  data_tmp = full_data(idata)
14603  pack_tmp = ishft(data_tmp, 61)
14604  pack_tmp = ishft(pack_tmp, -21)
14605  idata = idata + 1
14606  data_tmp = full_data(idata)
14607  data_tmp = ishft(data_tmp, 43)
14608  pack_tmp = ior(pack_tmp, data_tmp)
14609  pack_tmp = ishft(pack_tmp, -21)
14610  idata = idata + 1
14611  data_tmp = full_data(idata)
14612  data_tmp = ishft(data_tmp, 43)
14613  pack_tmp = ior(pack_tmp, data_tmp)
14614  pack_tmp = ishft(pack_tmp, -19)
14615  idata = idata + 1
14616  data_tmp = full_data(idata)
14617  data_tmp = ishft(data_tmp, 43)
14618  data_tmp = iand(data_tmp, mask_left(19))
14619  pack_tmp = ior(pack_tmp, data_tmp)
14620  ipack = ipack + 1
14621  packed_data(ipack) = pack_tmp
14622  data_tmp = full_data(idata)
14623  pack_tmp = ishft(data_tmp, 62)
14624  pack_tmp = ishft(pack_tmp, -21)
14625  idata = idata + 1
14626  data_tmp = full_data(idata)
14627  data_tmp = ishft(data_tmp, 43)
14628  pack_tmp = ior(pack_tmp, data_tmp)
14629  pack_tmp = ishft(pack_tmp, -21)
14630  idata = idata + 1
14631  data_tmp = full_data(idata)
14632  data_tmp = ishft(data_tmp, 43)
14633  pack_tmp = ior(pack_tmp, data_tmp)
14634  pack_tmp = ishft(pack_tmp, -20)
14635  idata = idata + 1
14636  data_tmp = full_data(idata)
14637  data_tmp = ishft(data_tmp, 43)
14638  data_tmp = iand(data_tmp, mask_left(20))
14639  pack_tmp = ior(pack_tmp, data_tmp)
14640  ipack = ipack + 1
14641  packed_data(ipack) = pack_tmp
14642  data_tmp = full_data(idata)
14643  pack_tmp = ishft(data_tmp, 63)
14644  pack_tmp = ishft(pack_tmp, -21)
14645  idata = idata + 1
14646  data_tmp = full_data(idata)
14647  data_tmp = ishft(data_tmp, 43)
14648  pack_tmp = ior(pack_tmp, data_tmp)
14649  pack_tmp = ishft(pack_tmp, -21)
14650  idata = idata + 1
14651  data_tmp = full_data(idata)
14652  data_tmp = ishft(data_tmp, 43)
14653  pack_tmp = ior(pack_tmp, data_tmp)
14654  pack_tmp = ishft(pack_tmp, -21)
14655  idata = idata + 1
14656  data_tmp = full_data(idata)
14657  data_tmp = ishft(data_tmp, 43)
14658  pack_tmp = ior(pack_tmp, data_tmp)
14659  pack_tmp = ishft(pack_tmp, 0)
14660  pack_tmp = ishft(pack_tmp, 0)
14661  ipack = ipack + 1
14662  packed_data(ipack) = pack_tmp
14663  END DO
14664  IF (ndata_rep < ndata) THEN
14665  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
14666  END IF
14667  END SUBROUTINE ints2bits_21
14668 
14669 ! **************************************************************************************************
14670 !> \brief ...
14671 !> \param Ndata ...
14672 !> \param packed_data ...
14673 !> \param full_data ...
14674 ! **************************************************************************************************
14675  SUBROUTINE bits2ints_21(Ndata, packed_data, full_data)
14676  INTEGER, INTENT(IN) :: Ndata
14677  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
14678  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
14679 
14680  INTEGER, PARAMETER :: Nbits = 21
14681 
14682  INTEGER :: idata, ipack, kdata, Ndata_rep
14683  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
14684 
14685  ipack = 0
14686  idata = 0
14687  pack_tmp = 0
14688  ndata_rep = (ndata/64)*64
14689  DO kdata = 1, ndata_rep, 64
14690  idata = idata + 1
14691  data_tmp = ishft(pack_tmp, 21)
14692  ipack = ipack + 1
14693  pack_tmp = packed_data(ipack)
14694  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
14695  pack_tmp = ishft(pack_tmp, -21)
14696  idata = idata + 1
14697  data_tmp = iand(pack_tmp, mask_right(nbits))
14698  full_data(idata) = data_tmp
14699  pack_tmp = ishft(pack_tmp, -nbits)
14700  idata = idata + 1
14701  data_tmp = iand(pack_tmp, mask_right(nbits))
14702  full_data(idata) = data_tmp
14703  pack_tmp = ishft(pack_tmp, -nbits)
14704  idata = idata + 1
14705  data_tmp = ishft(pack_tmp, 20)
14706  ipack = ipack + 1
14707  pack_tmp = packed_data(ipack)
14708  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
14709  pack_tmp = ishft(pack_tmp, -20)
14710  idata = idata + 1
14711  data_tmp = iand(pack_tmp, mask_right(nbits))
14712  full_data(idata) = data_tmp
14713  pack_tmp = ishft(pack_tmp, -nbits)
14714  idata = idata + 1
14715  data_tmp = iand(pack_tmp, mask_right(nbits))
14716  full_data(idata) = data_tmp
14717  pack_tmp = ishft(pack_tmp, -nbits)
14718  idata = idata + 1
14719  data_tmp = ishft(pack_tmp, 19)
14720  ipack = ipack + 1
14721  pack_tmp = packed_data(ipack)
14722  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
14723  pack_tmp = ishft(pack_tmp, -19)
14724  idata = idata + 1
14725  data_tmp = iand(pack_tmp, mask_right(nbits))
14726  full_data(idata) = data_tmp
14727  pack_tmp = ishft(pack_tmp, -nbits)
14728  idata = idata + 1
14729  data_tmp = iand(pack_tmp, mask_right(nbits))
14730  full_data(idata) = data_tmp
14731  pack_tmp = ishft(pack_tmp, -nbits)
14732  idata = idata + 1
14733  data_tmp = ishft(pack_tmp, 18)
14734  ipack = ipack + 1
14735  pack_tmp = packed_data(ipack)
14736  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
14737  pack_tmp = ishft(pack_tmp, -18)
14738  idata = idata + 1
14739  data_tmp = iand(pack_tmp, mask_right(nbits))
14740  full_data(idata) = data_tmp
14741  pack_tmp = ishft(pack_tmp, -nbits)
14742  idata = idata + 1
14743  data_tmp = iand(pack_tmp, mask_right(nbits))
14744  full_data(idata) = data_tmp
14745  pack_tmp = ishft(pack_tmp, -nbits)
14746  idata = idata + 1
14747  data_tmp = ishft(pack_tmp, 17)
14748  ipack = ipack + 1
14749  pack_tmp = packed_data(ipack)
14750  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
14751  pack_tmp = ishft(pack_tmp, -17)
14752  idata = idata + 1
14753  data_tmp = iand(pack_tmp, mask_right(nbits))
14754  full_data(idata) = data_tmp
14755  pack_tmp = ishft(pack_tmp, -nbits)
14756  idata = idata + 1
14757  data_tmp = iand(pack_tmp, mask_right(nbits))
14758  full_data(idata) = data_tmp
14759  pack_tmp = ishft(pack_tmp, -nbits)
14760  idata = idata + 1
14761  data_tmp = ishft(pack_tmp, 16)
14762  ipack = ipack + 1
14763  pack_tmp = packed_data(ipack)
14764  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
14765  pack_tmp = ishft(pack_tmp, -16)
14766  idata = idata + 1
14767  data_tmp = iand(pack_tmp, mask_right(nbits))
14768  full_data(idata) = data_tmp
14769  pack_tmp = ishft(pack_tmp, -nbits)
14770  idata = idata + 1
14771  data_tmp = iand(pack_tmp, mask_right(nbits))
14772  full_data(idata) = data_tmp
14773  pack_tmp = ishft(pack_tmp, -nbits)
14774  idata = idata + 1
14775  data_tmp = ishft(pack_tmp, 15)
14776  ipack = ipack + 1
14777  pack_tmp = packed_data(ipack)
14778  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
14779  pack_tmp = ishft(pack_tmp, -15)
14780  idata = idata + 1
14781  data_tmp = iand(pack_tmp, mask_right(nbits))
14782  full_data(idata) = data_tmp
14783  pack_tmp = ishft(pack_tmp, -nbits)
14784  idata = idata + 1
14785  data_tmp = iand(pack_tmp, mask_right(nbits))
14786  full_data(idata) = data_tmp
14787  pack_tmp = ishft(pack_tmp, -nbits)
14788  idata = idata + 1
14789  data_tmp = ishft(pack_tmp, 14)
14790  ipack = ipack + 1
14791  pack_tmp = packed_data(ipack)
14792  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
14793  pack_tmp = ishft(pack_tmp, -14)
14794  idata = idata + 1
14795  data_tmp = iand(pack_tmp, mask_right(nbits))
14796  full_data(idata) = data_tmp
14797  pack_tmp = ishft(pack_tmp, -nbits)
14798  idata = idata + 1
14799  data_tmp = iand(pack_tmp, mask_right(nbits))
14800  full_data(idata) = data_tmp
14801  pack_tmp = ishft(pack_tmp, -nbits)
14802  idata = idata + 1
14803  data_tmp = ishft(pack_tmp, 13)
14804  ipack = ipack + 1
14805  pack_tmp = packed_data(ipack)
14806  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
14807  pack_tmp = ishft(pack_tmp, -13)
14808  idata = idata + 1
14809  data_tmp = iand(pack_tmp, mask_right(nbits))
14810  full_data(idata) = data_tmp
14811  pack_tmp = ishft(pack_tmp, -nbits)
14812  idata = idata + 1
14813  data_tmp = iand(pack_tmp, mask_right(nbits))
14814  full_data(idata) = data_tmp
14815  pack_tmp = ishft(pack_tmp, -nbits)
14816  idata = idata + 1
14817  data_tmp = ishft(pack_tmp, 12)
14818  ipack = ipack + 1
14819  pack_tmp = packed_data(ipack)
14820  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
14821  pack_tmp = ishft(pack_tmp, -12)
14822  idata = idata + 1
14823  data_tmp = iand(pack_tmp, mask_right(nbits))
14824  full_data(idata) = data_tmp
14825  pack_tmp = ishft(pack_tmp, -nbits)
14826  idata = idata + 1
14827  data_tmp = iand(pack_tmp, mask_right(nbits))
14828  full_data(idata) = data_tmp
14829  pack_tmp = ishft(pack_tmp, -nbits)
14830  idata = idata + 1
14831  data_tmp = ishft(pack_tmp, 11)
14832  ipack = ipack + 1
14833  pack_tmp = packed_data(ipack)
14834  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
14835  pack_tmp = ishft(pack_tmp, -11)
14836  idata = idata + 1
14837  data_tmp = iand(pack_tmp, mask_right(nbits))
14838  full_data(idata) = data_tmp
14839  pack_tmp = ishft(pack_tmp, -nbits)
14840  idata = idata + 1
14841  data_tmp = iand(pack_tmp, mask_right(nbits))
14842  full_data(idata) = data_tmp
14843  pack_tmp = ishft(pack_tmp, -nbits)
14844  idata = idata + 1
14845  data_tmp = ishft(pack_tmp, 10)
14846  ipack = ipack + 1
14847  pack_tmp = packed_data(ipack)
14848  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
14849  pack_tmp = ishft(pack_tmp, -10)
14850  idata = idata + 1
14851  data_tmp = iand(pack_tmp, mask_right(nbits))
14852  full_data(idata) = data_tmp
14853  pack_tmp = ishft(pack_tmp, -nbits)
14854  idata = idata + 1
14855  data_tmp = iand(pack_tmp, mask_right(nbits))
14856  full_data(idata) = data_tmp
14857  pack_tmp = ishft(pack_tmp, -nbits)
14858  idata = idata + 1
14859  data_tmp = ishft(pack_tmp, 9)
14860  ipack = ipack + 1
14861  pack_tmp = packed_data(ipack)
14862  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
14863  pack_tmp = ishft(pack_tmp, -9)
14864  idata = idata + 1
14865  data_tmp = iand(pack_tmp, mask_right(nbits))
14866  full_data(idata) = data_tmp
14867  pack_tmp = ishft(pack_tmp, -nbits)
14868  idata = idata + 1
14869  data_tmp = iand(pack_tmp, mask_right(nbits))
14870  full_data(idata) = data_tmp
14871  pack_tmp = ishft(pack_tmp, -nbits)
14872  idata = idata + 1
14873  data_tmp = ishft(pack_tmp, 8)
14874  ipack = ipack + 1
14875  pack_tmp = packed_data(ipack)
14876  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
14877  pack_tmp = ishft(pack_tmp, -8)
14878  idata = idata + 1
14879  data_tmp = iand(pack_tmp, mask_right(nbits))
14880  full_data(idata) = data_tmp
14881  pack_tmp = ishft(pack_tmp, -nbits)
14882  idata = idata + 1
14883  data_tmp = iand(pack_tmp, mask_right(nbits))
14884  full_data(idata) = data_tmp
14885  pack_tmp = ishft(pack_tmp, -nbits)
14886  idata = idata + 1
14887  data_tmp = ishft(pack_tmp, 7)
14888  ipack = ipack + 1
14889  pack_tmp = packed_data(ipack)
14890  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
14891  pack_tmp = ishft(pack_tmp, -7)
14892  idata = idata + 1
14893  data_tmp = iand(pack_tmp, mask_right(nbits))
14894  full_data(idata) = data_tmp
14895  pack_tmp = ishft(pack_tmp, -nbits)
14896  idata = idata + 1
14897  data_tmp = iand(pack_tmp, mask_right(nbits))
14898  full_data(idata) = data_tmp
14899  pack_tmp = ishft(pack_tmp, -nbits)
14900  idata = idata + 1
14901  data_tmp = ishft(pack_tmp, 6)
14902  ipack = ipack + 1
14903  pack_tmp = packed_data(ipack)
14904  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
14905  pack_tmp = ishft(pack_tmp, -6)
14906  idata = idata + 1
14907  data_tmp = iand(pack_tmp, mask_right(nbits))
14908  full_data(idata) = data_tmp
14909  pack_tmp = ishft(pack_tmp, -nbits)
14910  idata = idata + 1
14911  data_tmp = iand(pack_tmp, mask_right(nbits))
14912  full_data(idata) = data_tmp
14913  pack_tmp = ishft(pack_tmp, -nbits)
14914  idata = idata + 1
14915  data_tmp = ishft(pack_tmp, 5)
14916  ipack = ipack + 1
14917  pack_tmp = packed_data(ipack)
14918  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
14919  pack_tmp = ishft(pack_tmp, -5)
14920  idata = idata + 1
14921  data_tmp = iand(pack_tmp, mask_right(nbits))
14922  full_data(idata) = data_tmp
14923  pack_tmp = ishft(pack_tmp, -nbits)
14924  idata = idata + 1
14925  data_tmp = iand(pack_tmp, mask_right(nbits))
14926  full_data(idata) = data_tmp
14927  pack_tmp = ishft(pack_tmp, -nbits)
14928  idata = idata + 1
14929  data_tmp = ishft(pack_tmp, 4)
14930  ipack = ipack + 1
14931  pack_tmp = packed_data(ipack)
14932  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
14933  pack_tmp = ishft(pack_tmp, -4)
14934  idata = idata + 1
14935  data_tmp = iand(pack_tmp, mask_right(nbits))
14936  full_data(idata) = data_tmp
14937  pack_tmp = ishft(pack_tmp, -nbits)
14938  idata = idata + 1
14939  data_tmp = iand(pack_tmp, mask_right(nbits))
14940  full_data(idata) = data_tmp
14941  pack_tmp = ishft(pack_tmp, -nbits)
14942  idata = idata + 1
14943  data_tmp = ishft(pack_tmp, 3)
14944  ipack = ipack + 1
14945  pack_tmp = packed_data(ipack)
14946  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
14947  pack_tmp = ishft(pack_tmp, -3)
14948  idata = idata + 1
14949  data_tmp = iand(pack_tmp, mask_right(nbits))
14950  full_data(idata) = data_tmp
14951  pack_tmp = ishft(pack_tmp, -nbits)
14952  idata = idata + 1
14953  data_tmp = iand(pack_tmp, mask_right(nbits))
14954  full_data(idata) = data_tmp
14955  pack_tmp = ishft(pack_tmp, -nbits)
14956  idata = idata + 1
14957  data_tmp = ishft(pack_tmp, 2)
14958  ipack = ipack + 1
14959  pack_tmp = packed_data(ipack)
14960  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
14961  pack_tmp = ishft(pack_tmp, -2)
14962  idata = idata + 1
14963  data_tmp = iand(pack_tmp, mask_right(nbits))
14964  full_data(idata) = data_tmp
14965  pack_tmp = ishft(pack_tmp, -nbits)
14966  idata = idata + 1
14967  data_tmp = iand(pack_tmp, mask_right(nbits))
14968  full_data(idata) = data_tmp
14969  pack_tmp = ishft(pack_tmp, -nbits)
14970  idata = idata + 1
14971  data_tmp = ishft(pack_tmp, 1)
14972  ipack = ipack + 1
14973  pack_tmp = packed_data(ipack)
14974  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
14975  pack_tmp = ishft(pack_tmp, -1)
14976  idata = idata + 1
14977  data_tmp = iand(pack_tmp, mask_right(nbits))
14978  full_data(idata) = data_tmp
14979  pack_tmp = ishft(pack_tmp, -nbits)
14980  idata = idata + 1
14981  data_tmp = iand(pack_tmp, mask_right(nbits))
14982  full_data(idata) = data_tmp
14983  pack_tmp = ishft(pack_tmp, -nbits)
14984  idata = idata + 1
14985  data_tmp = iand(pack_tmp, mask_right(nbits))
14986  full_data(idata) = data_tmp
14987  pack_tmp = ishft(pack_tmp, -nbits)
14988  END DO
14989  IF (ndata_rep < ndata) THEN
14990  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
14991  END IF
14992  END SUBROUTINE bits2ints_21
14993 
14994 ! **************************************************************************************************
14995 !> \brief ...
14996 !> \param Ndata ...
14997 !> \param packed_data ...
14998 !> \param full_data ...
14999 ! **************************************************************************************************
15000  SUBROUTINE ints2bits_22(Ndata, packed_data, full_data)
15001  INTEGER, INTENT(IN) :: Ndata
15002  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
15003  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
15004 
15005  INTEGER, PARAMETER :: Nbits = 22
15006 
15007  INTEGER :: idata, ipack, kdata, Ndata_rep
15008  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
15009 
15010  idata = 0
15011  ipack = 0
15012  ndata_rep = (ndata/64)*64
15013  DO kdata = 1, ndata_rep, 64
15014  pack_tmp = 0
15015  idata = idata + 1
15016  data_tmp = full_data(idata)
15017  data_tmp = ishft(data_tmp, 42)
15018  pack_tmp = ior(pack_tmp, data_tmp)
15019  pack_tmp = ishft(pack_tmp, -22)
15020  idata = idata + 1
15021  data_tmp = full_data(idata)
15022  data_tmp = ishft(data_tmp, 42)
15023  pack_tmp = ior(pack_tmp, data_tmp)
15024  pack_tmp = ishft(pack_tmp, -20)
15025  idata = idata + 1
15026  data_tmp = full_data(idata)
15027  data_tmp = ishft(data_tmp, 42)
15028  data_tmp = iand(data_tmp, mask_left(20))
15029  pack_tmp = ior(pack_tmp, data_tmp)
15030  ipack = ipack + 1
15031  packed_data(ipack) = pack_tmp
15032  data_tmp = full_data(idata)
15033  pack_tmp = ishft(data_tmp, 62)
15034  pack_tmp = ishft(pack_tmp, -22)
15035  idata = idata + 1
15036  data_tmp = full_data(idata)
15037  data_tmp = ishft(data_tmp, 42)
15038  pack_tmp = ior(pack_tmp, data_tmp)
15039  pack_tmp = ishft(pack_tmp, -22)
15040  idata = idata + 1
15041  data_tmp = full_data(idata)
15042  data_tmp = ishft(data_tmp, 42)
15043  pack_tmp = ior(pack_tmp, data_tmp)
15044  pack_tmp = ishft(pack_tmp, -18)
15045  idata = idata + 1
15046  data_tmp = full_data(idata)
15047  data_tmp = ishft(data_tmp, 42)
15048  data_tmp = iand(data_tmp, mask_left(18))
15049  pack_tmp = ior(pack_tmp, data_tmp)
15050  ipack = ipack + 1
15051  packed_data(ipack) = pack_tmp
15052  data_tmp = full_data(idata)
15053  pack_tmp = ishft(data_tmp, 60)
15054  pack_tmp = ishft(pack_tmp, -22)
15055  idata = idata + 1
15056  data_tmp = full_data(idata)
15057  data_tmp = ishft(data_tmp, 42)
15058  pack_tmp = ior(pack_tmp, data_tmp)
15059  pack_tmp = ishft(pack_tmp, -22)
15060  idata = idata + 1
15061  data_tmp = full_data(idata)
15062  data_tmp = ishft(data_tmp, 42)
15063  pack_tmp = ior(pack_tmp, data_tmp)
15064  pack_tmp = ishft(pack_tmp, -16)
15065  idata = idata + 1
15066  data_tmp = full_data(idata)
15067  data_tmp = ishft(data_tmp, 42)
15068  data_tmp = iand(data_tmp, mask_left(16))
15069  pack_tmp = ior(pack_tmp, data_tmp)
15070  ipack = ipack + 1
15071  packed_data(ipack) = pack_tmp
15072  data_tmp = full_data(idata)
15073  pack_tmp = ishft(data_tmp, 58)
15074  pack_tmp = ishft(pack_tmp, -22)
15075  idata = idata + 1
15076  data_tmp = full_data(idata)
15077  data_tmp = ishft(data_tmp, 42)
15078  pack_tmp = ior(pack_tmp, data_tmp)
15079  pack_tmp = ishft(pack_tmp, -22)
15080  idata = idata + 1
15081  data_tmp = full_data(idata)
15082  data_tmp = ishft(data_tmp, 42)
15083  pack_tmp = ior(pack_tmp, data_tmp)
15084  pack_tmp = ishft(pack_tmp, -14)
15085  idata = idata + 1
15086  data_tmp = full_data(idata)
15087  data_tmp = ishft(data_tmp, 42)
15088  data_tmp = iand(data_tmp, mask_left(14))
15089  pack_tmp = ior(pack_tmp, data_tmp)
15090  ipack = ipack + 1
15091  packed_data(ipack) = pack_tmp
15092  data_tmp = full_data(idata)
15093  pack_tmp = ishft(data_tmp, 56)
15094  pack_tmp = ishft(pack_tmp, -22)
15095  idata = idata + 1
15096  data_tmp = full_data(idata)
15097  data_tmp = ishft(data_tmp, 42)
15098  pack_tmp = ior(pack_tmp, data_tmp)
15099  pack_tmp = ishft(pack_tmp, -22)
15100  idata = idata + 1
15101  data_tmp = full_data(idata)
15102  data_tmp = ishft(data_tmp, 42)
15103  pack_tmp = ior(pack_tmp, data_tmp)
15104  pack_tmp = ishft(pack_tmp, -12)
15105  idata = idata + 1
15106  data_tmp = full_data(idata)
15107  data_tmp = ishft(data_tmp, 42)
15108  data_tmp = iand(data_tmp, mask_left(12))
15109  pack_tmp = ior(pack_tmp, data_tmp)
15110  ipack = ipack + 1
15111  packed_data(ipack) = pack_tmp
15112  data_tmp = full_data(idata)
15113  pack_tmp = ishft(data_tmp, 54)
15114  pack_tmp = ishft(pack_tmp, -22)
15115  idata = idata + 1
15116  data_tmp = full_data(idata)
15117  data_tmp = ishft(data_tmp, 42)
15118  pack_tmp = ior(pack_tmp, data_tmp)
15119  pack_tmp = ishft(pack_tmp, -22)
15120  idata = idata + 1
15121  data_tmp = full_data(idata)
15122  data_tmp = ishft(data_tmp, 42)
15123  pack_tmp = ior(pack_tmp, data_tmp)
15124  pack_tmp = ishft(pack_tmp, -10)
15125  idata = idata + 1
15126  data_tmp = full_data(idata)
15127  data_tmp = ishft(data_tmp, 42)
15128  data_tmp = iand(data_tmp, mask_left(10))
15129  pack_tmp = ior(pack_tmp, data_tmp)
15130  ipack = ipack + 1
15131  packed_data(ipack) = pack_tmp
15132  data_tmp = full_data(idata)
15133  pack_tmp = ishft(data_tmp, 52)
15134  pack_tmp = ishft(pack_tmp, -22)
15135  idata = idata + 1
15136  data_tmp = full_data(idata)
15137  data_tmp = ishft(data_tmp, 42)
15138  pack_tmp = ior(pack_tmp, data_tmp)
15139  pack_tmp = ishft(pack_tmp, -22)
15140  idata = idata + 1
15141  data_tmp = full_data(idata)
15142  data_tmp = ishft(data_tmp, 42)
15143  pack_tmp = ior(pack_tmp, data_tmp)
15144  pack_tmp = ishft(pack_tmp, -8)
15145  idata = idata + 1
15146  data_tmp = full_data(idata)
15147  data_tmp = ishft(data_tmp, 42)
15148  data_tmp = iand(data_tmp, mask_left(8))
15149  pack_tmp = ior(pack_tmp, data_tmp)
15150  ipack = ipack + 1
15151  packed_data(ipack) = pack_tmp
15152  data_tmp = full_data(idata)
15153  pack_tmp = ishft(data_tmp, 50)
15154  pack_tmp = ishft(pack_tmp, -22)
15155  idata = idata + 1
15156  data_tmp = full_data(idata)
15157  data_tmp = ishft(data_tmp, 42)
15158  pack_tmp = ior(pack_tmp, data_tmp)
15159  pack_tmp = ishft(pack_tmp, -22)
15160  idata = idata + 1
15161  data_tmp = full_data(idata)
15162  data_tmp = ishft(data_tmp, 42)
15163  pack_tmp = ior(pack_tmp, data_tmp)
15164  pack_tmp = ishft(pack_tmp, -6)
15165  idata = idata + 1
15166  data_tmp = full_data(idata)
15167  data_tmp = ishft(data_tmp, 42)
15168  data_tmp = iand(data_tmp, mask_left(6))
15169  pack_tmp = ior(pack_tmp, data_tmp)
15170  ipack = ipack + 1
15171  packed_data(ipack) = pack_tmp
15172  data_tmp = full_data(idata)
15173  pack_tmp = ishft(data_tmp, 48)
15174  pack_tmp = ishft(pack_tmp, -22)
15175  idata = idata + 1
15176  data_tmp = full_data(idata)
15177  data_tmp = ishft(data_tmp, 42)
15178  pack_tmp = ior(pack_tmp, data_tmp)
15179  pack_tmp = ishft(pack_tmp, -22)
15180  idata = idata + 1
15181  data_tmp = full_data(idata)
15182  data_tmp = ishft(data_tmp, 42)
15183  pack_tmp = ior(pack_tmp, data_tmp)
15184  pack_tmp = ishft(pack_tmp, -4)
15185  idata = idata + 1
15186  data_tmp = full_data(idata)
15187  data_tmp = ishft(data_tmp, 42)
15188  data_tmp = iand(data_tmp, mask_left(4))
15189  pack_tmp = ior(pack_tmp, data_tmp)
15190  ipack = ipack + 1
15191  packed_data(ipack) = pack_tmp
15192  data_tmp = full_data(idata)
15193  pack_tmp = ishft(data_tmp, 46)
15194  pack_tmp = ishft(pack_tmp, -22)
15195  idata = idata + 1
15196  data_tmp = full_data(idata)
15197  data_tmp = ishft(data_tmp, 42)
15198  pack_tmp = ior(pack_tmp, data_tmp)
15199  pack_tmp = ishft(pack_tmp, -22)
15200  idata = idata + 1
15201  data_tmp = full_data(idata)
15202  data_tmp = ishft(data_tmp, 42)
15203  pack_tmp = ior(pack_tmp, data_tmp)
15204  pack_tmp = ishft(pack_tmp, -2)
15205  idata = idata + 1
15206  data_tmp = full_data(idata)
15207  data_tmp = ishft(data_tmp, 42)
15208  data_tmp = iand(data_tmp, mask_left(2))
15209  pack_tmp = ior(pack_tmp, data_tmp)
15210  ipack = ipack + 1
15211  packed_data(ipack) = pack_tmp
15212  data_tmp = full_data(idata)
15213  pack_tmp = ishft(data_tmp, 44)
15214  pack_tmp = ishft(pack_tmp, -22)
15215  idata = idata + 1
15216  data_tmp = full_data(idata)
15217  data_tmp = ishft(data_tmp, 42)
15218  pack_tmp = ior(pack_tmp, data_tmp)
15219  pack_tmp = ishft(pack_tmp, -22)
15220  idata = idata + 1
15221  data_tmp = full_data(idata)
15222  data_tmp = ishft(data_tmp, 42)
15223  pack_tmp = ior(pack_tmp, data_tmp)
15224  pack_tmp = ishft(pack_tmp, 0)
15225  idata = idata + 1
15226  data_tmp = full_data(idata)
15227  data_tmp = ishft(data_tmp, 42)
15228  data_tmp = iand(data_tmp, mask_left(0))
15229  pack_tmp = ior(pack_tmp, data_tmp)
15230  ipack = ipack + 1
15231  packed_data(ipack) = pack_tmp
15232  data_tmp = full_data(idata)
15233  pack_tmp = ishft(data_tmp, 42)
15234  pack_tmp = ishft(pack_tmp, -22)
15235  idata = idata + 1
15236  data_tmp = full_data(idata)
15237  data_tmp = ishft(data_tmp, 42)
15238  pack_tmp = ior(pack_tmp, data_tmp)
15239  pack_tmp = ishft(pack_tmp, -20)
15240  idata = idata + 1
15241  data_tmp = full_data(idata)
15242  data_tmp = ishft(data_tmp, 42)
15243  data_tmp = iand(data_tmp, mask_left(20))
15244  pack_tmp = ior(pack_tmp, data_tmp)
15245  ipack = ipack + 1
15246  packed_data(ipack) = pack_tmp
15247  data_tmp = full_data(idata)
15248  pack_tmp = ishft(data_tmp, 62)
15249  pack_tmp = ishft(pack_tmp, -22)
15250  idata = idata + 1
15251  data_tmp = full_data(idata)
15252  data_tmp = ishft(data_tmp, 42)
15253  pack_tmp = ior(pack_tmp, data_tmp)
15254  pack_tmp = ishft(pack_tmp, -22)
15255  idata = idata + 1
15256  data_tmp = full_data(idata)
15257  data_tmp = ishft(data_tmp, 42)
15258  pack_tmp = ior(pack_tmp, data_tmp)
15259  pack_tmp = ishft(pack_tmp, -18)
15260  idata = idata + 1
15261  data_tmp = full_data(idata)
15262  data_tmp = ishft(data_tmp, 42)
15263  data_tmp = iand(data_tmp, mask_left(18))
15264  pack_tmp = ior(pack_tmp, data_tmp)
15265  ipack = ipack + 1
15266  packed_data(ipack) = pack_tmp
15267  data_tmp = full_data(idata)
15268  pack_tmp = ishft(data_tmp, 60)
15269  pack_tmp = ishft(pack_tmp, -22)
15270  idata = idata + 1
15271  data_tmp = full_data(idata)
15272  data_tmp = ishft(data_tmp, 42)
15273  pack_tmp = ior(pack_tmp, data_tmp)
15274  pack_tmp = ishft(pack_tmp, -22)
15275  idata = idata + 1
15276  data_tmp = full_data(idata)
15277  data_tmp = ishft(data_tmp, 42)
15278  pack_tmp = ior(pack_tmp, data_tmp)
15279  pack_tmp = ishft(pack_tmp, -16)
15280  idata = idata + 1
15281  data_tmp = full_data(idata)
15282  data_tmp = ishft(data_tmp, 42)
15283  data_tmp = iand(data_tmp, mask_left(16))
15284  pack_tmp = ior(pack_tmp, data_tmp)
15285  ipack = ipack + 1
15286  packed_data(ipack) = pack_tmp
15287  data_tmp = full_data(idata)
15288  pack_tmp = ishft(data_tmp, 58)
15289  pack_tmp = ishft(pack_tmp, -22)
15290  idata = idata + 1
15291  data_tmp = full_data(idata)
15292  data_tmp = ishft(data_tmp, 42)
15293  pack_tmp = ior(pack_tmp, data_tmp)
15294  pack_tmp = ishft(pack_tmp, -22)
15295  idata = idata + 1
15296  data_tmp = full_data(idata)
15297  data_tmp = ishft(data_tmp, 42)
15298  pack_tmp = ior(pack_tmp, data_tmp)
15299  pack_tmp = ishft(pack_tmp, -14)
15300  idata = idata + 1
15301  data_tmp = full_data(idata)
15302  data_tmp = ishft(data_tmp, 42)
15303  data_tmp = iand(data_tmp, mask_left(14))
15304  pack_tmp = ior(pack_tmp, data_tmp)
15305  ipack = ipack + 1
15306  packed_data(ipack) = pack_tmp
15307  data_tmp = full_data(idata)
15308  pack_tmp = ishft(data_tmp, 56)
15309  pack_tmp = ishft(pack_tmp, -22)
15310  idata = idata + 1
15311  data_tmp = full_data(idata)
15312  data_tmp = ishft(data_tmp, 42)
15313  pack_tmp = ior(pack_tmp, data_tmp)
15314  pack_tmp = ishft(pack_tmp, -22)
15315  idata = idata + 1
15316  data_tmp = full_data(idata)
15317  data_tmp = ishft(data_tmp, 42)
15318  pack_tmp = ior(pack_tmp, data_tmp)
15319  pack_tmp = ishft(pack_tmp, -12)
15320  idata = idata + 1
15321  data_tmp = full_data(idata)
15322  data_tmp = ishft(data_tmp, 42)
15323  data_tmp = iand(data_tmp, mask_left(12))
15324  pack_tmp = ior(pack_tmp, data_tmp)
15325  ipack = ipack + 1
15326  packed_data(ipack) = pack_tmp
15327  data_tmp = full_data(idata)
15328  pack_tmp = ishft(data_tmp, 54)
15329  pack_tmp = ishft(pack_tmp, -22)
15330  idata = idata + 1
15331  data_tmp = full_data(idata)
15332  data_tmp = ishft(data_tmp, 42)
15333  pack_tmp = ior(pack_tmp, data_tmp)
15334  pack_tmp = ishft(pack_tmp, -22)
15335  idata = idata + 1
15336  data_tmp = full_data(idata)
15337  data_tmp = ishft(data_tmp, 42)
15338  pack_tmp = ior(pack_tmp, data_tmp)
15339  pack_tmp = ishft(pack_tmp, -10)
15340  idata = idata + 1
15341  data_tmp = full_data(idata)
15342  data_tmp = ishft(data_tmp, 42)
15343  data_tmp = iand(data_tmp, mask_left(10))
15344  pack_tmp = ior(pack_tmp, data_tmp)
15345  ipack = ipack + 1
15346  packed_data(ipack) = pack_tmp
15347  data_tmp = full_data(idata)
15348  pack_tmp = ishft(data_tmp, 52)
15349  pack_tmp = ishft(pack_tmp, -22)
15350  idata = idata + 1
15351  data_tmp = full_data(idata)
15352  data_tmp = ishft(data_tmp, 42)
15353  pack_tmp = ior(pack_tmp, data_tmp)
15354  pack_tmp = ishft(pack_tmp, -22)
15355  idata = idata + 1
15356  data_tmp = full_data(idata)
15357  data_tmp = ishft(data_tmp, 42)
15358  pack_tmp = ior(pack_tmp, data_tmp)
15359  pack_tmp = ishft(pack_tmp, -8)
15360  idata = idata + 1
15361  data_tmp = full_data(idata)
15362  data_tmp = ishft(data_tmp, 42)
15363  data_tmp = iand(data_tmp, mask_left(8))
15364  pack_tmp = ior(pack_tmp, data_tmp)
15365  ipack = ipack + 1
15366  packed_data(ipack) = pack_tmp
15367  data_tmp = full_data(idata)
15368  pack_tmp = ishft(data_tmp, 50)
15369  pack_tmp = ishft(pack_tmp, -22)
15370  idata = idata + 1
15371  data_tmp = full_data(idata)
15372  data_tmp = ishft(data_tmp, 42)
15373  pack_tmp = ior(pack_tmp, data_tmp)
15374  pack_tmp = ishft(pack_tmp, -22)
15375  idata = idata + 1
15376  data_tmp = full_data(idata)
15377  data_tmp = ishft(data_tmp, 42)
15378  pack_tmp = ior(pack_tmp, data_tmp)
15379  pack_tmp = ishft(pack_tmp, -6)
15380  idata = idata + 1
15381  data_tmp = full_data(idata)
15382  data_tmp = ishft(data_tmp, 42)
15383  data_tmp = iand(data_tmp, mask_left(6))
15384  pack_tmp = ior(pack_tmp, data_tmp)
15385  ipack = ipack + 1
15386  packed_data(ipack) = pack_tmp
15387  data_tmp = full_data(idata)
15388  pack_tmp = ishft(data_tmp, 48)
15389  pack_tmp = ishft(pack_tmp, -22)
15390  idata = idata + 1
15391  data_tmp = full_data(idata)
15392  data_tmp = ishft(data_tmp, 42)
15393  pack_tmp = ior(pack_tmp, data_tmp)
15394  pack_tmp = ishft(pack_tmp, -22)
15395  idata = idata + 1
15396  data_tmp = full_data(idata)
15397  data_tmp = ishft(data_tmp, 42)
15398  pack_tmp = ior(pack_tmp, data_tmp)
15399  pack_tmp = ishft(pack_tmp, -4)
15400  idata = idata + 1
15401  data_tmp = full_data(idata)
15402  data_tmp = ishft(data_tmp, 42)
15403  data_tmp = iand(data_tmp, mask_left(4))
15404  pack_tmp = ior(pack_tmp, data_tmp)
15405  ipack = ipack + 1
15406  packed_data(ipack) = pack_tmp
15407  data_tmp = full_data(idata)
15408  pack_tmp = ishft(data_tmp, 46)
15409  pack_tmp = ishft(pack_tmp, -22)
15410  idata = idata + 1
15411  data_tmp = full_data(idata)
15412  data_tmp = ishft(data_tmp, 42)
15413  pack_tmp = ior(pack_tmp, data_tmp)
15414  pack_tmp = ishft(pack_tmp, -22)
15415  idata = idata + 1
15416  data_tmp = full_data(idata)
15417  data_tmp = ishft(data_tmp, 42)
15418  pack_tmp = ior(pack_tmp, data_tmp)
15419  pack_tmp = ishft(pack_tmp, -2)
15420  idata = idata + 1
15421  data_tmp = full_data(idata)
15422  data_tmp = ishft(data_tmp, 42)
15423  data_tmp = iand(data_tmp, mask_left(2))
15424  pack_tmp = ior(pack_tmp, data_tmp)
15425  ipack = ipack + 1
15426  packed_data(ipack) = pack_tmp
15427  data_tmp = full_data(idata)
15428  pack_tmp = ishft(data_tmp, 44)
15429  pack_tmp = ishft(pack_tmp, -22)
15430  idata = idata + 1
15431  data_tmp = full_data(idata)
15432  data_tmp = ishft(data_tmp, 42)
15433  pack_tmp = ior(pack_tmp, data_tmp)
15434  pack_tmp = ishft(pack_tmp, -22)
15435  idata = idata + 1
15436  data_tmp = full_data(idata)
15437  data_tmp = ishft(data_tmp, 42)
15438  pack_tmp = ior(pack_tmp, data_tmp)
15439  pack_tmp = ishft(pack_tmp, 0)
15440  pack_tmp = ishft(pack_tmp, 0)
15441  ipack = ipack + 1
15442  packed_data(ipack) = pack_tmp
15443  END DO
15444  IF (ndata_rep < ndata) THEN
15445  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
15446  END IF
15447  END SUBROUTINE ints2bits_22
15448 
15449 ! **************************************************************************************************
15450 !> \brief ...
15451 !> \param Ndata ...
15452 !> \param packed_data ...
15453 !> \param full_data ...
15454 ! **************************************************************************************************
15455  SUBROUTINE bits2ints_22(Ndata, packed_data, full_data)
15456  INTEGER, INTENT(IN) :: Ndata
15457  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
15458  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
15459 
15460  INTEGER, PARAMETER :: Nbits = 22
15461 
15462  INTEGER :: idata, ipack, kdata, Ndata_rep
15463  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
15464 
15465  ipack = 0
15466  idata = 0
15467  pack_tmp = 0
15468  ndata_rep = (ndata/64)*64
15469  DO kdata = 1, ndata_rep, 64
15470  idata = idata + 1
15471  data_tmp = ishft(pack_tmp, 22)
15472  ipack = ipack + 1
15473  pack_tmp = packed_data(ipack)
15474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
15475  pack_tmp = ishft(pack_tmp, -22)
15476  idata = idata + 1
15477  data_tmp = iand(pack_tmp, mask_right(nbits))
15478  full_data(idata) = data_tmp
15479  pack_tmp = ishft(pack_tmp, -nbits)
15480  idata = idata + 1
15481  data_tmp = ishft(pack_tmp, 2)
15482  ipack = ipack + 1
15483  pack_tmp = packed_data(ipack)
15484  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
15485  pack_tmp = ishft(pack_tmp, -2)
15486  idata = idata + 1
15487  data_tmp = iand(pack_tmp, mask_right(nbits))
15488  full_data(idata) = data_tmp
15489  pack_tmp = ishft(pack_tmp, -nbits)
15490  idata = idata + 1
15491  data_tmp = iand(pack_tmp, mask_right(nbits))
15492  full_data(idata) = data_tmp
15493  pack_tmp = ishft(pack_tmp, -nbits)
15494  idata = idata + 1
15495  data_tmp = ishft(pack_tmp, 4)
15496  ipack = ipack + 1
15497  pack_tmp = packed_data(ipack)
15498  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
15499  pack_tmp = ishft(pack_tmp, -4)
15500  idata = idata + 1
15501  data_tmp = iand(pack_tmp, mask_right(nbits))
15502  full_data(idata) = data_tmp
15503  pack_tmp = ishft(pack_tmp, -nbits)
15504  idata = idata + 1
15505  data_tmp = iand(pack_tmp, mask_right(nbits))
15506  full_data(idata) = data_tmp
15507  pack_tmp = ishft(pack_tmp, -nbits)
15508  idata = idata + 1
15509  data_tmp = ishft(pack_tmp, 6)
15510  ipack = ipack + 1
15511  pack_tmp = packed_data(ipack)
15512  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
15513  pack_tmp = ishft(pack_tmp, -6)
15514  idata = idata + 1
15515  data_tmp = iand(pack_tmp, mask_right(nbits))
15516  full_data(idata) = data_tmp
15517  pack_tmp = ishft(pack_tmp, -nbits)
15518  idata = idata + 1
15519  data_tmp = iand(pack_tmp, mask_right(nbits))
15520  full_data(idata) = data_tmp
15521  pack_tmp = ishft(pack_tmp, -nbits)
15522  idata = idata + 1
15523  data_tmp = ishft(pack_tmp, 8)
15524  ipack = ipack + 1
15525  pack_tmp = packed_data(ipack)
15526  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
15527  pack_tmp = ishft(pack_tmp, -8)
15528  idata = idata + 1
15529  data_tmp = iand(pack_tmp, mask_right(nbits))
15530  full_data(idata) = data_tmp
15531  pack_tmp = ishft(pack_tmp, -nbits)
15532  idata = idata + 1
15533  data_tmp = iand(pack_tmp, mask_right(nbits))
15534  full_data(idata) = data_tmp
15535  pack_tmp = ishft(pack_tmp, -nbits)
15536  idata = idata + 1
15537  data_tmp = ishft(pack_tmp, 10)
15538  ipack = ipack + 1
15539  pack_tmp = packed_data(ipack)
15540  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
15541  pack_tmp = ishft(pack_tmp, -10)
15542  idata = idata + 1
15543  data_tmp = iand(pack_tmp, mask_right(nbits))
15544  full_data(idata) = data_tmp
15545  pack_tmp = ishft(pack_tmp, -nbits)
15546  idata = idata + 1
15547  data_tmp = iand(pack_tmp, mask_right(nbits))
15548  full_data(idata) = data_tmp
15549  pack_tmp = ishft(pack_tmp, -nbits)
15550  idata = idata + 1
15551  data_tmp = ishft(pack_tmp, 12)
15552  ipack = ipack + 1
15553  pack_tmp = packed_data(ipack)
15554  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
15555  pack_tmp = ishft(pack_tmp, -12)
15556  idata = idata + 1
15557  data_tmp = iand(pack_tmp, mask_right(nbits))
15558  full_data(idata) = data_tmp
15559  pack_tmp = ishft(pack_tmp, -nbits)
15560  idata = idata + 1
15561  data_tmp = iand(pack_tmp, mask_right(nbits))
15562  full_data(idata) = data_tmp
15563  pack_tmp = ishft(pack_tmp, -nbits)
15564  idata = idata + 1
15565  data_tmp = ishft(pack_tmp, 14)
15566  ipack = ipack + 1
15567  pack_tmp = packed_data(ipack)
15568  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
15569  pack_tmp = ishft(pack_tmp, -14)
15570  idata = idata + 1
15571  data_tmp = iand(pack_tmp, mask_right(nbits))
15572  full_data(idata) = data_tmp
15573  pack_tmp = ishft(pack_tmp, -nbits)
15574  idata = idata + 1
15575  data_tmp = iand(pack_tmp, mask_right(nbits))
15576  full_data(idata) = data_tmp
15577  pack_tmp = ishft(pack_tmp, -nbits)
15578  idata = idata + 1
15579  data_tmp = ishft(pack_tmp, 16)
15580  ipack = ipack + 1
15581  pack_tmp = packed_data(ipack)
15582  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
15583  pack_tmp = ishft(pack_tmp, -16)
15584  idata = idata + 1
15585  data_tmp = iand(pack_tmp, mask_right(nbits))
15586  full_data(idata) = data_tmp
15587  pack_tmp = ishft(pack_tmp, -nbits)
15588  idata = idata + 1
15589  data_tmp = iand(pack_tmp, mask_right(nbits))
15590  full_data(idata) = data_tmp
15591  pack_tmp = ishft(pack_tmp, -nbits)
15592  idata = idata + 1
15593  data_tmp = ishft(pack_tmp, 18)
15594  ipack = ipack + 1
15595  pack_tmp = packed_data(ipack)
15596  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
15597  pack_tmp = ishft(pack_tmp, -18)
15598  idata = idata + 1
15599  data_tmp = iand(pack_tmp, mask_right(nbits))
15600  full_data(idata) = data_tmp
15601  pack_tmp = ishft(pack_tmp, -nbits)
15602  idata = idata + 1
15603  data_tmp = iand(pack_tmp, mask_right(nbits))
15604  full_data(idata) = data_tmp
15605  pack_tmp = ishft(pack_tmp, -nbits)
15606  idata = idata + 1
15607  data_tmp = ishft(pack_tmp, 20)
15608  ipack = ipack + 1
15609  pack_tmp = packed_data(ipack)
15610  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
15611  pack_tmp = ishft(pack_tmp, -20)
15612  idata = idata + 1
15613  data_tmp = iand(pack_tmp, mask_right(nbits))
15614  full_data(idata) = data_tmp
15615  pack_tmp = ishft(pack_tmp, -nbits)
15616  idata = idata + 1
15617  data_tmp = iand(pack_tmp, mask_right(nbits))
15618  full_data(idata) = data_tmp
15619  pack_tmp = ishft(pack_tmp, -nbits)
15620  idata = idata + 1
15621  data_tmp = ishft(pack_tmp, 22)
15622  ipack = ipack + 1
15623  pack_tmp = packed_data(ipack)
15624  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
15625  pack_tmp = ishft(pack_tmp, -22)
15626  idata = idata + 1
15627  data_tmp = iand(pack_tmp, mask_right(nbits))
15628  full_data(idata) = data_tmp
15629  pack_tmp = ishft(pack_tmp, -nbits)
15630  idata = idata + 1
15631  data_tmp = ishft(pack_tmp, 2)
15632  ipack = ipack + 1
15633  pack_tmp = packed_data(ipack)
15634  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
15635  pack_tmp = ishft(pack_tmp, -2)
15636  idata = idata + 1
15637  data_tmp = iand(pack_tmp, mask_right(nbits))
15638  full_data(idata) = data_tmp
15639  pack_tmp = ishft(pack_tmp, -nbits)
15640  idata = idata + 1
15641  data_tmp = iand(pack_tmp, mask_right(nbits))
15642  full_data(idata) = data_tmp
15643  pack_tmp = ishft(pack_tmp, -nbits)
15644  idata = idata + 1
15645  data_tmp = ishft(pack_tmp, 4)
15646  ipack = ipack + 1
15647  pack_tmp = packed_data(ipack)
15648  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
15649  pack_tmp = ishft(pack_tmp, -4)
15650  idata = idata + 1
15651  data_tmp = iand(pack_tmp, mask_right(nbits))
15652  full_data(idata) = data_tmp
15653  pack_tmp = ishft(pack_tmp, -nbits)
15654  idata = idata + 1
15655  data_tmp = iand(pack_tmp, mask_right(nbits))
15656  full_data(idata) = data_tmp
15657  pack_tmp = ishft(pack_tmp, -nbits)
15658  idata = idata + 1
15659  data_tmp = ishft(pack_tmp, 6)
15660  ipack = ipack + 1
15661  pack_tmp = packed_data(ipack)
15662  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
15663  pack_tmp = ishft(pack_tmp, -6)
15664  idata = idata + 1
15665  data_tmp = iand(pack_tmp, mask_right(nbits))
15666  full_data(idata) = data_tmp
15667  pack_tmp = ishft(pack_tmp, -nbits)
15668  idata = idata + 1
15669  data_tmp = iand(pack_tmp, mask_right(nbits))
15670  full_data(idata) = data_tmp
15671  pack_tmp = ishft(pack_tmp, -nbits)
15672  idata = idata + 1
15673  data_tmp = ishft(pack_tmp, 8)
15674  ipack = ipack + 1
15675  pack_tmp = packed_data(ipack)
15676  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
15677  pack_tmp = ishft(pack_tmp, -8)
15678  idata = idata + 1
15679  data_tmp = iand(pack_tmp, mask_right(nbits))
15680  full_data(idata) = data_tmp
15681  pack_tmp = ishft(pack_tmp, -nbits)
15682  idata = idata + 1
15683  data_tmp = iand(pack_tmp, mask_right(nbits))
15684  full_data(idata) = data_tmp
15685  pack_tmp = ishft(pack_tmp, -nbits)
15686  idata = idata + 1
15687  data_tmp = ishft(pack_tmp, 10)
15688  ipack = ipack + 1
15689  pack_tmp = packed_data(ipack)
15690  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
15691  pack_tmp = ishft(pack_tmp, -10)
15692  idata = idata + 1
15693  data_tmp = iand(pack_tmp, mask_right(nbits))
15694  full_data(idata) = data_tmp
15695  pack_tmp = ishft(pack_tmp, -nbits)
15696  idata = idata + 1
15697  data_tmp = iand(pack_tmp, mask_right(nbits))
15698  full_data(idata) = data_tmp
15699  pack_tmp = ishft(pack_tmp, -nbits)
15700  idata = idata + 1
15701  data_tmp = ishft(pack_tmp, 12)
15702  ipack = ipack + 1
15703  pack_tmp = packed_data(ipack)
15704  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
15705  pack_tmp = ishft(pack_tmp, -12)
15706  idata = idata + 1
15707  data_tmp = iand(pack_tmp, mask_right(nbits))
15708  full_data(idata) = data_tmp
15709  pack_tmp = ishft(pack_tmp, -nbits)
15710  idata = idata + 1
15711  data_tmp = iand(pack_tmp, mask_right(nbits))
15712  full_data(idata) = data_tmp
15713  pack_tmp = ishft(pack_tmp, -nbits)
15714  idata = idata + 1
15715  data_tmp = ishft(pack_tmp, 14)
15716  ipack = ipack + 1
15717  pack_tmp = packed_data(ipack)
15718  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
15719  pack_tmp = ishft(pack_tmp, -14)
15720  idata = idata + 1
15721  data_tmp = iand(pack_tmp, mask_right(nbits))
15722  full_data(idata) = data_tmp
15723  pack_tmp = ishft(pack_tmp, -nbits)
15724  idata = idata + 1
15725  data_tmp = iand(pack_tmp, mask_right(nbits))
15726  full_data(idata) = data_tmp
15727  pack_tmp = ishft(pack_tmp, -nbits)
15728  idata = idata + 1
15729  data_tmp = ishft(pack_tmp, 16)
15730  ipack = ipack + 1
15731  pack_tmp = packed_data(ipack)
15732  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
15733  pack_tmp = ishft(pack_tmp, -16)
15734  idata = idata + 1
15735  data_tmp = iand(pack_tmp, mask_right(nbits))
15736  full_data(idata) = data_tmp
15737  pack_tmp = ishft(pack_tmp, -nbits)
15738  idata = idata + 1
15739  data_tmp = iand(pack_tmp, mask_right(nbits))
15740  full_data(idata) = data_tmp
15741  pack_tmp = ishft(pack_tmp, -nbits)
15742  idata = idata + 1
15743  data_tmp = ishft(pack_tmp, 18)
15744  ipack = ipack + 1
15745  pack_tmp = packed_data(ipack)
15746  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
15747  pack_tmp = ishft(pack_tmp, -18)
15748  idata = idata + 1
15749  data_tmp = iand(pack_tmp, mask_right(nbits))
15750  full_data(idata) = data_tmp
15751  pack_tmp = ishft(pack_tmp, -nbits)
15752  idata = idata + 1
15753  data_tmp = iand(pack_tmp, mask_right(nbits))
15754  full_data(idata) = data_tmp
15755  pack_tmp = ishft(pack_tmp, -nbits)
15756  idata = idata + 1
15757  data_tmp = ishft(pack_tmp, 20)
15758  ipack = ipack + 1
15759  pack_tmp = packed_data(ipack)
15760  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
15761  pack_tmp = ishft(pack_tmp, -20)
15762  idata = idata + 1
15763  data_tmp = iand(pack_tmp, mask_right(nbits))
15764  full_data(idata) = data_tmp
15765  pack_tmp = ishft(pack_tmp, -nbits)
15766  idata = idata + 1
15767  data_tmp = iand(pack_tmp, mask_right(nbits))
15768  full_data(idata) = data_tmp
15769  pack_tmp = ishft(pack_tmp, -nbits)
15770  END DO
15771  IF (ndata_rep < ndata) THEN
15772  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
15773  END IF
15774  END SUBROUTINE bits2ints_22
15775 
15776 ! **************************************************************************************************
15777 !> \brief ...
15778 !> \param Ndata ...
15779 !> \param packed_data ...
15780 !> \param full_data ...
15781 ! **************************************************************************************************
15782  SUBROUTINE ints2bits_23(Ndata, packed_data, full_data)
15783  INTEGER, INTENT(IN) :: Ndata
15784  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
15785  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
15786 
15787  INTEGER, PARAMETER :: Nbits = 23
15788 
15789  INTEGER :: idata, ipack, kdata, Ndata_rep
15790  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
15791 
15792  idata = 0
15793  ipack = 0
15794  ndata_rep = (ndata/64)*64
15795  DO kdata = 1, ndata_rep, 64
15796  pack_tmp = 0
15797  idata = idata + 1
15798  data_tmp = full_data(idata)
15799  data_tmp = ishft(data_tmp, 41)
15800  pack_tmp = ior(pack_tmp, data_tmp)
15801  pack_tmp = ishft(pack_tmp, -23)
15802  idata = idata + 1
15803  data_tmp = full_data(idata)
15804  data_tmp = ishft(data_tmp, 41)
15805  pack_tmp = ior(pack_tmp, data_tmp)
15806  pack_tmp = ishft(pack_tmp, -18)
15807  idata = idata + 1
15808  data_tmp = full_data(idata)
15809  data_tmp = ishft(data_tmp, 41)
15810  data_tmp = iand(data_tmp, mask_left(18))
15811  pack_tmp = ior(pack_tmp, data_tmp)
15812  ipack = ipack + 1
15813  packed_data(ipack) = pack_tmp
15814  data_tmp = full_data(idata)
15815  pack_tmp = ishft(data_tmp, 59)
15816  pack_tmp = ishft(pack_tmp, -23)
15817  idata = idata + 1
15818  data_tmp = full_data(idata)
15819  data_tmp = ishft(data_tmp, 41)
15820  pack_tmp = ior(pack_tmp, data_tmp)
15821  pack_tmp = ishft(pack_tmp, -23)
15822  idata = idata + 1
15823  data_tmp = full_data(idata)
15824  data_tmp = ishft(data_tmp, 41)
15825  pack_tmp = ior(pack_tmp, data_tmp)
15826  pack_tmp = ishft(pack_tmp, -13)
15827  idata = idata + 1
15828  data_tmp = full_data(idata)
15829  data_tmp = ishft(data_tmp, 41)
15830  data_tmp = iand(data_tmp, mask_left(13))
15831  pack_tmp = ior(pack_tmp, data_tmp)
15832  ipack = ipack + 1
15833  packed_data(ipack) = pack_tmp
15834  data_tmp = full_data(idata)
15835  pack_tmp = ishft(data_tmp, 54)
15836  pack_tmp = ishft(pack_tmp, -23)
15837  idata = idata + 1
15838  data_tmp = full_data(idata)
15839  data_tmp = ishft(data_tmp, 41)
15840  pack_tmp = ior(pack_tmp, data_tmp)
15841  pack_tmp = ishft(pack_tmp, -23)
15842  idata = idata + 1
15843  data_tmp = full_data(idata)
15844  data_tmp = ishft(data_tmp, 41)
15845  pack_tmp = ior(pack_tmp, data_tmp)
15846  pack_tmp = ishft(pack_tmp, -8)
15847  idata = idata + 1
15848  data_tmp = full_data(idata)
15849  data_tmp = ishft(data_tmp, 41)
15850  data_tmp = iand(data_tmp, mask_left(8))
15851  pack_tmp = ior(pack_tmp, data_tmp)
15852  ipack = ipack + 1
15853  packed_data(ipack) = pack_tmp
15854  data_tmp = full_data(idata)
15855  pack_tmp = ishft(data_tmp, 49)
15856  pack_tmp = ishft(pack_tmp, -23)
15857  idata = idata + 1
15858  data_tmp = full_data(idata)
15859  data_tmp = ishft(data_tmp, 41)
15860  pack_tmp = ior(pack_tmp, data_tmp)
15861  pack_tmp = ishft(pack_tmp, -23)
15862  idata = idata + 1
15863  data_tmp = full_data(idata)
15864  data_tmp = ishft(data_tmp, 41)
15865  pack_tmp = ior(pack_tmp, data_tmp)
15866  pack_tmp = ishft(pack_tmp, -3)
15867  idata = idata + 1
15868  data_tmp = full_data(idata)
15869  data_tmp = ishft(data_tmp, 41)
15870  data_tmp = iand(data_tmp, mask_left(3))
15871  pack_tmp = ior(pack_tmp, data_tmp)
15872  ipack = ipack + 1
15873  packed_data(ipack) = pack_tmp
15874  data_tmp = full_data(idata)
15875  pack_tmp = ishft(data_tmp, 44)
15876  pack_tmp = ishft(pack_tmp, -23)
15877  idata = idata + 1
15878  data_tmp = full_data(idata)
15879  data_tmp = ishft(data_tmp, 41)
15880  pack_tmp = ior(pack_tmp, data_tmp)
15881  pack_tmp = ishft(pack_tmp, -21)
15882  idata = idata + 1
15883  data_tmp = full_data(idata)
15884  data_tmp = ishft(data_tmp, 41)
15885  data_tmp = iand(data_tmp, mask_left(21))
15886  pack_tmp = ior(pack_tmp, data_tmp)
15887  ipack = ipack + 1
15888  packed_data(ipack) = pack_tmp
15889  data_tmp = full_data(idata)
15890  pack_tmp = ishft(data_tmp, 62)
15891  pack_tmp = ishft(pack_tmp, -23)
15892  idata = idata + 1
15893  data_tmp = full_data(idata)
15894  data_tmp = ishft(data_tmp, 41)
15895  pack_tmp = ior(pack_tmp, data_tmp)
15896  pack_tmp = ishft(pack_tmp, -23)
15897  idata = idata + 1
15898  data_tmp = full_data(idata)
15899  data_tmp = ishft(data_tmp, 41)
15900  pack_tmp = ior(pack_tmp, data_tmp)
15901  pack_tmp = ishft(pack_tmp, -16)
15902  idata = idata + 1
15903  data_tmp = full_data(idata)
15904  data_tmp = ishft(data_tmp, 41)
15905  data_tmp = iand(data_tmp, mask_left(16))
15906  pack_tmp = ior(pack_tmp, data_tmp)
15907  ipack = ipack + 1
15908  packed_data(ipack) = pack_tmp
15909  data_tmp = full_data(idata)
15910  pack_tmp = ishft(data_tmp, 57)
15911  pack_tmp = ishft(pack_tmp, -23)
15912  idata = idata + 1
15913  data_tmp = full_data(idata)
15914  data_tmp = ishft(data_tmp, 41)
15915  pack_tmp = ior(pack_tmp, data_tmp)
15916  pack_tmp = ishft(pack_tmp, -23)
15917  idata = idata + 1
15918  data_tmp = full_data(idata)
15919  data_tmp = ishft(data_tmp, 41)
15920  pack_tmp = ior(pack_tmp, data_tmp)
15921  pack_tmp = ishft(pack_tmp, -11)
15922  idata = idata + 1
15923  data_tmp = full_data(idata)
15924  data_tmp = ishft(data_tmp, 41)
15925  data_tmp = iand(data_tmp, mask_left(11))
15926  pack_tmp = ior(pack_tmp, data_tmp)
15927  ipack = ipack + 1
15928  packed_data(ipack) = pack_tmp
15929  data_tmp = full_data(idata)
15930  pack_tmp = ishft(data_tmp, 52)
15931  pack_tmp = ishft(pack_tmp, -23)
15932  idata = idata + 1
15933  data_tmp = full_data(idata)
15934  data_tmp = ishft(data_tmp, 41)
15935  pack_tmp = ior(pack_tmp, data_tmp)
15936  pack_tmp = ishft(pack_tmp, -23)
15937  idata = idata + 1
15938  data_tmp = full_data(idata)
15939  data_tmp = ishft(data_tmp, 41)
15940  pack_tmp = ior(pack_tmp, data_tmp)
15941  pack_tmp = ishft(pack_tmp, -6)
15942  idata = idata + 1
15943  data_tmp = full_data(idata)
15944  data_tmp = ishft(data_tmp, 41)
15945  data_tmp = iand(data_tmp, mask_left(6))
15946  pack_tmp = ior(pack_tmp, data_tmp)
15947  ipack = ipack + 1
15948  packed_data(ipack) = pack_tmp
15949  data_tmp = full_data(idata)
15950  pack_tmp = ishft(data_tmp, 47)
15951  pack_tmp = ishft(pack_tmp, -23)
15952  idata = idata + 1
15953  data_tmp = full_data(idata)
15954  data_tmp = ishft(data_tmp, 41)
15955  pack_tmp = ior(pack_tmp, data_tmp)
15956  pack_tmp = ishft(pack_tmp, -23)
15957  idata = idata + 1
15958  data_tmp = full_data(idata)
15959  data_tmp = ishft(data_tmp, 41)
15960  pack_tmp = ior(pack_tmp, data_tmp)
15961  pack_tmp = ishft(pack_tmp, -1)
15962  idata = idata + 1
15963  data_tmp = full_data(idata)
15964  data_tmp = ishft(data_tmp, 41)
15965  data_tmp = iand(data_tmp, mask_left(1))
15966  pack_tmp = ior(pack_tmp, data_tmp)
15967  ipack = ipack + 1
15968  packed_data(ipack) = pack_tmp
15969  data_tmp = full_data(idata)
15970  pack_tmp = ishft(data_tmp, 42)
15971  pack_tmp = ishft(pack_tmp, -23)
15972  idata = idata + 1
15973  data_tmp = full_data(idata)
15974  data_tmp = ishft(data_tmp, 41)
15975  pack_tmp = ior(pack_tmp, data_tmp)
15976  pack_tmp = ishft(pack_tmp, -19)
15977  idata = idata + 1
15978  data_tmp = full_data(idata)
15979  data_tmp = ishft(data_tmp, 41)
15980  data_tmp = iand(data_tmp, mask_left(19))
15981  pack_tmp = ior(pack_tmp, data_tmp)
15982  ipack = ipack + 1
15983  packed_data(ipack) = pack_tmp
15984  data_tmp = full_data(idata)
15985  pack_tmp = ishft(data_tmp, 60)
15986  pack_tmp = ishft(pack_tmp, -23)
15987  idata = idata + 1
15988  data_tmp = full_data(idata)
15989  data_tmp = ishft(data_tmp, 41)
15990  pack_tmp = ior(pack_tmp, data_tmp)
15991  pack_tmp = ishft(pack_tmp, -23)
15992  idata = idata + 1
15993  data_tmp = full_data(idata)
15994  data_tmp = ishft(data_tmp, 41)
15995  pack_tmp = ior(pack_tmp, data_tmp)
15996  pack_tmp = ishft(pack_tmp, -14)
15997  idata = idata + 1
15998  data_tmp = full_data(idata)
15999  data_tmp = ishft(data_tmp, 41)
16000  data_tmp = iand(data_tmp, mask_left(14))
16001  pack_tmp = ior(pack_tmp, data_tmp)
16002  ipack = ipack + 1
16003  packed_data(ipack) = pack_tmp
16004  data_tmp = full_data(idata)
16005  pack_tmp = ishft(data_tmp, 55)
16006  pack_tmp = ishft(pack_tmp, -23)
16007  idata = idata + 1
16008  data_tmp = full_data(idata)
16009  data_tmp = ishft(data_tmp, 41)
16010  pack_tmp = ior(pack_tmp, data_tmp)
16011  pack_tmp = ishft(pack_tmp, -23)
16012  idata = idata + 1
16013  data_tmp = full_data(idata)
16014  data_tmp = ishft(data_tmp, 41)
16015  pack_tmp = ior(pack_tmp, data_tmp)
16016  pack_tmp = ishft(pack_tmp, -9)
16017  idata = idata + 1
16018  data_tmp = full_data(idata)
16019  data_tmp = ishft(data_tmp, 41)
16020  data_tmp = iand(data_tmp, mask_left(9))
16021  pack_tmp = ior(pack_tmp, data_tmp)
16022  ipack = ipack + 1
16023  packed_data(ipack) = pack_tmp
16024  data_tmp = full_data(idata)
16025  pack_tmp = ishft(data_tmp, 50)
16026  pack_tmp = ishft(pack_tmp, -23)
16027  idata = idata + 1
16028  data_tmp = full_data(idata)
16029  data_tmp = ishft(data_tmp, 41)
16030  pack_tmp = ior(pack_tmp, data_tmp)
16031  pack_tmp = ishft(pack_tmp, -23)
16032  idata = idata + 1
16033  data_tmp = full_data(idata)
16034  data_tmp = ishft(data_tmp, 41)
16035  pack_tmp = ior(pack_tmp, data_tmp)
16036  pack_tmp = ishft(pack_tmp, -4)
16037  idata = idata + 1
16038  data_tmp = full_data(idata)
16039  data_tmp = ishft(data_tmp, 41)
16040  data_tmp = iand(data_tmp, mask_left(4))
16041  pack_tmp = ior(pack_tmp, data_tmp)
16042  ipack = ipack + 1
16043  packed_data(ipack) = pack_tmp
16044  data_tmp = full_data(idata)
16045  pack_tmp = ishft(data_tmp, 45)
16046  pack_tmp = ishft(pack_tmp, -23)
16047  idata = idata + 1
16048  data_tmp = full_data(idata)
16049  data_tmp = ishft(data_tmp, 41)
16050  pack_tmp = ior(pack_tmp, data_tmp)
16051  pack_tmp = ishft(pack_tmp, -22)
16052  idata = idata + 1
16053  data_tmp = full_data(idata)
16054  data_tmp = ishft(data_tmp, 41)
16055  data_tmp = iand(data_tmp, mask_left(22))
16056  pack_tmp = ior(pack_tmp, data_tmp)
16057  ipack = ipack + 1
16058  packed_data(ipack) = pack_tmp
16059  data_tmp = full_data(idata)
16060  pack_tmp = ishft(data_tmp, 63)
16061  pack_tmp = ishft(pack_tmp, -23)
16062  idata = idata + 1
16063  data_tmp = full_data(idata)
16064  data_tmp = ishft(data_tmp, 41)
16065  pack_tmp = ior(pack_tmp, data_tmp)
16066  pack_tmp = ishft(pack_tmp, -23)
16067  idata = idata + 1
16068  data_tmp = full_data(idata)
16069  data_tmp = ishft(data_tmp, 41)
16070  pack_tmp = ior(pack_tmp, data_tmp)
16071  pack_tmp = ishft(pack_tmp, -17)
16072  idata = idata + 1
16073  data_tmp = full_data(idata)
16074  data_tmp = ishft(data_tmp, 41)
16075  data_tmp = iand(data_tmp, mask_left(17))
16076  pack_tmp = ior(pack_tmp, data_tmp)
16077  ipack = ipack + 1
16078  packed_data(ipack) = pack_tmp
16079  data_tmp = full_data(idata)
16080  pack_tmp = ishft(data_tmp, 58)
16081  pack_tmp = ishft(pack_tmp, -23)
16082  idata = idata + 1
16083  data_tmp = full_data(idata)
16084  data_tmp = ishft(data_tmp, 41)
16085  pack_tmp = ior(pack_tmp, data_tmp)
16086  pack_tmp = ishft(pack_tmp, -23)
16087  idata = idata + 1
16088  data_tmp = full_data(idata)
16089  data_tmp = ishft(data_tmp, 41)
16090  pack_tmp = ior(pack_tmp, data_tmp)
16091  pack_tmp = ishft(pack_tmp, -12)
16092  idata = idata + 1
16093  data_tmp = full_data(idata)
16094  data_tmp = ishft(data_tmp, 41)
16095  data_tmp = iand(data_tmp, mask_left(12))
16096  pack_tmp = ior(pack_tmp, data_tmp)
16097  ipack = ipack + 1
16098  packed_data(ipack) = pack_tmp
16099  data_tmp = full_data(idata)
16100  pack_tmp = ishft(data_tmp, 53)
16101  pack_tmp = ishft(pack_tmp, -23)
16102  idata = idata + 1
16103  data_tmp = full_data(idata)
16104  data_tmp = ishft(data_tmp, 41)
16105  pack_tmp = ior(pack_tmp, data_tmp)
16106  pack_tmp = ishft(pack_tmp, -23)
16107  idata = idata + 1
16108  data_tmp = full_data(idata)
16109  data_tmp = ishft(data_tmp, 41)
16110  pack_tmp = ior(pack_tmp, data_tmp)
16111  pack_tmp = ishft(pack_tmp, -7)
16112  idata = idata + 1
16113  data_tmp = full_data(idata)
16114  data_tmp = ishft(data_tmp, 41)
16115  data_tmp = iand(data_tmp, mask_left(7))
16116  pack_tmp = ior(pack_tmp, data_tmp)
16117  ipack = ipack + 1
16118  packed_data(ipack) = pack_tmp
16119  data_tmp = full_data(idata)
16120  pack_tmp = ishft(data_tmp, 48)
16121  pack_tmp = ishft(pack_tmp, -23)
16122  idata = idata + 1
16123  data_tmp = full_data(idata)
16124  data_tmp = ishft(data_tmp, 41)
16125  pack_tmp = ior(pack_tmp, data_tmp)
16126  pack_tmp = ishft(pack_tmp, -23)
16127  idata = idata + 1
16128  data_tmp = full_data(idata)
16129  data_tmp = ishft(data_tmp, 41)
16130  pack_tmp = ior(pack_tmp, data_tmp)
16131  pack_tmp = ishft(pack_tmp, -2)
16132  idata = idata + 1
16133  data_tmp = full_data(idata)
16134  data_tmp = ishft(data_tmp, 41)
16135  data_tmp = iand(data_tmp, mask_left(2))
16136  pack_tmp = ior(pack_tmp, data_tmp)
16137  ipack = ipack + 1
16138  packed_data(ipack) = pack_tmp
16139  data_tmp = full_data(idata)
16140  pack_tmp = ishft(data_tmp, 43)
16141  pack_tmp = ishft(pack_tmp, -23)
16142  idata = idata + 1
16143  data_tmp = full_data(idata)
16144  data_tmp = ishft(data_tmp, 41)
16145  pack_tmp = ior(pack_tmp, data_tmp)
16146  pack_tmp = ishft(pack_tmp, -20)
16147  idata = idata + 1
16148  data_tmp = full_data(idata)
16149  data_tmp = ishft(data_tmp, 41)
16150  data_tmp = iand(data_tmp, mask_left(20))
16151  pack_tmp = ior(pack_tmp, data_tmp)
16152  ipack = ipack + 1
16153  packed_data(ipack) = pack_tmp
16154  data_tmp = full_data(idata)
16155  pack_tmp = ishft(data_tmp, 61)
16156  pack_tmp = ishft(pack_tmp, -23)
16157  idata = idata + 1
16158  data_tmp = full_data(idata)
16159  data_tmp = ishft(data_tmp, 41)
16160  pack_tmp = ior(pack_tmp, data_tmp)
16161  pack_tmp = ishft(pack_tmp, -23)
16162  idata = idata + 1
16163  data_tmp = full_data(idata)
16164  data_tmp = ishft(data_tmp, 41)
16165  pack_tmp = ior(pack_tmp, data_tmp)
16166  pack_tmp = ishft(pack_tmp, -15)
16167  idata = idata + 1
16168  data_tmp = full_data(idata)
16169  data_tmp = ishft(data_tmp, 41)
16170  data_tmp = iand(data_tmp, mask_left(15))
16171  pack_tmp = ior(pack_tmp, data_tmp)
16172  ipack = ipack + 1
16173  packed_data(ipack) = pack_tmp
16174  data_tmp = full_data(idata)
16175  pack_tmp = ishft(data_tmp, 56)
16176  pack_tmp = ishft(pack_tmp, -23)
16177  idata = idata + 1
16178  data_tmp = full_data(idata)
16179  data_tmp = ishft(data_tmp, 41)
16180  pack_tmp = ior(pack_tmp, data_tmp)
16181  pack_tmp = ishft(pack_tmp, -23)
16182  idata = idata + 1
16183  data_tmp = full_data(idata)
16184  data_tmp = ishft(data_tmp, 41)
16185  pack_tmp = ior(pack_tmp, data_tmp)
16186  pack_tmp = ishft(pack_tmp, -10)
16187  idata = idata + 1
16188  data_tmp = full_data(idata)
16189  data_tmp = ishft(data_tmp, 41)
16190  data_tmp = iand(data_tmp, mask_left(10))
16191  pack_tmp = ior(pack_tmp, data_tmp)
16192  ipack = ipack + 1
16193  packed_data(ipack) = pack_tmp
16194  data_tmp = full_data(idata)
16195  pack_tmp = ishft(data_tmp, 51)
16196  pack_tmp = ishft(pack_tmp, -23)
16197  idata = idata + 1
16198  data_tmp = full_data(idata)
16199  data_tmp = ishft(data_tmp, 41)
16200  pack_tmp = ior(pack_tmp, data_tmp)
16201  pack_tmp = ishft(pack_tmp, -23)
16202  idata = idata + 1
16203  data_tmp = full_data(idata)
16204  data_tmp = ishft(data_tmp, 41)
16205  pack_tmp = ior(pack_tmp, data_tmp)
16206  pack_tmp = ishft(pack_tmp, -5)
16207  idata = idata + 1
16208  data_tmp = full_data(idata)
16209  data_tmp = ishft(data_tmp, 41)
16210  data_tmp = iand(data_tmp, mask_left(5))
16211  pack_tmp = ior(pack_tmp, data_tmp)
16212  ipack = ipack + 1
16213  packed_data(ipack) = pack_tmp
16214  data_tmp = full_data(idata)
16215  pack_tmp = ishft(data_tmp, 46)
16216  pack_tmp = ishft(pack_tmp, -23)
16217  idata = idata + 1
16218  data_tmp = full_data(idata)
16219  data_tmp = ishft(data_tmp, 41)
16220  pack_tmp = ior(pack_tmp, data_tmp)
16221  pack_tmp = ishft(pack_tmp, -23)
16222  idata = idata + 1
16223  data_tmp = full_data(idata)
16224  data_tmp = ishft(data_tmp, 41)
16225  pack_tmp = ior(pack_tmp, data_tmp)
16226  pack_tmp = ishft(pack_tmp, 0)
16227  pack_tmp = ishft(pack_tmp, 0)
16228  ipack = ipack + 1
16229  packed_data(ipack) = pack_tmp
16230  END DO
16231  IF (ndata_rep < ndata) THEN
16232  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
16233  END IF
16234  END SUBROUTINE ints2bits_23
16235 
16236 ! **************************************************************************************************
16237 !> \brief ...
16238 !> \param Ndata ...
16239 !> \param packed_data ...
16240 !> \param full_data ...
16241 ! **************************************************************************************************
16242  SUBROUTINE bits2ints_23(Ndata, packed_data, full_data)
16243  INTEGER, INTENT(IN) :: Ndata
16244  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
16245  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
16246 
16247  INTEGER, PARAMETER :: Nbits = 23
16248 
16249  INTEGER :: idata, ipack, kdata, Ndata_rep
16250  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
16251 
16252  ipack = 0
16253  idata = 0
16254  pack_tmp = 0
16255  ndata_rep = (ndata/64)*64
16256  DO kdata = 1, ndata_rep, 64
16257  idata = idata + 1
16258  data_tmp = ishft(pack_tmp, 23)
16259  ipack = ipack + 1
16260  pack_tmp = packed_data(ipack)
16261  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
16262  pack_tmp = ishft(pack_tmp, -23)
16263  idata = idata + 1
16264  data_tmp = iand(pack_tmp, mask_right(nbits))
16265  full_data(idata) = data_tmp
16266  pack_tmp = ishft(pack_tmp, -nbits)
16267  idata = idata + 1
16268  data_tmp = ishft(pack_tmp, 5)
16269  ipack = ipack + 1
16270  pack_tmp = packed_data(ipack)
16271  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
16272  pack_tmp = ishft(pack_tmp, -5)
16273  idata = idata + 1
16274  data_tmp = iand(pack_tmp, mask_right(nbits))
16275  full_data(idata) = data_tmp
16276  pack_tmp = ishft(pack_tmp, -nbits)
16277  idata = idata + 1
16278  data_tmp = iand(pack_tmp, mask_right(nbits))
16279  full_data(idata) = data_tmp
16280  pack_tmp = ishft(pack_tmp, -nbits)
16281  idata = idata + 1
16282  data_tmp = ishft(pack_tmp, 10)
16283  ipack = ipack + 1
16284  pack_tmp = packed_data(ipack)
16285  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
16286  pack_tmp = ishft(pack_tmp, -10)
16287  idata = idata + 1
16288  data_tmp = iand(pack_tmp, mask_right(nbits))
16289  full_data(idata) = data_tmp
16290  pack_tmp = ishft(pack_tmp, -nbits)
16291  idata = idata + 1
16292  data_tmp = iand(pack_tmp, mask_right(nbits))
16293  full_data(idata) = data_tmp
16294  pack_tmp = ishft(pack_tmp, -nbits)
16295  idata = idata + 1
16296  data_tmp = ishft(pack_tmp, 15)
16297  ipack = ipack + 1
16298  pack_tmp = packed_data(ipack)
16299  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
16300  pack_tmp = ishft(pack_tmp, -15)
16301  idata = idata + 1
16302  data_tmp = iand(pack_tmp, mask_right(nbits))
16303  full_data(idata) = data_tmp
16304  pack_tmp = ishft(pack_tmp, -nbits)
16305  idata = idata + 1
16306  data_tmp = iand(pack_tmp, mask_right(nbits))
16307  full_data(idata) = data_tmp
16308  pack_tmp = ishft(pack_tmp, -nbits)
16309  idata = idata + 1
16310  data_tmp = ishft(pack_tmp, 20)
16311  ipack = ipack + 1
16312  pack_tmp = packed_data(ipack)
16313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
16314  pack_tmp = ishft(pack_tmp, -20)
16315  idata = idata + 1
16316  data_tmp = iand(pack_tmp, mask_right(nbits))
16317  full_data(idata) = data_tmp
16318  pack_tmp = ishft(pack_tmp, -nbits)
16319  idata = idata + 1
16320  data_tmp = ishft(pack_tmp, 2)
16321  ipack = ipack + 1
16322  pack_tmp = packed_data(ipack)
16323  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
16324  pack_tmp = ishft(pack_tmp, -2)
16325  idata = idata + 1
16326  data_tmp = iand(pack_tmp, mask_right(nbits))
16327  full_data(idata) = data_tmp
16328  pack_tmp = ishft(pack_tmp, -nbits)
16329  idata = idata + 1
16330  data_tmp = iand(pack_tmp, mask_right(nbits))
16331  full_data(idata) = data_tmp
16332  pack_tmp = ishft(pack_tmp, -nbits)
16333  idata = idata + 1
16334  data_tmp = ishft(pack_tmp, 7)
16335  ipack = ipack + 1
16336  pack_tmp = packed_data(ipack)
16337  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
16338  pack_tmp = ishft(pack_tmp, -7)
16339  idata = idata + 1
16340  data_tmp = iand(pack_tmp, mask_right(nbits))
16341  full_data(idata) = data_tmp
16342  pack_tmp = ishft(pack_tmp, -nbits)
16343  idata = idata + 1
16344  data_tmp = iand(pack_tmp, mask_right(nbits))
16345  full_data(idata) = data_tmp
16346  pack_tmp = ishft(pack_tmp, -nbits)
16347  idata = idata + 1
16348  data_tmp = ishft(pack_tmp, 12)
16349  ipack = ipack + 1
16350  pack_tmp = packed_data(ipack)
16351  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
16352  pack_tmp = ishft(pack_tmp, -12)
16353  idata = idata + 1
16354  data_tmp = iand(pack_tmp, mask_right(nbits))
16355  full_data(idata) = data_tmp
16356  pack_tmp = ishft(pack_tmp, -nbits)
16357  idata = idata + 1
16358  data_tmp = iand(pack_tmp, mask_right(nbits))
16359  full_data(idata) = data_tmp
16360  pack_tmp = ishft(pack_tmp, -nbits)
16361  idata = idata + 1
16362  data_tmp = ishft(pack_tmp, 17)
16363  ipack = ipack + 1
16364  pack_tmp = packed_data(ipack)
16365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
16366  pack_tmp = ishft(pack_tmp, -17)
16367  idata = idata + 1
16368  data_tmp = iand(pack_tmp, mask_right(nbits))
16369  full_data(idata) = data_tmp
16370  pack_tmp = ishft(pack_tmp, -nbits)
16371  idata = idata + 1
16372  data_tmp = iand(pack_tmp, mask_right(nbits))
16373  full_data(idata) = data_tmp
16374  pack_tmp = ishft(pack_tmp, -nbits)
16375  idata = idata + 1
16376  data_tmp = ishft(pack_tmp, 22)
16377  ipack = ipack + 1
16378  pack_tmp = packed_data(ipack)
16379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
16380  pack_tmp = ishft(pack_tmp, -22)
16381  idata = idata + 1
16382  data_tmp = iand(pack_tmp, mask_right(nbits))
16383  full_data(idata) = data_tmp
16384  pack_tmp = ishft(pack_tmp, -nbits)
16385  idata = idata + 1
16386  data_tmp = ishft(pack_tmp, 4)
16387  ipack = ipack + 1
16388  pack_tmp = packed_data(ipack)
16389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
16390  pack_tmp = ishft(pack_tmp, -4)
16391  idata = idata + 1
16392  data_tmp = iand(pack_tmp, mask_right(nbits))
16393  full_data(idata) = data_tmp
16394  pack_tmp = ishft(pack_tmp, -nbits)
16395  idata = idata + 1
16396  data_tmp = iand(pack_tmp, mask_right(nbits))
16397  full_data(idata) = data_tmp
16398  pack_tmp = ishft(pack_tmp, -nbits)
16399  idata = idata + 1
16400  data_tmp = ishft(pack_tmp, 9)
16401  ipack = ipack + 1
16402  pack_tmp = packed_data(ipack)
16403  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
16404  pack_tmp = ishft(pack_tmp, -9)
16405  idata = idata + 1
16406  data_tmp = iand(pack_tmp, mask_right(nbits))
16407  full_data(idata) = data_tmp
16408  pack_tmp = ishft(pack_tmp, -nbits)
16409  idata = idata + 1
16410  data_tmp = iand(pack_tmp, mask_right(nbits))
16411  full_data(idata) = data_tmp
16412  pack_tmp = ishft(pack_tmp, -nbits)
16413  idata = idata + 1
16414  data_tmp = ishft(pack_tmp, 14)
16415  ipack = ipack + 1
16416  pack_tmp = packed_data(ipack)
16417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
16418  pack_tmp = ishft(pack_tmp, -14)
16419  idata = idata + 1
16420  data_tmp = iand(pack_tmp, mask_right(nbits))
16421  full_data(idata) = data_tmp
16422  pack_tmp = ishft(pack_tmp, -nbits)
16423  idata = idata + 1
16424  data_tmp = iand(pack_tmp, mask_right(nbits))
16425  full_data(idata) = data_tmp
16426  pack_tmp = ishft(pack_tmp, -nbits)
16427  idata = idata + 1
16428  data_tmp = ishft(pack_tmp, 19)
16429  ipack = ipack + 1
16430  pack_tmp = packed_data(ipack)
16431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
16432  pack_tmp = ishft(pack_tmp, -19)
16433  idata = idata + 1
16434  data_tmp = iand(pack_tmp, mask_right(nbits))
16435  full_data(idata) = data_tmp
16436  pack_tmp = ishft(pack_tmp, -nbits)
16437  idata = idata + 1
16438  data_tmp = ishft(pack_tmp, 1)
16439  ipack = ipack + 1
16440  pack_tmp = packed_data(ipack)
16441  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
16442  pack_tmp = ishft(pack_tmp, -1)
16443  idata = idata + 1
16444  data_tmp = iand(pack_tmp, mask_right(nbits))
16445  full_data(idata) = data_tmp
16446  pack_tmp = ishft(pack_tmp, -nbits)
16447  idata = idata + 1
16448  data_tmp = iand(pack_tmp, mask_right(nbits))
16449  full_data(idata) = data_tmp
16450  pack_tmp = ishft(pack_tmp, -nbits)
16451  idata = idata + 1
16452  data_tmp = ishft(pack_tmp, 6)
16453  ipack = ipack + 1
16454  pack_tmp = packed_data(ipack)
16455  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
16456  pack_tmp = ishft(pack_tmp, -6)
16457  idata = idata + 1
16458  data_tmp = iand(pack_tmp, mask_right(nbits))
16459  full_data(idata) = data_tmp
16460  pack_tmp = ishft(pack_tmp, -nbits)
16461  idata = idata + 1
16462  data_tmp = iand(pack_tmp, mask_right(nbits))
16463  full_data(idata) = data_tmp
16464  pack_tmp = ishft(pack_tmp, -nbits)
16465  idata = idata + 1
16466  data_tmp = ishft(pack_tmp, 11)
16467  ipack = ipack + 1
16468  pack_tmp = packed_data(ipack)
16469  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
16470  pack_tmp = ishft(pack_tmp, -11)
16471  idata = idata + 1
16472  data_tmp = iand(pack_tmp, mask_right(nbits))
16473  full_data(idata) = data_tmp
16474  pack_tmp = ishft(pack_tmp, -nbits)
16475  idata = idata + 1
16476  data_tmp = iand(pack_tmp, mask_right(nbits))
16477  full_data(idata) = data_tmp
16478  pack_tmp = ishft(pack_tmp, -nbits)
16479  idata = idata + 1
16480  data_tmp = ishft(pack_tmp, 16)
16481  ipack = ipack + 1
16482  pack_tmp = packed_data(ipack)
16483  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
16484  pack_tmp = ishft(pack_tmp, -16)
16485  idata = idata + 1
16486  data_tmp = iand(pack_tmp, mask_right(nbits))
16487  full_data(idata) = data_tmp
16488  pack_tmp = ishft(pack_tmp, -nbits)
16489  idata = idata + 1
16490  data_tmp = iand(pack_tmp, mask_right(nbits))
16491  full_data(idata) = data_tmp
16492  pack_tmp = ishft(pack_tmp, -nbits)
16493  idata = idata + 1
16494  data_tmp = ishft(pack_tmp, 21)
16495  ipack = ipack + 1
16496  pack_tmp = packed_data(ipack)
16497  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
16498  pack_tmp = ishft(pack_tmp, -21)
16499  idata = idata + 1
16500  data_tmp = iand(pack_tmp, mask_right(nbits))
16501  full_data(idata) = data_tmp
16502  pack_tmp = ishft(pack_tmp, -nbits)
16503  idata = idata + 1
16504  data_tmp = ishft(pack_tmp, 3)
16505  ipack = ipack + 1
16506  pack_tmp = packed_data(ipack)
16507  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
16508  pack_tmp = ishft(pack_tmp, -3)
16509  idata = idata + 1
16510  data_tmp = iand(pack_tmp, mask_right(nbits))
16511  full_data(idata) = data_tmp
16512  pack_tmp = ishft(pack_tmp, -nbits)
16513  idata = idata + 1
16514  data_tmp = iand(pack_tmp, mask_right(nbits))
16515  full_data(idata) = data_tmp
16516  pack_tmp = ishft(pack_tmp, -nbits)
16517  idata = idata + 1
16518  data_tmp = ishft(pack_tmp, 8)
16519  ipack = ipack + 1
16520  pack_tmp = packed_data(ipack)
16521  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
16522  pack_tmp = ishft(pack_tmp, -8)
16523  idata = idata + 1
16524  data_tmp = iand(pack_tmp, mask_right(nbits))
16525  full_data(idata) = data_tmp
16526  pack_tmp = ishft(pack_tmp, -nbits)
16527  idata = idata + 1
16528  data_tmp = iand(pack_tmp, mask_right(nbits))
16529  full_data(idata) = data_tmp
16530  pack_tmp = ishft(pack_tmp, -nbits)
16531  idata = idata + 1
16532  data_tmp = ishft(pack_tmp, 13)
16533  ipack = ipack + 1
16534  pack_tmp = packed_data(ipack)
16535  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
16536  pack_tmp = ishft(pack_tmp, -13)
16537  idata = idata + 1
16538  data_tmp = iand(pack_tmp, mask_right(nbits))
16539  full_data(idata) = data_tmp
16540  pack_tmp = ishft(pack_tmp, -nbits)
16541  idata = idata + 1
16542  data_tmp = iand(pack_tmp, mask_right(nbits))
16543  full_data(idata) = data_tmp
16544  pack_tmp = ishft(pack_tmp, -nbits)
16545  idata = idata + 1
16546  data_tmp = ishft(pack_tmp, 18)
16547  ipack = ipack + 1
16548  pack_tmp = packed_data(ipack)
16549  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
16550  pack_tmp = ishft(pack_tmp, -18)
16551  idata = idata + 1
16552  data_tmp = iand(pack_tmp, mask_right(nbits))
16553  full_data(idata) = data_tmp
16554  pack_tmp = ishft(pack_tmp, -nbits)
16555  idata = idata + 1
16556  data_tmp = iand(pack_tmp, mask_right(nbits))
16557  full_data(idata) = data_tmp
16558  pack_tmp = ishft(pack_tmp, -nbits)
16559  END DO
16560  IF (ndata_rep < ndata) THEN
16561  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
16562  END IF
16563  END SUBROUTINE bits2ints_23
16564 
16565 ! **************************************************************************************************
16566 !> \brief ...
16567 !> \param Ndata ...
16568 !> \param packed_data ...
16569 !> \param full_data ...
16570 ! **************************************************************************************************
16571  SUBROUTINE ints2bits_24(Ndata, packed_data, full_data)
16572  INTEGER, INTENT(IN) :: Ndata
16573  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
16574  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
16575 
16576  INTEGER, PARAMETER :: Nbits = 24
16577 
16578  INTEGER :: idata, ipack, kdata, Ndata_rep
16579  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
16580 
16581  idata = 0
16582  ipack = 0
16583  ndata_rep = (ndata/64)*64
16584  DO kdata = 1, ndata_rep, 64
16585  pack_tmp = 0
16586  idata = idata + 1
16587  data_tmp = full_data(idata)
16588  data_tmp = ishft(data_tmp, 40)
16589  pack_tmp = ior(pack_tmp, data_tmp)
16590  pack_tmp = ishft(pack_tmp, -24)
16591  idata = idata + 1
16592  data_tmp = full_data(idata)
16593  data_tmp = ishft(data_tmp, 40)
16594  pack_tmp = ior(pack_tmp, data_tmp)
16595  pack_tmp = ishft(pack_tmp, -16)
16596  idata = idata + 1
16597  data_tmp = full_data(idata)
16598  data_tmp = ishft(data_tmp, 40)
16599  data_tmp = iand(data_tmp, mask_left(16))
16600  pack_tmp = ior(pack_tmp, data_tmp)
16601  ipack = ipack + 1
16602  packed_data(ipack) = pack_tmp
16603  data_tmp = full_data(idata)
16604  pack_tmp = ishft(data_tmp, 56)
16605  pack_tmp = ishft(pack_tmp, -24)
16606  idata = idata + 1
16607  data_tmp = full_data(idata)
16608  data_tmp = ishft(data_tmp, 40)
16609  pack_tmp = ior(pack_tmp, data_tmp)
16610  pack_tmp = ishft(pack_tmp, -24)
16611  idata = idata + 1
16612  data_tmp = full_data(idata)
16613  data_tmp = ishft(data_tmp, 40)
16614  pack_tmp = ior(pack_tmp, data_tmp)
16615  pack_tmp = ishft(pack_tmp, -8)
16616  idata = idata + 1
16617  data_tmp = full_data(idata)
16618  data_tmp = ishft(data_tmp, 40)
16619  data_tmp = iand(data_tmp, mask_left(8))
16620  pack_tmp = ior(pack_tmp, data_tmp)
16621  ipack = ipack + 1
16622  packed_data(ipack) = pack_tmp
16623  data_tmp = full_data(idata)
16624  pack_tmp = ishft(data_tmp, 48)
16625  pack_tmp = ishft(pack_tmp, -24)
16626  idata = idata + 1
16627  data_tmp = full_data(idata)
16628  data_tmp = ishft(data_tmp, 40)
16629  pack_tmp = ior(pack_tmp, data_tmp)
16630  pack_tmp = ishft(pack_tmp, -24)
16631  idata = idata + 1
16632  data_tmp = full_data(idata)
16633  data_tmp = ishft(data_tmp, 40)
16634  pack_tmp = ior(pack_tmp, data_tmp)
16635  pack_tmp = ishft(pack_tmp, 0)
16636  idata = idata + 1
16637  data_tmp = full_data(idata)
16638  data_tmp = ishft(data_tmp, 40)
16639  data_tmp = iand(data_tmp, mask_left(0))
16640  pack_tmp = ior(pack_tmp, data_tmp)
16641  ipack = ipack + 1
16642  packed_data(ipack) = pack_tmp
16643  data_tmp = full_data(idata)
16644  pack_tmp = ishft(data_tmp, 40)
16645  pack_tmp = ishft(pack_tmp, -24)
16646  idata = idata + 1
16647  data_tmp = full_data(idata)
16648  data_tmp = ishft(data_tmp, 40)
16649  pack_tmp = ior(pack_tmp, data_tmp)
16650  pack_tmp = ishft(pack_tmp, -16)
16651  idata = idata + 1
16652  data_tmp = full_data(idata)
16653  data_tmp = ishft(data_tmp, 40)
16654  data_tmp = iand(data_tmp, mask_left(16))
16655  pack_tmp = ior(pack_tmp, data_tmp)
16656  ipack = ipack + 1
16657  packed_data(ipack) = pack_tmp
16658  data_tmp = full_data(idata)
16659  pack_tmp = ishft(data_tmp, 56)
16660  pack_tmp = ishft(pack_tmp, -24)
16661  idata = idata + 1
16662  data_tmp = full_data(idata)
16663  data_tmp = ishft(data_tmp, 40)
16664  pack_tmp = ior(pack_tmp, data_tmp)
16665  pack_tmp = ishft(pack_tmp, -24)
16666  idata = idata + 1
16667  data_tmp = full_data(idata)
16668  data_tmp = ishft(data_tmp, 40)
16669  pack_tmp = ior(pack_tmp, data_tmp)
16670  pack_tmp = ishft(pack_tmp, -8)
16671  idata = idata + 1
16672  data_tmp = full_data(idata)
16673  data_tmp = ishft(data_tmp, 40)
16674  data_tmp = iand(data_tmp, mask_left(8))
16675  pack_tmp = ior(pack_tmp, data_tmp)
16676  ipack = ipack + 1
16677  packed_data(ipack) = pack_tmp
16678  data_tmp = full_data(idata)
16679  pack_tmp = ishft(data_tmp, 48)
16680  pack_tmp = ishft(pack_tmp, -24)
16681  idata = idata + 1
16682  data_tmp = full_data(idata)
16683  data_tmp = ishft(data_tmp, 40)
16684  pack_tmp = ior(pack_tmp, data_tmp)
16685  pack_tmp = ishft(pack_tmp, -24)
16686  idata = idata + 1
16687  data_tmp = full_data(idata)
16688  data_tmp = ishft(data_tmp, 40)
16689  pack_tmp = ior(pack_tmp, data_tmp)
16690  pack_tmp = ishft(pack_tmp, 0)
16691  idata = idata + 1
16692  data_tmp = full_data(idata)
16693  data_tmp = ishft(data_tmp, 40)
16694  data_tmp = iand(data_tmp, mask_left(0))
16695  pack_tmp = ior(pack_tmp, data_tmp)
16696  ipack = ipack + 1
16697  packed_data(ipack) = pack_tmp
16698  data_tmp = full_data(idata)
16699  pack_tmp = ishft(data_tmp, 40)
16700  pack_tmp = ishft(pack_tmp, -24)
16701  idata = idata + 1
16702  data_tmp = full_data(idata)
16703  data_tmp = ishft(data_tmp, 40)
16704  pack_tmp = ior(pack_tmp, data_tmp)
16705  pack_tmp = ishft(pack_tmp, -16)
16706  idata = idata + 1
16707  data_tmp = full_data(idata)
16708  data_tmp = ishft(data_tmp, 40)
16709  data_tmp = iand(data_tmp, mask_left(16))
16710  pack_tmp = ior(pack_tmp, data_tmp)
16711  ipack = ipack + 1
16712  packed_data(ipack) = pack_tmp
16713  data_tmp = full_data(idata)
16714  pack_tmp = ishft(data_tmp, 56)
16715  pack_tmp = ishft(pack_tmp, -24)
16716  idata = idata + 1
16717  data_tmp = full_data(idata)
16718  data_tmp = ishft(data_tmp, 40)
16719  pack_tmp = ior(pack_tmp, data_tmp)
16720  pack_tmp = ishft(pack_tmp, -24)
16721  idata = idata + 1
16722  data_tmp = full_data(idata)
16723  data_tmp = ishft(data_tmp, 40)
16724  pack_tmp = ior(pack_tmp, data_tmp)
16725  pack_tmp = ishft(pack_tmp, -8)
16726  idata = idata + 1
16727  data_tmp = full_data(idata)
16728  data_tmp = ishft(data_tmp, 40)
16729  data_tmp = iand(data_tmp, mask_left(8))
16730  pack_tmp = ior(pack_tmp, data_tmp)
16731  ipack = ipack + 1
16732  packed_data(ipack) = pack_tmp
16733  data_tmp = full_data(idata)
16734  pack_tmp = ishft(data_tmp, 48)
16735  pack_tmp = ishft(pack_tmp, -24)
16736  idata = idata + 1
16737  data_tmp = full_data(idata)
16738  data_tmp = ishft(data_tmp, 40)
16739  pack_tmp = ior(pack_tmp, data_tmp)
16740  pack_tmp = ishft(pack_tmp, -24)
16741  idata = idata + 1
16742  data_tmp = full_data(idata)
16743  data_tmp = ishft(data_tmp, 40)
16744  pack_tmp = ior(pack_tmp, data_tmp)
16745  pack_tmp = ishft(pack_tmp, 0)
16746  idata = idata + 1
16747  data_tmp = full_data(idata)
16748  data_tmp = ishft(data_tmp, 40)
16749  data_tmp = iand(data_tmp, mask_left(0))
16750  pack_tmp = ior(pack_tmp, data_tmp)
16751  ipack = ipack + 1
16752  packed_data(ipack) = pack_tmp
16753  data_tmp = full_data(idata)
16754  pack_tmp = ishft(data_tmp, 40)
16755  pack_tmp = ishft(pack_tmp, -24)
16756  idata = idata + 1
16757  data_tmp = full_data(idata)
16758  data_tmp = ishft(data_tmp, 40)
16759  pack_tmp = ior(pack_tmp, data_tmp)
16760  pack_tmp = ishft(pack_tmp, -16)
16761  idata = idata + 1
16762  data_tmp = full_data(idata)
16763  data_tmp = ishft(data_tmp, 40)
16764  data_tmp = iand(data_tmp, mask_left(16))
16765  pack_tmp = ior(pack_tmp, data_tmp)
16766  ipack = ipack + 1
16767  packed_data(ipack) = pack_tmp
16768  data_tmp = full_data(idata)
16769  pack_tmp = ishft(data_tmp, 56)
16770  pack_tmp = ishft(pack_tmp, -24)
16771  idata = idata + 1
16772  data_tmp = full_data(idata)
16773  data_tmp = ishft(data_tmp, 40)
16774  pack_tmp = ior(pack_tmp, data_tmp)
16775  pack_tmp = ishft(pack_tmp, -24)
16776  idata = idata + 1
16777  data_tmp = full_data(idata)
16778  data_tmp = ishft(data_tmp, 40)
16779  pack_tmp = ior(pack_tmp, data_tmp)
16780  pack_tmp = ishft(pack_tmp, -8)
16781  idata = idata + 1
16782  data_tmp = full_data(idata)
16783  data_tmp = ishft(data_tmp, 40)
16784  data_tmp = iand(data_tmp, mask_left(8))
16785  pack_tmp = ior(pack_tmp, data_tmp)
16786  ipack = ipack + 1
16787  packed_data(ipack) = pack_tmp
16788  data_tmp = full_data(idata)
16789  pack_tmp = ishft(data_tmp, 48)
16790  pack_tmp = ishft(pack_tmp, -24)
16791  idata = idata + 1
16792  data_tmp = full_data(idata)
16793  data_tmp = ishft(data_tmp, 40)
16794  pack_tmp = ior(pack_tmp, data_tmp)
16795  pack_tmp = ishft(pack_tmp, -24)
16796  idata = idata + 1
16797  data_tmp = full_data(idata)
16798  data_tmp = ishft(data_tmp, 40)
16799  pack_tmp = ior(pack_tmp, data_tmp)
16800  pack_tmp = ishft(pack_tmp, 0)
16801  idata = idata + 1
16802  data_tmp = full_data(idata)
16803  data_tmp = ishft(data_tmp, 40)
16804  data_tmp = iand(data_tmp, mask_left(0))
16805  pack_tmp = ior(pack_tmp, data_tmp)
16806  ipack = ipack + 1
16807  packed_data(ipack) = pack_tmp
16808  data_tmp = full_data(idata)
16809  pack_tmp = ishft(data_tmp, 40)
16810  pack_tmp = ishft(pack_tmp, -24)
16811  idata = idata + 1
16812  data_tmp = full_data(idata)
16813  data_tmp = ishft(data_tmp, 40)
16814  pack_tmp = ior(pack_tmp, data_tmp)
16815  pack_tmp = ishft(pack_tmp, -16)
16816  idata = idata + 1
16817  data_tmp = full_data(idata)
16818  data_tmp = ishft(data_tmp, 40)
16819  data_tmp = iand(data_tmp, mask_left(16))
16820  pack_tmp = ior(pack_tmp, data_tmp)
16821  ipack = ipack + 1
16822  packed_data(ipack) = pack_tmp
16823  data_tmp = full_data(idata)
16824  pack_tmp = ishft(data_tmp, 56)
16825  pack_tmp = ishft(pack_tmp, -24)
16826  idata = idata + 1
16827  data_tmp = full_data(idata)
16828  data_tmp = ishft(data_tmp, 40)
16829  pack_tmp = ior(pack_tmp, data_tmp)
16830  pack_tmp = ishft(pack_tmp, -24)
16831  idata = idata + 1
16832  data_tmp = full_data(idata)
16833  data_tmp = ishft(data_tmp, 40)
16834  pack_tmp = ior(pack_tmp, data_tmp)
16835  pack_tmp = ishft(pack_tmp, -8)
16836  idata = idata + 1
16837  data_tmp = full_data(idata)
16838  data_tmp = ishft(data_tmp, 40)
16839  data_tmp = iand(data_tmp, mask_left(8))
16840  pack_tmp = ior(pack_tmp, data_tmp)
16841  ipack = ipack + 1
16842  packed_data(ipack) = pack_tmp
16843  data_tmp = full_data(idata)
16844  pack_tmp = ishft(data_tmp, 48)
16845  pack_tmp = ishft(pack_tmp, -24)
16846  idata = idata + 1
16847  data_tmp = full_data(idata)
16848  data_tmp = ishft(data_tmp, 40)
16849  pack_tmp = ior(pack_tmp, data_tmp)
16850  pack_tmp = ishft(pack_tmp, -24)
16851  idata = idata + 1
16852  data_tmp = full_data(idata)
16853  data_tmp = ishft(data_tmp, 40)
16854  pack_tmp = ior(pack_tmp, data_tmp)
16855  pack_tmp = ishft(pack_tmp, 0)
16856  idata = idata + 1
16857  data_tmp = full_data(idata)
16858  data_tmp = ishft(data_tmp, 40)
16859  data_tmp = iand(data_tmp, mask_left(0))
16860  pack_tmp = ior(pack_tmp, data_tmp)
16861  ipack = ipack + 1
16862  packed_data(ipack) = pack_tmp
16863  data_tmp = full_data(idata)
16864  pack_tmp = ishft(data_tmp, 40)
16865  pack_tmp = ishft(pack_tmp, -24)
16866  idata = idata + 1
16867  data_tmp = full_data(idata)
16868  data_tmp = ishft(data_tmp, 40)
16869  pack_tmp = ior(pack_tmp, data_tmp)
16870  pack_tmp = ishft(pack_tmp, -16)
16871  idata = idata + 1
16872  data_tmp = full_data(idata)
16873  data_tmp = ishft(data_tmp, 40)
16874  data_tmp = iand(data_tmp, mask_left(16))
16875  pack_tmp = ior(pack_tmp, data_tmp)
16876  ipack = ipack + 1
16877  packed_data(ipack) = pack_tmp
16878  data_tmp = full_data(idata)
16879  pack_tmp = ishft(data_tmp, 56)
16880  pack_tmp = ishft(pack_tmp, -24)
16881  idata = idata + 1
16882  data_tmp = full_data(idata)
16883  data_tmp = ishft(data_tmp, 40)
16884  pack_tmp = ior(pack_tmp, data_tmp)
16885  pack_tmp = ishft(pack_tmp, -24)
16886  idata = idata + 1
16887  data_tmp = full_data(idata)
16888  data_tmp = ishft(data_tmp, 40)
16889  pack_tmp = ior(pack_tmp, data_tmp)
16890  pack_tmp = ishft(pack_tmp, -8)
16891  idata = idata + 1
16892  data_tmp = full_data(idata)
16893  data_tmp = ishft(data_tmp, 40)
16894  data_tmp = iand(data_tmp, mask_left(8))
16895  pack_tmp = ior(pack_tmp, data_tmp)
16896  ipack = ipack + 1
16897  packed_data(ipack) = pack_tmp
16898  data_tmp = full_data(idata)
16899  pack_tmp = ishft(data_tmp, 48)
16900  pack_tmp = ishft(pack_tmp, -24)
16901  idata = idata + 1
16902  data_tmp = full_data(idata)
16903  data_tmp = ishft(data_tmp, 40)
16904  pack_tmp = ior(pack_tmp, data_tmp)
16905  pack_tmp = ishft(pack_tmp, -24)
16906  idata = idata + 1
16907  data_tmp = full_data(idata)
16908  data_tmp = ishft(data_tmp, 40)
16909  pack_tmp = ior(pack_tmp, data_tmp)
16910  pack_tmp = ishft(pack_tmp, 0)
16911  idata = idata + 1
16912  data_tmp = full_data(idata)
16913  data_tmp = ishft(data_tmp, 40)
16914  data_tmp = iand(data_tmp, mask_left(0))
16915  pack_tmp = ior(pack_tmp, data_tmp)
16916  ipack = ipack + 1
16917  packed_data(ipack) = pack_tmp
16918  data_tmp = full_data(idata)
16919  pack_tmp = ishft(data_tmp, 40)
16920  pack_tmp = ishft(pack_tmp, -24)
16921  idata = idata + 1
16922  data_tmp = full_data(idata)
16923  data_tmp = ishft(data_tmp, 40)
16924  pack_tmp = ior(pack_tmp, data_tmp)
16925  pack_tmp = ishft(pack_tmp, -16)
16926  idata = idata + 1
16927  data_tmp = full_data(idata)
16928  data_tmp = ishft(data_tmp, 40)
16929  data_tmp = iand(data_tmp, mask_left(16))
16930  pack_tmp = ior(pack_tmp, data_tmp)
16931  ipack = ipack + 1
16932  packed_data(ipack) = pack_tmp
16933  data_tmp = full_data(idata)
16934  pack_tmp = ishft(data_tmp, 56)
16935  pack_tmp = ishft(pack_tmp, -24)
16936  idata = idata + 1
16937  data_tmp = full_data(idata)
16938  data_tmp = ishft(data_tmp, 40)
16939  pack_tmp = ior(pack_tmp, data_tmp)
16940  pack_tmp = ishft(pack_tmp, -24)
16941  idata = idata + 1
16942  data_tmp = full_data(idata)
16943  data_tmp = ishft(data_tmp, 40)
16944  pack_tmp = ior(pack_tmp, data_tmp)
16945  pack_tmp = ishft(pack_tmp, -8)
16946  idata = idata + 1
16947  data_tmp = full_data(idata)
16948  data_tmp = ishft(data_tmp, 40)
16949  data_tmp = iand(data_tmp, mask_left(8))
16950  pack_tmp = ior(pack_tmp, data_tmp)
16951  ipack = ipack + 1
16952  packed_data(ipack) = pack_tmp
16953  data_tmp = full_data(idata)
16954  pack_tmp = ishft(data_tmp, 48)
16955  pack_tmp = ishft(pack_tmp, -24)
16956  idata = idata + 1
16957  data_tmp = full_data(idata)
16958  data_tmp = ishft(data_tmp, 40)
16959  pack_tmp = ior(pack_tmp, data_tmp)
16960  pack_tmp = ishft(pack_tmp, -24)
16961  idata = idata + 1
16962  data_tmp = full_data(idata)
16963  data_tmp = ishft(data_tmp, 40)
16964  pack_tmp = ior(pack_tmp, data_tmp)
16965  pack_tmp = ishft(pack_tmp, 0)
16966  idata = idata + 1
16967  data_tmp = full_data(idata)
16968  data_tmp = ishft(data_tmp, 40)
16969  data_tmp = iand(data_tmp, mask_left(0))
16970  pack_tmp = ior(pack_tmp, data_tmp)
16971  ipack = ipack + 1
16972  packed_data(ipack) = pack_tmp
16973  data_tmp = full_data(idata)
16974  pack_tmp = ishft(data_tmp, 40)
16975  pack_tmp = ishft(pack_tmp, -24)
16976  idata = idata + 1
16977  data_tmp = full_data(idata)
16978  data_tmp = ishft(data_tmp, 40)
16979  pack_tmp = ior(pack_tmp, data_tmp)
16980  pack_tmp = ishft(pack_tmp, -16)
16981  idata = idata + 1
16982  data_tmp = full_data(idata)
16983  data_tmp = ishft(data_tmp, 40)
16984  data_tmp = iand(data_tmp, mask_left(16))
16985  pack_tmp = ior(pack_tmp, data_tmp)
16986  ipack = ipack + 1
16987  packed_data(ipack) = pack_tmp
16988  data_tmp = full_data(idata)
16989  pack_tmp = ishft(data_tmp, 56)
16990  pack_tmp = ishft(pack_tmp, -24)
16991  idata = idata + 1
16992  data_tmp = full_data(idata)
16993  data_tmp = ishft(data_tmp, 40)
16994  pack_tmp = ior(pack_tmp, data_tmp)
16995  pack_tmp = ishft(pack_tmp, -24)
16996  idata = idata + 1
16997  data_tmp = full_data(idata)
16998  data_tmp = ishft(data_tmp, 40)
16999  pack_tmp = ior(pack_tmp, data_tmp)
17000  pack_tmp = ishft(pack_tmp, -8)
17001  idata = idata + 1
17002  data_tmp = full_data(idata)
17003  data_tmp = ishft(data_tmp, 40)
17004  data_tmp = iand(data_tmp, mask_left(8))
17005  pack_tmp = ior(pack_tmp, data_tmp)
17006  ipack = ipack + 1
17007  packed_data(ipack) = pack_tmp
17008  data_tmp = full_data(idata)
17009  pack_tmp = ishft(data_tmp, 48)
17010  pack_tmp = ishft(pack_tmp, -24)
17011  idata = idata + 1
17012  data_tmp = full_data(idata)
17013  data_tmp = ishft(data_tmp, 40)
17014  pack_tmp = ior(pack_tmp, data_tmp)
17015  pack_tmp = ishft(pack_tmp, -24)
17016  idata = idata + 1
17017  data_tmp = full_data(idata)
17018  data_tmp = ishft(data_tmp, 40)
17019  pack_tmp = ior(pack_tmp, data_tmp)
17020  pack_tmp = ishft(pack_tmp, 0)
17021  pack_tmp = ishft(pack_tmp, 0)
17022  ipack = ipack + 1
17023  packed_data(ipack) = pack_tmp
17024  END DO
17025  IF (ndata_rep < ndata) THEN
17026  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
17027  END IF
17028  END SUBROUTINE ints2bits_24
17029 
17030 ! **************************************************************************************************
17031 !> \brief ...
17032 !> \param Ndata ...
17033 !> \param packed_data ...
17034 !> \param full_data ...
17035 ! **************************************************************************************************
17036  SUBROUTINE bits2ints_24(Ndata, packed_data, full_data)
17037  INTEGER, INTENT(IN) :: Ndata
17038  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
17039  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
17040 
17041  INTEGER, PARAMETER :: Nbits = 24
17042 
17043  INTEGER :: idata, ipack, kdata, Ndata_rep
17044  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
17045 
17046  ipack = 0
17047  idata = 0
17048  pack_tmp = 0
17049  ndata_rep = (ndata/64)*64
17050  DO kdata = 1, ndata_rep, 64
17051  idata = idata + 1
17052  data_tmp = ishft(pack_tmp, 24)
17053  ipack = ipack + 1
17054  pack_tmp = packed_data(ipack)
17055  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17056  pack_tmp = ishft(pack_tmp, -24)
17057  idata = idata + 1
17058  data_tmp = iand(pack_tmp, mask_right(nbits))
17059  full_data(idata) = data_tmp
17060  pack_tmp = ishft(pack_tmp, -nbits)
17061  idata = idata + 1
17062  data_tmp = ishft(pack_tmp, 8)
17063  ipack = ipack + 1
17064  pack_tmp = packed_data(ipack)
17065  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17066  pack_tmp = ishft(pack_tmp, -8)
17067  idata = idata + 1
17068  data_tmp = iand(pack_tmp, mask_right(nbits))
17069  full_data(idata) = data_tmp
17070  pack_tmp = ishft(pack_tmp, -nbits)
17071  idata = idata + 1
17072  data_tmp = iand(pack_tmp, mask_right(nbits))
17073  full_data(idata) = data_tmp
17074  pack_tmp = ishft(pack_tmp, -nbits)
17075  idata = idata + 1
17076  data_tmp = ishft(pack_tmp, 16)
17077  ipack = ipack + 1
17078  pack_tmp = packed_data(ipack)
17079  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17080  pack_tmp = ishft(pack_tmp, -16)
17081  idata = idata + 1
17082  data_tmp = iand(pack_tmp, mask_right(nbits))
17083  full_data(idata) = data_tmp
17084  pack_tmp = ishft(pack_tmp, -nbits)
17085  idata = idata + 1
17086  data_tmp = iand(pack_tmp, mask_right(nbits))
17087  full_data(idata) = data_tmp
17088  pack_tmp = ishft(pack_tmp, -nbits)
17089  idata = idata + 1
17090  data_tmp = ishft(pack_tmp, 24)
17091  ipack = ipack + 1
17092  pack_tmp = packed_data(ipack)
17093  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17094  pack_tmp = ishft(pack_tmp, -24)
17095  idata = idata + 1
17096  data_tmp = iand(pack_tmp, mask_right(nbits))
17097  full_data(idata) = data_tmp
17098  pack_tmp = ishft(pack_tmp, -nbits)
17099  idata = idata + 1
17100  data_tmp = ishft(pack_tmp, 8)
17101  ipack = ipack + 1
17102  pack_tmp = packed_data(ipack)
17103  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17104  pack_tmp = ishft(pack_tmp, -8)
17105  idata = idata + 1
17106  data_tmp = iand(pack_tmp, mask_right(nbits))
17107  full_data(idata) = data_tmp
17108  pack_tmp = ishft(pack_tmp, -nbits)
17109  idata = idata + 1
17110  data_tmp = iand(pack_tmp, mask_right(nbits))
17111  full_data(idata) = data_tmp
17112  pack_tmp = ishft(pack_tmp, -nbits)
17113  idata = idata + 1
17114  data_tmp = ishft(pack_tmp, 16)
17115  ipack = ipack + 1
17116  pack_tmp = packed_data(ipack)
17117  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17118  pack_tmp = ishft(pack_tmp, -16)
17119  idata = idata + 1
17120  data_tmp = iand(pack_tmp, mask_right(nbits))
17121  full_data(idata) = data_tmp
17122  pack_tmp = ishft(pack_tmp, -nbits)
17123  idata = idata + 1
17124  data_tmp = iand(pack_tmp, mask_right(nbits))
17125  full_data(idata) = data_tmp
17126  pack_tmp = ishft(pack_tmp, -nbits)
17127  idata = idata + 1
17128  data_tmp = ishft(pack_tmp, 24)
17129  ipack = ipack + 1
17130  pack_tmp = packed_data(ipack)
17131  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17132  pack_tmp = ishft(pack_tmp, -24)
17133  idata = idata + 1
17134  data_tmp = iand(pack_tmp, mask_right(nbits))
17135  full_data(idata) = data_tmp
17136  pack_tmp = ishft(pack_tmp, -nbits)
17137  idata = idata + 1
17138  data_tmp = ishft(pack_tmp, 8)
17139  ipack = ipack + 1
17140  pack_tmp = packed_data(ipack)
17141  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17142  pack_tmp = ishft(pack_tmp, -8)
17143  idata = idata + 1
17144  data_tmp = iand(pack_tmp, mask_right(nbits))
17145  full_data(idata) = data_tmp
17146  pack_tmp = ishft(pack_tmp, -nbits)
17147  idata = idata + 1
17148  data_tmp = iand(pack_tmp, mask_right(nbits))
17149  full_data(idata) = data_tmp
17150  pack_tmp = ishft(pack_tmp, -nbits)
17151  idata = idata + 1
17152  data_tmp = ishft(pack_tmp, 16)
17153  ipack = ipack + 1
17154  pack_tmp = packed_data(ipack)
17155  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17156  pack_tmp = ishft(pack_tmp, -16)
17157  idata = idata + 1
17158  data_tmp = iand(pack_tmp, mask_right(nbits))
17159  full_data(idata) = data_tmp
17160  pack_tmp = ishft(pack_tmp, -nbits)
17161  idata = idata + 1
17162  data_tmp = iand(pack_tmp, mask_right(nbits))
17163  full_data(idata) = data_tmp
17164  pack_tmp = ishft(pack_tmp, -nbits)
17165  idata = idata + 1
17166  data_tmp = ishft(pack_tmp, 24)
17167  ipack = ipack + 1
17168  pack_tmp = packed_data(ipack)
17169  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17170  pack_tmp = ishft(pack_tmp, -24)
17171  idata = idata + 1
17172  data_tmp = iand(pack_tmp, mask_right(nbits))
17173  full_data(idata) = data_tmp
17174  pack_tmp = ishft(pack_tmp, -nbits)
17175  idata = idata + 1
17176  data_tmp = ishft(pack_tmp, 8)
17177  ipack = ipack + 1
17178  pack_tmp = packed_data(ipack)
17179  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17180  pack_tmp = ishft(pack_tmp, -8)
17181  idata = idata + 1
17182  data_tmp = iand(pack_tmp, mask_right(nbits))
17183  full_data(idata) = data_tmp
17184  pack_tmp = ishft(pack_tmp, -nbits)
17185  idata = idata + 1
17186  data_tmp = iand(pack_tmp, mask_right(nbits))
17187  full_data(idata) = data_tmp
17188  pack_tmp = ishft(pack_tmp, -nbits)
17189  idata = idata + 1
17190  data_tmp = ishft(pack_tmp, 16)
17191  ipack = ipack + 1
17192  pack_tmp = packed_data(ipack)
17193  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17194  pack_tmp = ishft(pack_tmp, -16)
17195  idata = idata + 1
17196  data_tmp = iand(pack_tmp, mask_right(nbits))
17197  full_data(idata) = data_tmp
17198  pack_tmp = ishft(pack_tmp, -nbits)
17199  idata = idata + 1
17200  data_tmp = iand(pack_tmp, mask_right(nbits))
17201  full_data(idata) = data_tmp
17202  pack_tmp = ishft(pack_tmp, -nbits)
17203  idata = idata + 1
17204  data_tmp = ishft(pack_tmp, 24)
17205  ipack = ipack + 1
17206  pack_tmp = packed_data(ipack)
17207  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17208  pack_tmp = ishft(pack_tmp, -24)
17209  idata = idata + 1
17210  data_tmp = iand(pack_tmp, mask_right(nbits))
17211  full_data(idata) = data_tmp
17212  pack_tmp = ishft(pack_tmp, -nbits)
17213  idata = idata + 1
17214  data_tmp = ishft(pack_tmp, 8)
17215  ipack = ipack + 1
17216  pack_tmp = packed_data(ipack)
17217  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17218  pack_tmp = ishft(pack_tmp, -8)
17219  idata = idata + 1
17220  data_tmp = iand(pack_tmp, mask_right(nbits))
17221  full_data(idata) = data_tmp
17222  pack_tmp = ishft(pack_tmp, -nbits)
17223  idata = idata + 1
17224  data_tmp = iand(pack_tmp, mask_right(nbits))
17225  full_data(idata) = data_tmp
17226  pack_tmp = ishft(pack_tmp, -nbits)
17227  idata = idata + 1
17228  data_tmp = ishft(pack_tmp, 16)
17229  ipack = ipack + 1
17230  pack_tmp = packed_data(ipack)
17231  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17232  pack_tmp = ishft(pack_tmp, -16)
17233  idata = idata + 1
17234  data_tmp = iand(pack_tmp, mask_right(nbits))
17235  full_data(idata) = data_tmp
17236  pack_tmp = ishft(pack_tmp, -nbits)
17237  idata = idata + 1
17238  data_tmp = iand(pack_tmp, mask_right(nbits))
17239  full_data(idata) = data_tmp
17240  pack_tmp = ishft(pack_tmp, -nbits)
17241  idata = idata + 1
17242  data_tmp = ishft(pack_tmp, 24)
17243  ipack = ipack + 1
17244  pack_tmp = packed_data(ipack)
17245  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17246  pack_tmp = ishft(pack_tmp, -24)
17247  idata = idata + 1
17248  data_tmp = iand(pack_tmp, mask_right(nbits))
17249  full_data(idata) = data_tmp
17250  pack_tmp = ishft(pack_tmp, -nbits)
17251  idata = idata + 1
17252  data_tmp = ishft(pack_tmp, 8)
17253  ipack = ipack + 1
17254  pack_tmp = packed_data(ipack)
17255  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17256  pack_tmp = ishft(pack_tmp, -8)
17257  idata = idata + 1
17258  data_tmp = iand(pack_tmp, mask_right(nbits))
17259  full_data(idata) = data_tmp
17260  pack_tmp = ishft(pack_tmp, -nbits)
17261  idata = idata + 1
17262  data_tmp = iand(pack_tmp, mask_right(nbits))
17263  full_data(idata) = data_tmp
17264  pack_tmp = ishft(pack_tmp, -nbits)
17265  idata = idata + 1
17266  data_tmp = ishft(pack_tmp, 16)
17267  ipack = ipack + 1
17268  pack_tmp = packed_data(ipack)
17269  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17270  pack_tmp = ishft(pack_tmp, -16)
17271  idata = idata + 1
17272  data_tmp = iand(pack_tmp, mask_right(nbits))
17273  full_data(idata) = data_tmp
17274  pack_tmp = ishft(pack_tmp, -nbits)
17275  idata = idata + 1
17276  data_tmp = iand(pack_tmp, mask_right(nbits))
17277  full_data(idata) = data_tmp
17278  pack_tmp = ishft(pack_tmp, -nbits)
17279  idata = idata + 1
17280  data_tmp = ishft(pack_tmp, 24)
17281  ipack = ipack + 1
17282  pack_tmp = packed_data(ipack)
17283  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17284  pack_tmp = ishft(pack_tmp, -24)
17285  idata = idata + 1
17286  data_tmp = iand(pack_tmp, mask_right(nbits))
17287  full_data(idata) = data_tmp
17288  pack_tmp = ishft(pack_tmp, -nbits)
17289  idata = idata + 1
17290  data_tmp = ishft(pack_tmp, 8)
17291  ipack = ipack + 1
17292  pack_tmp = packed_data(ipack)
17293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17294  pack_tmp = ishft(pack_tmp, -8)
17295  idata = idata + 1
17296  data_tmp = iand(pack_tmp, mask_right(nbits))
17297  full_data(idata) = data_tmp
17298  pack_tmp = ishft(pack_tmp, -nbits)
17299  idata = idata + 1
17300  data_tmp = iand(pack_tmp, mask_right(nbits))
17301  full_data(idata) = data_tmp
17302  pack_tmp = ishft(pack_tmp, -nbits)
17303  idata = idata + 1
17304  data_tmp = ishft(pack_tmp, 16)
17305  ipack = ipack + 1
17306  pack_tmp = packed_data(ipack)
17307  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17308  pack_tmp = ishft(pack_tmp, -16)
17309  idata = idata + 1
17310  data_tmp = iand(pack_tmp, mask_right(nbits))
17311  full_data(idata) = data_tmp
17312  pack_tmp = ishft(pack_tmp, -nbits)
17313  idata = idata + 1
17314  data_tmp = iand(pack_tmp, mask_right(nbits))
17315  full_data(idata) = data_tmp
17316  pack_tmp = ishft(pack_tmp, -nbits)
17317  idata = idata + 1
17318  data_tmp = ishft(pack_tmp, 24)
17319  ipack = ipack + 1
17320  pack_tmp = packed_data(ipack)
17321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17322  pack_tmp = ishft(pack_tmp, -24)
17323  idata = idata + 1
17324  data_tmp = iand(pack_tmp, mask_right(nbits))
17325  full_data(idata) = data_tmp
17326  pack_tmp = ishft(pack_tmp, -nbits)
17327  idata = idata + 1
17328  data_tmp = ishft(pack_tmp, 8)
17329  ipack = ipack + 1
17330  pack_tmp = packed_data(ipack)
17331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17332  pack_tmp = ishft(pack_tmp, -8)
17333  idata = idata + 1
17334  data_tmp = iand(pack_tmp, mask_right(nbits))
17335  full_data(idata) = data_tmp
17336  pack_tmp = ishft(pack_tmp, -nbits)
17337  idata = idata + 1
17338  data_tmp = iand(pack_tmp, mask_right(nbits))
17339  full_data(idata) = data_tmp
17340  pack_tmp = ishft(pack_tmp, -nbits)
17341  idata = idata + 1
17342  data_tmp = ishft(pack_tmp, 16)
17343  ipack = ipack + 1
17344  pack_tmp = packed_data(ipack)
17345  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17346  pack_tmp = ishft(pack_tmp, -16)
17347  idata = idata + 1
17348  data_tmp = iand(pack_tmp, mask_right(nbits))
17349  full_data(idata) = data_tmp
17350  pack_tmp = ishft(pack_tmp, -nbits)
17351  idata = idata + 1
17352  data_tmp = iand(pack_tmp, mask_right(nbits))
17353  full_data(idata) = data_tmp
17354  pack_tmp = ishft(pack_tmp, -nbits)
17355  END DO
17356  IF (ndata_rep < ndata) THEN
17357  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
17358  END IF
17359  END SUBROUTINE bits2ints_24
17360 
17361 ! **************************************************************************************************
17362 !> \brief ...
17363 !> \param Ndata ...
17364 !> \param packed_data ...
17365 !> \param full_data ...
17366 ! **************************************************************************************************
17367  SUBROUTINE ints2bits_25(Ndata, packed_data, full_data)
17368  INTEGER, INTENT(IN) :: Ndata
17369  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
17370  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
17371 
17372  INTEGER, PARAMETER :: Nbits = 25
17373 
17374  INTEGER :: idata, ipack, kdata, Ndata_rep
17375  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
17376 
17377  idata = 0
17378  ipack = 0
17379  ndata_rep = (ndata/64)*64
17380  DO kdata = 1, ndata_rep, 64
17381  pack_tmp = 0
17382  idata = idata + 1
17383  data_tmp = full_data(idata)
17384  data_tmp = ishft(data_tmp, 39)
17385  pack_tmp = ior(pack_tmp, data_tmp)
17386  pack_tmp = ishft(pack_tmp, -25)
17387  idata = idata + 1
17388  data_tmp = full_data(idata)
17389  data_tmp = ishft(data_tmp, 39)
17390  pack_tmp = ior(pack_tmp, data_tmp)
17391  pack_tmp = ishft(pack_tmp, -14)
17392  idata = idata + 1
17393  data_tmp = full_data(idata)
17394  data_tmp = ishft(data_tmp, 39)
17395  data_tmp = iand(data_tmp, mask_left(14))
17396  pack_tmp = ior(pack_tmp, data_tmp)
17397  ipack = ipack + 1
17398  packed_data(ipack) = pack_tmp
17399  data_tmp = full_data(idata)
17400  pack_tmp = ishft(data_tmp, 53)
17401  pack_tmp = ishft(pack_tmp, -25)
17402  idata = idata + 1
17403  data_tmp = full_data(idata)
17404  data_tmp = ishft(data_tmp, 39)
17405  pack_tmp = ior(pack_tmp, data_tmp)
17406  pack_tmp = ishft(pack_tmp, -25)
17407  idata = idata + 1
17408  data_tmp = full_data(idata)
17409  data_tmp = ishft(data_tmp, 39)
17410  pack_tmp = ior(pack_tmp, data_tmp)
17411  pack_tmp = ishft(pack_tmp, -3)
17412  idata = idata + 1
17413  data_tmp = full_data(idata)
17414  data_tmp = ishft(data_tmp, 39)
17415  data_tmp = iand(data_tmp, mask_left(3))
17416  pack_tmp = ior(pack_tmp, data_tmp)
17417  ipack = ipack + 1
17418  packed_data(ipack) = pack_tmp
17419  data_tmp = full_data(idata)
17420  pack_tmp = ishft(data_tmp, 42)
17421  pack_tmp = ishft(pack_tmp, -25)
17422  idata = idata + 1
17423  data_tmp = full_data(idata)
17424  data_tmp = ishft(data_tmp, 39)
17425  pack_tmp = ior(pack_tmp, data_tmp)
17426  pack_tmp = ishft(pack_tmp, -17)
17427  idata = idata + 1
17428  data_tmp = full_data(idata)
17429  data_tmp = ishft(data_tmp, 39)
17430  data_tmp = iand(data_tmp, mask_left(17))
17431  pack_tmp = ior(pack_tmp, data_tmp)
17432  ipack = ipack + 1
17433  packed_data(ipack) = pack_tmp
17434  data_tmp = full_data(idata)
17435  pack_tmp = ishft(data_tmp, 56)
17436  pack_tmp = ishft(pack_tmp, -25)
17437  idata = idata + 1
17438  data_tmp = full_data(idata)
17439  data_tmp = ishft(data_tmp, 39)
17440  pack_tmp = ior(pack_tmp, data_tmp)
17441  pack_tmp = ishft(pack_tmp, -25)
17442  idata = idata + 1
17443  data_tmp = full_data(idata)
17444  data_tmp = ishft(data_tmp, 39)
17445  pack_tmp = ior(pack_tmp, data_tmp)
17446  pack_tmp = ishft(pack_tmp, -6)
17447  idata = idata + 1
17448  data_tmp = full_data(idata)
17449  data_tmp = ishft(data_tmp, 39)
17450  data_tmp = iand(data_tmp, mask_left(6))
17451  pack_tmp = ior(pack_tmp, data_tmp)
17452  ipack = ipack + 1
17453  packed_data(ipack) = pack_tmp
17454  data_tmp = full_data(idata)
17455  pack_tmp = ishft(data_tmp, 45)
17456  pack_tmp = ishft(pack_tmp, -25)
17457  idata = idata + 1
17458  data_tmp = full_data(idata)
17459  data_tmp = ishft(data_tmp, 39)
17460  pack_tmp = ior(pack_tmp, data_tmp)
17461  pack_tmp = ishft(pack_tmp, -20)
17462  idata = idata + 1
17463  data_tmp = full_data(idata)
17464  data_tmp = ishft(data_tmp, 39)
17465  data_tmp = iand(data_tmp, mask_left(20))
17466  pack_tmp = ior(pack_tmp, data_tmp)
17467  ipack = ipack + 1
17468  packed_data(ipack) = pack_tmp
17469  data_tmp = full_data(idata)
17470  pack_tmp = ishft(data_tmp, 59)
17471  pack_tmp = ishft(pack_tmp, -25)
17472  idata = idata + 1
17473  data_tmp = full_data(idata)
17474  data_tmp = ishft(data_tmp, 39)
17475  pack_tmp = ior(pack_tmp, data_tmp)
17476  pack_tmp = ishft(pack_tmp, -25)
17477  idata = idata + 1
17478  data_tmp = full_data(idata)
17479  data_tmp = ishft(data_tmp, 39)
17480  pack_tmp = ior(pack_tmp, data_tmp)
17481  pack_tmp = ishft(pack_tmp, -9)
17482  idata = idata + 1
17483  data_tmp = full_data(idata)
17484  data_tmp = ishft(data_tmp, 39)
17485  data_tmp = iand(data_tmp, mask_left(9))
17486  pack_tmp = ior(pack_tmp, data_tmp)
17487  ipack = ipack + 1
17488  packed_data(ipack) = pack_tmp
17489  data_tmp = full_data(idata)
17490  pack_tmp = ishft(data_tmp, 48)
17491  pack_tmp = ishft(pack_tmp, -25)
17492  idata = idata + 1
17493  data_tmp = full_data(idata)
17494  data_tmp = ishft(data_tmp, 39)
17495  pack_tmp = ior(pack_tmp, data_tmp)
17496  pack_tmp = ishft(pack_tmp, -23)
17497  idata = idata + 1
17498  data_tmp = full_data(idata)
17499  data_tmp = ishft(data_tmp, 39)
17500  data_tmp = iand(data_tmp, mask_left(23))
17501  pack_tmp = ior(pack_tmp, data_tmp)
17502  ipack = ipack + 1
17503  packed_data(ipack) = pack_tmp
17504  data_tmp = full_data(idata)
17505  pack_tmp = ishft(data_tmp, 62)
17506  pack_tmp = ishft(pack_tmp, -25)
17507  idata = idata + 1
17508  data_tmp = full_data(idata)
17509  data_tmp = ishft(data_tmp, 39)
17510  pack_tmp = ior(pack_tmp, data_tmp)
17511  pack_tmp = ishft(pack_tmp, -25)
17512  idata = idata + 1
17513  data_tmp = full_data(idata)
17514  data_tmp = ishft(data_tmp, 39)
17515  pack_tmp = ior(pack_tmp, data_tmp)
17516  pack_tmp = ishft(pack_tmp, -12)
17517  idata = idata + 1
17518  data_tmp = full_data(idata)
17519  data_tmp = ishft(data_tmp, 39)
17520  data_tmp = iand(data_tmp, mask_left(12))
17521  pack_tmp = ior(pack_tmp, data_tmp)
17522  ipack = ipack + 1
17523  packed_data(ipack) = pack_tmp
17524  data_tmp = full_data(idata)
17525  pack_tmp = ishft(data_tmp, 51)
17526  pack_tmp = ishft(pack_tmp, -25)
17527  idata = idata + 1
17528  data_tmp = full_data(idata)
17529  data_tmp = ishft(data_tmp, 39)
17530  pack_tmp = ior(pack_tmp, data_tmp)
17531  pack_tmp = ishft(pack_tmp, -25)
17532  idata = idata + 1
17533  data_tmp = full_data(idata)
17534  data_tmp = ishft(data_tmp, 39)
17535  pack_tmp = ior(pack_tmp, data_tmp)
17536  pack_tmp = ishft(pack_tmp, -1)
17537  idata = idata + 1
17538  data_tmp = full_data(idata)
17539  data_tmp = ishft(data_tmp, 39)
17540  data_tmp = iand(data_tmp, mask_left(1))
17541  pack_tmp = ior(pack_tmp, data_tmp)
17542  ipack = ipack + 1
17543  packed_data(ipack) = pack_tmp
17544  data_tmp = full_data(idata)
17545  pack_tmp = ishft(data_tmp, 40)
17546  pack_tmp = ishft(pack_tmp, -25)
17547  idata = idata + 1
17548  data_tmp = full_data(idata)
17549  data_tmp = ishft(data_tmp, 39)
17550  pack_tmp = ior(pack_tmp, data_tmp)
17551  pack_tmp = ishft(pack_tmp, -15)
17552  idata = idata + 1
17553  data_tmp = full_data(idata)
17554  data_tmp = ishft(data_tmp, 39)
17555  data_tmp = iand(data_tmp, mask_left(15))
17556  pack_tmp = ior(pack_tmp, data_tmp)
17557  ipack = ipack + 1
17558  packed_data(ipack) = pack_tmp
17559  data_tmp = full_data(idata)
17560  pack_tmp = ishft(data_tmp, 54)
17561  pack_tmp = ishft(pack_tmp, -25)
17562  idata = idata + 1
17563  data_tmp = full_data(idata)
17564  data_tmp = ishft(data_tmp, 39)
17565  pack_tmp = ior(pack_tmp, data_tmp)
17566  pack_tmp = ishft(pack_tmp, -25)
17567  idata = idata + 1
17568  data_tmp = full_data(idata)
17569  data_tmp = ishft(data_tmp, 39)
17570  pack_tmp = ior(pack_tmp, data_tmp)
17571  pack_tmp = ishft(pack_tmp, -4)
17572  idata = idata + 1
17573  data_tmp = full_data(idata)
17574  data_tmp = ishft(data_tmp, 39)
17575  data_tmp = iand(data_tmp, mask_left(4))
17576  pack_tmp = ior(pack_tmp, data_tmp)
17577  ipack = ipack + 1
17578  packed_data(ipack) = pack_tmp
17579  data_tmp = full_data(idata)
17580  pack_tmp = ishft(data_tmp, 43)
17581  pack_tmp = ishft(pack_tmp, -25)
17582  idata = idata + 1
17583  data_tmp = full_data(idata)
17584  data_tmp = ishft(data_tmp, 39)
17585  pack_tmp = ior(pack_tmp, data_tmp)
17586  pack_tmp = ishft(pack_tmp, -18)
17587  idata = idata + 1
17588  data_tmp = full_data(idata)
17589  data_tmp = ishft(data_tmp, 39)
17590  data_tmp = iand(data_tmp, mask_left(18))
17591  pack_tmp = ior(pack_tmp, data_tmp)
17592  ipack = ipack + 1
17593  packed_data(ipack) = pack_tmp
17594  data_tmp = full_data(idata)
17595  pack_tmp = ishft(data_tmp, 57)
17596  pack_tmp = ishft(pack_tmp, -25)
17597  idata = idata + 1
17598  data_tmp = full_data(idata)
17599  data_tmp = ishft(data_tmp, 39)
17600  pack_tmp = ior(pack_tmp, data_tmp)
17601  pack_tmp = ishft(pack_tmp, -25)
17602  idata = idata + 1
17603  data_tmp = full_data(idata)
17604  data_tmp = ishft(data_tmp, 39)
17605  pack_tmp = ior(pack_tmp, data_tmp)
17606  pack_tmp = ishft(pack_tmp, -7)
17607  idata = idata + 1
17608  data_tmp = full_data(idata)
17609  data_tmp = ishft(data_tmp, 39)
17610  data_tmp = iand(data_tmp, mask_left(7))
17611  pack_tmp = ior(pack_tmp, data_tmp)
17612  ipack = ipack + 1
17613  packed_data(ipack) = pack_tmp
17614  data_tmp = full_data(idata)
17615  pack_tmp = ishft(data_tmp, 46)
17616  pack_tmp = ishft(pack_tmp, -25)
17617  idata = idata + 1
17618  data_tmp = full_data(idata)
17619  data_tmp = ishft(data_tmp, 39)
17620  pack_tmp = ior(pack_tmp, data_tmp)
17621  pack_tmp = ishft(pack_tmp, -21)
17622  idata = idata + 1
17623  data_tmp = full_data(idata)
17624  data_tmp = ishft(data_tmp, 39)
17625  data_tmp = iand(data_tmp, mask_left(21))
17626  pack_tmp = ior(pack_tmp, data_tmp)
17627  ipack = ipack + 1
17628  packed_data(ipack) = pack_tmp
17629  data_tmp = full_data(idata)
17630  pack_tmp = ishft(data_tmp, 60)
17631  pack_tmp = ishft(pack_tmp, -25)
17632  idata = idata + 1
17633  data_tmp = full_data(idata)
17634  data_tmp = ishft(data_tmp, 39)
17635  pack_tmp = ior(pack_tmp, data_tmp)
17636  pack_tmp = ishft(pack_tmp, -25)
17637  idata = idata + 1
17638  data_tmp = full_data(idata)
17639  data_tmp = ishft(data_tmp, 39)
17640  pack_tmp = ior(pack_tmp, data_tmp)
17641  pack_tmp = ishft(pack_tmp, -10)
17642  idata = idata + 1
17643  data_tmp = full_data(idata)
17644  data_tmp = ishft(data_tmp, 39)
17645  data_tmp = iand(data_tmp, mask_left(10))
17646  pack_tmp = ior(pack_tmp, data_tmp)
17647  ipack = ipack + 1
17648  packed_data(ipack) = pack_tmp
17649  data_tmp = full_data(idata)
17650  pack_tmp = ishft(data_tmp, 49)
17651  pack_tmp = ishft(pack_tmp, -25)
17652  idata = idata + 1
17653  data_tmp = full_data(idata)
17654  data_tmp = ishft(data_tmp, 39)
17655  pack_tmp = ior(pack_tmp, data_tmp)
17656  pack_tmp = ishft(pack_tmp, -24)
17657  idata = idata + 1
17658  data_tmp = full_data(idata)
17659  data_tmp = ishft(data_tmp, 39)
17660  data_tmp = iand(data_tmp, mask_left(24))
17661  pack_tmp = ior(pack_tmp, data_tmp)
17662  ipack = ipack + 1
17663  packed_data(ipack) = pack_tmp
17664  data_tmp = full_data(idata)
17665  pack_tmp = ishft(data_tmp, 63)
17666  pack_tmp = ishft(pack_tmp, -25)
17667  idata = idata + 1
17668  data_tmp = full_data(idata)
17669  data_tmp = ishft(data_tmp, 39)
17670  pack_tmp = ior(pack_tmp, data_tmp)
17671  pack_tmp = ishft(pack_tmp, -25)
17672  idata = idata + 1
17673  data_tmp = full_data(idata)
17674  data_tmp = ishft(data_tmp, 39)
17675  pack_tmp = ior(pack_tmp, data_tmp)
17676  pack_tmp = ishft(pack_tmp, -13)
17677  idata = idata + 1
17678  data_tmp = full_data(idata)
17679  data_tmp = ishft(data_tmp, 39)
17680  data_tmp = iand(data_tmp, mask_left(13))
17681  pack_tmp = ior(pack_tmp, data_tmp)
17682  ipack = ipack + 1
17683  packed_data(ipack) = pack_tmp
17684  data_tmp = full_data(idata)
17685  pack_tmp = ishft(data_tmp, 52)
17686  pack_tmp = ishft(pack_tmp, -25)
17687  idata = idata + 1
17688  data_tmp = full_data(idata)
17689  data_tmp = ishft(data_tmp, 39)
17690  pack_tmp = ior(pack_tmp, data_tmp)
17691  pack_tmp = ishft(pack_tmp, -25)
17692  idata = idata + 1
17693  data_tmp = full_data(idata)
17694  data_tmp = ishft(data_tmp, 39)
17695  pack_tmp = ior(pack_tmp, data_tmp)
17696  pack_tmp = ishft(pack_tmp, -2)
17697  idata = idata + 1
17698  data_tmp = full_data(idata)
17699  data_tmp = ishft(data_tmp, 39)
17700  data_tmp = iand(data_tmp, mask_left(2))
17701  pack_tmp = ior(pack_tmp, data_tmp)
17702  ipack = ipack + 1
17703  packed_data(ipack) = pack_tmp
17704  data_tmp = full_data(idata)
17705  pack_tmp = ishft(data_tmp, 41)
17706  pack_tmp = ishft(pack_tmp, -25)
17707  idata = idata + 1
17708  data_tmp = full_data(idata)
17709  data_tmp = ishft(data_tmp, 39)
17710  pack_tmp = ior(pack_tmp, data_tmp)
17711  pack_tmp = ishft(pack_tmp, -16)
17712  idata = idata + 1
17713  data_tmp = full_data(idata)
17714  data_tmp = ishft(data_tmp, 39)
17715  data_tmp = iand(data_tmp, mask_left(16))
17716  pack_tmp = ior(pack_tmp, data_tmp)
17717  ipack = ipack + 1
17718  packed_data(ipack) = pack_tmp
17719  data_tmp = full_data(idata)
17720  pack_tmp = ishft(data_tmp, 55)
17721  pack_tmp = ishft(pack_tmp, -25)
17722  idata = idata + 1
17723  data_tmp = full_data(idata)
17724  data_tmp = ishft(data_tmp, 39)
17725  pack_tmp = ior(pack_tmp, data_tmp)
17726  pack_tmp = ishft(pack_tmp, -25)
17727  idata = idata + 1
17728  data_tmp = full_data(idata)
17729  data_tmp = ishft(data_tmp, 39)
17730  pack_tmp = ior(pack_tmp, data_tmp)
17731  pack_tmp = ishft(pack_tmp, -5)
17732  idata = idata + 1
17733  data_tmp = full_data(idata)
17734  data_tmp = ishft(data_tmp, 39)
17735  data_tmp = iand(data_tmp, mask_left(5))
17736  pack_tmp = ior(pack_tmp, data_tmp)
17737  ipack = ipack + 1
17738  packed_data(ipack) = pack_tmp
17739  data_tmp = full_data(idata)
17740  pack_tmp = ishft(data_tmp, 44)
17741  pack_tmp = ishft(pack_tmp, -25)
17742  idata = idata + 1
17743  data_tmp = full_data(idata)
17744  data_tmp = ishft(data_tmp, 39)
17745  pack_tmp = ior(pack_tmp, data_tmp)
17746  pack_tmp = ishft(pack_tmp, -19)
17747  idata = idata + 1
17748  data_tmp = full_data(idata)
17749  data_tmp = ishft(data_tmp, 39)
17750  data_tmp = iand(data_tmp, mask_left(19))
17751  pack_tmp = ior(pack_tmp, data_tmp)
17752  ipack = ipack + 1
17753  packed_data(ipack) = pack_tmp
17754  data_tmp = full_data(idata)
17755  pack_tmp = ishft(data_tmp, 58)
17756  pack_tmp = ishft(pack_tmp, -25)
17757  idata = idata + 1
17758  data_tmp = full_data(idata)
17759  data_tmp = ishft(data_tmp, 39)
17760  pack_tmp = ior(pack_tmp, data_tmp)
17761  pack_tmp = ishft(pack_tmp, -25)
17762  idata = idata + 1
17763  data_tmp = full_data(idata)
17764  data_tmp = ishft(data_tmp, 39)
17765  pack_tmp = ior(pack_tmp, data_tmp)
17766  pack_tmp = ishft(pack_tmp, -8)
17767  idata = idata + 1
17768  data_tmp = full_data(idata)
17769  data_tmp = ishft(data_tmp, 39)
17770  data_tmp = iand(data_tmp, mask_left(8))
17771  pack_tmp = ior(pack_tmp, data_tmp)
17772  ipack = ipack + 1
17773  packed_data(ipack) = pack_tmp
17774  data_tmp = full_data(idata)
17775  pack_tmp = ishft(data_tmp, 47)
17776  pack_tmp = ishft(pack_tmp, -25)
17777  idata = idata + 1
17778  data_tmp = full_data(idata)
17779  data_tmp = ishft(data_tmp, 39)
17780  pack_tmp = ior(pack_tmp, data_tmp)
17781  pack_tmp = ishft(pack_tmp, -22)
17782  idata = idata + 1
17783  data_tmp = full_data(idata)
17784  data_tmp = ishft(data_tmp, 39)
17785  data_tmp = iand(data_tmp, mask_left(22))
17786  pack_tmp = ior(pack_tmp, data_tmp)
17787  ipack = ipack + 1
17788  packed_data(ipack) = pack_tmp
17789  data_tmp = full_data(idata)
17790  pack_tmp = ishft(data_tmp, 61)
17791  pack_tmp = ishft(pack_tmp, -25)
17792  idata = idata + 1
17793  data_tmp = full_data(idata)
17794  data_tmp = ishft(data_tmp, 39)
17795  pack_tmp = ior(pack_tmp, data_tmp)
17796  pack_tmp = ishft(pack_tmp, -25)
17797  idata = idata + 1
17798  data_tmp = full_data(idata)
17799  data_tmp = ishft(data_tmp, 39)
17800  pack_tmp = ior(pack_tmp, data_tmp)
17801  pack_tmp = ishft(pack_tmp, -11)
17802  idata = idata + 1
17803  data_tmp = full_data(idata)
17804  data_tmp = ishft(data_tmp, 39)
17805  data_tmp = iand(data_tmp, mask_left(11))
17806  pack_tmp = ior(pack_tmp, data_tmp)
17807  ipack = ipack + 1
17808  packed_data(ipack) = pack_tmp
17809  data_tmp = full_data(idata)
17810  pack_tmp = ishft(data_tmp, 50)
17811  pack_tmp = ishft(pack_tmp, -25)
17812  idata = idata + 1
17813  data_tmp = full_data(idata)
17814  data_tmp = ishft(data_tmp, 39)
17815  pack_tmp = ior(pack_tmp, data_tmp)
17816  pack_tmp = ishft(pack_tmp, -25)
17817  idata = idata + 1
17818  data_tmp = full_data(idata)
17819  data_tmp = ishft(data_tmp, 39)
17820  pack_tmp = ior(pack_tmp, data_tmp)
17821  pack_tmp = ishft(pack_tmp, 0)
17822  pack_tmp = ishft(pack_tmp, 0)
17823  ipack = ipack + 1
17824  packed_data(ipack) = pack_tmp
17825  END DO
17826  IF (ndata_rep < ndata) THEN
17827  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
17828  END IF
17829  END SUBROUTINE ints2bits_25
17830 
17831 ! **************************************************************************************************
17832 !> \brief ...
17833 !> \param Ndata ...
17834 !> \param packed_data ...
17835 !> \param full_data ...
17836 ! **************************************************************************************************
17837  SUBROUTINE bits2ints_25(Ndata, packed_data, full_data)
17838  INTEGER, INTENT(IN) :: Ndata
17839  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
17840  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
17841 
17842  INTEGER, PARAMETER :: Nbits = 25
17843 
17844  INTEGER :: idata, ipack, kdata, Ndata_rep
17845  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
17846 
17847  ipack = 0
17848  idata = 0
17849  pack_tmp = 0
17850  ndata_rep = (ndata/64)*64
17851  DO kdata = 1, ndata_rep, 64
17852  idata = idata + 1
17853  data_tmp = ishft(pack_tmp, 25)
17854  ipack = ipack + 1
17855  pack_tmp = packed_data(ipack)
17856  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
17857  pack_tmp = ishft(pack_tmp, -25)
17858  idata = idata + 1
17859  data_tmp = iand(pack_tmp, mask_right(nbits))
17860  full_data(idata) = data_tmp
17861  pack_tmp = ishft(pack_tmp, -nbits)
17862  idata = idata + 1
17863  data_tmp = ishft(pack_tmp, 11)
17864  ipack = ipack + 1
17865  pack_tmp = packed_data(ipack)
17866  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
17867  pack_tmp = ishft(pack_tmp, -11)
17868  idata = idata + 1
17869  data_tmp = iand(pack_tmp, mask_right(nbits))
17870  full_data(idata) = data_tmp
17871  pack_tmp = ishft(pack_tmp, -nbits)
17872  idata = idata + 1
17873  data_tmp = iand(pack_tmp, mask_right(nbits))
17874  full_data(idata) = data_tmp
17875  pack_tmp = ishft(pack_tmp, -nbits)
17876  idata = idata + 1
17877  data_tmp = ishft(pack_tmp, 22)
17878  ipack = ipack + 1
17879  pack_tmp = packed_data(ipack)
17880  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
17881  pack_tmp = ishft(pack_tmp, -22)
17882  idata = idata + 1
17883  data_tmp = iand(pack_tmp, mask_right(nbits))
17884  full_data(idata) = data_tmp
17885  pack_tmp = ishft(pack_tmp, -nbits)
17886  idata = idata + 1
17887  data_tmp = ishft(pack_tmp, 8)
17888  ipack = ipack + 1
17889  pack_tmp = packed_data(ipack)
17890  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
17891  pack_tmp = ishft(pack_tmp, -8)
17892  idata = idata + 1
17893  data_tmp = iand(pack_tmp, mask_right(nbits))
17894  full_data(idata) = data_tmp
17895  pack_tmp = ishft(pack_tmp, -nbits)
17896  idata = idata + 1
17897  data_tmp = iand(pack_tmp, mask_right(nbits))
17898  full_data(idata) = data_tmp
17899  pack_tmp = ishft(pack_tmp, -nbits)
17900  idata = idata + 1
17901  data_tmp = ishft(pack_tmp, 19)
17902  ipack = ipack + 1
17903  pack_tmp = packed_data(ipack)
17904  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
17905  pack_tmp = ishft(pack_tmp, -19)
17906  idata = idata + 1
17907  data_tmp = iand(pack_tmp, mask_right(nbits))
17908  full_data(idata) = data_tmp
17909  pack_tmp = ishft(pack_tmp, -nbits)
17910  idata = idata + 1
17911  data_tmp = ishft(pack_tmp, 5)
17912  ipack = ipack + 1
17913  pack_tmp = packed_data(ipack)
17914  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
17915  pack_tmp = ishft(pack_tmp, -5)
17916  idata = idata + 1
17917  data_tmp = iand(pack_tmp, mask_right(nbits))
17918  full_data(idata) = data_tmp
17919  pack_tmp = ishft(pack_tmp, -nbits)
17920  idata = idata + 1
17921  data_tmp = iand(pack_tmp, mask_right(nbits))
17922  full_data(idata) = data_tmp
17923  pack_tmp = ishft(pack_tmp, -nbits)
17924  idata = idata + 1
17925  data_tmp = ishft(pack_tmp, 16)
17926  ipack = ipack + 1
17927  pack_tmp = packed_data(ipack)
17928  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
17929  pack_tmp = ishft(pack_tmp, -16)
17930  idata = idata + 1
17931  data_tmp = iand(pack_tmp, mask_right(nbits))
17932  full_data(idata) = data_tmp
17933  pack_tmp = ishft(pack_tmp, -nbits)
17934  idata = idata + 1
17935  data_tmp = ishft(pack_tmp, 2)
17936  ipack = ipack + 1
17937  pack_tmp = packed_data(ipack)
17938  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
17939  pack_tmp = ishft(pack_tmp, -2)
17940  idata = idata + 1
17941  data_tmp = iand(pack_tmp, mask_right(nbits))
17942  full_data(idata) = data_tmp
17943  pack_tmp = ishft(pack_tmp, -nbits)
17944  idata = idata + 1
17945  data_tmp = iand(pack_tmp, mask_right(nbits))
17946  full_data(idata) = data_tmp
17947  pack_tmp = ishft(pack_tmp, -nbits)
17948  idata = idata + 1
17949  data_tmp = ishft(pack_tmp, 13)
17950  ipack = ipack + 1
17951  pack_tmp = packed_data(ipack)
17952  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
17953  pack_tmp = ishft(pack_tmp, -13)
17954  idata = idata + 1
17955  data_tmp = iand(pack_tmp, mask_right(nbits))
17956  full_data(idata) = data_tmp
17957  pack_tmp = ishft(pack_tmp, -nbits)
17958  idata = idata + 1
17959  data_tmp = iand(pack_tmp, mask_right(nbits))
17960  full_data(idata) = data_tmp
17961  pack_tmp = ishft(pack_tmp, -nbits)
17962  idata = idata + 1
17963  data_tmp = ishft(pack_tmp, 24)
17964  ipack = ipack + 1
17965  pack_tmp = packed_data(ipack)
17966  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
17967  pack_tmp = ishft(pack_tmp, -24)
17968  idata = idata + 1
17969  data_tmp = iand(pack_tmp, mask_right(nbits))
17970  full_data(idata) = data_tmp
17971  pack_tmp = ishft(pack_tmp, -nbits)
17972  idata = idata + 1
17973  data_tmp = ishft(pack_tmp, 10)
17974  ipack = ipack + 1
17975  pack_tmp = packed_data(ipack)
17976  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
17977  pack_tmp = ishft(pack_tmp, -10)
17978  idata = idata + 1
17979  data_tmp = iand(pack_tmp, mask_right(nbits))
17980  full_data(idata) = data_tmp
17981  pack_tmp = ishft(pack_tmp, -nbits)
17982  idata = idata + 1
17983  data_tmp = iand(pack_tmp, mask_right(nbits))
17984  full_data(idata) = data_tmp
17985  pack_tmp = ishft(pack_tmp, -nbits)
17986  idata = idata + 1
17987  data_tmp = ishft(pack_tmp, 21)
17988  ipack = ipack + 1
17989  pack_tmp = packed_data(ipack)
17990  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
17991  pack_tmp = ishft(pack_tmp, -21)
17992  idata = idata + 1
17993  data_tmp = iand(pack_tmp, mask_right(nbits))
17994  full_data(idata) = data_tmp
17995  pack_tmp = ishft(pack_tmp, -nbits)
17996  idata = idata + 1
17997  data_tmp = ishft(pack_tmp, 7)
17998  ipack = ipack + 1
17999  pack_tmp = packed_data(ipack)
18000  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
18001  pack_tmp = ishft(pack_tmp, -7)
18002  idata = idata + 1
18003  data_tmp = iand(pack_tmp, mask_right(nbits))
18004  full_data(idata) = data_tmp
18005  pack_tmp = ishft(pack_tmp, -nbits)
18006  idata = idata + 1
18007  data_tmp = iand(pack_tmp, mask_right(nbits))
18008  full_data(idata) = data_tmp
18009  pack_tmp = ishft(pack_tmp, -nbits)
18010  idata = idata + 1
18011  data_tmp = ishft(pack_tmp, 18)
18012  ipack = ipack + 1
18013  pack_tmp = packed_data(ipack)
18014  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
18015  pack_tmp = ishft(pack_tmp, -18)
18016  idata = idata + 1
18017  data_tmp = iand(pack_tmp, mask_right(nbits))
18018  full_data(idata) = data_tmp
18019  pack_tmp = ishft(pack_tmp, -nbits)
18020  idata = idata + 1
18021  data_tmp = ishft(pack_tmp, 4)
18022  ipack = ipack + 1
18023  pack_tmp = packed_data(ipack)
18024  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
18025  pack_tmp = ishft(pack_tmp, -4)
18026  idata = idata + 1
18027  data_tmp = iand(pack_tmp, mask_right(nbits))
18028  full_data(idata) = data_tmp
18029  pack_tmp = ishft(pack_tmp, -nbits)
18030  idata = idata + 1
18031  data_tmp = iand(pack_tmp, mask_right(nbits))
18032  full_data(idata) = data_tmp
18033  pack_tmp = ishft(pack_tmp, -nbits)
18034  idata = idata + 1
18035  data_tmp = ishft(pack_tmp, 15)
18036  ipack = ipack + 1
18037  pack_tmp = packed_data(ipack)
18038  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
18039  pack_tmp = ishft(pack_tmp, -15)
18040  idata = idata + 1
18041  data_tmp = iand(pack_tmp, mask_right(nbits))
18042  full_data(idata) = data_tmp
18043  pack_tmp = ishft(pack_tmp, -nbits)
18044  idata = idata + 1
18045  data_tmp = ishft(pack_tmp, 1)
18046  ipack = ipack + 1
18047  pack_tmp = packed_data(ipack)
18048  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
18049  pack_tmp = ishft(pack_tmp, -1)
18050  idata = idata + 1
18051  data_tmp = iand(pack_tmp, mask_right(nbits))
18052  full_data(idata) = data_tmp
18053  pack_tmp = ishft(pack_tmp, -nbits)
18054  idata = idata + 1
18055  data_tmp = iand(pack_tmp, mask_right(nbits))
18056  full_data(idata) = data_tmp
18057  pack_tmp = ishft(pack_tmp, -nbits)
18058  idata = idata + 1
18059  data_tmp = ishft(pack_tmp, 12)
18060  ipack = ipack + 1
18061  pack_tmp = packed_data(ipack)
18062  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
18063  pack_tmp = ishft(pack_tmp, -12)
18064  idata = idata + 1
18065  data_tmp = iand(pack_tmp, mask_right(nbits))
18066  full_data(idata) = data_tmp
18067  pack_tmp = ishft(pack_tmp, -nbits)
18068  idata = idata + 1
18069  data_tmp = iand(pack_tmp, mask_right(nbits))
18070  full_data(idata) = data_tmp
18071  pack_tmp = ishft(pack_tmp, -nbits)
18072  idata = idata + 1
18073  data_tmp = ishft(pack_tmp, 23)
18074  ipack = ipack + 1
18075  pack_tmp = packed_data(ipack)
18076  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
18077  pack_tmp = ishft(pack_tmp, -23)
18078  idata = idata + 1
18079  data_tmp = iand(pack_tmp, mask_right(nbits))
18080  full_data(idata) = data_tmp
18081  pack_tmp = ishft(pack_tmp, -nbits)
18082  idata = idata + 1
18083  data_tmp = ishft(pack_tmp, 9)
18084  ipack = ipack + 1
18085  pack_tmp = packed_data(ipack)
18086  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
18087  pack_tmp = ishft(pack_tmp, -9)
18088  idata = idata + 1
18089  data_tmp = iand(pack_tmp, mask_right(nbits))
18090  full_data(idata) = data_tmp
18091  pack_tmp = ishft(pack_tmp, -nbits)
18092  idata = idata + 1
18093  data_tmp = iand(pack_tmp, mask_right(nbits))
18094  full_data(idata) = data_tmp
18095  pack_tmp = ishft(pack_tmp, -nbits)
18096  idata = idata + 1
18097  data_tmp = ishft(pack_tmp, 20)
18098  ipack = ipack + 1
18099  pack_tmp = packed_data(ipack)
18100  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
18101  pack_tmp = ishft(pack_tmp, -20)
18102  idata = idata + 1
18103  data_tmp = iand(pack_tmp, mask_right(nbits))
18104  full_data(idata) = data_tmp
18105  pack_tmp = ishft(pack_tmp, -nbits)
18106  idata = idata + 1
18107  data_tmp = ishft(pack_tmp, 6)
18108  ipack = ipack + 1
18109  pack_tmp = packed_data(ipack)
18110  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
18111  pack_tmp = ishft(pack_tmp, -6)
18112  idata = idata + 1
18113  data_tmp = iand(pack_tmp, mask_right(nbits))
18114  full_data(idata) = data_tmp
18115  pack_tmp = ishft(pack_tmp, -nbits)
18116  idata = idata + 1
18117  data_tmp = iand(pack_tmp, mask_right(nbits))
18118  full_data(idata) = data_tmp
18119  pack_tmp = ishft(pack_tmp, -nbits)
18120  idata = idata + 1
18121  data_tmp = ishft(pack_tmp, 17)
18122  ipack = ipack + 1
18123  pack_tmp = packed_data(ipack)
18124  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
18125  pack_tmp = ishft(pack_tmp, -17)
18126  idata = idata + 1
18127  data_tmp = iand(pack_tmp, mask_right(nbits))
18128  full_data(idata) = data_tmp
18129  pack_tmp = ishft(pack_tmp, -nbits)
18130  idata = idata + 1
18131  data_tmp = ishft(pack_tmp, 3)
18132  ipack = ipack + 1
18133  pack_tmp = packed_data(ipack)
18134  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
18135  pack_tmp = ishft(pack_tmp, -3)
18136  idata = idata + 1
18137  data_tmp = iand(pack_tmp, mask_right(nbits))
18138  full_data(idata) = data_tmp
18139  pack_tmp = ishft(pack_tmp, -nbits)
18140  idata = idata + 1
18141  data_tmp = iand(pack_tmp, mask_right(nbits))
18142  full_data(idata) = data_tmp
18143  pack_tmp = ishft(pack_tmp, -nbits)
18144  idata = idata + 1
18145  data_tmp = ishft(pack_tmp, 14)
18146  ipack = ipack + 1
18147  pack_tmp = packed_data(ipack)
18148  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
18149  pack_tmp = ishft(pack_tmp, -14)
18150  idata = idata + 1
18151  data_tmp = iand(pack_tmp, mask_right(nbits))
18152  full_data(idata) = data_tmp
18153  pack_tmp = ishft(pack_tmp, -nbits)
18154  idata = idata + 1
18155  data_tmp = iand(pack_tmp, mask_right(nbits))
18156  full_data(idata) = data_tmp
18157  pack_tmp = ishft(pack_tmp, -nbits)
18158  END DO
18159  IF (ndata_rep < ndata) THEN
18160  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
18161  END IF
18162  END SUBROUTINE bits2ints_25
18163 
18164 ! **************************************************************************************************
18165 !> \brief ...
18166 !> \param Ndata ...
18167 !> \param packed_data ...
18168 !> \param full_data ...
18169 ! **************************************************************************************************
18170  SUBROUTINE ints2bits_26(Ndata, packed_data, full_data)
18171  INTEGER, INTENT(IN) :: Ndata
18172  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
18173  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
18174 
18175  INTEGER, PARAMETER :: Nbits = 26
18176 
18177  INTEGER :: idata, ipack, kdata, Ndata_rep
18178  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
18179 
18180  idata = 0
18181  ipack = 0
18182  ndata_rep = (ndata/64)*64
18183  DO kdata = 1, ndata_rep, 64
18184  pack_tmp = 0
18185  idata = idata + 1
18186  data_tmp = full_data(idata)
18187  data_tmp = ishft(data_tmp, 38)
18188  pack_tmp = ior(pack_tmp, data_tmp)
18189  pack_tmp = ishft(pack_tmp, -26)
18190  idata = idata + 1
18191  data_tmp = full_data(idata)
18192  data_tmp = ishft(data_tmp, 38)
18193  pack_tmp = ior(pack_tmp, data_tmp)
18194  pack_tmp = ishft(pack_tmp, -12)
18195  idata = idata + 1
18196  data_tmp = full_data(idata)
18197  data_tmp = ishft(data_tmp, 38)
18198  data_tmp = iand(data_tmp, mask_left(12))
18199  pack_tmp = ior(pack_tmp, data_tmp)
18200  ipack = ipack + 1
18201  packed_data(ipack) = pack_tmp
18202  data_tmp = full_data(idata)
18203  pack_tmp = ishft(data_tmp, 50)
18204  pack_tmp = ishft(pack_tmp, -26)
18205  idata = idata + 1
18206  data_tmp = full_data(idata)
18207  data_tmp = ishft(data_tmp, 38)
18208  pack_tmp = ior(pack_tmp, data_tmp)
18209  pack_tmp = ishft(pack_tmp, -24)
18210  idata = idata + 1
18211  data_tmp = full_data(idata)
18212  data_tmp = ishft(data_tmp, 38)
18213  data_tmp = iand(data_tmp, mask_left(24))
18214  pack_tmp = ior(pack_tmp, data_tmp)
18215  ipack = ipack + 1
18216  packed_data(ipack) = pack_tmp
18217  data_tmp = full_data(idata)
18218  pack_tmp = ishft(data_tmp, 62)
18219  pack_tmp = ishft(pack_tmp, -26)
18220  idata = idata + 1
18221  data_tmp = full_data(idata)
18222  data_tmp = ishft(data_tmp, 38)
18223  pack_tmp = ior(pack_tmp, data_tmp)
18224  pack_tmp = ishft(pack_tmp, -26)
18225  idata = idata + 1
18226  data_tmp = full_data(idata)
18227  data_tmp = ishft(data_tmp, 38)
18228  pack_tmp = ior(pack_tmp, data_tmp)
18229  pack_tmp = ishft(pack_tmp, -10)
18230  idata = idata + 1
18231  data_tmp = full_data(idata)
18232  data_tmp = ishft(data_tmp, 38)
18233  data_tmp = iand(data_tmp, mask_left(10))
18234  pack_tmp = ior(pack_tmp, data_tmp)
18235  ipack = ipack + 1
18236  packed_data(ipack) = pack_tmp
18237  data_tmp = full_data(idata)
18238  pack_tmp = ishft(data_tmp, 48)
18239  pack_tmp = ishft(pack_tmp, -26)
18240  idata = idata + 1
18241  data_tmp = full_data(idata)
18242  data_tmp = ishft(data_tmp, 38)
18243  pack_tmp = ior(pack_tmp, data_tmp)
18244  pack_tmp = ishft(pack_tmp, -22)
18245  idata = idata + 1
18246  data_tmp = full_data(idata)
18247  data_tmp = ishft(data_tmp, 38)
18248  data_tmp = iand(data_tmp, mask_left(22))
18249  pack_tmp = ior(pack_tmp, data_tmp)
18250  ipack = ipack + 1
18251  packed_data(ipack) = pack_tmp
18252  data_tmp = full_data(idata)
18253  pack_tmp = ishft(data_tmp, 60)
18254  pack_tmp = ishft(pack_tmp, -26)
18255  idata = idata + 1
18256  data_tmp = full_data(idata)
18257  data_tmp = ishft(data_tmp, 38)
18258  pack_tmp = ior(pack_tmp, data_tmp)
18259  pack_tmp = ishft(pack_tmp, -26)
18260  idata = idata + 1
18261  data_tmp = full_data(idata)
18262  data_tmp = ishft(data_tmp, 38)
18263  pack_tmp = ior(pack_tmp, data_tmp)
18264  pack_tmp = ishft(pack_tmp, -8)
18265  idata = idata + 1
18266  data_tmp = full_data(idata)
18267  data_tmp = ishft(data_tmp, 38)
18268  data_tmp = iand(data_tmp, mask_left(8))
18269  pack_tmp = ior(pack_tmp, data_tmp)
18270  ipack = ipack + 1
18271  packed_data(ipack) = pack_tmp
18272  data_tmp = full_data(idata)
18273  pack_tmp = ishft(data_tmp, 46)
18274  pack_tmp = ishft(pack_tmp, -26)
18275  idata = idata + 1
18276  data_tmp = full_data(idata)
18277  data_tmp = ishft(data_tmp, 38)
18278  pack_tmp = ior(pack_tmp, data_tmp)
18279  pack_tmp = ishft(pack_tmp, -20)
18280  idata = idata + 1
18281  data_tmp = full_data(idata)
18282  data_tmp = ishft(data_tmp, 38)
18283  data_tmp = iand(data_tmp, mask_left(20))
18284  pack_tmp = ior(pack_tmp, data_tmp)
18285  ipack = ipack + 1
18286  packed_data(ipack) = pack_tmp
18287  data_tmp = full_data(idata)
18288  pack_tmp = ishft(data_tmp, 58)
18289  pack_tmp = ishft(pack_tmp, -26)
18290  idata = idata + 1
18291  data_tmp = full_data(idata)
18292  data_tmp = ishft(data_tmp, 38)
18293  pack_tmp = ior(pack_tmp, data_tmp)
18294  pack_tmp = ishft(pack_tmp, -26)
18295  idata = idata + 1
18296  data_tmp = full_data(idata)
18297  data_tmp = ishft(data_tmp, 38)
18298  pack_tmp = ior(pack_tmp, data_tmp)
18299  pack_tmp = ishft(pack_tmp, -6)
18300  idata = idata + 1
18301  data_tmp = full_data(idata)
18302  data_tmp = ishft(data_tmp, 38)
18303  data_tmp = iand(data_tmp, mask_left(6))
18304  pack_tmp = ior(pack_tmp, data_tmp)
18305  ipack = ipack + 1
18306  packed_data(ipack) = pack_tmp
18307  data_tmp = full_data(idata)
18308  pack_tmp = ishft(data_tmp, 44)
18309  pack_tmp = ishft(pack_tmp, -26)
18310  idata = idata + 1
18311  data_tmp = full_data(idata)
18312  data_tmp = ishft(data_tmp, 38)
18313  pack_tmp = ior(pack_tmp, data_tmp)
18314  pack_tmp = ishft(pack_tmp, -18)
18315  idata = idata + 1
18316  data_tmp = full_data(idata)
18317  data_tmp = ishft(data_tmp, 38)
18318  data_tmp = iand(data_tmp, mask_left(18))
18319  pack_tmp = ior(pack_tmp, data_tmp)
18320  ipack = ipack + 1
18321  packed_data(ipack) = pack_tmp
18322  data_tmp = full_data(idata)
18323  pack_tmp = ishft(data_tmp, 56)
18324  pack_tmp = ishft(pack_tmp, -26)
18325  idata = idata + 1
18326  data_tmp = full_data(idata)
18327  data_tmp = ishft(data_tmp, 38)
18328  pack_tmp = ior(pack_tmp, data_tmp)
18329  pack_tmp = ishft(pack_tmp, -26)
18330  idata = idata + 1
18331  data_tmp = full_data(idata)
18332  data_tmp = ishft(data_tmp, 38)
18333  pack_tmp = ior(pack_tmp, data_tmp)
18334  pack_tmp = ishft(pack_tmp, -4)
18335  idata = idata + 1
18336  data_tmp = full_data(idata)
18337  data_tmp = ishft(data_tmp, 38)
18338  data_tmp = iand(data_tmp, mask_left(4))
18339  pack_tmp = ior(pack_tmp, data_tmp)
18340  ipack = ipack + 1
18341  packed_data(ipack) = pack_tmp
18342  data_tmp = full_data(idata)
18343  pack_tmp = ishft(data_tmp, 42)
18344  pack_tmp = ishft(pack_tmp, -26)
18345  idata = idata + 1
18346  data_tmp = full_data(idata)
18347  data_tmp = ishft(data_tmp, 38)
18348  pack_tmp = ior(pack_tmp, data_tmp)
18349  pack_tmp = ishft(pack_tmp, -16)
18350  idata = idata + 1
18351  data_tmp = full_data(idata)
18352  data_tmp = ishft(data_tmp, 38)
18353  data_tmp = iand(data_tmp, mask_left(16))
18354  pack_tmp = ior(pack_tmp, data_tmp)
18355  ipack = ipack + 1
18356  packed_data(ipack) = pack_tmp
18357  data_tmp = full_data(idata)
18358  pack_tmp = ishft(data_tmp, 54)
18359  pack_tmp = ishft(pack_tmp, -26)
18360  idata = idata + 1
18361  data_tmp = full_data(idata)
18362  data_tmp = ishft(data_tmp, 38)
18363  pack_tmp = ior(pack_tmp, data_tmp)
18364  pack_tmp = ishft(pack_tmp, -26)
18365  idata = idata + 1
18366  data_tmp = full_data(idata)
18367  data_tmp = ishft(data_tmp, 38)
18368  pack_tmp = ior(pack_tmp, data_tmp)
18369  pack_tmp = ishft(pack_tmp, -2)
18370  idata = idata + 1
18371  data_tmp = full_data(idata)
18372  data_tmp = ishft(data_tmp, 38)
18373  data_tmp = iand(data_tmp, mask_left(2))
18374  pack_tmp = ior(pack_tmp, data_tmp)
18375  ipack = ipack + 1
18376  packed_data(ipack) = pack_tmp
18377  data_tmp = full_data(idata)
18378  pack_tmp = ishft(data_tmp, 40)
18379  pack_tmp = ishft(pack_tmp, -26)
18380  idata = idata + 1
18381  data_tmp = full_data(idata)
18382  data_tmp = ishft(data_tmp, 38)
18383  pack_tmp = ior(pack_tmp, data_tmp)
18384  pack_tmp = ishft(pack_tmp, -14)
18385  idata = idata + 1
18386  data_tmp = full_data(idata)
18387  data_tmp = ishft(data_tmp, 38)
18388  data_tmp = iand(data_tmp, mask_left(14))
18389  pack_tmp = ior(pack_tmp, data_tmp)
18390  ipack = ipack + 1
18391  packed_data(ipack) = pack_tmp
18392  data_tmp = full_data(idata)
18393  pack_tmp = ishft(data_tmp, 52)
18394  pack_tmp = ishft(pack_tmp, -26)
18395  idata = idata + 1
18396  data_tmp = full_data(idata)
18397  data_tmp = ishft(data_tmp, 38)
18398  pack_tmp = ior(pack_tmp, data_tmp)
18399  pack_tmp = ishft(pack_tmp, -26)
18400  idata = idata + 1
18401  data_tmp = full_data(idata)
18402  data_tmp = ishft(data_tmp, 38)
18403  pack_tmp = ior(pack_tmp, data_tmp)
18404  pack_tmp = ishft(pack_tmp, 0)
18405  idata = idata + 1
18406  data_tmp = full_data(idata)
18407  data_tmp = ishft(data_tmp, 38)
18408  data_tmp = iand(data_tmp, mask_left(0))
18409  pack_tmp = ior(pack_tmp, data_tmp)
18410  ipack = ipack + 1
18411  packed_data(ipack) = pack_tmp
18412  data_tmp = full_data(idata)
18413  pack_tmp = ishft(data_tmp, 38)
18414  pack_tmp = ishft(pack_tmp, -26)
18415  idata = idata + 1
18416  data_tmp = full_data(idata)
18417  data_tmp = ishft(data_tmp, 38)
18418  pack_tmp = ior(pack_tmp, data_tmp)
18419  pack_tmp = ishft(pack_tmp, -12)
18420  idata = idata + 1
18421  data_tmp = full_data(idata)
18422  data_tmp = ishft(data_tmp, 38)
18423  data_tmp = iand(data_tmp, mask_left(12))
18424  pack_tmp = ior(pack_tmp, data_tmp)
18425  ipack = ipack + 1
18426  packed_data(ipack) = pack_tmp
18427  data_tmp = full_data(idata)
18428  pack_tmp = ishft(data_tmp, 50)
18429  pack_tmp = ishft(pack_tmp, -26)
18430  idata = idata + 1
18431  data_tmp = full_data(idata)
18432  data_tmp = ishft(data_tmp, 38)
18433  pack_tmp = ior(pack_tmp, data_tmp)
18434  pack_tmp = ishft(pack_tmp, -24)
18435  idata = idata + 1
18436  data_tmp = full_data(idata)
18437  data_tmp = ishft(data_tmp, 38)
18438  data_tmp = iand(data_tmp, mask_left(24))
18439  pack_tmp = ior(pack_tmp, data_tmp)
18440  ipack = ipack + 1
18441  packed_data(ipack) = pack_tmp
18442  data_tmp = full_data(idata)
18443  pack_tmp = ishft(data_tmp, 62)
18444  pack_tmp = ishft(pack_tmp, -26)
18445  idata = idata + 1
18446  data_tmp = full_data(idata)
18447  data_tmp = ishft(data_tmp, 38)
18448  pack_tmp = ior(pack_tmp, data_tmp)
18449  pack_tmp = ishft(pack_tmp, -26)
18450  idata = idata + 1
18451  data_tmp = full_data(idata)
18452  data_tmp = ishft(data_tmp, 38)
18453  pack_tmp = ior(pack_tmp, data_tmp)
18454  pack_tmp = ishft(pack_tmp, -10)
18455  idata = idata + 1
18456  data_tmp = full_data(idata)
18457  data_tmp = ishft(data_tmp, 38)
18458  data_tmp = iand(data_tmp, mask_left(10))
18459  pack_tmp = ior(pack_tmp, data_tmp)
18460  ipack = ipack + 1
18461  packed_data(ipack) = pack_tmp
18462  data_tmp = full_data(idata)
18463  pack_tmp = ishft(data_tmp, 48)
18464  pack_tmp = ishft(pack_tmp, -26)
18465  idata = idata + 1
18466  data_tmp = full_data(idata)
18467  data_tmp = ishft(data_tmp, 38)
18468  pack_tmp = ior(pack_tmp, data_tmp)
18469  pack_tmp = ishft(pack_tmp, -22)
18470  idata = idata + 1
18471  data_tmp = full_data(idata)
18472  data_tmp = ishft(data_tmp, 38)
18473  data_tmp = iand(data_tmp, mask_left(22))
18474  pack_tmp = ior(pack_tmp, data_tmp)
18475  ipack = ipack + 1
18476  packed_data(ipack) = pack_tmp
18477  data_tmp = full_data(idata)
18478  pack_tmp = ishft(data_tmp, 60)
18479  pack_tmp = ishft(pack_tmp, -26)
18480  idata = idata + 1
18481  data_tmp = full_data(idata)
18482  data_tmp = ishft(data_tmp, 38)
18483  pack_tmp = ior(pack_tmp, data_tmp)
18484  pack_tmp = ishft(pack_tmp, -26)
18485  idata = idata + 1
18486  data_tmp = full_data(idata)
18487  data_tmp = ishft(data_tmp, 38)
18488  pack_tmp = ior(pack_tmp, data_tmp)
18489  pack_tmp = ishft(pack_tmp, -8)
18490  idata = idata + 1
18491  data_tmp = full_data(idata)
18492  data_tmp = ishft(data_tmp, 38)
18493  data_tmp = iand(data_tmp, mask_left(8))
18494  pack_tmp = ior(pack_tmp, data_tmp)
18495  ipack = ipack + 1
18496  packed_data(ipack) = pack_tmp
18497  data_tmp = full_data(idata)
18498  pack_tmp = ishft(data_tmp, 46)
18499  pack_tmp = ishft(pack_tmp, -26)
18500  idata = idata + 1
18501  data_tmp = full_data(idata)
18502  data_tmp = ishft(data_tmp, 38)
18503  pack_tmp = ior(pack_tmp, data_tmp)
18504  pack_tmp = ishft(pack_tmp, -20)
18505  idata = idata + 1
18506  data_tmp = full_data(idata)
18507  data_tmp = ishft(data_tmp, 38)
18508  data_tmp = iand(data_tmp, mask_left(20))
18509  pack_tmp = ior(pack_tmp, data_tmp)
18510  ipack = ipack + 1
18511  packed_data(ipack) = pack_tmp
18512  data_tmp = full_data(idata)
18513  pack_tmp = ishft(data_tmp, 58)
18514  pack_tmp = ishft(pack_tmp, -26)
18515  idata = idata + 1
18516  data_tmp = full_data(idata)
18517  data_tmp = ishft(data_tmp, 38)
18518  pack_tmp = ior(pack_tmp, data_tmp)
18519  pack_tmp = ishft(pack_tmp, -26)
18520  idata = idata + 1
18521  data_tmp = full_data(idata)
18522  data_tmp = ishft(data_tmp, 38)
18523  pack_tmp = ior(pack_tmp, data_tmp)
18524  pack_tmp = ishft(pack_tmp, -6)
18525  idata = idata + 1
18526  data_tmp = full_data(idata)
18527  data_tmp = ishft(data_tmp, 38)
18528  data_tmp = iand(data_tmp, mask_left(6))
18529  pack_tmp = ior(pack_tmp, data_tmp)
18530  ipack = ipack + 1
18531  packed_data(ipack) = pack_tmp
18532  data_tmp = full_data(idata)
18533  pack_tmp = ishft(data_tmp, 44)
18534  pack_tmp = ishft(pack_tmp, -26)
18535  idata = idata + 1
18536  data_tmp = full_data(idata)
18537  data_tmp = ishft(data_tmp, 38)
18538  pack_tmp = ior(pack_tmp, data_tmp)
18539  pack_tmp = ishft(pack_tmp, -18)
18540  idata = idata + 1
18541  data_tmp = full_data(idata)
18542  data_tmp = ishft(data_tmp, 38)
18543  data_tmp = iand(data_tmp, mask_left(18))
18544  pack_tmp = ior(pack_tmp, data_tmp)
18545  ipack = ipack + 1
18546  packed_data(ipack) = pack_tmp
18547  data_tmp = full_data(idata)
18548  pack_tmp = ishft(data_tmp, 56)
18549  pack_tmp = ishft(pack_tmp, -26)
18550  idata = idata + 1
18551  data_tmp = full_data(idata)
18552  data_tmp = ishft(data_tmp, 38)
18553  pack_tmp = ior(pack_tmp, data_tmp)
18554  pack_tmp = ishft(pack_tmp, -26)
18555  idata = idata + 1
18556  data_tmp = full_data(idata)
18557  data_tmp = ishft(data_tmp, 38)
18558  pack_tmp = ior(pack_tmp, data_tmp)
18559  pack_tmp = ishft(pack_tmp, -4)
18560  idata = idata + 1
18561  data_tmp = full_data(idata)
18562  data_tmp = ishft(data_tmp, 38)
18563  data_tmp = iand(data_tmp, mask_left(4))
18564  pack_tmp = ior(pack_tmp, data_tmp)
18565  ipack = ipack + 1
18566  packed_data(ipack) = pack_tmp
18567  data_tmp = full_data(idata)
18568  pack_tmp = ishft(data_tmp, 42)
18569  pack_tmp = ishft(pack_tmp, -26)
18570  idata = idata + 1
18571  data_tmp = full_data(idata)
18572  data_tmp = ishft(data_tmp, 38)
18573  pack_tmp = ior(pack_tmp, data_tmp)
18574  pack_tmp = ishft(pack_tmp, -16)
18575  idata = idata + 1
18576  data_tmp = full_data(idata)
18577  data_tmp = ishft(data_tmp, 38)
18578  data_tmp = iand(data_tmp, mask_left(16))
18579  pack_tmp = ior(pack_tmp, data_tmp)
18580  ipack = ipack + 1
18581  packed_data(ipack) = pack_tmp
18582  data_tmp = full_data(idata)
18583  pack_tmp = ishft(data_tmp, 54)
18584  pack_tmp = ishft(pack_tmp, -26)
18585  idata = idata + 1
18586  data_tmp = full_data(idata)
18587  data_tmp = ishft(data_tmp, 38)
18588  pack_tmp = ior(pack_tmp, data_tmp)
18589  pack_tmp = ishft(pack_tmp, -26)
18590  idata = idata + 1
18591  data_tmp = full_data(idata)
18592  data_tmp = ishft(data_tmp, 38)
18593  pack_tmp = ior(pack_tmp, data_tmp)
18594  pack_tmp = ishft(pack_tmp, -2)
18595  idata = idata + 1
18596  data_tmp = full_data(idata)
18597  data_tmp = ishft(data_tmp, 38)
18598  data_tmp = iand(data_tmp, mask_left(2))
18599  pack_tmp = ior(pack_tmp, data_tmp)
18600  ipack = ipack + 1
18601  packed_data(ipack) = pack_tmp
18602  data_tmp = full_data(idata)
18603  pack_tmp = ishft(data_tmp, 40)
18604  pack_tmp = ishft(pack_tmp, -26)
18605  idata = idata + 1
18606  data_tmp = full_data(idata)
18607  data_tmp = ishft(data_tmp, 38)
18608  pack_tmp = ior(pack_tmp, data_tmp)
18609  pack_tmp = ishft(pack_tmp, -14)
18610  idata = idata + 1
18611  data_tmp = full_data(idata)
18612  data_tmp = ishft(data_tmp, 38)
18613  data_tmp = iand(data_tmp, mask_left(14))
18614  pack_tmp = ior(pack_tmp, data_tmp)
18615  ipack = ipack + 1
18616  packed_data(ipack) = pack_tmp
18617  data_tmp = full_data(idata)
18618  pack_tmp = ishft(data_tmp, 52)
18619  pack_tmp = ishft(pack_tmp, -26)
18620  idata = idata + 1
18621  data_tmp = full_data(idata)
18622  data_tmp = ishft(data_tmp, 38)
18623  pack_tmp = ior(pack_tmp, data_tmp)
18624  pack_tmp = ishft(pack_tmp, -26)
18625  idata = idata + 1
18626  data_tmp = full_data(idata)
18627  data_tmp = ishft(data_tmp, 38)
18628  pack_tmp = ior(pack_tmp, data_tmp)
18629  pack_tmp = ishft(pack_tmp, 0)
18630  pack_tmp = ishft(pack_tmp, 0)
18631  ipack = ipack + 1
18632  packed_data(ipack) = pack_tmp
18633  END DO
18634  IF (ndata_rep < ndata) THEN
18635  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
18636  END IF
18637  END SUBROUTINE ints2bits_26
18638 
18639 ! **************************************************************************************************
18640 !> \brief ...
18641 !> \param Ndata ...
18642 !> \param packed_data ...
18643 !> \param full_data ...
18644 ! **************************************************************************************************
18645  SUBROUTINE bits2ints_26(Ndata, packed_data, full_data)
18646  INTEGER, INTENT(IN) :: Ndata
18647  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
18648  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
18649 
18650  INTEGER, PARAMETER :: Nbits = 26
18651 
18652  INTEGER :: idata, ipack, kdata, Ndata_rep
18653  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
18654 
18655  ipack = 0
18656  idata = 0
18657  pack_tmp = 0
18658  ndata_rep = (ndata/64)*64
18659  DO kdata = 1, ndata_rep, 64
18660  idata = idata + 1
18661  data_tmp = ishft(pack_tmp, 26)
18662  ipack = ipack + 1
18663  pack_tmp = packed_data(ipack)
18664  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
18665  pack_tmp = ishft(pack_tmp, -26)
18666  idata = idata + 1
18667  data_tmp = iand(pack_tmp, mask_right(nbits))
18668  full_data(idata) = data_tmp
18669  pack_tmp = ishft(pack_tmp, -nbits)
18670  idata = idata + 1
18671  data_tmp = ishft(pack_tmp, 14)
18672  ipack = ipack + 1
18673  pack_tmp = packed_data(ipack)
18674  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
18675  pack_tmp = ishft(pack_tmp, -14)
18676  idata = idata + 1
18677  data_tmp = iand(pack_tmp, mask_right(nbits))
18678  full_data(idata) = data_tmp
18679  pack_tmp = ishft(pack_tmp, -nbits)
18680  idata = idata + 1
18681  data_tmp = ishft(pack_tmp, 2)
18682  ipack = ipack + 1
18683  pack_tmp = packed_data(ipack)
18684  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
18685  pack_tmp = ishft(pack_tmp, -2)
18686  idata = idata + 1
18687  data_tmp = iand(pack_tmp, mask_right(nbits))
18688  full_data(idata) = data_tmp
18689  pack_tmp = ishft(pack_tmp, -nbits)
18690  idata = idata + 1
18691  data_tmp = iand(pack_tmp, mask_right(nbits))
18692  full_data(idata) = data_tmp
18693  pack_tmp = ishft(pack_tmp, -nbits)
18694  idata = idata + 1
18695  data_tmp = ishft(pack_tmp, 16)
18696  ipack = ipack + 1
18697  pack_tmp = packed_data(ipack)
18698  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
18699  pack_tmp = ishft(pack_tmp, -16)
18700  idata = idata + 1
18701  data_tmp = iand(pack_tmp, mask_right(nbits))
18702  full_data(idata) = data_tmp
18703  pack_tmp = ishft(pack_tmp, -nbits)
18704  idata = idata + 1
18705  data_tmp = ishft(pack_tmp, 4)
18706  ipack = ipack + 1
18707  pack_tmp = packed_data(ipack)
18708  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
18709  pack_tmp = ishft(pack_tmp, -4)
18710  idata = idata + 1
18711  data_tmp = iand(pack_tmp, mask_right(nbits))
18712  full_data(idata) = data_tmp
18713  pack_tmp = ishft(pack_tmp, -nbits)
18714  idata = idata + 1
18715  data_tmp = iand(pack_tmp, mask_right(nbits))
18716  full_data(idata) = data_tmp
18717  pack_tmp = ishft(pack_tmp, -nbits)
18718  idata = idata + 1
18719  data_tmp = ishft(pack_tmp, 18)
18720  ipack = ipack + 1
18721  pack_tmp = packed_data(ipack)
18722  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
18723  pack_tmp = ishft(pack_tmp, -18)
18724  idata = idata + 1
18725  data_tmp = iand(pack_tmp, mask_right(nbits))
18726  full_data(idata) = data_tmp
18727  pack_tmp = ishft(pack_tmp, -nbits)
18728  idata = idata + 1
18729  data_tmp = ishft(pack_tmp, 6)
18730  ipack = ipack + 1
18731  pack_tmp = packed_data(ipack)
18732  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
18733  pack_tmp = ishft(pack_tmp, -6)
18734  idata = idata + 1
18735  data_tmp = iand(pack_tmp, mask_right(nbits))
18736  full_data(idata) = data_tmp
18737  pack_tmp = ishft(pack_tmp, -nbits)
18738  idata = idata + 1
18739  data_tmp = iand(pack_tmp, mask_right(nbits))
18740  full_data(idata) = data_tmp
18741  pack_tmp = ishft(pack_tmp, -nbits)
18742  idata = idata + 1
18743  data_tmp = ishft(pack_tmp, 20)
18744  ipack = ipack + 1
18745  pack_tmp = packed_data(ipack)
18746  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
18747  pack_tmp = ishft(pack_tmp, -20)
18748  idata = idata + 1
18749  data_tmp = iand(pack_tmp, mask_right(nbits))
18750  full_data(idata) = data_tmp
18751  pack_tmp = ishft(pack_tmp, -nbits)
18752  idata = idata + 1
18753  data_tmp = ishft(pack_tmp, 8)
18754  ipack = ipack + 1
18755  pack_tmp = packed_data(ipack)
18756  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
18757  pack_tmp = ishft(pack_tmp, -8)
18758  idata = idata + 1
18759  data_tmp = iand(pack_tmp, mask_right(nbits))
18760  full_data(idata) = data_tmp
18761  pack_tmp = ishft(pack_tmp, -nbits)
18762  idata = idata + 1
18763  data_tmp = iand(pack_tmp, mask_right(nbits))
18764  full_data(idata) = data_tmp
18765  pack_tmp = ishft(pack_tmp, -nbits)
18766  idata = idata + 1
18767  data_tmp = ishft(pack_tmp, 22)
18768  ipack = ipack + 1
18769  pack_tmp = packed_data(ipack)
18770  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
18771  pack_tmp = ishft(pack_tmp, -22)
18772  idata = idata + 1
18773  data_tmp = iand(pack_tmp, mask_right(nbits))
18774  full_data(idata) = data_tmp
18775  pack_tmp = ishft(pack_tmp, -nbits)
18776  idata = idata + 1
18777  data_tmp = ishft(pack_tmp, 10)
18778  ipack = ipack + 1
18779  pack_tmp = packed_data(ipack)
18780  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
18781  pack_tmp = ishft(pack_tmp, -10)
18782  idata = idata + 1
18783  data_tmp = iand(pack_tmp, mask_right(nbits))
18784  full_data(idata) = data_tmp
18785  pack_tmp = ishft(pack_tmp, -nbits)
18786  idata = idata + 1
18787  data_tmp = iand(pack_tmp, mask_right(nbits))
18788  full_data(idata) = data_tmp
18789  pack_tmp = ishft(pack_tmp, -nbits)
18790  idata = idata + 1
18791  data_tmp = ishft(pack_tmp, 24)
18792  ipack = ipack + 1
18793  pack_tmp = packed_data(ipack)
18794  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
18795  pack_tmp = ishft(pack_tmp, -24)
18796  idata = idata + 1
18797  data_tmp = iand(pack_tmp, mask_right(nbits))
18798  full_data(idata) = data_tmp
18799  pack_tmp = ishft(pack_tmp, -nbits)
18800  idata = idata + 1
18801  data_tmp = ishft(pack_tmp, 12)
18802  ipack = ipack + 1
18803  pack_tmp = packed_data(ipack)
18804  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
18805  pack_tmp = ishft(pack_tmp, -12)
18806  idata = idata + 1
18807  data_tmp = iand(pack_tmp, mask_right(nbits))
18808  full_data(idata) = data_tmp
18809  pack_tmp = ishft(pack_tmp, -nbits)
18810  idata = idata + 1
18811  data_tmp = iand(pack_tmp, mask_right(nbits))
18812  full_data(idata) = data_tmp
18813  pack_tmp = ishft(pack_tmp, -nbits)
18814  idata = idata + 1
18815  data_tmp = ishft(pack_tmp, 26)
18816  ipack = ipack + 1
18817  pack_tmp = packed_data(ipack)
18818  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
18819  pack_tmp = ishft(pack_tmp, -26)
18820  idata = idata + 1
18821  data_tmp = iand(pack_tmp, mask_right(nbits))
18822  full_data(idata) = data_tmp
18823  pack_tmp = ishft(pack_tmp, -nbits)
18824  idata = idata + 1
18825  data_tmp = ishft(pack_tmp, 14)
18826  ipack = ipack + 1
18827  pack_tmp = packed_data(ipack)
18828  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
18829  pack_tmp = ishft(pack_tmp, -14)
18830  idata = idata + 1
18831  data_tmp = iand(pack_tmp, mask_right(nbits))
18832  full_data(idata) = data_tmp
18833  pack_tmp = ishft(pack_tmp, -nbits)
18834  idata = idata + 1
18835  data_tmp = ishft(pack_tmp, 2)
18836  ipack = ipack + 1
18837  pack_tmp = packed_data(ipack)
18838  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
18839  pack_tmp = ishft(pack_tmp, -2)
18840  idata = idata + 1
18841  data_tmp = iand(pack_tmp, mask_right(nbits))
18842  full_data(idata) = data_tmp
18843  pack_tmp = ishft(pack_tmp, -nbits)
18844  idata = idata + 1
18845  data_tmp = iand(pack_tmp, mask_right(nbits))
18846  full_data(idata) = data_tmp
18847  pack_tmp = ishft(pack_tmp, -nbits)
18848  idata = idata + 1
18849  data_tmp = ishft(pack_tmp, 16)
18850  ipack = ipack + 1
18851  pack_tmp = packed_data(ipack)
18852  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
18853  pack_tmp = ishft(pack_tmp, -16)
18854  idata = idata + 1
18855  data_tmp = iand(pack_tmp, mask_right(nbits))
18856  full_data(idata) = data_tmp
18857  pack_tmp = ishft(pack_tmp, -nbits)
18858  idata = idata + 1
18859  data_tmp = ishft(pack_tmp, 4)
18860  ipack = ipack + 1
18861  pack_tmp = packed_data(ipack)
18862  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
18863  pack_tmp = ishft(pack_tmp, -4)
18864  idata = idata + 1
18865  data_tmp = iand(pack_tmp, mask_right(nbits))
18866  full_data(idata) = data_tmp
18867  pack_tmp = ishft(pack_tmp, -nbits)
18868  idata = idata + 1
18869  data_tmp = iand(pack_tmp, mask_right(nbits))
18870  full_data(idata) = data_tmp
18871  pack_tmp = ishft(pack_tmp, -nbits)
18872  idata = idata + 1
18873  data_tmp = ishft(pack_tmp, 18)
18874  ipack = ipack + 1
18875  pack_tmp = packed_data(ipack)
18876  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
18877  pack_tmp = ishft(pack_tmp, -18)
18878  idata = idata + 1
18879  data_tmp = iand(pack_tmp, mask_right(nbits))
18880  full_data(idata) = data_tmp
18881  pack_tmp = ishft(pack_tmp, -nbits)
18882  idata = idata + 1
18883  data_tmp = ishft(pack_tmp, 6)
18884  ipack = ipack + 1
18885  pack_tmp = packed_data(ipack)
18886  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
18887  pack_tmp = ishft(pack_tmp, -6)
18888  idata = idata + 1
18889  data_tmp = iand(pack_tmp, mask_right(nbits))
18890  full_data(idata) = data_tmp
18891  pack_tmp = ishft(pack_tmp, -nbits)
18892  idata = idata + 1
18893  data_tmp = iand(pack_tmp, mask_right(nbits))
18894  full_data(idata) = data_tmp
18895  pack_tmp = ishft(pack_tmp, -nbits)
18896  idata = idata + 1
18897  data_tmp = ishft(pack_tmp, 20)
18898  ipack = ipack + 1
18899  pack_tmp = packed_data(ipack)
18900  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
18901  pack_tmp = ishft(pack_tmp, -20)
18902  idata = idata + 1
18903  data_tmp = iand(pack_tmp, mask_right(nbits))
18904  full_data(idata) = data_tmp
18905  pack_tmp = ishft(pack_tmp, -nbits)
18906  idata = idata + 1
18907  data_tmp = ishft(pack_tmp, 8)
18908  ipack = ipack + 1
18909  pack_tmp = packed_data(ipack)
18910  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
18911  pack_tmp = ishft(pack_tmp, -8)
18912  idata = idata + 1
18913  data_tmp = iand(pack_tmp, mask_right(nbits))
18914  full_data(idata) = data_tmp
18915  pack_tmp = ishft(pack_tmp, -nbits)
18916  idata = idata + 1
18917  data_tmp = iand(pack_tmp, mask_right(nbits))
18918  full_data(idata) = data_tmp
18919  pack_tmp = ishft(pack_tmp, -nbits)
18920  idata = idata + 1
18921  data_tmp = ishft(pack_tmp, 22)
18922  ipack = ipack + 1
18923  pack_tmp = packed_data(ipack)
18924  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
18925  pack_tmp = ishft(pack_tmp, -22)
18926  idata = idata + 1
18927  data_tmp = iand(pack_tmp, mask_right(nbits))
18928  full_data(idata) = data_tmp
18929  pack_tmp = ishft(pack_tmp, -nbits)
18930  idata = idata + 1
18931  data_tmp = ishft(pack_tmp, 10)
18932  ipack = ipack + 1
18933  pack_tmp = packed_data(ipack)
18934  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
18935  pack_tmp = ishft(pack_tmp, -10)
18936  idata = idata + 1
18937  data_tmp = iand(pack_tmp, mask_right(nbits))
18938  full_data(idata) = data_tmp
18939  pack_tmp = ishft(pack_tmp, -nbits)
18940  idata = idata + 1
18941  data_tmp = iand(pack_tmp, mask_right(nbits))
18942  full_data(idata) = data_tmp
18943  pack_tmp = ishft(pack_tmp, -nbits)
18944  idata = idata + 1
18945  data_tmp = ishft(pack_tmp, 24)
18946  ipack = ipack + 1
18947  pack_tmp = packed_data(ipack)
18948  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
18949  pack_tmp = ishft(pack_tmp, -24)
18950  idata = idata + 1
18951  data_tmp = iand(pack_tmp, mask_right(nbits))
18952  full_data(idata) = data_tmp
18953  pack_tmp = ishft(pack_tmp, -nbits)
18954  idata = idata + 1
18955  data_tmp = ishft(pack_tmp, 12)
18956  ipack = ipack + 1
18957  pack_tmp = packed_data(ipack)
18958  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
18959  pack_tmp = ishft(pack_tmp, -12)
18960  idata = idata + 1
18961  data_tmp = iand(pack_tmp, mask_right(nbits))
18962  full_data(idata) = data_tmp
18963  pack_tmp = ishft(pack_tmp, -nbits)
18964  idata = idata + 1
18965  data_tmp = iand(pack_tmp, mask_right(nbits))
18966  full_data(idata) = data_tmp
18967  pack_tmp = ishft(pack_tmp, -nbits)
18968  END DO
18969  IF (ndata_rep < ndata) THEN
18970  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
18971  END IF
18972  END SUBROUTINE bits2ints_26
18973 
18974 ! **************************************************************************************************
18975 !> \brief ...
18976 !> \param Ndata ...
18977 !> \param packed_data ...
18978 !> \param full_data ...
18979 ! **************************************************************************************************
18980  SUBROUTINE ints2bits_27(Ndata, packed_data, full_data)
18981  INTEGER, INTENT(IN) :: Ndata
18982  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
18983  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
18984 
18985  INTEGER, PARAMETER :: Nbits = 27
18986 
18987  INTEGER :: idata, ipack, kdata, Ndata_rep
18988  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
18989 
18990  idata = 0
18991  ipack = 0
18992  ndata_rep = (ndata/64)*64
18993  DO kdata = 1, ndata_rep, 64
18994  pack_tmp = 0
18995  idata = idata + 1
18996  data_tmp = full_data(idata)
18997  data_tmp = ishft(data_tmp, 37)
18998  pack_tmp = ior(pack_tmp, data_tmp)
18999  pack_tmp = ishft(pack_tmp, -27)
19000  idata = idata + 1
19001  data_tmp = full_data(idata)
19002  data_tmp = ishft(data_tmp, 37)
19003  pack_tmp = ior(pack_tmp, data_tmp)
19004  pack_tmp = ishft(pack_tmp, -10)
19005  idata = idata + 1
19006  data_tmp = full_data(idata)
19007  data_tmp = ishft(data_tmp, 37)
19008  data_tmp = iand(data_tmp, mask_left(10))
19009  pack_tmp = ior(pack_tmp, data_tmp)
19010  ipack = ipack + 1
19011  packed_data(ipack) = pack_tmp
19012  data_tmp = full_data(idata)
19013  pack_tmp = ishft(data_tmp, 47)
19014  pack_tmp = ishft(pack_tmp, -27)
19015  idata = idata + 1
19016  data_tmp = full_data(idata)
19017  data_tmp = ishft(data_tmp, 37)
19018  pack_tmp = ior(pack_tmp, data_tmp)
19019  pack_tmp = ishft(pack_tmp, -20)
19020  idata = idata + 1
19021  data_tmp = full_data(idata)
19022  data_tmp = ishft(data_tmp, 37)
19023  data_tmp = iand(data_tmp, mask_left(20))
19024  pack_tmp = ior(pack_tmp, data_tmp)
19025  ipack = ipack + 1
19026  packed_data(ipack) = pack_tmp
19027  data_tmp = full_data(idata)
19028  pack_tmp = ishft(data_tmp, 57)
19029  pack_tmp = ishft(pack_tmp, -27)
19030  idata = idata + 1
19031  data_tmp = full_data(idata)
19032  data_tmp = ishft(data_tmp, 37)
19033  pack_tmp = ior(pack_tmp, data_tmp)
19034  pack_tmp = ishft(pack_tmp, -27)
19035  idata = idata + 1
19036  data_tmp = full_data(idata)
19037  data_tmp = ishft(data_tmp, 37)
19038  pack_tmp = ior(pack_tmp, data_tmp)
19039  pack_tmp = ishft(pack_tmp, -3)
19040  idata = idata + 1
19041  data_tmp = full_data(idata)
19042  data_tmp = ishft(data_tmp, 37)
19043  data_tmp = iand(data_tmp, mask_left(3))
19044  pack_tmp = ior(pack_tmp, data_tmp)
19045  ipack = ipack + 1
19046  packed_data(ipack) = pack_tmp
19047  data_tmp = full_data(idata)
19048  pack_tmp = ishft(data_tmp, 40)
19049  pack_tmp = ishft(pack_tmp, -27)
19050  idata = idata + 1
19051  data_tmp = full_data(idata)
19052  data_tmp = ishft(data_tmp, 37)
19053  pack_tmp = ior(pack_tmp, data_tmp)
19054  pack_tmp = ishft(pack_tmp, -13)
19055  idata = idata + 1
19056  data_tmp = full_data(idata)
19057  data_tmp = ishft(data_tmp, 37)
19058  data_tmp = iand(data_tmp, mask_left(13))
19059  pack_tmp = ior(pack_tmp, data_tmp)
19060  ipack = ipack + 1
19061  packed_data(ipack) = pack_tmp
19062  data_tmp = full_data(idata)
19063  pack_tmp = ishft(data_tmp, 50)
19064  pack_tmp = ishft(pack_tmp, -27)
19065  idata = idata + 1
19066  data_tmp = full_data(idata)
19067  data_tmp = ishft(data_tmp, 37)
19068  pack_tmp = ior(pack_tmp, data_tmp)
19069  pack_tmp = ishft(pack_tmp, -23)
19070  idata = idata + 1
19071  data_tmp = full_data(idata)
19072  data_tmp = ishft(data_tmp, 37)
19073  data_tmp = iand(data_tmp, mask_left(23))
19074  pack_tmp = ior(pack_tmp, data_tmp)
19075  ipack = ipack + 1
19076  packed_data(ipack) = pack_tmp
19077  data_tmp = full_data(idata)
19078  pack_tmp = ishft(data_tmp, 60)
19079  pack_tmp = ishft(pack_tmp, -27)
19080  idata = idata + 1
19081  data_tmp = full_data(idata)
19082  data_tmp = ishft(data_tmp, 37)
19083  pack_tmp = ior(pack_tmp, data_tmp)
19084  pack_tmp = ishft(pack_tmp, -27)
19085  idata = idata + 1
19086  data_tmp = full_data(idata)
19087  data_tmp = ishft(data_tmp, 37)
19088  pack_tmp = ior(pack_tmp, data_tmp)
19089  pack_tmp = ishft(pack_tmp, -6)
19090  idata = idata + 1
19091  data_tmp = full_data(idata)
19092  data_tmp = ishft(data_tmp, 37)
19093  data_tmp = iand(data_tmp, mask_left(6))
19094  pack_tmp = ior(pack_tmp, data_tmp)
19095  ipack = ipack + 1
19096  packed_data(ipack) = pack_tmp
19097  data_tmp = full_data(idata)
19098  pack_tmp = ishft(data_tmp, 43)
19099  pack_tmp = ishft(pack_tmp, -27)
19100  idata = idata + 1
19101  data_tmp = full_data(idata)
19102  data_tmp = ishft(data_tmp, 37)
19103  pack_tmp = ior(pack_tmp, data_tmp)
19104  pack_tmp = ishft(pack_tmp, -16)
19105  idata = idata + 1
19106  data_tmp = full_data(idata)
19107  data_tmp = ishft(data_tmp, 37)
19108  data_tmp = iand(data_tmp, mask_left(16))
19109  pack_tmp = ior(pack_tmp, data_tmp)
19110  ipack = ipack + 1
19111  packed_data(ipack) = pack_tmp
19112  data_tmp = full_data(idata)
19113  pack_tmp = ishft(data_tmp, 53)
19114  pack_tmp = ishft(pack_tmp, -27)
19115  idata = idata + 1
19116  data_tmp = full_data(idata)
19117  data_tmp = ishft(data_tmp, 37)
19118  pack_tmp = ior(pack_tmp, data_tmp)
19119  pack_tmp = ishft(pack_tmp, -26)
19120  idata = idata + 1
19121  data_tmp = full_data(idata)
19122  data_tmp = ishft(data_tmp, 37)
19123  data_tmp = iand(data_tmp, mask_left(26))
19124  pack_tmp = ior(pack_tmp, data_tmp)
19125  ipack = ipack + 1
19126  packed_data(ipack) = pack_tmp
19127  data_tmp = full_data(idata)
19128  pack_tmp = ishft(data_tmp, 63)
19129  pack_tmp = ishft(pack_tmp, -27)
19130  idata = idata + 1
19131  data_tmp = full_data(idata)
19132  data_tmp = ishft(data_tmp, 37)
19133  pack_tmp = ior(pack_tmp, data_tmp)
19134  pack_tmp = ishft(pack_tmp, -27)
19135  idata = idata + 1
19136  data_tmp = full_data(idata)
19137  data_tmp = ishft(data_tmp, 37)
19138  pack_tmp = ior(pack_tmp, data_tmp)
19139  pack_tmp = ishft(pack_tmp, -9)
19140  idata = idata + 1
19141  data_tmp = full_data(idata)
19142  data_tmp = ishft(data_tmp, 37)
19143  data_tmp = iand(data_tmp, mask_left(9))
19144  pack_tmp = ior(pack_tmp, data_tmp)
19145  ipack = ipack + 1
19146  packed_data(ipack) = pack_tmp
19147  data_tmp = full_data(idata)
19148  pack_tmp = ishft(data_tmp, 46)
19149  pack_tmp = ishft(pack_tmp, -27)
19150  idata = idata + 1
19151  data_tmp = full_data(idata)
19152  data_tmp = ishft(data_tmp, 37)
19153  pack_tmp = ior(pack_tmp, data_tmp)
19154  pack_tmp = ishft(pack_tmp, -19)
19155  idata = idata + 1
19156  data_tmp = full_data(idata)
19157  data_tmp = ishft(data_tmp, 37)
19158  data_tmp = iand(data_tmp, mask_left(19))
19159  pack_tmp = ior(pack_tmp, data_tmp)
19160  ipack = ipack + 1
19161  packed_data(ipack) = pack_tmp
19162  data_tmp = full_data(idata)
19163  pack_tmp = ishft(data_tmp, 56)
19164  pack_tmp = ishft(pack_tmp, -27)
19165  idata = idata + 1
19166  data_tmp = full_data(idata)
19167  data_tmp = ishft(data_tmp, 37)
19168  pack_tmp = ior(pack_tmp, data_tmp)
19169  pack_tmp = ishft(pack_tmp, -27)
19170  idata = idata + 1
19171  data_tmp = full_data(idata)
19172  data_tmp = ishft(data_tmp, 37)
19173  pack_tmp = ior(pack_tmp, data_tmp)
19174  pack_tmp = ishft(pack_tmp, -2)
19175  idata = idata + 1
19176  data_tmp = full_data(idata)
19177  data_tmp = ishft(data_tmp, 37)
19178  data_tmp = iand(data_tmp, mask_left(2))
19179  pack_tmp = ior(pack_tmp, data_tmp)
19180  ipack = ipack + 1
19181  packed_data(ipack) = pack_tmp
19182  data_tmp = full_data(idata)
19183  pack_tmp = ishft(data_tmp, 39)
19184  pack_tmp = ishft(pack_tmp, -27)
19185  idata = idata + 1
19186  data_tmp = full_data(idata)
19187  data_tmp = ishft(data_tmp, 37)
19188  pack_tmp = ior(pack_tmp, data_tmp)
19189  pack_tmp = ishft(pack_tmp, -12)
19190  idata = idata + 1
19191  data_tmp = full_data(idata)
19192  data_tmp = ishft(data_tmp, 37)
19193  data_tmp = iand(data_tmp, mask_left(12))
19194  pack_tmp = ior(pack_tmp, data_tmp)
19195  ipack = ipack + 1
19196  packed_data(ipack) = pack_tmp
19197  data_tmp = full_data(idata)
19198  pack_tmp = ishft(data_tmp, 49)
19199  pack_tmp = ishft(pack_tmp, -27)
19200  idata = idata + 1
19201  data_tmp = full_data(idata)
19202  data_tmp = ishft(data_tmp, 37)
19203  pack_tmp = ior(pack_tmp, data_tmp)
19204  pack_tmp = ishft(pack_tmp, -22)
19205  idata = idata + 1
19206  data_tmp = full_data(idata)
19207  data_tmp = ishft(data_tmp, 37)
19208  data_tmp = iand(data_tmp, mask_left(22))
19209  pack_tmp = ior(pack_tmp, data_tmp)
19210  ipack = ipack + 1
19211  packed_data(ipack) = pack_tmp
19212  data_tmp = full_data(idata)
19213  pack_tmp = ishft(data_tmp, 59)
19214  pack_tmp = ishft(pack_tmp, -27)
19215  idata = idata + 1
19216  data_tmp = full_data(idata)
19217  data_tmp = ishft(data_tmp, 37)
19218  pack_tmp = ior(pack_tmp, data_tmp)
19219  pack_tmp = ishft(pack_tmp, -27)
19220  idata = idata + 1
19221  data_tmp = full_data(idata)
19222  data_tmp = ishft(data_tmp, 37)
19223  pack_tmp = ior(pack_tmp, data_tmp)
19224  pack_tmp = ishft(pack_tmp, -5)
19225  idata = idata + 1
19226  data_tmp = full_data(idata)
19227  data_tmp = ishft(data_tmp, 37)
19228  data_tmp = iand(data_tmp, mask_left(5))
19229  pack_tmp = ior(pack_tmp, data_tmp)
19230  ipack = ipack + 1
19231  packed_data(ipack) = pack_tmp
19232  data_tmp = full_data(idata)
19233  pack_tmp = ishft(data_tmp, 42)
19234  pack_tmp = ishft(pack_tmp, -27)
19235  idata = idata + 1
19236  data_tmp = full_data(idata)
19237  data_tmp = ishft(data_tmp, 37)
19238  pack_tmp = ior(pack_tmp, data_tmp)
19239  pack_tmp = ishft(pack_tmp, -15)
19240  idata = idata + 1
19241  data_tmp = full_data(idata)
19242  data_tmp = ishft(data_tmp, 37)
19243  data_tmp = iand(data_tmp, mask_left(15))
19244  pack_tmp = ior(pack_tmp, data_tmp)
19245  ipack = ipack + 1
19246  packed_data(ipack) = pack_tmp
19247  data_tmp = full_data(idata)
19248  pack_tmp = ishft(data_tmp, 52)
19249  pack_tmp = ishft(pack_tmp, -27)
19250  idata = idata + 1
19251  data_tmp = full_data(idata)
19252  data_tmp = ishft(data_tmp, 37)
19253  pack_tmp = ior(pack_tmp, data_tmp)
19254  pack_tmp = ishft(pack_tmp, -25)
19255  idata = idata + 1
19256  data_tmp = full_data(idata)
19257  data_tmp = ishft(data_tmp, 37)
19258  data_tmp = iand(data_tmp, mask_left(25))
19259  pack_tmp = ior(pack_tmp, data_tmp)
19260  ipack = ipack + 1
19261  packed_data(ipack) = pack_tmp
19262  data_tmp = full_data(idata)
19263  pack_tmp = ishft(data_tmp, 62)
19264  pack_tmp = ishft(pack_tmp, -27)
19265  idata = idata + 1
19266  data_tmp = full_data(idata)
19267  data_tmp = ishft(data_tmp, 37)
19268  pack_tmp = ior(pack_tmp, data_tmp)
19269  pack_tmp = ishft(pack_tmp, -27)
19270  idata = idata + 1
19271  data_tmp = full_data(idata)
19272  data_tmp = ishft(data_tmp, 37)
19273  pack_tmp = ior(pack_tmp, data_tmp)
19274  pack_tmp = ishft(pack_tmp, -8)
19275  idata = idata + 1
19276  data_tmp = full_data(idata)
19277  data_tmp = ishft(data_tmp, 37)
19278  data_tmp = iand(data_tmp, mask_left(8))
19279  pack_tmp = ior(pack_tmp, data_tmp)
19280  ipack = ipack + 1
19281  packed_data(ipack) = pack_tmp
19282  data_tmp = full_data(idata)
19283  pack_tmp = ishft(data_tmp, 45)
19284  pack_tmp = ishft(pack_tmp, -27)
19285  idata = idata + 1
19286  data_tmp = full_data(idata)
19287  data_tmp = ishft(data_tmp, 37)
19288  pack_tmp = ior(pack_tmp, data_tmp)
19289  pack_tmp = ishft(pack_tmp, -18)
19290  idata = idata + 1
19291  data_tmp = full_data(idata)
19292  data_tmp = ishft(data_tmp, 37)
19293  data_tmp = iand(data_tmp, mask_left(18))
19294  pack_tmp = ior(pack_tmp, data_tmp)
19295  ipack = ipack + 1
19296  packed_data(ipack) = pack_tmp
19297  data_tmp = full_data(idata)
19298  pack_tmp = ishft(data_tmp, 55)
19299  pack_tmp = ishft(pack_tmp, -27)
19300  idata = idata + 1
19301  data_tmp = full_data(idata)
19302  data_tmp = ishft(data_tmp, 37)
19303  pack_tmp = ior(pack_tmp, data_tmp)
19304  pack_tmp = ishft(pack_tmp, -27)
19305  idata = idata + 1
19306  data_tmp = full_data(idata)
19307  data_tmp = ishft(data_tmp, 37)
19308  pack_tmp = ior(pack_tmp, data_tmp)
19309  pack_tmp = ishft(pack_tmp, -1)
19310  idata = idata + 1
19311  data_tmp = full_data(idata)
19312  data_tmp = ishft(data_tmp, 37)
19313  data_tmp = iand(data_tmp, mask_left(1))
19314  pack_tmp = ior(pack_tmp, data_tmp)
19315  ipack = ipack + 1
19316  packed_data(ipack) = pack_tmp
19317  data_tmp = full_data(idata)
19318  pack_tmp = ishft(data_tmp, 38)
19319  pack_tmp = ishft(pack_tmp, -27)
19320  idata = idata + 1
19321  data_tmp = full_data(idata)
19322  data_tmp = ishft(data_tmp, 37)
19323  pack_tmp = ior(pack_tmp, data_tmp)
19324  pack_tmp = ishft(pack_tmp, -11)
19325  idata = idata + 1
19326  data_tmp = full_data(idata)
19327  data_tmp = ishft(data_tmp, 37)
19328  data_tmp = iand(data_tmp, mask_left(11))
19329  pack_tmp = ior(pack_tmp, data_tmp)
19330  ipack = ipack + 1
19331  packed_data(ipack) = pack_tmp
19332  data_tmp = full_data(idata)
19333  pack_tmp = ishft(data_tmp, 48)
19334  pack_tmp = ishft(pack_tmp, -27)
19335  idata = idata + 1
19336  data_tmp = full_data(idata)
19337  data_tmp = ishft(data_tmp, 37)
19338  pack_tmp = ior(pack_tmp, data_tmp)
19339  pack_tmp = ishft(pack_tmp, -21)
19340  idata = idata + 1
19341  data_tmp = full_data(idata)
19342  data_tmp = ishft(data_tmp, 37)
19343  data_tmp = iand(data_tmp, mask_left(21))
19344  pack_tmp = ior(pack_tmp, data_tmp)
19345  ipack = ipack + 1
19346  packed_data(ipack) = pack_tmp
19347  data_tmp = full_data(idata)
19348  pack_tmp = ishft(data_tmp, 58)
19349  pack_tmp = ishft(pack_tmp, -27)
19350  idata = idata + 1
19351  data_tmp = full_data(idata)
19352  data_tmp = ishft(data_tmp, 37)
19353  pack_tmp = ior(pack_tmp, data_tmp)
19354  pack_tmp = ishft(pack_tmp, -27)
19355  idata = idata + 1
19356  data_tmp = full_data(idata)
19357  data_tmp = ishft(data_tmp, 37)
19358  pack_tmp = ior(pack_tmp, data_tmp)
19359  pack_tmp = ishft(pack_tmp, -4)
19360  idata = idata + 1
19361  data_tmp = full_data(idata)
19362  data_tmp = ishft(data_tmp, 37)
19363  data_tmp = iand(data_tmp, mask_left(4))
19364  pack_tmp = ior(pack_tmp, data_tmp)
19365  ipack = ipack + 1
19366  packed_data(ipack) = pack_tmp
19367  data_tmp = full_data(idata)
19368  pack_tmp = ishft(data_tmp, 41)
19369  pack_tmp = ishft(pack_tmp, -27)
19370  idata = idata + 1
19371  data_tmp = full_data(idata)
19372  data_tmp = ishft(data_tmp, 37)
19373  pack_tmp = ior(pack_tmp, data_tmp)
19374  pack_tmp = ishft(pack_tmp, -14)
19375  idata = idata + 1
19376  data_tmp = full_data(idata)
19377  data_tmp = ishft(data_tmp, 37)
19378  data_tmp = iand(data_tmp, mask_left(14))
19379  pack_tmp = ior(pack_tmp, data_tmp)
19380  ipack = ipack + 1
19381  packed_data(ipack) = pack_tmp
19382  data_tmp = full_data(idata)
19383  pack_tmp = ishft(data_tmp, 51)
19384  pack_tmp = ishft(pack_tmp, -27)
19385  idata = idata + 1
19386  data_tmp = full_data(idata)
19387  data_tmp = ishft(data_tmp, 37)
19388  pack_tmp = ior(pack_tmp, data_tmp)
19389  pack_tmp = ishft(pack_tmp, -24)
19390  idata = idata + 1
19391  data_tmp = full_data(idata)
19392  data_tmp = ishft(data_tmp, 37)
19393  data_tmp = iand(data_tmp, mask_left(24))
19394  pack_tmp = ior(pack_tmp, data_tmp)
19395  ipack = ipack + 1
19396  packed_data(ipack) = pack_tmp
19397  data_tmp = full_data(idata)
19398  pack_tmp = ishft(data_tmp, 61)
19399  pack_tmp = ishft(pack_tmp, -27)
19400  idata = idata + 1
19401  data_tmp = full_data(idata)
19402  data_tmp = ishft(data_tmp, 37)
19403  pack_tmp = ior(pack_tmp, data_tmp)
19404  pack_tmp = ishft(pack_tmp, -27)
19405  idata = idata + 1
19406  data_tmp = full_data(idata)
19407  data_tmp = ishft(data_tmp, 37)
19408  pack_tmp = ior(pack_tmp, data_tmp)
19409  pack_tmp = ishft(pack_tmp, -7)
19410  idata = idata + 1
19411  data_tmp = full_data(idata)
19412  data_tmp = ishft(data_tmp, 37)
19413  data_tmp = iand(data_tmp, mask_left(7))
19414  pack_tmp = ior(pack_tmp, data_tmp)
19415  ipack = ipack + 1
19416  packed_data(ipack) = pack_tmp
19417  data_tmp = full_data(idata)
19418  pack_tmp = ishft(data_tmp, 44)
19419  pack_tmp = ishft(pack_tmp, -27)
19420  idata = idata + 1
19421  data_tmp = full_data(idata)
19422  data_tmp = ishft(data_tmp, 37)
19423  pack_tmp = ior(pack_tmp, data_tmp)
19424  pack_tmp = ishft(pack_tmp, -17)
19425  idata = idata + 1
19426  data_tmp = full_data(idata)
19427  data_tmp = ishft(data_tmp, 37)
19428  data_tmp = iand(data_tmp, mask_left(17))
19429  pack_tmp = ior(pack_tmp, data_tmp)
19430  ipack = ipack + 1
19431  packed_data(ipack) = pack_tmp
19432  data_tmp = full_data(idata)
19433  pack_tmp = ishft(data_tmp, 54)
19434  pack_tmp = ishft(pack_tmp, -27)
19435  idata = idata + 1
19436  data_tmp = full_data(idata)
19437  data_tmp = ishft(data_tmp, 37)
19438  pack_tmp = ior(pack_tmp, data_tmp)
19439  pack_tmp = ishft(pack_tmp, -27)
19440  idata = idata + 1
19441  data_tmp = full_data(idata)
19442  data_tmp = ishft(data_tmp, 37)
19443  pack_tmp = ior(pack_tmp, data_tmp)
19444  pack_tmp = ishft(pack_tmp, 0)
19445  pack_tmp = ishft(pack_tmp, 0)
19446  ipack = ipack + 1
19447  packed_data(ipack) = pack_tmp
19448  END DO
19449  IF (ndata_rep < ndata) THEN
19450  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
19451  END IF
19452  END SUBROUTINE ints2bits_27
19453 
19454 ! **************************************************************************************************
19455 !> \brief ...
19456 !> \param Ndata ...
19457 !> \param packed_data ...
19458 !> \param full_data ...
19459 ! **************************************************************************************************
19460  SUBROUTINE bits2ints_27(Ndata, packed_data, full_data)
19461  INTEGER, INTENT(IN) :: Ndata
19462  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
19463  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
19464 
19465  INTEGER, PARAMETER :: Nbits = 27
19466 
19467  INTEGER :: idata, ipack, kdata, Ndata_rep
19468  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
19469 
19470  ipack = 0
19471  idata = 0
19472  pack_tmp = 0
19473  ndata_rep = (ndata/64)*64
19474  DO kdata = 1, ndata_rep, 64
19475  idata = idata + 1
19476  data_tmp = ishft(pack_tmp, 27)
19477  ipack = ipack + 1
19478  pack_tmp = packed_data(ipack)
19479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
19480  pack_tmp = ishft(pack_tmp, -27)
19481  idata = idata + 1
19482  data_tmp = iand(pack_tmp, mask_right(nbits))
19483  full_data(idata) = data_tmp
19484  pack_tmp = ishft(pack_tmp, -nbits)
19485  idata = idata + 1
19486  data_tmp = ishft(pack_tmp, 17)
19487  ipack = ipack + 1
19488  pack_tmp = packed_data(ipack)
19489  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
19490  pack_tmp = ishft(pack_tmp, -17)
19491  idata = idata + 1
19492  data_tmp = iand(pack_tmp, mask_right(nbits))
19493  full_data(idata) = data_tmp
19494  pack_tmp = ishft(pack_tmp, -nbits)
19495  idata = idata + 1
19496  data_tmp = ishft(pack_tmp, 7)
19497  ipack = ipack + 1
19498  pack_tmp = packed_data(ipack)
19499  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
19500  pack_tmp = ishft(pack_tmp, -7)
19501  idata = idata + 1
19502  data_tmp = iand(pack_tmp, mask_right(nbits))
19503  full_data(idata) = data_tmp
19504  pack_tmp = ishft(pack_tmp, -nbits)
19505  idata = idata + 1
19506  data_tmp = iand(pack_tmp, mask_right(nbits))
19507  full_data(idata) = data_tmp
19508  pack_tmp = ishft(pack_tmp, -nbits)
19509  idata = idata + 1
19510  data_tmp = ishft(pack_tmp, 24)
19511  ipack = ipack + 1
19512  pack_tmp = packed_data(ipack)
19513  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
19514  pack_tmp = ishft(pack_tmp, -24)
19515  idata = idata + 1
19516  data_tmp = iand(pack_tmp, mask_right(nbits))
19517  full_data(idata) = data_tmp
19518  pack_tmp = ishft(pack_tmp, -nbits)
19519  idata = idata + 1
19520  data_tmp = ishft(pack_tmp, 14)
19521  ipack = ipack + 1
19522  pack_tmp = packed_data(ipack)
19523  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
19524  pack_tmp = ishft(pack_tmp, -14)
19525  idata = idata + 1
19526  data_tmp = iand(pack_tmp, mask_right(nbits))
19527  full_data(idata) = data_tmp
19528  pack_tmp = ishft(pack_tmp, -nbits)
19529  idata = idata + 1
19530  data_tmp = ishft(pack_tmp, 4)
19531  ipack = ipack + 1
19532  pack_tmp = packed_data(ipack)
19533  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
19534  pack_tmp = ishft(pack_tmp, -4)
19535  idata = idata + 1
19536  data_tmp = iand(pack_tmp, mask_right(nbits))
19537  full_data(idata) = data_tmp
19538  pack_tmp = ishft(pack_tmp, -nbits)
19539  idata = idata + 1
19540  data_tmp = iand(pack_tmp, mask_right(nbits))
19541  full_data(idata) = data_tmp
19542  pack_tmp = ishft(pack_tmp, -nbits)
19543  idata = idata + 1
19544  data_tmp = ishft(pack_tmp, 21)
19545  ipack = ipack + 1
19546  pack_tmp = packed_data(ipack)
19547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
19548  pack_tmp = ishft(pack_tmp, -21)
19549  idata = idata + 1
19550  data_tmp = iand(pack_tmp, mask_right(nbits))
19551  full_data(idata) = data_tmp
19552  pack_tmp = ishft(pack_tmp, -nbits)
19553  idata = idata + 1
19554  data_tmp = ishft(pack_tmp, 11)
19555  ipack = ipack + 1
19556  pack_tmp = packed_data(ipack)
19557  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
19558  pack_tmp = ishft(pack_tmp, -11)
19559  idata = idata + 1
19560  data_tmp = iand(pack_tmp, mask_right(nbits))
19561  full_data(idata) = data_tmp
19562  pack_tmp = ishft(pack_tmp, -nbits)
19563  idata = idata + 1
19564  data_tmp = ishft(pack_tmp, 1)
19565  ipack = ipack + 1
19566  pack_tmp = packed_data(ipack)
19567  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
19568  pack_tmp = ishft(pack_tmp, -1)
19569  idata = idata + 1
19570  data_tmp = iand(pack_tmp, mask_right(nbits))
19571  full_data(idata) = data_tmp
19572  pack_tmp = ishft(pack_tmp, -nbits)
19573  idata = idata + 1
19574  data_tmp = iand(pack_tmp, mask_right(nbits))
19575  full_data(idata) = data_tmp
19576  pack_tmp = ishft(pack_tmp, -nbits)
19577  idata = idata + 1
19578  data_tmp = ishft(pack_tmp, 18)
19579  ipack = ipack + 1
19580  pack_tmp = packed_data(ipack)
19581  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
19582  pack_tmp = ishft(pack_tmp, -18)
19583  idata = idata + 1
19584  data_tmp = iand(pack_tmp, mask_right(nbits))
19585  full_data(idata) = data_tmp
19586  pack_tmp = ishft(pack_tmp, -nbits)
19587  idata = idata + 1
19588  data_tmp = ishft(pack_tmp, 8)
19589  ipack = ipack + 1
19590  pack_tmp = packed_data(ipack)
19591  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
19592  pack_tmp = ishft(pack_tmp, -8)
19593  idata = idata + 1
19594  data_tmp = iand(pack_tmp, mask_right(nbits))
19595  full_data(idata) = data_tmp
19596  pack_tmp = ishft(pack_tmp, -nbits)
19597  idata = idata + 1
19598  data_tmp = iand(pack_tmp, mask_right(nbits))
19599  full_data(idata) = data_tmp
19600  pack_tmp = ishft(pack_tmp, -nbits)
19601  idata = idata + 1
19602  data_tmp = ishft(pack_tmp, 25)
19603  ipack = ipack + 1
19604  pack_tmp = packed_data(ipack)
19605  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
19606  pack_tmp = ishft(pack_tmp, -25)
19607  idata = idata + 1
19608  data_tmp = iand(pack_tmp, mask_right(nbits))
19609  full_data(idata) = data_tmp
19610  pack_tmp = ishft(pack_tmp, -nbits)
19611  idata = idata + 1
19612  data_tmp = ishft(pack_tmp, 15)
19613  ipack = ipack + 1
19614  pack_tmp = packed_data(ipack)
19615  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
19616  pack_tmp = ishft(pack_tmp, -15)
19617  idata = idata + 1
19618  data_tmp = iand(pack_tmp, mask_right(nbits))
19619  full_data(idata) = data_tmp
19620  pack_tmp = ishft(pack_tmp, -nbits)
19621  idata = idata + 1
19622  data_tmp = ishft(pack_tmp, 5)
19623  ipack = ipack + 1
19624  pack_tmp = packed_data(ipack)
19625  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
19626  pack_tmp = ishft(pack_tmp, -5)
19627  idata = idata + 1
19628  data_tmp = iand(pack_tmp, mask_right(nbits))
19629  full_data(idata) = data_tmp
19630  pack_tmp = ishft(pack_tmp, -nbits)
19631  idata = idata + 1
19632  data_tmp = iand(pack_tmp, mask_right(nbits))
19633  full_data(idata) = data_tmp
19634  pack_tmp = ishft(pack_tmp, -nbits)
19635  idata = idata + 1
19636  data_tmp = ishft(pack_tmp, 22)
19637  ipack = ipack + 1
19638  pack_tmp = packed_data(ipack)
19639  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
19640  pack_tmp = ishft(pack_tmp, -22)
19641  idata = idata + 1
19642  data_tmp = iand(pack_tmp, mask_right(nbits))
19643  full_data(idata) = data_tmp
19644  pack_tmp = ishft(pack_tmp, -nbits)
19645  idata = idata + 1
19646  data_tmp = ishft(pack_tmp, 12)
19647  ipack = ipack + 1
19648  pack_tmp = packed_data(ipack)
19649  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
19650  pack_tmp = ishft(pack_tmp, -12)
19651  idata = idata + 1
19652  data_tmp = iand(pack_tmp, mask_right(nbits))
19653  full_data(idata) = data_tmp
19654  pack_tmp = ishft(pack_tmp, -nbits)
19655  idata = idata + 1
19656  data_tmp = ishft(pack_tmp, 2)
19657  ipack = ipack + 1
19658  pack_tmp = packed_data(ipack)
19659  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
19660  pack_tmp = ishft(pack_tmp, -2)
19661  idata = idata + 1
19662  data_tmp = iand(pack_tmp, mask_right(nbits))
19663  full_data(idata) = data_tmp
19664  pack_tmp = ishft(pack_tmp, -nbits)
19665  idata = idata + 1
19666  data_tmp = iand(pack_tmp, mask_right(nbits))
19667  full_data(idata) = data_tmp
19668  pack_tmp = ishft(pack_tmp, -nbits)
19669  idata = idata + 1
19670  data_tmp = ishft(pack_tmp, 19)
19671  ipack = ipack + 1
19672  pack_tmp = packed_data(ipack)
19673  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
19674  pack_tmp = ishft(pack_tmp, -19)
19675  idata = idata + 1
19676  data_tmp = iand(pack_tmp, mask_right(nbits))
19677  full_data(idata) = data_tmp
19678  pack_tmp = ishft(pack_tmp, -nbits)
19679  idata = idata + 1
19680  data_tmp = ishft(pack_tmp, 9)
19681  ipack = ipack + 1
19682  pack_tmp = packed_data(ipack)
19683  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
19684  pack_tmp = ishft(pack_tmp, -9)
19685  idata = idata + 1
19686  data_tmp = iand(pack_tmp, mask_right(nbits))
19687  full_data(idata) = data_tmp
19688  pack_tmp = ishft(pack_tmp, -nbits)
19689  idata = idata + 1
19690  data_tmp = iand(pack_tmp, mask_right(nbits))
19691  full_data(idata) = data_tmp
19692  pack_tmp = ishft(pack_tmp, -nbits)
19693  idata = idata + 1
19694  data_tmp = ishft(pack_tmp, 26)
19695  ipack = ipack + 1
19696  pack_tmp = packed_data(ipack)
19697  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
19698  pack_tmp = ishft(pack_tmp, -26)
19699  idata = idata + 1
19700  data_tmp = iand(pack_tmp, mask_right(nbits))
19701  full_data(idata) = data_tmp
19702  pack_tmp = ishft(pack_tmp, -nbits)
19703  idata = idata + 1
19704  data_tmp = ishft(pack_tmp, 16)
19705  ipack = ipack + 1
19706  pack_tmp = packed_data(ipack)
19707  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
19708  pack_tmp = ishft(pack_tmp, -16)
19709  idata = idata + 1
19710  data_tmp = iand(pack_tmp, mask_right(nbits))
19711  full_data(idata) = data_tmp
19712  pack_tmp = ishft(pack_tmp, -nbits)
19713  idata = idata + 1
19714  data_tmp = ishft(pack_tmp, 6)
19715  ipack = ipack + 1
19716  pack_tmp = packed_data(ipack)
19717  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
19718  pack_tmp = ishft(pack_tmp, -6)
19719  idata = idata + 1
19720  data_tmp = iand(pack_tmp, mask_right(nbits))
19721  full_data(idata) = data_tmp
19722  pack_tmp = ishft(pack_tmp, -nbits)
19723  idata = idata + 1
19724  data_tmp = iand(pack_tmp, mask_right(nbits))
19725  full_data(idata) = data_tmp
19726  pack_tmp = ishft(pack_tmp, -nbits)
19727  idata = idata + 1
19728  data_tmp = ishft(pack_tmp, 23)
19729  ipack = ipack + 1
19730  pack_tmp = packed_data(ipack)
19731  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
19732  pack_tmp = ishft(pack_tmp, -23)
19733  idata = idata + 1
19734  data_tmp = iand(pack_tmp, mask_right(nbits))
19735  full_data(idata) = data_tmp
19736  pack_tmp = ishft(pack_tmp, -nbits)
19737  idata = idata + 1
19738  data_tmp = ishft(pack_tmp, 13)
19739  ipack = ipack + 1
19740  pack_tmp = packed_data(ipack)
19741  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
19742  pack_tmp = ishft(pack_tmp, -13)
19743  idata = idata + 1
19744  data_tmp = iand(pack_tmp, mask_right(nbits))
19745  full_data(idata) = data_tmp
19746  pack_tmp = ishft(pack_tmp, -nbits)
19747  idata = idata + 1
19748  data_tmp = ishft(pack_tmp, 3)
19749  ipack = ipack + 1
19750  pack_tmp = packed_data(ipack)
19751  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
19752  pack_tmp = ishft(pack_tmp, -3)
19753  idata = idata + 1
19754  data_tmp = iand(pack_tmp, mask_right(nbits))
19755  full_data(idata) = data_tmp
19756  pack_tmp = ishft(pack_tmp, -nbits)
19757  idata = idata + 1
19758  data_tmp = iand(pack_tmp, mask_right(nbits))
19759  full_data(idata) = data_tmp
19760  pack_tmp = ishft(pack_tmp, -nbits)
19761  idata = idata + 1
19762  data_tmp = ishft(pack_tmp, 20)
19763  ipack = ipack + 1
19764  pack_tmp = packed_data(ipack)
19765  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
19766  pack_tmp = ishft(pack_tmp, -20)
19767  idata = idata + 1
19768  data_tmp = iand(pack_tmp, mask_right(nbits))
19769  full_data(idata) = data_tmp
19770  pack_tmp = ishft(pack_tmp, -nbits)
19771  idata = idata + 1
19772  data_tmp = ishft(pack_tmp, 10)
19773  ipack = ipack + 1
19774  pack_tmp = packed_data(ipack)
19775  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
19776  pack_tmp = ishft(pack_tmp, -10)
19777  idata = idata + 1
19778  data_tmp = iand(pack_tmp, mask_right(nbits))
19779  full_data(idata) = data_tmp
19780  pack_tmp = ishft(pack_tmp, -nbits)
19781  idata = idata + 1
19782  data_tmp = iand(pack_tmp, mask_right(nbits))
19783  full_data(idata) = data_tmp
19784  pack_tmp = ishft(pack_tmp, -nbits)
19785  END DO
19786  IF (ndata_rep < ndata) THEN
19787  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
19788  END IF
19789  END SUBROUTINE bits2ints_27
19790 
19791 ! **************************************************************************************************
19792 !> \brief ...
19793 !> \param Ndata ...
19794 !> \param packed_data ...
19795 !> \param full_data ...
19796 ! **************************************************************************************************
19797  SUBROUTINE ints2bits_28(Ndata, packed_data, full_data)
19798  INTEGER, INTENT(IN) :: Ndata
19799  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
19800  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
19801 
19802  INTEGER, PARAMETER :: Nbits = 28
19803 
19804  INTEGER :: idata, ipack, kdata, Ndata_rep
19805  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
19806 
19807  idata = 0
19808  ipack = 0
19809  ndata_rep = (ndata/64)*64
19810  DO kdata = 1, ndata_rep, 64
19811  pack_tmp = 0
19812  idata = idata + 1
19813  data_tmp = full_data(idata)
19814  data_tmp = ishft(data_tmp, 36)
19815  pack_tmp = ior(pack_tmp, data_tmp)
19816  pack_tmp = ishft(pack_tmp, -28)
19817  idata = idata + 1
19818  data_tmp = full_data(idata)
19819  data_tmp = ishft(data_tmp, 36)
19820  pack_tmp = ior(pack_tmp, data_tmp)
19821  pack_tmp = ishft(pack_tmp, -8)
19822  idata = idata + 1
19823  data_tmp = full_data(idata)
19824  data_tmp = ishft(data_tmp, 36)
19825  data_tmp = iand(data_tmp, mask_left(8))
19826  pack_tmp = ior(pack_tmp, data_tmp)
19827  ipack = ipack + 1
19828  packed_data(ipack) = pack_tmp
19829  data_tmp = full_data(idata)
19830  pack_tmp = ishft(data_tmp, 44)
19831  pack_tmp = ishft(pack_tmp, -28)
19832  idata = idata + 1
19833  data_tmp = full_data(idata)
19834  data_tmp = ishft(data_tmp, 36)
19835  pack_tmp = ior(pack_tmp, data_tmp)
19836  pack_tmp = ishft(pack_tmp, -16)
19837  idata = idata + 1
19838  data_tmp = full_data(idata)
19839  data_tmp = ishft(data_tmp, 36)
19840  data_tmp = iand(data_tmp, mask_left(16))
19841  pack_tmp = ior(pack_tmp, data_tmp)
19842  ipack = ipack + 1
19843  packed_data(ipack) = pack_tmp
19844  data_tmp = full_data(idata)
19845  pack_tmp = ishft(data_tmp, 52)
19846  pack_tmp = ishft(pack_tmp, -28)
19847  idata = idata + 1
19848  data_tmp = full_data(idata)
19849  data_tmp = ishft(data_tmp, 36)
19850  pack_tmp = ior(pack_tmp, data_tmp)
19851  pack_tmp = ishft(pack_tmp, -24)
19852  idata = idata + 1
19853  data_tmp = full_data(idata)
19854  data_tmp = ishft(data_tmp, 36)
19855  data_tmp = iand(data_tmp, mask_left(24))
19856  pack_tmp = ior(pack_tmp, data_tmp)
19857  ipack = ipack + 1
19858  packed_data(ipack) = pack_tmp
19859  data_tmp = full_data(idata)
19860  pack_tmp = ishft(data_tmp, 60)
19861  pack_tmp = ishft(pack_tmp, -28)
19862  idata = idata + 1
19863  data_tmp = full_data(idata)
19864  data_tmp = ishft(data_tmp, 36)
19865  pack_tmp = ior(pack_tmp, data_tmp)
19866  pack_tmp = ishft(pack_tmp, -28)
19867  idata = idata + 1
19868  data_tmp = full_data(idata)
19869  data_tmp = ishft(data_tmp, 36)
19870  pack_tmp = ior(pack_tmp, data_tmp)
19871  pack_tmp = ishft(pack_tmp, -4)
19872  idata = idata + 1
19873  data_tmp = full_data(idata)
19874  data_tmp = ishft(data_tmp, 36)
19875  data_tmp = iand(data_tmp, mask_left(4))
19876  pack_tmp = ior(pack_tmp, data_tmp)
19877  ipack = ipack + 1
19878  packed_data(ipack) = pack_tmp
19879  data_tmp = full_data(idata)
19880  pack_tmp = ishft(data_tmp, 40)
19881  pack_tmp = ishft(pack_tmp, -28)
19882  idata = idata + 1
19883  data_tmp = full_data(idata)
19884  data_tmp = ishft(data_tmp, 36)
19885  pack_tmp = ior(pack_tmp, data_tmp)
19886  pack_tmp = ishft(pack_tmp, -12)
19887  idata = idata + 1
19888  data_tmp = full_data(idata)
19889  data_tmp = ishft(data_tmp, 36)
19890  data_tmp = iand(data_tmp, mask_left(12))
19891  pack_tmp = ior(pack_tmp, data_tmp)
19892  ipack = ipack + 1
19893  packed_data(ipack) = pack_tmp
19894  data_tmp = full_data(idata)
19895  pack_tmp = ishft(data_tmp, 48)
19896  pack_tmp = ishft(pack_tmp, -28)
19897  idata = idata + 1
19898  data_tmp = full_data(idata)
19899  data_tmp = ishft(data_tmp, 36)
19900  pack_tmp = ior(pack_tmp, data_tmp)
19901  pack_tmp = ishft(pack_tmp, -20)
19902  idata = idata + 1
19903  data_tmp = full_data(idata)
19904  data_tmp = ishft(data_tmp, 36)
19905  data_tmp = iand(data_tmp, mask_left(20))
19906  pack_tmp = ior(pack_tmp, data_tmp)
19907  ipack = ipack + 1
19908  packed_data(ipack) = pack_tmp
19909  data_tmp = full_data(idata)
19910  pack_tmp = ishft(data_tmp, 56)
19911  pack_tmp = ishft(pack_tmp, -28)
19912  idata = idata + 1
19913  data_tmp = full_data(idata)
19914  data_tmp = ishft(data_tmp, 36)
19915  pack_tmp = ior(pack_tmp, data_tmp)
19916  pack_tmp = ishft(pack_tmp, -28)
19917  idata = idata + 1
19918  data_tmp = full_data(idata)
19919  data_tmp = ishft(data_tmp, 36)
19920  pack_tmp = ior(pack_tmp, data_tmp)
19921  pack_tmp = ishft(pack_tmp, 0)
19922  idata = idata + 1
19923  data_tmp = full_data(idata)
19924  data_tmp = ishft(data_tmp, 36)
19925  data_tmp = iand(data_tmp, mask_left(0))
19926  pack_tmp = ior(pack_tmp, data_tmp)
19927  ipack = ipack + 1
19928  packed_data(ipack) = pack_tmp
19929  data_tmp = full_data(idata)
19930  pack_tmp = ishft(data_tmp, 36)
19931  pack_tmp = ishft(pack_tmp, -28)
19932  idata = idata + 1
19933  data_tmp = full_data(idata)
19934  data_tmp = ishft(data_tmp, 36)
19935  pack_tmp = ior(pack_tmp, data_tmp)
19936  pack_tmp = ishft(pack_tmp, -8)
19937  idata = idata + 1
19938  data_tmp = full_data(idata)
19939  data_tmp = ishft(data_tmp, 36)
19940  data_tmp = iand(data_tmp, mask_left(8))
19941  pack_tmp = ior(pack_tmp, data_tmp)
19942  ipack = ipack + 1
19943  packed_data(ipack) = pack_tmp
19944  data_tmp = full_data(idata)
19945  pack_tmp = ishft(data_tmp, 44)
19946  pack_tmp = ishft(pack_tmp, -28)
19947  idata = idata + 1
19948  data_tmp = full_data(idata)
19949  data_tmp = ishft(data_tmp, 36)
19950  pack_tmp = ior(pack_tmp, data_tmp)
19951  pack_tmp = ishft(pack_tmp, -16)
19952  idata = idata + 1
19953  data_tmp = full_data(idata)
19954  data_tmp = ishft(data_tmp, 36)
19955  data_tmp = iand(data_tmp, mask_left(16))
19956  pack_tmp = ior(pack_tmp, data_tmp)
19957  ipack = ipack + 1
19958  packed_data(ipack) = pack_tmp
19959  data_tmp = full_data(idata)
19960  pack_tmp = ishft(data_tmp, 52)
19961  pack_tmp = ishft(pack_tmp, -28)
19962  idata = idata + 1
19963  data_tmp = full_data(idata)
19964  data_tmp = ishft(data_tmp, 36)
19965  pack_tmp = ior(pack_tmp, data_tmp)
19966  pack_tmp = ishft(pack_tmp, -24)
19967  idata = idata + 1
19968  data_tmp = full_data(idata)
19969  data_tmp = ishft(data_tmp, 36)
19970  data_tmp = iand(data_tmp, mask_left(24))
19971  pack_tmp = ior(pack_tmp, data_tmp)
19972  ipack = ipack + 1
19973  packed_data(ipack) = pack_tmp
19974  data_tmp = full_data(idata)
19975  pack_tmp = ishft(data_tmp, 60)
19976  pack_tmp = ishft(pack_tmp, -28)
19977  idata = idata + 1
19978  data_tmp = full_data(idata)
19979  data_tmp = ishft(data_tmp, 36)
19980  pack_tmp = ior(pack_tmp, data_tmp)
19981  pack_tmp = ishft(pack_tmp, -28)
19982  idata = idata + 1
19983  data_tmp = full_data(idata)
19984  data_tmp = ishft(data_tmp, 36)
19985  pack_tmp = ior(pack_tmp, data_tmp)
19986  pack_tmp = ishft(pack_tmp, -4)
19987  idata = idata + 1
19988  data_tmp = full_data(idata)
19989  data_tmp = ishft(data_tmp, 36)
19990  data_tmp = iand(data_tmp, mask_left(4))
19991  pack_tmp = ior(pack_tmp, data_tmp)
19992  ipack = ipack + 1
19993  packed_data(ipack) = pack_tmp
19994  data_tmp = full_data(idata)
19995  pack_tmp = ishft(data_tmp, 40)
19996  pack_tmp = ishft(pack_tmp, -28)
19997  idata = idata + 1
19998  data_tmp = full_data(idata)
19999  data_tmp = ishft(data_tmp, 36)
20000  pack_tmp = ior(pack_tmp, data_tmp)
20001  pack_tmp = ishft(pack_tmp, -12)
20002  idata = idata + 1
20003  data_tmp = full_data(idata)
20004  data_tmp = ishft(data_tmp, 36)
20005  data_tmp = iand(data_tmp, mask_left(12))
20006  pack_tmp = ior(pack_tmp, data_tmp)
20007  ipack = ipack + 1
20008  packed_data(ipack) = pack_tmp
20009  data_tmp = full_data(idata)
20010  pack_tmp = ishft(data_tmp, 48)
20011  pack_tmp = ishft(pack_tmp, -28)
20012  idata = idata + 1
20013  data_tmp = full_data(idata)
20014  data_tmp = ishft(data_tmp, 36)
20015  pack_tmp = ior(pack_tmp, data_tmp)
20016  pack_tmp = ishft(pack_tmp, -20)
20017  idata = idata + 1
20018  data_tmp = full_data(idata)
20019  data_tmp = ishft(data_tmp, 36)
20020  data_tmp = iand(data_tmp, mask_left(20))
20021  pack_tmp = ior(pack_tmp, data_tmp)
20022  ipack = ipack + 1
20023  packed_data(ipack) = pack_tmp
20024  data_tmp = full_data(idata)
20025  pack_tmp = ishft(data_tmp, 56)
20026  pack_tmp = ishft(pack_tmp, -28)
20027  idata = idata + 1
20028  data_tmp = full_data(idata)
20029  data_tmp = ishft(data_tmp, 36)
20030  pack_tmp = ior(pack_tmp, data_tmp)
20031  pack_tmp = ishft(pack_tmp, -28)
20032  idata = idata + 1
20033  data_tmp = full_data(idata)
20034  data_tmp = ishft(data_tmp, 36)
20035  pack_tmp = ior(pack_tmp, data_tmp)
20036  pack_tmp = ishft(pack_tmp, 0)
20037  idata = idata + 1
20038  data_tmp = full_data(idata)
20039  data_tmp = ishft(data_tmp, 36)
20040  data_tmp = iand(data_tmp, mask_left(0))
20041  pack_tmp = ior(pack_tmp, data_tmp)
20042  ipack = ipack + 1
20043  packed_data(ipack) = pack_tmp
20044  data_tmp = full_data(idata)
20045  pack_tmp = ishft(data_tmp, 36)
20046  pack_tmp = ishft(pack_tmp, -28)
20047  idata = idata + 1
20048  data_tmp = full_data(idata)
20049  data_tmp = ishft(data_tmp, 36)
20050  pack_tmp = ior(pack_tmp, data_tmp)
20051  pack_tmp = ishft(pack_tmp, -8)
20052  idata = idata + 1
20053  data_tmp = full_data(idata)
20054  data_tmp = ishft(data_tmp, 36)
20055  data_tmp = iand(data_tmp, mask_left(8))
20056  pack_tmp = ior(pack_tmp, data_tmp)
20057  ipack = ipack + 1
20058  packed_data(ipack) = pack_tmp
20059  data_tmp = full_data(idata)
20060  pack_tmp = ishft(data_tmp, 44)
20061  pack_tmp = ishft(pack_tmp, -28)
20062  idata = idata + 1
20063  data_tmp = full_data(idata)
20064  data_tmp = ishft(data_tmp, 36)
20065  pack_tmp = ior(pack_tmp, data_tmp)
20066  pack_tmp = ishft(pack_tmp, -16)
20067  idata = idata + 1
20068  data_tmp = full_data(idata)
20069  data_tmp = ishft(data_tmp, 36)
20070  data_tmp = iand(data_tmp, mask_left(16))
20071  pack_tmp = ior(pack_tmp, data_tmp)
20072  ipack = ipack + 1
20073  packed_data(ipack) = pack_tmp
20074  data_tmp = full_data(idata)
20075  pack_tmp = ishft(data_tmp, 52)
20076  pack_tmp = ishft(pack_tmp, -28)
20077  idata = idata + 1
20078  data_tmp = full_data(idata)
20079  data_tmp = ishft(data_tmp, 36)
20080  pack_tmp = ior(pack_tmp, data_tmp)
20081  pack_tmp = ishft(pack_tmp, -24)
20082  idata = idata + 1
20083  data_tmp = full_data(idata)
20084  data_tmp = ishft(data_tmp, 36)
20085  data_tmp = iand(data_tmp, mask_left(24))
20086  pack_tmp = ior(pack_tmp, data_tmp)
20087  ipack = ipack + 1
20088  packed_data(ipack) = pack_tmp
20089  data_tmp = full_data(idata)
20090  pack_tmp = ishft(data_tmp, 60)
20091  pack_tmp = ishft(pack_tmp, -28)
20092  idata = idata + 1
20093  data_tmp = full_data(idata)
20094  data_tmp = ishft(data_tmp, 36)
20095  pack_tmp = ior(pack_tmp, data_tmp)
20096  pack_tmp = ishft(pack_tmp, -28)
20097  idata = idata + 1
20098  data_tmp = full_data(idata)
20099  data_tmp = ishft(data_tmp, 36)
20100  pack_tmp = ior(pack_tmp, data_tmp)
20101  pack_tmp = ishft(pack_tmp, -4)
20102  idata = idata + 1
20103  data_tmp = full_data(idata)
20104  data_tmp = ishft(data_tmp, 36)
20105  data_tmp = iand(data_tmp, mask_left(4))
20106  pack_tmp = ior(pack_tmp, data_tmp)
20107  ipack = ipack + 1
20108  packed_data(ipack) = pack_tmp
20109  data_tmp = full_data(idata)
20110  pack_tmp = ishft(data_tmp, 40)
20111  pack_tmp = ishft(pack_tmp, -28)
20112  idata = idata + 1
20113  data_tmp = full_data(idata)
20114  data_tmp = ishft(data_tmp, 36)
20115  pack_tmp = ior(pack_tmp, data_tmp)
20116  pack_tmp = ishft(pack_tmp, -12)
20117  idata = idata + 1
20118  data_tmp = full_data(idata)
20119  data_tmp = ishft(data_tmp, 36)
20120  data_tmp = iand(data_tmp, mask_left(12))
20121  pack_tmp = ior(pack_tmp, data_tmp)
20122  ipack = ipack + 1
20123  packed_data(ipack) = pack_tmp
20124  data_tmp = full_data(idata)
20125  pack_tmp = ishft(data_tmp, 48)
20126  pack_tmp = ishft(pack_tmp, -28)
20127  idata = idata + 1
20128  data_tmp = full_data(idata)
20129  data_tmp = ishft(data_tmp, 36)
20130  pack_tmp = ior(pack_tmp, data_tmp)
20131  pack_tmp = ishft(pack_tmp, -20)
20132  idata = idata + 1
20133  data_tmp = full_data(idata)
20134  data_tmp = ishft(data_tmp, 36)
20135  data_tmp = iand(data_tmp, mask_left(20))
20136  pack_tmp = ior(pack_tmp, data_tmp)
20137  ipack = ipack + 1
20138  packed_data(ipack) = pack_tmp
20139  data_tmp = full_data(idata)
20140  pack_tmp = ishft(data_tmp, 56)
20141  pack_tmp = ishft(pack_tmp, -28)
20142  idata = idata + 1
20143  data_tmp = full_data(idata)
20144  data_tmp = ishft(data_tmp, 36)
20145  pack_tmp = ior(pack_tmp, data_tmp)
20146  pack_tmp = ishft(pack_tmp, -28)
20147  idata = idata + 1
20148  data_tmp = full_data(idata)
20149  data_tmp = ishft(data_tmp, 36)
20150  pack_tmp = ior(pack_tmp, data_tmp)
20151  pack_tmp = ishft(pack_tmp, 0)
20152  idata = idata + 1
20153  data_tmp = full_data(idata)
20154  data_tmp = ishft(data_tmp, 36)
20155  data_tmp = iand(data_tmp, mask_left(0))
20156  pack_tmp = ior(pack_tmp, data_tmp)
20157  ipack = ipack + 1
20158  packed_data(ipack) = pack_tmp
20159  data_tmp = full_data(idata)
20160  pack_tmp = ishft(data_tmp, 36)
20161  pack_tmp = ishft(pack_tmp, -28)
20162  idata = idata + 1
20163  data_tmp = full_data(idata)
20164  data_tmp = ishft(data_tmp, 36)
20165  pack_tmp = ior(pack_tmp, data_tmp)
20166  pack_tmp = ishft(pack_tmp, -8)
20167  idata = idata + 1
20168  data_tmp = full_data(idata)
20169  data_tmp = ishft(data_tmp, 36)
20170  data_tmp = iand(data_tmp, mask_left(8))
20171  pack_tmp = ior(pack_tmp, data_tmp)
20172  ipack = ipack + 1
20173  packed_data(ipack) = pack_tmp
20174  data_tmp = full_data(idata)
20175  pack_tmp = ishft(data_tmp, 44)
20176  pack_tmp = ishft(pack_tmp, -28)
20177  idata = idata + 1
20178  data_tmp = full_data(idata)
20179  data_tmp = ishft(data_tmp, 36)
20180  pack_tmp = ior(pack_tmp, data_tmp)
20181  pack_tmp = ishft(pack_tmp, -16)
20182  idata = idata + 1
20183  data_tmp = full_data(idata)
20184  data_tmp = ishft(data_tmp, 36)
20185  data_tmp = iand(data_tmp, mask_left(16))
20186  pack_tmp = ior(pack_tmp, data_tmp)
20187  ipack = ipack + 1
20188  packed_data(ipack) = pack_tmp
20189  data_tmp = full_data(idata)
20190  pack_tmp = ishft(data_tmp, 52)
20191  pack_tmp = ishft(pack_tmp, -28)
20192  idata = idata + 1
20193  data_tmp = full_data(idata)
20194  data_tmp = ishft(data_tmp, 36)
20195  pack_tmp = ior(pack_tmp, data_tmp)
20196  pack_tmp = ishft(pack_tmp, -24)
20197  idata = idata + 1
20198  data_tmp = full_data(idata)
20199  data_tmp = ishft(data_tmp, 36)
20200  data_tmp = iand(data_tmp, mask_left(24))
20201  pack_tmp = ior(pack_tmp, data_tmp)
20202  ipack = ipack + 1
20203  packed_data(ipack) = pack_tmp
20204  data_tmp = full_data(idata)
20205  pack_tmp = ishft(data_tmp, 60)
20206  pack_tmp = ishft(pack_tmp, -28)
20207  idata = idata + 1
20208  data_tmp = full_data(idata)
20209  data_tmp = ishft(data_tmp, 36)
20210  pack_tmp = ior(pack_tmp, data_tmp)
20211  pack_tmp = ishft(pack_tmp, -28)
20212  idata = idata + 1
20213  data_tmp = full_data(idata)
20214  data_tmp = ishft(data_tmp, 36)
20215  pack_tmp = ior(pack_tmp, data_tmp)
20216  pack_tmp = ishft(pack_tmp, -4)
20217  idata = idata + 1
20218  data_tmp = full_data(idata)
20219  data_tmp = ishft(data_tmp, 36)
20220  data_tmp = iand(data_tmp, mask_left(4))
20221  pack_tmp = ior(pack_tmp, data_tmp)
20222  ipack = ipack + 1
20223  packed_data(ipack) = pack_tmp
20224  data_tmp = full_data(idata)
20225  pack_tmp = ishft(data_tmp, 40)
20226  pack_tmp = ishft(pack_tmp, -28)
20227  idata = idata + 1
20228  data_tmp = full_data(idata)
20229  data_tmp = ishft(data_tmp, 36)
20230  pack_tmp = ior(pack_tmp, data_tmp)
20231  pack_tmp = ishft(pack_tmp, -12)
20232  idata = idata + 1
20233  data_tmp = full_data(idata)
20234  data_tmp = ishft(data_tmp, 36)
20235  data_tmp = iand(data_tmp, mask_left(12))
20236  pack_tmp = ior(pack_tmp, data_tmp)
20237  ipack = ipack + 1
20238  packed_data(ipack) = pack_tmp
20239  data_tmp = full_data(idata)
20240  pack_tmp = ishft(data_tmp, 48)
20241  pack_tmp = ishft(pack_tmp, -28)
20242  idata = idata + 1
20243  data_tmp = full_data(idata)
20244  data_tmp = ishft(data_tmp, 36)
20245  pack_tmp = ior(pack_tmp, data_tmp)
20246  pack_tmp = ishft(pack_tmp, -20)
20247  idata = idata + 1
20248  data_tmp = full_data(idata)
20249  data_tmp = ishft(data_tmp, 36)
20250  data_tmp = iand(data_tmp, mask_left(20))
20251  pack_tmp = ior(pack_tmp, data_tmp)
20252  ipack = ipack + 1
20253  packed_data(ipack) = pack_tmp
20254  data_tmp = full_data(idata)
20255  pack_tmp = ishft(data_tmp, 56)
20256  pack_tmp = ishft(pack_tmp, -28)
20257  idata = idata + 1
20258  data_tmp = full_data(idata)
20259  data_tmp = ishft(data_tmp, 36)
20260  pack_tmp = ior(pack_tmp, data_tmp)
20261  pack_tmp = ishft(pack_tmp, -28)
20262  idata = idata + 1
20263  data_tmp = full_data(idata)
20264  data_tmp = ishft(data_tmp, 36)
20265  pack_tmp = ior(pack_tmp, data_tmp)
20266  pack_tmp = ishft(pack_tmp, 0)
20267  pack_tmp = ishft(pack_tmp, 0)
20268  ipack = ipack + 1
20269  packed_data(ipack) = pack_tmp
20270  END DO
20271  IF (ndata_rep < ndata) THEN
20272  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
20273  END IF
20274  END SUBROUTINE ints2bits_28
20275 
20276 ! **************************************************************************************************
20277 !> \brief ...
20278 !> \param Ndata ...
20279 !> \param packed_data ...
20280 !> \param full_data ...
20281 ! **************************************************************************************************
20282  SUBROUTINE bits2ints_28(Ndata, packed_data, full_data)
20283  INTEGER, INTENT(IN) :: Ndata
20284  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
20285  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
20286 
20287  INTEGER, PARAMETER :: Nbits = 28
20288 
20289  INTEGER :: idata, ipack, kdata, Ndata_rep
20290  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
20291 
20292  ipack = 0
20293  idata = 0
20294  pack_tmp = 0
20295  ndata_rep = (ndata/64)*64
20296  DO kdata = 1, ndata_rep, 64
20297  idata = idata + 1
20298  data_tmp = ishft(pack_tmp, 28)
20299  ipack = ipack + 1
20300  pack_tmp = packed_data(ipack)
20301  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
20302  pack_tmp = ishft(pack_tmp, -28)
20303  idata = idata + 1
20304  data_tmp = iand(pack_tmp, mask_right(nbits))
20305  full_data(idata) = data_tmp
20306  pack_tmp = ishft(pack_tmp, -nbits)
20307  idata = idata + 1
20308  data_tmp = ishft(pack_tmp, 20)
20309  ipack = ipack + 1
20310  pack_tmp = packed_data(ipack)
20311  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
20312  pack_tmp = ishft(pack_tmp, -20)
20313  idata = idata + 1
20314  data_tmp = iand(pack_tmp, mask_right(nbits))
20315  full_data(idata) = data_tmp
20316  pack_tmp = ishft(pack_tmp, -nbits)
20317  idata = idata + 1
20318  data_tmp = ishft(pack_tmp, 12)
20319  ipack = ipack + 1
20320  pack_tmp = packed_data(ipack)
20321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
20322  pack_tmp = ishft(pack_tmp, -12)
20323  idata = idata + 1
20324  data_tmp = iand(pack_tmp, mask_right(nbits))
20325  full_data(idata) = data_tmp
20326  pack_tmp = ishft(pack_tmp, -nbits)
20327  idata = idata + 1
20328  data_tmp = ishft(pack_tmp, 4)
20329  ipack = ipack + 1
20330  pack_tmp = packed_data(ipack)
20331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
20332  pack_tmp = ishft(pack_tmp, -4)
20333  idata = idata + 1
20334  data_tmp = iand(pack_tmp, mask_right(nbits))
20335  full_data(idata) = data_tmp
20336  pack_tmp = ishft(pack_tmp, -nbits)
20337  idata = idata + 1
20338  data_tmp = iand(pack_tmp, mask_right(nbits))
20339  full_data(idata) = data_tmp
20340  pack_tmp = ishft(pack_tmp, -nbits)
20341  idata = idata + 1
20342  data_tmp = ishft(pack_tmp, 24)
20343  ipack = ipack + 1
20344  pack_tmp = packed_data(ipack)
20345  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
20346  pack_tmp = ishft(pack_tmp, -24)
20347  idata = idata + 1
20348  data_tmp = iand(pack_tmp, mask_right(nbits))
20349  full_data(idata) = data_tmp
20350  pack_tmp = ishft(pack_tmp, -nbits)
20351  idata = idata + 1
20352  data_tmp = ishft(pack_tmp, 16)
20353  ipack = ipack + 1
20354  pack_tmp = packed_data(ipack)
20355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
20356  pack_tmp = ishft(pack_tmp, -16)
20357  idata = idata + 1
20358  data_tmp = iand(pack_tmp, mask_right(nbits))
20359  full_data(idata) = data_tmp
20360  pack_tmp = ishft(pack_tmp, -nbits)
20361  idata = idata + 1
20362  data_tmp = ishft(pack_tmp, 8)
20363  ipack = ipack + 1
20364  pack_tmp = packed_data(ipack)
20365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
20366  pack_tmp = ishft(pack_tmp, -8)
20367  idata = idata + 1
20368  data_tmp = iand(pack_tmp, mask_right(nbits))
20369  full_data(idata) = data_tmp
20370  pack_tmp = ishft(pack_tmp, -nbits)
20371  idata = idata + 1
20372  data_tmp = iand(pack_tmp, mask_right(nbits))
20373  full_data(idata) = data_tmp
20374  pack_tmp = ishft(pack_tmp, -nbits)
20375  idata = idata + 1
20376  data_tmp = ishft(pack_tmp, 28)
20377  ipack = ipack + 1
20378  pack_tmp = packed_data(ipack)
20379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
20380  pack_tmp = ishft(pack_tmp, -28)
20381  idata = idata + 1
20382  data_tmp = iand(pack_tmp, mask_right(nbits))
20383  full_data(idata) = data_tmp
20384  pack_tmp = ishft(pack_tmp, -nbits)
20385  idata = idata + 1
20386  data_tmp = ishft(pack_tmp, 20)
20387  ipack = ipack + 1
20388  pack_tmp = packed_data(ipack)
20389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
20390  pack_tmp = ishft(pack_tmp, -20)
20391  idata = idata + 1
20392  data_tmp = iand(pack_tmp, mask_right(nbits))
20393  full_data(idata) = data_tmp
20394  pack_tmp = ishft(pack_tmp, -nbits)
20395  idata = idata + 1
20396  data_tmp = ishft(pack_tmp, 12)
20397  ipack = ipack + 1
20398  pack_tmp = packed_data(ipack)
20399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
20400  pack_tmp = ishft(pack_tmp, -12)
20401  idata = idata + 1
20402  data_tmp = iand(pack_tmp, mask_right(nbits))
20403  full_data(idata) = data_tmp
20404  pack_tmp = ishft(pack_tmp, -nbits)
20405  idata = idata + 1
20406  data_tmp = ishft(pack_tmp, 4)
20407  ipack = ipack + 1
20408  pack_tmp = packed_data(ipack)
20409  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
20410  pack_tmp = ishft(pack_tmp, -4)
20411  idata = idata + 1
20412  data_tmp = iand(pack_tmp, mask_right(nbits))
20413  full_data(idata) = data_tmp
20414  pack_tmp = ishft(pack_tmp, -nbits)
20415  idata = idata + 1
20416  data_tmp = iand(pack_tmp, mask_right(nbits))
20417  full_data(idata) = data_tmp
20418  pack_tmp = ishft(pack_tmp, -nbits)
20419  idata = idata + 1
20420  data_tmp = ishft(pack_tmp, 24)
20421  ipack = ipack + 1
20422  pack_tmp = packed_data(ipack)
20423  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
20424  pack_tmp = ishft(pack_tmp, -24)
20425  idata = idata + 1
20426  data_tmp = iand(pack_tmp, mask_right(nbits))
20427  full_data(idata) = data_tmp
20428  pack_tmp = ishft(pack_tmp, -nbits)
20429  idata = idata + 1
20430  data_tmp = ishft(pack_tmp, 16)
20431  ipack = ipack + 1
20432  pack_tmp = packed_data(ipack)
20433  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
20434  pack_tmp = ishft(pack_tmp, -16)
20435  idata = idata + 1
20436  data_tmp = iand(pack_tmp, mask_right(nbits))
20437  full_data(idata) = data_tmp
20438  pack_tmp = ishft(pack_tmp, -nbits)
20439  idata = idata + 1
20440  data_tmp = ishft(pack_tmp, 8)
20441  ipack = ipack + 1
20442  pack_tmp = packed_data(ipack)
20443  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
20444  pack_tmp = ishft(pack_tmp, -8)
20445  idata = idata + 1
20446  data_tmp = iand(pack_tmp, mask_right(nbits))
20447  full_data(idata) = data_tmp
20448  pack_tmp = ishft(pack_tmp, -nbits)
20449  idata = idata + 1
20450  data_tmp = iand(pack_tmp, mask_right(nbits))
20451  full_data(idata) = data_tmp
20452  pack_tmp = ishft(pack_tmp, -nbits)
20453  idata = idata + 1
20454  data_tmp = ishft(pack_tmp, 28)
20455  ipack = ipack + 1
20456  pack_tmp = packed_data(ipack)
20457  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
20458  pack_tmp = ishft(pack_tmp, -28)
20459  idata = idata + 1
20460  data_tmp = iand(pack_tmp, mask_right(nbits))
20461  full_data(idata) = data_tmp
20462  pack_tmp = ishft(pack_tmp, -nbits)
20463  idata = idata + 1
20464  data_tmp = ishft(pack_tmp, 20)
20465  ipack = ipack + 1
20466  pack_tmp = packed_data(ipack)
20467  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
20468  pack_tmp = ishft(pack_tmp, -20)
20469  idata = idata + 1
20470  data_tmp = iand(pack_tmp, mask_right(nbits))
20471  full_data(idata) = data_tmp
20472  pack_tmp = ishft(pack_tmp, -nbits)
20473  idata = idata + 1
20474  data_tmp = ishft(pack_tmp, 12)
20475  ipack = ipack + 1
20476  pack_tmp = packed_data(ipack)
20477  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
20478  pack_tmp = ishft(pack_tmp, -12)
20479  idata = idata + 1
20480  data_tmp = iand(pack_tmp, mask_right(nbits))
20481  full_data(idata) = data_tmp
20482  pack_tmp = ishft(pack_tmp, -nbits)
20483  idata = idata + 1
20484  data_tmp = ishft(pack_tmp, 4)
20485  ipack = ipack + 1
20486  pack_tmp = packed_data(ipack)
20487  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
20488  pack_tmp = ishft(pack_tmp, -4)
20489  idata = idata + 1
20490  data_tmp = iand(pack_tmp, mask_right(nbits))
20491  full_data(idata) = data_tmp
20492  pack_tmp = ishft(pack_tmp, -nbits)
20493  idata = idata + 1
20494  data_tmp = iand(pack_tmp, mask_right(nbits))
20495  full_data(idata) = data_tmp
20496  pack_tmp = ishft(pack_tmp, -nbits)
20497  idata = idata + 1
20498  data_tmp = ishft(pack_tmp, 24)
20499  ipack = ipack + 1
20500  pack_tmp = packed_data(ipack)
20501  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
20502  pack_tmp = ishft(pack_tmp, -24)
20503  idata = idata + 1
20504  data_tmp = iand(pack_tmp, mask_right(nbits))
20505  full_data(idata) = data_tmp
20506  pack_tmp = ishft(pack_tmp, -nbits)
20507  idata = idata + 1
20508  data_tmp = ishft(pack_tmp, 16)
20509  ipack = ipack + 1
20510  pack_tmp = packed_data(ipack)
20511  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
20512  pack_tmp = ishft(pack_tmp, -16)
20513  idata = idata + 1
20514  data_tmp = iand(pack_tmp, mask_right(nbits))
20515  full_data(idata) = data_tmp
20516  pack_tmp = ishft(pack_tmp, -nbits)
20517  idata = idata + 1
20518  data_tmp = ishft(pack_tmp, 8)
20519  ipack = ipack + 1
20520  pack_tmp = packed_data(ipack)
20521  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
20522  pack_tmp = ishft(pack_tmp, -8)
20523  idata = idata + 1
20524  data_tmp = iand(pack_tmp, mask_right(nbits))
20525  full_data(idata) = data_tmp
20526  pack_tmp = ishft(pack_tmp, -nbits)
20527  idata = idata + 1
20528  data_tmp = iand(pack_tmp, mask_right(nbits))
20529  full_data(idata) = data_tmp
20530  pack_tmp = ishft(pack_tmp, -nbits)
20531  idata = idata + 1
20532  data_tmp = ishft(pack_tmp, 28)
20533  ipack = ipack + 1
20534  pack_tmp = packed_data(ipack)
20535  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
20536  pack_tmp = ishft(pack_tmp, -28)
20537  idata = idata + 1
20538  data_tmp = iand(pack_tmp, mask_right(nbits))
20539  full_data(idata) = data_tmp
20540  pack_tmp = ishft(pack_tmp, -nbits)
20541  idata = idata + 1
20542  data_tmp = ishft(pack_tmp, 20)
20543  ipack = ipack + 1
20544  pack_tmp = packed_data(ipack)
20545  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
20546  pack_tmp = ishft(pack_tmp, -20)
20547  idata = idata + 1
20548  data_tmp = iand(pack_tmp, mask_right(nbits))
20549  full_data(idata) = data_tmp
20550  pack_tmp = ishft(pack_tmp, -nbits)
20551  idata = idata + 1
20552  data_tmp = ishft(pack_tmp, 12)
20553  ipack = ipack + 1
20554  pack_tmp = packed_data(ipack)
20555  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
20556  pack_tmp = ishft(pack_tmp, -12)
20557  idata = idata + 1
20558  data_tmp = iand(pack_tmp, mask_right(nbits))
20559  full_data(idata) = data_tmp
20560  pack_tmp = ishft(pack_tmp, -nbits)
20561  idata = idata + 1
20562  data_tmp = ishft(pack_tmp, 4)
20563  ipack = ipack + 1
20564  pack_tmp = packed_data(ipack)
20565  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
20566  pack_tmp = ishft(pack_tmp, -4)
20567  idata = idata + 1
20568  data_tmp = iand(pack_tmp, mask_right(nbits))
20569  full_data(idata) = data_tmp
20570  pack_tmp = ishft(pack_tmp, -nbits)
20571  idata = idata + 1
20572  data_tmp = iand(pack_tmp, mask_right(nbits))
20573  full_data(idata) = data_tmp
20574  pack_tmp = ishft(pack_tmp, -nbits)
20575  idata = idata + 1
20576  data_tmp = ishft(pack_tmp, 24)
20577  ipack = ipack + 1
20578  pack_tmp = packed_data(ipack)
20579  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
20580  pack_tmp = ishft(pack_tmp, -24)
20581  idata = idata + 1
20582  data_tmp = iand(pack_tmp, mask_right(nbits))
20583  full_data(idata) = data_tmp
20584  pack_tmp = ishft(pack_tmp, -nbits)
20585  idata = idata + 1
20586  data_tmp = ishft(pack_tmp, 16)
20587  ipack = ipack + 1
20588  pack_tmp = packed_data(ipack)
20589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
20590  pack_tmp = ishft(pack_tmp, -16)
20591  idata = idata + 1
20592  data_tmp = iand(pack_tmp, mask_right(nbits))
20593  full_data(idata) = data_tmp
20594  pack_tmp = ishft(pack_tmp, -nbits)
20595  idata = idata + 1
20596  data_tmp = ishft(pack_tmp, 8)
20597  ipack = ipack + 1
20598  pack_tmp = packed_data(ipack)
20599  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
20600  pack_tmp = ishft(pack_tmp, -8)
20601  idata = idata + 1
20602  data_tmp = iand(pack_tmp, mask_right(nbits))
20603  full_data(idata) = data_tmp
20604  pack_tmp = ishft(pack_tmp, -nbits)
20605  idata = idata + 1
20606  data_tmp = iand(pack_tmp, mask_right(nbits))
20607  full_data(idata) = data_tmp
20608  pack_tmp = ishft(pack_tmp, -nbits)
20609  END DO
20610  IF (ndata_rep < ndata) THEN
20611  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
20612  END IF
20613  END SUBROUTINE bits2ints_28
20614 
20615 ! **************************************************************************************************
20616 !> \brief ...
20617 !> \param Ndata ...
20618 !> \param packed_data ...
20619 !> \param full_data ...
20620 ! **************************************************************************************************
20621  SUBROUTINE ints2bits_29(Ndata, packed_data, full_data)
20622  INTEGER, INTENT(IN) :: Ndata
20623  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
20624  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
20625 
20626  INTEGER, PARAMETER :: Nbits = 29
20627 
20628  INTEGER :: idata, ipack, kdata, Ndata_rep
20629  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
20630 
20631  idata = 0
20632  ipack = 0
20633  ndata_rep = (ndata/64)*64
20634  DO kdata = 1, ndata_rep, 64
20635  pack_tmp = 0
20636  idata = idata + 1
20637  data_tmp = full_data(idata)
20638  data_tmp = ishft(data_tmp, 35)
20639  pack_tmp = ior(pack_tmp, data_tmp)
20640  pack_tmp = ishft(pack_tmp, -29)
20641  idata = idata + 1
20642  data_tmp = full_data(idata)
20643  data_tmp = ishft(data_tmp, 35)
20644  pack_tmp = ior(pack_tmp, data_tmp)
20645  pack_tmp = ishft(pack_tmp, -6)
20646  idata = idata + 1
20647  data_tmp = full_data(idata)
20648  data_tmp = ishft(data_tmp, 35)
20649  data_tmp = iand(data_tmp, mask_left(6))
20650  pack_tmp = ior(pack_tmp, data_tmp)
20651  ipack = ipack + 1
20652  packed_data(ipack) = pack_tmp
20653  data_tmp = full_data(idata)
20654  pack_tmp = ishft(data_tmp, 41)
20655  pack_tmp = ishft(pack_tmp, -29)
20656  idata = idata + 1
20657  data_tmp = full_data(idata)
20658  data_tmp = ishft(data_tmp, 35)
20659  pack_tmp = ior(pack_tmp, data_tmp)
20660  pack_tmp = ishft(pack_tmp, -12)
20661  idata = idata + 1
20662  data_tmp = full_data(idata)
20663  data_tmp = ishft(data_tmp, 35)
20664  data_tmp = iand(data_tmp, mask_left(12))
20665  pack_tmp = ior(pack_tmp, data_tmp)
20666  ipack = ipack + 1
20667  packed_data(ipack) = pack_tmp
20668  data_tmp = full_data(idata)
20669  pack_tmp = ishft(data_tmp, 47)
20670  pack_tmp = ishft(pack_tmp, -29)
20671  idata = idata + 1
20672  data_tmp = full_data(idata)
20673  data_tmp = ishft(data_tmp, 35)
20674  pack_tmp = ior(pack_tmp, data_tmp)
20675  pack_tmp = ishft(pack_tmp, -18)
20676  idata = idata + 1
20677  data_tmp = full_data(idata)
20678  data_tmp = ishft(data_tmp, 35)
20679  data_tmp = iand(data_tmp, mask_left(18))
20680  pack_tmp = ior(pack_tmp, data_tmp)
20681  ipack = ipack + 1
20682  packed_data(ipack) = pack_tmp
20683  data_tmp = full_data(idata)
20684  pack_tmp = ishft(data_tmp, 53)
20685  pack_tmp = ishft(pack_tmp, -29)
20686  idata = idata + 1
20687  data_tmp = full_data(idata)
20688  data_tmp = ishft(data_tmp, 35)
20689  pack_tmp = ior(pack_tmp, data_tmp)
20690  pack_tmp = ishft(pack_tmp, -24)
20691  idata = idata + 1
20692  data_tmp = full_data(idata)
20693  data_tmp = ishft(data_tmp, 35)
20694  data_tmp = iand(data_tmp, mask_left(24))
20695  pack_tmp = ior(pack_tmp, data_tmp)
20696  ipack = ipack + 1
20697  packed_data(ipack) = pack_tmp
20698  data_tmp = full_data(idata)
20699  pack_tmp = ishft(data_tmp, 59)
20700  pack_tmp = ishft(pack_tmp, -29)
20701  idata = idata + 1
20702  data_tmp = full_data(idata)
20703  data_tmp = ishft(data_tmp, 35)
20704  pack_tmp = ior(pack_tmp, data_tmp)
20705  pack_tmp = ishft(pack_tmp, -29)
20706  idata = idata + 1
20707  data_tmp = full_data(idata)
20708  data_tmp = ishft(data_tmp, 35)
20709  pack_tmp = ior(pack_tmp, data_tmp)
20710  pack_tmp = ishft(pack_tmp, -1)
20711  idata = idata + 1
20712  data_tmp = full_data(idata)
20713  data_tmp = ishft(data_tmp, 35)
20714  data_tmp = iand(data_tmp, mask_left(1))
20715  pack_tmp = ior(pack_tmp, data_tmp)
20716  ipack = ipack + 1
20717  packed_data(ipack) = pack_tmp
20718  data_tmp = full_data(idata)
20719  pack_tmp = ishft(data_tmp, 36)
20720  pack_tmp = ishft(pack_tmp, -29)
20721  idata = idata + 1
20722  data_tmp = full_data(idata)
20723  data_tmp = ishft(data_tmp, 35)
20724  pack_tmp = ior(pack_tmp, data_tmp)
20725  pack_tmp = ishft(pack_tmp, -7)
20726  idata = idata + 1
20727  data_tmp = full_data(idata)
20728  data_tmp = ishft(data_tmp, 35)
20729  data_tmp = iand(data_tmp, mask_left(7))
20730  pack_tmp = ior(pack_tmp, data_tmp)
20731  ipack = ipack + 1
20732  packed_data(ipack) = pack_tmp
20733  data_tmp = full_data(idata)
20734  pack_tmp = ishft(data_tmp, 42)
20735  pack_tmp = ishft(pack_tmp, -29)
20736  idata = idata + 1
20737  data_tmp = full_data(idata)
20738  data_tmp = ishft(data_tmp, 35)
20739  pack_tmp = ior(pack_tmp, data_tmp)
20740  pack_tmp = ishft(pack_tmp, -13)
20741  idata = idata + 1
20742  data_tmp = full_data(idata)
20743  data_tmp = ishft(data_tmp, 35)
20744  data_tmp = iand(data_tmp, mask_left(13))
20745  pack_tmp = ior(pack_tmp, data_tmp)
20746  ipack = ipack + 1
20747  packed_data(ipack) = pack_tmp
20748  data_tmp = full_data(idata)
20749  pack_tmp = ishft(data_tmp, 48)
20750  pack_tmp = ishft(pack_tmp, -29)
20751  idata = idata + 1
20752  data_tmp = full_data(idata)
20753  data_tmp = ishft(data_tmp, 35)
20754  pack_tmp = ior(pack_tmp, data_tmp)
20755  pack_tmp = ishft(pack_tmp, -19)
20756  idata = idata + 1
20757  data_tmp = full_data(idata)
20758  data_tmp = ishft(data_tmp, 35)
20759  data_tmp = iand(data_tmp, mask_left(19))
20760  pack_tmp = ior(pack_tmp, data_tmp)
20761  ipack = ipack + 1
20762  packed_data(ipack) = pack_tmp
20763  data_tmp = full_data(idata)
20764  pack_tmp = ishft(data_tmp, 54)
20765  pack_tmp = ishft(pack_tmp, -29)
20766  idata = idata + 1
20767  data_tmp = full_data(idata)
20768  data_tmp = ishft(data_tmp, 35)
20769  pack_tmp = ior(pack_tmp, data_tmp)
20770  pack_tmp = ishft(pack_tmp, -25)
20771  idata = idata + 1
20772  data_tmp = full_data(idata)
20773  data_tmp = ishft(data_tmp, 35)
20774  data_tmp = iand(data_tmp, mask_left(25))
20775  pack_tmp = ior(pack_tmp, data_tmp)
20776  ipack = ipack + 1
20777  packed_data(ipack) = pack_tmp
20778  data_tmp = full_data(idata)
20779  pack_tmp = ishft(data_tmp, 60)
20780  pack_tmp = ishft(pack_tmp, -29)
20781  idata = idata + 1
20782  data_tmp = full_data(idata)
20783  data_tmp = ishft(data_tmp, 35)
20784  pack_tmp = ior(pack_tmp, data_tmp)
20785  pack_tmp = ishft(pack_tmp, -29)
20786  idata = idata + 1
20787  data_tmp = full_data(idata)
20788  data_tmp = ishft(data_tmp, 35)
20789  pack_tmp = ior(pack_tmp, data_tmp)
20790  pack_tmp = ishft(pack_tmp, -2)
20791  idata = idata + 1
20792  data_tmp = full_data(idata)
20793  data_tmp = ishft(data_tmp, 35)
20794  data_tmp = iand(data_tmp, mask_left(2))
20795  pack_tmp = ior(pack_tmp, data_tmp)
20796  ipack = ipack + 1
20797  packed_data(ipack) = pack_tmp
20798  data_tmp = full_data(idata)
20799  pack_tmp = ishft(data_tmp, 37)
20800  pack_tmp = ishft(pack_tmp, -29)
20801  idata = idata + 1
20802  data_tmp = full_data(idata)
20803  data_tmp = ishft(data_tmp, 35)
20804  pack_tmp = ior(pack_tmp, data_tmp)
20805  pack_tmp = ishft(pack_tmp, -8)
20806  idata = idata + 1
20807  data_tmp = full_data(idata)
20808  data_tmp = ishft(data_tmp, 35)
20809  data_tmp = iand(data_tmp, mask_left(8))
20810  pack_tmp = ior(pack_tmp, data_tmp)
20811  ipack = ipack + 1
20812  packed_data(ipack) = pack_tmp
20813  data_tmp = full_data(idata)
20814  pack_tmp = ishft(data_tmp, 43)
20815  pack_tmp = ishft(pack_tmp, -29)
20816  idata = idata + 1
20817  data_tmp = full_data(idata)
20818  data_tmp = ishft(data_tmp, 35)
20819  pack_tmp = ior(pack_tmp, data_tmp)
20820  pack_tmp = ishft(pack_tmp, -14)
20821  idata = idata + 1
20822  data_tmp = full_data(idata)
20823  data_tmp = ishft(data_tmp, 35)
20824  data_tmp = iand(data_tmp, mask_left(14))
20825  pack_tmp = ior(pack_tmp, data_tmp)
20826  ipack = ipack + 1
20827  packed_data(ipack) = pack_tmp
20828  data_tmp = full_data(idata)
20829  pack_tmp = ishft(data_tmp, 49)
20830  pack_tmp = ishft(pack_tmp, -29)
20831  idata = idata + 1
20832  data_tmp = full_data(idata)
20833  data_tmp = ishft(data_tmp, 35)
20834  pack_tmp = ior(pack_tmp, data_tmp)
20835  pack_tmp = ishft(pack_tmp, -20)
20836  idata = idata + 1
20837  data_tmp = full_data(idata)
20838  data_tmp = ishft(data_tmp, 35)
20839  data_tmp = iand(data_tmp, mask_left(20))
20840  pack_tmp = ior(pack_tmp, data_tmp)
20841  ipack = ipack + 1
20842  packed_data(ipack) = pack_tmp
20843  data_tmp = full_data(idata)
20844  pack_tmp = ishft(data_tmp, 55)
20845  pack_tmp = ishft(pack_tmp, -29)
20846  idata = idata + 1
20847  data_tmp = full_data(idata)
20848  data_tmp = ishft(data_tmp, 35)
20849  pack_tmp = ior(pack_tmp, data_tmp)
20850  pack_tmp = ishft(pack_tmp, -26)
20851  idata = idata + 1
20852  data_tmp = full_data(idata)
20853  data_tmp = ishft(data_tmp, 35)
20854  data_tmp = iand(data_tmp, mask_left(26))
20855  pack_tmp = ior(pack_tmp, data_tmp)
20856  ipack = ipack + 1
20857  packed_data(ipack) = pack_tmp
20858  data_tmp = full_data(idata)
20859  pack_tmp = ishft(data_tmp, 61)
20860  pack_tmp = ishft(pack_tmp, -29)
20861  idata = idata + 1
20862  data_tmp = full_data(idata)
20863  data_tmp = ishft(data_tmp, 35)
20864  pack_tmp = ior(pack_tmp, data_tmp)
20865  pack_tmp = ishft(pack_tmp, -29)
20866  idata = idata + 1
20867  data_tmp = full_data(idata)
20868  data_tmp = ishft(data_tmp, 35)
20869  pack_tmp = ior(pack_tmp, data_tmp)
20870  pack_tmp = ishft(pack_tmp, -3)
20871  idata = idata + 1
20872  data_tmp = full_data(idata)
20873  data_tmp = ishft(data_tmp, 35)
20874  data_tmp = iand(data_tmp, mask_left(3))
20875  pack_tmp = ior(pack_tmp, data_tmp)
20876  ipack = ipack + 1
20877  packed_data(ipack) = pack_tmp
20878  data_tmp = full_data(idata)
20879  pack_tmp = ishft(data_tmp, 38)
20880  pack_tmp = ishft(pack_tmp, -29)
20881  idata = idata + 1
20882  data_tmp = full_data(idata)
20883  data_tmp = ishft(data_tmp, 35)
20884  pack_tmp = ior(pack_tmp, data_tmp)
20885  pack_tmp = ishft(pack_tmp, -9)
20886  idata = idata + 1
20887  data_tmp = full_data(idata)
20888  data_tmp = ishft(data_tmp, 35)
20889  data_tmp = iand(data_tmp, mask_left(9))
20890  pack_tmp = ior(pack_tmp, data_tmp)
20891  ipack = ipack + 1
20892  packed_data(ipack) = pack_tmp
20893  data_tmp = full_data(idata)
20894  pack_tmp = ishft(data_tmp, 44)
20895  pack_tmp = ishft(pack_tmp, -29)
20896  idata = idata + 1
20897  data_tmp = full_data(idata)
20898  data_tmp = ishft(data_tmp, 35)
20899  pack_tmp = ior(pack_tmp, data_tmp)
20900  pack_tmp = ishft(pack_tmp, -15)
20901  idata = idata + 1
20902  data_tmp = full_data(idata)
20903  data_tmp = ishft(data_tmp, 35)
20904  data_tmp = iand(data_tmp, mask_left(15))
20905  pack_tmp = ior(pack_tmp, data_tmp)
20906  ipack = ipack + 1
20907  packed_data(ipack) = pack_tmp
20908  data_tmp = full_data(idata)
20909  pack_tmp = ishft(data_tmp, 50)
20910  pack_tmp = ishft(pack_tmp, -29)
20911  idata = idata + 1
20912  data_tmp = full_data(idata)
20913  data_tmp = ishft(data_tmp, 35)
20914  pack_tmp = ior(pack_tmp, data_tmp)
20915  pack_tmp = ishft(pack_tmp, -21)
20916  idata = idata + 1
20917  data_tmp = full_data(idata)
20918  data_tmp = ishft(data_tmp, 35)
20919  data_tmp = iand(data_tmp, mask_left(21))
20920  pack_tmp = ior(pack_tmp, data_tmp)
20921  ipack = ipack + 1
20922  packed_data(ipack) = pack_tmp
20923  data_tmp = full_data(idata)
20924  pack_tmp = ishft(data_tmp, 56)
20925  pack_tmp = ishft(pack_tmp, -29)
20926  idata = idata + 1
20927  data_tmp = full_data(idata)
20928  data_tmp = ishft(data_tmp, 35)
20929  pack_tmp = ior(pack_tmp, data_tmp)
20930  pack_tmp = ishft(pack_tmp, -27)
20931  idata = idata + 1
20932  data_tmp = full_data(idata)
20933  data_tmp = ishft(data_tmp, 35)
20934  data_tmp = iand(data_tmp, mask_left(27))
20935  pack_tmp = ior(pack_tmp, data_tmp)
20936  ipack = ipack + 1
20937  packed_data(ipack) = pack_tmp
20938  data_tmp = full_data(idata)
20939  pack_tmp = ishft(data_tmp, 62)
20940  pack_tmp = ishft(pack_tmp, -29)
20941  idata = idata + 1
20942  data_tmp = full_data(idata)
20943  data_tmp = ishft(data_tmp, 35)
20944  pack_tmp = ior(pack_tmp, data_tmp)
20945  pack_tmp = ishft(pack_tmp, -29)
20946  idata = idata + 1
20947  data_tmp = full_data(idata)
20948  data_tmp = ishft(data_tmp, 35)
20949  pack_tmp = ior(pack_tmp, data_tmp)
20950  pack_tmp = ishft(pack_tmp, -4)
20951  idata = idata + 1
20952  data_tmp = full_data(idata)
20953  data_tmp = ishft(data_tmp, 35)
20954  data_tmp = iand(data_tmp, mask_left(4))
20955  pack_tmp = ior(pack_tmp, data_tmp)
20956  ipack = ipack + 1
20957  packed_data(ipack) = pack_tmp
20958  data_tmp = full_data(idata)
20959  pack_tmp = ishft(data_tmp, 39)
20960  pack_tmp = ishft(pack_tmp, -29)
20961  idata = idata + 1
20962  data_tmp = full_data(idata)
20963  data_tmp = ishft(data_tmp, 35)
20964  pack_tmp = ior(pack_tmp, data_tmp)
20965  pack_tmp = ishft(pack_tmp, -10)
20966  idata = idata + 1
20967  data_tmp = full_data(idata)
20968  data_tmp = ishft(data_tmp, 35)
20969  data_tmp = iand(data_tmp, mask_left(10))
20970  pack_tmp = ior(pack_tmp, data_tmp)
20971  ipack = ipack + 1
20972  packed_data(ipack) = pack_tmp
20973  data_tmp = full_data(idata)
20974  pack_tmp = ishft(data_tmp, 45)
20975  pack_tmp = ishft(pack_tmp, -29)
20976  idata = idata + 1
20977  data_tmp = full_data(idata)
20978  data_tmp = ishft(data_tmp, 35)
20979  pack_tmp = ior(pack_tmp, data_tmp)
20980  pack_tmp = ishft(pack_tmp, -16)
20981  idata = idata + 1
20982  data_tmp = full_data(idata)
20983  data_tmp = ishft(data_tmp, 35)
20984  data_tmp = iand(data_tmp, mask_left(16))
20985  pack_tmp = ior(pack_tmp, data_tmp)
20986  ipack = ipack + 1
20987  packed_data(ipack) = pack_tmp
20988  data_tmp = full_data(idata)
20989  pack_tmp = ishft(data_tmp, 51)
20990  pack_tmp = ishft(pack_tmp, -29)
20991  idata = idata + 1
20992  data_tmp = full_data(idata)
20993  data_tmp = ishft(data_tmp, 35)
20994  pack_tmp = ior(pack_tmp, data_tmp)
20995  pack_tmp = ishft(pack_tmp, -22)
20996  idata = idata + 1
20997  data_tmp = full_data(idata)
20998  data_tmp = ishft(data_tmp, 35)
20999  data_tmp = iand(data_tmp, mask_left(22))
21000  pack_tmp = ior(pack_tmp, data_tmp)
21001  ipack = ipack + 1
21002  packed_data(ipack) = pack_tmp
21003  data_tmp = full_data(idata)
21004  pack_tmp = ishft(data_tmp, 57)
21005  pack_tmp = ishft(pack_tmp, -29)
21006  idata = idata + 1
21007  data_tmp = full_data(idata)
21008  data_tmp = ishft(data_tmp, 35)
21009  pack_tmp = ior(pack_tmp, data_tmp)
21010  pack_tmp = ishft(pack_tmp, -28)
21011  idata = idata + 1
21012  data_tmp = full_data(idata)
21013  data_tmp = ishft(data_tmp, 35)
21014  data_tmp = iand(data_tmp, mask_left(28))
21015  pack_tmp = ior(pack_tmp, data_tmp)
21016  ipack = ipack + 1
21017  packed_data(ipack) = pack_tmp
21018  data_tmp = full_data(idata)
21019  pack_tmp = ishft(data_tmp, 63)
21020  pack_tmp = ishft(pack_tmp, -29)
21021  idata = idata + 1
21022  data_tmp = full_data(idata)
21023  data_tmp = ishft(data_tmp, 35)
21024  pack_tmp = ior(pack_tmp, data_tmp)
21025  pack_tmp = ishft(pack_tmp, -29)
21026  idata = idata + 1
21027  data_tmp = full_data(idata)
21028  data_tmp = ishft(data_tmp, 35)
21029  pack_tmp = ior(pack_tmp, data_tmp)
21030  pack_tmp = ishft(pack_tmp, -5)
21031  idata = idata + 1
21032  data_tmp = full_data(idata)
21033  data_tmp = ishft(data_tmp, 35)
21034  data_tmp = iand(data_tmp, mask_left(5))
21035  pack_tmp = ior(pack_tmp, data_tmp)
21036  ipack = ipack + 1
21037  packed_data(ipack) = pack_tmp
21038  data_tmp = full_data(idata)
21039  pack_tmp = ishft(data_tmp, 40)
21040  pack_tmp = ishft(pack_tmp, -29)
21041  idata = idata + 1
21042  data_tmp = full_data(idata)
21043  data_tmp = ishft(data_tmp, 35)
21044  pack_tmp = ior(pack_tmp, data_tmp)
21045  pack_tmp = ishft(pack_tmp, -11)
21046  idata = idata + 1
21047  data_tmp = full_data(idata)
21048  data_tmp = ishft(data_tmp, 35)
21049  data_tmp = iand(data_tmp, mask_left(11))
21050  pack_tmp = ior(pack_tmp, data_tmp)
21051  ipack = ipack + 1
21052  packed_data(ipack) = pack_tmp
21053  data_tmp = full_data(idata)
21054  pack_tmp = ishft(data_tmp, 46)
21055  pack_tmp = ishft(pack_tmp, -29)
21056  idata = idata + 1
21057  data_tmp = full_data(idata)
21058  data_tmp = ishft(data_tmp, 35)
21059  pack_tmp = ior(pack_tmp, data_tmp)
21060  pack_tmp = ishft(pack_tmp, -17)
21061  idata = idata + 1
21062  data_tmp = full_data(idata)
21063  data_tmp = ishft(data_tmp, 35)
21064  data_tmp = iand(data_tmp, mask_left(17))
21065  pack_tmp = ior(pack_tmp, data_tmp)
21066  ipack = ipack + 1
21067  packed_data(ipack) = pack_tmp
21068  data_tmp = full_data(idata)
21069  pack_tmp = ishft(data_tmp, 52)
21070  pack_tmp = ishft(pack_tmp, -29)
21071  idata = idata + 1
21072  data_tmp = full_data(idata)
21073  data_tmp = ishft(data_tmp, 35)
21074  pack_tmp = ior(pack_tmp, data_tmp)
21075  pack_tmp = ishft(pack_tmp, -23)
21076  idata = idata + 1
21077  data_tmp = full_data(idata)
21078  data_tmp = ishft(data_tmp, 35)
21079  data_tmp = iand(data_tmp, mask_left(23))
21080  pack_tmp = ior(pack_tmp, data_tmp)
21081  ipack = ipack + 1
21082  packed_data(ipack) = pack_tmp
21083  data_tmp = full_data(idata)
21084  pack_tmp = ishft(data_tmp, 58)
21085  pack_tmp = ishft(pack_tmp, -29)
21086  idata = idata + 1
21087  data_tmp = full_data(idata)
21088  data_tmp = ishft(data_tmp, 35)
21089  pack_tmp = ior(pack_tmp, data_tmp)
21090  pack_tmp = ishft(pack_tmp, -29)
21091  idata = idata + 1
21092  data_tmp = full_data(idata)
21093  data_tmp = ishft(data_tmp, 35)
21094  pack_tmp = ior(pack_tmp, data_tmp)
21095  pack_tmp = ishft(pack_tmp, 0)
21096  pack_tmp = ishft(pack_tmp, 0)
21097  ipack = ipack + 1
21098  packed_data(ipack) = pack_tmp
21099  END DO
21100  IF (ndata_rep < ndata) THEN
21101  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
21102  END IF
21103  END SUBROUTINE ints2bits_29
21104 
21105 ! **************************************************************************************************
21106 !> \brief ...
21107 !> \param Ndata ...
21108 !> \param packed_data ...
21109 !> \param full_data ...
21110 ! **************************************************************************************************
21111  SUBROUTINE bits2ints_29(Ndata, packed_data, full_data)
21112  INTEGER, INTENT(IN) :: Ndata
21113  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
21114  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
21115 
21116  INTEGER, PARAMETER :: Nbits = 29
21117 
21118  INTEGER :: idata, ipack, kdata, Ndata_rep
21119  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
21120 
21121  ipack = 0
21122  idata = 0
21123  pack_tmp = 0
21124  ndata_rep = (ndata/64)*64
21125  DO kdata = 1, ndata_rep, 64
21126  idata = idata + 1
21127  data_tmp = ishft(pack_tmp, 29)
21128  ipack = ipack + 1
21129  pack_tmp = packed_data(ipack)
21130  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
21131  pack_tmp = ishft(pack_tmp, -29)
21132  idata = idata + 1
21133  data_tmp = iand(pack_tmp, mask_right(nbits))
21134  full_data(idata) = data_tmp
21135  pack_tmp = ishft(pack_tmp, -nbits)
21136  idata = idata + 1
21137  data_tmp = ishft(pack_tmp, 23)
21138  ipack = ipack + 1
21139  pack_tmp = packed_data(ipack)
21140  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
21141  pack_tmp = ishft(pack_tmp, -23)
21142  idata = idata + 1
21143  data_tmp = iand(pack_tmp, mask_right(nbits))
21144  full_data(idata) = data_tmp
21145  pack_tmp = ishft(pack_tmp, -nbits)
21146  idata = idata + 1
21147  data_tmp = ishft(pack_tmp, 17)
21148  ipack = ipack + 1
21149  pack_tmp = packed_data(ipack)
21150  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
21151  pack_tmp = ishft(pack_tmp, -17)
21152  idata = idata + 1
21153  data_tmp = iand(pack_tmp, mask_right(nbits))
21154  full_data(idata) = data_tmp
21155  pack_tmp = ishft(pack_tmp, -nbits)
21156  idata = idata + 1
21157  data_tmp = ishft(pack_tmp, 11)
21158  ipack = ipack + 1
21159  pack_tmp = packed_data(ipack)
21160  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
21161  pack_tmp = ishft(pack_tmp, -11)
21162  idata = idata + 1
21163  data_tmp = iand(pack_tmp, mask_right(nbits))
21164  full_data(idata) = data_tmp
21165  pack_tmp = ishft(pack_tmp, -nbits)
21166  idata = idata + 1
21167  data_tmp = ishft(pack_tmp, 5)
21168  ipack = ipack + 1
21169  pack_tmp = packed_data(ipack)
21170  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
21171  pack_tmp = ishft(pack_tmp, -5)
21172  idata = idata + 1
21173  data_tmp = iand(pack_tmp, mask_right(nbits))
21174  full_data(idata) = data_tmp
21175  pack_tmp = ishft(pack_tmp, -nbits)
21176  idata = idata + 1
21177  data_tmp = iand(pack_tmp, mask_right(nbits))
21178  full_data(idata) = data_tmp
21179  pack_tmp = ishft(pack_tmp, -nbits)
21180  idata = idata + 1
21181  data_tmp = ishft(pack_tmp, 28)
21182  ipack = ipack + 1
21183  pack_tmp = packed_data(ipack)
21184  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
21185  pack_tmp = ishft(pack_tmp, -28)
21186  idata = idata + 1
21187  data_tmp = iand(pack_tmp, mask_right(nbits))
21188  full_data(idata) = data_tmp
21189  pack_tmp = ishft(pack_tmp, -nbits)
21190  idata = idata + 1
21191  data_tmp = ishft(pack_tmp, 22)
21192  ipack = ipack + 1
21193  pack_tmp = packed_data(ipack)
21194  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
21195  pack_tmp = ishft(pack_tmp, -22)
21196  idata = idata + 1
21197  data_tmp = iand(pack_tmp, mask_right(nbits))
21198  full_data(idata) = data_tmp
21199  pack_tmp = ishft(pack_tmp, -nbits)
21200  idata = idata + 1
21201  data_tmp = ishft(pack_tmp, 16)
21202  ipack = ipack + 1
21203  pack_tmp = packed_data(ipack)
21204  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
21205  pack_tmp = ishft(pack_tmp, -16)
21206  idata = idata + 1
21207  data_tmp = iand(pack_tmp, mask_right(nbits))
21208  full_data(idata) = data_tmp
21209  pack_tmp = ishft(pack_tmp, -nbits)
21210  idata = idata + 1
21211  data_tmp = ishft(pack_tmp, 10)
21212  ipack = ipack + 1
21213  pack_tmp = packed_data(ipack)
21214  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
21215  pack_tmp = ishft(pack_tmp, -10)
21216  idata = idata + 1
21217  data_tmp = iand(pack_tmp, mask_right(nbits))
21218  full_data(idata) = data_tmp
21219  pack_tmp = ishft(pack_tmp, -nbits)
21220  idata = idata + 1
21221  data_tmp = ishft(pack_tmp, 4)
21222  ipack = ipack + 1
21223  pack_tmp = packed_data(ipack)
21224  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
21225  pack_tmp = ishft(pack_tmp, -4)
21226  idata = idata + 1
21227  data_tmp = iand(pack_tmp, mask_right(nbits))
21228  full_data(idata) = data_tmp
21229  pack_tmp = ishft(pack_tmp, -nbits)
21230  idata = idata + 1
21231  data_tmp = iand(pack_tmp, mask_right(nbits))
21232  full_data(idata) = data_tmp
21233  pack_tmp = ishft(pack_tmp, -nbits)
21234  idata = idata + 1
21235  data_tmp = ishft(pack_tmp, 27)
21236  ipack = ipack + 1
21237  pack_tmp = packed_data(ipack)
21238  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
21239  pack_tmp = ishft(pack_tmp, -27)
21240  idata = idata + 1
21241  data_tmp = iand(pack_tmp, mask_right(nbits))
21242  full_data(idata) = data_tmp
21243  pack_tmp = ishft(pack_tmp, -nbits)
21244  idata = idata + 1
21245  data_tmp = ishft(pack_tmp, 21)
21246  ipack = ipack + 1
21247  pack_tmp = packed_data(ipack)
21248  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
21249  pack_tmp = ishft(pack_tmp, -21)
21250  idata = idata + 1
21251  data_tmp = iand(pack_tmp, mask_right(nbits))
21252  full_data(idata) = data_tmp
21253  pack_tmp = ishft(pack_tmp, -nbits)
21254  idata = idata + 1
21255  data_tmp = ishft(pack_tmp, 15)
21256  ipack = ipack + 1
21257  pack_tmp = packed_data(ipack)
21258  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
21259  pack_tmp = ishft(pack_tmp, -15)
21260  idata = idata + 1
21261  data_tmp = iand(pack_tmp, mask_right(nbits))
21262  full_data(idata) = data_tmp
21263  pack_tmp = ishft(pack_tmp, -nbits)
21264  idata = idata + 1
21265  data_tmp = ishft(pack_tmp, 9)
21266  ipack = ipack + 1
21267  pack_tmp = packed_data(ipack)
21268  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
21269  pack_tmp = ishft(pack_tmp, -9)
21270  idata = idata + 1
21271  data_tmp = iand(pack_tmp, mask_right(nbits))
21272  full_data(idata) = data_tmp
21273  pack_tmp = ishft(pack_tmp, -nbits)
21274  idata = idata + 1
21275  data_tmp = ishft(pack_tmp, 3)
21276  ipack = ipack + 1
21277  pack_tmp = packed_data(ipack)
21278  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
21279  pack_tmp = ishft(pack_tmp, -3)
21280  idata = idata + 1
21281  data_tmp = iand(pack_tmp, mask_right(nbits))
21282  full_data(idata) = data_tmp
21283  pack_tmp = ishft(pack_tmp, -nbits)
21284  idata = idata + 1
21285  data_tmp = iand(pack_tmp, mask_right(nbits))
21286  full_data(idata) = data_tmp
21287  pack_tmp = ishft(pack_tmp, -nbits)
21288  idata = idata + 1
21289  data_tmp = ishft(pack_tmp, 26)
21290  ipack = ipack + 1
21291  pack_tmp = packed_data(ipack)
21292  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
21293  pack_tmp = ishft(pack_tmp, -26)
21294  idata = idata + 1
21295  data_tmp = iand(pack_tmp, mask_right(nbits))
21296  full_data(idata) = data_tmp
21297  pack_tmp = ishft(pack_tmp, -nbits)
21298  idata = idata + 1
21299  data_tmp = ishft(pack_tmp, 20)
21300  ipack = ipack + 1
21301  pack_tmp = packed_data(ipack)
21302  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
21303  pack_tmp = ishft(pack_tmp, -20)
21304  idata = idata + 1
21305  data_tmp = iand(pack_tmp, mask_right(nbits))
21306  full_data(idata) = data_tmp
21307  pack_tmp = ishft(pack_tmp, -nbits)
21308  idata = idata + 1
21309  data_tmp = ishft(pack_tmp, 14)
21310  ipack = ipack + 1
21311  pack_tmp = packed_data(ipack)
21312  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
21313  pack_tmp = ishft(pack_tmp, -14)
21314  idata = idata + 1
21315  data_tmp = iand(pack_tmp, mask_right(nbits))
21316  full_data(idata) = data_tmp
21317  pack_tmp = ishft(pack_tmp, -nbits)
21318  idata = idata + 1
21319  data_tmp = ishft(pack_tmp, 8)
21320  ipack = ipack + 1
21321  pack_tmp = packed_data(ipack)
21322  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
21323  pack_tmp = ishft(pack_tmp, -8)
21324  idata = idata + 1
21325  data_tmp = iand(pack_tmp, mask_right(nbits))
21326  full_data(idata) = data_tmp
21327  pack_tmp = ishft(pack_tmp, -nbits)
21328  idata = idata + 1
21329  data_tmp = ishft(pack_tmp, 2)
21330  ipack = ipack + 1
21331  pack_tmp = packed_data(ipack)
21332  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
21333  pack_tmp = ishft(pack_tmp, -2)
21334  idata = idata + 1
21335  data_tmp = iand(pack_tmp, mask_right(nbits))
21336  full_data(idata) = data_tmp
21337  pack_tmp = ishft(pack_tmp, -nbits)
21338  idata = idata + 1
21339  data_tmp = iand(pack_tmp, mask_right(nbits))
21340  full_data(idata) = data_tmp
21341  pack_tmp = ishft(pack_tmp, -nbits)
21342  idata = idata + 1
21343  data_tmp = ishft(pack_tmp, 25)
21344  ipack = ipack + 1
21345  pack_tmp = packed_data(ipack)
21346  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
21347  pack_tmp = ishft(pack_tmp, -25)
21348  idata = idata + 1
21349  data_tmp = iand(pack_tmp, mask_right(nbits))
21350  full_data(idata) = data_tmp
21351  pack_tmp = ishft(pack_tmp, -nbits)
21352  idata = idata + 1
21353  data_tmp = ishft(pack_tmp, 19)
21354  ipack = ipack + 1
21355  pack_tmp = packed_data(ipack)
21356  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
21357  pack_tmp = ishft(pack_tmp, -19)
21358  idata = idata + 1
21359  data_tmp = iand(pack_tmp, mask_right(nbits))
21360  full_data(idata) = data_tmp
21361  pack_tmp = ishft(pack_tmp, -nbits)
21362  idata = idata + 1
21363  data_tmp = ishft(pack_tmp, 13)
21364  ipack = ipack + 1
21365  pack_tmp = packed_data(ipack)
21366  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
21367  pack_tmp = ishft(pack_tmp, -13)
21368  idata = idata + 1
21369  data_tmp = iand(pack_tmp, mask_right(nbits))
21370  full_data(idata) = data_tmp
21371  pack_tmp = ishft(pack_tmp, -nbits)
21372  idata = idata + 1
21373  data_tmp = ishft(pack_tmp, 7)
21374  ipack = ipack + 1
21375  pack_tmp = packed_data(ipack)
21376  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
21377  pack_tmp = ishft(pack_tmp, -7)
21378  idata = idata + 1
21379  data_tmp = iand(pack_tmp, mask_right(nbits))
21380  full_data(idata) = data_tmp
21381  pack_tmp = ishft(pack_tmp, -nbits)
21382  idata = idata + 1
21383  data_tmp = ishft(pack_tmp, 1)
21384  ipack = ipack + 1
21385  pack_tmp = packed_data(ipack)
21386  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
21387  pack_tmp = ishft(pack_tmp, -1)
21388  idata = idata + 1
21389  data_tmp = iand(pack_tmp, mask_right(nbits))
21390  full_data(idata) = data_tmp
21391  pack_tmp = ishft(pack_tmp, -nbits)
21392  idata = idata + 1
21393  data_tmp = iand(pack_tmp, mask_right(nbits))
21394  full_data(idata) = data_tmp
21395  pack_tmp = ishft(pack_tmp, -nbits)
21396  idata = idata + 1
21397  data_tmp = ishft(pack_tmp, 24)
21398  ipack = ipack + 1
21399  pack_tmp = packed_data(ipack)
21400  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
21401  pack_tmp = ishft(pack_tmp, -24)
21402  idata = idata + 1
21403  data_tmp = iand(pack_tmp, mask_right(nbits))
21404  full_data(idata) = data_tmp
21405  pack_tmp = ishft(pack_tmp, -nbits)
21406  idata = idata + 1
21407  data_tmp = ishft(pack_tmp, 18)
21408  ipack = ipack + 1
21409  pack_tmp = packed_data(ipack)
21410  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
21411  pack_tmp = ishft(pack_tmp, -18)
21412  idata = idata + 1
21413  data_tmp = iand(pack_tmp, mask_right(nbits))
21414  full_data(idata) = data_tmp
21415  pack_tmp = ishft(pack_tmp, -nbits)
21416  idata = idata + 1
21417  data_tmp = ishft(pack_tmp, 12)
21418  ipack = ipack + 1
21419  pack_tmp = packed_data(ipack)
21420  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
21421  pack_tmp = ishft(pack_tmp, -12)
21422  idata = idata + 1
21423  data_tmp = iand(pack_tmp, mask_right(nbits))
21424  full_data(idata) = data_tmp
21425  pack_tmp = ishft(pack_tmp, -nbits)
21426  idata = idata + 1
21427  data_tmp = ishft(pack_tmp, 6)
21428  ipack = ipack + 1
21429  pack_tmp = packed_data(ipack)
21430  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
21431  pack_tmp = ishft(pack_tmp, -6)
21432  idata = idata + 1
21433  data_tmp = iand(pack_tmp, mask_right(nbits))
21434  full_data(idata) = data_tmp
21435  pack_tmp = ishft(pack_tmp, -nbits)
21436  idata = idata + 1
21437  data_tmp = iand(pack_tmp, mask_right(nbits))
21438  full_data(idata) = data_tmp
21439  pack_tmp = ishft(pack_tmp, -nbits)
21440  END DO
21441  IF (ndata_rep < ndata) THEN
21442  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
21443  END IF
21444  END SUBROUTINE bits2ints_29
21445 
21446 ! **************************************************************************************************
21447 !> \brief ...
21448 !> \param Ndata ...
21449 !> \param packed_data ...
21450 !> \param full_data ...
21451 ! **************************************************************************************************
21452  SUBROUTINE ints2bits_30(Ndata, packed_data, full_data)
21453  INTEGER, INTENT(IN) :: Ndata
21454  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
21455  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
21456 
21457  INTEGER, PARAMETER :: Nbits = 30
21458 
21459  INTEGER :: idata, ipack, kdata, Ndata_rep
21460  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
21461 
21462  idata = 0
21463  ipack = 0
21464  ndata_rep = (ndata/64)*64
21465  DO kdata = 1, ndata_rep, 64
21466  pack_tmp = 0
21467  idata = idata + 1
21468  data_tmp = full_data(idata)
21469  data_tmp = ishft(data_tmp, 34)
21470  pack_tmp = ior(pack_tmp, data_tmp)
21471  pack_tmp = ishft(pack_tmp, -30)
21472  idata = idata + 1
21473  data_tmp = full_data(idata)
21474  data_tmp = ishft(data_tmp, 34)
21475  pack_tmp = ior(pack_tmp, data_tmp)
21476  pack_tmp = ishft(pack_tmp, -4)
21477  idata = idata + 1
21478  data_tmp = full_data(idata)
21479  data_tmp = ishft(data_tmp, 34)
21480  data_tmp = iand(data_tmp, mask_left(4))
21481  pack_tmp = ior(pack_tmp, data_tmp)
21482  ipack = ipack + 1
21483  packed_data(ipack) = pack_tmp
21484  data_tmp = full_data(idata)
21485  pack_tmp = ishft(data_tmp, 38)
21486  pack_tmp = ishft(pack_tmp, -30)
21487  idata = idata + 1
21488  data_tmp = full_data(idata)
21489  data_tmp = ishft(data_tmp, 34)
21490  pack_tmp = ior(pack_tmp, data_tmp)
21491  pack_tmp = ishft(pack_tmp, -8)
21492  idata = idata + 1
21493  data_tmp = full_data(idata)
21494  data_tmp = ishft(data_tmp, 34)
21495  data_tmp = iand(data_tmp, mask_left(8))
21496  pack_tmp = ior(pack_tmp, data_tmp)
21497  ipack = ipack + 1
21498  packed_data(ipack) = pack_tmp
21499  data_tmp = full_data(idata)
21500  pack_tmp = ishft(data_tmp, 42)
21501  pack_tmp = ishft(pack_tmp, -30)
21502  idata = idata + 1
21503  data_tmp = full_data(idata)
21504  data_tmp = ishft(data_tmp, 34)
21505  pack_tmp = ior(pack_tmp, data_tmp)
21506  pack_tmp = ishft(pack_tmp, -12)
21507  idata = idata + 1
21508  data_tmp = full_data(idata)
21509  data_tmp = ishft(data_tmp, 34)
21510  data_tmp = iand(data_tmp, mask_left(12))
21511  pack_tmp = ior(pack_tmp, data_tmp)
21512  ipack = ipack + 1
21513  packed_data(ipack) = pack_tmp
21514  data_tmp = full_data(idata)
21515  pack_tmp = ishft(data_tmp, 46)
21516  pack_tmp = ishft(pack_tmp, -30)
21517  idata = idata + 1
21518  data_tmp = full_data(idata)
21519  data_tmp = ishft(data_tmp, 34)
21520  pack_tmp = ior(pack_tmp, data_tmp)
21521  pack_tmp = ishft(pack_tmp, -16)
21522  idata = idata + 1
21523  data_tmp = full_data(idata)
21524  data_tmp = ishft(data_tmp, 34)
21525  data_tmp = iand(data_tmp, mask_left(16))
21526  pack_tmp = ior(pack_tmp, data_tmp)
21527  ipack = ipack + 1
21528  packed_data(ipack) = pack_tmp
21529  data_tmp = full_data(idata)
21530  pack_tmp = ishft(data_tmp, 50)
21531  pack_tmp = ishft(pack_tmp, -30)
21532  idata = idata + 1
21533  data_tmp = full_data(idata)
21534  data_tmp = ishft(data_tmp, 34)
21535  pack_tmp = ior(pack_tmp, data_tmp)
21536  pack_tmp = ishft(pack_tmp, -20)
21537  idata = idata + 1
21538  data_tmp = full_data(idata)
21539  data_tmp = ishft(data_tmp, 34)
21540  data_tmp = iand(data_tmp, mask_left(20))
21541  pack_tmp = ior(pack_tmp, data_tmp)
21542  ipack = ipack + 1
21543  packed_data(ipack) = pack_tmp
21544  data_tmp = full_data(idata)
21545  pack_tmp = ishft(data_tmp, 54)
21546  pack_tmp = ishft(pack_tmp, -30)
21547  idata = idata + 1
21548  data_tmp = full_data(idata)
21549  data_tmp = ishft(data_tmp, 34)
21550  pack_tmp = ior(pack_tmp, data_tmp)
21551  pack_tmp = ishft(pack_tmp, -24)
21552  idata = idata + 1
21553  data_tmp = full_data(idata)
21554  data_tmp = ishft(data_tmp, 34)
21555  data_tmp = iand(data_tmp, mask_left(24))
21556  pack_tmp = ior(pack_tmp, data_tmp)
21557  ipack = ipack + 1
21558  packed_data(ipack) = pack_tmp
21559  data_tmp = full_data(idata)
21560  pack_tmp = ishft(data_tmp, 58)
21561  pack_tmp = ishft(pack_tmp, -30)
21562  idata = idata + 1
21563  data_tmp = full_data(idata)
21564  data_tmp = ishft(data_tmp, 34)
21565  pack_tmp = ior(pack_tmp, data_tmp)
21566  pack_tmp = ishft(pack_tmp, -28)
21567  idata = idata + 1
21568  data_tmp = full_data(idata)
21569  data_tmp = ishft(data_tmp, 34)
21570  data_tmp = iand(data_tmp, mask_left(28))
21571  pack_tmp = ior(pack_tmp, data_tmp)
21572  ipack = ipack + 1
21573  packed_data(ipack) = pack_tmp
21574  data_tmp = full_data(idata)
21575  pack_tmp = ishft(data_tmp, 62)
21576  pack_tmp = ishft(pack_tmp, -30)
21577  idata = idata + 1
21578  data_tmp = full_data(idata)
21579  data_tmp = ishft(data_tmp, 34)
21580  pack_tmp = ior(pack_tmp, data_tmp)
21581  pack_tmp = ishft(pack_tmp, -30)
21582  idata = idata + 1
21583  data_tmp = full_data(idata)
21584  data_tmp = ishft(data_tmp, 34)
21585  pack_tmp = ior(pack_tmp, data_tmp)
21586  pack_tmp = ishft(pack_tmp, -2)
21587  idata = idata + 1
21588  data_tmp = full_data(idata)
21589  data_tmp = ishft(data_tmp, 34)
21590  data_tmp = iand(data_tmp, mask_left(2))
21591  pack_tmp = ior(pack_tmp, data_tmp)
21592  ipack = ipack + 1
21593  packed_data(ipack) = pack_tmp
21594  data_tmp = full_data(idata)
21595  pack_tmp = ishft(data_tmp, 36)
21596  pack_tmp = ishft(pack_tmp, -30)
21597  idata = idata + 1
21598  data_tmp = full_data(idata)
21599  data_tmp = ishft(data_tmp, 34)
21600  pack_tmp = ior(pack_tmp, data_tmp)
21601  pack_tmp = ishft(pack_tmp, -6)
21602  idata = idata + 1
21603  data_tmp = full_data(idata)
21604  data_tmp = ishft(data_tmp, 34)
21605  data_tmp = iand(data_tmp, mask_left(6))
21606  pack_tmp = ior(pack_tmp, data_tmp)
21607  ipack = ipack + 1
21608  packed_data(ipack) = pack_tmp
21609  data_tmp = full_data(idata)
21610  pack_tmp = ishft(data_tmp, 40)
21611  pack_tmp = ishft(pack_tmp, -30)
21612  idata = idata + 1
21613  data_tmp = full_data(idata)
21614  data_tmp = ishft(data_tmp, 34)
21615  pack_tmp = ior(pack_tmp, data_tmp)
21616  pack_tmp = ishft(pack_tmp, -10)
21617  idata = idata + 1
21618  data_tmp = full_data(idata)
21619  data_tmp = ishft(data_tmp, 34)
21620  data_tmp = iand(data_tmp, mask_left(10))
21621  pack_tmp = ior(pack_tmp, data_tmp)
21622  ipack = ipack + 1
21623  packed_data(ipack) = pack_tmp
21624  data_tmp = full_data(idata)
21625  pack_tmp = ishft(data_tmp, 44)
21626  pack_tmp = ishft(pack_tmp, -30)
21627  idata = idata + 1
21628  data_tmp = full_data(idata)
21629  data_tmp = ishft(data_tmp, 34)
21630  pack_tmp = ior(pack_tmp, data_tmp)
21631  pack_tmp = ishft(pack_tmp, -14)
21632  idata = idata + 1
21633  data_tmp = full_data(idata)
21634  data_tmp = ishft(data_tmp, 34)
21635  data_tmp = iand(data_tmp, mask_left(14))
21636  pack_tmp = ior(pack_tmp, data_tmp)
21637  ipack = ipack + 1
21638  packed_data(ipack) = pack_tmp
21639  data_tmp = full_data(idata)
21640  pack_tmp = ishft(data_tmp, 48)
21641  pack_tmp = ishft(pack_tmp, -30)
21642  idata = idata + 1
21643  data_tmp = full_data(idata)
21644  data_tmp = ishft(data_tmp, 34)
21645  pack_tmp = ior(pack_tmp, data_tmp)
21646  pack_tmp = ishft(pack_tmp, -18)
21647  idata = idata + 1
21648  data_tmp = full_data(idata)
21649  data_tmp = ishft(data_tmp, 34)
21650  data_tmp = iand(data_tmp, mask_left(18))
21651  pack_tmp = ior(pack_tmp, data_tmp)
21652  ipack = ipack + 1
21653  packed_data(ipack) = pack_tmp
21654  data_tmp = full_data(idata)
21655  pack_tmp = ishft(data_tmp, 52)
21656  pack_tmp = ishft(pack_tmp, -30)
21657  idata = idata + 1
21658  data_tmp = full_data(idata)
21659  data_tmp = ishft(data_tmp, 34)
21660  pack_tmp = ior(pack_tmp, data_tmp)
21661  pack_tmp = ishft(pack_tmp, -22)
21662  idata = idata + 1
21663  data_tmp = full_data(idata)
21664  data_tmp = ishft(data_tmp, 34)
21665  data_tmp = iand(data_tmp, mask_left(22))
21666  pack_tmp = ior(pack_tmp, data_tmp)
21667  ipack = ipack + 1
21668  packed_data(ipack) = pack_tmp
21669  data_tmp = full_data(idata)
21670  pack_tmp = ishft(data_tmp, 56)
21671  pack_tmp = ishft(pack_tmp, -30)
21672  idata = idata + 1
21673  data_tmp = full_data(idata)
21674  data_tmp = ishft(data_tmp, 34)
21675  pack_tmp = ior(pack_tmp, data_tmp)
21676  pack_tmp = ishft(pack_tmp, -26)
21677  idata = idata + 1
21678  data_tmp = full_data(idata)
21679  data_tmp = ishft(data_tmp, 34)
21680  data_tmp = iand(data_tmp, mask_left(26))
21681  pack_tmp = ior(pack_tmp, data_tmp)
21682  ipack = ipack + 1
21683  packed_data(ipack) = pack_tmp
21684  data_tmp = full_data(idata)
21685  pack_tmp = ishft(data_tmp, 60)
21686  pack_tmp = ishft(pack_tmp, -30)
21687  idata = idata + 1
21688  data_tmp = full_data(idata)
21689  data_tmp = ishft(data_tmp, 34)
21690  pack_tmp = ior(pack_tmp, data_tmp)
21691  pack_tmp = ishft(pack_tmp, -30)
21692  idata = idata + 1
21693  data_tmp = full_data(idata)
21694  data_tmp = ishft(data_tmp, 34)
21695  pack_tmp = ior(pack_tmp, data_tmp)
21696  pack_tmp = ishft(pack_tmp, 0)
21697  idata = idata + 1
21698  data_tmp = full_data(idata)
21699  data_tmp = ishft(data_tmp, 34)
21700  data_tmp = iand(data_tmp, mask_left(0))
21701  pack_tmp = ior(pack_tmp, data_tmp)
21702  ipack = ipack + 1
21703  packed_data(ipack) = pack_tmp
21704  data_tmp = full_data(idata)
21705  pack_tmp = ishft(data_tmp, 34)
21706  pack_tmp = ishft(pack_tmp, -30)
21707  idata = idata + 1
21708  data_tmp = full_data(idata)
21709  data_tmp = ishft(data_tmp, 34)
21710  pack_tmp = ior(pack_tmp, data_tmp)
21711  pack_tmp = ishft(pack_tmp, -4)
21712  idata = idata + 1
21713  data_tmp = full_data(idata)
21714  data_tmp = ishft(data_tmp, 34)
21715  data_tmp = iand(data_tmp, mask_left(4))
21716  pack_tmp = ior(pack_tmp, data_tmp)
21717  ipack = ipack + 1
21718  packed_data(ipack) = pack_tmp
21719  data_tmp = full_data(idata)
21720  pack_tmp = ishft(data_tmp, 38)
21721  pack_tmp = ishft(pack_tmp, -30)
21722  idata = idata + 1
21723  data_tmp = full_data(idata)
21724  data_tmp = ishft(data_tmp, 34)
21725  pack_tmp = ior(pack_tmp, data_tmp)
21726  pack_tmp = ishft(pack_tmp, -8)
21727  idata = idata + 1
21728  data_tmp = full_data(idata)
21729  data_tmp = ishft(data_tmp, 34)
21730  data_tmp = iand(data_tmp, mask_left(8))
21731  pack_tmp = ior(pack_tmp, data_tmp)
21732  ipack = ipack + 1
21733  packed_data(ipack) = pack_tmp
21734  data_tmp = full_data(idata)
21735  pack_tmp = ishft(data_tmp, 42)
21736  pack_tmp = ishft(pack_tmp, -30)
21737  idata = idata + 1
21738  data_tmp = full_data(idata)
21739  data_tmp = ishft(data_tmp, 34)
21740  pack_tmp = ior(pack_tmp, data_tmp)
21741  pack_tmp = ishft(pack_tmp, -12)
21742  idata = idata + 1
21743  data_tmp = full_data(idata)
21744  data_tmp = ishft(data_tmp, 34)
21745  data_tmp = iand(data_tmp, mask_left(12))
21746  pack_tmp = ior(pack_tmp, data_tmp)
21747  ipack = ipack + 1
21748  packed_data(ipack) = pack_tmp
21749  data_tmp = full_data(idata)
21750  pack_tmp = ishft(data_tmp, 46)
21751  pack_tmp = ishft(pack_tmp, -30)
21752  idata = idata + 1
21753  data_tmp = full_data(idata)
21754  data_tmp = ishft(data_tmp, 34)
21755  pack_tmp = ior(pack_tmp, data_tmp)
21756  pack_tmp = ishft(pack_tmp, -16)
21757  idata = idata + 1
21758  data_tmp = full_data(idata)
21759  data_tmp = ishft(data_tmp, 34)
21760  data_tmp = iand(data_tmp, mask_left(16))
21761  pack_tmp = ior(pack_tmp, data_tmp)
21762  ipack = ipack + 1
21763  packed_data(ipack) = pack_tmp
21764  data_tmp = full_data(idata)
21765  pack_tmp = ishft(data_tmp, 50)
21766  pack_tmp = ishft(pack_tmp, -30)
21767  idata = idata + 1
21768  data_tmp = full_data(idata)
21769  data_tmp = ishft(data_tmp, 34)
21770  pack_tmp = ior(pack_tmp, data_tmp)
21771  pack_tmp = ishft(pack_tmp, -20)
21772  idata = idata + 1
21773  data_tmp = full_data(idata)
21774  data_tmp = ishft(data_tmp, 34)
21775  data_tmp = iand(data_tmp, mask_left(20))
21776  pack_tmp = ior(pack_tmp, data_tmp)
21777  ipack = ipack + 1
21778  packed_data(ipack) = pack_tmp
21779  data_tmp = full_data(idata)
21780  pack_tmp = ishft(data_tmp, 54)
21781  pack_tmp = ishft(pack_tmp, -30)
21782  idata = idata + 1
21783  data_tmp = full_data(idata)
21784  data_tmp = ishft(data_tmp, 34)
21785  pack_tmp = ior(pack_tmp, data_tmp)
21786  pack_tmp = ishft(pack_tmp, -24)
21787  idata = idata + 1
21788  data_tmp = full_data(idata)
21789  data_tmp = ishft(data_tmp, 34)
21790  data_tmp = iand(data_tmp, mask_left(24))
21791  pack_tmp = ior(pack_tmp, data_tmp)
21792  ipack = ipack + 1
21793  packed_data(ipack) = pack_tmp
21794  data_tmp = full_data(idata)
21795  pack_tmp = ishft(data_tmp, 58)
21796  pack_tmp = ishft(pack_tmp, -30)
21797  idata = idata + 1
21798  data_tmp = full_data(idata)
21799  data_tmp = ishft(data_tmp, 34)
21800  pack_tmp = ior(pack_tmp, data_tmp)
21801  pack_tmp = ishft(pack_tmp, -28)
21802  idata = idata + 1
21803  data_tmp = full_data(idata)
21804  data_tmp = ishft(data_tmp, 34)
21805  data_tmp = iand(data_tmp, mask_left(28))
21806  pack_tmp = ior(pack_tmp, data_tmp)
21807  ipack = ipack + 1
21808  packed_data(ipack) = pack_tmp
21809  data_tmp = full_data(idata)
21810  pack_tmp = ishft(data_tmp, 62)
21811  pack_tmp = ishft(pack_tmp, -30)
21812  idata = idata + 1
21813  data_tmp = full_data(idata)
21814  data_tmp = ishft(data_tmp, 34)
21815  pack_tmp = ior(pack_tmp, data_tmp)
21816  pack_tmp = ishft(pack_tmp, -30)
21817  idata = idata + 1
21818  data_tmp = full_data(idata)
21819  data_tmp = ishft(data_tmp, 34)
21820  pack_tmp = ior(pack_tmp, data_tmp)
21821  pack_tmp = ishft(pack_tmp, -2)
21822  idata = idata + 1
21823  data_tmp = full_data(idata)
21824  data_tmp = ishft(data_tmp, 34)
21825  data_tmp = iand(data_tmp, mask_left(2))
21826  pack_tmp = ior(pack_tmp, data_tmp)
21827  ipack = ipack + 1
21828  packed_data(ipack) = pack_tmp
21829  data_tmp = full_data(idata)
21830  pack_tmp = ishft(data_tmp, 36)
21831  pack_tmp = ishft(pack_tmp, -30)
21832  idata = idata + 1
21833  data_tmp = full_data(idata)
21834  data_tmp = ishft(data_tmp, 34)
21835  pack_tmp = ior(pack_tmp, data_tmp)
21836  pack_tmp = ishft(pack_tmp, -6)
21837  idata = idata + 1
21838  data_tmp = full_data(idata)
21839  data_tmp = ishft(data_tmp, 34)
21840  data_tmp = iand(data_tmp, mask_left(6))
21841  pack_tmp = ior(pack_tmp, data_tmp)
21842  ipack = ipack + 1
21843  packed_data(ipack) = pack_tmp
21844  data_tmp = full_data(idata)
21845  pack_tmp = ishft(data_tmp, 40)
21846  pack_tmp = ishft(pack_tmp, -30)
21847  idata = idata + 1
21848  data_tmp = full_data(idata)
21849  data_tmp = ishft(data_tmp, 34)
21850  pack_tmp = ior(pack_tmp, data_tmp)
21851  pack_tmp = ishft(pack_tmp, -10)
21852  idata = idata + 1
21853  data_tmp = full_data(idata)
21854  data_tmp = ishft(data_tmp, 34)
21855  data_tmp = iand(data_tmp, mask_left(10))
21856  pack_tmp = ior(pack_tmp, data_tmp)
21857  ipack = ipack + 1
21858  packed_data(ipack) = pack_tmp
21859  data_tmp = full_data(idata)
21860  pack_tmp = ishft(data_tmp, 44)
21861  pack_tmp = ishft(pack_tmp, -30)
21862  idata = idata + 1
21863  data_tmp = full_data(idata)
21864  data_tmp = ishft(data_tmp, 34)
21865  pack_tmp = ior(pack_tmp, data_tmp)
21866  pack_tmp = ishft(pack_tmp, -14)
21867  idata = idata + 1
21868  data_tmp = full_data(idata)
21869  data_tmp = ishft(data_tmp, 34)
21870  data_tmp = iand(data_tmp, mask_left(14))
21871  pack_tmp = ior(pack_tmp, data_tmp)
21872  ipack = ipack + 1
21873  packed_data(ipack) = pack_tmp
21874  data_tmp = full_data(idata)
21875  pack_tmp = ishft(data_tmp, 48)
21876  pack_tmp = ishft(pack_tmp, -30)
21877  idata = idata + 1
21878  data_tmp = full_data(idata)
21879  data_tmp = ishft(data_tmp, 34)
21880  pack_tmp = ior(pack_tmp, data_tmp)
21881  pack_tmp = ishft(pack_tmp, -18)
21882  idata = idata + 1
21883  data_tmp = full_data(idata)
21884  data_tmp = ishft(data_tmp, 34)
21885  data_tmp = iand(data_tmp, mask_left(18))
21886  pack_tmp = ior(pack_tmp, data_tmp)
21887  ipack = ipack + 1
21888  packed_data(ipack) = pack_tmp
21889  data_tmp = full_data(idata)
21890  pack_tmp = ishft(data_tmp, 52)
21891  pack_tmp = ishft(pack_tmp, -30)
21892  idata = idata + 1
21893  data_tmp = full_data(idata)
21894  data_tmp = ishft(data_tmp, 34)
21895  pack_tmp = ior(pack_tmp, data_tmp)
21896  pack_tmp = ishft(pack_tmp, -22)
21897  idata = idata + 1
21898  data_tmp = full_data(idata)
21899  data_tmp = ishft(data_tmp, 34)
21900  data_tmp = iand(data_tmp, mask_left(22))
21901  pack_tmp = ior(pack_tmp, data_tmp)
21902  ipack = ipack + 1
21903  packed_data(ipack) = pack_tmp
21904  data_tmp = full_data(idata)
21905  pack_tmp = ishft(data_tmp, 56)
21906  pack_tmp = ishft(pack_tmp, -30)
21907  idata = idata + 1
21908  data_tmp = full_data(idata)
21909  data_tmp = ishft(data_tmp, 34)
21910  pack_tmp = ior(pack_tmp, data_tmp)
21911  pack_tmp = ishft(pack_tmp, -26)
21912  idata = idata + 1
21913  data_tmp = full_data(idata)
21914  data_tmp = ishft(data_tmp, 34)
21915  data_tmp = iand(data_tmp, mask_left(26))
21916  pack_tmp = ior(pack_tmp, data_tmp)
21917  ipack = ipack + 1
21918  packed_data(ipack) = pack_tmp
21919  data_tmp = full_data(idata)
21920  pack_tmp = ishft(data_tmp, 60)
21921  pack_tmp = ishft(pack_tmp, -30)
21922  idata = idata + 1
21923  data_tmp = full_data(idata)
21924  data_tmp = ishft(data_tmp, 34)
21925  pack_tmp = ior(pack_tmp, data_tmp)
21926  pack_tmp = ishft(pack_tmp, -30)
21927  idata = idata + 1
21928  data_tmp = full_data(idata)
21929  data_tmp = ishft(data_tmp, 34)
21930  pack_tmp = ior(pack_tmp, data_tmp)
21931  pack_tmp = ishft(pack_tmp, 0)
21932  pack_tmp = ishft(pack_tmp, 0)
21933  ipack = ipack + 1
21934  packed_data(ipack) = pack_tmp
21935  END DO
21936  IF (ndata_rep < ndata) THEN
21937  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
21938  END IF
21939  END SUBROUTINE ints2bits_30
21940 
21941 ! **************************************************************************************************
21942 !> \brief ...
21943 !> \param Ndata ...
21944 !> \param packed_data ...
21945 !> \param full_data ...
21946 ! **************************************************************************************************
21947  SUBROUTINE bits2ints_30(Ndata, packed_data, full_data)
21948  INTEGER, INTENT(IN) :: Ndata
21949  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
21950  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
21951 
21952  INTEGER, PARAMETER :: Nbits = 30
21953 
21954  INTEGER :: idata, ipack, kdata, Ndata_rep
21955  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
21956 
21957  ipack = 0
21958  idata = 0
21959  pack_tmp = 0
21960  ndata_rep = (ndata/64)*64
21961  DO kdata = 1, ndata_rep, 64
21962  idata = idata + 1
21963  data_tmp = ishft(pack_tmp, 30)
21964  ipack = ipack + 1
21965  pack_tmp = packed_data(ipack)
21966  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
21967  pack_tmp = ishft(pack_tmp, -30)
21968  idata = idata + 1
21969  data_tmp = iand(pack_tmp, mask_right(nbits))
21970  full_data(idata) = data_tmp
21971  pack_tmp = ishft(pack_tmp, -nbits)
21972  idata = idata + 1
21973  data_tmp = ishft(pack_tmp, 26)
21974  ipack = ipack + 1
21975  pack_tmp = packed_data(ipack)
21976  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
21977  pack_tmp = ishft(pack_tmp, -26)
21978  idata = idata + 1
21979  data_tmp = iand(pack_tmp, mask_right(nbits))
21980  full_data(idata) = data_tmp
21981  pack_tmp = ishft(pack_tmp, -nbits)
21982  idata = idata + 1
21983  data_tmp = ishft(pack_tmp, 22)
21984  ipack = ipack + 1
21985  pack_tmp = packed_data(ipack)
21986  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
21987  pack_tmp = ishft(pack_tmp, -22)
21988  idata = idata + 1
21989  data_tmp = iand(pack_tmp, mask_right(nbits))
21990  full_data(idata) = data_tmp
21991  pack_tmp = ishft(pack_tmp, -nbits)
21992  idata = idata + 1
21993  data_tmp = ishft(pack_tmp, 18)
21994  ipack = ipack + 1
21995  pack_tmp = packed_data(ipack)
21996  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
21997  pack_tmp = ishft(pack_tmp, -18)
21998  idata = idata + 1
21999  data_tmp = iand(pack_tmp, mask_right(nbits))
22000  full_data(idata) = data_tmp
22001  pack_tmp = ishft(pack_tmp, -nbits)
22002  idata = idata + 1
22003  data_tmp = ishft(pack_tmp, 14)
22004  ipack = ipack + 1
22005  pack_tmp = packed_data(ipack)
22006  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
22007  pack_tmp = ishft(pack_tmp, -14)
22008  idata = idata + 1
22009  data_tmp = iand(pack_tmp, mask_right(nbits))
22010  full_data(idata) = data_tmp
22011  pack_tmp = ishft(pack_tmp, -nbits)
22012  idata = idata + 1
22013  data_tmp = ishft(pack_tmp, 10)
22014  ipack = ipack + 1
22015  pack_tmp = packed_data(ipack)
22016  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
22017  pack_tmp = ishft(pack_tmp, -10)
22018  idata = idata + 1
22019  data_tmp = iand(pack_tmp, mask_right(nbits))
22020  full_data(idata) = data_tmp
22021  pack_tmp = ishft(pack_tmp, -nbits)
22022  idata = idata + 1
22023  data_tmp = ishft(pack_tmp, 6)
22024  ipack = ipack + 1
22025  pack_tmp = packed_data(ipack)
22026  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
22027  pack_tmp = ishft(pack_tmp, -6)
22028  idata = idata + 1
22029  data_tmp = iand(pack_tmp, mask_right(nbits))
22030  full_data(idata) = data_tmp
22031  pack_tmp = ishft(pack_tmp, -nbits)
22032  idata = idata + 1
22033  data_tmp = ishft(pack_tmp, 2)
22034  ipack = ipack + 1
22035  pack_tmp = packed_data(ipack)
22036  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
22037  pack_tmp = ishft(pack_tmp, -2)
22038  idata = idata + 1
22039  data_tmp = iand(pack_tmp, mask_right(nbits))
22040  full_data(idata) = data_tmp
22041  pack_tmp = ishft(pack_tmp, -nbits)
22042  idata = idata + 1
22043  data_tmp = iand(pack_tmp, mask_right(nbits))
22044  full_data(idata) = data_tmp
22045  pack_tmp = ishft(pack_tmp, -nbits)
22046  idata = idata + 1
22047  data_tmp = ishft(pack_tmp, 28)
22048  ipack = ipack + 1
22049  pack_tmp = packed_data(ipack)
22050  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
22051  pack_tmp = ishft(pack_tmp, -28)
22052  idata = idata + 1
22053  data_tmp = iand(pack_tmp, mask_right(nbits))
22054  full_data(idata) = data_tmp
22055  pack_tmp = ishft(pack_tmp, -nbits)
22056  idata = idata + 1
22057  data_tmp = ishft(pack_tmp, 24)
22058  ipack = ipack + 1
22059  pack_tmp = packed_data(ipack)
22060  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
22061  pack_tmp = ishft(pack_tmp, -24)
22062  idata = idata + 1
22063  data_tmp = iand(pack_tmp, mask_right(nbits))
22064  full_data(idata) = data_tmp
22065  pack_tmp = ishft(pack_tmp, -nbits)
22066  idata = idata + 1
22067  data_tmp = ishft(pack_tmp, 20)
22068  ipack = ipack + 1
22069  pack_tmp = packed_data(ipack)
22070  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
22071  pack_tmp = ishft(pack_tmp, -20)
22072  idata = idata + 1
22073  data_tmp = iand(pack_tmp, mask_right(nbits))
22074  full_data(idata) = data_tmp
22075  pack_tmp = ishft(pack_tmp, -nbits)
22076  idata = idata + 1
22077  data_tmp = ishft(pack_tmp, 16)
22078  ipack = ipack + 1
22079  pack_tmp = packed_data(ipack)
22080  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
22081  pack_tmp = ishft(pack_tmp, -16)
22082  idata = idata + 1
22083  data_tmp = iand(pack_tmp, mask_right(nbits))
22084  full_data(idata) = data_tmp
22085  pack_tmp = ishft(pack_tmp, -nbits)
22086  idata = idata + 1
22087  data_tmp = ishft(pack_tmp, 12)
22088  ipack = ipack + 1
22089  pack_tmp = packed_data(ipack)
22090  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
22091  pack_tmp = ishft(pack_tmp, -12)
22092  idata = idata + 1
22093  data_tmp = iand(pack_tmp, mask_right(nbits))
22094  full_data(idata) = data_tmp
22095  pack_tmp = ishft(pack_tmp, -nbits)
22096  idata = idata + 1
22097  data_tmp = ishft(pack_tmp, 8)
22098  ipack = ipack + 1
22099  pack_tmp = packed_data(ipack)
22100  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
22101  pack_tmp = ishft(pack_tmp, -8)
22102  idata = idata + 1
22103  data_tmp = iand(pack_tmp, mask_right(nbits))
22104  full_data(idata) = data_tmp
22105  pack_tmp = ishft(pack_tmp, -nbits)
22106  idata = idata + 1
22107  data_tmp = ishft(pack_tmp, 4)
22108  ipack = ipack + 1
22109  pack_tmp = packed_data(ipack)
22110  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
22111  pack_tmp = ishft(pack_tmp, -4)
22112  idata = idata + 1
22113  data_tmp = iand(pack_tmp, mask_right(nbits))
22114  full_data(idata) = data_tmp
22115  pack_tmp = ishft(pack_tmp, -nbits)
22116  idata = idata + 1
22117  data_tmp = iand(pack_tmp, mask_right(nbits))
22118  full_data(idata) = data_tmp
22119  pack_tmp = ishft(pack_tmp, -nbits)
22120  idata = idata + 1
22121  data_tmp = ishft(pack_tmp, 30)
22122  ipack = ipack + 1
22123  pack_tmp = packed_data(ipack)
22124  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
22125  pack_tmp = ishft(pack_tmp, -30)
22126  idata = idata + 1
22127  data_tmp = iand(pack_tmp, mask_right(nbits))
22128  full_data(idata) = data_tmp
22129  pack_tmp = ishft(pack_tmp, -nbits)
22130  idata = idata + 1
22131  data_tmp = ishft(pack_tmp, 26)
22132  ipack = ipack + 1
22133  pack_tmp = packed_data(ipack)
22134  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
22135  pack_tmp = ishft(pack_tmp, -26)
22136  idata = idata + 1
22137  data_tmp = iand(pack_tmp, mask_right(nbits))
22138  full_data(idata) = data_tmp
22139  pack_tmp = ishft(pack_tmp, -nbits)
22140  idata = idata + 1
22141  data_tmp = ishft(pack_tmp, 22)
22142  ipack = ipack + 1
22143  pack_tmp = packed_data(ipack)
22144  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
22145  pack_tmp = ishft(pack_tmp, -22)
22146  idata = idata + 1
22147  data_tmp = iand(pack_tmp, mask_right(nbits))
22148  full_data(idata) = data_tmp
22149  pack_tmp = ishft(pack_tmp, -nbits)
22150  idata = idata + 1
22151  data_tmp = ishft(pack_tmp, 18)
22152  ipack = ipack + 1
22153  pack_tmp = packed_data(ipack)
22154  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
22155  pack_tmp = ishft(pack_tmp, -18)
22156  idata = idata + 1
22157  data_tmp = iand(pack_tmp, mask_right(nbits))
22158  full_data(idata) = data_tmp
22159  pack_tmp = ishft(pack_tmp, -nbits)
22160  idata = idata + 1
22161  data_tmp = ishft(pack_tmp, 14)
22162  ipack = ipack + 1
22163  pack_tmp = packed_data(ipack)
22164  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
22165  pack_tmp = ishft(pack_tmp, -14)
22166  idata = idata + 1
22167  data_tmp = iand(pack_tmp, mask_right(nbits))
22168  full_data(idata) = data_tmp
22169  pack_tmp = ishft(pack_tmp, -nbits)
22170  idata = idata + 1
22171  data_tmp = ishft(pack_tmp, 10)
22172  ipack = ipack + 1
22173  pack_tmp = packed_data(ipack)
22174  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
22175  pack_tmp = ishft(pack_tmp, -10)
22176  idata = idata + 1
22177  data_tmp = iand(pack_tmp, mask_right(nbits))
22178  full_data(idata) = data_tmp
22179  pack_tmp = ishft(pack_tmp, -nbits)
22180  idata = idata + 1
22181  data_tmp = ishft(pack_tmp, 6)
22182  ipack = ipack + 1
22183  pack_tmp = packed_data(ipack)
22184  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
22185  pack_tmp = ishft(pack_tmp, -6)
22186  idata = idata + 1
22187  data_tmp = iand(pack_tmp, mask_right(nbits))
22188  full_data(idata) = data_tmp
22189  pack_tmp = ishft(pack_tmp, -nbits)
22190  idata = idata + 1
22191  data_tmp = ishft(pack_tmp, 2)
22192  ipack = ipack + 1
22193  pack_tmp = packed_data(ipack)
22194  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
22195  pack_tmp = ishft(pack_tmp, -2)
22196  idata = idata + 1
22197  data_tmp = iand(pack_tmp, mask_right(nbits))
22198  full_data(idata) = data_tmp
22199  pack_tmp = ishft(pack_tmp, -nbits)
22200  idata = idata + 1
22201  data_tmp = iand(pack_tmp, mask_right(nbits))
22202  full_data(idata) = data_tmp
22203  pack_tmp = ishft(pack_tmp, -nbits)
22204  idata = idata + 1
22205  data_tmp = ishft(pack_tmp, 28)
22206  ipack = ipack + 1
22207  pack_tmp = packed_data(ipack)
22208  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
22209  pack_tmp = ishft(pack_tmp, -28)
22210  idata = idata + 1
22211  data_tmp = iand(pack_tmp, mask_right(nbits))
22212  full_data(idata) = data_tmp
22213  pack_tmp = ishft(pack_tmp, -nbits)
22214  idata = idata + 1
22215  data_tmp = ishft(pack_tmp, 24)
22216  ipack = ipack + 1
22217  pack_tmp = packed_data(ipack)
22218  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
22219  pack_tmp = ishft(pack_tmp, -24)
22220  idata = idata + 1
22221  data_tmp = iand(pack_tmp, mask_right(nbits))
22222  full_data(idata) = data_tmp
22223  pack_tmp = ishft(pack_tmp, -nbits)
22224  idata = idata + 1
22225  data_tmp = ishft(pack_tmp, 20)
22226  ipack = ipack + 1
22227  pack_tmp = packed_data(ipack)
22228  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
22229  pack_tmp = ishft(pack_tmp, -20)
22230  idata = idata + 1
22231  data_tmp = iand(pack_tmp, mask_right(nbits))
22232  full_data(idata) = data_tmp
22233  pack_tmp = ishft(pack_tmp, -nbits)
22234  idata = idata + 1
22235  data_tmp = ishft(pack_tmp, 16)
22236  ipack = ipack + 1
22237  pack_tmp = packed_data(ipack)
22238  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
22239  pack_tmp = ishft(pack_tmp, -16)
22240  idata = idata + 1
22241  data_tmp = iand(pack_tmp, mask_right(nbits))
22242  full_data(idata) = data_tmp
22243  pack_tmp = ishft(pack_tmp, -nbits)
22244  idata = idata + 1
22245  data_tmp = ishft(pack_tmp, 12)
22246  ipack = ipack + 1
22247  pack_tmp = packed_data(ipack)
22248  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
22249  pack_tmp = ishft(pack_tmp, -12)
22250  idata = idata + 1
22251  data_tmp = iand(pack_tmp, mask_right(nbits))
22252  full_data(idata) = data_tmp
22253  pack_tmp = ishft(pack_tmp, -nbits)
22254  idata = idata + 1
22255  data_tmp = ishft(pack_tmp, 8)
22256  ipack = ipack + 1
22257  pack_tmp = packed_data(ipack)
22258  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
22259  pack_tmp = ishft(pack_tmp, -8)
22260  idata = idata + 1
22261  data_tmp = iand(pack_tmp, mask_right(nbits))
22262  full_data(idata) = data_tmp
22263  pack_tmp = ishft(pack_tmp, -nbits)
22264  idata = idata + 1
22265  data_tmp = ishft(pack_tmp, 4)
22266  ipack = ipack + 1
22267  pack_tmp = packed_data(ipack)
22268  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
22269  pack_tmp = ishft(pack_tmp, -4)
22270  idata = idata + 1
22271  data_tmp = iand(pack_tmp, mask_right(nbits))
22272  full_data(idata) = data_tmp
22273  pack_tmp = ishft(pack_tmp, -nbits)
22274  idata = idata + 1
22275  data_tmp = iand(pack_tmp, mask_right(nbits))
22276  full_data(idata) = data_tmp
22277  pack_tmp = ishft(pack_tmp, -nbits)
22278  END DO
22279  IF (ndata_rep < ndata) THEN
22280  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
22281  END IF
22282  END SUBROUTINE bits2ints_30
22283 
22284 ! **************************************************************************************************
22285 !> \brief ...
22286 !> \param Ndata ...
22287 !> \param packed_data ...
22288 !> \param full_data ...
22289 ! **************************************************************************************************
22290  SUBROUTINE ints2bits_31(Ndata, packed_data, full_data)
22291  INTEGER, INTENT(IN) :: Ndata
22292  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
22293  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
22294 
22295  INTEGER, PARAMETER :: Nbits = 31
22296 
22297  INTEGER :: idata, ipack, kdata, Ndata_rep
22298  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
22299 
22300  idata = 0
22301  ipack = 0
22302  ndata_rep = (ndata/64)*64
22303  DO kdata = 1, ndata_rep, 64
22304  pack_tmp = 0
22305  idata = idata + 1
22306  data_tmp = full_data(idata)
22307  data_tmp = ishft(data_tmp, 33)
22308  pack_tmp = ior(pack_tmp, data_tmp)
22309  pack_tmp = ishft(pack_tmp, -31)
22310  idata = idata + 1
22311  data_tmp = full_data(idata)
22312  data_tmp = ishft(data_tmp, 33)
22313  pack_tmp = ior(pack_tmp, data_tmp)
22314  pack_tmp = ishft(pack_tmp, -2)
22315  idata = idata + 1
22316  data_tmp = full_data(idata)
22317  data_tmp = ishft(data_tmp, 33)
22318  data_tmp = iand(data_tmp, mask_left(2))
22319  pack_tmp = ior(pack_tmp, data_tmp)
22320  ipack = ipack + 1
22321  packed_data(ipack) = pack_tmp
22322  data_tmp = full_data(idata)
22323  pack_tmp = ishft(data_tmp, 35)
22324  pack_tmp = ishft(pack_tmp, -31)
22325  idata = idata + 1
22326  data_tmp = full_data(idata)
22327  data_tmp = ishft(data_tmp, 33)
22328  pack_tmp = ior(pack_tmp, data_tmp)
22329  pack_tmp = ishft(pack_tmp, -4)
22330  idata = idata + 1
22331  data_tmp = full_data(idata)
22332  data_tmp = ishft(data_tmp, 33)
22333  data_tmp = iand(data_tmp, mask_left(4))
22334  pack_tmp = ior(pack_tmp, data_tmp)
22335  ipack = ipack + 1
22336  packed_data(ipack) = pack_tmp
22337  data_tmp = full_data(idata)
22338  pack_tmp = ishft(data_tmp, 37)
22339  pack_tmp = ishft(pack_tmp, -31)
22340  idata = idata + 1
22341  data_tmp = full_data(idata)
22342  data_tmp = ishft(data_tmp, 33)
22343  pack_tmp = ior(pack_tmp, data_tmp)
22344  pack_tmp = ishft(pack_tmp, -6)
22345  idata = idata + 1
22346  data_tmp = full_data(idata)
22347  data_tmp = ishft(data_tmp, 33)
22348  data_tmp = iand(data_tmp, mask_left(6))
22349  pack_tmp = ior(pack_tmp, data_tmp)
22350  ipack = ipack + 1
22351  packed_data(ipack) = pack_tmp
22352  data_tmp = full_data(idata)
22353  pack_tmp = ishft(data_tmp, 39)
22354  pack_tmp = ishft(pack_tmp, -31)
22355  idata = idata + 1
22356  data_tmp = full_data(idata)
22357  data_tmp = ishft(data_tmp, 33)
22358  pack_tmp = ior(pack_tmp, data_tmp)
22359  pack_tmp = ishft(pack_tmp, -8)
22360  idata = idata + 1
22361  data_tmp = full_data(idata)
22362  data_tmp = ishft(data_tmp, 33)
22363  data_tmp = iand(data_tmp, mask_left(8))
22364  pack_tmp = ior(pack_tmp, data_tmp)
22365  ipack = ipack + 1
22366  packed_data(ipack) = pack_tmp
22367  data_tmp = full_data(idata)
22368  pack_tmp = ishft(data_tmp, 41)
22369  pack_tmp = ishft(pack_tmp, -31)
22370  idata = idata + 1
22371  data_tmp = full_data(idata)
22372  data_tmp = ishft(data_tmp, 33)
22373  pack_tmp = ior(pack_tmp, data_tmp)
22374  pack_tmp = ishft(pack_tmp, -10)
22375  idata = idata + 1
22376  data_tmp = full_data(idata)
22377  data_tmp = ishft(data_tmp, 33)
22378  data_tmp = iand(data_tmp, mask_left(10))
22379  pack_tmp = ior(pack_tmp, data_tmp)
22380  ipack = ipack + 1
22381  packed_data(ipack) = pack_tmp
22382  data_tmp = full_data(idata)
22383  pack_tmp = ishft(data_tmp, 43)
22384  pack_tmp = ishft(pack_tmp, -31)
22385  idata = idata + 1
22386  data_tmp = full_data(idata)
22387  data_tmp = ishft(data_tmp, 33)
22388  pack_tmp = ior(pack_tmp, data_tmp)
22389  pack_tmp = ishft(pack_tmp, -12)
22390  idata = idata + 1
22391  data_tmp = full_data(idata)
22392  data_tmp = ishft(data_tmp, 33)
22393  data_tmp = iand(data_tmp, mask_left(12))
22394  pack_tmp = ior(pack_tmp, data_tmp)
22395  ipack = ipack + 1
22396  packed_data(ipack) = pack_tmp
22397  data_tmp = full_data(idata)
22398  pack_tmp = ishft(data_tmp, 45)
22399  pack_tmp = ishft(pack_tmp, -31)
22400  idata = idata + 1
22401  data_tmp = full_data(idata)
22402  data_tmp = ishft(data_tmp, 33)
22403  pack_tmp = ior(pack_tmp, data_tmp)
22404  pack_tmp = ishft(pack_tmp, -14)
22405  idata = idata + 1
22406  data_tmp = full_data(idata)
22407  data_tmp = ishft(data_tmp, 33)
22408  data_tmp = iand(data_tmp, mask_left(14))
22409  pack_tmp = ior(pack_tmp, data_tmp)
22410  ipack = ipack + 1
22411  packed_data(ipack) = pack_tmp
22412  data_tmp = full_data(idata)
22413  pack_tmp = ishft(data_tmp, 47)
22414  pack_tmp = ishft(pack_tmp, -31)
22415  idata = idata + 1
22416  data_tmp = full_data(idata)
22417  data_tmp = ishft(data_tmp, 33)
22418  pack_tmp = ior(pack_tmp, data_tmp)
22419  pack_tmp = ishft(pack_tmp, -16)
22420  idata = idata + 1
22421  data_tmp = full_data(idata)
22422  data_tmp = ishft(data_tmp, 33)
22423  data_tmp = iand(data_tmp, mask_left(16))
22424  pack_tmp = ior(pack_tmp, data_tmp)
22425  ipack = ipack + 1
22426  packed_data(ipack) = pack_tmp
22427  data_tmp = full_data(idata)
22428  pack_tmp = ishft(data_tmp, 49)
22429  pack_tmp = ishft(pack_tmp, -31)
22430  idata = idata + 1
22431  data_tmp = full_data(idata)
22432  data_tmp = ishft(data_tmp, 33)
22433  pack_tmp = ior(pack_tmp, data_tmp)
22434  pack_tmp = ishft(pack_tmp, -18)
22435  idata = idata + 1
22436  data_tmp = full_data(idata)
22437  data_tmp = ishft(data_tmp, 33)
22438  data_tmp = iand(data_tmp, mask_left(18))
22439  pack_tmp = ior(pack_tmp, data_tmp)
22440  ipack = ipack + 1
22441  packed_data(ipack) = pack_tmp
22442  data_tmp = full_data(idata)
22443  pack_tmp = ishft(data_tmp, 51)
22444  pack_tmp = ishft(pack_tmp, -31)
22445  idata = idata + 1
22446  data_tmp = full_data(idata)
22447  data_tmp = ishft(data_tmp, 33)
22448  pack_tmp = ior(pack_tmp, data_tmp)
22449  pack_tmp = ishft(pack_tmp, -20)
22450  idata = idata + 1
22451  data_tmp = full_data(idata)
22452  data_tmp = ishft(data_tmp, 33)
22453  data_tmp = iand(data_tmp, mask_left(20))
22454  pack_tmp = ior(pack_tmp, data_tmp)
22455  ipack = ipack + 1
22456  packed_data(ipack) = pack_tmp
22457  data_tmp = full_data(idata)
22458  pack_tmp = ishft(data_tmp, 53)
22459  pack_tmp = ishft(pack_tmp, -31)
22460  idata = idata + 1
22461  data_tmp = full_data(idata)
22462  data_tmp = ishft(data_tmp, 33)
22463  pack_tmp = ior(pack_tmp, data_tmp)
22464  pack_tmp = ishft(pack_tmp, -22)
22465  idata = idata + 1
22466  data_tmp = full_data(idata)
22467  data_tmp = ishft(data_tmp, 33)
22468  data_tmp = iand(data_tmp, mask_left(22))
22469  pack_tmp = ior(pack_tmp, data_tmp)
22470  ipack = ipack + 1
22471  packed_data(ipack) = pack_tmp
22472  data_tmp = full_data(idata)
22473  pack_tmp = ishft(data_tmp, 55)
22474  pack_tmp = ishft(pack_tmp, -31)
22475  idata = idata + 1
22476  data_tmp = full_data(idata)
22477  data_tmp = ishft(data_tmp, 33)
22478  pack_tmp = ior(pack_tmp, data_tmp)
22479  pack_tmp = ishft(pack_tmp, -24)
22480  idata = idata + 1
22481  data_tmp = full_data(idata)
22482  data_tmp = ishft(data_tmp, 33)
22483  data_tmp = iand(data_tmp, mask_left(24))
22484  pack_tmp = ior(pack_tmp, data_tmp)
22485  ipack = ipack + 1
22486  packed_data(ipack) = pack_tmp
22487  data_tmp = full_data(idata)
22488  pack_tmp = ishft(data_tmp, 57)
22489  pack_tmp = ishft(pack_tmp, -31)
22490  idata = idata + 1
22491  data_tmp = full_data(idata)
22492  data_tmp = ishft(data_tmp, 33)
22493  pack_tmp = ior(pack_tmp, data_tmp)
22494  pack_tmp = ishft(pack_tmp, -26)
22495  idata = idata + 1
22496  data_tmp = full_data(idata)
22497  data_tmp = ishft(data_tmp, 33)
22498  data_tmp = iand(data_tmp, mask_left(26))
22499  pack_tmp = ior(pack_tmp, data_tmp)
22500  ipack = ipack + 1
22501  packed_data(ipack) = pack_tmp
22502  data_tmp = full_data(idata)
22503  pack_tmp = ishft(data_tmp, 59)
22504  pack_tmp = ishft(pack_tmp, -31)
22505  idata = idata + 1
22506  data_tmp = full_data(idata)
22507  data_tmp = ishft(data_tmp, 33)
22508  pack_tmp = ior(pack_tmp, data_tmp)
22509  pack_tmp = ishft(pack_tmp, -28)
22510  idata = idata + 1
22511  data_tmp = full_data(idata)
22512  data_tmp = ishft(data_tmp, 33)
22513  data_tmp = iand(data_tmp, mask_left(28))
22514  pack_tmp = ior(pack_tmp, data_tmp)
22515  ipack = ipack + 1
22516  packed_data(ipack) = pack_tmp
22517  data_tmp = full_data(idata)
22518  pack_tmp = ishft(data_tmp, 61)
22519  pack_tmp = ishft(pack_tmp, -31)
22520  idata = idata + 1
22521  data_tmp = full_data(idata)
22522  data_tmp = ishft(data_tmp, 33)
22523  pack_tmp = ior(pack_tmp, data_tmp)
22524  pack_tmp = ishft(pack_tmp, -30)
22525  idata = idata + 1
22526  data_tmp = full_data(idata)
22527  data_tmp = ishft(data_tmp, 33)
22528  data_tmp = iand(data_tmp, mask_left(30))
22529  pack_tmp = ior(pack_tmp, data_tmp)
22530  ipack = ipack + 1
22531  packed_data(ipack) = pack_tmp
22532  data_tmp = full_data(idata)
22533  pack_tmp = ishft(data_tmp, 63)
22534  pack_tmp = ishft(pack_tmp, -31)
22535  idata = idata + 1
22536  data_tmp = full_data(idata)
22537  data_tmp = ishft(data_tmp, 33)
22538  pack_tmp = ior(pack_tmp, data_tmp)
22539  pack_tmp = ishft(pack_tmp, -31)
22540  idata = idata + 1
22541  data_tmp = full_data(idata)
22542  data_tmp = ishft(data_tmp, 33)
22543  pack_tmp = ior(pack_tmp, data_tmp)
22544  pack_tmp = ishft(pack_tmp, -1)
22545  idata = idata + 1
22546  data_tmp = full_data(idata)
22547  data_tmp = ishft(data_tmp, 33)
22548  data_tmp = iand(data_tmp, mask_left(1))
22549  pack_tmp = ior(pack_tmp, data_tmp)
22550  ipack = ipack + 1
22551  packed_data(ipack) = pack_tmp
22552  data_tmp = full_data(idata)
22553  pack_tmp = ishft(data_tmp, 34)
22554  pack_tmp = ishft(pack_tmp, -31)
22555  idata = idata + 1
22556  data_tmp = full_data(idata)
22557  data_tmp = ishft(data_tmp, 33)
22558  pack_tmp = ior(pack_tmp, data_tmp)
22559  pack_tmp = ishft(pack_tmp, -3)
22560  idata = idata + 1
22561  data_tmp = full_data(idata)
22562  data_tmp = ishft(data_tmp, 33)
22563  data_tmp = iand(data_tmp, mask_left(3))
22564  pack_tmp = ior(pack_tmp, data_tmp)
22565  ipack = ipack + 1
22566  packed_data(ipack) = pack_tmp
22567  data_tmp = full_data(idata)
22568  pack_tmp = ishft(data_tmp, 36)
22569  pack_tmp = ishft(pack_tmp, -31)
22570  idata = idata + 1
22571  data_tmp = full_data(idata)
22572  data_tmp = ishft(data_tmp, 33)
22573  pack_tmp = ior(pack_tmp, data_tmp)
22574  pack_tmp = ishft(pack_tmp, -5)
22575  idata = idata + 1
22576  data_tmp = full_data(idata)
22577  data_tmp = ishft(data_tmp, 33)
22578  data_tmp = iand(data_tmp, mask_left(5))
22579  pack_tmp = ior(pack_tmp, data_tmp)
22580  ipack = ipack + 1
22581  packed_data(ipack) = pack_tmp
22582  data_tmp = full_data(idata)
22583  pack_tmp = ishft(data_tmp, 38)
22584  pack_tmp = ishft(pack_tmp, -31)
22585  idata = idata + 1
22586  data_tmp = full_data(idata)
22587  data_tmp = ishft(data_tmp, 33)
22588  pack_tmp = ior(pack_tmp, data_tmp)
22589  pack_tmp = ishft(pack_tmp, -7)
22590  idata = idata + 1
22591  data_tmp = full_data(idata)
22592  data_tmp = ishft(data_tmp, 33)
22593  data_tmp = iand(data_tmp, mask_left(7))
22594  pack_tmp = ior(pack_tmp, data_tmp)
22595  ipack = ipack + 1
22596  packed_data(ipack) = pack_tmp
22597  data_tmp = full_data(idata)
22598  pack_tmp = ishft(data_tmp, 40)
22599  pack_tmp = ishft(pack_tmp, -31)
22600  idata = idata + 1
22601  data_tmp = full_data(idata)
22602  data_tmp = ishft(data_tmp, 33)
22603  pack_tmp = ior(pack_tmp, data_tmp)
22604  pack_tmp = ishft(pack_tmp, -9)
22605  idata = idata + 1
22606  data_tmp = full_data(idata)
22607  data_tmp = ishft(data_tmp, 33)
22608  data_tmp = iand(data_tmp, mask_left(9))
22609  pack_tmp = ior(pack_tmp, data_tmp)
22610  ipack = ipack + 1
22611  packed_data(ipack) = pack_tmp
22612  data_tmp = full_data(idata)
22613  pack_tmp = ishft(data_tmp, 42)
22614  pack_tmp = ishft(pack_tmp, -31)
22615  idata = idata + 1
22616  data_tmp = full_data(idata)
22617  data_tmp = ishft(data_tmp, 33)
22618  pack_tmp = ior(pack_tmp, data_tmp)
22619  pack_tmp = ishft(pack_tmp, -11)
22620  idata = idata + 1
22621  data_tmp = full_data(idata)
22622  data_tmp = ishft(data_tmp, 33)
22623  data_tmp = iand(data_tmp, mask_left(11))
22624  pack_tmp = ior(pack_tmp, data_tmp)
22625  ipack = ipack + 1
22626  packed_data(ipack) = pack_tmp
22627  data_tmp = full_data(idata)
22628  pack_tmp = ishft(data_tmp, 44)
22629  pack_tmp = ishft(pack_tmp, -31)
22630  idata = idata + 1
22631  data_tmp = full_data(idata)
22632  data_tmp = ishft(data_tmp, 33)
22633  pack_tmp = ior(pack_tmp, data_tmp)
22634  pack_tmp = ishft(pack_tmp, -13)
22635  idata = idata + 1
22636  data_tmp = full_data(idata)
22637  data_tmp = ishft(data_tmp, 33)
22638  data_tmp = iand(data_tmp, mask_left(13))
22639  pack_tmp = ior(pack_tmp, data_tmp)
22640  ipack = ipack + 1
22641  packed_data(ipack) = pack_tmp
22642  data_tmp = full_data(idata)
22643  pack_tmp = ishft(data_tmp, 46)
22644  pack_tmp = ishft(pack_tmp, -31)
22645  idata = idata + 1
22646  data_tmp = full_data(idata)
22647  data_tmp = ishft(data_tmp, 33)
22648  pack_tmp = ior(pack_tmp, data_tmp)
22649  pack_tmp = ishft(pack_tmp, -15)
22650  idata = idata + 1
22651  data_tmp = full_data(idata)
22652  data_tmp = ishft(data_tmp, 33)
22653  data_tmp = iand(data_tmp, mask_left(15))
22654  pack_tmp = ior(pack_tmp, data_tmp)
22655  ipack = ipack + 1
22656  packed_data(ipack) = pack_tmp
22657  data_tmp = full_data(idata)
22658  pack_tmp = ishft(data_tmp, 48)
22659  pack_tmp = ishft(pack_tmp, -31)
22660  idata = idata + 1
22661  data_tmp = full_data(idata)
22662  data_tmp = ishft(data_tmp, 33)
22663  pack_tmp = ior(pack_tmp, data_tmp)
22664  pack_tmp = ishft(pack_tmp, -17)
22665  idata = idata + 1
22666  data_tmp = full_data(idata)
22667  data_tmp = ishft(data_tmp, 33)
22668  data_tmp = iand(data_tmp, mask_left(17))
22669  pack_tmp = ior(pack_tmp, data_tmp)
22670  ipack = ipack + 1
22671  packed_data(ipack) = pack_tmp
22672  data_tmp = full_data(idata)
22673  pack_tmp = ishft(data_tmp, 50)
22674  pack_tmp = ishft(pack_tmp, -31)
22675  idata = idata + 1
22676  data_tmp = full_data(idata)
22677  data_tmp = ishft(data_tmp, 33)
22678  pack_tmp = ior(pack_tmp, data_tmp)
22679  pack_tmp = ishft(pack_tmp, -19)
22680  idata = idata + 1
22681  data_tmp = full_data(idata)
22682  data_tmp = ishft(data_tmp, 33)
22683  data_tmp = iand(data_tmp, mask_left(19))
22684  pack_tmp = ior(pack_tmp, data_tmp)
22685  ipack = ipack + 1
22686  packed_data(ipack) = pack_tmp
22687  data_tmp = full_data(idata)
22688  pack_tmp = ishft(data_tmp, 52)
22689  pack_tmp = ishft(pack_tmp, -31)
22690  idata = idata + 1
22691  data_tmp = full_data(idata)
22692  data_tmp = ishft(data_tmp, 33)
22693  pack_tmp = ior(pack_tmp, data_tmp)
22694  pack_tmp = ishft(pack_tmp, -21)
22695  idata = idata + 1
22696  data_tmp = full_data(idata)
22697  data_tmp = ishft(data_tmp, 33)
22698  data_tmp = iand(data_tmp, mask_left(21))
22699  pack_tmp = ior(pack_tmp, data_tmp)
22700  ipack = ipack + 1
22701  packed_data(ipack) = pack_tmp
22702  data_tmp = full_data(idata)
22703  pack_tmp = ishft(data_tmp, 54)
22704  pack_tmp = ishft(pack_tmp, -31)
22705  idata = idata + 1
22706  data_tmp = full_data(idata)
22707  data_tmp = ishft(data_tmp, 33)
22708  pack_tmp = ior(pack_tmp, data_tmp)
22709  pack_tmp = ishft(pack_tmp, -23)
22710  idata = idata + 1
22711  data_tmp = full_data(idata)
22712  data_tmp = ishft(data_tmp, 33)
22713  data_tmp = iand(data_tmp, mask_left(23))
22714  pack_tmp = ior(pack_tmp, data_tmp)
22715  ipack = ipack + 1
22716  packed_data(ipack) = pack_tmp
22717  data_tmp = full_data(idata)
22718  pack_tmp = ishft(data_tmp, 56)
22719  pack_tmp = ishft(pack_tmp, -31)
22720  idata = idata + 1
22721  data_tmp = full_data(idata)
22722  data_tmp = ishft(data_tmp, 33)
22723  pack_tmp = ior(pack_tmp, data_tmp)
22724  pack_tmp = ishft(pack_tmp, -25)
22725  idata = idata + 1
22726  data_tmp = full_data(idata)
22727  data_tmp = ishft(data_tmp, 33)
22728  data_tmp = iand(data_tmp, mask_left(25))
22729  pack_tmp = ior(pack_tmp, data_tmp)
22730  ipack = ipack + 1
22731  packed_data(ipack) = pack_tmp
22732  data_tmp = full_data(idata)
22733  pack_tmp = ishft(data_tmp, 58)
22734  pack_tmp = ishft(pack_tmp, -31)
22735  idata = idata + 1
22736  data_tmp = full_data(idata)
22737  data_tmp = ishft(data_tmp, 33)
22738  pack_tmp = ior(pack_tmp, data_tmp)
22739  pack_tmp = ishft(pack_tmp, -27)
22740  idata = idata + 1
22741  data_tmp = full_data(idata)
22742  data_tmp = ishft(data_tmp, 33)
22743  data_tmp = iand(data_tmp, mask_left(27))
22744  pack_tmp = ior(pack_tmp, data_tmp)
22745  ipack = ipack + 1
22746  packed_data(ipack) = pack_tmp
22747  data_tmp = full_data(idata)
22748  pack_tmp = ishft(data_tmp, 60)
22749  pack_tmp = ishft(pack_tmp, -31)
22750  idata = idata + 1
22751  data_tmp = full_data(idata)
22752  data_tmp = ishft(data_tmp, 33)
22753  pack_tmp = ior(pack_tmp, data_tmp)
22754  pack_tmp = ishft(pack_tmp, -29)
22755  idata = idata + 1
22756  data_tmp = full_data(idata)
22757  data_tmp = ishft(data_tmp, 33)
22758  data_tmp = iand(data_tmp, mask_left(29))
22759  pack_tmp = ior(pack_tmp, data_tmp)
22760  ipack = ipack + 1
22761  packed_data(ipack) = pack_tmp
22762  data_tmp = full_data(idata)
22763  pack_tmp = ishft(data_tmp, 62)
22764  pack_tmp = ishft(pack_tmp, -31)
22765  idata = idata + 1
22766  data_tmp = full_data(idata)
22767  data_tmp = ishft(data_tmp, 33)
22768  pack_tmp = ior(pack_tmp, data_tmp)
22769  pack_tmp = ishft(pack_tmp, -31)
22770  idata = idata + 1
22771  data_tmp = full_data(idata)
22772  data_tmp = ishft(data_tmp, 33)
22773  pack_tmp = ior(pack_tmp, data_tmp)
22774  pack_tmp = ishft(pack_tmp, 0)
22775  pack_tmp = ishft(pack_tmp, 0)
22776  ipack = ipack + 1
22777  packed_data(ipack) = pack_tmp
22778  END DO
22779  IF (ndata_rep < ndata) THEN
22780  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
22781  END IF
22782  END SUBROUTINE ints2bits_31
22783 
22784 ! **************************************************************************************************
22785 !> \brief ...
22786 !> \param Ndata ...
22787 !> \param packed_data ...
22788 !> \param full_data ...
22789 ! **************************************************************************************************
22790  SUBROUTINE bits2ints_31(Ndata, packed_data, full_data)
22791  INTEGER, INTENT(IN) :: Ndata
22792  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
22793  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
22794 
22795  INTEGER, PARAMETER :: Nbits = 31
22796 
22797  INTEGER :: idata, ipack, kdata, Ndata_rep
22798  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
22799 
22800  ipack = 0
22801  idata = 0
22802  pack_tmp = 0
22803  ndata_rep = (ndata/64)*64
22804  DO kdata = 1, ndata_rep, 64
22805  idata = idata + 1
22806  data_tmp = ishft(pack_tmp, 31)
22807  ipack = ipack + 1
22808  pack_tmp = packed_data(ipack)
22809  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
22810  pack_tmp = ishft(pack_tmp, -31)
22811  idata = idata + 1
22812  data_tmp = iand(pack_tmp, mask_right(nbits))
22813  full_data(idata) = data_tmp
22814  pack_tmp = ishft(pack_tmp, -nbits)
22815  idata = idata + 1
22816  data_tmp = ishft(pack_tmp, 29)
22817  ipack = ipack + 1
22818  pack_tmp = packed_data(ipack)
22819  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
22820  pack_tmp = ishft(pack_tmp, -29)
22821  idata = idata + 1
22822  data_tmp = iand(pack_tmp, mask_right(nbits))
22823  full_data(idata) = data_tmp
22824  pack_tmp = ishft(pack_tmp, -nbits)
22825  idata = idata + 1
22826  data_tmp = ishft(pack_tmp, 27)
22827  ipack = ipack + 1
22828  pack_tmp = packed_data(ipack)
22829  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
22830  pack_tmp = ishft(pack_tmp, -27)
22831  idata = idata + 1
22832  data_tmp = iand(pack_tmp, mask_right(nbits))
22833  full_data(idata) = data_tmp
22834  pack_tmp = ishft(pack_tmp, -nbits)
22835  idata = idata + 1
22836  data_tmp = ishft(pack_tmp, 25)
22837  ipack = ipack + 1
22838  pack_tmp = packed_data(ipack)
22839  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
22840  pack_tmp = ishft(pack_tmp, -25)
22841  idata = idata + 1
22842  data_tmp = iand(pack_tmp, mask_right(nbits))
22843  full_data(idata) = data_tmp
22844  pack_tmp = ishft(pack_tmp, -nbits)
22845  idata = idata + 1
22846  data_tmp = ishft(pack_tmp, 23)
22847  ipack = ipack + 1
22848  pack_tmp = packed_data(ipack)
22849  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
22850  pack_tmp = ishft(pack_tmp, -23)
22851  idata = idata + 1
22852  data_tmp = iand(pack_tmp, mask_right(nbits))
22853  full_data(idata) = data_tmp
22854  pack_tmp = ishft(pack_tmp, -nbits)
22855  idata = idata + 1
22856  data_tmp = ishft(pack_tmp, 21)
22857  ipack = ipack + 1
22858  pack_tmp = packed_data(ipack)
22859  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
22860  pack_tmp = ishft(pack_tmp, -21)
22861  idata = idata + 1
22862  data_tmp = iand(pack_tmp, mask_right(nbits))
22863  full_data(idata) = data_tmp
22864  pack_tmp = ishft(pack_tmp, -nbits)
22865  idata = idata + 1
22866  data_tmp = ishft(pack_tmp, 19)
22867  ipack = ipack + 1
22868  pack_tmp = packed_data(ipack)
22869  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
22870  pack_tmp = ishft(pack_tmp, -19)
22871  idata = idata + 1
22872  data_tmp = iand(pack_tmp, mask_right(nbits))
22873  full_data(idata) = data_tmp
22874  pack_tmp = ishft(pack_tmp, -nbits)
22875  idata = idata + 1
22876  data_tmp = ishft(pack_tmp, 17)
22877  ipack = ipack + 1
22878  pack_tmp = packed_data(ipack)
22879  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
22880  pack_tmp = ishft(pack_tmp, -17)
22881  idata = idata + 1
22882  data_tmp = iand(pack_tmp, mask_right(nbits))
22883  full_data(idata) = data_tmp
22884  pack_tmp = ishft(pack_tmp, -nbits)
22885  idata = idata + 1
22886  data_tmp = ishft(pack_tmp, 15)
22887  ipack = ipack + 1
22888  pack_tmp = packed_data(ipack)
22889  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
22890  pack_tmp = ishft(pack_tmp, -15)
22891  idata = idata + 1
22892  data_tmp = iand(pack_tmp, mask_right(nbits))
22893  full_data(idata) = data_tmp
22894  pack_tmp = ishft(pack_tmp, -nbits)
22895  idata = idata + 1
22896  data_tmp = ishft(pack_tmp, 13)
22897  ipack = ipack + 1
22898  pack_tmp = packed_data(ipack)
22899  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
22900  pack_tmp = ishft(pack_tmp, -13)
22901  idata = idata + 1
22902  data_tmp = iand(pack_tmp, mask_right(nbits))
22903  full_data(idata) = data_tmp
22904  pack_tmp = ishft(pack_tmp, -nbits)
22905  idata = idata + 1
22906  data_tmp = ishft(pack_tmp, 11)
22907  ipack = ipack + 1
22908  pack_tmp = packed_data(ipack)
22909  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
22910  pack_tmp = ishft(pack_tmp, -11)
22911  idata = idata + 1
22912  data_tmp = iand(pack_tmp, mask_right(nbits))
22913  full_data(idata) = data_tmp
22914  pack_tmp = ishft(pack_tmp, -nbits)
22915  idata = idata + 1
22916  data_tmp = ishft(pack_tmp, 9)
22917  ipack = ipack + 1
22918  pack_tmp = packed_data(ipack)
22919  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
22920  pack_tmp = ishft(pack_tmp, -9)
22921  idata = idata + 1
22922  data_tmp = iand(pack_tmp, mask_right(nbits))
22923  full_data(idata) = data_tmp
22924  pack_tmp = ishft(pack_tmp, -nbits)
22925  idata = idata + 1
22926  data_tmp = ishft(pack_tmp, 7)
22927  ipack = ipack + 1
22928  pack_tmp = packed_data(ipack)
22929  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
22930  pack_tmp = ishft(pack_tmp, -7)
22931  idata = idata + 1
22932  data_tmp = iand(pack_tmp, mask_right(nbits))
22933  full_data(idata) = data_tmp
22934  pack_tmp = ishft(pack_tmp, -nbits)
22935  idata = idata + 1
22936  data_tmp = ishft(pack_tmp, 5)
22937  ipack = ipack + 1
22938  pack_tmp = packed_data(ipack)
22939  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
22940  pack_tmp = ishft(pack_tmp, -5)
22941  idata = idata + 1
22942  data_tmp = iand(pack_tmp, mask_right(nbits))
22943  full_data(idata) = data_tmp
22944  pack_tmp = ishft(pack_tmp, -nbits)
22945  idata = idata + 1
22946  data_tmp = ishft(pack_tmp, 3)
22947  ipack = ipack + 1
22948  pack_tmp = packed_data(ipack)
22949  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
22950  pack_tmp = ishft(pack_tmp, -3)
22951  idata = idata + 1
22952  data_tmp = iand(pack_tmp, mask_right(nbits))
22953  full_data(idata) = data_tmp
22954  pack_tmp = ishft(pack_tmp, -nbits)
22955  idata = idata + 1
22956  data_tmp = ishft(pack_tmp, 1)
22957  ipack = ipack + 1
22958  pack_tmp = packed_data(ipack)
22959  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
22960  pack_tmp = ishft(pack_tmp, -1)
22961  idata = idata + 1
22962  data_tmp = iand(pack_tmp, mask_right(nbits))
22963  full_data(idata) = data_tmp
22964  pack_tmp = ishft(pack_tmp, -nbits)
22965  idata = idata + 1
22966  data_tmp = iand(pack_tmp, mask_right(nbits))
22967  full_data(idata) = data_tmp
22968  pack_tmp = ishft(pack_tmp, -nbits)
22969  idata = idata + 1
22970  data_tmp = ishft(pack_tmp, 30)
22971  ipack = ipack + 1
22972  pack_tmp = packed_data(ipack)
22973  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
22974  pack_tmp = ishft(pack_tmp, -30)
22975  idata = idata + 1
22976  data_tmp = iand(pack_tmp, mask_right(nbits))
22977  full_data(idata) = data_tmp
22978  pack_tmp = ishft(pack_tmp, -nbits)
22979  idata = idata + 1
22980  data_tmp = ishft(pack_tmp, 28)
22981  ipack = ipack + 1
22982  pack_tmp = packed_data(ipack)
22983  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
22984  pack_tmp = ishft(pack_tmp, -28)
22985  idata = idata + 1
22986  data_tmp = iand(pack_tmp, mask_right(nbits))
22987  full_data(idata) = data_tmp
22988  pack_tmp = ishft(pack_tmp, -nbits)
22989  idata = idata + 1
22990  data_tmp = ishft(pack_tmp, 26)
22991  ipack = ipack + 1
22992  pack_tmp = packed_data(ipack)
22993  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
22994  pack_tmp = ishft(pack_tmp, -26)
22995  idata = idata + 1
22996  data_tmp = iand(pack_tmp, mask_right(nbits))
22997  full_data(idata) = data_tmp
22998  pack_tmp = ishft(pack_tmp, -nbits)
22999  idata = idata + 1
23000  data_tmp = ishft(pack_tmp, 24)
23001  ipack = ipack + 1
23002  pack_tmp = packed_data(ipack)
23003  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
23004  pack_tmp = ishft(pack_tmp, -24)
23005  idata = idata + 1
23006  data_tmp = iand(pack_tmp, mask_right(nbits))
23007  full_data(idata) = data_tmp
23008  pack_tmp = ishft(pack_tmp, -nbits)
23009  idata = idata + 1
23010  data_tmp = ishft(pack_tmp, 22)
23011  ipack = ipack + 1
23012  pack_tmp = packed_data(ipack)
23013  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
23014  pack_tmp = ishft(pack_tmp, -22)
23015  idata = idata + 1
23016  data_tmp = iand(pack_tmp, mask_right(nbits))
23017  full_data(idata) = data_tmp
23018  pack_tmp = ishft(pack_tmp, -nbits)
23019  idata = idata + 1
23020  data_tmp = ishft(pack_tmp, 20)
23021  ipack = ipack + 1
23022  pack_tmp = packed_data(ipack)
23023  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
23024  pack_tmp = ishft(pack_tmp, -20)
23025  idata = idata + 1
23026  data_tmp = iand(pack_tmp, mask_right(nbits))
23027  full_data(idata) = data_tmp
23028  pack_tmp = ishft(pack_tmp, -nbits)
23029  idata = idata + 1
23030  data_tmp = ishft(pack_tmp, 18)
23031  ipack = ipack + 1
23032  pack_tmp = packed_data(ipack)
23033  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
23034  pack_tmp = ishft(pack_tmp, -18)
23035  idata = idata + 1
23036  data_tmp = iand(pack_tmp, mask_right(nbits))
23037  full_data(idata) = data_tmp
23038  pack_tmp = ishft(pack_tmp, -nbits)
23039  idata = idata + 1
23040  data_tmp = ishft(pack_tmp, 16)
23041  ipack = ipack + 1
23042  pack_tmp = packed_data(ipack)
23043  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
23044  pack_tmp = ishft(pack_tmp, -16)
23045  idata = idata + 1
23046  data_tmp = iand(pack_tmp, mask_right(nbits))
23047  full_data(idata) = data_tmp
23048  pack_tmp = ishft(pack_tmp, -nbits)
23049  idata = idata + 1
23050  data_tmp = ishft(pack_tmp, 14)
23051  ipack = ipack + 1
23052  pack_tmp = packed_data(ipack)
23053  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
23054  pack_tmp = ishft(pack_tmp, -14)
23055  idata = idata + 1
23056  data_tmp = iand(pack_tmp, mask_right(nbits))
23057  full_data(idata) = data_tmp
23058  pack_tmp = ishft(pack_tmp, -nbits)
23059  idata = idata + 1
23060  data_tmp = ishft(pack_tmp, 12)
23061  ipack = ipack + 1
23062  pack_tmp = packed_data(ipack)
23063  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
23064  pack_tmp = ishft(pack_tmp, -12)
23065  idata = idata + 1
23066  data_tmp = iand(pack_tmp, mask_right(nbits))
23067  full_data(idata) = data_tmp
23068  pack_tmp = ishft(pack_tmp, -nbits)
23069  idata = idata + 1
23070  data_tmp = ishft(pack_tmp, 10)
23071  ipack = ipack + 1
23072  pack_tmp = packed_data(ipack)
23073  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
23074  pack_tmp = ishft(pack_tmp, -10)
23075  idata = idata + 1
23076  data_tmp = iand(pack_tmp, mask_right(nbits))
23077  full_data(idata) = data_tmp
23078  pack_tmp = ishft(pack_tmp, -nbits)
23079  idata = idata + 1
23080  data_tmp = ishft(pack_tmp, 8)
23081  ipack = ipack + 1
23082  pack_tmp = packed_data(ipack)
23083  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
23084  pack_tmp = ishft(pack_tmp, -8)
23085  idata = idata + 1
23086  data_tmp = iand(pack_tmp, mask_right(nbits))
23087  full_data(idata) = data_tmp
23088  pack_tmp = ishft(pack_tmp, -nbits)
23089  idata = idata + 1
23090  data_tmp = ishft(pack_tmp, 6)
23091  ipack = ipack + 1
23092  pack_tmp = packed_data(ipack)
23093  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
23094  pack_tmp = ishft(pack_tmp, -6)
23095  idata = idata + 1
23096  data_tmp = iand(pack_tmp, mask_right(nbits))
23097  full_data(idata) = data_tmp
23098  pack_tmp = ishft(pack_tmp, -nbits)
23099  idata = idata + 1
23100  data_tmp = ishft(pack_tmp, 4)
23101  ipack = ipack + 1
23102  pack_tmp = packed_data(ipack)
23103  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
23104  pack_tmp = ishft(pack_tmp, -4)
23105  idata = idata + 1
23106  data_tmp = iand(pack_tmp, mask_right(nbits))
23107  full_data(idata) = data_tmp
23108  pack_tmp = ishft(pack_tmp, -nbits)
23109  idata = idata + 1
23110  data_tmp = ishft(pack_tmp, 2)
23111  ipack = ipack + 1
23112  pack_tmp = packed_data(ipack)
23113  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
23114  pack_tmp = ishft(pack_tmp, -2)
23115  idata = idata + 1
23116  data_tmp = iand(pack_tmp, mask_right(nbits))
23117  full_data(idata) = data_tmp
23118  pack_tmp = ishft(pack_tmp, -nbits)
23119  idata = idata + 1
23120  data_tmp = iand(pack_tmp, mask_right(nbits))
23121  full_data(idata) = data_tmp
23122  pack_tmp = ishft(pack_tmp, -nbits)
23123  END DO
23124  IF (ndata_rep < ndata) THEN
23125  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
23126  END IF
23127  END SUBROUTINE bits2ints_31
23128 
23129 ! **************************************************************************************************
23130 !> \brief ...
23131 !> \param Ndata ...
23132 !> \param packed_data ...
23133 !> \param full_data ...
23134 ! **************************************************************************************************
23135  SUBROUTINE ints2bits_32(Ndata, packed_data, full_data)
23136  INTEGER, INTENT(IN) :: Ndata
23137  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
23138  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
23139 
23140  INTEGER, PARAMETER :: Nbits = 32
23141 
23142  INTEGER :: idata, ipack, kdata, Ndata_rep
23143  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
23144 
23145  idata = 0
23146  ipack = 0
23147  ndata_rep = (ndata/64)*64
23148  DO kdata = 1, ndata_rep, 64
23149  pack_tmp = 0
23150  idata = idata + 1
23151  data_tmp = full_data(idata)
23152  data_tmp = ishft(data_tmp, 32)
23153  pack_tmp = ior(pack_tmp, data_tmp)
23154  pack_tmp = ishft(pack_tmp, -32)
23155  idata = idata + 1
23156  data_tmp = full_data(idata)
23157  data_tmp = ishft(data_tmp, 32)
23158  pack_tmp = ior(pack_tmp, data_tmp)
23159  pack_tmp = ishft(pack_tmp, 0)
23160  idata = idata + 1
23161  data_tmp = full_data(idata)
23162  data_tmp = ishft(data_tmp, 32)
23163  data_tmp = iand(data_tmp, mask_left(0))
23164  pack_tmp = ior(pack_tmp, data_tmp)
23165  ipack = ipack + 1
23166  packed_data(ipack) = pack_tmp
23167  data_tmp = full_data(idata)
23168  pack_tmp = ishft(data_tmp, 32)
23169  pack_tmp = ishft(pack_tmp, -32)
23170  idata = idata + 1
23171  data_tmp = full_data(idata)
23172  data_tmp = ishft(data_tmp, 32)
23173  pack_tmp = ior(pack_tmp, data_tmp)
23174  pack_tmp = ishft(pack_tmp, 0)
23175  idata = idata + 1
23176  data_tmp = full_data(idata)
23177  data_tmp = ishft(data_tmp, 32)
23178  data_tmp = iand(data_tmp, mask_left(0))
23179  pack_tmp = ior(pack_tmp, data_tmp)
23180  ipack = ipack + 1
23181  packed_data(ipack) = pack_tmp
23182  data_tmp = full_data(idata)
23183  pack_tmp = ishft(data_tmp, 32)
23184  pack_tmp = ishft(pack_tmp, -32)
23185  idata = idata + 1
23186  data_tmp = full_data(idata)
23187  data_tmp = ishft(data_tmp, 32)
23188  pack_tmp = ior(pack_tmp, data_tmp)
23189  pack_tmp = ishft(pack_tmp, 0)
23190  idata = idata + 1
23191  data_tmp = full_data(idata)
23192  data_tmp = ishft(data_tmp, 32)
23193  data_tmp = iand(data_tmp, mask_left(0))
23194  pack_tmp = ior(pack_tmp, data_tmp)
23195  ipack = ipack + 1
23196  packed_data(ipack) = pack_tmp
23197  data_tmp = full_data(idata)
23198  pack_tmp = ishft(data_tmp, 32)
23199  pack_tmp = ishft(pack_tmp, -32)
23200  idata = idata + 1
23201  data_tmp = full_data(idata)
23202  data_tmp = ishft(data_tmp, 32)
23203  pack_tmp = ior(pack_tmp, data_tmp)
23204  pack_tmp = ishft(pack_tmp, 0)
23205  idata = idata + 1
23206  data_tmp = full_data(idata)
23207  data_tmp = ishft(data_tmp, 32)
23208  data_tmp = iand(data_tmp, mask_left(0))
23209  pack_tmp = ior(pack_tmp, data_tmp)
23210  ipack = ipack + 1
23211  packed_data(ipack) = pack_tmp
23212  data_tmp = full_data(idata)
23213  pack_tmp = ishft(data_tmp, 32)
23214  pack_tmp = ishft(pack_tmp, -32)
23215  idata = idata + 1
23216  data_tmp = full_data(idata)
23217  data_tmp = ishft(data_tmp, 32)
23218  pack_tmp = ior(pack_tmp, data_tmp)
23219  pack_tmp = ishft(pack_tmp, 0)
23220  idata = idata + 1
23221  data_tmp = full_data(idata)
23222  data_tmp = ishft(data_tmp, 32)
23223  data_tmp = iand(data_tmp, mask_left(0))
23224  pack_tmp = ior(pack_tmp, data_tmp)
23225  ipack = ipack + 1
23226  packed_data(ipack) = pack_tmp
23227  data_tmp = full_data(idata)
23228  pack_tmp = ishft(data_tmp, 32)
23229  pack_tmp = ishft(pack_tmp, -32)
23230  idata = idata + 1
23231  data_tmp = full_data(idata)
23232  data_tmp = ishft(data_tmp, 32)
23233  pack_tmp = ior(pack_tmp, data_tmp)
23234  pack_tmp = ishft(pack_tmp, 0)
23235  idata = idata + 1
23236  data_tmp = full_data(idata)
23237  data_tmp = ishft(data_tmp, 32)
23238  data_tmp = iand(data_tmp, mask_left(0))
23239  pack_tmp = ior(pack_tmp, data_tmp)
23240  ipack = ipack + 1
23241  packed_data(ipack) = pack_tmp
23242  data_tmp = full_data(idata)
23243  pack_tmp = ishft(data_tmp, 32)
23244  pack_tmp = ishft(pack_tmp, -32)
23245  idata = idata + 1
23246  data_tmp = full_data(idata)
23247  data_tmp = ishft(data_tmp, 32)
23248  pack_tmp = ior(pack_tmp, data_tmp)
23249  pack_tmp = ishft(pack_tmp, 0)
23250  idata = idata + 1
23251  data_tmp = full_data(idata)
23252  data_tmp = ishft(data_tmp, 32)
23253  data_tmp = iand(data_tmp, mask_left(0))
23254  pack_tmp = ior(pack_tmp, data_tmp)
23255  ipack = ipack + 1
23256  packed_data(ipack) = pack_tmp
23257  data_tmp = full_data(idata)
23258  pack_tmp = ishft(data_tmp, 32)
23259  pack_tmp = ishft(pack_tmp, -32)
23260  idata = idata + 1
23261  data_tmp = full_data(idata)
23262  data_tmp = ishft(data_tmp, 32)
23263  pack_tmp = ior(pack_tmp, data_tmp)
23264  pack_tmp = ishft(pack_tmp, 0)
23265  idata = idata + 1
23266  data_tmp = full_data(idata)
23267  data_tmp = ishft(data_tmp, 32)
23268  data_tmp = iand(data_tmp, mask_left(0))
23269  pack_tmp = ior(pack_tmp, data_tmp)
23270  ipack = ipack + 1
23271  packed_data(ipack) = pack_tmp
23272  data_tmp = full_data(idata)
23273  pack_tmp = ishft(data_tmp, 32)
23274  pack_tmp = ishft(pack_tmp, -32)
23275  idata = idata + 1
23276  data_tmp = full_data(idata)
23277  data_tmp = ishft(data_tmp, 32)
23278  pack_tmp = ior(pack_tmp, data_tmp)
23279  pack_tmp = ishft(pack_tmp, 0)
23280  idata = idata + 1
23281  data_tmp = full_data(idata)
23282  data_tmp = ishft(data_tmp, 32)
23283  data_tmp = iand(data_tmp, mask_left(0))
23284  pack_tmp = ior(pack_tmp, data_tmp)
23285  ipack = ipack + 1
23286  packed_data(ipack) = pack_tmp
23287  data_tmp = full_data(idata)
23288  pack_tmp = ishft(data_tmp, 32)
23289  pack_tmp = ishft(pack_tmp, -32)
23290  idata = idata + 1
23291  data_tmp = full_data(idata)
23292  data_tmp = ishft(data_tmp, 32)
23293  pack_tmp = ior(pack_tmp, data_tmp)
23294  pack_tmp = ishft(pack_tmp, 0)
23295  idata = idata + 1
23296  data_tmp = full_data(idata)
23297  data_tmp = ishft(data_tmp, 32)
23298  data_tmp = iand(data_tmp, mask_left(0))
23299  pack_tmp = ior(pack_tmp, data_tmp)
23300  ipack = ipack + 1
23301  packed_data(ipack) = pack_tmp
23302  data_tmp = full_data(idata)
23303  pack_tmp = ishft(data_tmp, 32)
23304  pack_tmp = ishft(pack_tmp, -32)
23305  idata = idata + 1
23306  data_tmp = full_data(idata)
23307  data_tmp = ishft(data_tmp, 32)
23308  pack_tmp = ior(pack_tmp, data_tmp)
23309  pack_tmp = ishft(pack_tmp, 0)
23310  idata = idata + 1
23311  data_tmp = full_data(idata)
23312  data_tmp = ishft(data_tmp, 32)
23313  data_tmp = iand(data_tmp, mask_left(0))
23314  pack_tmp = ior(pack_tmp, data_tmp)
23315  ipack = ipack + 1
23316  packed_data(ipack) = pack_tmp
23317  data_tmp = full_data(idata)
23318  pack_tmp = ishft(data_tmp, 32)
23319  pack_tmp = ishft(pack_tmp, -32)
23320  idata = idata + 1
23321  data_tmp = full_data(idata)
23322  data_tmp = ishft(data_tmp, 32)
23323  pack_tmp = ior(pack_tmp, data_tmp)
23324  pack_tmp = ishft(pack_tmp, 0)
23325  idata = idata + 1
23326  data_tmp = full_data(idata)
23327  data_tmp = ishft(data_tmp, 32)
23328  data_tmp = iand(data_tmp, mask_left(0))
23329  pack_tmp = ior(pack_tmp, data_tmp)
23330  ipack = ipack + 1
23331  packed_data(ipack) = pack_tmp
23332  data_tmp = full_data(idata)
23333  pack_tmp = ishft(data_tmp, 32)
23334  pack_tmp = ishft(pack_tmp, -32)
23335  idata = idata + 1
23336  data_tmp = full_data(idata)
23337  data_tmp = ishft(data_tmp, 32)
23338  pack_tmp = ior(pack_tmp, data_tmp)
23339  pack_tmp = ishft(pack_tmp, 0)
23340  idata = idata + 1
23341  data_tmp = full_data(idata)
23342  data_tmp = ishft(data_tmp, 32)
23343  data_tmp = iand(data_tmp, mask_left(0))
23344  pack_tmp = ior(pack_tmp, data_tmp)
23345  ipack = ipack + 1
23346  packed_data(ipack) = pack_tmp
23347  data_tmp = full_data(idata)
23348  pack_tmp = ishft(data_tmp, 32)
23349  pack_tmp = ishft(pack_tmp, -32)
23350  idata = idata + 1
23351  data_tmp = full_data(idata)
23352  data_tmp = ishft(data_tmp, 32)
23353  pack_tmp = ior(pack_tmp, data_tmp)
23354  pack_tmp = ishft(pack_tmp, 0)
23355  idata = idata + 1
23356  data_tmp = full_data(idata)
23357  data_tmp = ishft(data_tmp, 32)
23358  data_tmp = iand(data_tmp, mask_left(0))
23359  pack_tmp = ior(pack_tmp, data_tmp)
23360  ipack = ipack + 1
23361  packed_data(ipack) = pack_tmp
23362  data_tmp = full_data(idata)
23363  pack_tmp = ishft(data_tmp, 32)
23364  pack_tmp = ishft(pack_tmp, -32)
23365  idata = idata + 1
23366  data_tmp = full_data(idata)
23367  data_tmp = ishft(data_tmp, 32)
23368  pack_tmp = ior(pack_tmp, data_tmp)
23369  pack_tmp = ishft(pack_tmp, 0)
23370  idata = idata + 1
23371  data_tmp = full_data(idata)
23372  data_tmp = ishft(data_tmp, 32)
23373  data_tmp = iand(data_tmp, mask_left(0))
23374  pack_tmp = ior(pack_tmp, data_tmp)
23375  ipack = ipack + 1
23376  packed_data(ipack) = pack_tmp
23377  data_tmp = full_data(idata)
23378  pack_tmp = ishft(data_tmp, 32)
23379  pack_tmp = ishft(pack_tmp, -32)
23380  idata = idata + 1
23381  data_tmp = full_data(idata)
23382  data_tmp = ishft(data_tmp, 32)
23383  pack_tmp = ior(pack_tmp, data_tmp)
23384  pack_tmp = ishft(pack_tmp, 0)
23385  idata = idata + 1
23386  data_tmp = full_data(idata)
23387  data_tmp = ishft(data_tmp, 32)
23388  data_tmp = iand(data_tmp, mask_left(0))
23389  pack_tmp = ior(pack_tmp, data_tmp)
23390  ipack = ipack + 1
23391  packed_data(ipack) = pack_tmp
23392  data_tmp = full_data(idata)
23393  pack_tmp = ishft(data_tmp, 32)
23394  pack_tmp = ishft(pack_tmp, -32)
23395  idata = idata + 1
23396  data_tmp = full_data(idata)
23397  data_tmp = ishft(data_tmp, 32)
23398  pack_tmp = ior(pack_tmp, data_tmp)
23399  pack_tmp = ishft(pack_tmp, 0)
23400  idata = idata + 1
23401  data_tmp = full_data(idata)
23402  data_tmp = ishft(data_tmp, 32)
23403  data_tmp = iand(data_tmp, mask_left(0))
23404  pack_tmp = ior(pack_tmp, data_tmp)
23405  ipack = ipack + 1
23406  packed_data(ipack) = pack_tmp
23407  data_tmp = full_data(idata)
23408  pack_tmp = ishft(data_tmp, 32)
23409  pack_tmp = ishft(pack_tmp, -32)
23410  idata = idata + 1
23411  data_tmp = full_data(idata)
23412  data_tmp = ishft(data_tmp, 32)
23413  pack_tmp = ior(pack_tmp, data_tmp)
23414  pack_tmp = ishft(pack_tmp, 0)
23415  idata = idata + 1
23416  data_tmp = full_data(idata)
23417  data_tmp = ishft(data_tmp, 32)
23418  data_tmp = iand(data_tmp, mask_left(0))
23419  pack_tmp = ior(pack_tmp, data_tmp)
23420  ipack = ipack + 1
23421  packed_data(ipack) = pack_tmp
23422  data_tmp = full_data(idata)
23423  pack_tmp = ishft(data_tmp, 32)
23424  pack_tmp = ishft(pack_tmp, -32)
23425  idata = idata + 1
23426  data_tmp = full_data(idata)
23427  data_tmp = ishft(data_tmp, 32)
23428  pack_tmp = ior(pack_tmp, data_tmp)
23429  pack_tmp = ishft(pack_tmp, 0)
23430  idata = idata + 1
23431  data_tmp = full_data(idata)
23432  data_tmp = ishft(data_tmp, 32)
23433  data_tmp = iand(data_tmp, mask_left(0))
23434  pack_tmp = ior(pack_tmp, data_tmp)
23435  ipack = ipack + 1
23436  packed_data(ipack) = pack_tmp
23437  data_tmp = full_data(idata)
23438  pack_tmp = ishft(data_tmp, 32)
23439  pack_tmp = ishft(pack_tmp, -32)
23440  idata = idata + 1
23441  data_tmp = full_data(idata)
23442  data_tmp = ishft(data_tmp, 32)
23443  pack_tmp = ior(pack_tmp, data_tmp)
23444  pack_tmp = ishft(pack_tmp, 0)
23445  idata = idata + 1
23446  data_tmp = full_data(idata)
23447  data_tmp = ishft(data_tmp, 32)
23448  data_tmp = iand(data_tmp, mask_left(0))
23449  pack_tmp = ior(pack_tmp, data_tmp)
23450  ipack = ipack + 1
23451  packed_data(ipack) = pack_tmp
23452  data_tmp = full_data(idata)
23453  pack_tmp = ishft(data_tmp, 32)
23454  pack_tmp = ishft(pack_tmp, -32)
23455  idata = idata + 1
23456  data_tmp = full_data(idata)
23457  data_tmp = ishft(data_tmp, 32)
23458  pack_tmp = ior(pack_tmp, data_tmp)
23459  pack_tmp = ishft(pack_tmp, 0)
23460  idata = idata + 1
23461  data_tmp = full_data(idata)
23462  data_tmp = ishft(data_tmp, 32)
23463  data_tmp = iand(data_tmp, mask_left(0))
23464  pack_tmp = ior(pack_tmp, data_tmp)
23465  ipack = ipack + 1
23466  packed_data(ipack) = pack_tmp
23467  data_tmp = full_data(idata)
23468  pack_tmp = ishft(data_tmp, 32)
23469  pack_tmp = ishft(pack_tmp, -32)
23470  idata = idata + 1
23471  data_tmp = full_data(idata)
23472  data_tmp = ishft(data_tmp, 32)
23473  pack_tmp = ior(pack_tmp, data_tmp)
23474  pack_tmp = ishft(pack_tmp, 0)
23475  idata = idata + 1
23476  data_tmp = full_data(idata)
23477  data_tmp = ishft(data_tmp, 32)
23478  data_tmp = iand(data_tmp, mask_left(0))
23479  pack_tmp = ior(pack_tmp, data_tmp)
23480  ipack = ipack + 1
23481  packed_data(ipack) = pack_tmp
23482  data_tmp = full_data(idata)
23483  pack_tmp = ishft(data_tmp, 32)
23484  pack_tmp = ishft(pack_tmp, -32)
23485  idata = idata + 1
23486  data_tmp = full_data(idata)
23487  data_tmp = ishft(data_tmp, 32)
23488  pack_tmp = ior(pack_tmp, data_tmp)
23489  pack_tmp = ishft(pack_tmp, 0)
23490  idata = idata + 1
23491  data_tmp = full_data(idata)
23492  data_tmp = ishft(data_tmp, 32)
23493  data_tmp = iand(data_tmp, mask_left(0))
23494  pack_tmp = ior(pack_tmp, data_tmp)
23495  ipack = ipack + 1
23496  packed_data(ipack) = pack_tmp
23497  data_tmp = full_data(idata)
23498  pack_tmp = ishft(data_tmp, 32)
23499  pack_tmp = ishft(pack_tmp, -32)
23500  idata = idata + 1
23501  data_tmp = full_data(idata)
23502  data_tmp = ishft(data_tmp, 32)
23503  pack_tmp = ior(pack_tmp, data_tmp)
23504  pack_tmp = ishft(pack_tmp, 0)
23505  idata = idata + 1
23506  data_tmp = full_data(idata)
23507  data_tmp = ishft(data_tmp, 32)
23508  data_tmp = iand(data_tmp, mask_left(0))
23509  pack_tmp = ior(pack_tmp, data_tmp)
23510  ipack = ipack + 1
23511  packed_data(ipack) = pack_tmp
23512  data_tmp = full_data(idata)
23513  pack_tmp = ishft(data_tmp, 32)
23514  pack_tmp = ishft(pack_tmp, -32)
23515  idata = idata + 1
23516  data_tmp = full_data(idata)
23517  data_tmp = ishft(data_tmp, 32)
23518  pack_tmp = ior(pack_tmp, data_tmp)
23519  pack_tmp = ishft(pack_tmp, 0)
23520  idata = idata + 1
23521  data_tmp = full_data(idata)
23522  data_tmp = ishft(data_tmp, 32)
23523  data_tmp = iand(data_tmp, mask_left(0))
23524  pack_tmp = ior(pack_tmp, data_tmp)
23525  ipack = ipack + 1
23526  packed_data(ipack) = pack_tmp
23527  data_tmp = full_data(idata)
23528  pack_tmp = ishft(data_tmp, 32)
23529  pack_tmp = ishft(pack_tmp, -32)
23530  idata = idata + 1
23531  data_tmp = full_data(idata)
23532  data_tmp = ishft(data_tmp, 32)
23533  pack_tmp = ior(pack_tmp, data_tmp)
23534  pack_tmp = ishft(pack_tmp, 0)
23535  idata = idata + 1
23536  data_tmp = full_data(idata)
23537  data_tmp = ishft(data_tmp, 32)
23538  data_tmp = iand(data_tmp, mask_left(0))
23539  pack_tmp = ior(pack_tmp, data_tmp)
23540  ipack = ipack + 1
23541  packed_data(ipack) = pack_tmp
23542  data_tmp = full_data(idata)
23543  pack_tmp = ishft(data_tmp, 32)
23544  pack_tmp = ishft(pack_tmp, -32)
23545  idata = idata + 1
23546  data_tmp = full_data(idata)
23547  data_tmp = ishft(data_tmp, 32)
23548  pack_tmp = ior(pack_tmp, data_tmp)
23549  pack_tmp = ishft(pack_tmp, 0)
23550  idata = idata + 1
23551  data_tmp = full_data(idata)
23552  data_tmp = ishft(data_tmp, 32)
23553  data_tmp = iand(data_tmp, mask_left(0))
23554  pack_tmp = ior(pack_tmp, data_tmp)
23555  ipack = ipack + 1
23556  packed_data(ipack) = pack_tmp
23557  data_tmp = full_data(idata)
23558  pack_tmp = ishft(data_tmp, 32)
23559  pack_tmp = ishft(pack_tmp, -32)
23560  idata = idata + 1
23561  data_tmp = full_data(idata)
23562  data_tmp = ishft(data_tmp, 32)
23563  pack_tmp = ior(pack_tmp, data_tmp)
23564  pack_tmp = ishft(pack_tmp, 0)
23565  idata = idata + 1
23566  data_tmp = full_data(idata)
23567  data_tmp = ishft(data_tmp, 32)
23568  data_tmp = iand(data_tmp, mask_left(0))
23569  pack_tmp = ior(pack_tmp, data_tmp)
23570  ipack = ipack + 1
23571  packed_data(ipack) = pack_tmp
23572  data_tmp = full_data(idata)
23573  pack_tmp = ishft(data_tmp, 32)
23574  pack_tmp = ishft(pack_tmp, -32)
23575  idata = idata + 1
23576  data_tmp = full_data(idata)
23577  data_tmp = ishft(data_tmp, 32)
23578  pack_tmp = ior(pack_tmp, data_tmp)
23579  pack_tmp = ishft(pack_tmp, 0)
23580  idata = idata + 1
23581  data_tmp = full_data(idata)
23582  data_tmp = ishft(data_tmp, 32)
23583  data_tmp = iand(data_tmp, mask_left(0))
23584  pack_tmp = ior(pack_tmp, data_tmp)
23585  ipack = ipack + 1
23586  packed_data(ipack) = pack_tmp
23587  data_tmp = full_data(idata)
23588  pack_tmp = ishft(data_tmp, 32)
23589  pack_tmp = ishft(pack_tmp, -32)
23590  idata = idata + 1
23591  data_tmp = full_data(idata)
23592  data_tmp = ishft(data_tmp, 32)
23593  pack_tmp = ior(pack_tmp, data_tmp)
23594  pack_tmp = ishft(pack_tmp, 0)
23595  idata = idata + 1
23596  data_tmp = full_data(idata)
23597  data_tmp = ishft(data_tmp, 32)
23598  data_tmp = iand(data_tmp, mask_left(0))
23599  pack_tmp = ior(pack_tmp, data_tmp)
23600  ipack = ipack + 1
23601  packed_data(ipack) = pack_tmp
23602  data_tmp = full_data(idata)
23603  pack_tmp = ishft(data_tmp, 32)
23604  pack_tmp = ishft(pack_tmp, -32)
23605  idata = idata + 1
23606  data_tmp = full_data(idata)
23607  data_tmp = ishft(data_tmp, 32)
23608  pack_tmp = ior(pack_tmp, data_tmp)
23609  pack_tmp = ishft(pack_tmp, 0)
23610  idata = idata + 1
23611  data_tmp = full_data(idata)
23612  data_tmp = ishft(data_tmp, 32)
23613  data_tmp = iand(data_tmp, mask_left(0))
23614  pack_tmp = ior(pack_tmp, data_tmp)
23615  ipack = ipack + 1
23616  packed_data(ipack) = pack_tmp
23617  data_tmp = full_data(idata)
23618  pack_tmp = ishft(data_tmp, 32)
23619  pack_tmp = ishft(pack_tmp, -32)
23620  idata = idata + 1
23621  data_tmp = full_data(idata)
23622  data_tmp = ishft(data_tmp, 32)
23623  pack_tmp = ior(pack_tmp, data_tmp)
23624  pack_tmp = ishft(pack_tmp, 0)
23625  pack_tmp = ishft(pack_tmp, 0)
23626  ipack = ipack + 1
23627  packed_data(ipack) = pack_tmp
23628  END DO
23629  IF (ndata_rep < ndata) THEN
23630  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
23631  END IF
23632  END SUBROUTINE ints2bits_32
23633 
23634 ! **************************************************************************************************
23635 !> \brief ...
23636 !> \param Ndata ...
23637 !> \param packed_data ...
23638 !> \param full_data ...
23639 ! **************************************************************************************************
23640  SUBROUTINE bits2ints_32(Ndata, packed_data, full_data)
23641  INTEGER, INTENT(IN) :: Ndata
23642  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
23643  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
23644 
23645  INTEGER, PARAMETER :: Nbits = 32
23646 
23647  INTEGER :: idata, ipack, kdata, Ndata_rep
23648  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
23649 
23650  ipack = 0
23651  idata = 0
23652  pack_tmp = 0
23653  ndata_rep = (ndata/64)*64
23654  DO kdata = 1, ndata_rep, 64
23655  idata = idata + 1
23656  data_tmp = ishft(pack_tmp, 32)
23657  ipack = ipack + 1
23658  pack_tmp = packed_data(ipack)
23659  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23660  pack_tmp = ishft(pack_tmp, -32)
23661  idata = idata + 1
23662  data_tmp = iand(pack_tmp, mask_right(nbits))
23663  full_data(idata) = data_tmp
23664  pack_tmp = ishft(pack_tmp, -nbits)
23665  idata = idata + 1
23666  data_tmp = ishft(pack_tmp, 32)
23667  ipack = ipack + 1
23668  pack_tmp = packed_data(ipack)
23669  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23670  pack_tmp = ishft(pack_tmp, -32)
23671  idata = idata + 1
23672  data_tmp = iand(pack_tmp, mask_right(nbits))
23673  full_data(idata) = data_tmp
23674  pack_tmp = ishft(pack_tmp, -nbits)
23675  idata = idata + 1
23676  data_tmp = ishft(pack_tmp, 32)
23677  ipack = ipack + 1
23678  pack_tmp = packed_data(ipack)
23679  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23680  pack_tmp = ishft(pack_tmp, -32)
23681  idata = idata + 1
23682  data_tmp = iand(pack_tmp, mask_right(nbits))
23683  full_data(idata) = data_tmp
23684  pack_tmp = ishft(pack_tmp, -nbits)
23685  idata = idata + 1
23686  data_tmp = ishft(pack_tmp, 32)
23687  ipack = ipack + 1
23688  pack_tmp = packed_data(ipack)
23689  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23690  pack_tmp = ishft(pack_tmp, -32)
23691  idata = idata + 1
23692  data_tmp = iand(pack_tmp, mask_right(nbits))
23693  full_data(idata) = data_tmp
23694  pack_tmp = ishft(pack_tmp, -nbits)
23695  idata = idata + 1
23696  data_tmp = ishft(pack_tmp, 32)
23697  ipack = ipack + 1
23698  pack_tmp = packed_data(ipack)
23699  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23700  pack_tmp = ishft(pack_tmp, -32)
23701  idata = idata + 1
23702  data_tmp = iand(pack_tmp, mask_right(nbits))
23703  full_data(idata) = data_tmp
23704  pack_tmp = ishft(pack_tmp, -nbits)
23705  idata = idata + 1
23706  data_tmp = ishft(pack_tmp, 32)
23707  ipack = ipack + 1
23708  pack_tmp = packed_data(ipack)
23709  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23710  pack_tmp = ishft(pack_tmp, -32)
23711  idata = idata + 1
23712  data_tmp = iand(pack_tmp, mask_right(nbits))
23713  full_data(idata) = data_tmp
23714  pack_tmp = ishft(pack_tmp, -nbits)
23715  idata = idata + 1
23716  data_tmp = ishft(pack_tmp, 32)
23717  ipack = ipack + 1
23718  pack_tmp = packed_data(ipack)
23719  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23720  pack_tmp = ishft(pack_tmp, -32)
23721  idata = idata + 1
23722  data_tmp = iand(pack_tmp, mask_right(nbits))
23723  full_data(idata) = data_tmp
23724  pack_tmp = ishft(pack_tmp, -nbits)
23725  idata = idata + 1
23726  data_tmp = ishft(pack_tmp, 32)
23727  ipack = ipack + 1
23728  pack_tmp = packed_data(ipack)
23729  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23730  pack_tmp = ishft(pack_tmp, -32)
23731  idata = idata + 1
23732  data_tmp = iand(pack_tmp, mask_right(nbits))
23733  full_data(idata) = data_tmp
23734  pack_tmp = ishft(pack_tmp, -nbits)
23735  idata = idata + 1
23736  data_tmp = ishft(pack_tmp, 32)
23737  ipack = ipack + 1
23738  pack_tmp = packed_data(ipack)
23739  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23740  pack_tmp = ishft(pack_tmp, -32)
23741  idata = idata + 1
23742  data_tmp = iand(pack_tmp, mask_right(nbits))
23743  full_data(idata) = data_tmp
23744  pack_tmp = ishft(pack_tmp, -nbits)
23745  idata = idata + 1
23746  data_tmp = ishft(pack_tmp, 32)
23747  ipack = ipack + 1
23748  pack_tmp = packed_data(ipack)
23749  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23750  pack_tmp = ishft(pack_tmp, -32)
23751  idata = idata + 1
23752  data_tmp = iand(pack_tmp, mask_right(nbits))
23753  full_data(idata) = data_tmp
23754  pack_tmp = ishft(pack_tmp, -nbits)
23755  idata = idata + 1
23756  data_tmp = ishft(pack_tmp, 32)
23757  ipack = ipack + 1
23758  pack_tmp = packed_data(ipack)
23759  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23760  pack_tmp = ishft(pack_tmp, -32)
23761  idata = idata + 1
23762  data_tmp = iand(pack_tmp, mask_right(nbits))
23763  full_data(idata) = data_tmp
23764  pack_tmp = ishft(pack_tmp, -nbits)
23765  idata = idata + 1
23766  data_tmp = ishft(pack_tmp, 32)
23767  ipack = ipack + 1
23768  pack_tmp = packed_data(ipack)
23769  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23770  pack_tmp = ishft(pack_tmp, -32)
23771  idata = idata + 1
23772  data_tmp = iand(pack_tmp, mask_right(nbits))
23773  full_data(idata) = data_tmp
23774  pack_tmp = ishft(pack_tmp, -nbits)
23775  idata = idata + 1
23776  data_tmp = ishft(pack_tmp, 32)
23777  ipack = ipack + 1
23778  pack_tmp = packed_data(ipack)
23779  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23780  pack_tmp = ishft(pack_tmp, -32)
23781  idata = idata + 1
23782  data_tmp = iand(pack_tmp, mask_right(nbits))
23783  full_data(idata) = data_tmp
23784  pack_tmp = ishft(pack_tmp, -nbits)
23785  idata = idata + 1
23786  data_tmp = ishft(pack_tmp, 32)
23787  ipack = ipack + 1
23788  pack_tmp = packed_data(ipack)
23789  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23790  pack_tmp = ishft(pack_tmp, -32)
23791  idata = idata + 1
23792  data_tmp = iand(pack_tmp, mask_right(nbits))
23793  full_data(idata) = data_tmp
23794  pack_tmp = ishft(pack_tmp, -nbits)
23795  idata = idata + 1
23796  data_tmp = ishft(pack_tmp, 32)
23797  ipack = ipack + 1
23798  pack_tmp = packed_data(ipack)
23799  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23800  pack_tmp = ishft(pack_tmp, -32)
23801  idata = idata + 1
23802  data_tmp = iand(pack_tmp, mask_right(nbits))
23803  full_data(idata) = data_tmp
23804  pack_tmp = ishft(pack_tmp, -nbits)
23805  idata = idata + 1
23806  data_tmp = ishft(pack_tmp, 32)
23807  ipack = ipack + 1
23808  pack_tmp = packed_data(ipack)
23809  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23810  pack_tmp = ishft(pack_tmp, -32)
23811  idata = idata + 1
23812  data_tmp = iand(pack_tmp, mask_right(nbits))
23813  full_data(idata) = data_tmp
23814  pack_tmp = ishft(pack_tmp, -nbits)
23815  idata = idata + 1
23816  data_tmp = ishft(pack_tmp, 32)
23817  ipack = ipack + 1
23818  pack_tmp = packed_data(ipack)
23819  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23820  pack_tmp = ishft(pack_tmp, -32)
23821  idata = idata + 1
23822  data_tmp = iand(pack_tmp, mask_right(nbits))
23823  full_data(idata) = data_tmp
23824  pack_tmp = ishft(pack_tmp, -nbits)
23825  idata = idata + 1
23826  data_tmp = ishft(pack_tmp, 32)
23827  ipack = ipack + 1
23828  pack_tmp = packed_data(ipack)
23829  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23830  pack_tmp = ishft(pack_tmp, -32)
23831  idata = idata + 1
23832  data_tmp = iand(pack_tmp, mask_right(nbits))
23833  full_data(idata) = data_tmp
23834  pack_tmp = ishft(pack_tmp, -nbits)
23835  idata = idata + 1
23836  data_tmp = ishft(pack_tmp, 32)
23837  ipack = ipack + 1
23838  pack_tmp = packed_data(ipack)
23839  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23840  pack_tmp = ishft(pack_tmp, -32)
23841  idata = idata + 1
23842  data_tmp = iand(pack_tmp, mask_right(nbits))
23843  full_data(idata) = data_tmp
23844  pack_tmp = ishft(pack_tmp, -nbits)
23845  idata = idata + 1
23846  data_tmp = ishft(pack_tmp, 32)
23847  ipack = ipack + 1
23848  pack_tmp = packed_data(ipack)
23849  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23850  pack_tmp = ishft(pack_tmp, -32)
23851  idata = idata + 1
23852  data_tmp = iand(pack_tmp, mask_right(nbits))
23853  full_data(idata) = data_tmp
23854  pack_tmp = ishft(pack_tmp, -nbits)
23855  idata = idata + 1
23856  data_tmp = ishft(pack_tmp, 32)
23857  ipack = ipack + 1
23858  pack_tmp = packed_data(ipack)
23859  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23860  pack_tmp = ishft(pack_tmp, -32)
23861  idata = idata + 1
23862  data_tmp = iand(pack_tmp, mask_right(nbits))
23863  full_data(idata) = data_tmp
23864  pack_tmp = ishft(pack_tmp, -nbits)
23865  idata = idata + 1
23866  data_tmp = ishft(pack_tmp, 32)
23867  ipack = ipack + 1
23868  pack_tmp = packed_data(ipack)
23869  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23870  pack_tmp = ishft(pack_tmp, -32)
23871  idata = idata + 1
23872  data_tmp = iand(pack_tmp, mask_right(nbits))
23873  full_data(idata) = data_tmp
23874  pack_tmp = ishft(pack_tmp, -nbits)
23875  idata = idata + 1
23876  data_tmp = ishft(pack_tmp, 32)
23877  ipack = ipack + 1
23878  pack_tmp = packed_data(ipack)
23879  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23880  pack_tmp = ishft(pack_tmp, -32)
23881  idata = idata + 1
23882  data_tmp = iand(pack_tmp, mask_right(nbits))
23883  full_data(idata) = data_tmp
23884  pack_tmp = ishft(pack_tmp, -nbits)
23885  idata = idata + 1
23886  data_tmp = ishft(pack_tmp, 32)
23887  ipack = ipack + 1
23888  pack_tmp = packed_data(ipack)
23889  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23890  pack_tmp = ishft(pack_tmp, -32)
23891  idata = idata + 1
23892  data_tmp = iand(pack_tmp, mask_right(nbits))
23893  full_data(idata) = data_tmp
23894  pack_tmp = ishft(pack_tmp, -nbits)
23895  idata = idata + 1
23896  data_tmp = ishft(pack_tmp, 32)
23897  ipack = ipack + 1
23898  pack_tmp = packed_data(ipack)
23899  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23900  pack_tmp = ishft(pack_tmp, -32)
23901  idata = idata + 1
23902  data_tmp = iand(pack_tmp, mask_right(nbits))
23903  full_data(idata) = data_tmp
23904  pack_tmp = ishft(pack_tmp, -nbits)
23905  idata = idata + 1
23906  data_tmp = ishft(pack_tmp, 32)
23907  ipack = ipack + 1
23908  pack_tmp = packed_data(ipack)
23909  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23910  pack_tmp = ishft(pack_tmp, -32)
23911  idata = idata + 1
23912  data_tmp = iand(pack_tmp, mask_right(nbits))
23913  full_data(idata) = data_tmp
23914  pack_tmp = ishft(pack_tmp, -nbits)
23915  idata = idata + 1
23916  data_tmp = ishft(pack_tmp, 32)
23917  ipack = ipack + 1
23918  pack_tmp = packed_data(ipack)
23919  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23920  pack_tmp = ishft(pack_tmp, -32)
23921  idata = idata + 1
23922  data_tmp = iand(pack_tmp, mask_right(nbits))
23923  full_data(idata) = data_tmp
23924  pack_tmp = ishft(pack_tmp, -nbits)
23925  idata = idata + 1
23926  data_tmp = ishft(pack_tmp, 32)
23927  ipack = ipack + 1
23928  pack_tmp = packed_data(ipack)
23929  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23930  pack_tmp = ishft(pack_tmp, -32)
23931  idata = idata + 1
23932  data_tmp = iand(pack_tmp, mask_right(nbits))
23933  full_data(idata) = data_tmp
23934  pack_tmp = ishft(pack_tmp, -nbits)
23935  idata = idata + 1
23936  data_tmp = ishft(pack_tmp, 32)
23937  ipack = ipack + 1
23938  pack_tmp = packed_data(ipack)
23939  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23940  pack_tmp = ishft(pack_tmp, -32)
23941  idata = idata + 1
23942  data_tmp = iand(pack_tmp, mask_right(nbits))
23943  full_data(idata) = data_tmp
23944  pack_tmp = ishft(pack_tmp, -nbits)
23945  idata = idata + 1
23946  data_tmp = ishft(pack_tmp, 32)
23947  ipack = ipack + 1
23948  pack_tmp = packed_data(ipack)
23949  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23950  pack_tmp = ishft(pack_tmp, -32)
23951  idata = idata + 1
23952  data_tmp = iand(pack_tmp, mask_right(nbits))
23953  full_data(idata) = data_tmp
23954  pack_tmp = ishft(pack_tmp, -nbits)
23955  idata = idata + 1
23956  data_tmp = ishft(pack_tmp, 32)
23957  ipack = ipack + 1
23958  pack_tmp = packed_data(ipack)
23959  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23960  pack_tmp = ishft(pack_tmp, -32)
23961  idata = idata + 1
23962  data_tmp = iand(pack_tmp, mask_right(nbits))
23963  full_data(idata) = data_tmp
23964  pack_tmp = ishft(pack_tmp, -nbits)
23965  idata = idata + 1
23966  data_tmp = ishft(pack_tmp, 32)
23967  ipack = ipack + 1
23968  pack_tmp = packed_data(ipack)
23969  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
23970  pack_tmp = ishft(pack_tmp, -32)
23971  idata = idata + 1
23972  data_tmp = iand(pack_tmp, mask_right(nbits))
23973  full_data(idata) = data_tmp
23974  pack_tmp = ishft(pack_tmp, -nbits)
23975  END DO
23976  IF (ndata_rep < ndata) THEN
23977  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
23978  END IF
23979  END SUBROUTINE bits2ints_32
23980 
23981 ! **************************************************************************************************
23982 !> \brief ...
23983 !> \param Ndata ...
23984 !> \param packed_data ...
23985 !> \param full_data ...
23986 ! **************************************************************************************************
23987  SUBROUTINE ints2bits_33(Ndata, packed_data, full_data)
23988  INTEGER, INTENT(IN) :: Ndata
23989  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
23990  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
23991 
23992  INTEGER, PARAMETER :: Nbits = 33
23993 
23994  INTEGER :: idata, ipack, kdata, Ndata_rep
23995  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
23996 
23997  idata = 0
23998  ipack = 0
23999  ndata_rep = (ndata/64)*64
24000  DO kdata = 1, ndata_rep, 64
24001  pack_tmp = 0
24002  idata = idata + 1
24003  data_tmp = full_data(idata)
24004  data_tmp = ishft(data_tmp, 31)
24005  pack_tmp = ior(pack_tmp, data_tmp)
24006  pack_tmp = ishft(pack_tmp, -31)
24007  idata = idata + 1
24008  data_tmp = full_data(idata)
24009  data_tmp = ishft(data_tmp, 31)
24010  data_tmp = iand(data_tmp, mask_left(31))
24011  pack_tmp = ior(pack_tmp, data_tmp)
24012  ipack = ipack + 1
24013  packed_data(ipack) = pack_tmp
24014  data_tmp = full_data(idata)
24015  pack_tmp = ishft(data_tmp, 62)
24016  pack_tmp = ishft(pack_tmp, -33)
24017  idata = idata + 1
24018  data_tmp = full_data(idata)
24019  data_tmp = ishft(data_tmp, 31)
24020  pack_tmp = ior(pack_tmp, data_tmp)
24021  pack_tmp = ishft(pack_tmp, -29)
24022  idata = idata + 1
24023  data_tmp = full_data(idata)
24024  data_tmp = ishft(data_tmp, 31)
24025  data_tmp = iand(data_tmp, mask_left(29))
24026  pack_tmp = ior(pack_tmp, data_tmp)
24027  ipack = ipack + 1
24028  packed_data(ipack) = pack_tmp
24029  data_tmp = full_data(idata)
24030  pack_tmp = ishft(data_tmp, 60)
24031  pack_tmp = ishft(pack_tmp, -33)
24032  idata = idata + 1
24033  data_tmp = full_data(idata)
24034  data_tmp = ishft(data_tmp, 31)
24035  pack_tmp = ior(pack_tmp, data_tmp)
24036  pack_tmp = ishft(pack_tmp, -27)
24037  idata = idata + 1
24038  data_tmp = full_data(idata)
24039  data_tmp = ishft(data_tmp, 31)
24040  data_tmp = iand(data_tmp, mask_left(27))
24041  pack_tmp = ior(pack_tmp, data_tmp)
24042  ipack = ipack + 1
24043  packed_data(ipack) = pack_tmp
24044  data_tmp = full_data(idata)
24045  pack_tmp = ishft(data_tmp, 58)
24046  pack_tmp = ishft(pack_tmp, -33)
24047  idata = idata + 1
24048  data_tmp = full_data(idata)
24049  data_tmp = ishft(data_tmp, 31)
24050  pack_tmp = ior(pack_tmp, data_tmp)
24051  pack_tmp = ishft(pack_tmp, -25)
24052  idata = idata + 1
24053  data_tmp = full_data(idata)
24054  data_tmp = ishft(data_tmp, 31)
24055  data_tmp = iand(data_tmp, mask_left(25))
24056  pack_tmp = ior(pack_tmp, data_tmp)
24057  ipack = ipack + 1
24058  packed_data(ipack) = pack_tmp
24059  data_tmp = full_data(idata)
24060  pack_tmp = ishft(data_tmp, 56)
24061  pack_tmp = ishft(pack_tmp, -33)
24062  idata = idata + 1
24063  data_tmp = full_data(idata)
24064  data_tmp = ishft(data_tmp, 31)
24065  pack_tmp = ior(pack_tmp, data_tmp)
24066  pack_tmp = ishft(pack_tmp, -23)
24067  idata = idata + 1
24068  data_tmp = full_data(idata)
24069  data_tmp = ishft(data_tmp, 31)
24070  data_tmp = iand(data_tmp, mask_left(23))
24071  pack_tmp = ior(pack_tmp, data_tmp)
24072  ipack = ipack + 1
24073  packed_data(ipack) = pack_tmp
24074  data_tmp = full_data(idata)
24075  pack_tmp = ishft(data_tmp, 54)
24076  pack_tmp = ishft(pack_tmp, -33)
24077  idata = idata + 1
24078  data_tmp = full_data(idata)
24079  data_tmp = ishft(data_tmp, 31)
24080  pack_tmp = ior(pack_tmp, data_tmp)
24081  pack_tmp = ishft(pack_tmp, -21)
24082  idata = idata + 1
24083  data_tmp = full_data(idata)
24084  data_tmp = ishft(data_tmp, 31)
24085  data_tmp = iand(data_tmp, mask_left(21))
24086  pack_tmp = ior(pack_tmp, data_tmp)
24087  ipack = ipack + 1
24088  packed_data(ipack) = pack_tmp
24089  data_tmp = full_data(idata)
24090  pack_tmp = ishft(data_tmp, 52)
24091  pack_tmp = ishft(pack_tmp, -33)
24092  idata = idata + 1
24093  data_tmp = full_data(idata)
24094  data_tmp = ishft(data_tmp, 31)
24095  pack_tmp = ior(pack_tmp, data_tmp)
24096  pack_tmp = ishft(pack_tmp, -19)
24097  idata = idata + 1
24098  data_tmp = full_data(idata)
24099  data_tmp = ishft(data_tmp, 31)
24100  data_tmp = iand(data_tmp, mask_left(19))
24101  pack_tmp = ior(pack_tmp, data_tmp)
24102  ipack = ipack + 1
24103  packed_data(ipack) = pack_tmp
24104  data_tmp = full_data(idata)
24105  pack_tmp = ishft(data_tmp, 50)
24106  pack_tmp = ishft(pack_tmp, -33)
24107  idata = idata + 1
24108  data_tmp = full_data(idata)
24109  data_tmp = ishft(data_tmp, 31)
24110  pack_tmp = ior(pack_tmp, data_tmp)
24111  pack_tmp = ishft(pack_tmp, -17)
24112  idata = idata + 1
24113  data_tmp = full_data(idata)
24114  data_tmp = ishft(data_tmp, 31)
24115  data_tmp = iand(data_tmp, mask_left(17))
24116  pack_tmp = ior(pack_tmp, data_tmp)
24117  ipack = ipack + 1
24118  packed_data(ipack) = pack_tmp
24119  data_tmp = full_data(idata)
24120  pack_tmp = ishft(data_tmp, 48)
24121  pack_tmp = ishft(pack_tmp, -33)
24122  idata = idata + 1
24123  data_tmp = full_data(idata)
24124  data_tmp = ishft(data_tmp, 31)
24125  pack_tmp = ior(pack_tmp, data_tmp)
24126  pack_tmp = ishft(pack_tmp, -15)
24127  idata = idata + 1
24128  data_tmp = full_data(idata)
24129  data_tmp = ishft(data_tmp, 31)
24130  data_tmp = iand(data_tmp, mask_left(15))
24131  pack_tmp = ior(pack_tmp, data_tmp)
24132  ipack = ipack + 1
24133  packed_data(ipack) = pack_tmp
24134  data_tmp = full_data(idata)
24135  pack_tmp = ishft(data_tmp, 46)
24136  pack_tmp = ishft(pack_tmp, -33)
24137  idata = idata + 1
24138  data_tmp = full_data(idata)
24139  data_tmp = ishft(data_tmp, 31)
24140  pack_tmp = ior(pack_tmp, data_tmp)
24141  pack_tmp = ishft(pack_tmp, -13)
24142  idata = idata + 1
24143  data_tmp = full_data(idata)
24144  data_tmp = ishft(data_tmp, 31)
24145  data_tmp = iand(data_tmp, mask_left(13))
24146  pack_tmp = ior(pack_tmp, data_tmp)
24147  ipack = ipack + 1
24148  packed_data(ipack) = pack_tmp
24149  data_tmp = full_data(idata)
24150  pack_tmp = ishft(data_tmp, 44)
24151  pack_tmp = ishft(pack_tmp, -33)
24152  idata = idata + 1
24153  data_tmp = full_data(idata)
24154  data_tmp = ishft(data_tmp, 31)
24155  pack_tmp = ior(pack_tmp, data_tmp)
24156  pack_tmp = ishft(pack_tmp, -11)
24157  idata = idata + 1
24158  data_tmp = full_data(idata)
24159  data_tmp = ishft(data_tmp, 31)
24160  data_tmp = iand(data_tmp, mask_left(11))
24161  pack_tmp = ior(pack_tmp, data_tmp)
24162  ipack = ipack + 1
24163  packed_data(ipack) = pack_tmp
24164  data_tmp = full_data(idata)
24165  pack_tmp = ishft(data_tmp, 42)
24166  pack_tmp = ishft(pack_tmp, -33)
24167  idata = idata + 1
24168  data_tmp = full_data(idata)
24169  data_tmp = ishft(data_tmp, 31)
24170  pack_tmp = ior(pack_tmp, data_tmp)
24171  pack_tmp = ishft(pack_tmp, -9)
24172  idata = idata + 1
24173  data_tmp = full_data(idata)
24174  data_tmp = ishft(data_tmp, 31)
24175  data_tmp = iand(data_tmp, mask_left(9))
24176  pack_tmp = ior(pack_tmp, data_tmp)
24177  ipack = ipack + 1
24178  packed_data(ipack) = pack_tmp
24179  data_tmp = full_data(idata)
24180  pack_tmp = ishft(data_tmp, 40)
24181  pack_tmp = ishft(pack_tmp, -33)
24182  idata = idata + 1
24183  data_tmp = full_data(idata)
24184  data_tmp = ishft(data_tmp, 31)
24185  pack_tmp = ior(pack_tmp, data_tmp)
24186  pack_tmp = ishft(pack_tmp, -7)
24187  idata = idata + 1
24188  data_tmp = full_data(idata)
24189  data_tmp = ishft(data_tmp, 31)
24190  data_tmp = iand(data_tmp, mask_left(7))
24191  pack_tmp = ior(pack_tmp, data_tmp)
24192  ipack = ipack + 1
24193  packed_data(ipack) = pack_tmp
24194  data_tmp = full_data(idata)
24195  pack_tmp = ishft(data_tmp, 38)
24196  pack_tmp = ishft(pack_tmp, -33)
24197  idata = idata + 1
24198  data_tmp = full_data(idata)
24199  data_tmp = ishft(data_tmp, 31)
24200  pack_tmp = ior(pack_tmp, data_tmp)
24201  pack_tmp = ishft(pack_tmp, -5)
24202  idata = idata + 1
24203  data_tmp = full_data(idata)
24204  data_tmp = ishft(data_tmp, 31)
24205  data_tmp = iand(data_tmp, mask_left(5))
24206  pack_tmp = ior(pack_tmp, data_tmp)
24207  ipack = ipack + 1
24208  packed_data(ipack) = pack_tmp
24209  data_tmp = full_data(idata)
24210  pack_tmp = ishft(data_tmp, 36)
24211  pack_tmp = ishft(pack_tmp, -33)
24212  idata = idata + 1
24213  data_tmp = full_data(idata)
24214  data_tmp = ishft(data_tmp, 31)
24215  pack_tmp = ior(pack_tmp, data_tmp)
24216  pack_tmp = ishft(pack_tmp, -3)
24217  idata = idata + 1
24218  data_tmp = full_data(idata)
24219  data_tmp = ishft(data_tmp, 31)
24220  data_tmp = iand(data_tmp, mask_left(3))
24221  pack_tmp = ior(pack_tmp, data_tmp)
24222  ipack = ipack + 1
24223  packed_data(ipack) = pack_tmp
24224  data_tmp = full_data(idata)
24225  pack_tmp = ishft(data_tmp, 34)
24226  pack_tmp = ishft(pack_tmp, -33)
24227  idata = idata + 1
24228  data_tmp = full_data(idata)
24229  data_tmp = ishft(data_tmp, 31)
24230  pack_tmp = ior(pack_tmp, data_tmp)
24231  pack_tmp = ishft(pack_tmp, -1)
24232  idata = idata + 1
24233  data_tmp = full_data(idata)
24234  data_tmp = ishft(data_tmp, 31)
24235  data_tmp = iand(data_tmp, mask_left(1))
24236  pack_tmp = ior(pack_tmp, data_tmp)
24237  ipack = ipack + 1
24238  packed_data(ipack) = pack_tmp
24239  data_tmp = full_data(idata)
24240  pack_tmp = ishft(data_tmp, 32)
24241  pack_tmp = ishft(pack_tmp, -32)
24242  idata = idata + 1
24243  data_tmp = full_data(idata)
24244  data_tmp = ishft(data_tmp, 31)
24245  data_tmp = iand(data_tmp, mask_left(32))
24246  pack_tmp = ior(pack_tmp, data_tmp)
24247  ipack = ipack + 1
24248  packed_data(ipack) = pack_tmp
24249  data_tmp = full_data(idata)
24250  pack_tmp = ishft(data_tmp, 63)
24251  pack_tmp = ishft(pack_tmp, -33)
24252  idata = idata + 1
24253  data_tmp = full_data(idata)
24254  data_tmp = ishft(data_tmp, 31)
24255  pack_tmp = ior(pack_tmp, data_tmp)
24256  pack_tmp = ishft(pack_tmp, -30)
24257  idata = idata + 1
24258  data_tmp = full_data(idata)
24259  data_tmp = ishft(data_tmp, 31)
24260  data_tmp = iand(data_tmp, mask_left(30))
24261  pack_tmp = ior(pack_tmp, data_tmp)
24262  ipack = ipack + 1
24263  packed_data(ipack) = pack_tmp
24264  data_tmp = full_data(idata)
24265  pack_tmp = ishft(data_tmp, 61)
24266  pack_tmp = ishft(pack_tmp, -33)
24267  idata = idata + 1
24268  data_tmp = full_data(idata)
24269  data_tmp = ishft(data_tmp, 31)
24270  pack_tmp = ior(pack_tmp, data_tmp)
24271  pack_tmp = ishft(pack_tmp, -28)
24272  idata = idata + 1
24273  data_tmp = full_data(idata)
24274  data_tmp = ishft(data_tmp, 31)
24275  data_tmp = iand(data_tmp, mask_left(28))
24276  pack_tmp = ior(pack_tmp, data_tmp)
24277  ipack = ipack + 1
24278  packed_data(ipack) = pack_tmp
24279  data_tmp = full_data(idata)
24280  pack_tmp = ishft(data_tmp, 59)
24281  pack_tmp = ishft(pack_tmp, -33)
24282  idata = idata + 1
24283  data_tmp = full_data(idata)
24284  data_tmp = ishft(data_tmp, 31)
24285  pack_tmp = ior(pack_tmp, data_tmp)
24286  pack_tmp = ishft(pack_tmp, -26)
24287  idata = idata + 1
24288  data_tmp = full_data(idata)
24289  data_tmp = ishft(data_tmp, 31)
24290  data_tmp = iand(data_tmp, mask_left(26))
24291  pack_tmp = ior(pack_tmp, data_tmp)
24292  ipack = ipack + 1
24293  packed_data(ipack) = pack_tmp
24294  data_tmp = full_data(idata)
24295  pack_tmp = ishft(data_tmp, 57)
24296  pack_tmp = ishft(pack_tmp, -33)
24297  idata = idata + 1
24298  data_tmp = full_data(idata)
24299  data_tmp = ishft(data_tmp, 31)
24300  pack_tmp = ior(pack_tmp, data_tmp)
24301  pack_tmp = ishft(pack_tmp, -24)
24302  idata = idata + 1
24303  data_tmp = full_data(idata)
24304  data_tmp = ishft(data_tmp, 31)
24305  data_tmp = iand(data_tmp, mask_left(24))
24306  pack_tmp = ior(pack_tmp, data_tmp)
24307  ipack = ipack + 1
24308  packed_data(ipack) = pack_tmp
24309  data_tmp = full_data(idata)
24310  pack_tmp = ishft(data_tmp, 55)
24311  pack_tmp = ishft(pack_tmp, -33)
24312  idata = idata + 1
24313  data_tmp = full_data(idata)
24314  data_tmp = ishft(data_tmp, 31)
24315  pack_tmp = ior(pack_tmp, data_tmp)
24316  pack_tmp = ishft(pack_tmp, -22)
24317  idata = idata + 1
24318  data_tmp = full_data(idata)
24319  data_tmp = ishft(data_tmp, 31)
24320  data_tmp = iand(data_tmp, mask_left(22))
24321  pack_tmp = ior(pack_tmp, data_tmp)
24322  ipack = ipack + 1
24323  packed_data(ipack) = pack_tmp
24324  data_tmp = full_data(idata)
24325  pack_tmp = ishft(data_tmp, 53)
24326  pack_tmp = ishft(pack_tmp, -33)
24327  idata = idata + 1
24328  data_tmp = full_data(idata)
24329  data_tmp = ishft(data_tmp, 31)
24330  pack_tmp = ior(pack_tmp, data_tmp)
24331  pack_tmp = ishft(pack_tmp, -20)
24332  idata = idata + 1
24333  data_tmp = full_data(idata)
24334  data_tmp = ishft(data_tmp, 31)
24335  data_tmp = iand(data_tmp, mask_left(20))
24336  pack_tmp = ior(pack_tmp, data_tmp)
24337  ipack = ipack + 1
24338  packed_data(ipack) = pack_tmp
24339  data_tmp = full_data(idata)
24340  pack_tmp = ishft(data_tmp, 51)
24341  pack_tmp = ishft(pack_tmp, -33)
24342  idata = idata + 1
24343  data_tmp = full_data(idata)
24344  data_tmp = ishft(data_tmp, 31)
24345  pack_tmp = ior(pack_tmp, data_tmp)
24346  pack_tmp = ishft(pack_tmp, -18)
24347  idata = idata + 1
24348  data_tmp = full_data(idata)
24349  data_tmp = ishft(data_tmp, 31)
24350  data_tmp = iand(data_tmp, mask_left(18))
24351  pack_tmp = ior(pack_tmp, data_tmp)
24352  ipack = ipack + 1
24353  packed_data(ipack) = pack_tmp
24354  data_tmp = full_data(idata)
24355  pack_tmp = ishft(data_tmp, 49)
24356  pack_tmp = ishft(pack_tmp, -33)
24357  idata = idata + 1
24358  data_tmp = full_data(idata)
24359  data_tmp = ishft(data_tmp, 31)
24360  pack_tmp = ior(pack_tmp, data_tmp)
24361  pack_tmp = ishft(pack_tmp, -16)
24362  idata = idata + 1
24363  data_tmp = full_data(idata)
24364  data_tmp = ishft(data_tmp, 31)
24365  data_tmp = iand(data_tmp, mask_left(16))
24366  pack_tmp = ior(pack_tmp, data_tmp)
24367  ipack = ipack + 1
24368  packed_data(ipack) = pack_tmp
24369  data_tmp = full_data(idata)
24370  pack_tmp = ishft(data_tmp, 47)
24371  pack_tmp = ishft(pack_tmp, -33)
24372  idata = idata + 1
24373  data_tmp = full_data(idata)
24374  data_tmp = ishft(data_tmp, 31)
24375  pack_tmp = ior(pack_tmp, data_tmp)
24376  pack_tmp = ishft(pack_tmp, -14)
24377  idata = idata + 1
24378  data_tmp = full_data(idata)
24379  data_tmp = ishft(data_tmp, 31)
24380  data_tmp = iand(data_tmp, mask_left(14))
24381  pack_tmp = ior(pack_tmp, data_tmp)
24382  ipack = ipack + 1
24383  packed_data(ipack) = pack_tmp
24384  data_tmp = full_data(idata)
24385  pack_tmp = ishft(data_tmp, 45)
24386  pack_tmp = ishft(pack_tmp, -33)
24387  idata = idata + 1
24388  data_tmp = full_data(idata)
24389  data_tmp = ishft(data_tmp, 31)
24390  pack_tmp = ior(pack_tmp, data_tmp)
24391  pack_tmp = ishft(pack_tmp, -12)
24392  idata = idata + 1
24393  data_tmp = full_data(idata)
24394  data_tmp = ishft(data_tmp, 31)
24395  data_tmp = iand(data_tmp, mask_left(12))
24396  pack_tmp = ior(pack_tmp, data_tmp)
24397  ipack = ipack + 1
24398  packed_data(ipack) = pack_tmp
24399  data_tmp = full_data(idata)
24400  pack_tmp = ishft(data_tmp, 43)
24401  pack_tmp = ishft(pack_tmp, -33)
24402  idata = idata + 1
24403  data_tmp = full_data(idata)
24404  data_tmp = ishft(data_tmp, 31)
24405  pack_tmp = ior(pack_tmp, data_tmp)
24406  pack_tmp = ishft(pack_tmp, -10)
24407  idata = idata + 1
24408  data_tmp = full_data(idata)
24409  data_tmp = ishft(data_tmp, 31)
24410  data_tmp = iand(data_tmp, mask_left(10))
24411  pack_tmp = ior(pack_tmp, data_tmp)
24412  ipack = ipack + 1
24413  packed_data(ipack) = pack_tmp
24414  data_tmp = full_data(idata)
24415  pack_tmp = ishft(data_tmp, 41)
24416  pack_tmp = ishft(pack_tmp, -33)
24417  idata = idata + 1
24418  data_tmp = full_data(idata)
24419  data_tmp = ishft(data_tmp, 31)
24420  pack_tmp = ior(pack_tmp, data_tmp)
24421  pack_tmp = ishft(pack_tmp, -8)
24422  idata = idata + 1
24423  data_tmp = full_data(idata)
24424  data_tmp = ishft(data_tmp, 31)
24425  data_tmp = iand(data_tmp, mask_left(8))
24426  pack_tmp = ior(pack_tmp, data_tmp)
24427  ipack = ipack + 1
24428  packed_data(ipack) = pack_tmp
24429  data_tmp = full_data(idata)
24430  pack_tmp = ishft(data_tmp, 39)
24431  pack_tmp = ishft(pack_tmp, -33)
24432  idata = idata + 1
24433  data_tmp = full_data(idata)
24434  data_tmp = ishft(data_tmp, 31)
24435  pack_tmp = ior(pack_tmp, data_tmp)
24436  pack_tmp = ishft(pack_tmp, -6)
24437  idata = idata + 1
24438  data_tmp = full_data(idata)
24439  data_tmp = ishft(data_tmp, 31)
24440  data_tmp = iand(data_tmp, mask_left(6))
24441  pack_tmp = ior(pack_tmp, data_tmp)
24442  ipack = ipack + 1
24443  packed_data(ipack) = pack_tmp
24444  data_tmp = full_data(idata)
24445  pack_tmp = ishft(data_tmp, 37)
24446  pack_tmp = ishft(pack_tmp, -33)
24447  idata = idata + 1
24448  data_tmp = full_data(idata)
24449  data_tmp = ishft(data_tmp, 31)
24450  pack_tmp = ior(pack_tmp, data_tmp)
24451  pack_tmp = ishft(pack_tmp, -4)
24452  idata = idata + 1
24453  data_tmp = full_data(idata)
24454  data_tmp = ishft(data_tmp, 31)
24455  data_tmp = iand(data_tmp, mask_left(4))
24456  pack_tmp = ior(pack_tmp, data_tmp)
24457  ipack = ipack + 1
24458  packed_data(ipack) = pack_tmp
24459  data_tmp = full_data(idata)
24460  pack_tmp = ishft(data_tmp, 35)
24461  pack_tmp = ishft(pack_tmp, -33)
24462  idata = idata + 1
24463  data_tmp = full_data(idata)
24464  data_tmp = ishft(data_tmp, 31)
24465  pack_tmp = ior(pack_tmp, data_tmp)
24466  pack_tmp = ishft(pack_tmp, -2)
24467  idata = idata + 1
24468  data_tmp = full_data(idata)
24469  data_tmp = ishft(data_tmp, 31)
24470  data_tmp = iand(data_tmp, mask_left(2))
24471  pack_tmp = ior(pack_tmp, data_tmp)
24472  ipack = ipack + 1
24473  packed_data(ipack) = pack_tmp
24474  data_tmp = full_data(idata)
24475  pack_tmp = ishft(data_tmp, 33)
24476  pack_tmp = ishft(pack_tmp, -33)
24477  idata = idata + 1
24478  data_tmp = full_data(idata)
24479  data_tmp = ishft(data_tmp, 31)
24480  pack_tmp = ior(pack_tmp, data_tmp)
24481  pack_tmp = ishft(pack_tmp, 0)
24482  pack_tmp = ishft(pack_tmp, 0)
24483  ipack = ipack + 1
24484  packed_data(ipack) = pack_tmp
24485  END DO
24486  IF (ndata_rep < ndata) THEN
24487  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
24488  END IF
24489  END SUBROUTINE ints2bits_33
24490 
24491 ! **************************************************************************************************
24492 !> \brief ...
24493 !> \param Ndata ...
24494 !> \param packed_data ...
24495 !> \param full_data ...
24496 ! **************************************************************************************************
24497  SUBROUTINE bits2ints_33(Ndata, packed_data, full_data)
24498  INTEGER, INTENT(IN) :: Ndata
24499  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
24500  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
24501 
24502  INTEGER, PARAMETER :: Nbits = 33
24503 
24504  INTEGER :: idata, ipack, kdata, Ndata_rep
24505  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
24506 
24507  ipack = 0
24508  idata = 0
24509  pack_tmp = 0
24510  ndata_rep = (ndata/64)*64
24511  DO kdata = 1, ndata_rep, 64
24512  idata = idata + 1
24513  data_tmp = ishft(pack_tmp, 33)
24514  ipack = ipack + 1
24515  pack_tmp = packed_data(ipack)
24516  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
24517  pack_tmp = ishft(pack_tmp, -33)
24518  idata = idata + 1
24519  data_tmp = ishft(pack_tmp, 2)
24520  ipack = ipack + 1
24521  pack_tmp = packed_data(ipack)
24522  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
24523  pack_tmp = ishft(pack_tmp, -2)
24524  idata = idata + 1
24525  data_tmp = iand(pack_tmp, mask_right(nbits))
24526  full_data(idata) = data_tmp
24527  pack_tmp = ishft(pack_tmp, -nbits)
24528  idata = idata + 1
24529  data_tmp = ishft(pack_tmp, 4)
24530  ipack = ipack + 1
24531  pack_tmp = packed_data(ipack)
24532  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
24533  pack_tmp = ishft(pack_tmp, -4)
24534  idata = idata + 1
24535  data_tmp = iand(pack_tmp, mask_right(nbits))
24536  full_data(idata) = data_tmp
24537  pack_tmp = ishft(pack_tmp, -nbits)
24538  idata = idata + 1
24539  data_tmp = ishft(pack_tmp, 6)
24540  ipack = ipack + 1
24541  pack_tmp = packed_data(ipack)
24542  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
24543  pack_tmp = ishft(pack_tmp, -6)
24544  idata = idata + 1
24545  data_tmp = iand(pack_tmp, mask_right(nbits))
24546  full_data(idata) = data_tmp
24547  pack_tmp = ishft(pack_tmp, -nbits)
24548  idata = idata + 1
24549  data_tmp = ishft(pack_tmp, 8)
24550  ipack = ipack + 1
24551  pack_tmp = packed_data(ipack)
24552  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
24553  pack_tmp = ishft(pack_tmp, -8)
24554  idata = idata + 1
24555  data_tmp = iand(pack_tmp, mask_right(nbits))
24556  full_data(idata) = data_tmp
24557  pack_tmp = ishft(pack_tmp, -nbits)
24558  idata = idata + 1
24559  data_tmp = ishft(pack_tmp, 10)
24560  ipack = ipack + 1
24561  pack_tmp = packed_data(ipack)
24562  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
24563  pack_tmp = ishft(pack_tmp, -10)
24564  idata = idata + 1
24565  data_tmp = iand(pack_tmp, mask_right(nbits))
24566  full_data(idata) = data_tmp
24567  pack_tmp = ishft(pack_tmp, -nbits)
24568  idata = idata + 1
24569  data_tmp = ishft(pack_tmp, 12)
24570  ipack = ipack + 1
24571  pack_tmp = packed_data(ipack)
24572  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
24573  pack_tmp = ishft(pack_tmp, -12)
24574  idata = idata + 1
24575  data_tmp = iand(pack_tmp, mask_right(nbits))
24576  full_data(idata) = data_tmp
24577  pack_tmp = ishft(pack_tmp, -nbits)
24578  idata = idata + 1
24579  data_tmp = ishft(pack_tmp, 14)
24580  ipack = ipack + 1
24581  pack_tmp = packed_data(ipack)
24582  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
24583  pack_tmp = ishft(pack_tmp, -14)
24584  idata = idata + 1
24585  data_tmp = iand(pack_tmp, mask_right(nbits))
24586  full_data(idata) = data_tmp
24587  pack_tmp = ishft(pack_tmp, -nbits)
24588  idata = idata + 1
24589  data_tmp = ishft(pack_tmp, 16)
24590  ipack = ipack + 1
24591  pack_tmp = packed_data(ipack)
24592  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
24593  pack_tmp = ishft(pack_tmp, -16)
24594  idata = idata + 1
24595  data_tmp = iand(pack_tmp, mask_right(nbits))
24596  full_data(idata) = data_tmp
24597  pack_tmp = ishft(pack_tmp, -nbits)
24598  idata = idata + 1
24599  data_tmp = ishft(pack_tmp, 18)
24600  ipack = ipack + 1
24601  pack_tmp = packed_data(ipack)
24602  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
24603  pack_tmp = ishft(pack_tmp, -18)
24604  idata = idata + 1
24605  data_tmp = iand(pack_tmp, mask_right(nbits))
24606  full_data(idata) = data_tmp
24607  pack_tmp = ishft(pack_tmp, -nbits)
24608  idata = idata + 1
24609  data_tmp = ishft(pack_tmp, 20)
24610  ipack = ipack + 1
24611  pack_tmp = packed_data(ipack)
24612  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
24613  pack_tmp = ishft(pack_tmp, -20)
24614  idata = idata + 1
24615  data_tmp = iand(pack_tmp, mask_right(nbits))
24616  full_data(idata) = data_tmp
24617  pack_tmp = ishft(pack_tmp, -nbits)
24618  idata = idata + 1
24619  data_tmp = ishft(pack_tmp, 22)
24620  ipack = ipack + 1
24621  pack_tmp = packed_data(ipack)
24622  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
24623  pack_tmp = ishft(pack_tmp, -22)
24624  idata = idata + 1
24625  data_tmp = iand(pack_tmp, mask_right(nbits))
24626  full_data(idata) = data_tmp
24627  pack_tmp = ishft(pack_tmp, -nbits)
24628  idata = idata + 1
24629  data_tmp = ishft(pack_tmp, 24)
24630  ipack = ipack + 1
24631  pack_tmp = packed_data(ipack)
24632  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
24633  pack_tmp = ishft(pack_tmp, -24)
24634  idata = idata + 1
24635  data_tmp = iand(pack_tmp, mask_right(nbits))
24636  full_data(idata) = data_tmp
24637  pack_tmp = ishft(pack_tmp, -nbits)
24638  idata = idata + 1
24639  data_tmp = ishft(pack_tmp, 26)
24640  ipack = ipack + 1
24641  pack_tmp = packed_data(ipack)
24642  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
24643  pack_tmp = ishft(pack_tmp, -26)
24644  idata = idata + 1
24645  data_tmp = iand(pack_tmp, mask_right(nbits))
24646  full_data(idata) = data_tmp
24647  pack_tmp = ishft(pack_tmp, -nbits)
24648  idata = idata + 1
24649  data_tmp = ishft(pack_tmp, 28)
24650  ipack = ipack + 1
24651  pack_tmp = packed_data(ipack)
24652  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
24653  pack_tmp = ishft(pack_tmp, -28)
24654  idata = idata + 1
24655  data_tmp = iand(pack_tmp, mask_right(nbits))
24656  full_data(idata) = data_tmp
24657  pack_tmp = ishft(pack_tmp, -nbits)
24658  idata = idata + 1
24659  data_tmp = ishft(pack_tmp, 30)
24660  ipack = ipack + 1
24661  pack_tmp = packed_data(ipack)
24662  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
24663  pack_tmp = ishft(pack_tmp, -30)
24664  idata = idata + 1
24665  data_tmp = iand(pack_tmp, mask_right(nbits))
24666  full_data(idata) = data_tmp
24667  pack_tmp = ishft(pack_tmp, -nbits)
24668  idata = idata + 1
24669  data_tmp = ishft(pack_tmp, 32)
24670  ipack = ipack + 1
24671  pack_tmp = packed_data(ipack)
24672  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
24673  pack_tmp = ishft(pack_tmp, -32)
24674  idata = idata + 1
24675  data_tmp = ishft(pack_tmp, 1)
24676  ipack = ipack + 1
24677  pack_tmp = packed_data(ipack)
24678  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
24679  pack_tmp = ishft(pack_tmp, -1)
24680  idata = idata + 1
24681  data_tmp = iand(pack_tmp, mask_right(nbits))
24682  full_data(idata) = data_tmp
24683  pack_tmp = ishft(pack_tmp, -nbits)
24684  idata = idata + 1
24685  data_tmp = ishft(pack_tmp, 3)
24686  ipack = ipack + 1
24687  pack_tmp = packed_data(ipack)
24688  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
24689  pack_tmp = ishft(pack_tmp, -3)
24690  idata = idata + 1
24691  data_tmp = iand(pack_tmp, mask_right(nbits))
24692  full_data(idata) = data_tmp
24693  pack_tmp = ishft(pack_tmp, -nbits)
24694  idata = idata + 1
24695  data_tmp = ishft(pack_tmp, 5)
24696  ipack = ipack + 1
24697  pack_tmp = packed_data(ipack)
24698  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
24699  pack_tmp = ishft(pack_tmp, -5)
24700  idata = idata + 1
24701  data_tmp = iand(pack_tmp, mask_right(nbits))
24702  full_data(idata) = data_tmp
24703  pack_tmp = ishft(pack_tmp, -nbits)
24704  idata = idata + 1
24705  data_tmp = ishft(pack_tmp, 7)
24706  ipack = ipack + 1
24707  pack_tmp = packed_data(ipack)
24708  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
24709  pack_tmp = ishft(pack_tmp, -7)
24710  idata = idata + 1
24711  data_tmp = iand(pack_tmp, mask_right(nbits))
24712  full_data(idata) = data_tmp
24713  pack_tmp = ishft(pack_tmp, -nbits)
24714  idata = idata + 1
24715  data_tmp = ishft(pack_tmp, 9)
24716  ipack = ipack + 1
24717  pack_tmp = packed_data(ipack)
24718  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
24719  pack_tmp = ishft(pack_tmp, -9)
24720  idata = idata + 1
24721  data_tmp = iand(pack_tmp, mask_right(nbits))
24722  full_data(idata) = data_tmp
24723  pack_tmp = ishft(pack_tmp, -nbits)
24724  idata = idata + 1
24725  data_tmp = ishft(pack_tmp, 11)
24726  ipack = ipack + 1
24727  pack_tmp = packed_data(ipack)
24728  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
24729  pack_tmp = ishft(pack_tmp, -11)
24730  idata = idata + 1
24731  data_tmp = iand(pack_tmp, mask_right(nbits))
24732  full_data(idata) = data_tmp
24733  pack_tmp = ishft(pack_tmp, -nbits)
24734  idata = idata + 1
24735  data_tmp = ishft(pack_tmp, 13)
24736  ipack = ipack + 1
24737  pack_tmp = packed_data(ipack)
24738  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
24739  pack_tmp = ishft(pack_tmp, -13)
24740  idata = idata + 1
24741  data_tmp = iand(pack_tmp, mask_right(nbits))
24742  full_data(idata) = data_tmp
24743  pack_tmp = ishft(pack_tmp, -nbits)
24744  idata = idata + 1
24745  data_tmp = ishft(pack_tmp, 15)
24746  ipack = ipack + 1
24747  pack_tmp = packed_data(ipack)
24748  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
24749  pack_tmp = ishft(pack_tmp, -15)
24750  idata = idata + 1
24751  data_tmp = iand(pack_tmp, mask_right(nbits))
24752  full_data(idata) = data_tmp
24753  pack_tmp = ishft(pack_tmp, -nbits)
24754  idata = idata + 1
24755  data_tmp = ishft(pack_tmp, 17)
24756  ipack = ipack + 1
24757  pack_tmp = packed_data(ipack)
24758  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
24759  pack_tmp = ishft(pack_tmp, -17)
24760  idata = idata + 1
24761  data_tmp = iand(pack_tmp, mask_right(nbits))
24762  full_data(idata) = data_tmp
24763  pack_tmp = ishft(pack_tmp, -nbits)
24764  idata = idata + 1
24765  data_tmp = ishft(pack_tmp, 19)
24766  ipack = ipack + 1
24767  pack_tmp = packed_data(ipack)
24768  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
24769  pack_tmp = ishft(pack_tmp, -19)
24770  idata = idata + 1
24771  data_tmp = iand(pack_tmp, mask_right(nbits))
24772  full_data(idata) = data_tmp
24773  pack_tmp = ishft(pack_tmp, -nbits)
24774  idata = idata + 1
24775  data_tmp = ishft(pack_tmp, 21)
24776  ipack = ipack + 1
24777  pack_tmp = packed_data(ipack)
24778  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
24779  pack_tmp = ishft(pack_tmp, -21)
24780  idata = idata + 1
24781  data_tmp = iand(pack_tmp, mask_right(nbits))
24782  full_data(idata) = data_tmp
24783  pack_tmp = ishft(pack_tmp, -nbits)
24784  idata = idata + 1
24785  data_tmp = ishft(pack_tmp, 23)
24786  ipack = ipack + 1
24787  pack_tmp = packed_data(ipack)
24788  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
24789  pack_tmp = ishft(pack_tmp, -23)
24790  idata = idata + 1
24791  data_tmp = iand(pack_tmp, mask_right(nbits))
24792  full_data(idata) = data_tmp
24793  pack_tmp = ishft(pack_tmp, -nbits)
24794  idata = idata + 1
24795  data_tmp = ishft(pack_tmp, 25)
24796  ipack = ipack + 1
24797  pack_tmp = packed_data(ipack)
24798  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
24799  pack_tmp = ishft(pack_tmp, -25)
24800  idata = idata + 1
24801  data_tmp = iand(pack_tmp, mask_right(nbits))
24802  full_data(idata) = data_tmp
24803  pack_tmp = ishft(pack_tmp, -nbits)
24804  idata = idata + 1
24805  data_tmp = ishft(pack_tmp, 27)
24806  ipack = ipack + 1
24807  pack_tmp = packed_data(ipack)
24808  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
24809  pack_tmp = ishft(pack_tmp, -27)
24810  idata = idata + 1
24811  data_tmp = iand(pack_tmp, mask_right(nbits))
24812  full_data(idata) = data_tmp
24813  pack_tmp = ishft(pack_tmp, -nbits)
24814  idata = idata + 1
24815  data_tmp = ishft(pack_tmp, 29)
24816  ipack = ipack + 1
24817  pack_tmp = packed_data(ipack)
24818  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
24819  pack_tmp = ishft(pack_tmp, -29)
24820  idata = idata + 1
24821  data_tmp = iand(pack_tmp, mask_right(nbits))
24822  full_data(idata) = data_tmp
24823  pack_tmp = ishft(pack_tmp, -nbits)
24824  idata = idata + 1
24825  data_tmp = ishft(pack_tmp, 31)
24826  ipack = ipack + 1
24827  pack_tmp = packed_data(ipack)
24828  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
24829  pack_tmp = ishft(pack_tmp, -31)
24830  idata = idata + 1
24831  data_tmp = iand(pack_tmp, mask_right(nbits))
24832  full_data(idata) = data_tmp
24833  pack_tmp = ishft(pack_tmp, -nbits)
24834  END DO
24835  IF (ndata_rep < ndata) THEN
24836  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
24837  END IF
24838  END SUBROUTINE bits2ints_33
24839 
24840 ! **************************************************************************************************
24841 !> \brief ...
24842 !> \param Ndata ...
24843 !> \param packed_data ...
24844 !> \param full_data ...
24845 ! **************************************************************************************************
24846  SUBROUTINE ints2bits_34(Ndata, packed_data, full_data)
24847  INTEGER, INTENT(IN) :: Ndata
24848  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
24849  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
24850 
24851  INTEGER, PARAMETER :: Nbits = 34
24852 
24853  INTEGER :: idata, ipack, kdata, Ndata_rep
24854  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
24855 
24856  idata = 0
24857  ipack = 0
24858  ndata_rep = (ndata/64)*64
24859  DO kdata = 1, ndata_rep, 64
24860  pack_tmp = 0
24861  idata = idata + 1
24862  data_tmp = full_data(idata)
24863  data_tmp = ishft(data_tmp, 30)
24864  pack_tmp = ior(pack_tmp, data_tmp)
24865  pack_tmp = ishft(pack_tmp, -30)
24866  idata = idata + 1
24867  data_tmp = full_data(idata)
24868  data_tmp = ishft(data_tmp, 30)
24869  data_tmp = iand(data_tmp, mask_left(30))
24870  pack_tmp = ior(pack_tmp, data_tmp)
24871  ipack = ipack + 1
24872  packed_data(ipack) = pack_tmp
24873  data_tmp = full_data(idata)
24874  pack_tmp = ishft(data_tmp, 60)
24875  pack_tmp = ishft(pack_tmp, -34)
24876  idata = idata + 1
24877  data_tmp = full_data(idata)
24878  data_tmp = ishft(data_tmp, 30)
24879  pack_tmp = ior(pack_tmp, data_tmp)
24880  pack_tmp = ishft(pack_tmp, -26)
24881  idata = idata + 1
24882  data_tmp = full_data(idata)
24883  data_tmp = ishft(data_tmp, 30)
24884  data_tmp = iand(data_tmp, mask_left(26))
24885  pack_tmp = ior(pack_tmp, data_tmp)
24886  ipack = ipack + 1
24887  packed_data(ipack) = pack_tmp
24888  data_tmp = full_data(idata)
24889  pack_tmp = ishft(data_tmp, 56)
24890  pack_tmp = ishft(pack_tmp, -34)
24891  idata = idata + 1
24892  data_tmp = full_data(idata)
24893  data_tmp = ishft(data_tmp, 30)
24894  pack_tmp = ior(pack_tmp, data_tmp)
24895  pack_tmp = ishft(pack_tmp, -22)
24896  idata = idata + 1
24897  data_tmp = full_data(idata)
24898  data_tmp = ishft(data_tmp, 30)
24899  data_tmp = iand(data_tmp, mask_left(22))
24900  pack_tmp = ior(pack_tmp, data_tmp)
24901  ipack = ipack + 1
24902  packed_data(ipack) = pack_tmp
24903  data_tmp = full_data(idata)
24904  pack_tmp = ishft(data_tmp, 52)
24905  pack_tmp = ishft(pack_tmp, -34)
24906  idata = idata + 1
24907  data_tmp = full_data(idata)
24908  data_tmp = ishft(data_tmp, 30)
24909  pack_tmp = ior(pack_tmp, data_tmp)
24910  pack_tmp = ishft(pack_tmp, -18)
24911  idata = idata + 1
24912  data_tmp = full_data(idata)
24913  data_tmp = ishft(data_tmp, 30)
24914  data_tmp = iand(data_tmp, mask_left(18))
24915  pack_tmp = ior(pack_tmp, data_tmp)
24916  ipack = ipack + 1
24917  packed_data(ipack) = pack_tmp
24918  data_tmp = full_data(idata)
24919  pack_tmp = ishft(data_tmp, 48)
24920  pack_tmp = ishft(pack_tmp, -34)
24921  idata = idata + 1
24922  data_tmp = full_data(idata)
24923  data_tmp = ishft(data_tmp, 30)
24924  pack_tmp = ior(pack_tmp, data_tmp)
24925  pack_tmp = ishft(pack_tmp, -14)
24926  idata = idata + 1
24927  data_tmp = full_data(idata)
24928  data_tmp = ishft(data_tmp, 30)
24929  data_tmp = iand(data_tmp, mask_left(14))
24930  pack_tmp = ior(pack_tmp, data_tmp)
24931  ipack = ipack + 1
24932  packed_data(ipack) = pack_tmp
24933  data_tmp = full_data(idata)
24934  pack_tmp = ishft(data_tmp, 44)
24935  pack_tmp = ishft(pack_tmp, -34)
24936  idata = idata + 1
24937  data_tmp = full_data(idata)
24938  data_tmp = ishft(data_tmp, 30)
24939  pack_tmp = ior(pack_tmp, data_tmp)
24940  pack_tmp = ishft(pack_tmp, -10)
24941  idata = idata + 1
24942  data_tmp = full_data(idata)
24943  data_tmp = ishft(data_tmp, 30)
24944  data_tmp = iand(data_tmp, mask_left(10))
24945  pack_tmp = ior(pack_tmp, data_tmp)
24946  ipack = ipack + 1
24947  packed_data(ipack) = pack_tmp
24948  data_tmp = full_data(idata)
24949  pack_tmp = ishft(data_tmp, 40)
24950  pack_tmp = ishft(pack_tmp, -34)
24951  idata = idata + 1
24952  data_tmp = full_data(idata)
24953  data_tmp = ishft(data_tmp, 30)
24954  pack_tmp = ior(pack_tmp, data_tmp)
24955  pack_tmp = ishft(pack_tmp, -6)
24956  idata = idata + 1
24957  data_tmp = full_data(idata)
24958  data_tmp = ishft(data_tmp, 30)
24959  data_tmp = iand(data_tmp, mask_left(6))
24960  pack_tmp = ior(pack_tmp, data_tmp)
24961  ipack = ipack + 1
24962  packed_data(ipack) = pack_tmp
24963  data_tmp = full_data(idata)
24964  pack_tmp = ishft(data_tmp, 36)
24965  pack_tmp = ishft(pack_tmp, -34)
24966  idata = idata + 1
24967  data_tmp = full_data(idata)
24968  data_tmp = ishft(data_tmp, 30)
24969  pack_tmp = ior(pack_tmp, data_tmp)
24970  pack_tmp = ishft(pack_tmp, -2)
24971  idata = idata + 1
24972  data_tmp = full_data(idata)
24973  data_tmp = ishft(data_tmp, 30)
24974  data_tmp = iand(data_tmp, mask_left(2))
24975  pack_tmp = ior(pack_tmp, data_tmp)
24976  ipack = ipack + 1
24977  packed_data(ipack) = pack_tmp
24978  data_tmp = full_data(idata)
24979  pack_tmp = ishft(data_tmp, 32)
24980  pack_tmp = ishft(pack_tmp, -32)
24981  idata = idata + 1
24982  data_tmp = full_data(idata)
24983  data_tmp = ishft(data_tmp, 30)
24984  data_tmp = iand(data_tmp, mask_left(32))
24985  pack_tmp = ior(pack_tmp, data_tmp)
24986  ipack = ipack + 1
24987  packed_data(ipack) = pack_tmp
24988  data_tmp = full_data(idata)
24989  pack_tmp = ishft(data_tmp, 62)
24990  pack_tmp = ishft(pack_tmp, -34)
24991  idata = idata + 1
24992  data_tmp = full_data(idata)
24993  data_tmp = ishft(data_tmp, 30)
24994  pack_tmp = ior(pack_tmp, data_tmp)
24995  pack_tmp = ishft(pack_tmp, -28)
24996  idata = idata + 1
24997  data_tmp = full_data(idata)
24998  data_tmp = ishft(data_tmp, 30)
24999  data_tmp = iand(data_tmp, mask_left(28))
25000  pack_tmp = ior(pack_tmp, data_tmp)
25001  ipack = ipack + 1
25002  packed_data(ipack) = pack_tmp
25003  data_tmp = full_data(idata)
25004  pack_tmp = ishft(data_tmp, 58)
25005  pack_tmp = ishft(pack_tmp, -34)
25006  idata = idata + 1
25007  data_tmp = full_data(idata)
25008  data_tmp = ishft(data_tmp, 30)
25009  pack_tmp = ior(pack_tmp, data_tmp)
25010  pack_tmp = ishft(pack_tmp, -24)
25011  idata = idata + 1
25012  data_tmp = full_data(idata)
25013  data_tmp = ishft(data_tmp, 30)
25014  data_tmp = iand(data_tmp, mask_left(24))
25015  pack_tmp = ior(pack_tmp, data_tmp)
25016  ipack = ipack + 1
25017  packed_data(ipack) = pack_tmp
25018  data_tmp = full_data(idata)
25019  pack_tmp = ishft(data_tmp, 54)
25020  pack_tmp = ishft(pack_tmp, -34)
25021  idata = idata + 1
25022  data_tmp = full_data(idata)
25023  data_tmp = ishft(data_tmp, 30)
25024  pack_tmp = ior(pack_tmp, data_tmp)
25025  pack_tmp = ishft(pack_tmp, -20)
25026  idata = idata + 1
25027  data_tmp = full_data(idata)
25028  data_tmp = ishft(data_tmp, 30)
25029  data_tmp = iand(data_tmp, mask_left(20))
25030  pack_tmp = ior(pack_tmp, data_tmp)
25031  ipack = ipack + 1
25032  packed_data(ipack) = pack_tmp
25033  data_tmp = full_data(idata)
25034  pack_tmp = ishft(data_tmp, 50)
25035  pack_tmp = ishft(pack_tmp, -34)
25036  idata = idata + 1
25037  data_tmp = full_data(idata)
25038  data_tmp = ishft(data_tmp, 30)
25039  pack_tmp = ior(pack_tmp, data_tmp)
25040  pack_tmp = ishft(pack_tmp, -16)
25041  idata = idata + 1
25042  data_tmp = full_data(idata)
25043  data_tmp = ishft(data_tmp, 30)
25044  data_tmp = iand(data_tmp, mask_left(16))
25045  pack_tmp = ior(pack_tmp, data_tmp)
25046  ipack = ipack + 1
25047  packed_data(ipack) = pack_tmp
25048  data_tmp = full_data(idata)
25049  pack_tmp = ishft(data_tmp, 46)
25050  pack_tmp = ishft(pack_tmp, -34)
25051  idata = idata + 1
25052  data_tmp = full_data(idata)
25053  data_tmp = ishft(data_tmp, 30)
25054  pack_tmp = ior(pack_tmp, data_tmp)
25055  pack_tmp = ishft(pack_tmp, -12)
25056  idata = idata + 1
25057  data_tmp = full_data(idata)
25058  data_tmp = ishft(data_tmp, 30)
25059  data_tmp = iand(data_tmp, mask_left(12))
25060  pack_tmp = ior(pack_tmp, data_tmp)
25061  ipack = ipack + 1
25062  packed_data(ipack) = pack_tmp
25063  data_tmp = full_data(idata)
25064  pack_tmp = ishft(data_tmp, 42)
25065  pack_tmp = ishft(pack_tmp, -34)
25066  idata = idata + 1
25067  data_tmp = full_data(idata)
25068  data_tmp = ishft(data_tmp, 30)
25069  pack_tmp = ior(pack_tmp, data_tmp)
25070  pack_tmp = ishft(pack_tmp, -8)
25071  idata = idata + 1
25072  data_tmp = full_data(idata)
25073  data_tmp = ishft(data_tmp, 30)
25074  data_tmp = iand(data_tmp, mask_left(8))
25075  pack_tmp = ior(pack_tmp, data_tmp)
25076  ipack = ipack + 1
25077  packed_data(ipack) = pack_tmp
25078  data_tmp = full_data(idata)
25079  pack_tmp = ishft(data_tmp, 38)
25080  pack_tmp = ishft(pack_tmp, -34)
25081  idata = idata + 1
25082  data_tmp = full_data(idata)
25083  data_tmp = ishft(data_tmp, 30)
25084  pack_tmp = ior(pack_tmp, data_tmp)
25085  pack_tmp = ishft(pack_tmp, -4)
25086  idata = idata + 1
25087  data_tmp = full_data(idata)
25088  data_tmp = ishft(data_tmp, 30)
25089  data_tmp = iand(data_tmp, mask_left(4))
25090  pack_tmp = ior(pack_tmp, data_tmp)
25091  ipack = ipack + 1
25092  packed_data(ipack) = pack_tmp
25093  data_tmp = full_data(idata)
25094  pack_tmp = ishft(data_tmp, 34)
25095  pack_tmp = ishft(pack_tmp, -34)
25096  idata = idata + 1
25097  data_tmp = full_data(idata)
25098  data_tmp = ishft(data_tmp, 30)
25099  pack_tmp = ior(pack_tmp, data_tmp)
25100  pack_tmp = ishft(pack_tmp, 0)
25101  idata = idata + 1
25102  data_tmp = full_data(idata)
25103  data_tmp = ishft(data_tmp, 30)
25104  data_tmp = iand(data_tmp, mask_left(0))
25105  pack_tmp = ior(pack_tmp, data_tmp)
25106  ipack = ipack + 1
25107  packed_data(ipack) = pack_tmp
25108  data_tmp = full_data(idata)
25109  pack_tmp = ishft(data_tmp, 30)
25110  pack_tmp = ishft(pack_tmp, -30)
25111  idata = idata + 1
25112  data_tmp = full_data(idata)
25113  data_tmp = ishft(data_tmp, 30)
25114  data_tmp = iand(data_tmp, mask_left(30))
25115  pack_tmp = ior(pack_tmp, data_tmp)
25116  ipack = ipack + 1
25117  packed_data(ipack) = pack_tmp
25118  data_tmp = full_data(idata)
25119  pack_tmp = ishft(data_tmp, 60)
25120  pack_tmp = ishft(pack_tmp, -34)
25121  idata = idata + 1
25122  data_tmp = full_data(idata)
25123  data_tmp = ishft(data_tmp, 30)
25124  pack_tmp = ior(pack_tmp, data_tmp)
25125  pack_tmp = ishft(pack_tmp, -26)
25126  idata = idata + 1
25127  data_tmp = full_data(idata)
25128  data_tmp = ishft(data_tmp, 30)
25129  data_tmp = iand(data_tmp, mask_left(26))
25130  pack_tmp = ior(pack_tmp, data_tmp)
25131  ipack = ipack + 1
25132  packed_data(ipack) = pack_tmp
25133  data_tmp = full_data(idata)
25134  pack_tmp = ishft(data_tmp, 56)
25135  pack_tmp = ishft(pack_tmp, -34)
25136  idata = idata + 1
25137  data_tmp = full_data(idata)
25138  data_tmp = ishft(data_tmp, 30)
25139  pack_tmp = ior(pack_tmp, data_tmp)
25140  pack_tmp = ishft(pack_tmp, -22)
25141  idata = idata + 1
25142  data_tmp = full_data(idata)
25143  data_tmp = ishft(data_tmp, 30)
25144  data_tmp = iand(data_tmp, mask_left(22))
25145  pack_tmp = ior(pack_tmp, data_tmp)
25146  ipack = ipack + 1
25147  packed_data(ipack) = pack_tmp
25148  data_tmp = full_data(idata)
25149  pack_tmp = ishft(data_tmp, 52)
25150  pack_tmp = ishft(pack_tmp, -34)
25151  idata = idata + 1
25152  data_tmp = full_data(idata)
25153  data_tmp = ishft(data_tmp, 30)
25154  pack_tmp = ior(pack_tmp, data_tmp)
25155  pack_tmp = ishft(pack_tmp, -18)
25156  idata = idata + 1
25157  data_tmp = full_data(idata)
25158  data_tmp = ishft(data_tmp, 30)
25159  data_tmp = iand(data_tmp, mask_left(18))
25160  pack_tmp = ior(pack_tmp, data_tmp)
25161  ipack = ipack + 1
25162  packed_data(ipack) = pack_tmp
25163  data_tmp = full_data(idata)
25164  pack_tmp = ishft(data_tmp, 48)
25165  pack_tmp = ishft(pack_tmp, -34)
25166  idata = idata + 1
25167  data_tmp = full_data(idata)
25168  data_tmp = ishft(data_tmp, 30)
25169  pack_tmp = ior(pack_tmp, data_tmp)
25170  pack_tmp = ishft(pack_tmp, -14)
25171  idata = idata + 1
25172  data_tmp = full_data(idata)
25173  data_tmp = ishft(data_tmp, 30)
25174  data_tmp = iand(data_tmp, mask_left(14))
25175  pack_tmp = ior(pack_tmp, data_tmp)
25176  ipack = ipack + 1
25177  packed_data(ipack) = pack_tmp
25178  data_tmp = full_data(idata)
25179  pack_tmp = ishft(data_tmp, 44)
25180  pack_tmp = ishft(pack_tmp, -34)
25181  idata = idata + 1
25182  data_tmp = full_data(idata)
25183  data_tmp = ishft(data_tmp, 30)
25184  pack_tmp = ior(pack_tmp, data_tmp)
25185  pack_tmp = ishft(pack_tmp, -10)
25186  idata = idata + 1
25187  data_tmp = full_data(idata)
25188  data_tmp = ishft(data_tmp, 30)
25189  data_tmp = iand(data_tmp, mask_left(10))
25190  pack_tmp = ior(pack_tmp, data_tmp)
25191  ipack = ipack + 1
25192  packed_data(ipack) = pack_tmp
25193  data_tmp = full_data(idata)
25194  pack_tmp = ishft(data_tmp, 40)
25195  pack_tmp = ishft(pack_tmp, -34)
25196  idata = idata + 1
25197  data_tmp = full_data(idata)
25198  data_tmp = ishft(data_tmp, 30)
25199  pack_tmp = ior(pack_tmp, data_tmp)
25200  pack_tmp = ishft(pack_tmp, -6)
25201  idata = idata + 1
25202  data_tmp = full_data(idata)
25203  data_tmp = ishft(data_tmp, 30)
25204  data_tmp = iand(data_tmp, mask_left(6))
25205  pack_tmp = ior(pack_tmp, data_tmp)
25206  ipack = ipack + 1
25207  packed_data(ipack) = pack_tmp
25208  data_tmp = full_data(idata)
25209  pack_tmp = ishft(data_tmp, 36)
25210  pack_tmp = ishft(pack_tmp, -34)
25211  idata = idata + 1
25212  data_tmp = full_data(idata)
25213  data_tmp = ishft(data_tmp, 30)
25214  pack_tmp = ior(pack_tmp, data_tmp)
25215  pack_tmp = ishft(pack_tmp, -2)
25216  idata = idata + 1
25217  data_tmp = full_data(idata)
25218  data_tmp = ishft(data_tmp, 30)
25219  data_tmp = iand(data_tmp, mask_left(2))
25220  pack_tmp = ior(pack_tmp, data_tmp)
25221  ipack = ipack + 1
25222  packed_data(ipack) = pack_tmp
25223  data_tmp = full_data(idata)
25224  pack_tmp = ishft(data_tmp, 32)
25225  pack_tmp = ishft(pack_tmp, -32)
25226  idata = idata + 1
25227  data_tmp = full_data(idata)
25228  data_tmp = ishft(data_tmp, 30)
25229  data_tmp = iand(data_tmp, mask_left(32))
25230  pack_tmp = ior(pack_tmp, data_tmp)
25231  ipack = ipack + 1
25232  packed_data(ipack) = pack_tmp
25233  data_tmp = full_data(idata)
25234  pack_tmp = ishft(data_tmp, 62)
25235  pack_tmp = ishft(pack_tmp, -34)
25236  idata = idata + 1
25237  data_tmp = full_data(idata)
25238  data_tmp = ishft(data_tmp, 30)
25239  pack_tmp = ior(pack_tmp, data_tmp)
25240  pack_tmp = ishft(pack_tmp, -28)
25241  idata = idata + 1
25242  data_tmp = full_data(idata)
25243  data_tmp = ishft(data_tmp, 30)
25244  data_tmp = iand(data_tmp, mask_left(28))
25245  pack_tmp = ior(pack_tmp, data_tmp)
25246  ipack = ipack + 1
25247  packed_data(ipack) = pack_tmp
25248  data_tmp = full_data(idata)
25249  pack_tmp = ishft(data_tmp, 58)
25250  pack_tmp = ishft(pack_tmp, -34)
25251  idata = idata + 1
25252  data_tmp = full_data(idata)
25253  data_tmp = ishft(data_tmp, 30)
25254  pack_tmp = ior(pack_tmp, data_tmp)
25255  pack_tmp = ishft(pack_tmp, -24)
25256  idata = idata + 1
25257  data_tmp = full_data(idata)
25258  data_tmp = ishft(data_tmp, 30)
25259  data_tmp = iand(data_tmp, mask_left(24))
25260  pack_tmp = ior(pack_tmp, data_tmp)
25261  ipack = ipack + 1
25262  packed_data(ipack) = pack_tmp
25263  data_tmp = full_data(idata)
25264  pack_tmp = ishft(data_tmp, 54)
25265  pack_tmp = ishft(pack_tmp, -34)
25266  idata = idata + 1
25267  data_tmp = full_data(idata)
25268  data_tmp = ishft(data_tmp, 30)
25269  pack_tmp = ior(pack_tmp, data_tmp)
25270  pack_tmp = ishft(pack_tmp, -20)
25271  idata = idata + 1
25272  data_tmp = full_data(idata)
25273  data_tmp = ishft(data_tmp, 30)
25274  data_tmp = iand(data_tmp, mask_left(20))
25275  pack_tmp = ior(pack_tmp, data_tmp)
25276  ipack = ipack + 1
25277  packed_data(ipack) = pack_tmp
25278  data_tmp = full_data(idata)
25279  pack_tmp = ishft(data_tmp, 50)
25280  pack_tmp = ishft(pack_tmp, -34)
25281  idata = idata + 1
25282  data_tmp = full_data(idata)
25283  data_tmp = ishft(data_tmp, 30)
25284  pack_tmp = ior(pack_tmp, data_tmp)
25285  pack_tmp = ishft(pack_tmp, -16)
25286  idata = idata + 1
25287  data_tmp = full_data(idata)
25288  data_tmp = ishft(data_tmp, 30)
25289  data_tmp = iand(data_tmp, mask_left(16))
25290  pack_tmp = ior(pack_tmp, data_tmp)
25291  ipack = ipack + 1
25292  packed_data(ipack) = pack_tmp
25293  data_tmp = full_data(idata)
25294  pack_tmp = ishft(data_tmp, 46)
25295  pack_tmp = ishft(pack_tmp, -34)
25296  idata = idata + 1
25297  data_tmp = full_data(idata)
25298  data_tmp = ishft(data_tmp, 30)
25299  pack_tmp = ior(pack_tmp, data_tmp)
25300  pack_tmp = ishft(pack_tmp, -12)
25301  idata = idata + 1
25302  data_tmp = full_data(idata)
25303  data_tmp = ishft(data_tmp, 30)
25304  data_tmp = iand(data_tmp, mask_left(12))
25305  pack_tmp = ior(pack_tmp, data_tmp)
25306  ipack = ipack + 1
25307  packed_data(ipack) = pack_tmp
25308  data_tmp = full_data(idata)
25309  pack_tmp = ishft(data_tmp, 42)
25310  pack_tmp = ishft(pack_tmp, -34)
25311  idata = idata + 1
25312  data_tmp = full_data(idata)
25313  data_tmp = ishft(data_tmp, 30)
25314  pack_tmp = ior(pack_tmp, data_tmp)
25315  pack_tmp = ishft(pack_tmp, -8)
25316  idata = idata + 1
25317  data_tmp = full_data(idata)
25318  data_tmp = ishft(data_tmp, 30)
25319  data_tmp = iand(data_tmp, mask_left(8))
25320  pack_tmp = ior(pack_tmp, data_tmp)
25321  ipack = ipack + 1
25322  packed_data(ipack) = pack_tmp
25323  data_tmp = full_data(idata)
25324  pack_tmp = ishft(data_tmp, 38)
25325  pack_tmp = ishft(pack_tmp, -34)
25326  idata = idata + 1
25327  data_tmp = full_data(idata)
25328  data_tmp = ishft(data_tmp, 30)
25329  pack_tmp = ior(pack_tmp, data_tmp)
25330  pack_tmp = ishft(pack_tmp, -4)
25331  idata = idata + 1
25332  data_tmp = full_data(idata)
25333  data_tmp = ishft(data_tmp, 30)
25334  data_tmp = iand(data_tmp, mask_left(4))
25335  pack_tmp = ior(pack_tmp, data_tmp)
25336  ipack = ipack + 1
25337  packed_data(ipack) = pack_tmp
25338  data_tmp = full_data(idata)
25339  pack_tmp = ishft(data_tmp, 34)
25340  pack_tmp = ishft(pack_tmp, -34)
25341  idata = idata + 1
25342  data_tmp = full_data(idata)
25343  data_tmp = ishft(data_tmp, 30)
25344  pack_tmp = ior(pack_tmp, data_tmp)
25345  pack_tmp = ishft(pack_tmp, 0)
25346  pack_tmp = ishft(pack_tmp, 0)
25347  ipack = ipack + 1
25348  packed_data(ipack) = pack_tmp
25349  END DO
25350  IF (ndata_rep < ndata) THEN
25351  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
25352  END IF
25353  END SUBROUTINE ints2bits_34
25354 
25355 ! **************************************************************************************************
25356 !> \brief ...
25357 !> \param Ndata ...
25358 !> \param packed_data ...
25359 !> \param full_data ...
25360 ! **************************************************************************************************
25361  SUBROUTINE bits2ints_34(Ndata, packed_data, full_data)
25362  INTEGER, INTENT(IN) :: Ndata
25363  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
25364  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
25365 
25366  INTEGER, PARAMETER :: Nbits = 34
25367 
25368  INTEGER :: idata, ipack, kdata, Ndata_rep
25369  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
25370 
25371  ipack = 0
25372  idata = 0
25373  pack_tmp = 0
25374  ndata_rep = (ndata/64)*64
25375  DO kdata = 1, ndata_rep, 64
25376  idata = idata + 1
25377  data_tmp = ishft(pack_tmp, 34)
25378  ipack = ipack + 1
25379  pack_tmp = packed_data(ipack)
25380  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
25381  pack_tmp = ishft(pack_tmp, -34)
25382  idata = idata + 1
25383  data_tmp = ishft(pack_tmp, 4)
25384  ipack = ipack + 1
25385  pack_tmp = packed_data(ipack)
25386  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
25387  pack_tmp = ishft(pack_tmp, -4)
25388  idata = idata + 1
25389  data_tmp = iand(pack_tmp, mask_right(nbits))
25390  full_data(idata) = data_tmp
25391  pack_tmp = ishft(pack_tmp, -nbits)
25392  idata = idata + 1
25393  data_tmp = ishft(pack_tmp, 8)
25394  ipack = ipack + 1
25395  pack_tmp = packed_data(ipack)
25396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
25397  pack_tmp = ishft(pack_tmp, -8)
25398  idata = idata + 1
25399  data_tmp = iand(pack_tmp, mask_right(nbits))
25400  full_data(idata) = data_tmp
25401  pack_tmp = ishft(pack_tmp, -nbits)
25402  idata = idata + 1
25403  data_tmp = ishft(pack_tmp, 12)
25404  ipack = ipack + 1
25405  pack_tmp = packed_data(ipack)
25406  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
25407  pack_tmp = ishft(pack_tmp, -12)
25408  idata = idata + 1
25409  data_tmp = iand(pack_tmp, mask_right(nbits))
25410  full_data(idata) = data_tmp
25411  pack_tmp = ishft(pack_tmp, -nbits)
25412  idata = idata + 1
25413  data_tmp = ishft(pack_tmp, 16)
25414  ipack = ipack + 1
25415  pack_tmp = packed_data(ipack)
25416  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
25417  pack_tmp = ishft(pack_tmp, -16)
25418  idata = idata + 1
25419  data_tmp = iand(pack_tmp, mask_right(nbits))
25420  full_data(idata) = data_tmp
25421  pack_tmp = ishft(pack_tmp, -nbits)
25422  idata = idata + 1
25423  data_tmp = ishft(pack_tmp, 20)
25424  ipack = ipack + 1
25425  pack_tmp = packed_data(ipack)
25426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
25427  pack_tmp = ishft(pack_tmp, -20)
25428  idata = idata + 1
25429  data_tmp = iand(pack_tmp, mask_right(nbits))
25430  full_data(idata) = data_tmp
25431  pack_tmp = ishft(pack_tmp, -nbits)
25432  idata = idata + 1
25433  data_tmp = ishft(pack_tmp, 24)
25434  ipack = ipack + 1
25435  pack_tmp = packed_data(ipack)
25436  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
25437  pack_tmp = ishft(pack_tmp, -24)
25438  idata = idata + 1
25439  data_tmp = iand(pack_tmp, mask_right(nbits))
25440  full_data(idata) = data_tmp
25441  pack_tmp = ishft(pack_tmp, -nbits)
25442  idata = idata + 1
25443  data_tmp = ishft(pack_tmp, 28)
25444  ipack = ipack + 1
25445  pack_tmp = packed_data(ipack)
25446  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
25447  pack_tmp = ishft(pack_tmp, -28)
25448  idata = idata + 1
25449  data_tmp = iand(pack_tmp, mask_right(nbits))
25450  full_data(idata) = data_tmp
25451  pack_tmp = ishft(pack_tmp, -nbits)
25452  idata = idata + 1
25453  data_tmp = ishft(pack_tmp, 32)
25454  ipack = ipack + 1
25455  pack_tmp = packed_data(ipack)
25456  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
25457  pack_tmp = ishft(pack_tmp, -32)
25458  idata = idata + 1
25459  data_tmp = ishft(pack_tmp, 2)
25460  ipack = ipack + 1
25461  pack_tmp = packed_data(ipack)
25462  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
25463  pack_tmp = ishft(pack_tmp, -2)
25464  idata = idata + 1
25465  data_tmp = iand(pack_tmp, mask_right(nbits))
25466  full_data(idata) = data_tmp
25467  pack_tmp = ishft(pack_tmp, -nbits)
25468  idata = idata + 1
25469  data_tmp = ishft(pack_tmp, 6)
25470  ipack = ipack + 1
25471  pack_tmp = packed_data(ipack)
25472  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
25473  pack_tmp = ishft(pack_tmp, -6)
25474  idata = idata + 1
25475  data_tmp = iand(pack_tmp, mask_right(nbits))
25476  full_data(idata) = data_tmp
25477  pack_tmp = ishft(pack_tmp, -nbits)
25478  idata = idata + 1
25479  data_tmp = ishft(pack_tmp, 10)
25480  ipack = ipack + 1
25481  pack_tmp = packed_data(ipack)
25482  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
25483  pack_tmp = ishft(pack_tmp, -10)
25484  idata = idata + 1
25485  data_tmp = iand(pack_tmp, mask_right(nbits))
25486  full_data(idata) = data_tmp
25487  pack_tmp = ishft(pack_tmp, -nbits)
25488  idata = idata + 1
25489  data_tmp = ishft(pack_tmp, 14)
25490  ipack = ipack + 1
25491  pack_tmp = packed_data(ipack)
25492  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
25493  pack_tmp = ishft(pack_tmp, -14)
25494  idata = idata + 1
25495  data_tmp = iand(pack_tmp, mask_right(nbits))
25496  full_data(idata) = data_tmp
25497  pack_tmp = ishft(pack_tmp, -nbits)
25498  idata = idata + 1
25499  data_tmp = ishft(pack_tmp, 18)
25500  ipack = ipack + 1
25501  pack_tmp = packed_data(ipack)
25502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
25503  pack_tmp = ishft(pack_tmp, -18)
25504  idata = idata + 1
25505  data_tmp = iand(pack_tmp, mask_right(nbits))
25506  full_data(idata) = data_tmp
25507  pack_tmp = ishft(pack_tmp, -nbits)
25508  idata = idata + 1
25509  data_tmp = ishft(pack_tmp, 22)
25510  ipack = ipack + 1
25511  pack_tmp = packed_data(ipack)
25512  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
25513  pack_tmp = ishft(pack_tmp, -22)
25514  idata = idata + 1
25515  data_tmp = iand(pack_tmp, mask_right(nbits))
25516  full_data(idata) = data_tmp
25517  pack_tmp = ishft(pack_tmp, -nbits)
25518  idata = idata + 1
25519  data_tmp = ishft(pack_tmp, 26)
25520  ipack = ipack + 1
25521  pack_tmp = packed_data(ipack)
25522  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
25523  pack_tmp = ishft(pack_tmp, -26)
25524  idata = idata + 1
25525  data_tmp = iand(pack_tmp, mask_right(nbits))
25526  full_data(idata) = data_tmp
25527  pack_tmp = ishft(pack_tmp, -nbits)
25528  idata = idata + 1
25529  data_tmp = ishft(pack_tmp, 30)
25530  ipack = ipack + 1
25531  pack_tmp = packed_data(ipack)
25532  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
25533  pack_tmp = ishft(pack_tmp, -30)
25534  idata = idata + 1
25535  data_tmp = iand(pack_tmp, mask_right(nbits))
25536  full_data(idata) = data_tmp
25537  pack_tmp = ishft(pack_tmp, -nbits)
25538  idata = idata + 1
25539  data_tmp = ishft(pack_tmp, 34)
25540  ipack = ipack + 1
25541  pack_tmp = packed_data(ipack)
25542  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
25543  pack_tmp = ishft(pack_tmp, -34)
25544  idata = idata + 1
25545  data_tmp = ishft(pack_tmp, 4)
25546  ipack = ipack + 1
25547  pack_tmp = packed_data(ipack)
25548  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
25549  pack_tmp = ishft(pack_tmp, -4)
25550  idata = idata + 1
25551  data_tmp = iand(pack_tmp, mask_right(nbits))
25552  full_data(idata) = data_tmp
25553  pack_tmp = ishft(pack_tmp, -nbits)
25554  idata = idata + 1
25555  data_tmp = ishft(pack_tmp, 8)
25556  ipack = ipack + 1
25557  pack_tmp = packed_data(ipack)
25558  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
25559  pack_tmp = ishft(pack_tmp, -8)
25560  idata = idata + 1
25561  data_tmp = iand(pack_tmp, mask_right(nbits))
25562  full_data(idata) = data_tmp
25563  pack_tmp = ishft(pack_tmp, -nbits)
25564  idata = idata + 1
25565  data_tmp = ishft(pack_tmp, 12)
25566  ipack = ipack + 1
25567  pack_tmp = packed_data(ipack)
25568  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
25569  pack_tmp = ishft(pack_tmp, -12)
25570  idata = idata + 1
25571  data_tmp = iand(pack_tmp, mask_right(nbits))
25572  full_data(idata) = data_tmp
25573  pack_tmp = ishft(pack_tmp, -nbits)
25574  idata = idata + 1
25575  data_tmp = ishft(pack_tmp, 16)
25576  ipack = ipack + 1
25577  pack_tmp = packed_data(ipack)
25578  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
25579  pack_tmp = ishft(pack_tmp, -16)
25580  idata = idata + 1
25581  data_tmp = iand(pack_tmp, mask_right(nbits))
25582  full_data(idata) = data_tmp
25583  pack_tmp = ishft(pack_tmp, -nbits)
25584  idata = idata + 1
25585  data_tmp = ishft(pack_tmp, 20)
25586  ipack = ipack + 1
25587  pack_tmp = packed_data(ipack)
25588  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
25589  pack_tmp = ishft(pack_tmp, -20)
25590  idata = idata + 1
25591  data_tmp = iand(pack_tmp, mask_right(nbits))
25592  full_data(idata) = data_tmp
25593  pack_tmp = ishft(pack_tmp, -nbits)
25594  idata = idata + 1
25595  data_tmp = ishft(pack_tmp, 24)
25596  ipack = ipack + 1
25597  pack_tmp = packed_data(ipack)
25598  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
25599  pack_tmp = ishft(pack_tmp, -24)
25600  idata = idata + 1
25601  data_tmp = iand(pack_tmp, mask_right(nbits))
25602  full_data(idata) = data_tmp
25603  pack_tmp = ishft(pack_tmp, -nbits)
25604  idata = idata + 1
25605  data_tmp = ishft(pack_tmp, 28)
25606  ipack = ipack + 1
25607  pack_tmp = packed_data(ipack)
25608  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
25609  pack_tmp = ishft(pack_tmp, -28)
25610  idata = idata + 1
25611  data_tmp = iand(pack_tmp, mask_right(nbits))
25612  full_data(idata) = data_tmp
25613  pack_tmp = ishft(pack_tmp, -nbits)
25614  idata = idata + 1
25615  data_tmp = ishft(pack_tmp, 32)
25616  ipack = ipack + 1
25617  pack_tmp = packed_data(ipack)
25618  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
25619  pack_tmp = ishft(pack_tmp, -32)
25620  idata = idata + 1
25621  data_tmp = ishft(pack_tmp, 2)
25622  ipack = ipack + 1
25623  pack_tmp = packed_data(ipack)
25624  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
25625  pack_tmp = ishft(pack_tmp, -2)
25626  idata = idata + 1
25627  data_tmp = iand(pack_tmp, mask_right(nbits))
25628  full_data(idata) = data_tmp
25629  pack_tmp = ishft(pack_tmp, -nbits)
25630  idata = idata + 1
25631  data_tmp = ishft(pack_tmp, 6)
25632  ipack = ipack + 1
25633  pack_tmp = packed_data(ipack)
25634  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
25635  pack_tmp = ishft(pack_tmp, -6)
25636  idata = idata + 1
25637  data_tmp = iand(pack_tmp, mask_right(nbits))
25638  full_data(idata) = data_tmp
25639  pack_tmp = ishft(pack_tmp, -nbits)
25640  idata = idata + 1
25641  data_tmp = ishft(pack_tmp, 10)
25642  ipack = ipack + 1
25643  pack_tmp = packed_data(ipack)
25644  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
25645  pack_tmp = ishft(pack_tmp, -10)
25646  idata = idata + 1
25647  data_tmp = iand(pack_tmp, mask_right(nbits))
25648  full_data(idata) = data_tmp
25649  pack_tmp = ishft(pack_tmp, -nbits)
25650  idata = idata + 1
25651  data_tmp = ishft(pack_tmp, 14)
25652  ipack = ipack + 1
25653  pack_tmp = packed_data(ipack)
25654  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
25655  pack_tmp = ishft(pack_tmp, -14)
25656  idata = idata + 1
25657  data_tmp = iand(pack_tmp, mask_right(nbits))
25658  full_data(idata) = data_tmp
25659  pack_tmp = ishft(pack_tmp, -nbits)
25660  idata = idata + 1
25661  data_tmp = ishft(pack_tmp, 18)
25662  ipack = ipack + 1
25663  pack_tmp = packed_data(ipack)
25664  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
25665  pack_tmp = ishft(pack_tmp, -18)
25666  idata = idata + 1
25667  data_tmp = iand(pack_tmp, mask_right(nbits))
25668  full_data(idata) = data_tmp
25669  pack_tmp = ishft(pack_tmp, -nbits)
25670  idata = idata + 1
25671  data_tmp = ishft(pack_tmp, 22)
25672  ipack = ipack + 1
25673  pack_tmp = packed_data(ipack)
25674  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
25675  pack_tmp = ishft(pack_tmp, -22)
25676  idata = idata + 1
25677  data_tmp = iand(pack_tmp, mask_right(nbits))
25678  full_data(idata) = data_tmp
25679  pack_tmp = ishft(pack_tmp, -nbits)
25680  idata = idata + 1
25681  data_tmp = ishft(pack_tmp, 26)
25682  ipack = ipack + 1
25683  pack_tmp = packed_data(ipack)
25684  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
25685  pack_tmp = ishft(pack_tmp, -26)
25686  idata = idata + 1
25687  data_tmp = iand(pack_tmp, mask_right(nbits))
25688  full_data(idata) = data_tmp
25689  pack_tmp = ishft(pack_tmp, -nbits)
25690  idata = idata + 1
25691  data_tmp = ishft(pack_tmp, 30)
25692  ipack = ipack + 1
25693  pack_tmp = packed_data(ipack)
25694  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
25695  pack_tmp = ishft(pack_tmp, -30)
25696  idata = idata + 1
25697  data_tmp = iand(pack_tmp, mask_right(nbits))
25698  full_data(idata) = data_tmp
25699  pack_tmp = ishft(pack_tmp, -nbits)
25700  END DO
25701  IF (ndata_rep < ndata) THEN
25702  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
25703  END IF
25704  END SUBROUTINE bits2ints_34
25705 
25706 ! **************************************************************************************************
25707 !> \brief ...
25708 !> \param Ndata ...
25709 !> \param packed_data ...
25710 !> \param full_data ...
25711 ! **************************************************************************************************
25712  SUBROUTINE ints2bits_35(Ndata, packed_data, full_data)
25713  INTEGER, INTENT(IN) :: Ndata
25714  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
25715  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
25716 
25717  INTEGER, PARAMETER :: Nbits = 35
25718 
25719  INTEGER :: idata, ipack, kdata, Ndata_rep
25720  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
25721 
25722  idata = 0
25723  ipack = 0
25724  ndata_rep = (ndata/64)*64
25725  DO kdata = 1, ndata_rep, 64
25726  pack_tmp = 0
25727  idata = idata + 1
25728  data_tmp = full_data(idata)
25729  data_tmp = ishft(data_tmp, 29)
25730  pack_tmp = ior(pack_tmp, data_tmp)
25731  pack_tmp = ishft(pack_tmp, -29)
25732  idata = idata + 1
25733  data_tmp = full_data(idata)
25734  data_tmp = ishft(data_tmp, 29)
25735  data_tmp = iand(data_tmp, mask_left(29))
25736  pack_tmp = ior(pack_tmp, data_tmp)
25737  ipack = ipack + 1
25738  packed_data(ipack) = pack_tmp
25739  data_tmp = full_data(idata)
25740  pack_tmp = ishft(data_tmp, 58)
25741  pack_tmp = ishft(pack_tmp, -35)
25742  idata = idata + 1
25743  data_tmp = full_data(idata)
25744  data_tmp = ishft(data_tmp, 29)
25745  pack_tmp = ior(pack_tmp, data_tmp)
25746  pack_tmp = ishft(pack_tmp, -23)
25747  idata = idata + 1
25748  data_tmp = full_data(idata)
25749  data_tmp = ishft(data_tmp, 29)
25750  data_tmp = iand(data_tmp, mask_left(23))
25751  pack_tmp = ior(pack_tmp, data_tmp)
25752  ipack = ipack + 1
25753  packed_data(ipack) = pack_tmp
25754  data_tmp = full_data(idata)
25755  pack_tmp = ishft(data_tmp, 52)
25756  pack_tmp = ishft(pack_tmp, -35)
25757  idata = idata + 1
25758  data_tmp = full_data(idata)
25759  data_tmp = ishft(data_tmp, 29)
25760  pack_tmp = ior(pack_tmp, data_tmp)
25761  pack_tmp = ishft(pack_tmp, -17)
25762  idata = idata + 1
25763  data_tmp = full_data(idata)
25764  data_tmp = ishft(data_tmp, 29)
25765  data_tmp = iand(data_tmp, mask_left(17))
25766  pack_tmp = ior(pack_tmp, data_tmp)
25767  ipack = ipack + 1
25768  packed_data(ipack) = pack_tmp
25769  data_tmp = full_data(idata)
25770  pack_tmp = ishft(data_tmp, 46)
25771  pack_tmp = ishft(pack_tmp, -35)
25772  idata = idata + 1
25773  data_tmp = full_data(idata)
25774  data_tmp = ishft(data_tmp, 29)
25775  pack_tmp = ior(pack_tmp, data_tmp)
25776  pack_tmp = ishft(pack_tmp, -11)
25777  idata = idata + 1
25778  data_tmp = full_data(idata)
25779  data_tmp = ishft(data_tmp, 29)
25780  data_tmp = iand(data_tmp, mask_left(11))
25781  pack_tmp = ior(pack_tmp, data_tmp)
25782  ipack = ipack + 1
25783  packed_data(ipack) = pack_tmp
25784  data_tmp = full_data(idata)
25785  pack_tmp = ishft(data_tmp, 40)
25786  pack_tmp = ishft(pack_tmp, -35)
25787  idata = idata + 1
25788  data_tmp = full_data(idata)
25789  data_tmp = ishft(data_tmp, 29)
25790  pack_tmp = ior(pack_tmp, data_tmp)
25791  pack_tmp = ishft(pack_tmp, -5)
25792  idata = idata + 1
25793  data_tmp = full_data(idata)
25794  data_tmp = ishft(data_tmp, 29)
25795  data_tmp = iand(data_tmp, mask_left(5))
25796  pack_tmp = ior(pack_tmp, data_tmp)
25797  ipack = ipack + 1
25798  packed_data(ipack) = pack_tmp
25799  data_tmp = full_data(idata)
25800  pack_tmp = ishft(data_tmp, 34)
25801  pack_tmp = ishft(pack_tmp, -34)
25802  idata = idata + 1
25803  data_tmp = full_data(idata)
25804  data_tmp = ishft(data_tmp, 29)
25805  data_tmp = iand(data_tmp, mask_left(34))
25806  pack_tmp = ior(pack_tmp, data_tmp)
25807  ipack = ipack + 1
25808  packed_data(ipack) = pack_tmp
25809  data_tmp = full_data(idata)
25810  pack_tmp = ishft(data_tmp, 63)
25811  pack_tmp = ishft(pack_tmp, -35)
25812  idata = idata + 1
25813  data_tmp = full_data(idata)
25814  data_tmp = ishft(data_tmp, 29)
25815  pack_tmp = ior(pack_tmp, data_tmp)
25816  pack_tmp = ishft(pack_tmp, -28)
25817  idata = idata + 1
25818  data_tmp = full_data(idata)
25819  data_tmp = ishft(data_tmp, 29)
25820  data_tmp = iand(data_tmp, mask_left(28))
25821  pack_tmp = ior(pack_tmp, data_tmp)
25822  ipack = ipack + 1
25823  packed_data(ipack) = pack_tmp
25824  data_tmp = full_data(idata)
25825  pack_tmp = ishft(data_tmp, 57)
25826  pack_tmp = ishft(pack_tmp, -35)
25827  idata = idata + 1
25828  data_tmp = full_data(idata)
25829  data_tmp = ishft(data_tmp, 29)
25830  pack_tmp = ior(pack_tmp, data_tmp)
25831  pack_tmp = ishft(pack_tmp, -22)
25832  idata = idata + 1
25833  data_tmp = full_data(idata)
25834  data_tmp = ishft(data_tmp, 29)
25835  data_tmp = iand(data_tmp, mask_left(22))
25836  pack_tmp = ior(pack_tmp, data_tmp)
25837  ipack = ipack + 1
25838  packed_data(ipack) = pack_tmp
25839  data_tmp = full_data(idata)
25840  pack_tmp = ishft(data_tmp, 51)
25841  pack_tmp = ishft(pack_tmp, -35)
25842  idata = idata + 1
25843  data_tmp = full_data(idata)
25844  data_tmp = ishft(data_tmp, 29)
25845  pack_tmp = ior(pack_tmp, data_tmp)
25846  pack_tmp = ishft(pack_tmp, -16)
25847  idata = idata + 1
25848  data_tmp = full_data(idata)
25849  data_tmp = ishft(data_tmp, 29)
25850  data_tmp = iand(data_tmp, mask_left(16))
25851  pack_tmp = ior(pack_tmp, data_tmp)
25852  ipack = ipack + 1
25853  packed_data(ipack) = pack_tmp
25854  data_tmp = full_data(idata)
25855  pack_tmp = ishft(data_tmp, 45)
25856  pack_tmp = ishft(pack_tmp, -35)
25857  idata = idata + 1
25858  data_tmp = full_data(idata)
25859  data_tmp = ishft(data_tmp, 29)
25860  pack_tmp = ior(pack_tmp, data_tmp)
25861  pack_tmp = ishft(pack_tmp, -10)
25862  idata = idata + 1
25863  data_tmp = full_data(idata)
25864  data_tmp = ishft(data_tmp, 29)
25865  data_tmp = iand(data_tmp, mask_left(10))
25866  pack_tmp = ior(pack_tmp, data_tmp)
25867  ipack = ipack + 1
25868  packed_data(ipack) = pack_tmp
25869  data_tmp = full_data(idata)
25870  pack_tmp = ishft(data_tmp, 39)
25871  pack_tmp = ishft(pack_tmp, -35)
25872  idata = idata + 1
25873  data_tmp = full_data(idata)
25874  data_tmp = ishft(data_tmp, 29)
25875  pack_tmp = ior(pack_tmp, data_tmp)
25876  pack_tmp = ishft(pack_tmp, -4)
25877  idata = idata + 1
25878  data_tmp = full_data(idata)
25879  data_tmp = ishft(data_tmp, 29)
25880  data_tmp = iand(data_tmp, mask_left(4))
25881  pack_tmp = ior(pack_tmp, data_tmp)
25882  ipack = ipack + 1
25883  packed_data(ipack) = pack_tmp
25884  data_tmp = full_data(idata)
25885  pack_tmp = ishft(data_tmp, 33)
25886  pack_tmp = ishft(pack_tmp, -33)
25887  idata = idata + 1
25888  data_tmp = full_data(idata)
25889  data_tmp = ishft(data_tmp, 29)
25890  data_tmp = iand(data_tmp, mask_left(33))
25891  pack_tmp = ior(pack_tmp, data_tmp)
25892  ipack = ipack + 1
25893  packed_data(ipack) = pack_tmp
25894  data_tmp = full_data(idata)
25895  pack_tmp = ishft(data_tmp, 62)
25896  pack_tmp = ishft(pack_tmp, -35)
25897  idata = idata + 1
25898  data_tmp = full_data(idata)
25899  data_tmp = ishft(data_tmp, 29)
25900  pack_tmp = ior(pack_tmp, data_tmp)
25901  pack_tmp = ishft(pack_tmp, -27)
25902  idata = idata + 1
25903  data_tmp = full_data(idata)
25904  data_tmp = ishft(data_tmp, 29)
25905  data_tmp = iand(data_tmp, mask_left(27))
25906  pack_tmp = ior(pack_tmp, data_tmp)
25907  ipack = ipack + 1
25908  packed_data(ipack) = pack_tmp
25909  data_tmp = full_data(idata)
25910  pack_tmp = ishft(data_tmp, 56)
25911  pack_tmp = ishft(pack_tmp, -35)
25912  idata = idata + 1
25913  data_tmp = full_data(idata)
25914  data_tmp = ishft(data_tmp, 29)
25915  pack_tmp = ior(pack_tmp, data_tmp)
25916  pack_tmp = ishft(pack_tmp, -21)
25917  idata = idata + 1
25918  data_tmp = full_data(idata)
25919  data_tmp = ishft(data_tmp, 29)
25920  data_tmp = iand(data_tmp, mask_left(21))
25921  pack_tmp = ior(pack_tmp, data_tmp)
25922  ipack = ipack + 1
25923  packed_data(ipack) = pack_tmp
25924  data_tmp = full_data(idata)
25925  pack_tmp = ishft(data_tmp, 50)
25926  pack_tmp = ishft(pack_tmp, -35)
25927  idata = idata + 1
25928  data_tmp = full_data(idata)
25929  data_tmp = ishft(data_tmp, 29)
25930  pack_tmp = ior(pack_tmp, data_tmp)
25931  pack_tmp = ishft(pack_tmp, -15)
25932  idata = idata + 1
25933  data_tmp = full_data(idata)
25934  data_tmp = ishft(data_tmp, 29)
25935  data_tmp = iand(data_tmp, mask_left(15))
25936  pack_tmp = ior(pack_tmp, data_tmp)
25937  ipack = ipack + 1
25938  packed_data(ipack) = pack_tmp
25939  data_tmp = full_data(idata)
25940  pack_tmp = ishft(data_tmp, 44)
25941  pack_tmp = ishft(pack_tmp, -35)
25942  idata = idata + 1
25943  data_tmp = full_data(idata)
25944  data_tmp = ishft(data_tmp, 29)
25945  pack_tmp = ior(pack_tmp, data_tmp)
25946  pack_tmp = ishft(pack_tmp, -9)
25947  idata = idata + 1
25948  data_tmp = full_data(idata)
25949  data_tmp = ishft(data_tmp, 29)
25950  data_tmp = iand(data_tmp, mask_left(9))
25951  pack_tmp = ior(pack_tmp, data_tmp)
25952  ipack = ipack + 1
25953  packed_data(ipack) = pack_tmp
25954  data_tmp = full_data(idata)
25955  pack_tmp = ishft(data_tmp, 38)
25956  pack_tmp = ishft(pack_tmp, -35)
25957  idata = idata + 1
25958  data_tmp = full_data(idata)
25959  data_tmp = ishft(data_tmp, 29)
25960  pack_tmp = ior(pack_tmp, data_tmp)
25961  pack_tmp = ishft(pack_tmp, -3)
25962  idata = idata + 1
25963  data_tmp = full_data(idata)
25964  data_tmp = ishft(data_tmp, 29)
25965  data_tmp = iand(data_tmp, mask_left(3))
25966  pack_tmp = ior(pack_tmp, data_tmp)
25967  ipack = ipack + 1
25968  packed_data(ipack) = pack_tmp
25969  data_tmp = full_data(idata)
25970  pack_tmp = ishft(data_tmp, 32)
25971  pack_tmp = ishft(pack_tmp, -32)
25972  idata = idata + 1
25973  data_tmp = full_data(idata)
25974  data_tmp = ishft(data_tmp, 29)
25975  data_tmp = iand(data_tmp, mask_left(32))
25976  pack_tmp = ior(pack_tmp, data_tmp)
25977  ipack = ipack + 1
25978  packed_data(ipack) = pack_tmp
25979  data_tmp = full_data(idata)
25980  pack_tmp = ishft(data_tmp, 61)
25981  pack_tmp = ishft(pack_tmp, -35)
25982  idata = idata + 1
25983  data_tmp = full_data(idata)
25984  data_tmp = ishft(data_tmp, 29)
25985  pack_tmp = ior(pack_tmp, data_tmp)
25986  pack_tmp = ishft(pack_tmp, -26)
25987  idata = idata + 1
25988  data_tmp = full_data(idata)
25989  data_tmp = ishft(data_tmp, 29)
25990  data_tmp = iand(data_tmp, mask_left(26))
25991  pack_tmp = ior(pack_tmp, data_tmp)
25992  ipack = ipack + 1
25993  packed_data(ipack) = pack_tmp
25994  data_tmp = full_data(idata)
25995  pack_tmp = ishft(data_tmp, 55)
25996  pack_tmp = ishft(pack_tmp, -35)
25997  idata = idata + 1
25998  data_tmp = full_data(idata)
25999  data_tmp = ishft(data_tmp, 29)
26000  pack_tmp = ior(pack_tmp, data_tmp)
26001  pack_tmp = ishft(pack_tmp, -20)
26002  idata = idata + 1
26003  data_tmp = full_data(idata)
26004  data_tmp = ishft(data_tmp, 29)
26005  data_tmp = iand(data_tmp, mask_left(20))
26006  pack_tmp = ior(pack_tmp, data_tmp)
26007  ipack = ipack + 1
26008  packed_data(ipack) = pack_tmp
26009  data_tmp = full_data(idata)
26010  pack_tmp = ishft(data_tmp, 49)
26011  pack_tmp = ishft(pack_tmp, -35)
26012  idata = idata + 1
26013  data_tmp = full_data(idata)
26014  data_tmp = ishft(data_tmp, 29)
26015  pack_tmp = ior(pack_tmp, data_tmp)
26016  pack_tmp = ishft(pack_tmp, -14)
26017  idata = idata + 1
26018  data_tmp = full_data(idata)
26019  data_tmp = ishft(data_tmp, 29)
26020  data_tmp = iand(data_tmp, mask_left(14))
26021  pack_tmp = ior(pack_tmp, data_tmp)
26022  ipack = ipack + 1
26023  packed_data(ipack) = pack_tmp
26024  data_tmp = full_data(idata)
26025  pack_tmp = ishft(data_tmp, 43)
26026  pack_tmp = ishft(pack_tmp, -35)
26027  idata = idata + 1
26028  data_tmp = full_data(idata)
26029  data_tmp = ishft(data_tmp, 29)
26030  pack_tmp = ior(pack_tmp, data_tmp)
26031  pack_tmp = ishft(pack_tmp, -8)
26032  idata = idata + 1
26033  data_tmp = full_data(idata)
26034  data_tmp = ishft(data_tmp, 29)
26035  data_tmp = iand(data_tmp, mask_left(8))
26036  pack_tmp = ior(pack_tmp, data_tmp)
26037  ipack = ipack + 1
26038  packed_data(ipack) = pack_tmp
26039  data_tmp = full_data(idata)
26040  pack_tmp = ishft(data_tmp, 37)
26041  pack_tmp = ishft(pack_tmp, -35)
26042  idata = idata + 1
26043  data_tmp = full_data(idata)
26044  data_tmp = ishft(data_tmp, 29)
26045  pack_tmp = ior(pack_tmp, data_tmp)
26046  pack_tmp = ishft(pack_tmp, -2)
26047  idata = idata + 1
26048  data_tmp = full_data(idata)
26049  data_tmp = ishft(data_tmp, 29)
26050  data_tmp = iand(data_tmp, mask_left(2))
26051  pack_tmp = ior(pack_tmp, data_tmp)
26052  ipack = ipack + 1
26053  packed_data(ipack) = pack_tmp
26054  data_tmp = full_data(idata)
26055  pack_tmp = ishft(data_tmp, 31)
26056  pack_tmp = ishft(pack_tmp, -31)
26057  idata = idata + 1
26058  data_tmp = full_data(idata)
26059  data_tmp = ishft(data_tmp, 29)
26060  data_tmp = iand(data_tmp, mask_left(31))
26061  pack_tmp = ior(pack_tmp, data_tmp)
26062  ipack = ipack + 1
26063  packed_data(ipack) = pack_tmp
26064  data_tmp = full_data(idata)
26065  pack_tmp = ishft(data_tmp, 60)
26066  pack_tmp = ishft(pack_tmp, -35)
26067  idata = idata + 1
26068  data_tmp = full_data(idata)
26069  data_tmp = ishft(data_tmp, 29)
26070  pack_tmp = ior(pack_tmp, data_tmp)
26071  pack_tmp = ishft(pack_tmp, -25)
26072  idata = idata + 1
26073  data_tmp = full_data(idata)
26074  data_tmp = ishft(data_tmp, 29)
26075  data_tmp = iand(data_tmp, mask_left(25))
26076  pack_tmp = ior(pack_tmp, data_tmp)
26077  ipack = ipack + 1
26078  packed_data(ipack) = pack_tmp
26079  data_tmp = full_data(idata)
26080  pack_tmp = ishft(data_tmp, 54)
26081  pack_tmp = ishft(pack_tmp, -35)
26082  idata = idata + 1
26083  data_tmp = full_data(idata)
26084  data_tmp = ishft(data_tmp, 29)
26085  pack_tmp = ior(pack_tmp, data_tmp)
26086  pack_tmp = ishft(pack_tmp, -19)
26087  idata = idata + 1
26088  data_tmp = full_data(idata)
26089  data_tmp = ishft(data_tmp, 29)
26090  data_tmp = iand(data_tmp, mask_left(19))
26091  pack_tmp = ior(pack_tmp, data_tmp)
26092  ipack = ipack + 1
26093  packed_data(ipack) = pack_tmp
26094  data_tmp = full_data(idata)
26095  pack_tmp = ishft(data_tmp, 48)
26096  pack_tmp = ishft(pack_tmp, -35)
26097  idata = idata + 1
26098  data_tmp = full_data(idata)
26099  data_tmp = ishft(data_tmp, 29)
26100  pack_tmp = ior(pack_tmp, data_tmp)
26101  pack_tmp = ishft(pack_tmp, -13)
26102  idata = idata + 1
26103  data_tmp = full_data(idata)
26104  data_tmp = ishft(data_tmp, 29)
26105  data_tmp = iand(data_tmp, mask_left(13))
26106  pack_tmp = ior(pack_tmp, data_tmp)
26107  ipack = ipack + 1
26108  packed_data(ipack) = pack_tmp
26109  data_tmp = full_data(idata)
26110  pack_tmp = ishft(data_tmp, 42)
26111  pack_tmp = ishft(pack_tmp, -35)
26112  idata = idata + 1
26113  data_tmp = full_data(idata)
26114  data_tmp = ishft(data_tmp, 29)
26115  pack_tmp = ior(pack_tmp, data_tmp)
26116  pack_tmp = ishft(pack_tmp, -7)
26117  idata = idata + 1
26118  data_tmp = full_data(idata)
26119  data_tmp = ishft(data_tmp, 29)
26120  data_tmp = iand(data_tmp, mask_left(7))
26121  pack_tmp = ior(pack_tmp, data_tmp)
26122  ipack = ipack + 1
26123  packed_data(ipack) = pack_tmp
26124  data_tmp = full_data(idata)
26125  pack_tmp = ishft(data_tmp, 36)
26126  pack_tmp = ishft(pack_tmp, -35)
26127  idata = idata + 1
26128  data_tmp = full_data(idata)
26129  data_tmp = ishft(data_tmp, 29)
26130  pack_tmp = ior(pack_tmp, data_tmp)
26131  pack_tmp = ishft(pack_tmp, -1)
26132  idata = idata + 1
26133  data_tmp = full_data(idata)
26134  data_tmp = ishft(data_tmp, 29)
26135  data_tmp = iand(data_tmp, mask_left(1))
26136  pack_tmp = ior(pack_tmp, data_tmp)
26137  ipack = ipack + 1
26138  packed_data(ipack) = pack_tmp
26139  data_tmp = full_data(idata)
26140  pack_tmp = ishft(data_tmp, 30)
26141  pack_tmp = ishft(pack_tmp, -30)
26142  idata = idata + 1
26143  data_tmp = full_data(idata)
26144  data_tmp = ishft(data_tmp, 29)
26145  data_tmp = iand(data_tmp, mask_left(30))
26146  pack_tmp = ior(pack_tmp, data_tmp)
26147  ipack = ipack + 1
26148  packed_data(ipack) = pack_tmp
26149  data_tmp = full_data(idata)
26150  pack_tmp = ishft(data_tmp, 59)
26151  pack_tmp = ishft(pack_tmp, -35)
26152  idata = idata + 1
26153  data_tmp = full_data(idata)
26154  data_tmp = ishft(data_tmp, 29)
26155  pack_tmp = ior(pack_tmp, data_tmp)
26156  pack_tmp = ishft(pack_tmp, -24)
26157  idata = idata + 1
26158  data_tmp = full_data(idata)
26159  data_tmp = ishft(data_tmp, 29)
26160  data_tmp = iand(data_tmp, mask_left(24))
26161  pack_tmp = ior(pack_tmp, data_tmp)
26162  ipack = ipack + 1
26163  packed_data(ipack) = pack_tmp
26164  data_tmp = full_data(idata)
26165  pack_tmp = ishft(data_tmp, 53)
26166  pack_tmp = ishft(pack_tmp, -35)
26167  idata = idata + 1
26168  data_tmp = full_data(idata)
26169  data_tmp = ishft(data_tmp, 29)
26170  pack_tmp = ior(pack_tmp, data_tmp)
26171  pack_tmp = ishft(pack_tmp, -18)
26172  idata = idata + 1
26173  data_tmp = full_data(idata)
26174  data_tmp = ishft(data_tmp, 29)
26175  data_tmp = iand(data_tmp, mask_left(18))
26176  pack_tmp = ior(pack_tmp, data_tmp)
26177  ipack = ipack + 1
26178  packed_data(ipack) = pack_tmp
26179  data_tmp = full_data(idata)
26180  pack_tmp = ishft(data_tmp, 47)
26181  pack_tmp = ishft(pack_tmp, -35)
26182  idata = idata + 1
26183  data_tmp = full_data(idata)
26184  data_tmp = ishft(data_tmp, 29)
26185  pack_tmp = ior(pack_tmp, data_tmp)
26186  pack_tmp = ishft(pack_tmp, -12)
26187  idata = idata + 1
26188  data_tmp = full_data(idata)
26189  data_tmp = ishft(data_tmp, 29)
26190  data_tmp = iand(data_tmp, mask_left(12))
26191  pack_tmp = ior(pack_tmp, data_tmp)
26192  ipack = ipack + 1
26193  packed_data(ipack) = pack_tmp
26194  data_tmp = full_data(idata)
26195  pack_tmp = ishft(data_tmp, 41)
26196  pack_tmp = ishft(pack_tmp, -35)
26197  idata = idata + 1
26198  data_tmp = full_data(idata)
26199  data_tmp = ishft(data_tmp, 29)
26200  pack_tmp = ior(pack_tmp, data_tmp)
26201  pack_tmp = ishft(pack_tmp, -6)
26202  idata = idata + 1
26203  data_tmp = full_data(idata)
26204  data_tmp = ishft(data_tmp, 29)
26205  data_tmp = iand(data_tmp, mask_left(6))
26206  pack_tmp = ior(pack_tmp, data_tmp)
26207  ipack = ipack + 1
26208  packed_data(ipack) = pack_tmp
26209  data_tmp = full_data(idata)
26210  pack_tmp = ishft(data_tmp, 35)
26211  pack_tmp = ishft(pack_tmp, -35)
26212  idata = idata + 1
26213  data_tmp = full_data(idata)
26214  data_tmp = ishft(data_tmp, 29)
26215  pack_tmp = ior(pack_tmp, data_tmp)
26216  pack_tmp = ishft(pack_tmp, 0)
26217  pack_tmp = ishft(pack_tmp, 0)
26218  ipack = ipack + 1
26219  packed_data(ipack) = pack_tmp
26220  END DO
26221  IF (ndata_rep < ndata) THEN
26222  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
26223  END IF
26224  END SUBROUTINE ints2bits_35
26225 
26226 ! **************************************************************************************************
26227 !> \brief ...
26228 !> \param Ndata ...
26229 !> \param packed_data ...
26230 !> \param full_data ...
26231 ! **************************************************************************************************
26232  SUBROUTINE bits2ints_35(Ndata, packed_data, full_data)
26233  INTEGER, INTENT(IN) :: Ndata
26234  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
26235  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
26236 
26237  INTEGER, PARAMETER :: Nbits = 35
26238 
26239  INTEGER :: idata, ipack, kdata, Ndata_rep
26240  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
26241 
26242  ipack = 0
26243  idata = 0
26244  pack_tmp = 0
26245  ndata_rep = (ndata/64)*64
26246  DO kdata = 1, ndata_rep, 64
26247  idata = idata + 1
26248  data_tmp = ishft(pack_tmp, 35)
26249  ipack = ipack + 1
26250  pack_tmp = packed_data(ipack)
26251  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
26252  pack_tmp = ishft(pack_tmp, -35)
26253  idata = idata + 1
26254  data_tmp = ishft(pack_tmp, 6)
26255  ipack = ipack + 1
26256  pack_tmp = packed_data(ipack)
26257  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
26258  pack_tmp = ishft(pack_tmp, -6)
26259  idata = idata + 1
26260  data_tmp = iand(pack_tmp, mask_right(nbits))
26261  full_data(idata) = data_tmp
26262  pack_tmp = ishft(pack_tmp, -nbits)
26263  idata = idata + 1
26264  data_tmp = ishft(pack_tmp, 12)
26265  ipack = ipack + 1
26266  pack_tmp = packed_data(ipack)
26267  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
26268  pack_tmp = ishft(pack_tmp, -12)
26269  idata = idata + 1
26270  data_tmp = iand(pack_tmp, mask_right(nbits))
26271  full_data(idata) = data_tmp
26272  pack_tmp = ishft(pack_tmp, -nbits)
26273  idata = idata + 1
26274  data_tmp = ishft(pack_tmp, 18)
26275  ipack = ipack + 1
26276  pack_tmp = packed_data(ipack)
26277  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
26278  pack_tmp = ishft(pack_tmp, -18)
26279  idata = idata + 1
26280  data_tmp = iand(pack_tmp, mask_right(nbits))
26281  full_data(idata) = data_tmp
26282  pack_tmp = ishft(pack_tmp, -nbits)
26283  idata = idata + 1
26284  data_tmp = ishft(pack_tmp, 24)
26285  ipack = ipack + 1
26286  pack_tmp = packed_data(ipack)
26287  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
26288  pack_tmp = ishft(pack_tmp, -24)
26289  idata = idata + 1
26290  data_tmp = iand(pack_tmp, mask_right(nbits))
26291  full_data(idata) = data_tmp
26292  pack_tmp = ishft(pack_tmp, -nbits)
26293  idata = idata + 1
26294  data_tmp = ishft(pack_tmp, 30)
26295  ipack = ipack + 1
26296  pack_tmp = packed_data(ipack)
26297  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
26298  pack_tmp = ishft(pack_tmp, -30)
26299  idata = idata + 1
26300  data_tmp = ishft(pack_tmp, 1)
26301  ipack = ipack + 1
26302  pack_tmp = packed_data(ipack)
26303  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
26304  pack_tmp = ishft(pack_tmp, -1)
26305  idata = idata + 1
26306  data_tmp = iand(pack_tmp, mask_right(nbits))
26307  full_data(idata) = data_tmp
26308  pack_tmp = ishft(pack_tmp, -nbits)
26309  idata = idata + 1
26310  data_tmp = ishft(pack_tmp, 7)
26311  ipack = ipack + 1
26312  pack_tmp = packed_data(ipack)
26313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
26314  pack_tmp = ishft(pack_tmp, -7)
26315  idata = idata + 1
26316  data_tmp = iand(pack_tmp, mask_right(nbits))
26317  full_data(idata) = data_tmp
26318  pack_tmp = ishft(pack_tmp, -nbits)
26319  idata = idata + 1
26320  data_tmp = ishft(pack_tmp, 13)
26321  ipack = ipack + 1
26322  pack_tmp = packed_data(ipack)
26323  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
26324  pack_tmp = ishft(pack_tmp, -13)
26325  idata = idata + 1
26326  data_tmp = iand(pack_tmp, mask_right(nbits))
26327  full_data(idata) = data_tmp
26328  pack_tmp = ishft(pack_tmp, -nbits)
26329  idata = idata + 1
26330  data_tmp = ishft(pack_tmp, 19)
26331  ipack = ipack + 1
26332  pack_tmp = packed_data(ipack)
26333  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
26334  pack_tmp = ishft(pack_tmp, -19)
26335  idata = idata + 1
26336  data_tmp = iand(pack_tmp, mask_right(nbits))
26337  full_data(idata) = data_tmp
26338  pack_tmp = ishft(pack_tmp, -nbits)
26339  idata = idata + 1
26340  data_tmp = ishft(pack_tmp, 25)
26341  ipack = ipack + 1
26342  pack_tmp = packed_data(ipack)
26343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
26344  pack_tmp = ishft(pack_tmp, -25)
26345  idata = idata + 1
26346  data_tmp = iand(pack_tmp, mask_right(nbits))
26347  full_data(idata) = data_tmp
26348  pack_tmp = ishft(pack_tmp, -nbits)
26349  idata = idata + 1
26350  data_tmp = ishft(pack_tmp, 31)
26351  ipack = ipack + 1
26352  pack_tmp = packed_data(ipack)
26353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
26354  pack_tmp = ishft(pack_tmp, -31)
26355  idata = idata + 1
26356  data_tmp = ishft(pack_tmp, 2)
26357  ipack = ipack + 1
26358  pack_tmp = packed_data(ipack)
26359  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
26360  pack_tmp = ishft(pack_tmp, -2)
26361  idata = idata + 1
26362  data_tmp = iand(pack_tmp, mask_right(nbits))
26363  full_data(idata) = data_tmp
26364  pack_tmp = ishft(pack_tmp, -nbits)
26365  idata = idata + 1
26366  data_tmp = ishft(pack_tmp, 8)
26367  ipack = ipack + 1
26368  pack_tmp = packed_data(ipack)
26369  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
26370  pack_tmp = ishft(pack_tmp, -8)
26371  idata = idata + 1
26372  data_tmp = iand(pack_tmp, mask_right(nbits))
26373  full_data(idata) = data_tmp
26374  pack_tmp = ishft(pack_tmp, -nbits)
26375  idata = idata + 1
26376  data_tmp = ishft(pack_tmp, 14)
26377  ipack = ipack + 1
26378  pack_tmp = packed_data(ipack)
26379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
26380  pack_tmp = ishft(pack_tmp, -14)
26381  idata = idata + 1
26382  data_tmp = iand(pack_tmp, mask_right(nbits))
26383  full_data(idata) = data_tmp
26384  pack_tmp = ishft(pack_tmp, -nbits)
26385  idata = idata + 1
26386  data_tmp = ishft(pack_tmp, 20)
26387  ipack = ipack + 1
26388  pack_tmp = packed_data(ipack)
26389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
26390  pack_tmp = ishft(pack_tmp, -20)
26391  idata = idata + 1
26392  data_tmp = iand(pack_tmp, mask_right(nbits))
26393  full_data(idata) = data_tmp
26394  pack_tmp = ishft(pack_tmp, -nbits)
26395  idata = idata + 1
26396  data_tmp = ishft(pack_tmp, 26)
26397  ipack = ipack + 1
26398  pack_tmp = packed_data(ipack)
26399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
26400  pack_tmp = ishft(pack_tmp, -26)
26401  idata = idata + 1
26402  data_tmp = iand(pack_tmp, mask_right(nbits))
26403  full_data(idata) = data_tmp
26404  pack_tmp = ishft(pack_tmp, -nbits)
26405  idata = idata + 1
26406  data_tmp = ishft(pack_tmp, 32)
26407  ipack = ipack + 1
26408  pack_tmp = packed_data(ipack)
26409  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
26410  pack_tmp = ishft(pack_tmp, -32)
26411  idata = idata + 1
26412  data_tmp = ishft(pack_tmp, 3)
26413  ipack = ipack + 1
26414  pack_tmp = packed_data(ipack)
26415  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
26416  pack_tmp = ishft(pack_tmp, -3)
26417  idata = idata + 1
26418  data_tmp = iand(pack_tmp, mask_right(nbits))
26419  full_data(idata) = data_tmp
26420  pack_tmp = ishft(pack_tmp, -nbits)
26421  idata = idata + 1
26422  data_tmp = ishft(pack_tmp, 9)
26423  ipack = ipack + 1
26424  pack_tmp = packed_data(ipack)
26425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
26426  pack_tmp = ishft(pack_tmp, -9)
26427  idata = idata + 1
26428  data_tmp = iand(pack_tmp, mask_right(nbits))
26429  full_data(idata) = data_tmp
26430  pack_tmp = ishft(pack_tmp, -nbits)
26431  idata = idata + 1
26432  data_tmp = ishft(pack_tmp, 15)
26433  ipack = ipack + 1
26434  pack_tmp = packed_data(ipack)
26435  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
26436  pack_tmp = ishft(pack_tmp, -15)
26437  idata = idata + 1
26438  data_tmp = iand(pack_tmp, mask_right(nbits))
26439  full_data(idata) = data_tmp
26440  pack_tmp = ishft(pack_tmp, -nbits)
26441  idata = idata + 1
26442  data_tmp = ishft(pack_tmp, 21)
26443  ipack = ipack + 1
26444  pack_tmp = packed_data(ipack)
26445  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
26446  pack_tmp = ishft(pack_tmp, -21)
26447  idata = idata + 1
26448  data_tmp = iand(pack_tmp, mask_right(nbits))
26449  full_data(idata) = data_tmp
26450  pack_tmp = ishft(pack_tmp, -nbits)
26451  idata = idata + 1
26452  data_tmp = ishft(pack_tmp, 27)
26453  ipack = ipack + 1
26454  pack_tmp = packed_data(ipack)
26455  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
26456  pack_tmp = ishft(pack_tmp, -27)
26457  idata = idata + 1
26458  data_tmp = iand(pack_tmp, mask_right(nbits))
26459  full_data(idata) = data_tmp
26460  pack_tmp = ishft(pack_tmp, -nbits)
26461  idata = idata + 1
26462  data_tmp = ishft(pack_tmp, 33)
26463  ipack = ipack + 1
26464  pack_tmp = packed_data(ipack)
26465  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
26466  pack_tmp = ishft(pack_tmp, -33)
26467  idata = idata + 1
26468  data_tmp = ishft(pack_tmp, 4)
26469  ipack = ipack + 1
26470  pack_tmp = packed_data(ipack)
26471  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
26472  pack_tmp = ishft(pack_tmp, -4)
26473  idata = idata + 1
26474  data_tmp = iand(pack_tmp, mask_right(nbits))
26475  full_data(idata) = data_tmp
26476  pack_tmp = ishft(pack_tmp, -nbits)
26477  idata = idata + 1
26478  data_tmp = ishft(pack_tmp, 10)
26479  ipack = ipack + 1
26480  pack_tmp = packed_data(ipack)
26481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
26482  pack_tmp = ishft(pack_tmp, -10)
26483  idata = idata + 1
26484  data_tmp = iand(pack_tmp, mask_right(nbits))
26485  full_data(idata) = data_tmp
26486  pack_tmp = ishft(pack_tmp, -nbits)
26487  idata = idata + 1
26488  data_tmp = ishft(pack_tmp, 16)
26489  ipack = ipack + 1
26490  pack_tmp = packed_data(ipack)
26491  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
26492  pack_tmp = ishft(pack_tmp, -16)
26493  idata = idata + 1
26494  data_tmp = iand(pack_tmp, mask_right(nbits))
26495  full_data(idata) = data_tmp
26496  pack_tmp = ishft(pack_tmp, -nbits)
26497  idata = idata + 1
26498  data_tmp = ishft(pack_tmp, 22)
26499  ipack = ipack + 1
26500  pack_tmp = packed_data(ipack)
26501  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
26502  pack_tmp = ishft(pack_tmp, -22)
26503  idata = idata + 1
26504  data_tmp = iand(pack_tmp, mask_right(nbits))
26505  full_data(idata) = data_tmp
26506  pack_tmp = ishft(pack_tmp, -nbits)
26507  idata = idata + 1
26508  data_tmp = ishft(pack_tmp, 28)
26509  ipack = ipack + 1
26510  pack_tmp = packed_data(ipack)
26511  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
26512  pack_tmp = ishft(pack_tmp, -28)
26513  idata = idata + 1
26514  data_tmp = iand(pack_tmp, mask_right(nbits))
26515  full_data(idata) = data_tmp
26516  pack_tmp = ishft(pack_tmp, -nbits)
26517  idata = idata + 1
26518  data_tmp = ishft(pack_tmp, 34)
26519  ipack = ipack + 1
26520  pack_tmp = packed_data(ipack)
26521  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
26522  pack_tmp = ishft(pack_tmp, -34)
26523  idata = idata + 1
26524  data_tmp = ishft(pack_tmp, 5)
26525  ipack = ipack + 1
26526  pack_tmp = packed_data(ipack)
26527  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
26528  pack_tmp = ishft(pack_tmp, -5)
26529  idata = idata + 1
26530  data_tmp = iand(pack_tmp, mask_right(nbits))
26531  full_data(idata) = data_tmp
26532  pack_tmp = ishft(pack_tmp, -nbits)
26533  idata = idata + 1
26534  data_tmp = ishft(pack_tmp, 11)
26535  ipack = ipack + 1
26536  pack_tmp = packed_data(ipack)
26537  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
26538  pack_tmp = ishft(pack_tmp, -11)
26539  idata = idata + 1
26540  data_tmp = iand(pack_tmp, mask_right(nbits))
26541  full_data(idata) = data_tmp
26542  pack_tmp = ishft(pack_tmp, -nbits)
26543  idata = idata + 1
26544  data_tmp = ishft(pack_tmp, 17)
26545  ipack = ipack + 1
26546  pack_tmp = packed_data(ipack)
26547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
26548  pack_tmp = ishft(pack_tmp, -17)
26549  idata = idata + 1
26550  data_tmp = iand(pack_tmp, mask_right(nbits))
26551  full_data(idata) = data_tmp
26552  pack_tmp = ishft(pack_tmp, -nbits)
26553  idata = idata + 1
26554  data_tmp = ishft(pack_tmp, 23)
26555  ipack = ipack + 1
26556  pack_tmp = packed_data(ipack)
26557  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
26558  pack_tmp = ishft(pack_tmp, -23)
26559  idata = idata + 1
26560  data_tmp = iand(pack_tmp, mask_right(nbits))
26561  full_data(idata) = data_tmp
26562  pack_tmp = ishft(pack_tmp, -nbits)
26563  idata = idata + 1
26564  data_tmp = ishft(pack_tmp, 29)
26565  ipack = ipack + 1
26566  pack_tmp = packed_data(ipack)
26567  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
26568  pack_tmp = ishft(pack_tmp, -29)
26569  idata = idata + 1
26570  data_tmp = iand(pack_tmp, mask_right(nbits))
26571  full_data(idata) = data_tmp
26572  pack_tmp = ishft(pack_tmp, -nbits)
26573  END DO
26574  IF (ndata_rep < ndata) THEN
26575  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
26576  END IF
26577  END SUBROUTINE bits2ints_35
26578 
26579 ! **************************************************************************************************
26580 !> \brief ...
26581 !> \param Ndata ...
26582 !> \param packed_data ...
26583 !> \param full_data ...
26584 ! **************************************************************************************************
26585  SUBROUTINE ints2bits_36(Ndata, packed_data, full_data)
26586  INTEGER, INTENT(IN) :: Ndata
26587  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
26588  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
26589 
26590  INTEGER, PARAMETER :: Nbits = 36
26591 
26592  INTEGER :: idata, ipack, kdata, Ndata_rep
26593  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
26594 
26595  idata = 0
26596  ipack = 0
26597  ndata_rep = (ndata/64)*64
26598  DO kdata = 1, ndata_rep, 64
26599  pack_tmp = 0
26600  idata = idata + 1
26601  data_tmp = full_data(idata)
26602  data_tmp = ishft(data_tmp, 28)
26603  pack_tmp = ior(pack_tmp, data_tmp)
26604  pack_tmp = ishft(pack_tmp, -28)
26605  idata = idata + 1
26606  data_tmp = full_data(idata)
26607  data_tmp = ishft(data_tmp, 28)
26608  data_tmp = iand(data_tmp, mask_left(28))
26609  pack_tmp = ior(pack_tmp, data_tmp)
26610  ipack = ipack + 1
26611  packed_data(ipack) = pack_tmp
26612  data_tmp = full_data(idata)
26613  pack_tmp = ishft(data_tmp, 56)
26614  pack_tmp = ishft(pack_tmp, -36)
26615  idata = idata + 1
26616  data_tmp = full_data(idata)
26617  data_tmp = ishft(data_tmp, 28)
26618  pack_tmp = ior(pack_tmp, data_tmp)
26619  pack_tmp = ishft(pack_tmp, -20)
26620  idata = idata + 1
26621  data_tmp = full_data(idata)
26622  data_tmp = ishft(data_tmp, 28)
26623  data_tmp = iand(data_tmp, mask_left(20))
26624  pack_tmp = ior(pack_tmp, data_tmp)
26625  ipack = ipack + 1
26626  packed_data(ipack) = pack_tmp
26627  data_tmp = full_data(idata)
26628  pack_tmp = ishft(data_tmp, 48)
26629  pack_tmp = ishft(pack_tmp, -36)
26630  idata = idata + 1
26631  data_tmp = full_data(idata)
26632  data_tmp = ishft(data_tmp, 28)
26633  pack_tmp = ior(pack_tmp, data_tmp)
26634  pack_tmp = ishft(pack_tmp, -12)
26635  idata = idata + 1
26636  data_tmp = full_data(idata)
26637  data_tmp = ishft(data_tmp, 28)
26638  data_tmp = iand(data_tmp, mask_left(12))
26639  pack_tmp = ior(pack_tmp, data_tmp)
26640  ipack = ipack + 1
26641  packed_data(ipack) = pack_tmp
26642  data_tmp = full_data(idata)
26643  pack_tmp = ishft(data_tmp, 40)
26644  pack_tmp = ishft(pack_tmp, -36)
26645  idata = idata + 1
26646  data_tmp = full_data(idata)
26647  data_tmp = ishft(data_tmp, 28)
26648  pack_tmp = ior(pack_tmp, data_tmp)
26649  pack_tmp = ishft(pack_tmp, -4)
26650  idata = idata + 1
26651  data_tmp = full_data(idata)
26652  data_tmp = ishft(data_tmp, 28)
26653  data_tmp = iand(data_tmp, mask_left(4))
26654  pack_tmp = ior(pack_tmp, data_tmp)
26655  ipack = ipack + 1
26656  packed_data(ipack) = pack_tmp
26657  data_tmp = full_data(idata)
26658  pack_tmp = ishft(data_tmp, 32)
26659  pack_tmp = ishft(pack_tmp, -32)
26660  idata = idata + 1
26661  data_tmp = full_data(idata)
26662  data_tmp = ishft(data_tmp, 28)
26663  data_tmp = iand(data_tmp, mask_left(32))
26664  pack_tmp = ior(pack_tmp, data_tmp)
26665  ipack = ipack + 1
26666  packed_data(ipack) = pack_tmp
26667  data_tmp = full_data(idata)
26668  pack_tmp = ishft(data_tmp, 60)
26669  pack_tmp = ishft(pack_tmp, -36)
26670  idata = idata + 1
26671  data_tmp = full_data(idata)
26672  data_tmp = ishft(data_tmp, 28)
26673  pack_tmp = ior(pack_tmp, data_tmp)
26674  pack_tmp = ishft(pack_tmp, -24)
26675  idata = idata + 1
26676  data_tmp = full_data(idata)
26677  data_tmp = ishft(data_tmp, 28)
26678  data_tmp = iand(data_tmp, mask_left(24))
26679  pack_tmp = ior(pack_tmp, data_tmp)
26680  ipack = ipack + 1
26681  packed_data(ipack) = pack_tmp
26682  data_tmp = full_data(idata)
26683  pack_tmp = ishft(data_tmp, 52)
26684  pack_tmp = ishft(pack_tmp, -36)
26685  idata = idata + 1
26686  data_tmp = full_data(idata)
26687  data_tmp = ishft(data_tmp, 28)
26688  pack_tmp = ior(pack_tmp, data_tmp)
26689  pack_tmp = ishft(pack_tmp, -16)
26690  idata = idata + 1
26691  data_tmp = full_data(idata)
26692  data_tmp = ishft(data_tmp, 28)
26693  data_tmp = iand(data_tmp, mask_left(16))
26694  pack_tmp = ior(pack_tmp, data_tmp)
26695  ipack = ipack + 1
26696  packed_data(ipack) = pack_tmp
26697  data_tmp = full_data(idata)
26698  pack_tmp = ishft(data_tmp, 44)
26699  pack_tmp = ishft(pack_tmp, -36)
26700  idata = idata + 1
26701  data_tmp = full_data(idata)
26702  data_tmp = ishft(data_tmp, 28)
26703  pack_tmp = ior(pack_tmp, data_tmp)
26704  pack_tmp = ishft(pack_tmp, -8)
26705  idata = idata + 1
26706  data_tmp = full_data(idata)
26707  data_tmp = ishft(data_tmp, 28)
26708  data_tmp = iand(data_tmp, mask_left(8))
26709  pack_tmp = ior(pack_tmp, data_tmp)
26710  ipack = ipack + 1
26711  packed_data(ipack) = pack_tmp
26712  data_tmp = full_data(idata)
26713  pack_tmp = ishft(data_tmp, 36)
26714  pack_tmp = ishft(pack_tmp, -36)
26715  idata = idata + 1
26716  data_tmp = full_data(idata)
26717  data_tmp = ishft(data_tmp, 28)
26718  pack_tmp = ior(pack_tmp, data_tmp)
26719  pack_tmp = ishft(pack_tmp, 0)
26720  idata = idata + 1
26721  data_tmp = full_data(idata)
26722  data_tmp = ishft(data_tmp, 28)
26723  data_tmp = iand(data_tmp, mask_left(0))
26724  pack_tmp = ior(pack_tmp, data_tmp)
26725  ipack = ipack + 1
26726  packed_data(ipack) = pack_tmp
26727  data_tmp = full_data(idata)
26728  pack_tmp = ishft(data_tmp, 28)
26729  pack_tmp = ishft(pack_tmp, -28)
26730  idata = idata + 1
26731  data_tmp = full_data(idata)
26732  data_tmp = ishft(data_tmp, 28)
26733  data_tmp = iand(data_tmp, mask_left(28))
26734  pack_tmp = ior(pack_tmp, data_tmp)
26735  ipack = ipack + 1
26736  packed_data(ipack) = pack_tmp
26737  data_tmp = full_data(idata)
26738  pack_tmp = ishft(data_tmp, 56)
26739  pack_tmp = ishft(pack_tmp, -36)
26740  idata = idata + 1
26741  data_tmp = full_data(idata)
26742  data_tmp = ishft(data_tmp, 28)
26743  pack_tmp = ior(pack_tmp, data_tmp)
26744  pack_tmp = ishft(pack_tmp, -20)
26745  idata = idata + 1
26746  data_tmp = full_data(idata)
26747  data_tmp = ishft(data_tmp, 28)
26748  data_tmp = iand(data_tmp, mask_left(20))
26749  pack_tmp = ior(pack_tmp, data_tmp)
26750  ipack = ipack + 1
26751  packed_data(ipack) = pack_tmp
26752  data_tmp = full_data(idata)
26753  pack_tmp = ishft(data_tmp, 48)
26754  pack_tmp = ishft(pack_tmp, -36)
26755  idata = idata + 1
26756  data_tmp = full_data(idata)
26757  data_tmp = ishft(data_tmp, 28)
26758  pack_tmp = ior(pack_tmp, data_tmp)
26759  pack_tmp = ishft(pack_tmp, -12)
26760  idata = idata + 1
26761  data_tmp = full_data(idata)
26762  data_tmp = ishft(data_tmp, 28)
26763  data_tmp = iand(data_tmp, mask_left(12))
26764  pack_tmp = ior(pack_tmp, data_tmp)
26765  ipack = ipack + 1
26766  packed_data(ipack) = pack_tmp
26767  data_tmp = full_data(idata)
26768  pack_tmp = ishft(data_tmp, 40)
26769  pack_tmp = ishft(pack_tmp, -36)
26770  idata = idata + 1
26771  data_tmp = full_data(idata)
26772  data_tmp = ishft(data_tmp, 28)
26773  pack_tmp = ior(pack_tmp, data_tmp)
26774  pack_tmp = ishft(pack_tmp, -4)
26775  idata = idata + 1
26776  data_tmp = full_data(idata)
26777  data_tmp = ishft(data_tmp, 28)
26778  data_tmp = iand(data_tmp, mask_left(4))
26779  pack_tmp = ior(pack_tmp, data_tmp)
26780  ipack = ipack + 1
26781  packed_data(ipack) = pack_tmp
26782  data_tmp = full_data(idata)
26783  pack_tmp = ishft(data_tmp, 32)
26784  pack_tmp = ishft(pack_tmp, -32)
26785  idata = idata + 1
26786  data_tmp = full_data(idata)
26787  data_tmp = ishft(data_tmp, 28)
26788  data_tmp = iand(data_tmp, mask_left(32))
26789  pack_tmp = ior(pack_tmp, data_tmp)
26790  ipack = ipack + 1
26791  packed_data(ipack) = pack_tmp
26792  data_tmp = full_data(idata)
26793  pack_tmp = ishft(data_tmp, 60)
26794  pack_tmp = ishft(pack_tmp, -36)
26795  idata = idata + 1
26796  data_tmp = full_data(idata)
26797  data_tmp = ishft(data_tmp, 28)
26798  pack_tmp = ior(pack_tmp, data_tmp)
26799  pack_tmp = ishft(pack_tmp, -24)
26800  idata = idata + 1
26801  data_tmp = full_data(idata)
26802  data_tmp = ishft(data_tmp, 28)
26803  data_tmp = iand(data_tmp, mask_left(24))
26804  pack_tmp = ior(pack_tmp, data_tmp)
26805  ipack = ipack + 1
26806  packed_data(ipack) = pack_tmp
26807  data_tmp = full_data(idata)
26808  pack_tmp = ishft(data_tmp, 52)
26809  pack_tmp = ishft(pack_tmp, -36)
26810  idata = idata + 1
26811  data_tmp = full_data(idata)
26812  data_tmp = ishft(data_tmp, 28)
26813  pack_tmp = ior(pack_tmp, data_tmp)
26814  pack_tmp = ishft(pack_tmp, -16)
26815  idata = idata + 1
26816  data_tmp = full_data(idata)
26817  data_tmp = ishft(data_tmp, 28)
26818  data_tmp = iand(data_tmp, mask_left(16))
26819  pack_tmp = ior(pack_tmp, data_tmp)
26820  ipack = ipack + 1
26821  packed_data(ipack) = pack_tmp
26822  data_tmp = full_data(idata)
26823  pack_tmp = ishft(data_tmp, 44)
26824  pack_tmp = ishft(pack_tmp, -36)
26825  idata = idata + 1
26826  data_tmp = full_data(idata)
26827  data_tmp = ishft(data_tmp, 28)
26828  pack_tmp = ior(pack_tmp, data_tmp)
26829  pack_tmp = ishft(pack_tmp, -8)
26830  idata = idata + 1
26831  data_tmp = full_data(idata)
26832  data_tmp = ishft(data_tmp, 28)
26833  data_tmp = iand(data_tmp, mask_left(8))
26834  pack_tmp = ior(pack_tmp, data_tmp)
26835  ipack = ipack + 1
26836  packed_data(ipack) = pack_tmp
26837  data_tmp = full_data(idata)
26838  pack_tmp = ishft(data_tmp, 36)
26839  pack_tmp = ishft(pack_tmp, -36)
26840  idata = idata + 1
26841  data_tmp = full_data(idata)
26842  data_tmp = ishft(data_tmp, 28)
26843  pack_tmp = ior(pack_tmp, data_tmp)
26844  pack_tmp = ishft(pack_tmp, 0)
26845  idata = idata + 1
26846  data_tmp = full_data(idata)
26847  data_tmp = ishft(data_tmp, 28)
26848  data_tmp = iand(data_tmp, mask_left(0))
26849  pack_tmp = ior(pack_tmp, data_tmp)
26850  ipack = ipack + 1
26851  packed_data(ipack) = pack_tmp
26852  data_tmp = full_data(idata)
26853  pack_tmp = ishft(data_tmp, 28)
26854  pack_tmp = ishft(pack_tmp, -28)
26855  idata = idata + 1
26856  data_tmp = full_data(idata)
26857  data_tmp = ishft(data_tmp, 28)
26858  data_tmp = iand(data_tmp, mask_left(28))
26859  pack_tmp = ior(pack_tmp, data_tmp)
26860  ipack = ipack + 1
26861  packed_data(ipack) = pack_tmp
26862  data_tmp = full_data(idata)
26863  pack_tmp = ishft(data_tmp, 56)
26864  pack_tmp = ishft(pack_tmp, -36)
26865  idata = idata + 1
26866  data_tmp = full_data(idata)
26867  data_tmp = ishft(data_tmp, 28)
26868  pack_tmp = ior(pack_tmp, data_tmp)
26869  pack_tmp = ishft(pack_tmp, -20)
26870  idata = idata + 1
26871  data_tmp = full_data(idata)
26872  data_tmp = ishft(data_tmp, 28)
26873  data_tmp = iand(data_tmp, mask_left(20))
26874  pack_tmp = ior(pack_tmp, data_tmp)
26875  ipack = ipack + 1
26876  packed_data(ipack) = pack_tmp
26877  data_tmp = full_data(idata)
26878  pack_tmp = ishft(data_tmp, 48)
26879  pack_tmp = ishft(pack_tmp, -36)
26880  idata = idata + 1
26881  data_tmp = full_data(idata)
26882  data_tmp = ishft(data_tmp, 28)
26883  pack_tmp = ior(pack_tmp, data_tmp)
26884  pack_tmp = ishft(pack_tmp, -12)
26885  idata = idata + 1
26886  data_tmp = full_data(idata)
26887  data_tmp = ishft(data_tmp, 28)
26888  data_tmp = iand(data_tmp, mask_left(12))
26889  pack_tmp = ior(pack_tmp, data_tmp)
26890  ipack = ipack + 1
26891  packed_data(ipack) = pack_tmp
26892  data_tmp = full_data(idata)
26893  pack_tmp = ishft(data_tmp, 40)
26894  pack_tmp = ishft(pack_tmp, -36)
26895  idata = idata + 1
26896  data_tmp = full_data(idata)
26897  data_tmp = ishft(data_tmp, 28)
26898  pack_tmp = ior(pack_tmp, data_tmp)
26899  pack_tmp = ishft(pack_tmp, -4)
26900  idata = idata + 1
26901  data_tmp = full_data(idata)
26902  data_tmp = ishft(data_tmp, 28)
26903  data_tmp = iand(data_tmp, mask_left(4))
26904  pack_tmp = ior(pack_tmp, data_tmp)
26905  ipack = ipack + 1
26906  packed_data(ipack) = pack_tmp
26907  data_tmp = full_data(idata)
26908  pack_tmp = ishft(data_tmp, 32)
26909  pack_tmp = ishft(pack_tmp, -32)
26910  idata = idata + 1
26911  data_tmp = full_data(idata)
26912  data_tmp = ishft(data_tmp, 28)
26913  data_tmp = iand(data_tmp, mask_left(32))
26914  pack_tmp = ior(pack_tmp, data_tmp)
26915  ipack = ipack + 1
26916  packed_data(ipack) = pack_tmp
26917  data_tmp = full_data(idata)
26918  pack_tmp = ishft(data_tmp, 60)
26919  pack_tmp = ishft(pack_tmp, -36)
26920  idata = idata + 1
26921  data_tmp = full_data(idata)
26922  data_tmp = ishft(data_tmp, 28)
26923  pack_tmp = ior(pack_tmp, data_tmp)
26924  pack_tmp = ishft(pack_tmp, -24)
26925  idata = idata + 1
26926  data_tmp = full_data(idata)
26927  data_tmp = ishft(data_tmp, 28)
26928  data_tmp = iand(data_tmp, mask_left(24))
26929  pack_tmp = ior(pack_tmp, data_tmp)
26930  ipack = ipack + 1
26931  packed_data(ipack) = pack_tmp
26932  data_tmp = full_data(idata)
26933  pack_tmp = ishft(data_tmp, 52)
26934  pack_tmp = ishft(pack_tmp, -36)
26935  idata = idata + 1
26936  data_tmp = full_data(idata)
26937  data_tmp = ishft(data_tmp, 28)
26938  pack_tmp = ior(pack_tmp, data_tmp)
26939  pack_tmp = ishft(pack_tmp, -16)
26940  idata = idata + 1
26941  data_tmp = full_data(idata)
26942  data_tmp = ishft(data_tmp, 28)
26943  data_tmp = iand(data_tmp, mask_left(16))
26944  pack_tmp = ior(pack_tmp, data_tmp)
26945  ipack = ipack + 1
26946  packed_data(ipack) = pack_tmp
26947  data_tmp = full_data(idata)
26948  pack_tmp = ishft(data_tmp, 44)
26949  pack_tmp = ishft(pack_tmp, -36)
26950  idata = idata + 1
26951  data_tmp = full_data(idata)
26952  data_tmp = ishft(data_tmp, 28)
26953  pack_tmp = ior(pack_tmp, data_tmp)
26954  pack_tmp = ishft(pack_tmp, -8)
26955  idata = idata + 1
26956  data_tmp = full_data(idata)
26957  data_tmp = ishft(data_tmp, 28)
26958  data_tmp = iand(data_tmp, mask_left(8))
26959  pack_tmp = ior(pack_tmp, data_tmp)
26960  ipack = ipack + 1
26961  packed_data(ipack) = pack_tmp
26962  data_tmp = full_data(idata)
26963  pack_tmp = ishft(data_tmp, 36)
26964  pack_tmp = ishft(pack_tmp, -36)
26965  idata = idata + 1
26966  data_tmp = full_data(idata)
26967  data_tmp = ishft(data_tmp, 28)
26968  pack_tmp = ior(pack_tmp, data_tmp)
26969  pack_tmp = ishft(pack_tmp, 0)
26970  idata = idata + 1
26971  data_tmp = full_data(idata)
26972  data_tmp = ishft(data_tmp, 28)
26973  data_tmp = iand(data_tmp, mask_left(0))
26974  pack_tmp = ior(pack_tmp, data_tmp)
26975  ipack = ipack + 1
26976  packed_data(ipack) = pack_tmp
26977  data_tmp = full_data(idata)
26978  pack_tmp = ishft(data_tmp, 28)
26979  pack_tmp = ishft(pack_tmp, -28)
26980  idata = idata + 1
26981  data_tmp = full_data(idata)
26982  data_tmp = ishft(data_tmp, 28)
26983  data_tmp = iand(data_tmp, mask_left(28))
26984  pack_tmp = ior(pack_tmp, data_tmp)
26985  ipack = ipack + 1
26986  packed_data(ipack) = pack_tmp
26987  data_tmp = full_data(idata)
26988  pack_tmp = ishft(data_tmp, 56)
26989  pack_tmp = ishft(pack_tmp, -36)
26990  idata = idata + 1
26991  data_tmp = full_data(idata)
26992  data_tmp = ishft(data_tmp, 28)
26993  pack_tmp = ior(pack_tmp, data_tmp)
26994  pack_tmp = ishft(pack_tmp, -20)
26995  idata = idata + 1
26996  data_tmp = full_data(idata)
26997  data_tmp = ishft(data_tmp, 28)
26998  data_tmp = iand(data_tmp, mask_left(20))
26999  pack_tmp = ior(pack_tmp, data_tmp)
27000  ipack = ipack + 1
27001  packed_data(ipack) = pack_tmp
27002  data_tmp = full_data(idata)
27003  pack_tmp = ishft(data_tmp, 48)
27004  pack_tmp = ishft(pack_tmp, -36)
27005  idata = idata + 1
27006  data_tmp = full_data(idata)
27007  data_tmp = ishft(data_tmp, 28)
27008  pack_tmp = ior(pack_tmp, data_tmp)
27009  pack_tmp = ishft(pack_tmp, -12)
27010  idata = idata + 1
27011  data_tmp = full_data(idata)
27012  data_tmp = ishft(data_tmp, 28)
27013  data_tmp = iand(data_tmp, mask_left(12))
27014  pack_tmp = ior(pack_tmp, data_tmp)
27015  ipack = ipack + 1
27016  packed_data(ipack) = pack_tmp
27017  data_tmp = full_data(idata)
27018  pack_tmp = ishft(data_tmp, 40)
27019  pack_tmp = ishft(pack_tmp, -36)
27020  idata = idata + 1
27021  data_tmp = full_data(idata)
27022  data_tmp = ishft(data_tmp, 28)
27023  pack_tmp = ior(pack_tmp, data_tmp)
27024  pack_tmp = ishft(pack_tmp, -4)
27025  idata = idata + 1
27026  data_tmp = full_data(idata)
27027  data_tmp = ishft(data_tmp, 28)
27028  data_tmp = iand(data_tmp, mask_left(4))
27029  pack_tmp = ior(pack_tmp, data_tmp)
27030  ipack = ipack + 1
27031  packed_data(ipack) = pack_tmp
27032  data_tmp = full_data(idata)
27033  pack_tmp = ishft(data_tmp, 32)
27034  pack_tmp = ishft(pack_tmp, -32)
27035  idata = idata + 1
27036  data_tmp = full_data(idata)
27037  data_tmp = ishft(data_tmp, 28)
27038  data_tmp = iand(data_tmp, mask_left(32))
27039  pack_tmp = ior(pack_tmp, data_tmp)
27040  ipack = ipack + 1
27041  packed_data(ipack) = pack_tmp
27042  data_tmp = full_data(idata)
27043  pack_tmp = ishft(data_tmp, 60)
27044  pack_tmp = ishft(pack_tmp, -36)
27045  idata = idata + 1
27046  data_tmp = full_data(idata)
27047  data_tmp = ishft(data_tmp, 28)
27048  pack_tmp = ior(pack_tmp, data_tmp)
27049  pack_tmp = ishft(pack_tmp, -24)
27050  idata = idata + 1
27051  data_tmp = full_data(idata)
27052  data_tmp = ishft(data_tmp, 28)
27053  data_tmp = iand(data_tmp, mask_left(24))
27054  pack_tmp = ior(pack_tmp, data_tmp)
27055  ipack = ipack + 1
27056  packed_data(ipack) = pack_tmp
27057  data_tmp = full_data(idata)
27058  pack_tmp = ishft(data_tmp, 52)
27059  pack_tmp = ishft(pack_tmp, -36)
27060  idata = idata + 1
27061  data_tmp = full_data(idata)
27062  data_tmp = ishft(data_tmp, 28)
27063  pack_tmp = ior(pack_tmp, data_tmp)
27064  pack_tmp = ishft(pack_tmp, -16)
27065  idata = idata + 1
27066  data_tmp = full_data(idata)
27067  data_tmp = ishft(data_tmp, 28)
27068  data_tmp = iand(data_tmp, mask_left(16))
27069  pack_tmp = ior(pack_tmp, data_tmp)
27070  ipack = ipack + 1
27071  packed_data(ipack) = pack_tmp
27072  data_tmp = full_data(idata)
27073  pack_tmp = ishft(data_tmp, 44)
27074  pack_tmp = ishft(pack_tmp, -36)
27075  idata = idata + 1
27076  data_tmp = full_data(idata)
27077  data_tmp = ishft(data_tmp, 28)
27078  pack_tmp = ior(pack_tmp, data_tmp)
27079  pack_tmp = ishft(pack_tmp, -8)
27080  idata = idata + 1
27081  data_tmp = full_data(idata)
27082  data_tmp = ishft(data_tmp, 28)
27083  data_tmp = iand(data_tmp, mask_left(8))
27084  pack_tmp = ior(pack_tmp, data_tmp)
27085  ipack = ipack + 1
27086  packed_data(ipack) = pack_tmp
27087  data_tmp = full_data(idata)
27088  pack_tmp = ishft(data_tmp, 36)
27089  pack_tmp = ishft(pack_tmp, -36)
27090  idata = idata + 1
27091  data_tmp = full_data(idata)
27092  data_tmp = ishft(data_tmp, 28)
27093  pack_tmp = ior(pack_tmp, data_tmp)
27094  pack_tmp = ishft(pack_tmp, 0)
27095  pack_tmp = ishft(pack_tmp, 0)
27096  ipack = ipack + 1
27097  packed_data(ipack) = pack_tmp
27098  END DO
27099  IF (ndata_rep < ndata) THEN
27100  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
27101  END IF
27102  END SUBROUTINE ints2bits_36
27103 
27104 ! **************************************************************************************************
27105 !> \brief ...
27106 !> \param Ndata ...
27107 !> \param packed_data ...
27108 !> \param full_data ...
27109 ! **************************************************************************************************
27110  SUBROUTINE bits2ints_36(Ndata, packed_data, full_data)
27111  INTEGER, INTENT(IN) :: Ndata
27112  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
27113  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
27114 
27115  INTEGER, PARAMETER :: Nbits = 36
27116 
27117  INTEGER :: idata, ipack, kdata, Ndata_rep
27118  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
27119 
27120  ipack = 0
27121  idata = 0
27122  pack_tmp = 0
27123  ndata_rep = (ndata/64)*64
27124  DO kdata = 1, ndata_rep, 64
27125  idata = idata + 1
27126  data_tmp = ishft(pack_tmp, 36)
27127  ipack = ipack + 1
27128  pack_tmp = packed_data(ipack)
27129  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
27130  pack_tmp = ishft(pack_tmp, -36)
27131  idata = idata + 1
27132  data_tmp = ishft(pack_tmp, 8)
27133  ipack = ipack + 1
27134  pack_tmp = packed_data(ipack)
27135  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
27136  pack_tmp = ishft(pack_tmp, -8)
27137  idata = idata + 1
27138  data_tmp = iand(pack_tmp, mask_right(nbits))
27139  full_data(idata) = data_tmp
27140  pack_tmp = ishft(pack_tmp, -nbits)
27141  idata = idata + 1
27142  data_tmp = ishft(pack_tmp, 16)
27143  ipack = ipack + 1
27144  pack_tmp = packed_data(ipack)
27145  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
27146  pack_tmp = ishft(pack_tmp, -16)
27147  idata = idata + 1
27148  data_tmp = iand(pack_tmp, mask_right(nbits))
27149  full_data(idata) = data_tmp
27150  pack_tmp = ishft(pack_tmp, -nbits)
27151  idata = idata + 1
27152  data_tmp = ishft(pack_tmp, 24)
27153  ipack = ipack + 1
27154  pack_tmp = packed_data(ipack)
27155  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
27156  pack_tmp = ishft(pack_tmp, -24)
27157  idata = idata + 1
27158  data_tmp = iand(pack_tmp, mask_right(nbits))
27159  full_data(idata) = data_tmp
27160  pack_tmp = ishft(pack_tmp, -nbits)
27161  idata = idata + 1
27162  data_tmp = ishft(pack_tmp, 32)
27163  ipack = ipack + 1
27164  pack_tmp = packed_data(ipack)
27165  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
27166  pack_tmp = ishft(pack_tmp, -32)
27167  idata = idata + 1
27168  data_tmp = ishft(pack_tmp, 4)
27169  ipack = ipack + 1
27170  pack_tmp = packed_data(ipack)
27171  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
27172  pack_tmp = ishft(pack_tmp, -4)
27173  idata = idata + 1
27174  data_tmp = iand(pack_tmp, mask_right(nbits))
27175  full_data(idata) = data_tmp
27176  pack_tmp = ishft(pack_tmp, -nbits)
27177  idata = idata + 1
27178  data_tmp = ishft(pack_tmp, 12)
27179  ipack = ipack + 1
27180  pack_tmp = packed_data(ipack)
27181  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
27182  pack_tmp = ishft(pack_tmp, -12)
27183  idata = idata + 1
27184  data_tmp = iand(pack_tmp, mask_right(nbits))
27185  full_data(idata) = data_tmp
27186  pack_tmp = ishft(pack_tmp, -nbits)
27187  idata = idata + 1
27188  data_tmp = ishft(pack_tmp, 20)
27189  ipack = ipack + 1
27190  pack_tmp = packed_data(ipack)
27191  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
27192  pack_tmp = ishft(pack_tmp, -20)
27193  idata = idata + 1
27194  data_tmp = iand(pack_tmp, mask_right(nbits))
27195  full_data(idata) = data_tmp
27196  pack_tmp = ishft(pack_tmp, -nbits)
27197  idata = idata + 1
27198  data_tmp = ishft(pack_tmp, 28)
27199  ipack = ipack + 1
27200  pack_tmp = packed_data(ipack)
27201  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
27202  pack_tmp = ishft(pack_tmp, -28)
27203  idata = idata + 1
27204  data_tmp = iand(pack_tmp, mask_right(nbits))
27205  full_data(idata) = data_tmp
27206  pack_tmp = ishft(pack_tmp, -nbits)
27207  idata = idata + 1
27208  data_tmp = ishft(pack_tmp, 36)
27209  ipack = ipack + 1
27210  pack_tmp = packed_data(ipack)
27211  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
27212  pack_tmp = ishft(pack_tmp, -36)
27213  idata = idata + 1
27214  data_tmp = ishft(pack_tmp, 8)
27215  ipack = ipack + 1
27216  pack_tmp = packed_data(ipack)
27217  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
27218  pack_tmp = ishft(pack_tmp, -8)
27219  idata = idata + 1
27220  data_tmp = iand(pack_tmp, mask_right(nbits))
27221  full_data(idata) = data_tmp
27222  pack_tmp = ishft(pack_tmp, -nbits)
27223  idata = idata + 1
27224  data_tmp = ishft(pack_tmp, 16)
27225  ipack = ipack + 1
27226  pack_tmp = packed_data(ipack)
27227  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
27228  pack_tmp = ishft(pack_tmp, -16)
27229  idata = idata + 1
27230  data_tmp = iand(pack_tmp, mask_right(nbits))
27231  full_data(idata) = data_tmp
27232  pack_tmp = ishft(pack_tmp, -nbits)
27233  idata = idata + 1
27234  data_tmp = ishft(pack_tmp, 24)
27235  ipack = ipack + 1
27236  pack_tmp = packed_data(ipack)
27237  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
27238  pack_tmp = ishft(pack_tmp, -24)
27239  idata = idata + 1
27240  data_tmp = iand(pack_tmp, mask_right(nbits))
27241  full_data(idata) = data_tmp
27242  pack_tmp = ishft(pack_tmp, -nbits)
27243  idata = idata + 1
27244  data_tmp = ishft(pack_tmp, 32)
27245  ipack = ipack + 1
27246  pack_tmp = packed_data(ipack)
27247  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
27248  pack_tmp = ishft(pack_tmp, -32)
27249  idata = idata + 1
27250  data_tmp = ishft(pack_tmp, 4)
27251  ipack = ipack + 1
27252  pack_tmp = packed_data(ipack)
27253  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
27254  pack_tmp = ishft(pack_tmp, -4)
27255  idata = idata + 1
27256  data_tmp = iand(pack_tmp, mask_right(nbits))
27257  full_data(idata) = data_tmp
27258  pack_tmp = ishft(pack_tmp, -nbits)
27259  idata = idata + 1
27260  data_tmp = ishft(pack_tmp, 12)
27261  ipack = ipack + 1
27262  pack_tmp = packed_data(ipack)
27263  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
27264  pack_tmp = ishft(pack_tmp, -12)
27265  idata = idata + 1
27266  data_tmp = iand(pack_tmp, mask_right(nbits))
27267  full_data(idata) = data_tmp
27268  pack_tmp = ishft(pack_tmp, -nbits)
27269  idata = idata + 1
27270  data_tmp = ishft(pack_tmp, 20)
27271  ipack = ipack + 1
27272  pack_tmp = packed_data(ipack)
27273  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
27274  pack_tmp = ishft(pack_tmp, -20)
27275  idata = idata + 1
27276  data_tmp = iand(pack_tmp, mask_right(nbits))
27277  full_data(idata) = data_tmp
27278  pack_tmp = ishft(pack_tmp, -nbits)
27279  idata = idata + 1
27280  data_tmp = ishft(pack_tmp, 28)
27281  ipack = ipack + 1
27282  pack_tmp = packed_data(ipack)
27283  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
27284  pack_tmp = ishft(pack_tmp, -28)
27285  idata = idata + 1
27286  data_tmp = iand(pack_tmp, mask_right(nbits))
27287  full_data(idata) = data_tmp
27288  pack_tmp = ishft(pack_tmp, -nbits)
27289  idata = idata + 1
27290  data_tmp = ishft(pack_tmp, 36)
27291  ipack = ipack + 1
27292  pack_tmp = packed_data(ipack)
27293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
27294  pack_tmp = ishft(pack_tmp, -36)
27295  idata = idata + 1
27296  data_tmp = ishft(pack_tmp, 8)
27297  ipack = ipack + 1
27298  pack_tmp = packed_data(ipack)
27299  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
27300  pack_tmp = ishft(pack_tmp, -8)
27301  idata = idata + 1
27302  data_tmp = iand(pack_tmp, mask_right(nbits))
27303  full_data(idata) = data_tmp
27304  pack_tmp = ishft(pack_tmp, -nbits)
27305  idata = idata + 1
27306  data_tmp = ishft(pack_tmp, 16)
27307  ipack = ipack + 1
27308  pack_tmp = packed_data(ipack)
27309  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
27310  pack_tmp = ishft(pack_tmp, -16)
27311  idata = idata + 1
27312  data_tmp = iand(pack_tmp, mask_right(nbits))
27313  full_data(idata) = data_tmp
27314  pack_tmp = ishft(pack_tmp, -nbits)
27315  idata = idata + 1
27316  data_tmp = ishft(pack_tmp, 24)
27317  ipack = ipack + 1
27318  pack_tmp = packed_data(ipack)
27319  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
27320  pack_tmp = ishft(pack_tmp, -24)
27321  idata = idata + 1
27322  data_tmp = iand(pack_tmp, mask_right(nbits))
27323  full_data(idata) = data_tmp
27324  pack_tmp = ishft(pack_tmp, -nbits)
27325  idata = idata + 1
27326  data_tmp = ishft(pack_tmp, 32)
27327  ipack = ipack + 1
27328  pack_tmp = packed_data(ipack)
27329  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
27330  pack_tmp = ishft(pack_tmp, -32)
27331  idata = idata + 1
27332  data_tmp = ishft(pack_tmp, 4)
27333  ipack = ipack + 1
27334  pack_tmp = packed_data(ipack)
27335  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
27336  pack_tmp = ishft(pack_tmp, -4)
27337  idata = idata + 1
27338  data_tmp = iand(pack_tmp, mask_right(nbits))
27339  full_data(idata) = data_tmp
27340  pack_tmp = ishft(pack_tmp, -nbits)
27341  idata = idata + 1
27342  data_tmp = ishft(pack_tmp, 12)
27343  ipack = ipack + 1
27344  pack_tmp = packed_data(ipack)
27345  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
27346  pack_tmp = ishft(pack_tmp, -12)
27347  idata = idata + 1
27348  data_tmp = iand(pack_tmp, mask_right(nbits))
27349  full_data(idata) = data_tmp
27350  pack_tmp = ishft(pack_tmp, -nbits)
27351  idata = idata + 1
27352  data_tmp = ishft(pack_tmp, 20)
27353  ipack = ipack + 1
27354  pack_tmp = packed_data(ipack)
27355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
27356  pack_tmp = ishft(pack_tmp, -20)
27357  idata = idata + 1
27358  data_tmp = iand(pack_tmp, mask_right(nbits))
27359  full_data(idata) = data_tmp
27360  pack_tmp = ishft(pack_tmp, -nbits)
27361  idata = idata + 1
27362  data_tmp = ishft(pack_tmp, 28)
27363  ipack = ipack + 1
27364  pack_tmp = packed_data(ipack)
27365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
27366  pack_tmp = ishft(pack_tmp, -28)
27367  idata = idata + 1
27368  data_tmp = iand(pack_tmp, mask_right(nbits))
27369  full_data(idata) = data_tmp
27370  pack_tmp = ishft(pack_tmp, -nbits)
27371  idata = idata + 1
27372  data_tmp = ishft(pack_tmp, 36)
27373  ipack = ipack + 1
27374  pack_tmp = packed_data(ipack)
27375  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
27376  pack_tmp = ishft(pack_tmp, -36)
27377  idata = idata + 1
27378  data_tmp = ishft(pack_tmp, 8)
27379  ipack = ipack + 1
27380  pack_tmp = packed_data(ipack)
27381  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
27382  pack_tmp = ishft(pack_tmp, -8)
27383  idata = idata + 1
27384  data_tmp = iand(pack_tmp, mask_right(nbits))
27385  full_data(idata) = data_tmp
27386  pack_tmp = ishft(pack_tmp, -nbits)
27387  idata = idata + 1
27388  data_tmp = ishft(pack_tmp, 16)
27389  ipack = ipack + 1
27390  pack_tmp = packed_data(ipack)
27391  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
27392  pack_tmp = ishft(pack_tmp, -16)
27393  idata = idata + 1
27394  data_tmp = iand(pack_tmp, mask_right(nbits))
27395  full_data(idata) = data_tmp
27396  pack_tmp = ishft(pack_tmp, -nbits)
27397  idata = idata + 1
27398  data_tmp = ishft(pack_tmp, 24)
27399  ipack = ipack + 1
27400  pack_tmp = packed_data(ipack)
27401  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
27402  pack_tmp = ishft(pack_tmp, -24)
27403  idata = idata + 1
27404  data_tmp = iand(pack_tmp, mask_right(nbits))
27405  full_data(idata) = data_tmp
27406  pack_tmp = ishft(pack_tmp, -nbits)
27407  idata = idata + 1
27408  data_tmp = ishft(pack_tmp, 32)
27409  ipack = ipack + 1
27410  pack_tmp = packed_data(ipack)
27411  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
27412  pack_tmp = ishft(pack_tmp, -32)
27413  idata = idata + 1
27414  data_tmp = ishft(pack_tmp, 4)
27415  ipack = ipack + 1
27416  pack_tmp = packed_data(ipack)
27417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
27418  pack_tmp = ishft(pack_tmp, -4)
27419  idata = idata + 1
27420  data_tmp = iand(pack_tmp, mask_right(nbits))
27421  full_data(idata) = data_tmp
27422  pack_tmp = ishft(pack_tmp, -nbits)
27423  idata = idata + 1
27424  data_tmp = ishft(pack_tmp, 12)
27425  ipack = ipack + 1
27426  pack_tmp = packed_data(ipack)
27427  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
27428  pack_tmp = ishft(pack_tmp, -12)
27429  idata = idata + 1
27430  data_tmp = iand(pack_tmp, mask_right(nbits))
27431  full_data(idata) = data_tmp
27432  pack_tmp = ishft(pack_tmp, -nbits)
27433  idata = idata + 1
27434  data_tmp = ishft(pack_tmp, 20)
27435  ipack = ipack + 1
27436  pack_tmp = packed_data(ipack)
27437  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
27438  pack_tmp = ishft(pack_tmp, -20)
27439  idata = idata + 1
27440  data_tmp = iand(pack_tmp, mask_right(nbits))
27441  full_data(idata) = data_tmp
27442  pack_tmp = ishft(pack_tmp, -nbits)
27443  idata = idata + 1
27444  data_tmp = ishft(pack_tmp, 28)
27445  ipack = ipack + 1
27446  pack_tmp = packed_data(ipack)
27447  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
27448  pack_tmp = ishft(pack_tmp, -28)
27449  idata = idata + 1
27450  data_tmp = iand(pack_tmp, mask_right(nbits))
27451  full_data(idata) = data_tmp
27452  pack_tmp = ishft(pack_tmp, -nbits)
27453  END DO
27454  IF (ndata_rep < ndata) THEN
27455  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
27456  END IF
27457  END SUBROUTINE bits2ints_36
27458 
27459 ! **************************************************************************************************
27460 !> \brief ...
27461 !> \param Ndata ...
27462 !> \param packed_data ...
27463 !> \param full_data ...
27464 ! **************************************************************************************************
27465  SUBROUTINE ints2bits_37(Ndata, packed_data, full_data)
27466  INTEGER, INTENT(IN) :: Ndata
27467  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
27468  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
27469 
27470  INTEGER, PARAMETER :: Nbits = 37
27471 
27472  INTEGER :: idata, ipack, kdata, Ndata_rep
27473  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
27474 
27475  idata = 0
27476  ipack = 0
27477  ndata_rep = (ndata/64)*64
27478  DO kdata = 1, ndata_rep, 64
27479  pack_tmp = 0
27480  idata = idata + 1
27481  data_tmp = full_data(idata)
27482  data_tmp = ishft(data_tmp, 27)
27483  pack_tmp = ior(pack_tmp, data_tmp)
27484  pack_tmp = ishft(pack_tmp, -27)
27485  idata = idata + 1
27486  data_tmp = full_data(idata)
27487  data_tmp = ishft(data_tmp, 27)
27488  data_tmp = iand(data_tmp, mask_left(27))
27489  pack_tmp = ior(pack_tmp, data_tmp)
27490  ipack = ipack + 1
27491  packed_data(ipack) = pack_tmp
27492  data_tmp = full_data(idata)
27493  pack_tmp = ishft(data_tmp, 54)
27494  pack_tmp = ishft(pack_tmp, -37)
27495  idata = idata + 1
27496  data_tmp = full_data(idata)
27497  data_tmp = ishft(data_tmp, 27)
27498  pack_tmp = ior(pack_tmp, data_tmp)
27499  pack_tmp = ishft(pack_tmp, -17)
27500  idata = idata + 1
27501  data_tmp = full_data(idata)
27502  data_tmp = ishft(data_tmp, 27)
27503  data_tmp = iand(data_tmp, mask_left(17))
27504  pack_tmp = ior(pack_tmp, data_tmp)
27505  ipack = ipack + 1
27506  packed_data(ipack) = pack_tmp
27507  data_tmp = full_data(idata)
27508  pack_tmp = ishft(data_tmp, 44)
27509  pack_tmp = ishft(pack_tmp, -37)
27510  idata = idata + 1
27511  data_tmp = full_data(idata)
27512  data_tmp = ishft(data_tmp, 27)
27513  pack_tmp = ior(pack_tmp, data_tmp)
27514  pack_tmp = ishft(pack_tmp, -7)
27515  idata = idata + 1
27516  data_tmp = full_data(idata)
27517  data_tmp = ishft(data_tmp, 27)
27518  data_tmp = iand(data_tmp, mask_left(7))
27519  pack_tmp = ior(pack_tmp, data_tmp)
27520  ipack = ipack + 1
27521  packed_data(ipack) = pack_tmp
27522  data_tmp = full_data(idata)
27523  pack_tmp = ishft(data_tmp, 34)
27524  pack_tmp = ishft(pack_tmp, -34)
27525  idata = idata + 1
27526  data_tmp = full_data(idata)
27527  data_tmp = ishft(data_tmp, 27)
27528  data_tmp = iand(data_tmp, mask_left(34))
27529  pack_tmp = ior(pack_tmp, data_tmp)
27530  ipack = ipack + 1
27531  packed_data(ipack) = pack_tmp
27532  data_tmp = full_data(idata)
27533  pack_tmp = ishft(data_tmp, 61)
27534  pack_tmp = ishft(pack_tmp, -37)
27535  idata = idata + 1
27536  data_tmp = full_data(idata)
27537  data_tmp = ishft(data_tmp, 27)
27538  pack_tmp = ior(pack_tmp, data_tmp)
27539  pack_tmp = ishft(pack_tmp, -24)
27540  idata = idata + 1
27541  data_tmp = full_data(idata)
27542  data_tmp = ishft(data_tmp, 27)
27543  data_tmp = iand(data_tmp, mask_left(24))
27544  pack_tmp = ior(pack_tmp, data_tmp)
27545  ipack = ipack + 1
27546  packed_data(ipack) = pack_tmp
27547  data_tmp = full_data(idata)
27548  pack_tmp = ishft(data_tmp, 51)
27549  pack_tmp = ishft(pack_tmp, -37)
27550  idata = idata + 1
27551  data_tmp = full_data(idata)
27552  data_tmp = ishft(data_tmp, 27)
27553  pack_tmp = ior(pack_tmp, data_tmp)
27554  pack_tmp = ishft(pack_tmp, -14)
27555  idata = idata + 1
27556  data_tmp = full_data(idata)
27557  data_tmp = ishft(data_tmp, 27)
27558  data_tmp = iand(data_tmp, mask_left(14))
27559  pack_tmp = ior(pack_tmp, data_tmp)
27560  ipack = ipack + 1
27561  packed_data(ipack) = pack_tmp
27562  data_tmp = full_data(idata)
27563  pack_tmp = ishft(data_tmp, 41)
27564  pack_tmp = ishft(pack_tmp, -37)
27565  idata = idata + 1
27566  data_tmp = full_data(idata)
27567  data_tmp = ishft(data_tmp, 27)
27568  pack_tmp = ior(pack_tmp, data_tmp)
27569  pack_tmp = ishft(pack_tmp, -4)
27570  idata = idata + 1
27571  data_tmp = full_data(idata)
27572  data_tmp = ishft(data_tmp, 27)
27573  data_tmp = iand(data_tmp, mask_left(4))
27574  pack_tmp = ior(pack_tmp, data_tmp)
27575  ipack = ipack + 1
27576  packed_data(ipack) = pack_tmp
27577  data_tmp = full_data(idata)
27578  pack_tmp = ishft(data_tmp, 31)
27579  pack_tmp = ishft(pack_tmp, -31)
27580  idata = idata + 1
27581  data_tmp = full_data(idata)
27582  data_tmp = ishft(data_tmp, 27)
27583  data_tmp = iand(data_tmp, mask_left(31))
27584  pack_tmp = ior(pack_tmp, data_tmp)
27585  ipack = ipack + 1
27586  packed_data(ipack) = pack_tmp
27587  data_tmp = full_data(idata)
27588  pack_tmp = ishft(data_tmp, 58)
27589  pack_tmp = ishft(pack_tmp, -37)
27590  idata = idata + 1
27591  data_tmp = full_data(idata)
27592  data_tmp = ishft(data_tmp, 27)
27593  pack_tmp = ior(pack_tmp, data_tmp)
27594  pack_tmp = ishft(pack_tmp, -21)
27595  idata = idata + 1
27596  data_tmp = full_data(idata)
27597  data_tmp = ishft(data_tmp, 27)
27598  data_tmp = iand(data_tmp, mask_left(21))
27599  pack_tmp = ior(pack_tmp, data_tmp)
27600  ipack = ipack + 1
27601  packed_data(ipack) = pack_tmp
27602  data_tmp = full_data(idata)
27603  pack_tmp = ishft(data_tmp, 48)
27604  pack_tmp = ishft(pack_tmp, -37)
27605  idata = idata + 1
27606  data_tmp = full_data(idata)
27607  data_tmp = ishft(data_tmp, 27)
27608  pack_tmp = ior(pack_tmp, data_tmp)
27609  pack_tmp = ishft(pack_tmp, -11)
27610  idata = idata + 1
27611  data_tmp = full_data(idata)
27612  data_tmp = ishft(data_tmp, 27)
27613  data_tmp = iand(data_tmp, mask_left(11))
27614  pack_tmp = ior(pack_tmp, data_tmp)
27615  ipack = ipack + 1
27616  packed_data(ipack) = pack_tmp
27617  data_tmp = full_data(idata)
27618  pack_tmp = ishft(data_tmp, 38)
27619  pack_tmp = ishft(pack_tmp, -37)
27620  idata = idata + 1
27621  data_tmp = full_data(idata)
27622  data_tmp = ishft(data_tmp, 27)
27623  pack_tmp = ior(pack_tmp, data_tmp)
27624  pack_tmp = ishft(pack_tmp, -1)
27625  idata = idata + 1
27626  data_tmp = full_data(idata)
27627  data_tmp = ishft(data_tmp, 27)
27628  data_tmp = iand(data_tmp, mask_left(1))
27629  pack_tmp = ior(pack_tmp, data_tmp)
27630  ipack = ipack + 1
27631  packed_data(ipack) = pack_tmp
27632  data_tmp = full_data(idata)
27633  pack_tmp = ishft(data_tmp, 28)
27634  pack_tmp = ishft(pack_tmp, -28)
27635  idata = idata + 1
27636  data_tmp = full_data(idata)
27637  data_tmp = ishft(data_tmp, 27)
27638  data_tmp = iand(data_tmp, mask_left(28))
27639  pack_tmp = ior(pack_tmp, data_tmp)
27640  ipack = ipack + 1
27641  packed_data(ipack) = pack_tmp
27642  data_tmp = full_data(idata)
27643  pack_tmp = ishft(data_tmp, 55)
27644  pack_tmp = ishft(pack_tmp, -37)
27645  idata = idata + 1
27646  data_tmp = full_data(idata)
27647  data_tmp = ishft(data_tmp, 27)
27648  pack_tmp = ior(pack_tmp, data_tmp)
27649  pack_tmp = ishft(pack_tmp, -18)
27650  idata = idata + 1
27651  data_tmp = full_data(idata)
27652  data_tmp = ishft(data_tmp, 27)
27653  data_tmp = iand(data_tmp, mask_left(18))
27654  pack_tmp = ior(pack_tmp, data_tmp)
27655  ipack = ipack + 1
27656  packed_data(ipack) = pack_tmp
27657  data_tmp = full_data(idata)
27658  pack_tmp = ishft(data_tmp, 45)
27659  pack_tmp = ishft(pack_tmp, -37)
27660  idata = idata + 1
27661  data_tmp = full_data(idata)
27662  data_tmp = ishft(data_tmp, 27)
27663  pack_tmp = ior(pack_tmp, data_tmp)
27664  pack_tmp = ishft(pack_tmp, -8)
27665  idata = idata + 1
27666  data_tmp = full_data(idata)
27667  data_tmp = ishft(data_tmp, 27)
27668  data_tmp = iand(data_tmp, mask_left(8))
27669  pack_tmp = ior(pack_tmp, data_tmp)
27670  ipack = ipack + 1
27671  packed_data(ipack) = pack_tmp
27672  data_tmp = full_data(idata)
27673  pack_tmp = ishft(data_tmp, 35)
27674  pack_tmp = ishft(pack_tmp, -35)
27675  idata = idata + 1
27676  data_tmp = full_data(idata)
27677  data_tmp = ishft(data_tmp, 27)
27678  data_tmp = iand(data_tmp, mask_left(35))
27679  pack_tmp = ior(pack_tmp, data_tmp)
27680  ipack = ipack + 1
27681  packed_data(ipack) = pack_tmp
27682  data_tmp = full_data(idata)
27683  pack_tmp = ishft(data_tmp, 62)
27684  pack_tmp = ishft(pack_tmp, -37)
27685  idata = idata + 1
27686  data_tmp = full_data(idata)
27687  data_tmp = ishft(data_tmp, 27)
27688  pack_tmp = ior(pack_tmp, data_tmp)
27689  pack_tmp = ishft(pack_tmp, -25)
27690  idata = idata + 1
27691  data_tmp = full_data(idata)
27692  data_tmp = ishft(data_tmp, 27)
27693  data_tmp = iand(data_tmp, mask_left(25))
27694  pack_tmp = ior(pack_tmp, data_tmp)
27695  ipack = ipack + 1
27696  packed_data(ipack) = pack_tmp
27697  data_tmp = full_data(idata)
27698  pack_tmp = ishft(data_tmp, 52)
27699  pack_tmp = ishft(pack_tmp, -37)
27700  idata = idata + 1
27701  data_tmp = full_data(idata)
27702  data_tmp = ishft(data_tmp, 27)
27703  pack_tmp = ior(pack_tmp, data_tmp)
27704  pack_tmp = ishft(pack_tmp, -15)
27705  idata = idata + 1
27706  data_tmp = full_data(idata)
27707  data_tmp = ishft(data_tmp, 27)
27708  data_tmp = iand(data_tmp, mask_left(15))
27709  pack_tmp = ior(pack_tmp, data_tmp)
27710  ipack = ipack + 1
27711  packed_data(ipack) = pack_tmp
27712  data_tmp = full_data(idata)
27713  pack_tmp = ishft(data_tmp, 42)
27714  pack_tmp = ishft(pack_tmp, -37)
27715  idata = idata + 1
27716  data_tmp = full_data(idata)
27717  data_tmp = ishft(data_tmp, 27)
27718  pack_tmp = ior(pack_tmp, data_tmp)
27719  pack_tmp = ishft(pack_tmp, -5)
27720  idata = idata + 1
27721  data_tmp = full_data(idata)
27722  data_tmp = ishft(data_tmp, 27)
27723  data_tmp = iand(data_tmp, mask_left(5))
27724  pack_tmp = ior(pack_tmp, data_tmp)
27725  ipack = ipack + 1
27726  packed_data(ipack) = pack_tmp
27727  data_tmp = full_data(idata)
27728  pack_tmp = ishft(data_tmp, 32)
27729  pack_tmp = ishft(pack_tmp, -32)
27730  idata = idata + 1
27731  data_tmp = full_data(idata)
27732  data_tmp = ishft(data_tmp, 27)
27733  data_tmp = iand(data_tmp, mask_left(32))
27734  pack_tmp = ior(pack_tmp, data_tmp)
27735  ipack = ipack + 1
27736  packed_data(ipack) = pack_tmp
27737  data_tmp = full_data(idata)
27738  pack_tmp = ishft(data_tmp, 59)
27739  pack_tmp = ishft(pack_tmp, -37)
27740  idata = idata + 1
27741  data_tmp = full_data(idata)
27742  data_tmp = ishft(data_tmp, 27)
27743  pack_tmp = ior(pack_tmp, data_tmp)
27744  pack_tmp = ishft(pack_tmp, -22)
27745  idata = idata + 1
27746  data_tmp = full_data(idata)
27747  data_tmp = ishft(data_tmp, 27)
27748  data_tmp = iand(data_tmp, mask_left(22))
27749  pack_tmp = ior(pack_tmp, data_tmp)
27750  ipack = ipack + 1
27751  packed_data(ipack) = pack_tmp
27752  data_tmp = full_data(idata)
27753  pack_tmp = ishft(data_tmp, 49)
27754  pack_tmp = ishft(pack_tmp, -37)
27755  idata = idata + 1
27756  data_tmp = full_data(idata)
27757  data_tmp = ishft(data_tmp, 27)
27758  pack_tmp = ior(pack_tmp, data_tmp)
27759  pack_tmp = ishft(pack_tmp, -12)
27760  idata = idata + 1
27761  data_tmp = full_data(idata)
27762  data_tmp = ishft(data_tmp, 27)
27763  data_tmp = iand(data_tmp, mask_left(12))
27764  pack_tmp = ior(pack_tmp, data_tmp)
27765  ipack = ipack + 1
27766  packed_data(ipack) = pack_tmp
27767  data_tmp = full_data(idata)
27768  pack_tmp = ishft(data_tmp, 39)
27769  pack_tmp = ishft(pack_tmp, -37)
27770  idata = idata + 1
27771  data_tmp = full_data(idata)
27772  data_tmp = ishft(data_tmp, 27)
27773  pack_tmp = ior(pack_tmp, data_tmp)
27774  pack_tmp = ishft(pack_tmp, -2)
27775  idata = idata + 1
27776  data_tmp = full_data(idata)
27777  data_tmp = ishft(data_tmp, 27)
27778  data_tmp = iand(data_tmp, mask_left(2))
27779  pack_tmp = ior(pack_tmp, data_tmp)
27780  ipack = ipack + 1
27781  packed_data(ipack) = pack_tmp
27782  data_tmp = full_data(idata)
27783  pack_tmp = ishft(data_tmp, 29)
27784  pack_tmp = ishft(pack_tmp, -29)
27785  idata = idata + 1
27786  data_tmp = full_data(idata)
27787  data_tmp = ishft(data_tmp, 27)
27788  data_tmp = iand(data_tmp, mask_left(29))
27789  pack_tmp = ior(pack_tmp, data_tmp)
27790  ipack = ipack + 1
27791  packed_data(ipack) = pack_tmp
27792  data_tmp = full_data(idata)
27793  pack_tmp = ishft(data_tmp, 56)
27794  pack_tmp = ishft(pack_tmp, -37)
27795  idata = idata + 1
27796  data_tmp = full_data(idata)
27797  data_tmp = ishft(data_tmp, 27)
27798  pack_tmp = ior(pack_tmp, data_tmp)
27799  pack_tmp = ishft(pack_tmp, -19)
27800  idata = idata + 1
27801  data_tmp = full_data(idata)
27802  data_tmp = ishft(data_tmp, 27)
27803  data_tmp = iand(data_tmp, mask_left(19))
27804  pack_tmp = ior(pack_tmp, data_tmp)
27805  ipack = ipack + 1
27806  packed_data(ipack) = pack_tmp
27807  data_tmp = full_data(idata)
27808  pack_tmp = ishft(data_tmp, 46)
27809  pack_tmp = ishft(pack_tmp, -37)
27810  idata = idata + 1
27811  data_tmp = full_data(idata)
27812  data_tmp = ishft(data_tmp, 27)
27813  pack_tmp = ior(pack_tmp, data_tmp)
27814  pack_tmp = ishft(pack_tmp, -9)
27815  idata = idata + 1
27816  data_tmp = full_data(idata)
27817  data_tmp = ishft(data_tmp, 27)
27818  data_tmp = iand(data_tmp, mask_left(9))
27819  pack_tmp = ior(pack_tmp, data_tmp)
27820  ipack = ipack + 1
27821  packed_data(ipack) = pack_tmp
27822  data_tmp = full_data(idata)
27823  pack_tmp = ishft(data_tmp, 36)
27824  pack_tmp = ishft(pack_tmp, -36)
27825  idata = idata + 1
27826  data_tmp = full_data(idata)
27827  data_tmp = ishft(data_tmp, 27)
27828  data_tmp = iand(data_tmp, mask_left(36))
27829  pack_tmp = ior(pack_tmp, data_tmp)
27830  ipack = ipack + 1
27831  packed_data(ipack) = pack_tmp
27832  data_tmp = full_data(idata)
27833  pack_tmp = ishft(data_tmp, 63)
27834  pack_tmp = ishft(pack_tmp, -37)
27835  idata = idata + 1
27836  data_tmp = full_data(idata)
27837  data_tmp = ishft(data_tmp, 27)
27838  pack_tmp = ior(pack_tmp, data_tmp)
27839  pack_tmp = ishft(pack_tmp, -26)
27840  idata = idata + 1
27841  data_tmp = full_data(idata)
27842  data_tmp = ishft(data_tmp, 27)
27843  data_tmp = iand(data_tmp, mask_left(26))
27844  pack_tmp = ior(pack_tmp, data_tmp)
27845  ipack = ipack + 1
27846  packed_data(ipack) = pack_tmp
27847  data_tmp = full_data(idata)
27848  pack_tmp = ishft(data_tmp, 53)
27849  pack_tmp = ishft(pack_tmp, -37)
27850  idata = idata + 1
27851  data_tmp = full_data(idata)
27852  data_tmp = ishft(data_tmp, 27)
27853  pack_tmp = ior(pack_tmp, data_tmp)
27854  pack_tmp = ishft(pack_tmp, -16)
27855  idata = idata + 1
27856  data_tmp = full_data(idata)
27857  data_tmp = ishft(data_tmp, 27)
27858  data_tmp = iand(data_tmp, mask_left(16))
27859  pack_tmp = ior(pack_tmp, data_tmp)
27860  ipack = ipack + 1
27861  packed_data(ipack) = pack_tmp
27862  data_tmp = full_data(idata)
27863  pack_tmp = ishft(data_tmp, 43)
27864  pack_tmp = ishft(pack_tmp, -37)
27865  idata = idata + 1
27866  data_tmp = full_data(idata)
27867  data_tmp = ishft(data_tmp, 27)
27868  pack_tmp = ior(pack_tmp, data_tmp)
27869  pack_tmp = ishft(pack_tmp, -6)
27870  idata = idata + 1
27871  data_tmp = full_data(idata)
27872  data_tmp = ishft(data_tmp, 27)
27873  data_tmp = iand(data_tmp, mask_left(6))
27874  pack_tmp = ior(pack_tmp, data_tmp)
27875  ipack = ipack + 1
27876  packed_data(ipack) = pack_tmp
27877  data_tmp = full_data(idata)
27878  pack_tmp = ishft(data_tmp, 33)
27879  pack_tmp = ishft(pack_tmp, -33)
27880  idata = idata + 1
27881  data_tmp = full_data(idata)
27882  data_tmp = ishft(data_tmp, 27)
27883  data_tmp = iand(data_tmp, mask_left(33))
27884  pack_tmp = ior(pack_tmp, data_tmp)
27885  ipack = ipack + 1
27886  packed_data(ipack) = pack_tmp
27887  data_tmp = full_data(idata)
27888  pack_tmp = ishft(data_tmp, 60)
27889  pack_tmp = ishft(pack_tmp, -37)
27890  idata = idata + 1
27891  data_tmp = full_data(idata)
27892  data_tmp = ishft(data_tmp, 27)
27893  pack_tmp = ior(pack_tmp, data_tmp)
27894  pack_tmp = ishft(pack_tmp, -23)
27895  idata = idata + 1
27896  data_tmp = full_data(idata)
27897  data_tmp = ishft(data_tmp, 27)
27898  data_tmp = iand(data_tmp, mask_left(23))
27899  pack_tmp = ior(pack_tmp, data_tmp)
27900  ipack = ipack + 1
27901  packed_data(ipack) = pack_tmp
27902  data_tmp = full_data(idata)
27903  pack_tmp = ishft(data_tmp, 50)
27904  pack_tmp = ishft(pack_tmp, -37)
27905  idata = idata + 1
27906  data_tmp = full_data(idata)
27907  data_tmp = ishft(data_tmp, 27)
27908  pack_tmp = ior(pack_tmp, data_tmp)
27909  pack_tmp = ishft(pack_tmp, -13)
27910  idata = idata + 1
27911  data_tmp = full_data(idata)
27912  data_tmp = ishft(data_tmp, 27)
27913  data_tmp = iand(data_tmp, mask_left(13))
27914  pack_tmp = ior(pack_tmp, data_tmp)
27915  ipack = ipack + 1
27916  packed_data(ipack) = pack_tmp
27917  data_tmp = full_data(idata)
27918  pack_tmp = ishft(data_tmp, 40)
27919  pack_tmp = ishft(pack_tmp, -37)
27920  idata = idata + 1
27921  data_tmp = full_data(idata)
27922  data_tmp = ishft(data_tmp, 27)
27923  pack_tmp = ior(pack_tmp, data_tmp)
27924  pack_tmp = ishft(pack_tmp, -3)
27925  idata = idata + 1
27926  data_tmp = full_data(idata)
27927  data_tmp = ishft(data_tmp, 27)
27928  data_tmp = iand(data_tmp, mask_left(3))
27929  pack_tmp = ior(pack_tmp, data_tmp)
27930  ipack = ipack + 1
27931  packed_data(ipack) = pack_tmp
27932  data_tmp = full_data(idata)
27933  pack_tmp = ishft(data_tmp, 30)
27934  pack_tmp = ishft(pack_tmp, -30)
27935  idata = idata + 1
27936  data_tmp = full_data(idata)
27937  data_tmp = ishft(data_tmp, 27)
27938  data_tmp = iand(data_tmp, mask_left(30))
27939  pack_tmp = ior(pack_tmp, data_tmp)
27940  ipack = ipack + 1
27941  packed_data(ipack) = pack_tmp
27942  data_tmp = full_data(idata)
27943  pack_tmp = ishft(data_tmp, 57)
27944  pack_tmp = ishft(pack_tmp, -37)
27945  idata = idata + 1
27946  data_tmp = full_data(idata)
27947  data_tmp = ishft(data_tmp, 27)
27948  pack_tmp = ior(pack_tmp, data_tmp)
27949  pack_tmp = ishft(pack_tmp, -20)
27950  idata = idata + 1
27951  data_tmp = full_data(idata)
27952  data_tmp = ishft(data_tmp, 27)
27953  data_tmp = iand(data_tmp, mask_left(20))
27954  pack_tmp = ior(pack_tmp, data_tmp)
27955  ipack = ipack + 1
27956  packed_data(ipack) = pack_tmp
27957  data_tmp = full_data(idata)
27958  pack_tmp = ishft(data_tmp, 47)
27959  pack_tmp = ishft(pack_tmp, -37)
27960  idata = idata + 1
27961  data_tmp = full_data(idata)
27962  data_tmp = ishft(data_tmp, 27)
27963  pack_tmp = ior(pack_tmp, data_tmp)
27964  pack_tmp = ishft(pack_tmp, -10)
27965  idata = idata + 1
27966  data_tmp = full_data(idata)
27967  data_tmp = ishft(data_tmp, 27)
27968  data_tmp = iand(data_tmp, mask_left(10))
27969  pack_tmp = ior(pack_tmp, data_tmp)
27970  ipack = ipack + 1
27971  packed_data(ipack) = pack_tmp
27972  data_tmp = full_data(idata)
27973  pack_tmp = ishft(data_tmp, 37)
27974  pack_tmp = ishft(pack_tmp, -37)
27975  idata = idata + 1
27976  data_tmp = full_data(idata)
27977  data_tmp = ishft(data_tmp, 27)
27978  pack_tmp = ior(pack_tmp, data_tmp)
27979  pack_tmp = ishft(pack_tmp, 0)
27980  pack_tmp = ishft(pack_tmp, 0)
27981  ipack = ipack + 1
27982  packed_data(ipack) = pack_tmp
27983  END DO
27984  IF (ndata_rep < ndata) THEN
27985  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
27986  END IF
27987  END SUBROUTINE ints2bits_37
27988 
27989 ! **************************************************************************************************
27990 !> \brief ...
27991 !> \param Ndata ...
27992 !> \param packed_data ...
27993 !> \param full_data ...
27994 ! **************************************************************************************************
27995  SUBROUTINE bits2ints_37(Ndata, packed_data, full_data)
27996  INTEGER, INTENT(IN) :: Ndata
27997  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
27998  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
27999 
28000  INTEGER, PARAMETER :: Nbits = 37
28001 
28002  INTEGER :: idata, ipack, kdata, Ndata_rep
28003  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
28004 
28005  ipack = 0
28006  idata = 0
28007  pack_tmp = 0
28008  ndata_rep = (ndata/64)*64
28009  DO kdata = 1, ndata_rep, 64
28010  idata = idata + 1
28011  data_tmp = ishft(pack_tmp, 37)
28012  ipack = ipack + 1
28013  pack_tmp = packed_data(ipack)
28014  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
28015  pack_tmp = ishft(pack_tmp, -37)
28016  idata = idata + 1
28017  data_tmp = ishft(pack_tmp, 10)
28018  ipack = ipack + 1
28019  pack_tmp = packed_data(ipack)
28020  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
28021  pack_tmp = ishft(pack_tmp, -10)
28022  idata = idata + 1
28023  data_tmp = iand(pack_tmp, mask_right(nbits))
28024  full_data(idata) = data_tmp
28025  pack_tmp = ishft(pack_tmp, -nbits)
28026  idata = idata + 1
28027  data_tmp = ishft(pack_tmp, 20)
28028  ipack = ipack + 1
28029  pack_tmp = packed_data(ipack)
28030  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
28031  pack_tmp = ishft(pack_tmp, -20)
28032  idata = idata + 1
28033  data_tmp = iand(pack_tmp, mask_right(nbits))
28034  full_data(idata) = data_tmp
28035  pack_tmp = ishft(pack_tmp, -nbits)
28036  idata = idata + 1
28037  data_tmp = ishft(pack_tmp, 30)
28038  ipack = ipack + 1
28039  pack_tmp = packed_data(ipack)
28040  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
28041  pack_tmp = ishft(pack_tmp, -30)
28042  idata = idata + 1
28043  data_tmp = ishft(pack_tmp, 3)
28044  ipack = ipack + 1
28045  pack_tmp = packed_data(ipack)
28046  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
28047  pack_tmp = ishft(pack_tmp, -3)
28048  idata = idata + 1
28049  data_tmp = iand(pack_tmp, mask_right(nbits))
28050  full_data(idata) = data_tmp
28051  pack_tmp = ishft(pack_tmp, -nbits)
28052  idata = idata + 1
28053  data_tmp = ishft(pack_tmp, 13)
28054  ipack = ipack + 1
28055  pack_tmp = packed_data(ipack)
28056  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
28057  pack_tmp = ishft(pack_tmp, -13)
28058  idata = idata + 1
28059  data_tmp = iand(pack_tmp, mask_right(nbits))
28060  full_data(idata) = data_tmp
28061  pack_tmp = ishft(pack_tmp, -nbits)
28062  idata = idata + 1
28063  data_tmp = ishft(pack_tmp, 23)
28064  ipack = ipack + 1
28065  pack_tmp = packed_data(ipack)
28066  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
28067  pack_tmp = ishft(pack_tmp, -23)
28068  idata = idata + 1
28069  data_tmp = iand(pack_tmp, mask_right(nbits))
28070  full_data(idata) = data_tmp
28071  pack_tmp = ishft(pack_tmp, -nbits)
28072  idata = idata + 1
28073  data_tmp = ishft(pack_tmp, 33)
28074  ipack = ipack + 1
28075  pack_tmp = packed_data(ipack)
28076  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
28077  pack_tmp = ishft(pack_tmp, -33)
28078  idata = idata + 1
28079  data_tmp = ishft(pack_tmp, 6)
28080  ipack = ipack + 1
28081  pack_tmp = packed_data(ipack)
28082  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
28083  pack_tmp = ishft(pack_tmp, -6)
28084  idata = idata + 1
28085  data_tmp = iand(pack_tmp, mask_right(nbits))
28086  full_data(idata) = data_tmp
28087  pack_tmp = ishft(pack_tmp, -nbits)
28088  idata = idata + 1
28089  data_tmp = ishft(pack_tmp, 16)
28090  ipack = ipack + 1
28091  pack_tmp = packed_data(ipack)
28092  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
28093  pack_tmp = ishft(pack_tmp, -16)
28094  idata = idata + 1
28095  data_tmp = iand(pack_tmp, mask_right(nbits))
28096  full_data(idata) = data_tmp
28097  pack_tmp = ishft(pack_tmp, -nbits)
28098  idata = idata + 1
28099  data_tmp = ishft(pack_tmp, 26)
28100  ipack = ipack + 1
28101  pack_tmp = packed_data(ipack)
28102  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
28103  pack_tmp = ishft(pack_tmp, -26)
28104  idata = idata + 1
28105  data_tmp = iand(pack_tmp, mask_right(nbits))
28106  full_data(idata) = data_tmp
28107  pack_tmp = ishft(pack_tmp, -nbits)
28108  idata = idata + 1
28109  data_tmp = ishft(pack_tmp, 36)
28110  ipack = ipack + 1
28111  pack_tmp = packed_data(ipack)
28112  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
28113  pack_tmp = ishft(pack_tmp, -36)
28114  idata = idata + 1
28115  data_tmp = ishft(pack_tmp, 9)
28116  ipack = ipack + 1
28117  pack_tmp = packed_data(ipack)
28118  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
28119  pack_tmp = ishft(pack_tmp, -9)
28120  idata = idata + 1
28121  data_tmp = iand(pack_tmp, mask_right(nbits))
28122  full_data(idata) = data_tmp
28123  pack_tmp = ishft(pack_tmp, -nbits)
28124  idata = idata + 1
28125  data_tmp = ishft(pack_tmp, 19)
28126  ipack = ipack + 1
28127  pack_tmp = packed_data(ipack)
28128  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
28129  pack_tmp = ishft(pack_tmp, -19)
28130  idata = idata + 1
28131  data_tmp = iand(pack_tmp, mask_right(nbits))
28132  full_data(idata) = data_tmp
28133  pack_tmp = ishft(pack_tmp, -nbits)
28134  idata = idata + 1
28135  data_tmp = ishft(pack_tmp, 29)
28136  ipack = ipack + 1
28137  pack_tmp = packed_data(ipack)
28138  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
28139  pack_tmp = ishft(pack_tmp, -29)
28140  idata = idata + 1
28141  data_tmp = ishft(pack_tmp, 2)
28142  ipack = ipack + 1
28143  pack_tmp = packed_data(ipack)
28144  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
28145  pack_tmp = ishft(pack_tmp, -2)
28146  idata = idata + 1
28147  data_tmp = iand(pack_tmp, mask_right(nbits))
28148  full_data(idata) = data_tmp
28149  pack_tmp = ishft(pack_tmp, -nbits)
28150  idata = idata + 1
28151  data_tmp = ishft(pack_tmp, 12)
28152  ipack = ipack + 1
28153  pack_tmp = packed_data(ipack)
28154  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
28155  pack_tmp = ishft(pack_tmp, -12)
28156  idata = idata + 1
28157  data_tmp = iand(pack_tmp, mask_right(nbits))
28158  full_data(idata) = data_tmp
28159  pack_tmp = ishft(pack_tmp, -nbits)
28160  idata = idata + 1
28161  data_tmp = ishft(pack_tmp, 22)
28162  ipack = ipack + 1
28163  pack_tmp = packed_data(ipack)
28164  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
28165  pack_tmp = ishft(pack_tmp, -22)
28166  idata = idata + 1
28167  data_tmp = iand(pack_tmp, mask_right(nbits))
28168  full_data(idata) = data_tmp
28169  pack_tmp = ishft(pack_tmp, -nbits)
28170  idata = idata + 1
28171  data_tmp = ishft(pack_tmp, 32)
28172  ipack = ipack + 1
28173  pack_tmp = packed_data(ipack)
28174  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
28175  pack_tmp = ishft(pack_tmp, -32)
28176  idata = idata + 1
28177  data_tmp = ishft(pack_tmp, 5)
28178  ipack = ipack + 1
28179  pack_tmp = packed_data(ipack)
28180  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
28181  pack_tmp = ishft(pack_tmp, -5)
28182  idata = idata + 1
28183  data_tmp = iand(pack_tmp, mask_right(nbits))
28184  full_data(idata) = data_tmp
28185  pack_tmp = ishft(pack_tmp, -nbits)
28186  idata = idata + 1
28187  data_tmp = ishft(pack_tmp, 15)
28188  ipack = ipack + 1
28189  pack_tmp = packed_data(ipack)
28190  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
28191  pack_tmp = ishft(pack_tmp, -15)
28192  idata = idata + 1
28193  data_tmp = iand(pack_tmp, mask_right(nbits))
28194  full_data(idata) = data_tmp
28195  pack_tmp = ishft(pack_tmp, -nbits)
28196  idata = idata + 1
28197  data_tmp = ishft(pack_tmp, 25)
28198  ipack = ipack + 1
28199  pack_tmp = packed_data(ipack)
28200  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
28201  pack_tmp = ishft(pack_tmp, -25)
28202  idata = idata + 1
28203  data_tmp = iand(pack_tmp, mask_right(nbits))
28204  full_data(idata) = data_tmp
28205  pack_tmp = ishft(pack_tmp, -nbits)
28206  idata = idata + 1
28207  data_tmp = ishft(pack_tmp, 35)
28208  ipack = ipack + 1
28209  pack_tmp = packed_data(ipack)
28210  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
28211  pack_tmp = ishft(pack_tmp, -35)
28212  idata = idata + 1
28213  data_tmp = ishft(pack_tmp, 8)
28214  ipack = ipack + 1
28215  pack_tmp = packed_data(ipack)
28216  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
28217  pack_tmp = ishft(pack_tmp, -8)
28218  idata = idata + 1
28219  data_tmp = iand(pack_tmp, mask_right(nbits))
28220  full_data(idata) = data_tmp
28221  pack_tmp = ishft(pack_tmp, -nbits)
28222  idata = idata + 1
28223  data_tmp = ishft(pack_tmp, 18)
28224  ipack = ipack + 1
28225  pack_tmp = packed_data(ipack)
28226  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
28227  pack_tmp = ishft(pack_tmp, -18)
28228  idata = idata + 1
28229  data_tmp = iand(pack_tmp, mask_right(nbits))
28230  full_data(idata) = data_tmp
28231  pack_tmp = ishft(pack_tmp, -nbits)
28232  idata = idata + 1
28233  data_tmp = ishft(pack_tmp, 28)
28234  ipack = ipack + 1
28235  pack_tmp = packed_data(ipack)
28236  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
28237  pack_tmp = ishft(pack_tmp, -28)
28238  idata = idata + 1
28239  data_tmp = ishft(pack_tmp, 1)
28240  ipack = ipack + 1
28241  pack_tmp = packed_data(ipack)
28242  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
28243  pack_tmp = ishft(pack_tmp, -1)
28244  idata = idata + 1
28245  data_tmp = iand(pack_tmp, mask_right(nbits))
28246  full_data(idata) = data_tmp
28247  pack_tmp = ishft(pack_tmp, -nbits)
28248  idata = idata + 1
28249  data_tmp = ishft(pack_tmp, 11)
28250  ipack = ipack + 1
28251  pack_tmp = packed_data(ipack)
28252  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
28253  pack_tmp = ishft(pack_tmp, -11)
28254  idata = idata + 1
28255  data_tmp = iand(pack_tmp, mask_right(nbits))
28256  full_data(idata) = data_tmp
28257  pack_tmp = ishft(pack_tmp, -nbits)
28258  idata = idata + 1
28259  data_tmp = ishft(pack_tmp, 21)
28260  ipack = ipack + 1
28261  pack_tmp = packed_data(ipack)
28262  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
28263  pack_tmp = ishft(pack_tmp, -21)
28264  idata = idata + 1
28265  data_tmp = iand(pack_tmp, mask_right(nbits))
28266  full_data(idata) = data_tmp
28267  pack_tmp = ishft(pack_tmp, -nbits)
28268  idata = idata + 1
28269  data_tmp = ishft(pack_tmp, 31)
28270  ipack = ipack + 1
28271  pack_tmp = packed_data(ipack)
28272  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
28273  pack_tmp = ishft(pack_tmp, -31)
28274  idata = idata + 1
28275  data_tmp = ishft(pack_tmp, 4)
28276  ipack = ipack + 1
28277  pack_tmp = packed_data(ipack)
28278  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
28279  pack_tmp = ishft(pack_tmp, -4)
28280  idata = idata + 1
28281  data_tmp = iand(pack_tmp, mask_right(nbits))
28282  full_data(idata) = data_tmp
28283  pack_tmp = ishft(pack_tmp, -nbits)
28284  idata = idata + 1
28285  data_tmp = ishft(pack_tmp, 14)
28286  ipack = ipack + 1
28287  pack_tmp = packed_data(ipack)
28288  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
28289  pack_tmp = ishft(pack_tmp, -14)
28290  idata = idata + 1
28291  data_tmp = iand(pack_tmp, mask_right(nbits))
28292  full_data(idata) = data_tmp
28293  pack_tmp = ishft(pack_tmp, -nbits)
28294  idata = idata + 1
28295  data_tmp = ishft(pack_tmp, 24)
28296  ipack = ipack + 1
28297  pack_tmp = packed_data(ipack)
28298  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
28299  pack_tmp = ishft(pack_tmp, -24)
28300  idata = idata + 1
28301  data_tmp = iand(pack_tmp, mask_right(nbits))
28302  full_data(idata) = data_tmp
28303  pack_tmp = ishft(pack_tmp, -nbits)
28304  idata = idata + 1
28305  data_tmp = ishft(pack_tmp, 34)
28306  ipack = ipack + 1
28307  pack_tmp = packed_data(ipack)
28308  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
28309  pack_tmp = ishft(pack_tmp, -34)
28310  idata = idata + 1
28311  data_tmp = ishft(pack_tmp, 7)
28312  ipack = ipack + 1
28313  pack_tmp = packed_data(ipack)
28314  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
28315  pack_tmp = ishft(pack_tmp, -7)
28316  idata = idata + 1
28317  data_tmp = iand(pack_tmp, mask_right(nbits))
28318  full_data(idata) = data_tmp
28319  pack_tmp = ishft(pack_tmp, -nbits)
28320  idata = idata + 1
28321  data_tmp = ishft(pack_tmp, 17)
28322  ipack = ipack + 1
28323  pack_tmp = packed_data(ipack)
28324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
28325  pack_tmp = ishft(pack_tmp, -17)
28326  idata = idata + 1
28327  data_tmp = iand(pack_tmp, mask_right(nbits))
28328  full_data(idata) = data_tmp
28329  pack_tmp = ishft(pack_tmp, -nbits)
28330  idata = idata + 1
28331  data_tmp = ishft(pack_tmp, 27)
28332  ipack = ipack + 1
28333  pack_tmp = packed_data(ipack)
28334  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
28335  pack_tmp = ishft(pack_tmp, -27)
28336  idata = idata + 1
28337  data_tmp = iand(pack_tmp, mask_right(nbits))
28338  full_data(idata) = data_tmp
28339  pack_tmp = ishft(pack_tmp, -nbits)
28340  END DO
28341  IF (ndata_rep < ndata) THEN
28342  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
28343  END IF
28344  END SUBROUTINE bits2ints_37
28345 
28346 ! **************************************************************************************************
28347 !> \brief ...
28348 !> \param Ndata ...
28349 !> \param packed_data ...
28350 !> \param full_data ...
28351 ! **************************************************************************************************
28352  SUBROUTINE ints2bits_38(Ndata, packed_data, full_data)
28353  INTEGER, INTENT(IN) :: Ndata
28354  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
28355  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
28356 
28357  INTEGER, PARAMETER :: Nbits = 38
28358 
28359  INTEGER :: idata, ipack, kdata, Ndata_rep
28360  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
28361 
28362  idata = 0
28363  ipack = 0
28364  ndata_rep = (ndata/64)*64
28365  DO kdata = 1, ndata_rep, 64
28366  pack_tmp = 0
28367  idata = idata + 1
28368  data_tmp = full_data(idata)
28369  data_tmp = ishft(data_tmp, 26)
28370  pack_tmp = ior(pack_tmp, data_tmp)
28371  pack_tmp = ishft(pack_tmp, -26)
28372  idata = idata + 1
28373  data_tmp = full_data(idata)
28374  data_tmp = ishft(data_tmp, 26)
28375  data_tmp = iand(data_tmp, mask_left(26))
28376  pack_tmp = ior(pack_tmp, data_tmp)
28377  ipack = ipack + 1
28378  packed_data(ipack) = pack_tmp
28379  data_tmp = full_data(idata)
28380  pack_tmp = ishft(data_tmp, 52)
28381  pack_tmp = ishft(pack_tmp, -38)
28382  idata = idata + 1
28383  data_tmp = full_data(idata)
28384  data_tmp = ishft(data_tmp, 26)
28385  pack_tmp = ior(pack_tmp, data_tmp)
28386  pack_tmp = ishft(pack_tmp, -14)
28387  idata = idata + 1
28388  data_tmp = full_data(idata)
28389  data_tmp = ishft(data_tmp, 26)
28390  data_tmp = iand(data_tmp, mask_left(14))
28391  pack_tmp = ior(pack_tmp, data_tmp)
28392  ipack = ipack + 1
28393  packed_data(ipack) = pack_tmp
28394  data_tmp = full_data(idata)
28395  pack_tmp = ishft(data_tmp, 40)
28396  pack_tmp = ishft(pack_tmp, -38)
28397  idata = idata + 1
28398  data_tmp = full_data(idata)
28399  data_tmp = ishft(data_tmp, 26)
28400  pack_tmp = ior(pack_tmp, data_tmp)
28401  pack_tmp = ishft(pack_tmp, -2)
28402  idata = idata + 1
28403  data_tmp = full_data(idata)
28404  data_tmp = ishft(data_tmp, 26)
28405  data_tmp = iand(data_tmp, mask_left(2))
28406  pack_tmp = ior(pack_tmp, data_tmp)
28407  ipack = ipack + 1
28408  packed_data(ipack) = pack_tmp
28409  data_tmp = full_data(idata)
28410  pack_tmp = ishft(data_tmp, 28)
28411  pack_tmp = ishft(pack_tmp, -28)
28412  idata = idata + 1
28413  data_tmp = full_data(idata)
28414  data_tmp = ishft(data_tmp, 26)
28415  data_tmp = iand(data_tmp, mask_left(28))
28416  pack_tmp = ior(pack_tmp, data_tmp)
28417  ipack = ipack + 1
28418  packed_data(ipack) = pack_tmp
28419  data_tmp = full_data(idata)
28420  pack_tmp = ishft(data_tmp, 54)
28421  pack_tmp = ishft(pack_tmp, -38)
28422  idata = idata + 1
28423  data_tmp = full_data(idata)
28424  data_tmp = ishft(data_tmp, 26)
28425  pack_tmp = ior(pack_tmp, data_tmp)
28426  pack_tmp = ishft(pack_tmp, -16)
28427  idata = idata + 1
28428  data_tmp = full_data(idata)
28429  data_tmp = ishft(data_tmp, 26)
28430  data_tmp = iand(data_tmp, mask_left(16))
28431  pack_tmp = ior(pack_tmp, data_tmp)
28432  ipack = ipack + 1
28433  packed_data(ipack) = pack_tmp
28434  data_tmp = full_data(idata)
28435  pack_tmp = ishft(data_tmp, 42)
28436  pack_tmp = ishft(pack_tmp, -38)
28437  idata = idata + 1
28438  data_tmp = full_data(idata)
28439  data_tmp = ishft(data_tmp, 26)
28440  pack_tmp = ior(pack_tmp, data_tmp)
28441  pack_tmp = ishft(pack_tmp, -4)
28442  idata = idata + 1
28443  data_tmp = full_data(idata)
28444  data_tmp = ishft(data_tmp, 26)
28445  data_tmp = iand(data_tmp, mask_left(4))
28446  pack_tmp = ior(pack_tmp, data_tmp)
28447  ipack = ipack + 1
28448  packed_data(ipack) = pack_tmp
28449  data_tmp = full_data(idata)
28450  pack_tmp = ishft(data_tmp, 30)
28451  pack_tmp = ishft(pack_tmp, -30)
28452  idata = idata + 1
28453  data_tmp = full_data(idata)
28454  data_tmp = ishft(data_tmp, 26)
28455  data_tmp = iand(data_tmp, mask_left(30))
28456  pack_tmp = ior(pack_tmp, data_tmp)
28457  ipack = ipack + 1
28458  packed_data(ipack) = pack_tmp
28459  data_tmp = full_data(idata)
28460  pack_tmp = ishft(data_tmp, 56)
28461  pack_tmp = ishft(pack_tmp, -38)
28462  idata = idata + 1
28463  data_tmp = full_data(idata)
28464  data_tmp = ishft(data_tmp, 26)
28465  pack_tmp = ior(pack_tmp, data_tmp)
28466  pack_tmp = ishft(pack_tmp, -18)
28467  idata = idata + 1
28468  data_tmp = full_data(idata)
28469  data_tmp = ishft(data_tmp, 26)
28470  data_tmp = iand(data_tmp, mask_left(18))
28471  pack_tmp = ior(pack_tmp, data_tmp)
28472  ipack = ipack + 1
28473  packed_data(ipack) = pack_tmp
28474  data_tmp = full_data(idata)
28475  pack_tmp = ishft(data_tmp, 44)
28476  pack_tmp = ishft(pack_tmp, -38)
28477  idata = idata + 1
28478  data_tmp = full_data(idata)
28479  data_tmp = ishft(data_tmp, 26)
28480  pack_tmp = ior(pack_tmp, data_tmp)
28481  pack_tmp = ishft(pack_tmp, -6)
28482  idata = idata + 1
28483  data_tmp = full_data(idata)
28484  data_tmp = ishft(data_tmp, 26)
28485  data_tmp = iand(data_tmp, mask_left(6))
28486  pack_tmp = ior(pack_tmp, data_tmp)
28487  ipack = ipack + 1
28488  packed_data(ipack) = pack_tmp
28489  data_tmp = full_data(idata)
28490  pack_tmp = ishft(data_tmp, 32)
28491  pack_tmp = ishft(pack_tmp, -32)
28492  idata = idata + 1
28493  data_tmp = full_data(idata)
28494  data_tmp = ishft(data_tmp, 26)
28495  data_tmp = iand(data_tmp, mask_left(32))
28496  pack_tmp = ior(pack_tmp, data_tmp)
28497  ipack = ipack + 1
28498  packed_data(ipack) = pack_tmp
28499  data_tmp = full_data(idata)
28500  pack_tmp = ishft(data_tmp, 58)
28501  pack_tmp = ishft(pack_tmp, -38)
28502  idata = idata + 1
28503  data_tmp = full_data(idata)
28504  data_tmp = ishft(data_tmp, 26)
28505  pack_tmp = ior(pack_tmp, data_tmp)
28506  pack_tmp = ishft(pack_tmp, -20)
28507  idata = idata + 1
28508  data_tmp = full_data(idata)
28509  data_tmp = ishft(data_tmp, 26)
28510  data_tmp = iand(data_tmp, mask_left(20))
28511  pack_tmp = ior(pack_tmp, data_tmp)
28512  ipack = ipack + 1
28513  packed_data(ipack) = pack_tmp
28514  data_tmp = full_data(idata)
28515  pack_tmp = ishft(data_tmp, 46)
28516  pack_tmp = ishft(pack_tmp, -38)
28517  idata = idata + 1
28518  data_tmp = full_data(idata)
28519  data_tmp = ishft(data_tmp, 26)
28520  pack_tmp = ior(pack_tmp, data_tmp)
28521  pack_tmp = ishft(pack_tmp, -8)
28522  idata = idata + 1
28523  data_tmp = full_data(idata)
28524  data_tmp = ishft(data_tmp, 26)
28525  data_tmp = iand(data_tmp, mask_left(8))
28526  pack_tmp = ior(pack_tmp, data_tmp)
28527  ipack = ipack + 1
28528  packed_data(ipack) = pack_tmp
28529  data_tmp = full_data(idata)
28530  pack_tmp = ishft(data_tmp, 34)
28531  pack_tmp = ishft(pack_tmp, -34)
28532  idata = idata + 1
28533  data_tmp = full_data(idata)
28534  data_tmp = ishft(data_tmp, 26)
28535  data_tmp = iand(data_tmp, mask_left(34))
28536  pack_tmp = ior(pack_tmp, data_tmp)
28537  ipack = ipack + 1
28538  packed_data(ipack) = pack_tmp
28539  data_tmp = full_data(idata)
28540  pack_tmp = ishft(data_tmp, 60)
28541  pack_tmp = ishft(pack_tmp, -38)
28542  idata = idata + 1
28543  data_tmp = full_data(idata)
28544  data_tmp = ishft(data_tmp, 26)
28545  pack_tmp = ior(pack_tmp, data_tmp)
28546  pack_tmp = ishft(pack_tmp, -22)
28547  idata = idata + 1
28548  data_tmp = full_data(idata)
28549  data_tmp = ishft(data_tmp, 26)
28550  data_tmp = iand(data_tmp, mask_left(22))
28551  pack_tmp = ior(pack_tmp, data_tmp)
28552  ipack = ipack + 1
28553  packed_data(ipack) = pack_tmp
28554  data_tmp = full_data(idata)
28555  pack_tmp = ishft(data_tmp, 48)
28556  pack_tmp = ishft(pack_tmp, -38)
28557  idata = idata + 1
28558  data_tmp = full_data(idata)
28559  data_tmp = ishft(data_tmp, 26)
28560  pack_tmp = ior(pack_tmp, data_tmp)
28561  pack_tmp = ishft(pack_tmp, -10)
28562  idata = idata + 1
28563  data_tmp = full_data(idata)
28564  data_tmp = ishft(data_tmp, 26)
28565  data_tmp = iand(data_tmp, mask_left(10))
28566  pack_tmp = ior(pack_tmp, data_tmp)
28567  ipack = ipack + 1
28568  packed_data(ipack) = pack_tmp
28569  data_tmp = full_data(idata)
28570  pack_tmp = ishft(data_tmp, 36)
28571  pack_tmp = ishft(pack_tmp, -36)
28572  idata = idata + 1
28573  data_tmp = full_data(idata)
28574  data_tmp = ishft(data_tmp, 26)
28575  data_tmp = iand(data_tmp, mask_left(36))
28576  pack_tmp = ior(pack_tmp, data_tmp)
28577  ipack = ipack + 1
28578  packed_data(ipack) = pack_tmp
28579  data_tmp = full_data(idata)
28580  pack_tmp = ishft(data_tmp, 62)
28581  pack_tmp = ishft(pack_tmp, -38)
28582  idata = idata + 1
28583  data_tmp = full_data(idata)
28584  data_tmp = ishft(data_tmp, 26)
28585  pack_tmp = ior(pack_tmp, data_tmp)
28586  pack_tmp = ishft(pack_tmp, -24)
28587  idata = idata + 1
28588  data_tmp = full_data(idata)
28589  data_tmp = ishft(data_tmp, 26)
28590  data_tmp = iand(data_tmp, mask_left(24))
28591  pack_tmp = ior(pack_tmp, data_tmp)
28592  ipack = ipack + 1
28593  packed_data(ipack) = pack_tmp
28594  data_tmp = full_data(idata)
28595  pack_tmp = ishft(data_tmp, 50)
28596  pack_tmp = ishft(pack_tmp, -38)
28597  idata = idata + 1
28598  data_tmp = full_data(idata)
28599  data_tmp = ishft(data_tmp, 26)
28600  pack_tmp = ior(pack_tmp, data_tmp)
28601  pack_tmp = ishft(pack_tmp, -12)
28602  idata = idata + 1
28603  data_tmp = full_data(idata)
28604  data_tmp = ishft(data_tmp, 26)
28605  data_tmp = iand(data_tmp, mask_left(12))
28606  pack_tmp = ior(pack_tmp, data_tmp)
28607  ipack = ipack + 1
28608  packed_data(ipack) = pack_tmp
28609  data_tmp = full_data(idata)
28610  pack_tmp = ishft(data_tmp, 38)
28611  pack_tmp = ishft(pack_tmp, -38)
28612  idata = idata + 1
28613  data_tmp = full_data(idata)
28614  data_tmp = ishft(data_tmp, 26)
28615  pack_tmp = ior(pack_tmp, data_tmp)
28616  pack_tmp = ishft(pack_tmp, 0)
28617  idata = idata + 1
28618  data_tmp = full_data(idata)
28619  data_tmp = ishft(data_tmp, 26)
28620  data_tmp = iand(data_tmp, mask_left(0))
28621  pack_tmp = ior(pack_tmp, data_tmp)
28622  ipack = ipack + 1
28623  packed_data(ipack) = pack_tmp
28624  data_tmp = full_data(idata)
28625  pack_tmp = ishft(data_tmp, 26)
28626  pack_tmp = ishft(pack_tmp, -26)
28627  idata = idata + 1
28628  data_tmp = full_data(idata)
28629  data_tmp = ishft(data_tmp, 26)
28630  data_tmp = iand(data_tmp, mask_left(26))
28631  pack_tmp = ior(pack_tmp, data_tmp)
28632  ipack = ipack + 1
28633  packed_data(ipack) = pack_tmp
28634  data_tmp = full_data(idata)
28635  pack_tmp = ishft(data_tmp, 52)
28636  pack_tmp = ishft(pack_tmp, -38)
28637  idata = idata + 1
28638  data_tmp = full_data(idata)
28639  data_tmp = ishft(data_tmp, 26)
28640  pack_tmp = ior(pack_tmp, data_tmp)
28641  pack_tmp = ishft(pack_tmp, -14)
28642  idata = idata + 1
28643  data_tmp = full_data(idata)
28644  data_tmp = ishft(data_tmp, 26)
28645  data_tmp = iand(data_tmp, mask_left(14))
28646  pack_tmp = ior(pack_tmp, data_tmp)
28647  ipack = ipack + 1
28648  packed_data(ipack) = pack_tmp
28649  data_tmp = full_data(idata)
28650  pack_tmp = ishft(data_tmp, 40)
28651  pack_tmp = ishft(pack_tmp, -38)
28652  idata = idata + 1
28653  data_tmp = full_data(idata)
28654  data_tmp = ishft(data_tmp, 26)
28655  pack_tmp = ior(pack_tmp, data_tmp)
28656  pack_tmp = ishft(pack_tmp, -2)
28657  idata = idata + 1
28658  data_tmp = full_data(idata)
28659  data_tmp = ishft(data_tmp, 26)
28660  data_tmp = iand(data_tmp, mask_left(2))
28661  pack_tmp = ior(pack_tmp, data_tmp)
28662  ipack = ipack + 1
28663  packed_data(ipack) = pack_tmp
28664  data_tmp = full_data(idata)
28665  pack_tmp = ishft(data_tmp, 28)
28666  pack_tmp = ishft(pack_tmp, -28)
28667  idata = idata + 1
28668  data_tmp = full_data(idata)
28669  data_tmp = ishft(data_tmp, 26)
28670  data_tmp = iand(data_tmp, mask_left(28))
28671  pack_tmp = ior(pack_tmp, data_tmp)
28672  ipack = ipack + 1
28673  packed_data(ipack) = pack_tmp
28674  data_tmp = full_data(idata)
28675  pack_tmp = ishft(data_tmp, 54)
28676  pack_tmp = ishft(pack_tmp, -38)
28677  idata = idata + 1
28678  data_tmp = full_data(idata)
28679  data_tmp = ishft(data_tmp, 26)
28680  pack_tmp = ior(pack_tmp, data_tmp)
28681  pack_tmp = ishft(pack_tmp, -16)
28682  idata = idata + 1
28683  data_tmp = full_data(idata)
28684  data_tmp = ishft(data_tmp, 26)
28685  data_tmp = iand(data_tmp, mask_left(16))
28686  pack_tmp = ior(pack_tmp, data_tmp)
28687  ipack = ipack + 1
28688  packed_data(ipack) = pack_tmp
28689  data_tmp = full_data(idata)
28690  pack_tmp = ishft(data_tmp, 42)
28691  pack_tmp = ishft(pack_tmp, -38)
28692  idata = idata + 1
28693  data_tmp = full_data(idata)
28694  data_tmp = ishft(data_tmp, 26)
28695  pack_tmp = ior(pack_tmp, data_tmp)
28696  pack_tmp = ishft(pack_tmp, -4)
28697  idata = idata + 1
28698  data_tmp = full_data(idata)
28699  data_tmp = ishft(data_tmp, 26)
28700  data_tmp = iand(data_tmp, mask_left(4))
28701  pack_tmp = ior(pack_tmp, data_tmp)
28702  ipack = ipack + 1
28703  packed_data(ipack) = pack_tmp
28704  data_tmp = full_data(idata)
28705  pack_tmp = ishft(data_tmp, 30)
28706  pack_tmp = ishft(pack_tmp, -30)
28707  idata = idata + 1
28708  data_tmp = full_data(idata)
28709  data_tmp = ishft(data_tmp, 26)
28710  data_tmp = iand(data_tmp, mask_left(30))
28711  pack_tmp = ior(pack_tmp, data_tmp)
28712  ipack = ipack + 1
28713  packed_data(ipack) = pack_tmp
28714  data_tmp = full_data(idata)
28715  pack_tmp = ishft(data_tmp, 56)
28716  pack_tmp = ishft(pack_tmp, -38)
28717  idata = idata + 1
28718  data_tmp = full_data(idata)
28719  data_tmp = ishft(data_tmp, 26)
28720  pack_tmp = ior(pack_tmp, data_tmp)
28721  pack_tmp = ishft(pack_tmp, -18)
28722  idata = idata + 1
28723  data_tmp = full_data(idata)
28724  data_tmp = ishft(data_tmp, 26)
28725  data_tmp = iand(data_tmp, mask_left(18))
28726  pack_tmp = ior(pack_tmp, data_tmp)
28727  ipack = ipack + 1
28728  packed_data(ipack) = pack_tmp
28729  data_tmp = full_data(idata)
28730  pack_tmp = ishft(data_tmp, 44)
28731  pack_tmp = ishft(pack_tmp, -38)
28732  idata = idata + 1
28733  data_tmp = full_data(idata)
28734  data_tmp = ishft(data_tmp, 26)
28735  pack_tmp = ior(pack_tmp, data_tmp)
28736  pack_tmp = ishft(pack_tmp, -6)
28737  idata = idata + 1
28738  data_tmp = full_data(idata)
28739  data_tmp = ishft(data_tmp, 26)
28740  data_tmp = iand(data_tmp, mask_left(6))
28741  pack_tmp = ior(pack_tmp, data_tmp)
28742  ipack = ipack + 1
28743  packed_data(ipack) = pack_tmp
28744  data_tmp = full_data(idata)
28745  pack_tmp = ishft(data_tmp, 32)
28746  pack_tmp = ishft(pack_tmp, -32)
28747  idata = idata + 1
28748  data_tmp = full_data(idata)
28749  data_tmp = ishft(data_tmp, 26)
28750  data_tmp = iand(data_tmp, mask_left(32))
28751  pack_tmp = ior(pack_tmp, data_tmp)
28752  ipack = ipack + 1
28753  packed_data(ipack) = pack_tmp
28754  data_tmp = full_data(idata)
28755  pack_tmp = ishft(data_tmp, 58)
28756  pack_tmp = ishft(pack_tmp, -38)
28757  idata = idata + 1
28758  data_tmp = full_data(idata)
28759  data_tmp = ishft(data_tmp, 26)
28760  pack_tmp = ior(pack_tmp, data_tmp)
28761  pack_tmp = ishft(pack_tmp, -20)
28762  idata = idata + 1
28763  data_tmp = full_data(idata)
28764  data_tmp = ishft(data_tmp, 26)
28765  data_tmp = iand(data_tmp, mask_left(20))
28766  pack_tmp = ior(pack_tmp, data_tmp)
28767  ipack = ipack + 1
28768  packed_data(ipack) = pack_tmp
28769  data_tmp = full_data(idata)
28770  pack_tmp = ishft(data_tmp, 46)
28771  pack_tmp = ishft(pack_tmp, -38)
28772  idata = idata + 1
28773  data_tmp = full_data(idata)
28774  data_tmp = ishft(data_tmp, 26)
28775  pack_tmp = ior(pack_tmp, data_tmp)
28776  pack_tmp = ishft(pack_tmp, -8)
28777  idata = idata + 1
28778  data_tmp = full_data(idata)
28779  data_tmp = ishft(data_tmp, 26)
28780  data_tmp = iand(data_tmp, mask_left(8))
28781  pack_tmp = ior(pack_tmp, data_tmp)
28782  ipack = ipack + 1
28783  packed_data(ipack) = pack_tmp
28784  data_tmp = full_data(idata)
28785  pack_tmp = ishft(data_tmp, 34)
28786  pack_tmp = ishft(pack_tmp, -34)
28787  idata = idata + 1
28788  data_tmp = full_data(idata)
28789  data_tmp = ishft(data_tmp, 26)
28790  data_tmp = iand(data_tmp, mask_left(34))
28791  pack_tmp = ior(pack_tmp, data_tmp)
28792  ipack = ipack + 1
28793  packed_data(ipack) = pack_tmp
28794  data_tmp = full_data(idata)
28795  pack_tmp = ishft(data_tmp, 60)
28796  pack_tmp = ishft(pack_tmp, -38)
28797  idata = idata + 1
28798  data_tmp = full_data(idata)
28799  data_tmp = ishft(data_tmp, 26)
28800  pack_tmp = ior(pack_tmp, data_tmp)
28801  pack_tmp = ishft(pack_tmp, -22)
28802  idata = idata + 1
28803  data_tmp = full_data(idata)
28804  data_tmp = ishft(data_tmp, 26)
28805  data_tmp = iand(data_tmp, mask_left(22))
28806  pack_tmp = ior(pack_tmp, data_tmp)
28807  ipack = ipack + 1
28808  packed_data(ipack) = pack_tmp
28809  data_tmp = full_data(idata)
28810  pack_tmp = ishft(data_tmp, 48)
28811  pack_tmp = ishft(pack_tmp, -38)
28812  idata = idata + 1
28813  data_tmp = full_data(idata)
28814  data_tmp = ishft(data_tmp, 26)
28815  pack_tmp = ior(pack_tmp, data_tmp)
28816  pack_tmp = ishft(pack_tmp, -10)
28817  idata = idata + 1
28818  data_tmp = full_data(idata)
28819  data_tmp = ishft(data_tmp, 26)
28820  data_tmp = iand(data_tmp, mask_left(10))
28821  pack_tmp = ior(pack_tmp, data_tmp)
28822  ipack = ipack + 1
28823  packed_data(ipack) = pack_tmp
28824  data_tmp = full_data(idata)
28825  pack_tmp = ishft(data_tmp, 36)
28826  pack_tmp = ishft(pack_tmp, -36)
28827  idata = idata + 1
28828  data_tmp = full_data(idata)
28829  data_tmp = ishft(data_tmp, 26)
28830  data_tmp = iand(data_tmp, mask_left(36))
28831  pack_tmp = ior(pack_tmp, data_tmp)
28832  ipack = ipack + 1
28833  packed_data(ipack) = pack_tmp
28834  data_tmp = full_data(idata)
28835  pack_tmp = ishft(data_tmp, 62)
28836  pack_tmp = ishft(pack_tmp, -38)
28837  idata = idata + 1
28838  data_tmp = full_data(idata)
28839  data_tmp = ishft(data_tmp, 26)
28840  pack_tmp = ior(pack_tmp, data_tmp)
28841  pack_tmp = ishft(pack_tmp, -24)
28842  idata = idata + 1
28843  data_tmp = full_data(idata)
28844  data_tmp = ishft(data_tmp, 26)
28845  data_tmp = iand(data_tmp, mask_left(24))
28846  pack_tmp = ior(pack_tmp, data_tmp)
28847  ipack = ipack + 1
28848  packed_data(ipack) = pack_tmp
28849  data_tmp = full_data(idata)
28850  pack_tmp = ishft(data_tmp, 50)
28851  pack_tmp = ishft(pack_tmp, -38)
28852  idata = idata + 1
28853  data_tmp = full_data(idata)
28854  data_tmp = ishft(data_tmp, 26)
28855  pack_tmp = ior(pack_tmp, data_tmp)
28856  pack_tmp = ishft(pack_tmp, -12)
28857  idata = idata + 1
28858  data_tmp = full_data(idata)
28859  data_tmp = ishft(data_tmp, 26)
28860  data_tmp = iand(data_tmp, mask_left(12))
28861  pack_tmp = ior(pack_tmp, data_tmp)
28862  ipack = ipack + 1
28863  packed_data(ipack) = pack_tmp
28864  data_tmp = full_data(idata)
28865  pack_tmp = ishft(data_tmp, 38)
28866  pack_tmp = ishft(pack_tmp, -38)
28867  idata = idata + 1
28868  data_tmp = full_data(idata)
28869  data_tmp = ishft(data_tmp, 26)
28870  pack_tmp = ior(pack_tmp, data_tmp)
28871  pack_tmp = ishft(pack_tmp, 0)
28872  pack_tmp = ishft(pack_tmp, 0)
28873  ipack = ipack + 1
28874  packed_data(ipack) = pack_tmp
28875  END DO
28876  IF (ndata_rep < ndata) THEN
28877  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
28878  END IF
28879  END SUBROUTINE ints2bits_38
28880 
28881 ! **************************************************************************************************
28882 !> \brief ...
28883 !> \param Ndata ...
28884 !> \param packed_data ...
28885 !> \param full_data ...
28886 ! **************************************************************************************************
28887  SUBROUTINE bits2ints_38(Ndata, packed_data, full_data)
28888  INTEGER, INTENT(IN) :: Ndata
28889  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
28890  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
28891 
28892  INTEGER, PARAMETER :: Nbits = 38
28893 
28894  INTEGER :: idata, ipack, kdata, Ndata_rep
28895  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
28896 
28897  ipack = 0
28898  idata = 0
28899  pack_tmp = 0
28900  ndata_rep = (ndata/64)*64
28901  DO kdata = 1, ndata_rep, 64
28902  idata = idata + 1
28903  data_tmp = ishft(pack_tmp, 38)
28904  ipack = ipack + 1
28905  pack_tmp = packed_data(ipack)
28906  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
28907  pack_tmp = ishft(pack_tmp, -38)
28908  idata = idata + 1
28909  data_tmp = ishft(pack_tmp, 12)
28910  ipack = ipack + 1
28911  pack_tmp = packed_data(ipack)
28912  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
28913  pack_tmp = ishft(pack_tmp, -12)
28914  idata = idata + 1
28915  data_tmp = iand(pack_tmp, mask_right(nbits))
28916  full_data(idata) = data_tmp
28917  pack_tmp = ishft(pack_tmp, -nbits)
28918  idata = idata + 1
28919  data_tmp = ishft(pack_tmp, 24)
28920  ipack = ipack + 1
28921  pack_tmp = packed_data(ipack)
28922  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
28923  pack_tmp = ishft(pack_tmp, -24)
28924  idata = idata + 1
28925  data_tmp = iand(pack_tmp, mask_right(nbits))
28926  full_data(idata) = data_tmp
28927  pack_tmp = ishft(pack_tmp, -nbits)
28928  idata = idata + 1
28929  data_tmp = ishft(pack_tmp, 36)
28930  ipack = ipack + 1
28931  pack_tmp = packed_data(ipack)
28932  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
28933  pack_tmp = ishft(pack_tmp, -36)
28934  idata = idata + 1
28935  data_tmp = ishft(pack_tmp, 10)
28936  ipack = ipack + 1
28937  pack_tmp = packed_data(ipack)
28938  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
28939  pack_tmp = ishft(pack_tmp, -10)
28940  idata = idata + 1
28941  data_tmp = iand(pack_tmp, mask_right(nbits))
28942  full_data(idata) = data_tmp
28943  pack_tmp = ishft(pack_tmp, -nbits)
28944  idata = idata + 1
28945  data_tmp = ishft(pack_tmp, 22)
28946  ipack = ipack + 1
28947  pack_tmp = packed_data(ipack)
28948  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
28949  pack_tmp = ishft(pack_tmp, -22)
28950  idata = idata + 1
28951  data_tmp = iand(pack_tmp, mask_right(nbits))
28952  full_data(idata) = data_tmp
28953  pack_tmp = ishft(pack_tmp, -nbits)
28954  idata = idata + 1
28955  data_tmp = ishft(pack_tmp, 34)
28956  ipack = ipack + 1
28957  pack_tmp = packed_data(ipack)
28958  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
28959  pack_tmp = ishft(pack_tmp, -34)
28960  idata = idata + 1
28961  data_tmp = ishft(pack_tmp, 8)
28962  ipack = ipack + 1
28963  pack_tmp = packed_data(ipack)
28964  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
28965  pack_tmp = ishft(pack_tmp, -8)
28966  idata = idata + 1
28967  data_tmp = iand(pack_tmp, mask_right(nbits))
28968  full_data(idata) = data_tmp
28969  pack_tmp = ishft(pack_tmp, -nbits)
28970  idata = idata + 1
28971  data_tmp = ishft(pack_tmp, 20)
28972  ipack = ipack + 1
28973  pack_tmp = packed_data(ipack)
28974  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
28975  pack_tmp = ishft(pack_tmp, -20)
28976  idata = idata + 1
28977  data_tmp = iand(pack_tmp, mask_right(nbits))
28978  full_data(idata) = data_tmp
28979  pack_tmp = ishft(pack_tmp, -nbits)
28980  idata = idata + 1
28981  data_tmp = ishft(pack_tmp, 32)
28982  ipack = ipack + 1
28983  pack_tmp = packed_data(ipack)
28984  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
28985  pack_tmp = ishft(pack_tmp, -32)
28986  idata = idata + 1
28987  data_tmp = ishft(pack_tmp, 6)
28988  ipack = ipack + 1
28989  pack_tmp = packed_data(ipack)
28990  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
28991  pack_tmp = ishft(pack_tmp, -6)
28992  idata = idata + 1
28993  data_tmp = iand(pack_tmp, mask_right(nbits))
28994  full_data(idata) = data_tmp
28995  pack_tmp = ishft(pack_tmp, -nbits)
28996  idata = idata + 1
28997  data_tmp = ishft(pack_tmp, 18)
28998  ipack = ipack + 1
28999  pack_tmp = packed_data(ipack)
29000  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
29001  pack_tmp = ishft(pack_tmp, -18)
29002  idata = idata + 1
29003  data_tmp = iand(pack_tmp, mask_right(nbits))
29004  full_data(idata) = data_tmp
29005  pack_tmp = ishft(pack_tmp, -nbits)
29006  idata = idata + 1
29007  data_tmp = ishft(pack_tmp, 30)
29008  ipack = ipack + 1
29009  pack_tmp = packed_data(ipack)
29010  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
29011  pack_tmp = ishft(pack_tmp, -30)
29012  idata = idata + 1
29013  data_tmp = ishft(pack_tmp, 4)
29014  ipack = ipack + 1
29015  pack_tmp = packed_data(ipack)
29016  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
29017  pack_tmp = ishft(pack_tmp, -4)
29018  idata = idata + 1
29019  data_tmp = iand(pack_tmp, mask_right(nbits))
29020  full_data(idata) = data_tmp
29021  pack_tmp = ishft(pack_tmp, -nbits)
29022  idata = idata + 1
29023  data_tmp = ishft(pack_tmp, 16)
29024  ipack = ipack + 1
29025  pack_tmp = packed_data(ipack)
29026  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
29027  pack_tmp = ishft(pack_tmp, -16)
29028  idata = idata + 1
29029  data_tmp = iand(pack_tmp, mask_right(nbits))
29030  full_data(idata) = data_tmp
29031  pack_tmp = ishft(pack_tmp, -nbits)
29032  idata = idata + 1
29033  data_tmp = ishft(pack_tmp, 28)
29034  ipack = ipack + 1
29035  pack_tmp = packed_data(ipack)
29036  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
29037  pack_tmp = ishft(pack_tmp, -28)
29038  idata = idata + 1
29039  data_tmp = ishft(pack_tmp, 2)
29040  ipack = ipack + 1
29041  pack_tmp = packed_data(ipack)
29042  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
29043  pack_tmp = ishft(pack_tmp, -2)
29044  idata = idata + 1
29045  data_tmp = iand(pack_tmp, mask_right(nbits))
29046  full_data(idata) = data_tmp
29047  pack_tmp = ishft(pack_tmp, -nbits)
29048  idata = idata + 1
29049  data_tmp = ishft(pack_tmp, 14)
29050  ipack = ipack + 1
29051  pack_tmp = packed_data(ipack)
29052  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
29053  pack_tmp = ishft(pack_tmp, -14)
29054  idata = idata + 1
29055  data_tmp = iand(pack_tmp, mask_right(nbits))
29056  full_data(idata) = data_tmp
29057  pack_tmp = ishft(pack_tmp, -nbits)
29058  idata = idata + 1
29059  data_tmp = ishft(pack_tmp, 26)
29060  ipack = ipack + 1
29061  pack_tmp = packed_data(ipack)
29062  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
29063  pack_tmp = ishft(pack_tmp, -26)
29064  idata = idata + 1
29065  data_tmp = iand(pack_tmp, mask_right(nbits))
29066  full_data(idata) = data_tmp
29067  pack_tmp = ishft(pack_tmp, -nbits)
29068  idata = idata + 1
29069  data_tmp = ishft(pack_tmp, 38)
29070  ipack = ipack + 1
29071  pack_tmp = packed_data(ipack)
29072  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
29073  pack_tmp = ishft(pack_tmp, -38)
29074  idata = idata + 1
29075  data_tmp = ishft(pack_tmp, 12)
29076  ipack = ipack + 1
29077  pack_tmp = packed_data(ipack)
29078  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
29079  pack_tmp = ishft(pack_tmp, -12)
29080  idata = idata + 1
29081  data_tmp = iand(pack_tmp, mask_right(nbits))
29082  full_data(idata) = data_tmp
29083  pack_tmp = ishft(pack_tmp, -nbits)
29084  idata = idata + 1
29085  data_tmp = ishft(pack_tmp, 24)
29086  ipack = ipack + 1
29087  pack_tmp = packed_data(ipack)
29088  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
29089  pack_tmp = ishft(pack_tmp, -24)
29090  idata = idata + 1
29091  data_tmp = iand(pack_tmp, mask_right(nbits))
29092  full_data(idata) = data_tmp
29093  pack_tmp = ishft(pack_tmp, -nbits)
29094  idata = idata + 1
29095  data_tmp = ishft(pack_tmp, 36)
29096  ipack = ipack + 1
29097  pack_tmp = packed_data(ipack)
29098  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
29099  pack_tmp = ishft(pack_tmp, -36)
29100  idata = idata + 1
29101  data_tmp = ishft(pack_tmp, 10)
29102  ipack = ipack + 1
29103  pack_tmp = packed_data(ipack)
29104  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
29105  pack_tmp = ishft(pack_tmp, -10)
29106  idata = idata + 1
29107  data_tmp = iand(pack_tmp, mask_right(nbits))
29108  full_data(idata) = data_tmp
29109  pack_tmp = ishft(pack_tmp, -nbits)
29110  idata = idata + 1
29111  data_tmp = ishft(pack_tmp, 22)
29112  ipack = ipack + 1
29113  pack_tmp = packed_data(ipack)
29114  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
29115  pack_tmp = ishft(pack_tmp, -22)
29116  idata = idata + 1
29117  data_tmp = iand(pack_tmp, mask_right(nbits))
29118  full_data(idata) = data_tmp
29119  pack_tmp = ishft(pack_tmp, -nbits)
29120  idata = idata + 1
29121  data_tmp = ishft(pack_tmp, 34)
29122  ipack = ipack + 1
29123  pack_tmp = packed_data(ipack)
29124  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
29125  pack_tmp = ishft(pack_tmp, -34)
29126  idata = idata + 1
29127  data_tmp = ishft(pack_tmp, 8)
29128  ipack = ipack + 1
29129  pack_tmp = packed_data(ipack)
29130  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
29131  pack_tmp = ishft(pack_tmp, -8)
29132  idata = idata + 1
29133  data_tmp = iand(pack_tmp, mask_right(nbits))
29134  full_data(idata) = data_tmp
29135  pack_tmp = ishft(pack_tmp, -nbits)
29136  idata = idata + 1
29137  data_tmp = ishft(pack_tmp, 20)
29138  ipack = ipack + 1
29139  pack_tmp = packed_data(ipack)
29140  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
29141  pack_tmp = ishft(pack_tmp, -20)
29142  idata = idata + 1
29143  data_tmp = iand(pack_tmp, mask_right(nbits))
29144  full_data(idata) = data_tmp
29145  pack_tmp = ishft(pack_tmp, -nbits)
29146  idata = idata + 1
29147  data_tmp = ishft(pack_tmp, 32)
29148  ipack = ipack + 1
29149  pack_tmp = packed_data(ipack)
29150  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
29151  pack_tmp = ishft(pack_tmp, -32)
29152  idata = idata + 1
29153  data_tmp = ishft(pack_tmp, 6)
29154  ipack = ipack + 1
29155  pack_tmp = packed_data(ipack)
29156  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
29157  pack_tmp = ishft(pack_tmp, -6)
29158  idata = idata + 1
29159  data_tmp = iand(pack_tmp, mask_right(nbits))
29160  full_data(idata) = data_tmp
29161  pack_tmp = ishft(pack_tmp, -nbits)
29162  idata = idata + 1
29163  data_tmp = ishft(pack_tmp, 18)
29164  ipack = ipack + 1
29165  pack_tmp = packed_data(ipack)
29166  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
29167  pack_tmp = ishft(pack_tmp, -18)
29168  idata = idata + 1
29169  data_tmp = iand(pack_tmp, mask_right(nbits))
29170  full_data(idata) = data_tmp
29171  pack_tmp = ishft(pack_tmp, -nbits)
29172  idata = idata + 1
29173  data_tmp = ishft(pack_tmp, 30)
29174  ipack = ipack + 1
29175  pack_tmp = packed_data(ipack)
29176  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
29177  pack_tmp = ishft(pack_tmp, -30)
29178  idata = idata + 1
29179  data_tmp = ishft(pack_tmp, 4)
29180  ipack = ipack + 1
29181  pack_tmp = packed_data(ipack)
29182  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
29183  pack_tmp = ishft(pack_tmp, -4)
29184  idata = idata + 1
29185  data_tmp = iand(pack_tmp, mask_right(nbits))
29186  full_data(idata) = data_tmp
29187  pack_tmp = ishft(pack_tmp, -nbits)
29188  idata = idata + 1
29189  data_tmp = ishft(pack_tmp, 16)
29190  ipack = ipack + 1
29191  pack_tmp = packed_data(ipack)
29192  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
29193  pack_tmp = ishft(pack_tmp, -16)
29194  idata = idata + 1
29195  data_tmp = iand(pack_tmp, mask_right(nbits))
29196  full_data(idata) = data_tmp
29197  pack_tmp = ishft(pack_tmp, -nbits)
29198  idata = idata + 1
29199  data_tmp = ishft(pack_tmp, 28)
29200  ipack = ipack + 1
29201  pack_tmp = packed_data(ipack)
29202  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
29203  pack_tmp = ishft(pack_tmp, -28)
29204  idata = idata + 1
29205  data_tmp = ishft(pack_tmp, 2)
29206  ipack = ipack + 1
29207  pack_tmp = packed_data(ipack)
29208  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
29209  pack_tmp = ishft(pack_tmp, -2)
29210  idata = idata + 1
29211  data_tmp = iand(pack_tmp, mask_right(nbits))
29212  full_data(idata) = data_tmp
29213  pack_tmp = ishft(pack_tmp, -nbits)
29214  idata = idata + 1
29215  data_tmp = ishft(pack_tmp, 14)
29216  ipack = ipack + 1
29217  pack_tmp = packed_data(ipack)
29218  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
29219  pack_tmp = ishft(pack_tmp, -14)
29220  idata = idata + 1
29221  data_tmp = iand(pack_tmp, mask_right(nbits))
29222  full_data(idata) = data_tmp
29223  pack_tmp = ishft(pack_tmp, -nbits)
29224  idata = idata + 1
29225  data_tmp = ishft(pack_tmp, 26)
29226  ipack = ipack + 1
29227  pack_tmp = packed_data(ipack)
29228  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
29229  pack_tmp = ishft(pack_tmp, -26)
29230  idata = idata + 1
29231  data_tmp = iand(pack_tmp, mask_right(nbits))
29232  full_data(idata) = data_tmp
29233  pack_tmp = ishft(pack_tmp, -nbits)
29234  END DO
29235  IF (ndata_rep < ndata) THEN
29236  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
29237  END IF
29238  END SUBROUTINE bits2ints_38
29239 
29240 ! **************************************************************************************************
29241 !> \brief ...
29242 !> \param Ndata ...
29243 !> \param packed_data ...
29244 !> \param full_data ...
29245 ! **************************************************************************************************
29246  SUBROUTINE ints2bits_39(Ndata, packed_data, full_data)
29247  INTEGER, INTENT(IN) :: Ndata
29248  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
29249  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
29250 
29251  INTEGER, PARAMETER :: Nbits = 39
29252 
29253  INTEGER :: idata, ipack, kdata, Ndata_rep
29254  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
29255 
29256  idata = 0
29257  ipack = 0
29258  ndata_rep = (ndata/64)*64
29259  DO kdata = 1, ndata_rep, 64
29260  pack_tmp = 0
29261  idata = idata + 1
29262  data_tmp = full_data(idata)
29263  data_tmp = ishft(data_tmp, 25)
29264  pack_tmp = ior(pack_tmp, data_tmp)
29265  pack_tmp = ishft(pack_tmp, -25)
29266  idata = idata + 1
29267  data_tmp = full_data(idata)
29268  data_tmp = ishft(data_tmp, 25)
29269  data_tmp = iand(data_tmp, mask_left(25))
29270  pack_tmp = ior(pack_tmp, data_tmp)
29271  ipack = ipack + 1
29272  packed_data(ipack) = pack_tmp
29273  data_tmp = full_data(idata)
29274  pack_tmp = ishft(data_tmp, 50)
29275  pack_tmp = ishft(pack_tmp, -39)
29276  idata = idata + 1
29277  data_tmp = full_data(idata)
29278  data_tmp = ishft(data_tmp, 25)
29279  pack_tmp = ior(pack_tmp, data_tmp)
29280  pack_tmp = ishft(pack_tmp, -11)
29281  idata = idata + 1
29282  data_tmp = full_data(idata)
29283  data_tmp = ishft(data_tmp, 25)
29284  data_tmp = iand(data_tmp, mask_left(11))
29285  pack_tmp = ior(pack_tmp, data_tmp)
29286  ipack = ipack + 1
29287  packed_data(ipack) = pack_tmp
29288  data_tmp = full_data(idata)
29289  pack_tmp = ishft(data_tmp, 36)
29290  pack_tmp = ishft(pack_tmp, -36)
29291  idata = idata + 1
29292  data_tmp = full_data(idata)
29293  data_tmp = ishft(data_tmp, 25)
29294  data_tmp = iand(data_tmp, mask_left(36))
29295  pack_tmp = ior(pack_tmp, data_tmp)
29296  ipack = ipack + 1
29297  packed_data(ipack) = pack_tmp
29298  data_tmp = full_data(idata)
29299  pack_tmp = ishft(data_tmp, 61)
29300  pack_tmp = ishft(pack_tmp, -39)
29301  idata = idata + 1
29302  data_tmp = full_data(idata)
29303  data_tmp = ishft(data_tmp, 25)
29304  pack_tmp = ior(pack_tmp, data_tmp)
29305  pack_tmp = ishft(pack_tmp, -22)
29306  idata = idata + 1
29307  data_tmp = full_data(idata)
29308  data_tmp = ishft(data_tmp, 25)
29309  data_tmp = iand(data_tmp, mask_left(22))
29310  pack_tmp = ior(pack_tmp, data_tmp)
29311  ipack = ipack + 1
29312  packed_data(ipack) = pack_tmp
29313  data_tmp = full_data(idata)
29314  pack_tmp = ishft(data_tmp, 47)
29315  pack_tmp = ishft(pack_tmp, -39)
29316  idata = idata + 1
29317  data_tmp = full_data(idata)
29318  data_tmp = ishft(data_tmp, 25)
29319  pack_tmp = ior(pack_tmp, data_tmp)
29320  pack_tmp = ishft(pack_tmp, -8)
29321  idata = idata + 1
29322  data_tmp = full_data(idata)
29323  data_tmp = ishft(data_tmp, 25)
29324  data_tmp = iand(data_tmp, mask_left(8))
29325  pack_tmp = ior(pack_tmp, data_tmp)
29326  ipack = ipack + 1
29327  packed_data(ipack) = pack_tmp
29328  data_tmp = full_data(idata)
29329  pack_tmp = ishft(data_tmp, 33)
29330  pack_tmp = ishft(pack_tmp, -33)
29331  idata = idata + 1
29332  data_tmp = full_data(idata)
29333  data_tmp = ishft(data_tmp, 25)
29334  data_tmp = iand(data_tmp, mask_left(33))
29335  pack_tmp = ior(pack_tmp, data_tmp)
29336  ipack = ipack + 1
29337  packed_data(ipack) = pack_tmp
29338  data_tmp = full_data(idata)
29339  pack_tmp = ishft(data_tmp, 58)
29340  pack_tmp = ishft(pack_tmp, -39)
29341  idata = idata + 1
29342  data_tmp = full_data(idata)
29343  data_tmp = ishft(data_tmp, 25)
29344  pack_tmp = ior(pack_tmp, data_tmp)
29345  pack_tmp = ishft(pack_tmp, -19)
29346  idata = idata + 1
29347  data_tmp = full_data(idata)
29348  data_tmp = ishft(data_tmp, 25)
29349  data_tmp = iand(data_tmp, mask_left(19))
29350  pack_tmp = ior(pack_tmp, data_tmp)
29351  ipack = ipack + 1
29352  packed_data(ipack) = pack_tmp
29353  data_tmp = full_data(idata)
29354  pack_tmp = ishft(data_tmp, 44)
29355  pack_tmp = ishft(pack_tmp, -39)
29356  idata = idata + 1
29357  data_tmp = full_data(idata)
29358  data_tmp = ishft(data_tmp, 25)
29359  pack_tmp = ior(pack_tmp, data_tmp)
29360  pack_tmp = ishft(pack_tmp, -5)
29361  idata = idata + 1
29362  data_tmp = full_data(idata)
29363  data_tmp = ishft(data_tmp, 25)
29364  data_tmp = iand(data_tmp, mask_left(5))
29365  pack_tmp = ior(pack_tmp, data_tmp)
29366  ipack = ipack + 1
29367  packed_data(ipack) = pack_tmp
29368  data_tmp = full_data(idata)
29369  pack_tmp = ishft(data_tmp, 30)
29370  pack_tmp = ishft(pack_tmp, -30)
29371  idata = idata + 1
29372  data_tmp = full_data(idata)
29373  data_tmp = ishft(data_tmp, 25)
29374  data_tmp = iand(data_tmp, mask_left(30))
29375  pack_tmp = ior(pack_tmp, data_tmp)
29376  ipack = ipack + 1
29377  packed_data(ipack) = pack_tmp
29378  data_tmp = full_data(idata)
29379  pack_tmp = ishft(data_tmp, 55)
29380  pack_tmp = ishft(pack_tmp, -39)
29381  idata = idata + 1
29382  data_tmp = full_data(idata)
29383  data_tmp = ishft(data_tmp, 25)
29384  pack_tmp = ior(pack_tmp, data_tmp)
29385  pack_tmp = ishft(pack_tmp, -16)
29386  idata = idata + 1
29387  data_tmp = full_data(idata)
29388  data_tmp = ishft(data_tmp, 25)
29389  data_tmp = iand(data_tmp, mask_left(16))
29390  pack_tmp = ior(pack_tmp, data_tmp)
29391  ipack = ipack + 1
29392  packed_data(ipack) = pack_tmp
29393  data_tmp = full_data(idata)
29394  pack_tmp = ishft(data_tmp, 41)
29395  pack_tmp = ishft(pack_tmp, -39)
29396  idata = idata + 1
29397  data_tmp = full_data(idata)
29398  data_tmp = ishft(data_tmp, 25)
29399  pack_tmp = ior(pack_tmp, data_tmp)
29400  pack_tmp = ishft(pack_tmp, -2)
29401  idata = idata + 1
29402  data_tmp = full_data(idata)
29403  data_tmp = ishft(data_tmp, 25)
29404  data_tmp = iand(data_tmp, mask_left(2))
29405  pack_tmp = ior(pack_tmp, data_tmp)
29406  ipack = ipack + 1
29407  packed_data(ipack) = pack_tmp
29408  data_tmp = full_data(idata)
29409  pack_tmp = ishft(data_tmp, 27)
29410  pack_tmp = ishft(pack_tmp, -27)
29411  idata = idata + 1
29412  data_tmp = full_data(idata)
29413  data_tmp = ishft(data_tmp, 25)
29414  data_tmp = iand(data_tmp, mask_left(27))
29415  pack_tmp = ior(pack_tmp, data_tmp)
29416  ipack = ipack + 1
29417  packed_data(ipack) = pack_tmp
29418  data_tmp = full_data(idata)
29419  pack_tmp = ishft(data_tmp, 52)
29420  pack_tmp = ishft(pack_tmp, -39)
29421  idata = idata + 1
29422  data_tmp = full_data(idata)
29423  data_tmp = ishft(data_tmp, 25)
29424  pack_tmp = ior(pack_tmp, data_tmp)
29425  pack_tmp = ishft(pack_tmp, -13)
29426  idata = idata + 1
29427  data_tmp = full_data(idata)
29428  data_tmp = ishft(data_tmp, 25)
29429  data_tmp = iand(data_tmp, mask_left(13))
29430  pack_tmp = ior(pack_tmp, data_tmp)
29431  ipack = ipack + 1
29432  packed_data(ipack) = pack_tmp
29433  data_tmp = full_data(idata)
29434  pack_tmp = ishft(data_tmp, 38)
29435  pack_tmp = ishft(pack_tmp, -38)
29436  idata = idata + 1
29437  data_tmp = full_data(idata)
29438  data_tmp = ishft(data_tmp, 25)
29439  data_tmp = iand(data_tmp, mask_left(38))
29440  pack_tmp = ior(pack_tmp, data_tmp)
29441  ipack = ipack + 1
29442  packed_data(ipack) = pack_tmp
29443  data_tmp = full_data(idata)
29444  pack_tmp = ishft(data_tmp, 63)
29445  pack_tmp = ishft(pack_tmp, -39)
29446  idata = idata + 1
29447  data_tmp = full_data(idata)
29448  data_tmp = ishft(data_tmp, 25)
29449  pack_tmp = ior(pack_tmp, data_tmp)
29450  pack_tmp = ishft(pack_tmp, -24)
29451  idata = idata + 1
29452  data_tmp = full_data(idata)
29453  data_tmp = ishft(data_tmp, 25)
29454  data_tmp = iand(data_tmp, mask_left(24))
29455  pack_tmp = ior(pack_tmp, data_tmp)
29456  ipack = ipack + 1
29457  packed_data(ipack) = pack_tmp
29458  data_tmp = full_data(idata)
29459  pack_tmp = ishft(data_tmp, 49)
29460  pack_tmp = ishft(pack_tmp, -39)
29461  idata = idata + 1
29462  data_tmp = full_data(idata)
29463  data_tmp = ishft(data_tmp, 25)
29464  pack_tmp = ior(pack_tmp, data_tmp)
29465  pack_tmp = ishft(pack_tmp, -10)
29466  idata = idata + 1
29467  data_tmp = full_data(idata)
29468  data_tmp = ishft(data_tmp, 25)
29469  data_tmp = iand(data_tmp, mask_left(10))
29470  pack_tmp = ior(pack_tmp, data_tmp)
29471  ipack = ipack + 1
29472  packed_data(ipack) = pack_tmp
29473  data_tmp = full_data(idata)
29474  pack_tmp = ishft(data_tmp, 35)
29475  pack_tmp = ishft(pack_tmp, -35)
29476  idata = idata + 1
29477  data_tmp = full_data(idata)
29478  data_tmp = ishft(data_tmp, 25)
29479  data_tmp = iand(data_tmp, mask_left(35))
29480  pack_tmp = ior(pack_tmp, data_tmp)
29481  ipack = ipack + 1
29482  packed_data(ipack) = pack_tmp
29483  data_tmp = full_data(idata)
29484  pack_tmp = ishft(data_tmp, 60)
29485  pack_tmp = ishft(pack_tmp, -39)
29486  idata = idata + 1
29487  data_tmp = full_data(idata)
29488  data_tmp = ishft(data_tmp, 25)
29489  pack_tmp = ior(pack_tmp, data_tmp)
29490  pack_tmp = ishft(pack_tmp, -21)
29491  idata = idata + 1
29492  data_tmp = full_data(idata)
29493  data_tmp = ishft(data_tmp, 25)
29494  data_tmp = iand(data_tmp, mask_left(21))
29495  pack_tmp = ior(pack_tmp, data_tmp)
29496  ipack = ipack + 1
29497  packed_data(ipack) = pack_tmp
29498  data_tmp = full_data(idata)
29499  pack_tmp = ishft(data_tmp, 46)
29500  pack_tmp = ishft(pack_tmp, -39)
29501  idata = idata + 1
29502  data_tmp = full_data(idata)
29503  data_tmp = ishft(data_tmp, 25)
29504  pack_tmp = ior(pack_tmp, data_tmp)
29505  pack_tmp = ishft(pack_tmp, -7)
29506  idata = idata + 1
29507  data_tmp = full_data(idata)
29508  data_tmp = ishft(data_tmp, 25)
29509  data_tmp = iand(data_tmp, mask_left(7))
29510  pack_tmp = ior(pack_tmp, data_tmp)
29511  ipack = ipack + 1
29512  packed_data(ipack) = pack_tmp
29513  data_tmp = full_data(idata)
29514  pack_tmp = ishft(data_tmp, 32)
29515  pack_tmp = ishft(pack_tmp, -32)
29516  idata = idata + 1
29517  data_tmp = full_data(idata)
29518  data_tmp = ishft(data_tmp, 25)
29519  data_tmp = iand(data_tmp, mask_left(32))
29520  pack_tmp = ior(pack_tmp, data_tmp)
29521  ipack = ipack + 1
29522  packed_data(ipack) = pack_tmp
29523  data_tmp = full_data(idata)
29524  pack_tmp = ishft(data_tmp, 57)
29525  pack_tmp = ishft(pack_tmp, -39)
29526  idata = idata + 1
29527  data_tmp = full_data(idata)
29528  data_tmp = ishft(data_tmp, 25)
29529  pack_tmp = ior(pack_tmp, data_tmp)
29530  pack_tmp = ishft(pack_tmp, -18)
29531  idata = idata + 1
29532  data_tmp = full_data(idata)
29533  data_tmp = ishft(data_tmp, 25)
29534  data_tmp = iand(data_tmp, mask_left(18))
29535  pack_tmp = ior(pack_tmp, data_tmp)
29536  ipack = ipack + 1
29537  packed_data(ipack) = pack_tmp
29538  data_tmp = full_data(idata)
29539  pack_tmp = ishft(data_tmp, 43)
29540  pack_tmp = ishft(pack_tmp, -39)
29541  idata = idata + 1
29542  data_tmp = full_data(idata)
29543  data_tmp = ishft(data_tmp, 25)
29544  pack_tmp = ior(pack_tmp, data_tmp)
29545  pack_tmp = ishft(pack_tmp, -4)
29546  idata = idata + 1
29547  data_tmp = full_data(idata)
29548  data_tmp = ishft(data_tmp, 25)
29549  data_tmp = iand(data_tmp, mask_left(4))
29550  pack_tmp = ior(pack_tmp, data_tmp)
29551  ipack = ipack + 1
29552  packed_data(ipack) = pack_tmp
29553  data_tmp = full_data(idata)
29554  pack_tmp = ishft(data_tmp, 29)
29555  pack_tmp = ishft(pack_tmp, -29)
29556  idata = idata + 1
29557  data_tmp = full_data(idata)
29558  data_tmp = ishft(data_tmp, 25)
29559  data_tmp = iand(data_tmp, mask_left(29))
29560  pack_tmp = ior(pack_tmp, data_tmp)
29561  ipack = ipack + 1
29562  packed_data(ipack) = pack_tmp
29563  data_tmp = full_data(idata)
29564  pack_tmp = ishft(data_tmp, 54)
29565  pack_tmp = ishft(pack_tmp, -39)
29566  idata = idata + 1
29567  data_tmp = full_data(idata)
29568  data_tmp = ishft(data_tmp, 25)
29569  pack_tmp = ior(pack_tmp, data_tmp)
29570  pack_tmp = ishft(pack_tmp, -15)
29571  idata = idata + 1
29572  data_tmp = full_data(idata)
29573  data_tmp = ishft(data_tmp, 25)
29574  data_tmp = iand(data_tmp, mask_left(15))
29575  pack_tmp = ior(pack_tmp, data_tmp)
29576  ipack = ipack + 1
29577  packed_data(ipack) = pack_tmp
29578  data_tmp = full_data(idata)
29579  pack_tmp = ishft(data_tmp, 40)
29580  pack_tmp = ishft(pack_tmp, -39)
29581  idata = idata + 1
29582  data_tmp = full_data(idata)
29583  data_tmp = ishft(data_tmp, 25)
29584  pack_tmp = ior(pack_tmp, data_tmp)
29585  pack_tmp = ishft(pack_tmp, -1)
29586  idata = idata + 1
29587  data_tmp = full_data(idata)
29588  data_tmp = ishft(data_tmp, 25)
29589  data_tmp = iand(data_tmp, mask_left(1))
29590  pack_tmp = ior(pack_tmp, data_tmp)
29591  ipack = ipack + 1
29592  packed_data(ipack) = pack_tmp
29593  data_tmp = full_data(idata)
29594  pack_tmp = ishft(data_tmp, 26)
29595  pack_tmp = ishft(pack_tmp, -26)
29596  idata = idata + 1
29597  data_tmp = full_data(idata)
29598  data_tmp = ishft(data_tmp, 25)
29599  data_tmp = iand(data_tmp, mask_left(26))
29600  pack_tmp = ior(pack_tmp, data_tmp)
29601  ipack = ipack + 1
29602  packed_data(ipack) = pack_tmp
29603  data_tmp = full_data(idata)
29604  pack_tmp = ishft(data_tmp, 51)
29605  pack_tmp = ishft(pack_tmp, -39)
29606  idata = idata + 1
29607  data_tmp = full_data(idata)
29608  data_tmp = ishft(data_tmp, 25)
29609  pack_tmp = ior(pack_tmp, data_tmp)
29610  pack_tmp = ishft(pack_tmp, -12)
29611  idata = idata + 1
29612  data_tmp = full_data(idata)
29613  data_tmp = ishft(data_tmp, 25)
29614  data_tmp = iand(data_tmp, mask_left(12))
29615  pack_tmp = ior(pack_tmp, data_tmp)
29616  ipack = ipack + 1
29617  packed_data(ipack) = pack_tmp
29618  data_tmp = full_data(idata)
29619  pack_tmp = ishft(data_tmp, 37)
29620  pack_tmp = ishft(pack_tmp, -37)
29621  idata = idata + 1
29622  data_tmp = full_data(idata)
29623  data_tmp = ishft(data_tmp, 25)
29624  data_tmp = iand(data_tmp, mask_left(37))
29625  pack_tmp = ior(pack_tmp, data_tmp)
29626  ipack = ipack + 1
29627  packed_data(ipack) = pack_tmp
29628  data_tmp = full_data(idata)
29629  pack_tmp = ishft(data_tmp, 62)
29630  pack_tmp = ishft(pack_tmp, -39)
29631  idata = idata + 1
29632  data_tmp = full_data(idata)
29633  data_tmp = ishft(data_tmp, 25)
29634  pack_tmp = ior(pack_tmp, data_tmp)
29635  pack_tmp = ishft(pack_tmp, -23)
29636  idata = idata + 1
29637  data_tmp = full_data(idata)
29638  data_tmp = ishft(data_tmp, 25)
29639  data_tmp = iand(data_tmp, mask_left(23))
29640  pack_tmp = ior(pack_tmp, data_tmp)
29641  ipack = ipack + 1
29642  packed_data(ipack) = pack_tmp
29643  data_tmp = full_data(idata)
29644  pack_tmp = ishft(data_tmp, 48)
29645  pack_tmp = ishft(pack_tmp, -39)
29646  idata = idata + 1
29647  data_tmp = full_data(idata)
29648  data_tmp = ishft(data_tmp, 25)
29649  pack_tmp = ior(pack_tmp, data_tmp)
29650  pack_tmp = ishft(pack_tmp, -9)
29651  idata = idata + 1
29652  data_tmp = full_data(idata)
29653  data_tmp = ishft(data_tmp, 25)
29654  data_tmp = iand(data_tmp, mask_left(9))
29655  pack_tmp = ior(pack_tmp, data_tmp)
29656  ipack = ipack + 1
29657  packed_data(ipack) = pack_tmp
29658  data_tmp = full_data(idata)
29659  pack_tmp = ishft(data_tmp, 34)
29660  pack_tmp = ishft(pack_tmp, -34)
29661  idata = idata + 1
29662  data_tmp = full_data(idata)
29663  data_tmp = ishft(data_tmp, 25)
29664  data_tmp = iand(data_tmp, mask_left(34))
29665  pack_tmp = ior(pack_tmp, data_tmp)
29666  ipack = ipack + 1
29667  packed_data(ipack) = pack_tmp
29668  data_tmp = full_data(idata)
29669  pack_tmp = ishft(data_tmp, 59)
29670  pack_tmp = ishft(pack_tmp, -39)
29671  idata = idata + 1
29672  data_tmp = full_data(idata)
29673  data_tmp = ishft(data_tmp, 25)
29674  pack_tmp = ior(pack_tmp, data_tmp)
29675  pack_tmp = ishft(pack_tmp, -20)
29676  idata = idata + 1
29677  data_tmp = full_data(idata)
29678  data_tmp = ishft(data_tmp, 25)
29679  data_tmp = iand(data_tmp, mask_left(20))
29680  pack_tmp = ior(pack_tmp, data_tmp)
29681  ipack = ipack + 1
29682  packed_data(ipack) = pack_tmp
29683  data_tmp = full_data(idata)
29684  pack_tmp = ishft(data_tmp, 45)
29685  pack_tmp = ishft(pack_tmp, -39)
29686  idata = idata + 1
29687  data_tmp = full_data(idata)
29688  data_tmp = ishft(data_tmp, 25)
29689  pack_tmp = ior(pack_tmp, data_tmp)
29690  pack_tmp = ishft(pack_tmp, -6)
29691  idata = idata + 1
29692  data_tmp = full_data(idata)
29693  data_tmp = ishft(data_tmp, 25)
29694  data_tmp = iand(data_tmp, mask_left(6))
29695  pack_tmp = ior(pack_tmp, data_tmp)
29696  ipack = ipack + 1
29697  packed_data(ipack) = pack_tmp
29698  data_tmp = full_data(idata)
29699  pack_tmp = ishft(data_tmp, 31)
29700  pack_tmp = ishft(pack_tmp, -31)
29701  idata = idata + 1
29702  data_tmp = full_data(idata)
29703  data_tmp = ishft(data_tmp, 25)
29704  data_tmp = iand(data_tmp, mask_left(31))
29705  pack_tmp = ior(pack_tmp, data_tmp)
29706  ipack = ipack + 1
29707  packed_data(ipack) = pack_tmp
29708  data_tmp = full_data(idata)
29709  pack_tmp = ishft(data_tmp, 56)
29710  pack_tmp = ishft(pack_tmp, -39)
29711  idata = idata + 1
29712  data_tmp = full_data(idata)
29713  data_tmp = ishft(data_tmp, 25)
29714  pack_tmp = ior(pack_tmp, data_tmp)
29715  pack_tmp = ishft(pack_tmp, -17)
29716  idata = idata + 1
29717  data_tmp = full_data(idata)
29718  data_tmp = ishft(data_tmp, 25)
29719  data_tmp = iand(data_tmp, mask_left(17))
29720  pack_tmp = ior(pack_tmp, data_tmp)
29721  ipack = ipack + 1
29722  packed_data(ipack) = pack_tmp
29723  data_tmp = full_data(idata)
29724  pack_tmp = ishft(data_tmp, 42)
29725  pack_tmp = ishft(pack_tmp, -39)
29726  idata = idata + 1
29727  data_tmp = full_data(idata)
29728  data_tmp = ishft(data_tmp, 25)
29729  pack_tmp = ior(pack_tmp, data_tmp)
29730  pack_tmp = ishft(pack_tmp, -3)
29731  idata = idata + 1
29732  data_tmp = full_data(idata)
29733  data_tmp = ishft(data_tmp, 25)
29734  data_tmp = iand(data_tmp, mask_left(3))
29735  pack_tmp = ior(pack_tmp, data_tmp)
29736  ipack = ipack + 1
29737  packed_data(ipack) = pack_tmp
29738  data_tmp = full_data(idata)
29739  pack_tmp = ishft(data_tmp, 28)
29740  pack_tmp = ishft(pack_tmp, -28)
29741  idata = idata + 1
29742  data_tmp = full_data(idata)
29743  data_tmp = ishft(data_tmp, 25)
29744  data_tmp = iand(data_tmp, mask_left(28))
29745  pack_tmp = ior(pack_tmp, data_tmp)
29746  ipack = ipack + 1
29747  packed_data(ipack) = pack_tmp
29748  data_tmp = full_data(idata)
29749  pack_tmp = ishft(data_tmp, 53)
29750  pack_tmp = ishft(pack_tmp, -39)
29751  idata = idata + 1
29752  data_tmp = full_data(idata)
29753  data_tmp = ishft(data_tmp, 25)
29754  pack_tmp = ior(pack_tmp, data_tmp)
29755  pack_tmp = ishft(pack_tmp, -14)
29756  idata = idata + 1
29757  data_tmp = full_data(idata)
29758  data_tmp = ishft(data_tmp, 25)
29759  data_tmp = iand(data_tmp, mask_left(14))
29760  pack_tmp = ior(pack_tmp, data_tmp)
29761  ipack = ipack + 1
29762  packed_data(ipack) = pack_tmp
29763  data_tmp = full_data(idata)
29764  pack_tmp = ishft(data_tmp, 39)
29765  pack_tmp = ishft(pack_tmp, -39)
29766  idata = idata + 1
29767  data_tmp = full_data(idata)
29768  data_tmp = ishft(data_tmp, 25)
29769  pack_tmp = ior(pack_tmp, data_tmp)
29770  pack_tmp = ishft(pack_tmp, 0)
29771  pack_tmp = ishft(pack_tmp, 0)
29772  ipack = ipack + 1
29773  packed_data(ipack) = pack_tmp
29774  END DO
29775  IF (ndata_rep < ndata) THEN
29776  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
29777  END IF
29778  END SUBROUTINE ints2bits_39
29779 
29780 ! **************************************************************************************************
29781 !> \brief ...
29782 !> \param Ndata ...
29783 !> \param packed_data ...
29784 !> \param full_data ...
29785 ! **************************************************************************************************
29786  SUBROUTINE bits2ints_39(Ndata, packed_data, full_data)
29787  INTEGER, INTENT(IN) :: Ndata
29788  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
29789  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
29790 
29791  INTEGER, PARAMETER :: Nbits = 39
29792 
29793  INTEGER :: idata, ipack, kdata, Ndata_rep
29794  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
29795 
29796  ipack = 0
29797  idata = 0
29798  pack_tmp = 0
29799  ndata_rep = (ndata/64)*64
29800  DO kdata = 1, ndata_rep, 64
29801  idata = idata + 1
29802  data_tmp = ishft(pack_tmp, 39)
29803  ipack = ipack + 1
29804  pack_tmp = packed_data(ipack)
29805  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
29806  pack_tmp = ishft(pack_tmp, -39)
29807  idata = idata + 1
29808  data_tmp = ishft(pack_tmp, 14)
29809  ipack = ipack + 1
29810  pack_tmp = packed_data(ipack)
29811  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
29812  pack_tmp = ishft(pack_tmp, -14)
29813  idata = idata + 1
29814  data_tmp = iand(pack_tmp, mask_right(nbits))
29815  full_data(idata) = data_tmp
29816  pack_tmp = ishft(pack_tmp, -nbits)
29817  idata = idata + 1
29818  data_tmp = ishft(pack_tmp, 28)
29819  ipack = ipack + 1
29820  pack_tmp = packed_data(ipack)
29821  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
29822  pack_tmp = ishft(pack_tmp, -28)
29823  idata = idata + 1
29824  data_tmp = ishft(pack_tmp, 3)
29825  ipack = ipack + 1
29826  pack_tmp = packed_data(ipack)
29827  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
29828  pack_tmp = ishft(pack_tmp, -3)
29829  idata = idata + 1
29830  data_tmp = iand(pack_tmp, mask_right(nbits))
29831  full_data(idata) = data_tmp
29832  pack_tmp = ishft(pack_tmp, -nbits)
29833  idata = idata + 1
29834  data_tmp = ishft(pack_tmp, 17)
29835  ipack = ipack + 1
29836  pack_tmp = packed_data(ipack)
29837  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
29838  pack_tmp = ishft(pack_tmp, -17)
29839  idata = idata + 1
29840  data_tmp = iand(pack_tmp, mask_right(nbits))
29841  full_data(idata) = data_tmp
29842  pack_tmp = ishft(pack_tmp, -nbits)
29843  idata = idata + 1
29844  data_tmp = ishft(pack_tmp, 31)
29845  ipack = ipack + 1
29846  pack_tmp = packed_data(ipack)
29847  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
29848  pack_tmp = ishft(pack_tmp, -31)
29849  idata = idata + 1
29850  data_tmp = ishft(pack_tmp, 6)
29851  ipack = ipack + 1
29852  pack_tmp = packed_data(ipack)
29853  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
29854  pack_tmp = ishft(pack_tmp, -6)
29855  idata = idata + 1
29856  data_tmp = iand(pack_tmp, mask_right(nbits))
29857  full_data(idata) = data_tmp
29858  pack_tmp = ishft(pack_tmp, -nbits)
29859  idata = idata + 1
29860  data_tmp = ishft(pack_tmp, 20)
29861  ipack = ipack + 1
29862  pack_tmp = packed_data(ipack)
29863  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
29864  pack_tmp = ishft(pack_tmp, -20)
29865  idata = idata + 1
29866  data_tmp = iand(pack_tmp, mask_right(nbits))
29867  full_data(idata) = data_tmp
29868  pack_tmp = ishft(pack_tmp, -nbits)
29869  idata = idata + 1
29870  data_tmp = ishft(pack_tmp, 34)
29871  ipack = ipack + 1
29872  pack_tmp = packed_data(ipack)
29873  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
29874  pack_tmp = ishft(pack_tmp, -34)
29875  idata = idata + 1
29876  data_tmp = ishft(pack_tmp, 9)
29877  ipack = ipack + 1
29878  pack_tmp = packed_data(ipack)
29879  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
29880  pack_tmp = ishft(pack_tmp, -9)
29881  idata = idata + 1
29882  data_tmp = iand(pack_tmp, mask_right(nbits))
29883  full_data(idata) = data_tmp
29884  pack_tmp = ishft(pack_tmp, -nbits)
29885  idata = idata + 1
29886  data_tmp = ishft(pack_tmp, 23)
29887  ipack = ipack + 1
29888  pack_tmp = packed_data(ipack)
29889  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
29890  pack_tmp = ishft(pack_tmp, -23)
29891  idata = idata + 1
29892  data_tmp = iand(pack_tmp, mask_right(nbits))
29893  full_data(idata) = data_tmp
29894  pack_tmp = ishft(pack_tmp, -nbits)
29895  idata = idata + 1
29896  data_tmp = ishft(pack_tmp, 37)
29897  ipack = ipack + 1
29898  pack_tmp = packed_data(ipack)
29899  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
29900  pack_tmp = ishft(pack_tmp, -37)
29901  idata = idata + 1
29902  data_tmp = ishft(pack_tmp, 12)
29903  ipack = ipack + 1
29904  pack_tmp = packed_data(ipack)
29905  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
29906  pack_tmp = ishft(pack_tmp, -12)
29907  idata = idata + 1
29908  data_tmp = iand(pack_tmp, mask_right(nbits))
29909  full_data(idata) = data_tmp
29910  pack_tmp = ishft(pack_tmp, -nbits)
29911  idata = idata + 1
29912  data_tmp = ishft(pack_tmp, 26)
29913  ipack = ipack + 1
29914  pack_tmp = packed_data(ipack)
29915  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
29916  pack_tmp = ishft(pack_tmp, -26)
29917  idata = idata + 1
29918  data_tmp = ishft(pack_tmp, 1)
29919  ipack = ipack + 1
29920  pack_tmp = packed_data(ipack)
29921  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
29922  pack_tmp = ishft(pack_tmp, -1)
29923  idata = idata + 1
29924  data_tmp = iand(pack_tmp, mask_right(nbits))
29925  full_data(idata) = data_tmp
29926  pack_tmp = ishft(pack_tmp, -nbits)
29927  idata = idata + 1
29928  data_tmp = ishft(pack_tmp, 15)
29929  ipack = ipack + 1
29930  pack_tmp = packed_data(ipack)
29931  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
29932  pack_tmp = ishft(pack_tmp, -15)
29933  idata = idata + 1
29934  data_tmp = iand(pack_tmp, mask_right(nbits))
29935  full_data(idata) = data_tmp
29936  pack_tmp = ishft(pack_tmp, -nbits)
29937  idata = idata + 1
29938  data_tmp = ishft(pack_tmp, 29)
29939  ipack = ipack + 1
29940  pack_tmp = packed_data(ipack)
29941  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
29942  pack_tmp = ishft(pack_tmp, -29)
29943  idata = idata + 1
29944  data_tmp = ishft(pack_tmp, 4)
29945  ipack = ipack + 1
29946  pack_tmp = packed_data(ipack)
29947  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
29948  pack_tmp = ishft(pack_tmp, -4)
29949  idata = idata + 1
29950  data_tmp = iand(pack_tmp, mask_right(nbits))
29951  full_data(idata) = data_tmp
29952  pack_tmp = ishft(pack_tmp, -nbits)
29953  idata = idata + 1
29954  data_tmp = ishft(pack_tmp, 18)
29955  ipack = ipack + 1
29956  pack_tmp = packed_data(ipack)
29957  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
29958  pack_tmp = ishft(pack_tmp, -18)
29959  idata = idata + 1
29960  data_tmp = iand(pack_tmp, mask_right(nbits))
29961  full_data(idata) = data_tmp
29962  pack_tmp = ishft(pack_tmp, -nbits)
29963  idata = idata + 1
29964  data_tmp = ishft(pack_tmp, 32)
29965  ipack = ipack + 1
29966  pack_tmp = packed_data(ipack)
29967  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
29968  pack_tmp = ishft(pack_tmp, -32)
29969  idata = idata + 1
29970  data_tmp = ishft(pack_tmp, 7)
29971  ipack = ipack + 1
29972  pack_tmp = packed_data(ipack)
29973  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
29974  pack_tmp = ishft(pack_tmp, -7)
29975  idata = idata + 1
29976  data_tmp = iand(pack_tmp, mask_right(nbits))
29977  full_data(idata) = data_tmp
29978  pack_tmp = ishft(pack_tmp, -nbits)
29979  idata = idata + 1
29980  data_tmp = ishft(pack_tmp, 21)
29981  ipack = ipack + 1
29982  pack_tmp = packed_data(ipack)
29983  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
29984  pack_tmp = ishft(pack_tmp, -21)
29985  idata = idata + 1
29986  data_tmp = iand(pack_tmp, mask_right(nbits))
29987  full_data(idata) = data_tmp
29988  pack_tmp = ishft(pack_tmp, -nbits)
29989  idata = idata + 1
29990  data_tmp = ishft(pack_tmp, 35)
29991  ipack = ipack + 1
29992  pack_tmp = packed_data(ipack)
29993  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
29994  pack_tmp = ishft(pack_tmp, -35)
29995  idata = idata + 1
29996  data_tmp = ishft(pack_tmp, 10)
29997  ipack = ipack + 1
29998  pack_tmp = packed_data(ipack)
29999  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
30000  pack_tmp = ishft(pack_tmp, -10)
30001  idata = idata + 1
30002  data_tmp = iand(pack_tmp, mask_right(nbits))
30003  full_data(idata) = data_tmp
30004  pack_tmp = ishft(pack_tmp, -nbits)
30005  idata = idata + 1
30006  data_tmp = ishft(pack_tmp, 24)
30007  ipack = ipack + 1
30008  pack_tmp = packed_data(ipack)
30009  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30010  pack_tmp = ishft(pack_tmp, -24)
30011  idata = idata + 1
30012  data_tmp = iand(pack_tmp, mask_right(nbits))
30013  full_data(idata) = data_tmp
30014  pack_tmp = ishft(pack_tmp, -nbits)
30015  idata = idata + 1
30016  data_tmp = ishft(pack_tmp, 38)
30017  ipack = ipack + 1
30018  pack_tmp = packed_data(ipack)
30019  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
30020  pack_tmp = ishft(pack_tmp, -38)
30021  idata = idata + 1
30022  data_tmp = ishft(pack_tmp, 13)
30023  ipack = ipack + 1
30024  pack_tmp = packed_data(ipack)
30025  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
30026  pack_tmp = ishft(pack_tmp, -13)
30027  idata = idata + 1
30028  data_tmp = iand(pack_tmp, mask_right(nbits))
30029  full_data(idata) = data_tmp
30030  pack_tmp = ishft(pack_tmp, -nbits)
30031  idata = idata + 1
30032  data_tmp = ishft(pack_tmp, 27)
30033  ipack = ipack + 1
30034  pack_tmp = packed_data(ipack)
30035  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
30036  pack_tmp = ishft(pack_tmp, -27)
30037  idata = idata + 1
30038  data_tmp = ishft(pack_tmp, 2)
30039  ipack = ipack + 1
30040  pack_tmp = packed_data(ipack)
30041  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
30042  pack_tmp = ishft(pack_tmp, -2)
30043  idata = idata + 1
30044  data_tmp = iand(pack_tmp, mask_right(nbits))
30045  full_data(idata) = data_tmp
30046  pack_tmp = ishft(pack_tmp, -nbits)
30047  idata = idata + 1
30048  data_tmp = ishft(pack_tmp, 16)
30049  ipack = ipack + 1
30050  pack_tmp = packed_data(ipack)
30051  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30052  pack_tmp = ishft(pack_tmp, -16)
30053  idata = idata + 1
30054  data_tmp = iand(pack_tmp, mask_right(nbits))
30055  full_data(idata) = data_tmp
30056  pack_tmp = ishft(pack_tmp, -nbits)
30057  idata = idata + 1
30058  data_tmp = ishft(pack_tmp, 30)
30059  ipack = ipack + 1
30060  pack_tmp = packed_data(ipack)
30061  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
30062  pack_tmp = ishft(pack_tmp, -30)
30063  idata = idata + 1
30064  data_tmp = ishft(pack_tmp, 5)
30065  ipack = ipack + 1
30066  pack_tmp = packed_data(ipack)
30067  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
30068  pack_tmp = ishft(pack_tmp, -5)
30069  idata = idata + 1
30070  data_tmp = iand(pack_tmp, mask_right(nbits))
30071  full_data(idata) = data_tmp
30072  pack_tmp = ishft(pack_tmp, -nbits)
30073  idata = idata + 1
30074  data_tmp = ishft(pack_tmp, 19)
30075  ipack = ipack + 1
30076  pack_tmp = packed_data(ipack)
30077  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
30078  pack_tmp = ishft(pack_tmp, -19)
30079  idata = idata + 1
30080  data_tmp = iand(pack_tmp, mask_right(nbits))
30081  full_data(idata) = data_tmp
30082  pack_tmp = ishft(pack_tmp, -nbits)
30083  idata = idata + 1
30084  data_tmp = ishft(pack_tmp, 33)
30085  ipack = ipack + 1
30086  pack_tmp = packed_data(ipack)
30087  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
30088  pack_tmp = ishft(pack_tmp, -33)
30089  idata = idata + 1
30090  data_tmp = ishft(pack_tmp, 8)
30091  ipack = ipack + 1
30092  pack_tmp = packed_data(ipack)
30093  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30094  pack_tmp = ishft(pack_tmp, -8)
30095  idata = idata + 1
30096  data_tmp = iand(pack_tmp, mask_right(nbits))
30097  full_data(idata) = data_tmp
30098  pack_tmp = ishft(pack_tmp, -nbits)
30099  idata = idata + 1
30100  data_tmp = ishft(pack_tmp, 22)
30101  ipack = ipack + 1
30102  pack_tmp = packed_data(ipack)
30103  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
30104  pack_tmp = ishft(pack_tmp, -22)
30105  idata = idata + 1
30106  data_tmp = iand(pack_tmp, mask_right(nbits))
30107  full_data(idata) = data_tmp
30108  pack_tmp = ishft(pack_tmp, -nbits)
30109  idata = idata + 1
30110  data_tmp = ishft(pack_tmp, 36)
30111  ipack = ipack + 1
30112  pack_tmp = packed_data(ipack)
30113  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
30114  pack_tmp = ishft(pack_tmp, -36)
30115  idata = idata + 1
30116  data_tmp = ishft(pack_tmp, 11)
30117  ipack = ipack + 1
30118  pack_tmp = packed_data(ipack)
30119  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
30120  pack_tmp = ishft(pack_tmp, -11)
30121  idata = idata + 1
30122  data_tmp = iand(pack_tmp, mask_right(nbits))
30123  full_data(idata) = data_tmp
30124  pack_tmp = ishft(pack_tmp, -nbits)
30125  idata = idata + 1
30126  data_tmp = ishft(pack_tmp, 25)
30127  ipack = ipack + 1
30128  pack_tmp = packed_data(ipack)
30129  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
30130  pack_tmp = ishft(pack_tmp, -25)
30131  idata = idata + 1
30132  data_tmp = iand(pack_tmp, mask_right(nbits))
30133  full_data(idata) = data_tmp
30134  pack_tmp = ishft(pack_tmp, -nbits)
30135  END DO
30136  IF (ndata_rep < ndata) THEN
30137  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
30138  END IF
30139  END SUBROUTINE bits2ints_39
30140 
30141 ! **************************************************************************************************
30142 !> \brief ...
30143 !> \param Ndata ...
30144 !> \param packed_data ...
30145 !> \param full_data ...
30146 ! **************************************************************************************************
30147  SUBROUTINE ints2bits_40(Ndata, packed_data, full_data)
30148  INTEGER, INTENT(IN) :: Ndata
30149  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
30150  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
30151 
30152  INTEGER, PARAMETER :: Nbits = 40
30153 
30154  INTEGER :: idata, ipack, kdata, Ndata_rep
30155  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
30156 
30157  idata = 0
30158  ipack = 0
30159  ndata_rep = (ndata/64)*64
30160  DO kdata = 1, ndata_rep, 64
30161  pack_tmp = 0
30162  idata = idata + 1
30163  data_tmp = full_data(idata)
30164  data_tmp = ishft(data_tmp, 24)
30165  pack_tmp = ior(pack_tmp, data_tmp)
30166  pack_tmp = ishft(pack_tmp, -24)
30167  idata = idata + 1
30168  data_tmp = full_data(idata)
30169  data_tmp = ishft(data_tmp, 24)
30170  data_tmp = iand(data_tmp, mask_left(24))
30171  pack_tmp = ior(pack_tmp, data_tmp)
30172  ipack = ipack + 1
30173  packed_data(ipack) = pack_tmp
30174  data_tmp = full_data(idata)
30175  pack_tmp = ishft(data_tmp, 48)
30176  pack_tmp = ishft(pack_tmp, -40)
30177  idata = idata + 1
30178  data_tmp = full_data(idata)
30179  data_tmp = ishft(data_tmp, 24)
30180  pack_tmp = ior(pack_tmp, data_tmp)
30181  pack_tmp = ishft(pack_tmp, -8)
30182  idata = idata + 1
30183  data_tmp = full_data(idata)
30184  data_tmp = ishft(data_tmp, 24)
30185  data_tmp = iand(data_tmp, mask_left(8))
30186  pack_tmp = ior(pack_tmp, data_tmp)
30187  ipack = ipack + 1
30188  packed_data(ipack) = pack_tmp
30189  data_tmp = full_data(idata)
30190  pack_tmp = ishft(data_tmp, 32)
30191  pack_tmp = ishft(pack_tmp, -32)
30192  idata = idata + 1
30193  data_tmp = full_data(idata)
30194  data_tmp = ishft(data_tmp, 24)
30195  data_tmp = iand(data_tmp, mask_left(32))
30196  pack_tmp = ior(pack_tmp, data_tmp)
30197  ipack = ipack + 1
30198  packed_data(ipack) = pack_tmp
30199  data_tmp = full_data(idata)
30200  pack_tmp = ishft(data_tmp, 56)
30201  pack_tmp = ishft(pack_tmp, -40)
30202  idata = idata + 1
30203  data_tmp = full_data(idata)
30204  data_tmp = ishft(data_tmp, 24)
30205  pack_tmp = ior(pack_tmp, data_tmp)
30206  pack_tmp = ishft(pack_tmp, -16)
30207  idata = idata + 1
30208  data_tmp = full_data(idata)
30209  data_tmp = ishft(data_tmp, 24)
30210  data_tmp = iand(data_tmp, mask_left(16))
30211  pack_tmp = ior(pack_tmp, data_tmp)
30212  ipack = ipack + 1
30213  packed_data(ipack) = pack_tmp
30214  data_tmp = full_data(idata)
30215  pack_tmp = ishft(data_tmp, 40)
30216  pack_tmp = ishft(pack_tmp, -40)
30217  idata = idata + 1
30218  data_tmp = full_data(idata)
30219  data_tmp = ishft(data_tmp, 24)
30220  pack_tmp = ior(pack_tmp, data_tmp)
30221  pack_tmp = ishft(pack_tmp, 0)
30222  idata = idata + 1
30223  data_tmp = full_data(idata)
30224  data_tmp = ishft(data_tmp, 24)
30225  data_tmp = iand(data_tmp, mask_left(0))
30226  pack_tmp = ior(pack_tmp, data_tmp)
30227  ipack = ipack + 1
30228  packed_data(ipack) = pack_tmp
30229  data_tmp = full_data(idata)
30230  pack_tmp = ishft(data_tmp, 24)
30231  pack_tmp = ishft(pack_tmp, -24)
30232  idata = idata + 1
30233  data_tmp = full_data(idata)
30234  data_tmp = ishft(data_tmp, 24)
30235  data_tmp = iand(data_tmp, mask_left(24))
30236  pack_tmp = ior(pack_tmp, data_tmp)
30237  ipack = ipack + 1
30238  packed_data(ipack) = pack_tmp
30239  data_tmp = full_data(idata)
30240  pack_tmp = ishft(data_tmp, 48)
30241  pack_tmp = ishft(pack_tmp, -40)
30242  idata = idata + 1
30243  data_tmp = full_data(idata)
30244  data_tmp = ishft(data_tmp, 24)
30245  pack_tmp = ior(pack_tmp, data_tmp)
30246  pack_tmp = ishft(pack_tmp, -8)
30247  idata = idata + 1
30248  data_tmp = full_data(idata)
30249  data_tmp = ishft(data_tmp, 24)
30250  data_tmp = iand(data_tmp, mask_left(8))
30251  pack_tmp = ior(pack_tmp, data_tmp)
30252  ipack = ipack + 1
30253  packed_data(ipack) = pack_tmp
30254  data_tmp = full_data(idata)
30255  pack_tmp = ishft(data_tmp, 32)
30256  pack_tmp = ishft(pack_tmp, -32)
30257  idata = idata + 1
30258  data_tmp = full_data(idata)
30259  data_tmp = ishft(data_tmp, 24)
30260  data_tmp = iand(data_tmp, mask_left(32))
30261  pack_tmp = ior(pack_tmp, data_tmp)
30262  ipack = ipack + 1
30263  packed_data(ipack) = pack_tmp
30264  data_tmp = full_data(idata)
30265  pack_tmp = ishft(data_tmp, 56)
30266  pack_tmp = ishft(pack_tmp, -40)
30267  idata = idata + 1
30268  data_tmp = full_data(idata)
30269  data_tmp = ishft(data_tmp, 24)
30270  pack_tmp = ior(pack_tmp, data_tmp)
30271  pack_tmp = ishft(pack_tmp, -16)
30272  idata = idata + 1
30273  data_tmp = full_data(idata)
30274  data_tmp = ishft(data_tmp, 24)
30275  data_tmp = iand(data_tmp, mask_left(16))
30276  pack_tmp = ior(pack_tmp, data_tmp)
30277  ipack = ipack + 1
30278  packed_data(ipack) = pack_tmp
30279  data_tmp = full_data(idata)
30280  pack_tmp = ishft(data_tmp, 40)
30281  pack_tmp = ishft(pack_tmp, -40)
30282  idata = idata + 1
30283  data_tmp = full_data(idata)
30284  data_tmp = ishft(data_tmp, 24)
30285  pack_tmp = ior(pack_tmp, data_tmp)
30286  pack_tmp = ishft(pack_tmp, 0)
30287  idata = idata + 1
30288  data_tmp = full_data(idata)
30289  data_tmp = ishft(data_tmp, 24)
30290  data_tmp = iand(data_tmp, mask_left(0))
30291  pack_tmp = ior(pack_tmp, data_tmp)
30292  ipack = ipack + 1
30293  packed_data(ipack) = pack_tmp
30294  data_tmp = full_data(idata)
30295  pack_tmp = ishft(data_tmp, 24)
30296  pack_tmp = ishft(pack_tmp, -24)
30297  idata = idata + 1
30298  data_tmp = full_data(idata)
30299  data_tmp = ishft(data_tmp, 24)
30300  data_tmp = iand(data_tmp, mask_left(24))
30301  pack_tmp = ior(pack_tmp, data_tmp)
30302  ipack = ipack + 1
30303  packed_data(ipack) = pack_tmp
30304  data_tmp = full_data(idata)
30305  pack_tmp = ishft(data_tmp, 48)
30306  pack_tmp = ishft(pack_tmp, -40)
30307  idata = idata + 1
30308  data_tmp = full_data(idata)
30309  data_tmp = ishft(data_tmp, 24)
30310  pack_tmp = ior(pack_tmp, data_tmp)
30311  pack_tmp = ishft(pack_tmp, -8)
30312  idata = idata + 1
30313  data_tmp = full_data(idata)
30314  data_tmp = ishft(data_tmp, 24)
30315  data_tmp = iand(data_tmp, mask_left(8))
30316  pack_tmp = ior(pack_tmp, data_tmp)
30317  ipack = ipack + 1
30318  packed_data(ipack) = pack_tmp
30319  data_tmp = full_data(idata)
30320  pack_tmp = ishft(data_tmp, 32)
30321  pack_tmp = ishft(pack_tmp, -32)
30322  idata = idata + 1
30323  data_tmp = full_data(idata)
30324  data_tmp = ishft(data_tmp, 24)
30325  data_tmp = iand(data_tmp, mask_left(32))
30326  pack_tmp = ior(pack_tmp, data_tmp)
30327  ipack = ipack + 1
30328  packed_data(ipack) = pack_tmp
30329  data_tmp = full_data(idata)
30330  pack_tmp = ishft(data_tmp, 56)
30331  pack_tmp = ishft(pack_tmp, -40)
30332  idata = idata + 1
30333  data_tmp = full_data(idata)
30334  data_tmp = ishft(data_tmp, 24)
30335  pack_tmp = ior(pack_tmp, data_tmp)
30336  pack_tmp = ishft(pack_tmp, -16)
30337  idata = idata + 1
30338  data_tmp = full_data(idata)
30339  data_tmp = ishft(data_tmp, 24)
30340  data_tmp = iand(data_tmp, mask_left(16))
30341  pack_tmp = ior(pack_tmp, data_tmp)
30342  ipack = ipack + 1
30343  packed_data(ipack) = pack_tmp
30344  data_tmp = full_data(idata)
30345  pack_tmp = ishft(data_tmp, 40)
30346  pack_tmp = ishft(pack_tmp, -40)
30347  idata = idata + 1
30348  data_tmp = full_data(idata)
30349  data_tmp = ishft(data_tmp, 24)
30350  pack_tmp = ior(pack_tmp, data_tmp)
30351  pack_tmp = ishft(pack_tmp, 0)
30352  idata = idata + 1
30353  data_tmp = full_data(idata)
30354  data_tmp = ishft(data_tmp, 24)
30355  data_tmp = iand(data_tmp, mask_left(0))
30356  pack_tmp = ior(pack_tmp, data_tmp)
30357  ipack = ipack + 1
30358  packed_data(ipack) = pack_tmp
30359  data_tmp = full_data(idata)
30360  pack_tmp = ishft(data_tmp, 24)
30361  pack_tmp = ishft(pack_tmp, -24)
30362  idata = idata + 1
30363  data_tmp = full_data(idata)
30364  data_tmp = ishft(data_tmp, 24)
30365  data_tmp = iand(data_tmp, mask_left(24))
30366  pack_tmp = ior(pack_tmp, data_tmp)
30367  ipack = ipack + 1
30368  packed_data(ipack) = pack_tmp
30369  data_tmp = full_data(idata)
30370  pack_tmp = ishft(data_tmp, 48)
30371  pack_tmp = ishft(pack_tmp, -40)
30372  idata = idata + 1
30373  data_tmp = full_data(idata)
30374  data_tmp = ishft(data_tmp, 24)
30375  pack_tmp = ior(pack_tmp, data_tmp)
30376  pack_tmp = ishft(pack_tmp, -8)
30377  idata = idata + 1
30378  data_tmp = full_data(idata)
30379  data_tmp = ishft(data_tmp, 24)
30380  data_tmp = iand(data_tmp, mask_left(8))
30381  pack_tmp = ior(pack_tmp, data_tmp)
30382  ipack = ipack + 1
30383  packed_data(ipack) = pack_tmp
30384  data_tmp = full_data(idata)
30385  pack_tmp = ishft(data_tmp, 32)
30386  pack_tmp = ishft(pack_tmp, -32)
30387  idata = idata + 1
30388  data_tmp = full_data(idata)
30389  data_tmp = ishft(data_tmp, 24)
30390  data_tmp = iand(data_tmp, mask_left(32))
30391  pack_tmp = ior(pack_tmp, data_tmp)
30392  ipack = ipack + 1
30393  packed_data(ipack) = pack_tmp
30394  data_tmp = full_data(idata)
30395  pack_tmp = ishft(data_tmp, 56)
30396  pack_tmp = ishft(pack_tmp, -40)
30397  idata = idata + 1
30398  data_tmp = full_data(idata)
30399  data_tmp = ishft(data_tmp, 24)
30400  pack_tmp = ior(pack_tmp, data_tmp)
30401  pack_tmp = ishft(pack_tmp, -16)
30402  idata = idata + 1
30403  data_tmp = full_data(idata)
30404  data_tmp = ishft(data_tmp, 24)
30405  data_tmp = iand(data_tmp, mask_left(16))
30406  pack_tmp = ior(pack_tmp, data_tmp)
30407  ipack = ipack + 1
30408  packed_data(ipack) = pack_tmp
30409  data_tmp = full_data(idata)
30410  pack_tmp = ishft(data_tmp, 40)
30411  pack_tmp = ishft(pack_tmp, -40)
30412  idata = idata + 1
30413  data_tmp = full_data(idata)
30414  data_tmp = ishft(data_tmp, 24)
30415  pack_tmp = ior(pack_tmp, data_tmp)
30416  pack_tmp = ishft(pack_tmp, 0)
30417  idata = idata + 1
30418  data_tmp = full_data(idata)
30419  data_tmp = ishft(data_tmp, 24)
30420  data_tmp = iand(data_tmp, mask_left(0))
30421  pack_tmp = ior(pack_tmp, data_tmp)
30422  ipack = ipack + 1
30423  packed_data(ipack) = pack_tmp
30424  data_tmp = full_data(idata)
30425  pack_tmp = ishft(data_tmp, 24)
30426  pack_tmp = ishft(pack_tmp, -24)
30427  idata = idata + 1
30428  data_tmp = full_data(idata)
30429  data_tmp = ishft(data_tmp, 24)
30430  data_tmp = iand(data_tmp, mask_left(24))
30431  pack_tmp = ior(pack_tmp, data_tmp)
30432  ipack = ipack + 1
30433  packed_data(ipack) = pack_tmp
30434  data_tmp = full_data(idata)
30435  pack_tmp = ishft(data_tmp, 48)
30436  pack_tmp = ishft(pack_tmp, -40)
30437  idata = idata + 1
30438  data_tmp = full_data(idata)
30439  data_tmp = ishft(data_tmp, 24)
30440  pack_tmp = ior(pack_tmp, data_tmp)
30441  pack_tmp = ishft(pack_tmp, -8)
30442  idata = idata + 1
30443  data_tmp = full_data(idata)
30444  data_tmp = ishft(data_tmp, 24)
30445  data_tmp = iand(data_tmp, mask_left(8))
30446  pack_tmp = ior(pack_tmp, data_tmp)
30447  ipack = ipack + 1
30448  packed_data(ipack) = pack_tmp
30449  data_tmp = full_data(idata)
30450  pack_tmp = ishft(data_tmp, 32)
30451  pack_tmp = ishft(pack_tmp, -32)
30452  idata = idata + 1
30453  data_tmp = full_data(idata)
30454  data_tmp = ishft(data_tmp, 24)
30455  data_tmp = iand(data_tmp, mask_left(32))
30456  pack_tmp = ior(pack_tmp, data_tmp)
30457  ipack = ipack + 1
30458  packed_data(ipack) = pack_tmp
30459  data_tmp = full_data(idata)
30460  pack_tmp = ishft(data_tmp, 56)
30461  pack_tmp = ishft(pack_tmp, -40)
30462  idata = idata + 1
30463  data_tmp = full_data(idata)
30464  data_tmp = ishft(data_tmp, 24)
30465  pack_tmp = ior(pack_tmp, data_tmp)
30466  pack_tmp = ishft(pack_tmp, -16)
30467  idata = idata + 1
30468  data_tmp = full_data(idata)
30469  data_tmp = ishft(data_tmp, 24)
30470  data_tmp = iand(data_tmp, mask_left(16))
30471  pack_tmp = ior(pack_tmp, data_tmp)
30472  ipack = ipack + 1
30473  packed_data(ipack) = pack_tmp
30474  data_tmp = full_data(idata)
30475  pack_tmp = ishft(data_tmp, 40)
30476  pack_tmp = ishft(pack_tmp, -40)
30477  idata = idata + 1
30478  data_tmp = full_data(idata)
30479  data_tmp = ishft(data_tmp, 24)
30480  pack_tmp = ior(pack_tmp, data_tmp)
30481  pack_tmp = ishft(pack_tmp, 0)
30482  idata = idata + 1
30483  data_tmp = full_data(idata)
30484  data_tmp = ishft(data_tmp, 24)
30485  data_tmp = iand(data_tmp, mask_left(0))
30486  pack_tmp = ior(pack_tmp, data_tmp)
30487  ipack = ipack + 1
30488  packed_data(ipack) = pack_tmp
30489  data_tmp = full_data(idata)
30490  pack_tmp = ishft(data_tmp, 24)
30491  pack_tmp = ishft(pack_tmp, -24)
30492  idata = idata + 1
30493  data_tmp = full_data(idata)
30494  data_tmp = ishft(data_tmp, 24)
30495  data_tmp = iand(data_tmp, mask_left(24))
30496  pack_tmp = ior(pack_tmp, data_tmp)
30497  ipack = ipack + 1
30498  packed_data(ipack) = pack_tmp
30499  data_tmp = full_data(idata)
30500  pack_tmp = ishft(data_tmp, 48)
30501  pack_tmp = ishft(pack_tmp, -40)
30502  idata = idata + 1
30503  data_tmp = full_data(idata)
30504  data_tmp = ishft(data_tmp, 24)
30505  pack_tmp = ior(pack_tmp, data_tmp)
30506  pack_tmp = ishft(pack_tmp, -8)
30507  idata = idata + 1
30508  data_tmp = full_data(idata)
30509  data_tmp = ishft(data_tmp, 24)
30510  data_tmp = iand(data_tmp, mask_left(8))
30511  pack_tmp = ior(pack_tmp, data_tmp)
30512  ipack = ipack + 1
30513  packed_data(ipack) = pack_tmp
30514  data_tmp = full_data(idata)
30515  pack_tmp = ishft(data_tmp, 32)
30516  pack_tmp = ishft(pack_tmp, -32)
30517  idata = idata + 1
30518  data_tmp = full_data(idata)
30519  data_tmp = ishft(data_tmp, 24)
30520  data_tmp = iand(data_tmp, mask_left(32))
30521  pack_tmp = ior(pack_tmp, data_tmp)
30522  ipack = ipack + 1
30523  packed_data(ipack) = pack_tmp
30524  data_tmp = full_data(idata)
30525  pack_tmp = ishft(data_tmp, 56)
30526  pack_tmp = ishft(pack_tmp, -40)
30527  idata = idata + 1
30528  data_tmp = full_data(idata)
30529  data_tmp = ishft(data_tmp, 24)
30530  pack_tmp = ior(pack_tmp, data_tmp)
30531  pack_tmp = ishft(pack_tmp, -16)
30532  idata = idata + 1
30533  data_tmp = full_data(idata)
30534  data_tmp = ishft(data_tmp, 24)
30535  data_tmp = iand(data_tmp, mask_left(16))
30536  pack_tmp = ior(pack_tmp, data_tmp)
30537  ipack = ipack + 1
30538  packed_data(ipack) = pack_tmp
30539  data_tmp = full_data(idata)
30540  pack_tmp = ishft(data_tmp, 40)
30541  pack_tmp = ishft(pack_tmp, -40)
30542  idata = idata + 1
30543  data_tmp = full_data(idata)
30544  data_tmp = ishft(data_tmp, 24)
30545  pack_tmp = ior(pack_tmp, data_tmp)
30546  pack_tmp = ishft(pack_tmp, 0)
30547  idata = idata + 1
30548  data_tmp = full_data(idata)
30549  data_tmp = ishft(data_tmp, 24)
30550  data_tmp = iand(data_tmp, mask_left(0))
30551  pack_tmp = ior(pack_tmp, data_tmp)
30552  ipack = ipack + 1
30553  packed_data(ipack) = pack_tmp
30554  data_tmp = full_data(idata)
30555  pack_tmp = ishft(data_tmp, 24)
30556  pack_tmp = ishft(pack_tmp, -24)
30557  idata = idata + 1
30558  data_tmp = full_data(idata)
30559  data_tmp = ishft(data_tmp, 24)
30560  data_tmp = iand(data_tmp, mask_left(24))
30561  pack_tmp = ior(pack_tmp, data_tmp)
30562  ipack = ipack + 1
30563  packed_data(ipack) = pack_tmp
30564  data_tmp = full_data(idata)
30565  pack_tmp = ishft(data_tmp, 48)
30566  pack_tmp = ishft(pack_tmp, -40)
30567  idata = idata + 1
30568  data_tmp = full_data(idata)
30569  data_tmp = ishft(data_tmp, 24)
30570  pack_tmp = ior(pack_tmp, data_tmp)
30571  pack_tmp = ishft(pack_tmp, -8)
30572  idata = idata + 1
30573  data_tmp = full_data(idata)
30574  data_tmp = ishft(data_tmp, 24)
30575  data_tmp = iand(data_tmp, mask_left(8))
30576  pack_tmp = ior(pack_tmp, data_tmp)
30577  ipack = ipack + 1
30578  packed_data(ipack) = pack_tmp
30579  data_tmp = full_data(idata)
30580  pack_tmp = ishft(data_tmp, 32)
30581  pack_tmp = ishft(pack_tmp, -32)
30582  idata = idata + 1
30583  data_tmp = full_data(idata)
30584  data_tmp = ishft(data_tmp, 24)
30585  data_tmp = iand(data_tmp, mask_left(32))
30586  pack_tmp = ior(pack_tmp, data_tmp)
30587  ipack = ipack + 1
30588  packed_data(ipack) = pack_tmp
30589  data_tmp = full_data(idata)
30590  pack_tmp = ishft(data_tmp, 56)
30591  pack_tmp = ishft(pack_tmp, -40)
30592  idata = idata + 1
30593  data_tmp = full_data(idata)
30594  data_tmp = ishft(data_tmp, 24)
30595  pack_tmp = ior(pack_tmp, data_tmp)
30596  pack_tmp = ishft(pack_tmp, -16)
30597  idata = idata + 1
30598  data_tmp = full_data(idata)
30599  data_tmp = ishft(data_tmp, 24)
30600  data_tmp = iand(data_tmp, mask_left(16))
30601  pack_tmp = ior(pack_tmp, data_tmp)
30602  ipack = ipack + 1
30603  packed_data(ipack) = pack_tmp
30604  data_tmp = full_data(idata)
30605  pack_tmp = ishft(data_tmp, 40)
30606  pack_tmp = ishft(pack_tmp, -40)
30607  idata = idata + 1
30608  data_tmp = full_data(idata)
30609  data_tmp = ishft(data_tmp, 24)
30610  pack_tmp = ior(pack_tmp, data_tmp)
30611  pack_tmp = ishft(pack_tmp, 0)
30612  idata = idata + 1
30613  data_tmp = full_data(idata)
30614  data_tmp = ishft(data_tmp, 24)
30615  data_tmp = iand(data_tmp, mask_left(0))
30616  pack_tmp = ior(pack_tmp, data_tmp)
30617  ipack = ipack + 1
30618  packed_data(ipack) = pack_tmp
30619  data_tmp = full_data(idata)
30620  pack_tmp = ishft(data_tmp, 24)
30621  pack_tmp = ishft(pack_tmp, -24)
30622  idata = idata + 1
30623  data_tmp = full_data(idata)
30624  data_tmp = ishft(data_tmp, 24)
30625  data_tmp = iand(data_tmp, mask_left(24))
30626  pack_tmp = ior(pack_tmp, data_tmp)
30627  ipack = ipack + 1
30628  packed_data(ipack) = pack_tmp
30629  data_tmp = full_data(idata)
30630  pack_tmp = ishft(data_tmp, 48)
30631  pack_tmp = ishft(pack_tmp, -40)
30632  idata = idata + 1
30633  data_tmp = full_data(idata)
30634  data_tmp = ishft(data_tmp, 24)
30635  pack_tmp = ior(pack_tmp, data_tmp)
30636  pack_tmp = ishft(pack_tmp, -8)
30637  idata = idata + 1
30638  data_tmp = full_data(idata)
30639  data_tmp = ishft(data_tmp, 24)
30640  data_tmp = iand(data_tmp, mask_left(8))
30641  pack_tmp = ior(pack_tmp, data_tmp)
30642  ipack = ipack + 1
30643  packed_data(ipack) = pack_tmp
30644  data_tmp = full_data(idata)
30645  pack_tmp = ishft(data_tmp, 32)
30646  pack_tmp = ishft(pack_tmp, -32)
30647  idata = idata + 1
30648  data_tmp = full_data(idata)
30649  data_tmp = ishft(data_tmp, 24)
30650  data_tmp = iand(data_tmp, mask_left(32))
30651  pack_tmp = ior(pack_tmp, data_tmp)
30652  ipack = ipack + 1
30653  packed_data(ipack) = pack_tmp
30654  data_tmp = full_data(idata)
30655  pack_tmp = ishft(data_tmp, 56)
30656  pack_tmp = ishft(pack_tmp, -40)
30657  idata = idata + 1
30658  data_tmp = full_data(idata)
30659  data_tmp = ishft(data_tmp, 24)
30660  pack_tmp = ior(pack_tmp, data_tmp)
30661  pack_tmp = ishft(pack_tmp, -16)
30662  idata = idata + 1
30663  data_tmp = full_data(idata)
30664  data_tmp = ishft(data_tmp, 24)
30665  data_tmp = iand(data_tmp, mask_left(16))
30666  pack_tmp = ior(pack_tmp, data_tmp)
30667  ipack = ipack + 1
30668  packed_data(ipack) = pack_tmp
30669  data_tmp = full_data(idata)
30670  pack_tmp = ishft(data_tmp, 40)
30671  pack_tmp = ishft(pack_tmp, -40)
30672  idata = idata + 1
30673  data_tmp = full_data(idata)
30674  data_tmp = ishft(data_tmp, 24)
30675  pack_tmp = ior(pack_tmp, data_tmp)
30676  pack_tmp = ishft(pack_tmp, 0)
30677  pack_tmp = ishft(pack_tmp, 0)
30678  ipack = ipack + 1
30679  packed_data(ipack) = pack_tmp
30680  END DO
30681  IF (ndata_rep < ndata) THEN
30682  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
30683  END IF
30684  END SUBROUTINE ints2bits_40
30685 
30686 ! **************************************************************************************************
30687 !> \brief ...
30688 !> \param Ndata ...
30689 !> \param packed_data ...
30690 !> \param full_data ...
30691 ! **************************************************************************************************
30692  SUBROUTINE bits2ints_40(Ndata, packed_data, full_data)
30693  INTEGER, INTENT(IN) :: Ndata
30694  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
30695  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
30696 
30697  INTEGER, PARAMETER :: Nbits = 40
30698 
30699  INTEGER :: idata, ipack, kdata, Ndata_rep
30700  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
30701 
30702  ipack = 0
30703  idata = 0
30704  pack_tmp = 0
30705  ndata_rep = (ndata/64)*64
30706  DO kdata = 1, ndata_rep, 64
30707  idata = idata + 1
30708  data_tmp = ishft(pack_tmp, 40)
30709  ipack = ipack + 1
30710  pack_tmp = packed_data(ipack)
30711  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30712  pack_tmp = ishft(pack_tmp, -40)
30713  idata = idata + 1
30714  data_tmp = ishft(pack_tmp, 16)
30715  ipack = ipack + 1
30716  pack_tmp = packed_data(ipack)
30717  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30718  pack_tmp = ishft(pack_tmp, -16)
30719  idata = idata + 1
30720  data_tmp = iand(pack_tmp, mask_right(nbits))
30721  full_data(idata) = data_tmp
30722  pack_tmp = ishft(pack_tmp, -nbits)
30723  idata = idata + 1
30724  data_tmp = ishft(pack_tmp, 32)
30725  ipack = ipack + 1
30726  pack_tmp = packed_data(ipack)
30727  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30728  pack_tmp = ishft(pack_tmp, -32)
30729  idata = idata + 1
30730  data_tmp = ishft(pack_tmp, 8)
30731  ipack = ipack + 1
30732  pack_tmp = packed_data(ipack)
30733  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30734  pack_tmp = ishft(pack_tmp, -8)
30735  idata = idata + 1
30736  data_tmp = iand(pack_tmp, mask_right(nbits))
30737  full_data(idata) = data_tmp
30738  pack_tmp = ishft(pack_tmp, -nbits)
30739  idata = idata + 1
30740  data_tmp = ishft(pack_tmp, 24)
30741  ipack = ipack + 1
30742  pack_tmp = packed_data(ipack)
30743  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30744  pack_tmp = ishft(pack_tmp, -24)
30745  idata = idata + 1
30746  data_tmp = iand(pack_tmp, mask_right(nbits))
30747  full_data(idata) = data_tmp
30748  pack_tmp = ishft(pack_tmp, -nbits)
30749  idata = idata + 1
30750  data_tmp = ishft(pack_tmp, 40)
30751  ipack = ipack + 1
30752  pack_tmp = packed_data(ipack)
30753  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30754  pack_tmp = ishft(pack_tmp, -40)
30755  idata = idata + 1
30756  data_tmp = ishft(pack_tmp, 16)
30757  ipack = ipack + 1
30758  pack_tmp = packed_data(ipack)
30759  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30760  pack_tmp = ishft(pack_tmp, -16)
30761  idata = idata + 1
30762  data_tmp = iand(pack_tmp, mask_right(nbits))
30763  full_data(idata) = data_tmp
30764  pack_tmp = ishft(pack_tmp, -nbits)
30765  idata = idata + 1
30766  data_tmp = ishft(pack_tmp, 32)
30767  ipack = ipack + 1
30768  pack_tmp = packed_data(ipack)
30769  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30770  pack_tmp = ishft(pack_tmp, -32)
30771  idata = idata + 1
30772  data_tmp = ishft(pack_tmp, 8)
30773  ipack = ipack + 1
30774  pack_tmp = packed_data(ipack)
30775  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30776  pack_tmp = ishft(pack_tmp, -8)
30777  idata = idata + 1
30778  data_tmp = iand(pack_tmp, mask_right(nbits))
30779  full_data(idata) = data_tmp
30780  pack_tmp = ishft(pack_tmp, -nbits)
30781  idata = idata + 1
30782  data_tmp = ishft(pack_tmp, 24)
30783  ipack = ipack + 1
30784  pack_tmp = packed_data(ipack)
30785  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30786  pack_tmp = ishft(pack_tmp, -24)
30787  idata = idata + 1
30788  data_tmp = iand(pack_tmp, mask_right(nbits))
30789  full_data(idata) = data_tmp
30790  pack_tmp = ishft(pack_tmp, -nbits)
30791  idata = idata + 1
30792  data_tmp = ishft(pack_tmp, 40)
30793  ipack = ipack + 1
30794  pack_tmp = packed_data(ipack)
30795  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30796  pack_tmp = ishft(pack_tmp, -40)
30797  idata = idata + 1
30798  data_tmp = ishft(pack_tmp, 16)
30799  ipack = ipack + 1
30800  pack_tmp = packed_data(ipack)
30801  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30802  pack_tmp = ishft(pack_tmp, -16)
30803  idata = idata + 1
30804  data_tmp = iand(pack_tmp, mask_right(nbits))
30805  full_data(idata) = data_tmp
30806  pack_tmp = ishft(pack_tmp, -nbits)
30807  idata = idata + 1
30808  data_tmp = ishft(pack_tmp, 32)
30809  ipack = ipack + 1
30810  pack_tmp = packed_data(ipack)
30811  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30812  pack_tmp = ishft(pack_tmp, -32)
30813  idata = idata + 1
30814  data_tmp = ishft(pack_tmp, 8)
30815  ipack = ipack + 1
30816  pack_tmp = packed_data(ipack)
30817  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30818  pack_tmp = ishft(pack_tmp, -8)
30819  idata = idata + 1
30820  data_tmp = iand(pack_tmp, mask_right(nbits))
30821  full_data(idata) = data_tmp
30822  pack_tmp = ishft(pack_tmp, -nbits)
30823  idata = idata + 1
30824  data_tmp = ishft(pack_tmp, 24)
30825  ipack = ipack + 1
30826  pack_tmp = packed_data(ipack)
30827  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30828  pack_tmp = ishft(pack_tmp, -24)
30829  idata = idata + 1
30830  data_tmp = iand(pack_tmp, mask_right(nbits))
30831  full_data(idata) = data_tmp
30832  pack_tmp = ishft(pack_tmp, -nbits)
30833  idata = idata + 1
30834  data_tmp = ishft(pack_tmp, 40)
30835  ipack = ipack + 1
30836  pack_tmp = packed_data(ipack)
30837  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30838  pack_tmp = ishft(pack_tmp, -40)
30839  idata = idata + 1
30840  data_tmp = ishft(pack_tmp, 16)
30841  ipack = ipack + 1
30842  pack_tmp = packed_data(ipack)
30843  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30844  pack_tmp = ishft(pack_tmp, -16)
30845  idata = idata + 1
30846  data_tmp = iand(pack_tmp, mask_right(nbits))
30847  full_data(idata) = data_tmp
30848  pack_tmp = ishft(pack_tmp, -nbits)
30849  idata = idata + 1
30850  data_tmp = ishft(pack_tmp, 32)
30851  ipack = ipack + 1
30852  pack_tmp = packed_data(ipack)
30853  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30854  pack_tmp = ishft(pack_tmp, -32)
30855  idata = idata + 1
30856  data_tmp = ishft(pack_tmp, 8)
30857  ipack = ipack + 1
30858  pack_tmp = packed_data(ipack)
30859  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30860  pack_tmp = ishft(pack_tmp, -8)
30861  idata = idata + 1
30862  data_tmp = iand(pack_tmp, mask_right(nbits))
30863  full_data(idata) = data_tmp
30864  pack_tmp = ishft(pack_tmp, -nbits)
30865  idata = idata + 1
30866  data_tmp = ishft(pack_tmp, 24)
30867  ipack = ipack + 1
30868  pack_tmp = packed_data(ipack)
30869  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30870  pack_tmp = ishft(pack_tmp, -24)
30871  idata = idata + 1
30872  data_tmp = iand(pack_tmp, mask_right(nbits))
30873  full_data(idata) = data_tmp
30874  pack_tmp = ishft(pack_tmp, -nbits)
30875  idata = idata + 1
30876  data_tmp = ishft(pack_tmp, 40)
30877  ipack = ipack + 1
30878  pack_tmp = packed_data(ipack)
30879  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30880  pack_tmp = ishft(pack_tmp, -40)
30881  idata = idata + 1
30882  data_tmp = ishft(pack_tmp, 16)
30883  ipack = ipack + 1
30884  pack_tmp = packed_data(ipack)
30885  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30886  pack_tmp = ishft(pack_tmp, -16)
30887  idata = idata + 1
30888  data_tmp = iand(pack_tmp, mask_right(nbits))
30889  full_data(idata) = data_tmp
30890  pack_tmp = ishft(pack_tmp, -nbits)
30891  idata = idata + 1
30892  data_tmp = ishft(pack_tmp, 32)
30893  ipack = ipack + 1
30894  pack_tmp = packed_data(ipack)
30895  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30896  pack_tmp = ishft(pack_tmp, -32)
30897  idata = idata + 1
30898  data_tmp = ishft(pack_tmp, 8)
30899  ipack = ipack + 1
30900  pack_tmp = packed_data(ipack)
30901  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30902  pack_tmp = ishft(pack_tmp, -8)
30903  idata = idata + 1
30904  data_tmp = iand(pack_tmp, mask_right(nbits))
30905  full_data(idata) = data_tmp
30906  pack_tmp = ishft(pack_tmp, -nbits)
30907  idata = idata + 1
30908  data_tmp = ishft(pack_tmp, 24)
30909  ipack = ipack + 1
30910  pack_tmp = packed_data(ipack)
30911  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30912  pack_tmp = ishft(pack_tmp, -24)
30913  idata = idata + 1
30914  data_tmp = iand(pack_tmp, mask_right(nbits))
30915  full_data(idata) = data_tmp
30916  pack_tmp = ishft(pack_tmp, -nbits)
30917  idata = idata + 1
30918  data_tmp = ishft(pack_tmp, 40)
30919  ipack = ipack + 1
30920  pack_tmp = packed_data(ipack)
30921  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30922  pack_tmp = ishft(pack_tmp, -40)
30923  idata = idata + 1
30924  data_tmp = ishft(pack_tmp, 16)
30925  ipack = ipack + 1
30926  pack_tmp = packed_data(ipack)
30927  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30928  pack_tmp = ishft(pack_tmp, -16)
30929  idata = idata + 1
30930  data_tmp = iand(pack_tmp, mask_right(nbits))
30931  full_data(idata) = data_tmp
30932  pack_tmp = ishft(pack_tmp, -nbits)
30933  idata = idata + 1
30934  data_tmp = ishft(pack_tmp, 32)
30935  ipack = ipack + 1
30936  pack_tmp = packed_data(ipack)
30937  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30938  pack_tmp = ishft(pack_tmp, -32)
30939  idata = idata + 1
30940  data_tmp = ishft(pack_tmp, 8)
30941  ipack = ipack + 1
30942  pack_tmp = packed_data(ipack)
30943  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30944  pack_tmp = ishft(pack_tmp, -8)
30945  idata = idata + 1
30946  data_tmp = iand(pack_tmp, mask_right(nbits))
30947  full_data(idata) = data_tmp
30948  pack_tmp = ishft(pack_tmp, -nbits)
30949  idata = idata + 1
30950  data_tmp = ishft(pack_tmp, 24)
30951  ipack = ipack + 1
30952  pack_tmp = packed_data(ipack)
30953  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30954  pack_tmp = ishft(pack_tmp, -24)
30955  idata = idata + 1
30956  data_tmp = iand(pack_tmp, mask_right(nbits))
30957  full_data(idata) = data_tmp
30958  pack_tmp = ishft(pack_tmp, -nbits)
30959  idata = idata + 1
30960  data_tmp = ishft(pack_tmp, 40)
30961  ipack = ipack + 1
30962  pack_tmp = packed_data(ipack)
30963  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
30964  pack_tmp = ishft(pack_tmp, -40)
30965  idata = idata + 1
30966  data_tmp = ishft(pack_tmp, 16)
30967  ipack = ipack + 1
30968  pack_tmp = packed_data(ipack)
30969  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
30970  pack_tmp = ishft(pack_tmp, -16)
30971  idata = idata + 1
30972  data_tmp = iand(pack_tmp, mask_right(nbits))
30973  full_data(idata) = data_tmp
30974  pack_tmp = ishft(pack_tmp, -nbits)
30975  idata = idata + 1
30976  data_tmp = ishft(pack_tmp, 32)
30977  ipack = ipack + 1
30978  pack_tmp = packed_data(ipack)
30979  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
30980  pack_tmp = ishft(pack_tmp, -32)
30981  idata = idata + 1
30982  data_tmp = ishft(pack_tmp, 8)
30983  ipack = ipack + 1
30984  pack_tmp = packed_data(ipack)
30985  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
30986  pack_tmp = ishft(pack_tmp, -8)
30987  idata = idata + 1
30988  data_tmp = iand(pack_tmp, mask_right(nbits))
30989  full_data(idata) = data_tmp
30990  pack_tmp = ishft(pack_tmp, -nbits)
30991  idata = idata + 1
30992  data_tmp = ishft(pack_tmp, 24)
30993  ipack = ipack + 1
30994  pack_tmp = packed_data(ipack)
30995  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
30996  pack_tmp = ishft(pack_tmp, -24)
30997  idata = idata + 1
30998  data_tmp = iand(pack_tmp, mask_right(nbits))
30999  full_data(idata) = data_tmp
31000  pack_tmp = ishft(pack_tmp, -nbits)
31001  idata = idata + 1
31002  data_tmp = ishft(pack_tmp, 40)
31003  ipack = ipack + 1
31004  pack_tmp = packed_data(ipack)
31005  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
31006  pack_tmp = ishft(pack_tmp, -40)
31007  idata = idata + 1
31008  data_tmp = ishft(pack_tmp, 16)
31009  ipack = ipack + 1
31010  pack_tmp = packed_data(ipack)
31011  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
31012  pack_tmp = ishft(pack_tmp, -16)
31013  idata = idata + 1
31014  data_tmp = iand(pack_tmp, mask_right(nbits))
31015  full_data(idata) = data_tmp
31016  pack_tmp = ishft(pack_tmp, -nbits)
31017  idata = idata + 1
31018  data_tmp = ishft(pack_tmp, 32)
31019  ipack = ipack + 1
31020  pack_tmp = packed_data(ipack)
31021  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
31022  pack_tmp = ishft(pack_tmp, -32)
31023  idata = idata + 1
31024  data_tmp = ishft(pack_tmp, 8)
31025  ipack = ipack + 1
31026  pack_tmp = packed_data(ipack)
31027  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
31028  pack_tmp = ishft(pack_tmp, -8)
31029  idata = idata + 1
31030  data_tmp = iand(pack_tmp, mask_right(nbits))
31031  full_data(idata) = data_tmp
31032  pack_tmp = ishft(pack_tmp, -nbits)
31033  idata = idata + 1
31034  data_tmp = ishft(pack_tmp, 24)
31035  ipack = ipack + 1
31036  pack_tmp = packed_data(ipack)
31037  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
31038  pack_tmp = ishft(pack_tmp, -24)
31039  idata = idata + 1
31040  data_tmp = iand(pack_tmp, mask_right(nbits))
31041  full_data(idata) = data_tmp
31042  pack_tmp = ishft(pack_tmp, -nbits)
31043  END DO
31044  IF (ndata_rep < ndata) THEN
31045  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
31046  END IF
31047  END SUBROUTINE bits2ints_40
31048 
31049 ! **************************************************************************************************
31050 !> \brief ...
31051 !> \param Ndata ...
31052 !> \param packed_data ...
31053 !> \param full_data ...
31054 ! **************************************************************************************************
31055  SUBROUTINE ints2bits_41(Ndata, packed_data, full_data)
31056  INTEGER, INTENT(IN) :: Ndata
31057  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
31058  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
31059 
31060  INTEGER, PARAMETER :: Nbits = 41
31061 
31062  INTEGER :: idata, ipack, kdata, Ndata_rep
31063  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
31064 
31065  idata = 0
31066  ipack = 0
31067  ndata_rep = (ndata/64)*64
31068  DO kdata = 1, ndata_rep, 64
31069  pack_tmp = 0
31070  idata = idata + 1
31071  data_tmp = full_data(idata)
31072  data_tmp = ishft(data_tmp, 23)
31073  pack_tmp = ior(pack_tmp, data_tmp)
31074  pack_tmp = ishft(pack_tmp, -23)
31075  idata = idata + 1
31076  data_tmp = full_data(idata)
31077  data_tmp = ishft(data_tmp, 23)
31078  data_tmp = iand(data_tmp, mask_left(23))
31079  pack_tmp = ior(pack_tmp, data_tmp)
31080  ipack = ipack + 1
31081  packed_data(ipack) = pack_tmp
31082  data_tmp = full_data(idata)
31083  pack_tmp = ishft(data_tmp, 46)
31084  pack_tmp = ishft(pack_tmp, -41)
31085  idata = idata + 1
31086  data_tmp = full_data(idata)
31087  data_tmp = ishft(data_tmp, 23)
31088  pack_tmp = ior(pack_tmp, data_tmp)
31089  pack_tmp = ishft(pack_tmp, -5)
31090  idata = idata + 1
31091  data_tmp = full_data(idata)
31092  data_tmp = ishft(data_tmp, 23)
31093  data_tmp = iand(data_tmp, mask_left(5))
31094  pack_tmp = ior(pack_tmp, data_tmp)
31095  ipack = ipack + 1
31096  packed_data(ipack) = pack_tmp
31097  data_tmp = full_data(idata)
31098  pack_tmp = ishft(data_tmp, 28)
31099  pack_tmp = ishft(pack_tmp, -28)
31100  idata = idata + 1
31101  data_tmp = full_data(idata)
31102  data_tmp = ishft(data_tmp, 23)
31103  data_tmp = iand(data_tmp, mask_left(28))
31104  pack_tmp = ior(pack_tmp, data_tmp)
31105  ipack = ipack + 1
31106  packed_data(ipack) = pack_tmp
31107  data_tmp = full_data(idata)
31108  pack_tmp = ishft(data_tmp, 51)
31109  pack_tmp = ishft(pack_tmp, -41)
31110  idata = idata + 1
31111  data_tmp = full_data(idata)
31112  data_tmp = ishft(data_tmp, 23)
31113  pack_tmp = ior(pack_tmp, data_tmp)
31114  pack_tmp = ishft(pack_tmp, -10)
31115  idata = idata + 1
31116  data_tmp = full_data(idata)
31117  data_tmp = ishft(data_tmp, 23)
31118  data_tmp = iand(data_tmp, mask_left(10))
31119  pack_tmp = ior(pack_tmp, data_tmp)
31120  ipack = ipack + 1
31121  packed_data(ipack) = pack_tmp
31122  data_tmp = full_data(idata)
31123  pack_tmp = ishft(data_tmp, 33)
31124  pack_tmp = ishft(pack_tmp, -33)
31125  idata = idata + 1
31126  data_tmp = full_data(idata)
31127  data_tmp = ishft(data_tmp, 23)
31128  data_tmp = iand(data_tmp, mask_left(33))
31129  pack_tmp = ior(pack_tmp, data_tmp)
31130  ipack = ipack + 1
31131  packed_data(ipack) = pack_tmp
31132  data_tmp = full_data(idata)
31133  pack_tmp = ishft(data_tmp, 56)
31134  pack_tmp = ishft(pack_tmp, -41)
31135  idata = idata + 1
31136  data_tmp = full_data(idata)
31137  data_tmp = ishft(data_tmp, 23)
31138  pack_tmp = ior(pack_tmp, data_tmp)
31139  pack_tmp = ishft(pack_tmp, -15)
31140  idata = idata + 1
31141  data_tmp = full_data(idata)
31142  data_tmp = ishft(data_tmp, 23)
31143  data_tmp = iand(data_tmp, mask_left(15))
31144  pack_tmp = ior(pack_tmp, data_tmp)
31145  ipack = ipack + 1
31146  packed_data(ipack) = pack_tmp
31147  data_tmp = full_data(idata)
31148  pack_tmp = ishft(data_tmp, 38)
31149  pack_tmp = ishft(pack_tmp, -38)
31150  idata = idata + 1
31151  data_tmp = full_data(idata)
31152  data_tmp = ishft(data_tmp, 23)
31153  data_tmp = iand(data_tmp, mask_left(38))
31154  pack_tmp = ior(pack_tmp, data_tmp)
31155  ipack = ipack + 1
31156  packed_data(ipack) = pack_tmp
31157  data_tmp = full_data(idata)
31158  pack_tmp = ishft(data_tmp, 61)
31159  pack_tmp = ishft(pack_tmp, -41)
31160  idata = idata + 1
31161  data_tmp = full_data(idata)
31162  data_tmp = ishft(data_tmp, 23)
31163  pack_tmp = ior(pack_tmp, data_tmp)
31164  pack_tmp = ishft(pack_tmp, -20)
31165  idata = idata + 1
31166  data_tmp = full_data(idata)
31167  data_tmp = ishft(data_tmp, 23)
31168  data_tmp = iand(data_tmp, mask_left(20))
31169  pack_tmp = ior(pack_tmp, data_tmp)
31170  ipack = ipack + 1
31171  packed_data(ipack) = pack_tmp
31172  data_tmp = full_data(idata)
31173  pack_tmp = ishft(data_tmp, 43)
31174  pack_tmp = ishft(pack_tmp, -41)
31175  idata = idata + 1
31176  data_tmp = full_data(idata)
31177  data_tmp = ishft(data_tmp, 23)
31178  pack_tmp = ior(pack_tmp, data_tmp)
31179  pack_tmp = ishft(pack_tmp, -2)
31180  idata = idata + 1
31181  data_tmp = full_data(idata)
31182  data_tmp = ishft(data_tmp, 23)
31183  data_tmp = iand(data_tmp, mask_left(2))
31184  pack_tmp = ior(pack_tmp, data_tmp)
31185  ipack = ipack + 1
31186  packed_data(ipack) = pack_tmp
31187  data_tmp = full_data(idata)
31188  pack_tmp = ishft(data_tmp, 25)
31189  pack_tmp = ishft(pack_tmp, -25)
31190  idata = idata + 1
31191  data_tmp = full_data(idata)
31192  data_tmp = ishft(data_tmp, 23)
31193  data_tmp = iand(data_tmp, mask_left(25))
31194  pack_tmp = ior(pack_tmp, data_tmp)
31195  ipack = ipack + 1
31196  packed_data(ipack) = pack_tmp
31197  data_tmp = full_data(idata)
31198  pack_tmp = ishft(data_tmp, 48)
31199  pack_tmp = ishft(pack_tmp, -41)
31200  idata = idata + 1
31201  data_tmp = full_data(idata)
31202  data_tmp = ishft(data_tmp, 23)
31203  pack_tmp = ior(pack_tmp, data_tmp)
31204  pack_tmp = ishft(pack_tmp, -7)
31205  idata = idata + 1
31206  data_tmp = full_data(idata)
31207  data_tmp = ishft(data_tmp, 23)
31208  data_tmp = iand(data_tmp, mask_left(7))
31209  pack_tmp = ior(pack_tmp, data_tmp)
31210  ipack = ipack + 1
31211  packed_data(ipack) = pack_tmp
31212  data_tmp = full_data(idata)
31213  pack_tmp = ishft(data_tmp, 30)
31214  pack_tmp = ishft(pack_tmp, -30)
31215  idata = idata + 1
31216  data_tmp = full_data(idata)
31217  data_tmp = ishft(data_tmp, 23)
31218  data_tmp = iand(data_tmp, mask_left(30))
31219  pack_tmp = ior(pack_tmp, data_tmp)
31220  ipack = ipack + 1
31221  packed_data(ipack) = pack_tmp
31222  data_tmp = full_data(idata)
31223  pack_tmp = ishft(data_tmp, 53)
31224  pack_tmp = ishft(pack_tmp, -41)
31225  idata = idata + 1
31226  data_tmp = full_data(idata)
31227  data_tmp = ishft(data_tmp, 23)
31228  pack_tmp = ior(pack_tmp, data_tmp)
31229  pack_tmp = ishft(pack_tmp, -12)
31230  idata = idata + 1
31231  data_tmp = full_data(idata)
31232  data_tmp = ishft(data_tmp, 23)
31233  data_tmp = iand(data_tmp, mask_left(12))
31234  pack_tmp = ior(pack_tmp, data_tmp)
31235  ipack = ipack + 1
31236  packed_data(ipack) = pack_tmp
31237  data_tmp = full_data(idata)
31238  pack_tmp = ishft(data_tmp, 35)
31239  pack_tmp = ishft(pack_tmp, -35)
31240  idata = idata + 1
31241  data_tmp = full_data(idata)
31242  data_tmp = ishft(data_tmp, 23)
31243  data_tmp = iand(data_tmp, mask_left(35))
31244  pack_tmp = ior(pack_tmp, data_tmp)
31245  ipack = ipack + 1
31246  packed_data(ipack) = pack_tmp
31247  data_tmp = full_data(idata)
31248  pack_tmp = ishft(data_tmp, 58)
31249  pack_tmp = ishft(pack_tmp, -41)
31250  idata = idata + 1
31251  data_tmp = full_data(idata)
31252  data_tmp = ishft(data_tmp, 23)
31253  pack_tmp = ior(pack_tmp, data_tmp)
31254  pack_tmp = ishft(pack_tmp, -17)
31255  idata = idata + 1
31256  data_tmp = full_data(idata)
31257  data_tmp = ishft(data_tmp, 23)
31258  data_tmp = iand(data_tmp, mask_left(17))
31259  pack_tmp = ior(pack_tmp, data_tmp)
31260  ipack = ipack + 1
31261  packed_data(ipack) = pack_tmp
31262  data_tmp = full_data(idata)
31263  pack_tmp = ishft(data_tmp, 40)
31264  pack_tmp = ishft(pack_tmp, -40)
31265  idata = idata + 1
31266  data_tmp = full_data(idata)
31267  data_tmp = ishft(data_tmp, 23)
31268  data_tmp = iand(data_tmp, mask_left(40))
31269  pack_tmp = ior(pack_tmp, data_tmp)
31270  ipack = ipack + 1
31271  packed_data(ipack) = pack_tmp
31272  data_tmp = full_data(idata)
31273  pack_tmp = ishft(data_tmp, 63)
31274  pack_tmp = ishft(pack_tmp, -41)
31275  idata = idata + 1
31276  data_tmp = full_data(idata)
31277  data_tmp = ishft(data_tmp, 23)
31278  pack_tmp = ior(pack_tmp, data_tmp)
31279  pack_tmp = ishft(pack_tmp, -22)
31280  idata = idata + 1
31281  data_tmp = full_data(idata)
31282  data_tmp = ishft(data_tmp, 23)
31283  data_tmp = iand(data_tmp, mask_left(22))
31284  pack_tmp = ior(pack_tmp, data_tmp)
31285  ipack = ipack + 1
31286  packed_data(ipack) = pack_tmp
31287  data_tmp = full_data(idata)
31288  pack_tmp = ishft(data_tmp, 45)
31289  pack_tmp = ishft(pack_tmp, -41)
31290  idata = idata + 1
31291  data_tmp = full_data(idata)
31292  data_tmp = ishft(data_tmp, 23)
31293  pack_tmp = ior(pack_tmp, data_tmp)
31294  pack_tmp = ishft(pack_tmp, -4)
31295  idata = idata + 1
31296  data_tmp = full_data(idata)
31297  data_tmp = ishft(data_tmp, 23)
31298  data_tmp = iand(data_tmp, mask_left(4))
31299  pack_tmp = ior(pack_tmp, data_tmp)
31300  ipack = ipack + 1
31301  packed_data(ipack) = pack_tmp
31302  data_tmp = full_data(idata)
31303  pack_tmp = ishft(data_tmp, 27)
31304  pack_tmp = ishft(pack_tmp, -27)
31305  idata = idata + 1
31306  data_tmp = full_data(idata)
31307  data_tmp = ishft(data_tmp, 23)
31308  data_tmp = iand(data_tmp, mask_left(27))
31309  pack_tmp = ior(pack_tmp, data_tmp)
31310  ipack = ipack + 1
31311  packed_data(ipack) = pack_tmp
31312  data_tmp = full_data(idata)
31313  pack_tmp = ishft(data_tmp, 50)
31314  pack_tmp = ishft(pack_tmp, -41)
31315  idata = idata + 1
31316  data_tmp = full_data(idata)
31317  data_tmp = ishft(data_tmp, 23)
31318  pack_tmp = ior(pack_tmp, data_tmp)
31319  pack_tmp = ishft(pack_tmp, -9)
31320  idata = idata + 1
31321  data_tmp = full_data(idata)
31322  data_tmp = ishft(data_tmp, 23)
31323  data_tmp = iand(data_tmp, mask_left(9))
31324  pack_tmp = ior(pack_tmp, data_tmp)
31325  ipack = ipack + 1
31326  packed_data(ipack) = pack_tmp
31327  data_tmp = full_data(idata)
31328  pack_tmp = ishft(data_tmp, 32)
31329  pack_tmp = ishft(pack_tmp, -32)
31330  idata = idata + 1
31331  data_tmp = full_data(idata)
31332  data_tmp = ishft(data_tmp, 23)
31333  data_tmp = iand(data_tmp, mask_left(32))
31334  pack_tmp = ior(pack_tmp, data_tmp)
31335  ipack = ipack + 1
31336  packed_data(ipack) = pack_tmp
31337  data_tmp = full_data(idata)
31338  pack_tmp = ishft(data_tmp, 55)
31339  pack_tmp = ishft(pack_tmp, -41)
31340  idata = idata + 1
31341  data_tmp = full_data(idata)
31342  data_tmp = ishft(data_tmp, 23)
31343  pack_tmp = ior(pack_tmp, data_tmp)
31344  pack_tmp = ishft(pack_tmp, -14)
31345  idata = idata + 1
31346  data_tmp = full_data(idata)
31347  data_tmp = ishft(data_tmp, 23)
31348  data_tmp = iand(data_tmp, mask_left(14))
31349  pack_tmp = ior(pack_tmp, data_tmp)
31350  ipack = ipack + 1
31351  packed_data(ipack) = pack_tmp
31352  data_tmp = full_data(idata)
31353  pack_tmp = ishft(data_tmp, 37)
31354  pack_tmp = ishft(pack_tmp, -37)
31355  idata = idata + 1
31356  data_tmp = full_data(idata)
31357  data_tmp = ishft(data_tmp, 23)
31358  data_tmp = iand(data_tmp, mask_left(37))
31359  pack_tmp = ior(pack_tmp, data_tmp)
31360  ipack = ipack + 1
31361  packed_data(ipack) = pack_tmp
31362  data_tmp = full_data(idata)
31363  pack_tmp = ishft(data_tmp, 60)
31364  pack_tmp = ishft(pack_tmp, -41)
31365  idata = idata + 1
31366  data_tmp = full_data(idata)
31367  data_tmp = ishft(data_tmp, 23)
31368  pack_tmp = ior(pack_tmp, data_tmp)
31369  pack_tmp = ishft(pack_tmp, -19)
31370  idata = idata + 1
31371  data_tmp = full_data(idata)
31372  data_tmp = ishft(data_tmp, 23)
31373  data_tmp = iand(data_tmp, mask_left(19))
31374  pack_tmp = ior(pack_tmp, data_tmp)
31375  ipack = ipack + 1
31376  packed_data(ipack) = pack_tmp
31377  data_tmp = full_data(idata)
31378  pack_tmp = ishft(data_tmp, 42)
31379  pack_tmp = ishft(pack_tmp, -41)
31380  idata = idata + 1
31381  data_tmp = full_data(idata)
31382  data_tmp = ishft(data_tmp, 23)
31383  pack_tmp = ior(pack_tmp, data_tmp)
31384  pack_tmp = ishft(pack_tmp, -1)
31385  idata = idata + 1
31386  data_tmp = full_data(idata)
31387  data_tmp = ishft(data_tmp, 23)
31388  data_tmp = iand(data_tmp, mask_left(1))
31389  pack_tmp = ior(pack_tmp, data_tmp)
31390  ipack = ipack + 1
31391  packed_data(ipack) = pack_tmp
31392  data_tmp = full_data(idata)
31393  pack_tmp = ishft(data_tmp, 24)
31394  pack_tmp = ishft(pack_tmp, -24)
31395  idata = idata + 1
31396  data_tmp = full_data(idata)
31397  data_tmp = ishft(data_tmp, 23)
31398  data_tmp = iand(data_tmp, mask_left(24))
31399  pack_tmp = ior(pack_tmp, data_tmp)
31400  ipack = ipack + 1
31401  packed_data(ipack) = pack_tmp
31402  data_tmp = full_data(idata)
31403  pack_tmp = ishft(data_tmp, 47)
31404  pack_tmp = ishft(pack_tmp, -41)
31405  idata = idata + 1
31406  data_tmp = full_data(idata)
31407  data_tmp = ishft(data_tmp, 23)
31408  pack_tmp = ior(pack_tmp, data_tmp)
31409  pack_tmp = ishft(pack_tmp, -6)
31410  idata = idata + 1
31411  data_tmp = full_data(idata)
31412  data_tmp = ishft(data_tmp, 23)
31413  data_tmp = iand(data_tmp, mask_left(6))
31414  pack_tmp = ior(pack_tmp, data_tmp)
31415  ipack = ipack + 1
31416  packed_data(ipack) = pack_tmp
31417  data_tmp = full_data(idata)
31418  pack_tmp = ishft(data_tmp, 29)
31419  pack_tmp = ishft(pack_tmp, -29)
31420  idata = idata + 1
31421  data_tmp = full_data(idata)
31422  data_tmp = ishft(data_tmp, 23)
31423  data_tmp = iand(data_tmp, mask_left(29))
31424  pack_tmp = ior(pack_tmp, data_tmp)
31425  ipack = ipack + 1
31426  packed_data(ipack) = pack_tmp
31427  data_tmp = full_data(idata)
31428  pack_tmp = ishft(data_tmp, 52)
31429  pack_tmp = ishft(pack_tmp, -41)
31430  idata = idata + 1
31431  data_tmp = full_data(idata)
31432  data_tmp = ishft(data_tmp, 23)
31433  pack_tmp = ior(pack_tmp, data_tmp)
31434  pack_tmp = ishft(pack_tmp, -11)
31435  idata = idata + 1
31436  data_tmp = full_data(idata)
31437  data_tmp = ishft(data_tmp, 23)
31438  data_tmp = iand(data_tmp, mask_left(11))
31439  pack_tmp = ior(pack_tmp, data_tmp)
31440  ipack = ipack + 1
31441  packed_data(ipack) = pack_tmp
31442  data_tmp = full_data(idata)
31443  pack_tmp = ishft(data_tmp, 34)
31444  pack_tmp = ishft(pack_tmp, -34)
31445  idata = idata + 1
31446  data_tmp = full_data(idata)
31447  data_tmp = ishft(data_tmp, 23)
31448  data_tmp = iand(data_tmp, mask_left(34))
31449  pack_tmp = ior(pack_tmp, data_tmp)
31450  ipack = ipack + 1
31451  packed_data(ipack) = pack_tmp
31452  data_tmp = full_data(idata)
31453  pack_tmp = ishft(data_tmp, 57)
31454  pack_tmp = ishft(pack_tmp, -41)
31455  idata = idata + 1
31456  data_tmp = full_data(idata)
31457  data_tmp = ishft(data_tmp, 23)
31458  pack_tmp = ior(pack_tmp, data_tmp)
31459  pack_tmp = ishft(pack_tmp, -16)
31460  idata = idata + 1
31461  data_tmp = full_data(idata)
31462  data_tmp = ishft(data_tmp, 23)
31463  data_tmp = iand(data_tmp, mask_left(16))
31464  pack_tmp = ior(pack_tmp, data_tmp)
31465  ipack = ipack + 1
31466  packed_data(ipack) = pack_tmp
31467  data_tmp = full_data(idata)
31468  pack_tmp = ishft(data_tmp, 39)
31469  pack_tmp = ishft(pack_tmp, -39)
31470  idata = idata + 1
31471  data_tmp = full_data(idata)
31472  data_tmp = ishft(data_tmp, 23)
31473  data_tmp = iand(data_tmp, mask_left(39))
31474  pack_tmp = ior(pack_tmp, data_tmp)
31475  ipack = ipack + 1
31476  packed_data(ipack) = pack_tmp
31477  data_tmp = full_data(idata)
31478  pack_tmp = ishft(data_tmp, 62)
31479  pack_tmp = ishft(pack_tmp, -41)
31480  idata = idata + 1
31481  data_tmp = full_data(idata)
31482  data_tmp = ishft(data_tmp, 23)
31483  pack_tmp = ior(pack_tmp, data_tmp)
31484  pack_tmp = ishft(pack_tmp, -21)
31485  idata = idata + 1
31486  data_tmp = full_data(idata)
31487  data_tmp = ishft(data_tmp, 23)
31488  data_tmp = iand(data_tmp, mask_left(21))
31489  pack_tmp = ior(pack_tmp, data_tmp)
31490  ipack = ipack + 1
31491  packed_data(ipack) = pack_tmp
31492  data_tmp = full_data(idata)
31493  pack_tmp = ishft(data_tmp, 44)
31494  pack_tmp = ishft(pack_tmp, -41)
31495  idata = idata + 1
31496  data_tmp = full_data(idata)
31497  data_tmp = ishft(data_tmp, 23)
31498  pack_tmp = ior(pack_tmp, data_tmp)
31499  pack_tmp = ishft(pack_tmp, -3)
31500  idata = idata + 1
31501  data_tmp = full_data(idata)
31502  data_tmp = ishft(data_tmp, 23)
31503  data_tmp = iand(data_tmp, mask_left(3))
31504  pack_tmp = ior(pack_tmp, data_tmp)
31505  ipack = ipack + 1
31506  packed_data(ipack) = pack_tmp
31507  data_tmp = full_data(idata)
31508  pack_tmp = ishft(data_tmp, 26)
31509  pack_tmp = ishft(pack_tmp, -26)
31510  idata = idata + 1
31511  data_tmp = full_data(idata)
31512  data_tmp = ishft(data_tmp, 23)
31513  data_tmp = iand(data_tmp, mask_left(26))
31514  pack_tmp = ior(pack_tmp, data_tmp)
31515  ipack = ipack + 1
31516  packed_data(ipack) = pack_tmp
31517  data_tmp = full_data(idata)
31518  pack_tmp = ishft(data_tmp, 49)
31519  pack_tmp = ishft(pack_tmp, -41)
31520  idata = idata + 1
31521  data_tmp = full_data(idata)
31522  data_tmp = ishft(data_tmp, 23)
31523  pack_tmp = ior(pack_tmp, data_tmp)
31524  pack_tmp = ishft(pack_tmp, -8)
31525  idata = idata + 1
31526  data_tmp = full_data(idata)
31527  data_tmp = ishft(data_tmp, 23)
31528  data_tmp = iand(data_tmp, mask_left(8))
31529  pack_tmp = ior(pack_tmp, data_tmp)
31530  ipack = ipack + 1
31531  packed_data(ipack) = pack_tmp
31532  data_tmp = full_data(idata)
31533  pack_tmp = ishft(data_tmp, 31)
31534  pack_tmp = ishft(pack_tmp, -31)
31535  idata = idata + 1
31536  data_tmp = full_data(idata)
31537  data_tmp = ishft(data_tmp, 23)
31538  data_tmp = iand(data_tmp, mask_left(31))
31539  pack_tmp = ior(pack_tmp, data_tmp)
31540  ipack = ipack + 1
31541  packed_data(ipack) = pack_tmp
31542  data_tmp = full_data(idata)
31543  pack_tmp = ishft(data_tmp, 54)
31544  pack_tmp = ishft(pack_tmp, -41)
31545  idata = idata + 1
31546  data_tmp = full_data(idata)
31547  data_tmp = ishft(data_tmp, 23)
31548  pack_tmp = ior(pack_tmp, data_tmp)
31549  pack_tmp = ishft(pack_tmp, -13)
31550  idata = idata + 1
31551  data_tmp = full_data(idata)
31552  data_tmp = ishft(data_tmp, 23)
31553  data_tmp = iand(data_tmp, mask_left(13))
31554  pack_tmp = ior(pack_tmp, data_tmp)
31555  ipack = ipack + 1
31556  packed_data(ipack) = pack_tmp
31557  data_tmp = full_data(idata)
31558  pack_tmp = ishft(data_tmp, 36)
31559  pack_tmp = ishft(pack_tmp, -36)
31560  idata = idata + 1
31561  data_tmp = full_data(idata)
31562  data_tmp = ishft(data_tmp, 23)
31563  data_tmp = iand(data_tmp, mask_left(36))
31564  pack_tmp = ior(pack_tmp, data_tmp)
31565  ipack = ipack + 1
31566  packed_data(ipack) = pack_tmp
31567  data_tmp = full_data(idata)
31568  pack_tmp = ishft(data_tmp, 59)
31569  pack_tmp = ishft(pack_tmp, -41)
31570  idata = idata + 1
31571  data_tmp = full_data(idata)
31572  data_tmp = ishft(data_tmp, 23)
31573  pack_tmp = ior(pack_tmp, data_tmp)
31574  pack_tmp = ishft(pack_tmp, -18)
31575  idata = idata + 1
31576  data_tmp = full_data(idata)
31577  data_tmp = ishft(data_tmp, 23)
31578  data_tmp = iand(data_tmp, mask_left(18))
31579  pack_tmp = ior(pack_tmp, data_tmp)
31580  ipack = ipack + 1
31581  packed_data(ipack) = pack_tmp
31582  data_tmp = full_data(idata)
31583  pack_tmp = ishft(data_tmp, 41)
31584  pack_tmp = ishft(pack_tmp, -41)
31585  idata = idata + 1
31586  data_tmp = full_data(idata)
31587  data_tmp = ishft(data_tmp, 23)
31588  pack_tmp = ior(pack_tmp, data_tmp)
31589  pack_tmp = ishft(pack_tmp, 0)
31590  pack_tmp = ishft(pack_tmp, 0)
31591  ipack = ipack + 1
31592  packed_data(ipack) = pack_tmp
31593  END DO
31594  IF (ndata_rep < ndata) THEN
31595  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
31596  END IF
31597  END SUBROUTINE ints2bits_41
31598 
31599 ! **************************************************************************************************
31600 !> \brief ...
31601 !> \param Ndata ...
31602 !> \param packed_data ...
31603 !> \param full_data ...
31604 ! **************************************************************************************************
31605  SUBROUTINE bits2ints_41(Ndata, packed_data, full_data)
31606  INTEGER, INTENT(IN) :: Ndata
31607  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
31608  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
31609 
31610  INTEGER, PARAMETER :: Nbits = 41
31611 
31612  INTEGER :: idata, ipack, kdata, Ndata_rep
31613  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
31614 
31615  ipack = 0
31616  idata = 0
31617  pack_tmp = 0
31618  ndata_rep = (ndata/64)*64
31619  DO kdata = 1, ndata_rep, 64
31620  idata = idata + 1
31621  data_tmp = ishft(pack_tmp, 41)
31622  ipack = ipack + 1
31623  pack_tmp = packed_data(ipack)
31624  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
31625  pack_tmp = ishft(pack_tmp, -41)
31626  idata = idata + 1
31627  data_tmp = ishft(pack_tmp, 18)
31628  ipack = ipack + 1
31629  pack_tmp = packed_data(ipack)
31630  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
31631  pack_tmp = ishft(pack_tmp, -18)
31632  idata = idata + 1
31633  data_tmp = iand(pack_tmp, mask_right(nbits))
31634  full_data(idata) = data_tmp
31635  pack_tmp = ishft(pack_tmp, -nbits)
31636  idata = idata + 1
31637  data_tmp = ishft(pack_tmp, 36)
31638  ipack = ipack + 1
31639  pack_tmp = packed_data(ipack)
31640  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
31641  pack_tmp = ishft(pack_tmp, -36)
31642  idata = idata + 1
31643  data_tmp = ishft(pack_tmp, 13)
31644  ipack = ipack + 1
31645  pack_tmp = packed_data(ipack)
31646  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
31647  pack_tmp = ishft(pack_tmp, -13)
31648  idata = idata + 1
31649  data_tmp = iand(pack_tmp, mask_right(nbits))
31650  full_data(idata) = data_tmp
31651  pack_tmp = ishft(pack_tmp, -nbits)
31652  idata = idata + 1
31653  data_tmp = ishft(pack_tmp, 31)
31654  ipack = ipack + 1
31655  pack_tmp = packed_data(ipack)
31656  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
31657  pack_tmp = ishft(pack_tmp, -31)
31658  idata = idata + 1
31659  data_tmp = ishft(pack_tmp, 8)
31660  ipack = ipack + 1
31661  pack_tmp = packed_data(ipack)
31662  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
31663  pack_tmp = ishft(pack_tmp, -8)
31664  idata = idata + 1
31665  data_tmp = iand(pack_tmp, mask_right(nbits))
31666  full_data(idata) = data_tmp
31667  pack_tmp = ishft(pack_tmp, -nbits)
31668  idata = idata + 1
31669  data_tmp = ishft(pack_tmp, 26)
31670  ipack = ipack + 1
31671  pack_tmp = packed_data(ipack)
31672  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
31673  pack_tmp = ishft(pack_tmp, -26)
31674  idata = idata + 1
31675  data_tmp = ishft(pack_tmp, 3)
31676  ipack = ipack + 1
31677  pack_tmp = packed_data(ipack)
31678  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
31679  pack_tmp = ishft(pack_tmp, -3)
31680  idata = idata + 1
31681  data_tmp = iand(pack_tmp, mask_right(nbits))
31682  full_data(idata) = data_tmp
31683  pack_tmp = ishft(pack_tmp, -nbits)
31684  idata = idata + 1
31685  data_tmp = ishft(pack_tmp, 21)
31686  ipack = ipack + 1
31687  pack_tmp = packed_data(ipack)
31688  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
31689  pack_tmp = ishft(pack_tmp, -21)
31690  idata = idata + 1
31691  data_tmp = iand(pack_tmp, mask_right(nbits))
31692  full_data(idata) = data_tmp
31693  pack_tmp = ishft(pack_tmp, -nbits)
31694  idata = idata + 1
31695  data_tmp = ishft(pack_tmp, 39)
31696  ipack = ipack + 1
31697  pack_tmp = packed_data(ipack)
31698  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
31699  pack_tmp = ishft(pack_tmp, -39)
31700  idata = idata + 1
31701  data_tmp = ishft(pack_tmp, 16)
31702  ipack = ipack + 1
31703  pack_tmp = packed_data(ipack)
31704  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
31705  pack_tmp = ishft(pack_tmp, -16)
31706  idata = idata + 1
31707  data_tmp = iand(pack_tmp, mask_right(nbits))
31708  full_data(idata) = data_tmp
31709  pack_tmp = ishft(pack_tmp, -nbits)
31710  idata = idata + 1
31711  data_tmp = ishft(pack_tmp, 34)
31712  ipack = ipack + 1
31713  pack_tmp = packed_data(ipack)
31714  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
31715  pack_tmp = ishft(pack_tmp, -34)
31716  idata = idata + 1
31717  data_tmp = ishft(pack_tmp, 11)
31718  ipack = ipack + 1
31719  pack_tmp = packed_data(ipack)
31720  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
31721  pack_tmp = ishft(pack_tmp, -11)
31722  idata = idata + 1
31723  data_tmp = iand(pack_tmp, mask_right(nbits))
31724  full_data(idata) = data_tmp
31725  pack_tmp = ishft(pack_tmp, -nbits)
31726  idata = idata + 1
31727  data_tmp = ishft(pack_tmp, 29)
31728  ipack = ipack + 1
31729  pack_tmp = packed_data(ipack)
31730  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
31731  pack_tmp = ishft(pack_tmp, -29)
31732  idata = idata + 1
31733  data_tmp = ishft(pack_tmp, 6)
31734  ipack = ipack + 1
31735  pack_tmp = packed_data(ipack)
31736  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
31737  pack_tmp = ishft(pack_tmp, -6)
31738  idata = idata + 1
31739  data_tmp = iand(pack_tmp, mask_right(nbits))
31740  full_data(idata) = data_tmp
31741  pack_tmp = ishft(pack_tmp, -nbits)
31742  idata = idata + 1
31743  data_tmp = ishft(pack_tmp, 24)
31744  ipack = ipack + 1
31745  pack_tmp = packed_data(ipack)
31746  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
31747  pack_tmp = ishft(pack_tmp, -24)
31748  idata = idata + 1
31749  data_tmp = ishft(pack_tmp, 1)
31750  ipack = ipack + 1
31751  pack_tmp = packed_data(ipack)
31752  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
31753  pack_tmp = ishft(pack_tmp, -1)
31754  idata = idata + 1
31755  data_tmp = iand(pack_tmp, mask_right(nbits))
31756  full_data(idata) = data_tmp
31757  pack_tmp = ishft(pack_tmp, -nbits)
31758  idata = idata + 1
31759  data_tmp = ishft(pack_tmp, 19)
31760  ipack = ipack + 1
31761  pack_tmp = packed_data(ipack)
31762  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
31763  pack_tmp = ishft(pack_tmp, -19)
31764  idata = idata + 1
31765  data_tmp = iand(pack_tmp, mask_right(nbits))
31766  full_data(idata) = data_tmp
31767  pack_tmp = ishft(pack_tmp, -nbits)
31768  idata = idata + 1
31769  data_tmp = ishft(pack_tmp, 37)
31770  ipack = ipack + 1
31771  pack_tmp = packed_data(ipack)
31772  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
31773  pack_tmp = ishft(pack_tmp, -37)
31774  idata = idata + 1
31775  data_tmp = ishft(pack_tmp, 14)
31776  ipack = ipack + 1
31777  pack_tmp = packed_data(ipack)
31778  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
31779  pack_tmp = ishft(pack_tmp, -14)
31780  idata = idata + 1
31781  data_tmp = iand(pack_tmp, mask_right(nbits))
31782  full_data(idata) = data_tmp
31783  pack_tmp = ishft(pack_tmp, -nbits)
31784  idata = idata + 1
31785  data_tmp = ishft(pack_tmp, 32)
31786  ipack = ipack + 1
31787  pack_tmp = packed_data(ipack)
31788  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
31789  pack_tmp = ishft(pack_tmp, -32)
31790  idata = idata + 1
31791  data_tmp = ishft(pack_tmp, 9)
31792  ipack = ipack + 1
31793  pack_tmp = packed_data(ipack)
31794  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
31795  pack_tmp = ishft(pack_tmp, -9)
31796  idata = idata + 1
31797  data_tmp = iand(pack_tmp, mask_right(nbits))
31798  full_data(idata) = data_tmp
31799  pack_tmp = ishft(pack_tmp, -nbits)
31800  idata = idata + 1
31801  data_tmp = ishft(pack_tmp, 27)
31802  ipack = ipack + 1
31803  pack_tmp = packed_data(ipack)
31804  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
31805  pack_tmp = ishft(pack_tmp, -27)
31806  idata = idata + 1
31807  data_tmp = ishft(pack_tmp, 4)
31808  ipack = ipack + 1
31809  pack_tmp = packed_data(ipack)
31810  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
31811  pack_tmp = ishft(pack_tmp, -4)
31812  idata = idata + 1
31813  data_tmp = iand(pack_tmp, mask_right(nbits))
31814  full_data(idata) = data_tmp
31815  pack_tmp = ishft(pack_tmp, -nbits)
31816  idata = idata + 1
31817  data_tmp = ishft(pack_tmp, 22)
31818  ipack = ipack + 1
31819  pack_tmp = packed_data(ipack)
31820  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
31821  pack_tmp = ishft(pack_tmp, -22)
31822  idata = idata + 1
31823  data_tmp = iand(pack_tmp, mask_right(nbits))
31824  full_data(idata) = data_tmp
31825  pack_tmp = ishft(pack_tmp, -nbits)
31826  idata = idata + 1
31827  data_tmp = ishft(pack_tmp, 40)
31828  ipack = ipack + 1
31829  pack_tmp = packed_data(ipack)
31830  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
31831  pack_tmp = ishft(pack_tmp, -40)
31832  idata = idata + 1
31833  data_tmp = ishft(pack_tmp, 17)
31834  ipack = ipack + 1
31835  pack_tmp = packed_data(ipack)
31836  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
31837  pack_tmp = ishft(pack_tmp, -17)
31838  idata = idata + 1
31839  data_tmp = iand(pack_tmp, mask_right(nbits))
31840  full_data(idata) = data_tmp
31841  pack_tmp = ishft(pack_tmp, -nbits)
31842  idata = idata + 1
31843  data_tmp = ishft(pack_tmp, 35)
31844  ipack = ipack + 1
31845  pack_tmp = packed_data(ipack)
31846  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
31847  pack_tmp = ishft(pack_tmp, -35)
31848  idata = idata + 1
31849  data_tmp = ishft(pack_tmp, 12)
31850  ipack = ipack + 1
31851  pack_tmp = packed_data(ipack)
31852  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
31853  pack_tmp = ishft(pack_tmp, -12)
31854  idata = idata + 1
31855  data_tmp = iand(pack_tmp, mask_right(nbits))
31856  full_data(idata) = data_tmp
31857  pack_tmp = ishft(pack_tmp, -nbits)
31858  idata = idata + 1
31859  data_tmp = ishft(pack_tmp, 30)
31860  ipack = ipack + 1
31861  pack_tmp = packed_data(ipack)
31862  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
31863  pack_tmp = ishft(pack_tmp, -30)
31864  idata = idata + 1
31865  data_tmp = ishft(pack_tmp, 7)
31866  ipack = ipack + 1
31867  pack_tmp = packed_data(ipack)
31868  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
31869  pack_tmp = ishft(pack_tmp, -7)
31870  idata = idata + 1
31871  data_tmp = iand(pack_tmp, mask_right(nbits))
31872  full_data(idata) = data_tmp
31873  pack_tmp = ishft(pack_tmp, -nbits)
31874  idata = idata + 1
31875  data_tmp = ishft(pack_tmp, 25)
31876  ipack = ipack + 1
31877  pack_tmp = packed_data(ipack)
31878  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
31879  pack_tmp = ishft(pack_tmp, -25)
31880  idata = idata + 1
31881  data_tmp = ishft(pack_tmp, 2)
31882  ipack = ipack + 1
31883  pack_tmp = packed_data(ipack)
31884  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
31885  pack_tmp = ishft(pack_tmp, -2)
31886  idata = idata + 1
31887  data_tmp = iand(pack_tmp, mask_right(nbits))
31888  full_data(idata) = data_tmp
31889  pack_tmp = ishft(pack_tmp, -nbits)
31890  idata = idata + 1
31891  data_tmp = ishft(pack_tmp, 20)
31892  ipack = ipack + 1
31893  pack_tmp = packed_data(ipack)
31894  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
31895  pack_tmp = ishft(pack_tmp, -20)
31896  idata = idata + 1
31897  data_tmp = iand(pack_tmp, mask_right(nbits))
31898  full_data(idata) = data_tmp
31899  pack_tmp = ishft(pack_tmp, -nbits)
31900  idata = idata + 1
31901  data_tmp = ishft(pack_tmp, 38)
31902  ipack = ipack + 1
31903  pack_tmp = packed_data(ipack)
31904  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
31905  pack_tmp = ishft(pack_tmp, -38)
31906  idata = idata + 1
31907  data_tmp = ishft(pack_tmp, 15)
31908  ipack = ipack + 1
31909  pack_tmp = packed_data(ipack)
31910  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
31911  pack_tmp = ishft(pack_tmp, -15)
31912  idata = idata + 1
31913  data_tmp = iand(pack_tmp, mask_right(nbits))
31914  full_data(idata) = data_tmp
31915  pack_tmp = ishft(pack_tmp, -nbits)
31916  idata = idata + 1
31917  data_tmp = ishft(pack_tmp, 33)
31918  ipack = ipack + 1
31919  pack_tmp = packed_data(ipack)
31920  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
31921  pack_tmp = ishft(pack_tmp, -33)
31922  idata = idata + 1
31923  data_tmp = ishft(pack_tmp, 10)
31924  ipack = ipack + 1
31925  pack_tmp = packed_data(ipack)
31926  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
31927  pack_tmp = ishft(pack_tmp, -10)
31928  idata = idata + 1
31929  data_tmp = iand(pack_tmp, mask_right(nbits))
31930  full_data(idata) = data_tmp
31931  pack_tmp = ishft(pack_tmp, -nbits)
31932  idata = idata + 1
31933  data_tmp = ishft(pack_tmp, 28)
31934  ipack = ipack + 1
31935  pack_tmp = packed_data(ipack)
31936  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
31937  pack_tmp = ishft(pack_tmp, -28)
31938  idata = idata + 1
31939  data_tmp = ishft(pack_tmp, 5)
31940  ipack = ipack + 1
31941  pack_tmp = packed_data(ipack)
31942  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
31943  pack_tmp = ishft(pack_tmp, -5)
31944  idata = idata + 1
31945  data_tmp = iand(pack_tmp, mask_right(nbits))
31946  full_data(idata) = data_tmp
31947  pack_tmp = ishft(pack_tmp, -nbits)
31948  idata = idata + 1
31949  data_tmp = ishft(pack_tmp, 23)
31950  ipack = ipack + 1
31951  pack_tmp = packed_data(ipack)
31952  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
31953  pack_tmp = ishft(pack_tmp, -23)
31954  idata = idata + 1
31955  data_tmp = iand(pack_tmp, mask_right(nbits))
31956  full_data(idata) = data_tmp
31957  pack_tmp = ishft(pack_tmp, -nbits)
31958  END DO
31959  IF (ndata_rep < ndata) THEN
31960  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
31961  END IF
31962  END SUBROUTINE bits2ints_41
31963 
31964 ! **************************************************************************************************
31965 !> \brief ...
31966 !> \param Ndata ...
31967 !> \param packed_data ...
31968 !> \param full_data ...
31969 ! **************************************************************************************************
31970  SUBROUTINE ints2bits_42(Ndata, packed_data, full_data)
31971  INTEGER, INTENT(IN) :: Ndata
31972  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
31973  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
31974 
31975  INTEGER, PARAMETER :: Nbits = 42
31976 
31977  INTEGER :: idata, ipack, kdata, Ndata_rep
31978  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
31979 
31980  idata = 0
31981  ipack = 0
31982  ndata_rep = (ndata/64)*64
31983  DO kdata = 1, ndata_rep, 64
31984  pack_tmp = 0
31985  idata = idata + 1
31986  data_tmp = full_data(idata)
31987  data_tmp = ishft(data_tmp, 22)
31988  pack_tmp = ior(pack_tmp, data_tmp)
31989  pack_tmp = ishft(pack_tmp, -22)
31990  idata = idata + 1
31991  data_tmp = full_data(idata)
31992  data_tmp = ishft(data_tmp, 22)
31993  data_tmp = iand(data_tmp, mask_left(22))
31994  pack_tmp = ior(pack_tmp, data_tmp)
31995  ipack = ipack + 1
31996  packed_data(ipack) = pack_tmp
31997  data_tmp = full_data(idata)
31998  pack_tmp = ishft(data_tmp, 44)
31999  pack_tmp = ishft(pack_tmp, -42)
32000  idata = idata + 1
32001  data_tmp = full_data(idata)
32002  data_tmp = ishft(data_tmp, 22)
32003  pack_tmp = ior(pack_tmp, data_tmp)
32004  pack_tmp = ishft(pack_tmp, -2)
32005  idata = idata + 1
32006  data_tmp = full_data(idata)
32007  data_tmp = ishft(data_tmp, 22)
32008  data_tmp = iand(data_tmp, mask_left(2))
32009  pack_tmp = ior(pack_tmp, data_tmp)
32010  ipack = ipack + 1
32011  packed_data(ipack) = pack_tmp
32012  data_tmp = full_data(idata)
32013  pack_tmp = ishft(data_tmp, 24)
32014  pack_tmp = ishft(pack_tmp, -24)
32015  idata = idata + 1
32016  data_tmp = full_data(idata)
32017  data_tmp = ishft(data_tmp, 22)
32018  data_tmp = iand(data_tmp, mask_left(24))
32019  pack_tmp = ior(pack_tmp, data_tmp)
32020  ipack = ipack + 1
32021  packed_data(ipack) = pack_tmp
32022  data_tmp = full_data(idata)
32023  pack_tmp = ishft(data_tmp, 46)
32024  pack_tmp = ishft(pack_tmp, -42)
32025  idata = idata + 1
32026  data_tmp = full_data(idata)
32027  data_tmp = ishft(data_tmp, 22)
32028  pack_tmp = ior(pack_tmp, data_tmp)
32029  pack_tmp = ishft(pack_tmp, -4)
32030  idata = idata + 1
32031  data_tmp = full_data(idata)
32032  data_tmp = ishft(data_tmp, 22)
32033  data_tmp = iand(data_tmp, mask_left(4))
32034  pack_tmp = ior(pack_tmp, data_tmp)
32035  ipack = ipack + 1
32036  packed_data(ipack) = pack_tmp
32037  data_tmp = full_data(idata)
32038  pack_tmp = ishft(data_tmp, 26)
32039  pack_tmp = ishft(pack_tmp, -26)
32040  idata = idata + 1
32041  data_tmp = full_data(idata)
32042  data_tmp = ishft(data_tmp, 22)
32043  data_tmp = iand(data_tmp, mask_left(26))
32044  pack_tmp = ior(pack_tmp, data_tmp)
32045  ipack = ipack + 1
32046  packed_data(ipack) = pack_tmp
32047  data_tmp = full_data(idata)
32048  pack_tmp = ishft(data_tmp, 48)
32049  pack_tmp = ishft(pack_tmp, -42)
32050  idata = idata + 1
32051  data_tmp = full_data(idata)
32052  data_tmp = ishft(data_tmp, 22)
32053  pack_tmp = ior(pack_tmp, data_tmp)
32054  pack_tmp = ishft(pack_tmp, -6)
32055  idata = idata + 1
32056  data_tmp = full_data(idata)
32057  data_tmp = ishft(data_tmp, 22)
32058  data_tmp = iand(data_tmp, mask_left(6))
32059  pack_tmp = ior(pack_tmp, data_tmp)
32060  ipack = ipack + 1
32061  packed_data(ipack) = pack_tmp
32062  data_tmp = full_data(idata)
32063  pack_tmp = ishft(data_tmp, 28)
32064  pack_tmp = ishft(pack_tmp, -28)
32065  idata = idata + 1
32066  data_tmp = full_data(idata)
32067  data_tmp = ishft(data_tmp, 22)
32068  data_tmp = iand(data_tmp, mask_left(28))
32069  pack_tmp = ior(pack_tmp, data_tmp)
32070  ipack = ipack + 1
32071  packed_data(ipack) = pack_tmp
32072  data_tmp = full_data(idata)
32073  pack_tmp = ishft(data_tmp, 50)
32074  pack_tmp = ishft(pack_tmp, -42)
32075  idata = idata + 1
32076  data_tmp = full_data(idata)
32077  data_tmp = ishft(data_tmp, 22)
32078  pack_tmp = ior(pack_tmp, data_tmp)
32079  pack_tmp = ishft(pack_tmp, -8)
32080  idata = idata + 1
32081  data_tmp = full_data(idata)
32082  data_tmp = ishft(data_tmp, 22)
32083  data_tmp = iand(data_tmp, mask_left(8))
32084  pack_tmp = ior(pack_tmp, data_tmp)
32085  ipack = ipack + 1
32086  packed_data(ipack) = pack_tmp
32087  data_tmp = full_data(idata)
32088  pack_tmp = ishft(data_tmp, 30)
32089  pack_tmp = ishft(pack_tmp, -30)
32090  idata = idata + 1
32091  data_tmp = full_data(idata)
32092  data_tmp = ishft(data_tmp, 22)
32093  data_tmp = iand(data_tmp, mask_left(30))
32094  pack_tmp = ior(pack_tmp, data_tmp)
32095  ipack = ipack + 1
32096  packed_data(ipack) = pack_tmp
32097  data_tmp = full_data(idata)
32098  pack_tmp = ishft(data_tmp, 52)
32099  pack_tmp = ishft(pack_tmp, -42)
32100  idata = idata + 1
32101  data_tmp = full_data(idata)
32102  data_tmp = ishft(data_tmp, 22)
32103  pack_tmp = ior(pack_tmp, data_tmp)
32104  pack_tmp = ishft(pack_tmp, -10)
32105  idata = idata + 1
32106  data_tmp = full_data(idata)
32107  data_tmp = ishft(data_tmp, 22)
32108  data_tmp = iand(data_tmp, mask_left(10))
32109  pack_tmp = ior(pack_tmp, data_tmp)
32110  ipack = ipack + 1
32111  packed_data(ipack) = pack_tmp
32112  data_tmp = full_data(idata)
32113  pack_tmp = ishft(data_tmp, 32)
32114  pack_tmp = ishft(pack_tmp, -32)
32115  idata = idata + 1
32116  data_tmp = full_data(idata)
32117  data_tmp = ishft(data_tmp, 22)
32118  data_tmp = iand(data_tmp, mask_left(32))
32119  pack_tmp = ior(pack_tmp, data_tmp)
32120  ipack = ipack + 1
32121  packed_data(ipack) = pack_tmp
32122  data_tmp = full_data(idata)
32123  pack_tmp = ishft(data_tmp, 54)
32124  pack_tmp = ishft(pack_tmp, -42)
32125  idata = idata + 1
32126  data_tmp = full_data(idata)
32127  data_tmp = ishft(data_tmp, 22)
32128  pack_tmp = ior(pack_tmp, data_tmp)
32129  pack_tmp = ishft(pack_tmp, -12)
32130  idata = idata + 1
32131  data_tmp = full_data(idata)
32132  data_tmp = ishft(data_tmp, 22)
32133  data_tmp = iand(data_tmp, mask_left(12))
32134  pack_tmp = ior(pack_tmp, data_tmp)
32135  ipack = ipack + 1
32136  packed_data(ipack) = pack_tmp
32137  data_tmp = full_data(idata)
32138  pack_tmp = ishft(data_tmp, 34)
32139  pack_tmp = ishft(pack_tmp, -34)
32140  idata = idata + 1
32141  data_tmp = full_data(idata)
32142  data_tmp = ishft(data_tmp, 22)
32143  data_tmp = iand(data_tmp, mask_left(34))
32144  pack_tmp = ior(pack_tmp, data_tmp)
32145  ipack = ipack + 1
32146  packed_data(ipack) = pack_tmp
32147  data_tmp = full_data(idata)
32148  pack_tmp = ishft(data_tmp, 56)
32149  pack_tmp = ishft(pack_tmp, -42)
32150  idata = idata + 1
32151  data_tmp = full_data(idata)
32152  data_tmp = ishft(data_tmp, 22)
32153  pack_tmp = ior(pack_tmp, data_tmp)
32154  pack_tmp = ishft(pack_tmp, -14)
32155  idata = idata + 1
32156  data_tmp = full_data(idata)
32157  data_tmp = ishft(data_tmp, 22)
32158  data_tmp = iand(data_tmp, mask_left(14))
32159  pack_tmp = ior(pack_tmp, data_tmp)
32160  ipack = ipack + 1
32161  packed_data(ipack) = pack_tmp
32162  data_tmp = full_data(idata)
32163  pack_tmp = ishft(data_tmp, 36)
32164  pack_tmp = ishft(pack_tmp, -36)
32165  idata = idata + 1
32166  data_tmp = full_data(idata)
32167  data_tmp = ishft(data_tmp, 22)
32168  data_tmp = iand(data_tmp, mask_left(36))
32169  pack_tmp = ior(pack_tmp, data_tmp)
32170  ipack = ipack + 1
32171  packed_data(ipack) = pack_tmp
32172  data_tmp = full_data(idata)
32173  pack_tmp = ishft(data_tmp, 58)
32174  pack_tmp = ishft(pack_tmp, -42)
32175  idata = idata + 1
32176  data_tmp = full_data(idata)
32177  data_tmp = ishft(data_tmp, 22)
32178  pack_tmp = ior(pack_tmp, data_tmp)
32179  pack_tmp = ishft(pack_tmp, -16)
32180  idata = idata + 1
32181  data_tmp = full_data(idata)
32182  data_tmp = ishft(data_tmp, 22)
32183  data_tmp = iand(data_tmp, mask_left(16))
32184  pack_tmp = ior(pack_tmp, data_tmp)
32185  ipack = ipack + 1
32186  packed_data(ipack) = pack_tmp
32187  data_tmp = full_data(idata)
32188  pack_tmp = ishft(data_tmp, 38)
32189  pack_tmp = ishft(pack_tmp, -38)
32190  idata = idata + 1
32191  data_tmp = full_data(idata)
32192  data_tmp = ishft(data_tmp, 22)
32193  data_tmp = iand(data_tmp, mask_left(38))
32194  pack_tmp = ior(pack_tmp, data_tmp)
32195  ipack = ipack + 1
32196  packed_data(ipack) = pack_tmp
32197  data_tmp = full_data(idata)
32198  pack_tmp = ishft(data_tmp, 60)
32199  pack_tmp = ishft(pack_tmp, -42)
32200  idata = idata + 1
32201  data_tmp = full_data(idata)
32202  data_tmp = ishft(data_tmp, 22)
32203  pack_tmp = ior(pack_tmp, data_tmp)
32204  pack_tmp = ishft(pack_tmp, -18)
32205  idata = idata + 1
32206  data_tmp = full_data(idata)
32207  data_tmp = ishft(data_tmp, 22)
32208  data_tmp = iand(data_tmp, mask_left(18))
32209  pack_tmp = ior(pack_tmp, data_tmp)
32210  ipack = ipack + 1
32211  packed_data(ipack) = pack_tmp
32212  data_tmp = full_data(idata)
32213  pack_tmp = ishft(data_tmp, 40)
32214  pack_tmp = ishft(pack_tmp, -40)
32215  idata = idata + 1
32216  data_tmp = full_data(idata)
32217  data_tmp = ishft(data_tmp, 22)
32218  data_tmp = iand(data_tmp, mask_left(40))
32219  pack_tmp = ior(pack_tmp, data_tmp)
32220  ipack = ipack + 1
32221  packed_data(ipack) = pack_tmp
32222  data_tmp = full_data(idata)
32223  pack_tmp = ishft(data_tmp, 62)
32224  pack_tmp = ishft(pack_tmp, -42)
32225  idata = idata + 1
32226  data_tmp = full_data(idata)
32227  data_tmp = ishft(data_tmp, 22)
32228  pack_tmp = ior(pack_tmp, data_tmp)
32229  pack_tmp = ishft(pack_tmp, -20)
32230  idata = idata + 1
32231  data_tmp = full_data(idata)
32232  data_tmp = ishft(data_tmp, 22)
32233  data_tmp = iand(data_tmp, mask_left(20))
32234  pack_tmp = ior(pack_tmp, data_tmp)
32235  ipack = ipack + 1
32236  packed_data(ipack) = pack_tmp
32237  data_tmp = full_data(idata)
32238  pack_tmp = ishft(data_tmp, 42)
32239  pack_tmp = ishft(pack_tmp, -42)
32240  idata = idata + 1
32241  data_tmp = full_data(idata)
32242  data_tmp = ishft(data_tmp, 22)
32243  pack_tmp = ior(pack_tmp, data_tmp)
32244  pack_tmp = ishft(pack_tmp, 0)
32245  idata = idata + 1
32246  data_tmp = full_data(idata)
32247  data_tmp = ishft(data_tmp, 22)
32248  data_tmp = iand(data_tmp, mask_left(0))
32249  pack_tmp = ior(pack_tmp, data_tmp)
32250  ipack = ipack + 1
32251  packed_data(ipack) = pack_tmp
32252  data_tmp = full_data(idata)
32253  pack_tmp = ishft(data_tmp, 22)
32254  pack_tmp = ishft(pack_tmp, -22)
32255  idata = idata + 1
32256  data_tmp = full_data(idata)
32257  data_tmp = ishft(data_tmp, 22)
32258  data_tmp = iand(data_tmp, mask_left(22))
32259  pack_tmp = ior(pack_tmp, data_tmp)
32260  ipack = ipack + 1
32261  packed_data(ipack) = pack_tmp
32262  data_tmp = full_data(idata)
32263  pack_tmp = ishft(data_tmp, 44)
32264  pack_tmp = ishft(pack_tmp, -42)
32265  idata = idata + 1
32266  data_tmp = full_data(idata)
32267  data_tmp = ishft(data_tmp, 22)
32268  pack_tmp = ior(pack_tmp, data_tmp)
32269  pack_tmp = ishft(pack_tmp, -2)
32270  idata = idata + 1
32271  data_tmp = full_data(idata)
32272  data_tmp = ishft(data_tmp, 22)
32273  data_tmp = iand(data_tmp, mask_left(2))
32274  pack_tmp = ior(pack_tmp, data_tmp)
32275  ipack = ipack + 1
32276  packed_data(ipack) = pack_tmp
32277  data_tmp = full_data(idata)
32278  pack_tmp = ishft(data_tmp, 24)
32279  pack_tmp = ishft(pack_tmp, -24)
32280  idata = idata + 1
32281  data_tmp = full_data(idata)
32282  data_tmp = ishft(data_tmp, 22)
32283  data_tmp = iand(data_tmp, mask_left(24))
32284  pack_tmp = ior(pack_tmp, data_tmp)
32285  ipack = ipack + 1
32286  packed_data(ipack) = pack_tmp
32287  data_tmp = full_data(idata)
32288  pack_tmp = ishft(data_tmp, 46)
32289  pack_tmp = ishft(pack_tmp, -42)
32290  idata = idata + 1
32291  data_tmp = full_data(idata)
32292  data_tmp = ishft(data_tmp, 22)
32293  pack_tmp = ior(pack_tmp, data_tmp)
32294  pack_tmp = ishft(pack_tmp, -4)
32295  idata = idata + 1
32296  data_tmp = full_data(idata)
32297  data_tmp = ishft(data_tmp, 22)
32298  data_tmp = iand(data_tmp, mask_left(4))
32299  pack_tmp = ior(pack_tmp, data_tmp)
32300  ipack = ipack + 1
32301  packed_data(ipack) = pack_tmp
32302  data_tmp = full_data(idata)
32303  pack_tmp = ishft(data_tmp, 26)
32304  pack_tmp = ishft(pack_tmp, -26)
32305  idata = idata + 1
32306  data_tmp = full_data(idata)
32307  data_tmp = ishft(data_tmp, 22)
32308  data_tmp = iand(data_tmp, mask_left(26))
32309  pack_tmp = ior(pack_tmp, data_tmp)
32310  ipack = ipack + 1
32311  packed_data(ipack) = pack_tmp
32312  data_tmp = full_data(idata)
32313  pack_tmp = ishft(data_tmp, 48)
32314  pack_tmp = ishft(pack_tmp, -42)
32315  idata = idata + 1
32316  data_tmp = full_data(idata)
32317  data_tmp = ishft(data_tmp, 22)
32318  pack_tmp = ior(pack_tmp, data_tmp)
32319  pack_tmp = ishft(pack_tmp, -6)
32320  idata = idata + 1
32321  data_tmp = full_data(idata)
32322  data_tmp = ishft(data_tmp, 22)
32323  data_tmp = iand(data_tmp, mask_left(6))
32324  pack_tmp = ior(pack_tmp, data_tmp)
32325  ipack = ipack + 1
32326  packed_data(ipack) = pack_tmp
32327  data_tmp = full_data(idata)
32328  pack_tmp = ishft(data_tmp, 28)
32329  pack_tmp = ishft(pack_tmp, -28)
32330  idata = idata + 1
32331  data_tmp = full_data(idata)
32332  data_tmp = ishft(data_tmp, 22)
32333  data_tmp = iand(data_tmp, mask_left(28))
32334  pack_tmp = ior(pack_tmp, data_tmp)
32335  ipack = ipack + 1
32336  packed_data(ipack) = pack_tmp
32337  data_tmp = full_data(idata)
32338  pack_tmp = ishft(data_tmp, 50)
32339  pack_tmp = ishft(pack_tmp, -42)
32340  idata = idata + 1
32341  data_tmp = full_data(idata)
32342  data_tmp = ishft(data_tmp, 22)
32343  pack_tmp = ior(pack_tmp, data_tmp)
32344  pack_tmp = ishft(pack_tmp, -8)
32345  idata = idata + 1
32346  data_tmp = full_data(idata)
32347  data_tmp = ishft(data_tmp, 22)
32348  data_tmp = iand(data_tmp, mask_left(8))
32349  pack_tmp = ior(pack_tmp, data_tmp)
32350  ipack = ipack + 1
32351  packed_data(ipack) = pack_tmp
32352  data_tmp = full_data(idata)
32353  pack_tmp = ishft(data_tmp, 30)
32354  pack_tmp = ishft(pack_tmp, -30)
32355  idata = idata + 1
32356  data_tmp = full_data(idata)
32357  data_tmp = ishft(data_tmp, 22)
32358  data_tmp = iand(data_tmp, mask_left(30))
32359  pack_tmp = ior(pack_tmp, data_tmp)
32360  ipack = ipack + 1
32361  packed_data(ipack) = pack_tmp
32362  data_tmp = full_data(idata)
32363  pack_tmp = ishft(data_tmp, 52)
32364  pack_tmp = ishft(pack_tmp, -42)
32365  idata = idata + 1
32366  data_tmp = full_data(idata)
32367  data_tmp = ishft(data_tmp, 22)
32368  pack_tmp = ior(pack_tmp, data_tmp)
32369  pack_tmp = ishft(pack_tmp, -10)
32370  idata = idata + 1
32371  data_tmp = full_data(idata)
32372  data_tmp = ishft(data_tmp, 22)
32373  data_tmp = iand(data_tmp, mask_left(10))
32374  pack_tmp = ior(pack_tmp, data_tmp)
32375  ipack = ipack + 1
32376  packed_data(ipack) = pack_tmp
32377  data_tmp = full_data(idata)
32378  pack_tmp = ishft(data_tmp, 32)
32379  pack_tmp = ishft(pack_tmp, -32)
32380  idata = idata + 1
32381  data_tmp = full_data(idata)
32382  data_tmp = ishft(data_tmp, 22)
32383  data_tmp = iand(data_tmp, mask_left(32))
32384  pack_tmp = ior(pack_tmp, data_tmp)
32385  ipack = ipack + 1
32386  packed_data(ipack) = pack_tmp
32387  data_tmp = full_data(idata)
32388  pack_tmp = ishft(data_tmp, 54)
32389  pack_tmp = ishft(pack_tmp, -42)
32390  idata = idata + 1
32391  data_tmp = full_data(idata)
32392  data_tmp = ishft(data_tmp, 22)
32393  pack_tmp = ior(pack_tmp, data_tmp)
32394  pack_tmp = ishft(pack_tmp, -12)
32395  idata = idata + 1
32396  data_tmp = full_data(idata)
32397  data_tmp = ishft(data_tmp, 22)
32398  data_tmp = iand(data_tmp, mask_left(12))
32399  pack_tmp = ior(pack_tmp, data_tmp)
32400  ipack = ipack + 1
32401  packed_data(ipack) = pack_tmp
32402  data_tmp = full_data(idata)
32403  pack_tmp = ishft(data_tmp, 34)
32404  pack_tmp = ishft(pack_tmp, -34)
32405  idata = idata + 1
32406  data_tmp = full_data(idata)
32407  data_tmp = ishft(data_tmp, 22)
32408  data_tmp = iand(data_tmp, mask_left(34))
32409  pack_tmp = ior(pack_tmp, data_tmp)
32410  ipack = ipack + 1
32411  packed_data(ipack) = pack_tmp
32412  data_tmp = full_data(idata)
32413  pack_tmp = ishft(data_tmp, 56)
32414  pack_tmp = ishft(pack_tmp, -42)
32415  idata = idata + 1
32416  data_tmp = full_data(idata)
32417  data_tmp = ishft(data_tmp, 22)
32418  pack_tmp = ior(pack_tmp, data_tmp)
32419  pack_tmp = ishft(pack_tmp, -14)
32420  idata = idata + 1
32421  data_tmp = full_data(idata)
32422  data_tmp = ishft(data_tmp, 22)
32423  data_tmp = iand(data_tmp, mask_left(14))
32424  pack_tmp = ior(pack_tmp, data_tmp)
32425  ipack = ipack + 1
32426  packed_data(ipack) = pack_tmp
32427  data_tmp = full_data(idata)
32428  pack_tmp = ishft(data_tmp, 36)
32429  pack_tmp = ishft(pack_tmp, -36)
32430  idata = idata + 1
32431  data_tmp = full_data(idata)
32432  data_tmp = ishft(data_tmp, 22)
32433  data_tmp = iand(data_tmp, mask_left(36))
32434  pack_tmp = ior(pack_tmp, data_tmp)
32435  ipack = ipack + 1
32436  packed_data(ipack) = pack_tmp
32437  data_tmp = full_data(idata)
32438  pack_tmp = ishft(data_tmp, 58)
32439  pack_tmp = ishft(pack_tmp, -42)
32440  idata = idata + 1
32441  data_tmp = full_data(idata)
32442  data_tmp = ishft(data_tmp, 22)
32443  pack_tmp = ior(pack_tmp, data_tmp)
32444  pack_tmp = ishft(pack_tmp, -16)
32445  idata = idata + 1
32446  data_tmp = full_data(idata)
32447  data_tmp = ishft(data_tmp, 22)
32448  data_tmp = iand(data_tmp, mask_left(16))
32449  pack_tmp = ior(pack_tmp, data_tmp)
32450  ipack = ipack + 1
32451  packed_data(ipack) = pack_tmp
32452  data_tmp = full_data(idata)
32453  pack_tmp = ishft(data_tmp, 38)
32454  pack_tmp = ishft(pack_tmp, -38)
32455  idata = idata + 1
32456  data_tmp = full_data(idata)
32457  data_tmp = ishft(data_tmp, 22)
32458  data_tmp = iand(data_tmp, mask_left(38))
32459  pack_tmp = ior(pack_tmp, data_tmp)
32460  ipack = ipack + 1
32461  packed_data(ipack) = pack_tmp
32462  data_tmp = full_data(idata)
32463  pack_tmp = ishft(data_tmp, 60)
32464  pack_tmp = ishft(pack_tmp, -42)
32465  idata = idata + 1
32466  data_tmp = full_data(idata)
32467  data_tmp = ishft(data_tmp, 22)
32468  pack_tmp = ior(pack_tmp, data_tmp)
32469  pack_tmp = ishft(pack_tmp, -18)
32470  idata = idata + 1
32471  data_tmp = full_data(idata)
32472  data_tmp = ishft(data_tmp, 22)
32473  data_tmp = iand(data_tmp, mask_left(18))
32474  pack_tmp = ior(pack_tmp, data_tmp)
32475  ipack = ipack + 1
32476  packed_data(ipack) = pack_tmp
32477  data_tmp = full_data(idata)
32478  pack_tmp = ishft(data_tmp, 40)
32479  pack_tmp = ishft(pack_tmp, -40)
32480  idata = idata + 1
32481  data_tmp = full_data(idata)
32482  data_tmp = ishft(data_tmp, 22)
32483  data_tmp = iand(data_tmp, mask_left(40))
32484  pack_tmp = ior(pack_tmp, data_tmp)
32485  ipack = ipack + 1
32486  packed_data(ipack) = pack_tmp
32487  data_tmp = full_data(idata)
32488  pack_tmp = ishft(data_tmp, 62)
32489  pack_tmp = ishft(pack_tmp, -42)
32490  idata = idata + 1
32491  data_tmp = full_data(idata)
32492  data_tmp = ishft(data_tmp, 22)
32493  pack_tmp = ior(pack_tmp, data_tmp)
32494  pack_tmp = ishft(pack_tmp, -20)
32495  idata = idata + 1
32496  data_tmp = full_data(idata)
32497  data_tmp = ishft(data_tmp, 22)
32498  data_tmp = iand(data_tmp, mask_left(20))
32499  pack_tmp = ior(pack_tmp, data_tmp)
32500  ipack = ipack + 1
32501  packed_data(ipack) = pack_tmp
32502  data_tmp = full_data(idata)
32503  pack_tmp = ishft(data_tmp, 42)
32504  pack_tmp = ishft(pack_tmp, -42)
32505  idata = idata + 1
32506  data_tmp = full_data(idata)
32507  data_tmp = ishft(data_tmp, 22)
32508  pack_tmp = ior(pack_tmp, data_tmp)
32509  pack_tmp = ishft(pack_tmp, 0)
32510  pack_tmp = ishft(pack_tmp, 0)
32511  ipack = ipack + 1
32512  packed_data(ipack) = pack_tmp
32513  END DO
32514  IF (ndata_rep < ndata) THEN
32515  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
32516  END IF
32517  END SUBROUTINE ints2bits_42
32518 
32519 ! **************************************************************************************************
32520 !> \brief ...
32521 !> \param Ndata ...
32522 !> \param packed_data ...
32523 !> \param full_data ...
32524 ! **************************************************************************************************
32525  SUBROUTINE bits2ints_42(Ndata, packed_data, full_data)
32526  INTEGER, INTENT(IN) :: Ndata
32527  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
32528  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
32529 
32530  INTEGER, PARAMETER :: Nbits = 42
32531 
32532  INTEGER :: idata, ipack, kdata, Ndata_rep
32533  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
32534 
32535  ipack = 0
32536  idata = 0
32537  pack_tmp = 0
32538  ndata_rep = (ndata/64)*64
32539  DO kdata = 1, ndata_rep, 64
32540  idata = idata + 1
32541  data_tmp = ishft(pack_tmp, 42)
32542  ipack = ipack + 1
32543  pack_tmp = packed_data(ipack)
32544  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
32545  pack_tmp = ishft(pack_tmp, -42)
32546  idata = idata + 1
32547  data_tmp = ishft(pack_tmp, 20)
32548  ipack = ipack + 1
32549  pack_tmp = packed_data(ipack)
32550  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
32551  pack_tmp = ishft(pack_tmp, -20)
32552  idata = idata + 1
32553  data_tmp = iand(pack_tmp, mask_right(nbits))
32554  full_data(idata) = data_tmp
32555  pack_tmp = ishft(pack_tmp, -nbits)
32556  idata = idata + 1
32557  data_tmp = ishft(pack_tmp, 40)
32558  ipack = ipack + 1
32559  pack_tmp = packed_data(ipack)
32560  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
32561  pack_tmp = ishft(pack_tmp, -40)
32562  idata = idata + 1
32563  data_tmp = ishft(pack_tmp, 18)
32564  ipack = ipack + 1
32565  pack_tmp = packed_data(ipack)
32566  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
32567  pack_tmp = ishft(pack_tmp, -18)
32568  idata = idata + 1
32569  data_tmp = iand(pack_tmp, mask_right(nbits))
32570  full_data(idata) = data_tmp
32571  pack_tmp = ishft(pack_tmp, -nbits)
32572  idata = idata + 1
32573  data_tmp = ishft(pack_tmp, 38)
32574  ipack = ipack + 1
32575  pack_tmp = packed_data(ipack)
32576  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
32577  pack_tmp = ishft(pack_tmp, -38)
32578  idata = idata + 1
32579  data_tmp = ishft(pack_tmp, 16)
32580  ipack = ipack + 1
32581  pack_tmp = packed_data(ipack)
32582  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
32583  pack_tmp = ishft(pack_tmp, -16)
32584  idata = idata + 1
32585  data_tmp = iand(pack_tmp, mask_right(nbits))
32586  full_data(idata) = data_tmp
32587  pack_tmp = ishft(pack_tmp, -nbits)
32588  idata = idata + 1
32589  data_tmp = ishft(pack_tmp, 36)
32590  ipack = ipack + 1
32591  pack_tmp = packed_data(ipack)
32592  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
32593  pack_tmp = ishft(pack_tmp, -36)
32594  idata = idata + 1
32595  data_tmp = ishft(pack_tmp, 14)
32596  ipack = ipack + 1
32597  pack_tmp = packed_data(ipack)
32598  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
32599  pack_tmp = ishft(pack_tmp, -14)
32600  idata = idata + 1
32601  data_tmp = iand(pack_tmp, mask_right(nbits))
32602  full_data(idata) = data_tmp
32603  pack_tmp = ishft(pack_tmp, -nbits)
32604  idata = idata + 1
32605  data_tmp = ishft(pack_tmp, 34)
32606  ipack = ipack + 1
32607  pack_tmp = packed_data(ipack)
32608  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
32609  pack_tmp = ishft(pack_tmp, -34)
32610  idata = idata + 1
32611  data_tmp = ishft(pack_tmp, 12)
32612  ipack = ipack + 1
32613  pack_tmp = packed_data(ipack)
32614  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
32615  pack_tmp = ishft(pack_tmp, -12)
32616  idata = idata + 1
32617  data_tmp = iand(pack_tmp, mask_right(nbits))
32618  full_data(idata) = data_tmp
32619  pack_tmp = ishft(pack_tmp, -nbits)
32620  idata = idata + 1
32621  data_tmp = ishft(pack_tmp, 32)
32622  ipack = ipack + 1
32623  pack_tmp = packed_data(ipack)
32624  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
32625  pack_tmp = ishft(pack_tmp, -32)
32626  idata = idata + 1
32627  data_tmp = ishft(pack_tmp, 10)
32628  ipack = ipack + 1
32629  pack_tmp = packed_data(ipack)
32630  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
32631  pack_tmp = ishft(pack_tmp, -10)
32632  idata = idata + 1
32633  data_tmp = iand(pack_tmp, mask_right(nbits))
32634  full_data(idata) = data_tmp
32635  pack_tmp = ishft(pack_tmp, -nbits)
32636  idata = idata + 1
32637  data_tmp = ishft(pack_tmp, 30)
32638  ipack = ipack + 1
32639  pack_tmp = packed_data(ipack)
32640  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
32641  pack_tmp = ishft(pack_tmp, -30)
32642  idata = idata + 1
32643  data_tmp = ishft(pack_tmp, 8)
32644  ipack = ipack + 1
32645  pack_tmp = packed_data(ipack)
32646  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
32647  pack_tmp = ishft(pack_tmp, -8)
32648  idata = idata + 1
32649  data_tmp = iand(pack_tmp, mask_right(nbits))
32650  full_data(idata) = data_tmp
32651  pack_tmp = ishft(pack_tmp, -nbits)
32652  idata = idata + 1
32653  data_tmp = ishft(pack_tmp, 28)
32654  ipack = ipack + 1
32655  pack_tmp = packed_data(ipack)
32656  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
32657  pack_tmp = ishft(pack_tmp, -28)
32658  idata = idata + 1
32659  data_tmp = ishft(pack_tmp, 6)
32660  ipack = ipack + 1
32661  pack_tmp = packed_data(ipack)
32662  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
32663  pack_tmp = ishft(pack_tmp, -6)
32664  idata = idata + 1
32665  data_tmp = iand(pack_tmp, mask_right(nbits))
32666  full_data(idata) = data_tmp
32667  pack_tmp = ishft(pack_tmp, -nbits)
32668  idata = idata + 1
32669  data_tmp = ishft(pack_tmp, 26)
32670  ipack = ipack + 1
32671  pack_tmp = packed_data(ipack)
32672  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
32673  pack_tmp = ishft(pack_tmp, -26)
32674  idata = idata + 1
32675  data_tmp = ishft(pack_tmp, 4)
32676  ipack = ipack + 1
32677  pack_tmp = packed_data(ipack)
32678  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
32679  pack_tmp = ishft(pack_tmp, -4)
32680  idata = idata + 1
32681  data_tmp = iand(pack_tmp, mask_right(nbits))
32682  full_data(idata) = data_tmp
32683  pack_tmp = ishft(pack_tmp, -nbits)
32684  idata = idata + 1
32685  data_tmp = ishft(pack_tmp, 24)
32686  ipack = ipack + 1
32687  pack_tmp = packed_data(ipack)
32688  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
32689  pack_tmp = ishft(pack_tmp, -24)
32690  idata = idata + 1
32691  data_tmp = ishft(pack_tmp, 2)
32692  ipack = ipack + 1
32693  pack_tmp = packed_data(ipack)
32694  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
32695  pack_tmp = ishft(pack_tmp, -2)
32696  idata = idata + 1
32697  data_tmp = iand(pack_tmp, mask_right(nbits))
32698  full_data(idata) = data_tmp
32699  pack_tmp = ishft(pack_tmp, -nbits)
32700  idata = idata + 1
32701  data_tmp = ishft(pack_tmp, 22)
32702  ipack = ipack + 1
32703  pack_tmp = packed_data(ipack)
32704  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
32705  pack_tmp = ishft(pack_tmp, -22)
32706  idata = idata + 1
32707  data_tmp = iand(pack_tmp, mask_right(nbits))
32708  full_data(idata) = data_tmp
32709  pack_tmp = ishft(pack_tmp, -nbits)
32710  idata = idata + 1
32711  data_tmp = ishft(pack_tmp, 42)
32712  ipack = ipack + 1
32713  pack_tmp = packed_data(ipack)
32714  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
32715  pack_tmp = ishft(pack_tmp, -42)
32716  idata = idata + 1
32717  data_tmp = ishft(pack_tmp, 20)
32718  ipack = ipack + 1
32719  pack_tmp = packed_data(ipack)
32720  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
32721  pack_tmp = ishft(pack_tmp, -20)
32722  idata = idata + 1
32723  data_tmp = iand(pack_tmp, mask_right(nbits))
32724  full_data(idata) = data_tmp
32725  pack_tmp = ishft(pack_tmp, -nbits)
32726  idata = idata + 1
32727  data_tmp = ishft(pack_tmp, 40)
32728  ipack = ipack + 1
32729  pack_tmp = packed_data(ipack)
32730  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
32731  pack_tmp = ishft(pack_tmp, -40)
32732  idata = idata + 1
32733  data_tmp = ishft(pack_tmp, 18)
32734  ipack = ipack + 1
32735  pack_tmp = packed_data(ipack)
32736  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
32737  pack_tmp = ishft(pack_tmp, -18)
32738  idata = idata + 1
32739  data_tmp = iand(pack_tmp, mask_right(nbits))
32740  full_data(idata) = data_tmp
32741  pack_tmp = ishft(pack_tmp, -nbits)
32742  idata = idata + 1
32743  data_tmp = ishft(pack_tmp, 38)
32744  ipack = ipack + 1
32745  pack_tmp = packed_data(ipack)
32746  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
32747  pack_tmp = ishft(pack_tmp, -38)
32748  idata = idata + 1
32749  data_tmp = ishft(pack_tmp, 16)
32750  ipack = ipack + 1
32751  pack_tmp = packed_data(ipack)
32752  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
32753  pack_tmp = ishft(pack_tmp, -16)
32754  idata = idata + 1
32755  data_tmp = iand(pack_tmp, mask_right(nbits))
32756  full_data(idata) = data_tmp
32757  pack_tmp = ishft(pack_tmp, -nbits)
32758  idata = idata + 1
32759  data_tmp = ishft(pack_tmp, 36)
32760  ipack = ipack + 1
32761  pack_tmp = packed_data(ipack)
32762  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
32763  pack_tmp = ishft(pack_tmp, -36)
32764  idata = idata + 1
32765  data_tmp = ishft(pack_tmp, 14)
32766  ipack = ipack + 1
32767  pack_tmp = packed_data(ipack)
32768  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
32769  pack_tmp = ishft(pack_tmp, -14)
32770  idata = idata + 1
32771  data_tmp = iand(pack_tmp, mask_right(nbits))
32772  full_data(idata) = data_tmp
32773  pack_tmp = ishft(pack_tmp, -nbits)
32774  idata = idata + 1
32775  data_tmp = ishft(pack_tmp, 34)
32776  ipack = ipack + 1
32777  pack_tmp = packed_data(ipack)
32778  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
32779  pack_tmp = ishft(pack_tmp, -34)
32780  idata = idata + 1
32781  data_tmp = ishft(pack_tmp, 12)
32782  ipack = ipack + 1
32783  pack_tmp = packed_data(ipack)
32784  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
32785  pack_tmp = ishft(pack_tmp, -12)
32786  idata = idata + 1
32787  data_tmp = iand(pack_tmp, mask_right(nbits))
32788  full_data(idata) = data_tmp
32789  pack_tmp = ishft(pack_tmp, -nbits)
32790  idata = idata + 1
32791  data_tmp = ishft(pack_tmp, 32)
32792  ipack = ipack + 1
32793  pack_tmp = packed_data(ipack)
32794  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
32795  pack_tmp = ishft(pack_tmp, -32)
32796  idata = idata + 1
32797  data_tmp = ishft(pack_tmp, 10)
32798  ipack = ipack + 1
32799  pack_tmp = packed_data(ipack)
32800  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
32801  pack_tmp = ishft(pack_tmp, -10)
32802  idata = idata + 1
32803  data_tmp = iand(pack_tmp, mask_right(nbits))
32804  full_data(idata) = data_tmp
32805  pack_tmp = ishft(pack_tmp, -nbits)
32806  idata = idata + 1
32807  data_tmp = ishft(pack_tmp, 30)
32808  ipack = ipack + 1
32809  pack_tmp = packed_data(ipack)
32810  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
32811  pack_tmp = ishft(pack_tmp, -30)
32812  idata = idata + 1
32813  data_tmp = ishft(pack_tmp, 8)
32814  ipack = ipack + 1
32815  pack_tmp = packed_data(ipack)
32816  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
32817  pack_tmp = ishft(pack_tmp, -8)
32818  idata = idata + 1
32819  data_tmp = iand(pack_tmp, mask_right(nbits))
32820  full_data(idata) = data_tmp
32821  pack_tmp = ishft(pack_tmp, -nbits)
32822  idata = idata + 1
32823  data_tmp = ishft(pack_tmp, 28)
32824  ipack = ipack + 1
32825  pack_tmp = packed_data(ipack)
32826  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
32827  pack_tmp = ishft(pack_tmp, -28)
32828  idata = idata + 1
32829  data_tmp = ishft(pack_tmp, 6)
32830  ipack = ipack + 1
32831  pack_tmp = packed_data(ipack)
32832  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
32833  pack_tmp = ishft(pack_tmp, -6)
32834  idata = idata + 1
32835  data_tmp = iand(pack_tmp, mask_right(nbits))
32836  full_data(idata) = data_tmp
32837  pack_tmp = ishft(pack_tmp, -nbits)
32838  idata = idata + 1
32839  data_tmp = ishft(pack_tmp, 26)
32840  ipack = ipack + 1
32841  pack_tmp = packed_data(ipack)
32842  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
32843  pack_tmp = ishft(pack_tmp, -26)
32844  idata = idata + 1
32845  data_tmp = ishft(pack_tmp, 4)
32846  ipack = ipack + 1
32847  pack_tmp = packed_data(ipack)
32848  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
32849  pack_tmp = ishft(pack_tmp, -4)
32850  idata = idata + 1
32851  data_tmp = iand(pack_tmp, mask_right(nbits))
32852  full_data(idata) = data_tmp
32853  pack_tmp = ishft(pack_tmp, -nbits)
32854  idata = idata + 1
32855  data_tmp = ishft(pack_tmp, 24)
32856  ipack = ipack + 1
32857  pack_tmp = packed_data(ipack)
32858  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
32859  pack_tmp = ishft(pack_tmp, -24)
32860  idata = idata + 1
32861  data_tmp = ishft(pack_tmp, 2)
32862  ipack = ipack + 1
32863  pack_tmp = packed_data(ipack)
32864  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
32865  pack_tmp = ishft(pack_tmp, -2)
32866  idata = idata + 1
32867  data_tmp = iand(pack_tmp, mask_right(nbits))
32868  full_data(idata) = data_tmp
32869  pack_tmp = ishft(pack_tmp, -nbits)
32870  idata = idata + 1
32871  data_tmp = ishft(pack_tmp, 22)
32872  ipack = ipack + 1
32873  pack_tmp = packed_data(ipack)
32874  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
32875  pack_tmp = ishft(pack_tmp, -22)
32876  idata = idata + 1
32877  data_tmp = iand(pack_tmp, mask_right(nbits))
32878  full_data(idata) = data_tmp
32879  pack_tmp = ishft(pack_tmp, -nbits)
32880  END DO
32881  IF (ndata_rep < ndata) THEN
32882  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
32883  END IF
32884  END SUBROUTINE bits2ints_42
32885 
32886 ! **************************************************************************************************
32887 !> \brief ...
32888 !> \param Ndata ...
32889 !> \param packed_data ...
32890 !> \param full_data ...
32891 ! **************************************************************************************************
32892  SUBROUTINE ints2bits_43(Ndata, packed_data, full_data)
32893  INTEGER, INTENT(IN) :: Ndata
32894  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
32895  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
32896 
32897  INTEGER, PARAMETER :: Nbits = 43
32898 
32899  INTEGER :: idata, ipack, kdata, Ndata_rep
32900  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
32901 
32902  idata = 0
32903  ipack = 0
32904  ndata_rep = (ndata/64)*64
32905  DO kdata = 1, ndata_rep, 64
32906  pack_tmp = 0
32907  idata = idata + 1
32908  data_tmp = full_data(idata)
32909  data_tmp = ishft(data_tmp, 21)
32910  pack_tmp = ior(pack_tmp, data_tmp)
32911  pack_tmp = ishft(pack_tmp, -21)
32912  idata = idata + 1
32913  data_tmp = full_data(idata)
32914  data_tmp = ishft(data_tmp, 21)
32915  data_tmp = iand(data_tmp, mask_left(21))
32916  pack_tmp = ior(pack_tmp, data_tmp)
32917  ipack = ipack + 1
32918  packed_data(ipack) = pack_tmp
32919  data_tmp = full_data(idata)
32920  pack_tmp = ishft(data_tmp, 42)
32921  pack_tmp = ishft(pack_tmp, -42)
32922  idata = idata + 1
32923  data_tmp = full_data(idata)
32924  data_tmp = ishft(data_tmp, 21)
32925  data_tmp = iand(data_tmp, mask_left(42))
32926  pack_tmp = ior(pack_tmp, data_tmp)
32927  ipack = ipack + 1
32928  packed_data(ipack) = pack_tmp
32929  data_tmp = full_data(idata)
32930  pack_tmp = ishft(data_tmp, 63)
32931  pack_tmp = ishft(pack_tmp, -43)
32932  idata = idata + 1
32933  data_tmp = full_data(idata)
32934  data_tmp = ishft(data_tmp, 21)
32935  pack_tmp = ior(pack_tmp, data_tmp)
32936  pack_tmp = ishft(pack_tmp, -20)
32937  idata = idata + 1
32938  data_tmp = full_data(idata)
32939  data_tmp = ishft(data_tmp, 21)
32940  data_tmp = iand(data_tmp, mask_left(20))
32941  pack_tmp = ior(pack_tmp, data_tmp)
32942  ipack = ipack + 1
32943  packed_data(ipack) = pack_tmp
32944  data_tmp = full_data(idata)
32945  pack_tmp = ishft(data_tmp, 41)
32946  pack_tmp = ishft(pack_tmp, -41)
32947  idata = idata + 1
32948  data_tmp = full_data(idata)
32949  data_tmp = ishft(data_tmp, 21)
32950  data_tmp = iand(data_tmp, mask_left(41))
32951  pack_tmp = ior(pack_tmp, data_tmp)
32952  ipack = ipack + 1
32953  packed_data(ipack) = pack_tmp
32954  data_tmp = full_data(idata)
32955  pack_tmp = ishft(data_tmp, 62)
32956  pack_tmp = ishft(pack_tmp, -43)
32957  idata = idata + 1
32958  data_tmp = full_data(idata)
32959  data_tmp = ishft(data_tmp, 21)
32960  pack_tmp = ior(pack_tmp, data_tmp)
32961  pack_tmp = ishft(pack_tmp, -19)
32962  idata = idata + 1
32963  data_tmp = full_data(idata)
32964  data_tmp = ishft(data_tmp, 21)
32965  data_tmp = iand(data_tmp, mask_left(19))
32966  pack_tmp = ior(pack_tmp, data_tmp)
32967  ipack = ipack + 1
32968  packed_data(ipack) = pack_tmp
32969  data_tmp = full_data(idata)
32970  pack_tmp = ishft(data_tmp, 40)
32971  pack_tmp = ishft(pack_tmp, -40)
32972  idata = idata + 1
32973  data_tmp = full_data(idata)
32974  data_tmp = ishft(data_tmp, 21)
32975  data_tmp = iand(data_tmp, mask_left(40))
32976  pack_tmp = ior(pack_tmp, data_tmp)
32977  ipack = ipack + 1
32978  packed_data(ipack) = pack_tmp
32979  data_tmp = full_data(idata)
32980  pack_tmp = ishft(data_tmp, 61)
32981  pack_tmp = ishft(pack_tmp, -43)
32982  idata = idata + 1
32983  data_tmp = full_data(idata)
32984  data_tmp = ishft(data_tmp, 21)
32985  pack_tmp = ior(pack_tmp, data_tmp)
32986  pack_tmp = ishft(pack_tmp, -18)
32987  idata = idata + 1
32988  data_tmp = full_data(idata)
32989  data_tmp = ishft(data_tmp, 21)
32990  data_tmp = iand(data_tmp, mask_left(18))
32991  pack_tmp = ior(pack_tmp, data_tmp)
32992  ipack = ipack + 1
32993  packed_data(ipack) = pack_tmp
32994  data_tmp = full_data(idata)
32995  pack_tmp = ishft(data_tmp, 39)
32996  pack_tmp = ishft(pack_tmp, -39)
32997  idata = idata + 1
32998  data_tmp = full_data(idata)
32999  data_tmp = ishft(data_tmp, 21)
33000  data_tmp = iand(data_tmp, mask_left(39))
33001  pack_tmp = ior(pack_tmp, data_tmp)
33002  ipack = ipack + 1
33003  packed_data(ipack) = pack_tmp
33004  data_tmp = full_data(idata)
33005  pack_tmp = ishft(data_tmp, 60)
33006  pack_tmp = ishft(pack_tmp, -43)
33007  idata = idata + 1
33008  data_tmp = full_data(idata)
33009  data_tmp = ishft(data_tmp, 21)
33010  pack_tmp = ior(pack_tmp, data_tmp)
33011  pack_tmp = ishft(pack_tmp, -17)
33012  idata = idata + 1
33013  data_tmp = full_data(idata)
33014  data_tmp = ishft(data_tmp, 21)
33015  data_tmp = iand(data_tmp, mask_left(17))
33016  pack_tmp = ior(pack_tmp, data_tmp)
33017  ipack = ipack + 1
33018  packed_data(ipack) = pack_tmp
33019  data_tmp = full_data(idata)
33020  pack_tmp = ishft(data_tmp, 38)
33021  pack_tmp = ishft(pack_tmp, -38)
33022  idata = idata + 1
33023  data_tmp = full_data(idata)
33024  data_tmp = ishft(data_tmp, 21)
33025  data_tmp = iand(data_tmp, mask_left(38))
33026  pack_tmp = ior(pack_tmp, data_tmp)
33027  ipack = ipack + 1
33028  packed_data(ipack) = pack_tmp
33029  data_tmp = full_data(idata)
33030  pack_tmp = ishft(data_tmp, 59)
33031  pack_tmp = ishft(pack_tmp, -43)
33032  idata = idata + 1
33033  data_tmp = full_data(idata)
33034  data_tmp = ishft(data_tmp, 21)
33035  pack_tmp = ior(pack_tmp, data_tmp)
33036  pack_tmp = ishft(pack_tmp, -16)
33037  idata = idata + 1
33038  data_tmp = full_data(idata)
33039  data_tmp = ishft(data_tmp, 21)
33040  data_tmp = iand(data_tmp, mask_left(16))
33041  pack_tmp = ior(pack_tmp, data_tmp)
33042  ipack = ipack + 1
33043  packed_data(ipack) = pack_tmp
33044  data_tmp = full_data(idata)
33045  pack_tmp = ishft(data_tmp, 37)
33046  pack_tmp = ishft(pack_tmp, -37)
33047  idata = idata + 1
33048  data_tmp = full_data(idata)
33049  data_tmp = ishft(data_tmp, 21)
33050  data_tmp = iand(data_tmp, mask_left(37))
33051  pack_tmp = ior(pack_tmp, data_tmp)
33052  ipack = ipack + 1
33053  packed_data(ipack) = pack_tmp
33054  data_tmp = full_data(idata)
33055  pack_tmp = ishft(data_tmp, 58)
33056  pack_tmp = ishft(pack_tmp, -43)
33057  idata = idata + 1
33058  data_tmp = full_data(idata)
33059  data_tmp = ishft(data_tmp, 21)
33060  pack_tmp = ior(pack_tmp, data_tmp)
33061  pack_tmp = ishft(pack_tmp, -15)
33062  idata = idata + 1
33063  data_tmp = full_data(idata)
33064  data_tmp = ishft(data_tmp, 21)
33065  data_tmp = iand(data_tmp, mask_left(15))
33066  pack_tmp = ior(pack_tmp, data_tmp)
33067  ipack = ipack + 1
33068  packed_data(ipack) = pack_tmp
33069  data_tmp = full_data(idata)
33070  pack_tmp = ishft(data_tmp, 36)
33071  pack_tmp = ishft(pack_tmp, -36)
33072  idata = idata + 1
33073  data_tmp = full_data(idata)
33074  data_tmp = ishft(data_tmp, 21)
33075  data_tmp = iand(data_tmp, mask_left(36))
33076  pack_tmp = ior(pack_tmp, data_tmp)
33077  ipack = ipack + 1
33078  packed_data(ipack) = pack_tmp
33079  data_tmp = full_data(idata)
33080  pack_tmp = ishft(data_tmp, 57)
33081  pack_tmp = ishft(pack_tmp, -43)
33082  idata = idata + 1
33083  data_tmp = full_data(idata)
33084  data_tmp = ishft(data_tmp, 21)
33085  pack_tmp = ior(pack_tmp, data_tmp)
33086  pack_tmp = ishft(pack_tmp, -14)
33087  idata = idata + 1
33088  data_tmp = full_data(idata)
33089  data_tmp = ishft(data_tmp, 21)
33090  data_tmp = iand(data_tmp, mask_left(14))
33091  pack_tmp = ior(pack_tmp, data_tmp)
33092  ipack = ipack + 1
33093  packed_data(ipack) = pack_tmp
33094  data_tmp = full_data(idata)
33095  pack_tmp = ishft(data_tmp, 35)
33096  pack_tmp = ishft(pack_tmp, -35)
33097  idata = idata + 1
33098  data_tmp = full_data(idata)
33099  data_tmp = ishft(data_tmp, 21)
33100  data_tmp = iand(data_tmp, mask_left(35))
33101  pack_tmp = ior(pack_tmp, data_tmp)
33102  ipack = ipack + 1
33103  packed_data(ipack) = pack_tmp
33104  data_tmp = full_data(idata)
33105  pack_tmp = ishft(data_tmp, 56)
33106  pack_tmp = ishft(pack_tmp, -43)
33107  idata = idata + 1
33108  data_tmp = full_data(idata)
33109  data_tmp = ishft(data_tmp, 21)
33110  pack_tmp = ior(pack_tmp, data_tmp)
33111  pack_tmp = ishft(pack_tmp, -13)
33112  idata = idata + 1
33113  data_tmp = full_data(idata)
33114  data_tmp = ishft(data_tmp, 21)
33115  data_tmp = iand(data_tmp, mask_left(13))
33116  pack_tmp = ior(pack_tmp, data_tmp)
33117  ipack = ipack + 1
33118  packed_data(ipack) = pack_tmp
33119  data_tmp = full_data(idata)
33120  pack_tmp = ishft(data_tmp, 34)
33121  pack_tmp = ishft(pack_tmp, -34)
33122  idata = idata + 1
33123  data_tmp = full_data(idata)
33124  data_tmp = ishft(data_tmp, 21)
33125  data_tmp = iand(data_tmp, mask_left(34))
33126  pack_tmp = ior(pack_tmp, data_tmp)
33127  ipack = ipack + 1
33128  packed_data(ipack) = pack_tmp
33129  data_tmp = full_data(idata)
33130  pack_tmp = ishft(data_tmp, 55)
33131  pack_tmp = ishft(pack_tmp, -43)
33132  idata = idata + 1
33133  data_tmp = full_data(idata)
33134  data_tmp = ishft(data_tmp, 21)
33135  pack_tmp = ior(pack_tmp, data_tmp)
33136  pack_tmp = ishft(pack_tmp, -12)
33137  idata = idata + 1
33138  data_tmp = full_data(idata)
33139  data_tmp = ishft(data_tmp, 21)
33140  data_tmp = iand(data_tmp, mask_left(12))
33141  pack_tmp = ior(pack_tmp, data_tmp)
33142  ipack = ipack + 1
33143  packed_data(ipack) = pack_tmp
33144  data_tmp = full_data(idata)
33145  pack_tmp = ishft(data_tmp, 33)
33146  pack_tmp = ishft(pack_tmp, -33)
33147  idata = idata + 1
33148  data_tmp = full_data(idata)
33149  data_tmp = ishft(data_tmp, 21)
33150  data_tmp = iand(data_tmp, mask_left(33))
33151  pack_tmp = ior(pack_tmp, data_tmp)
33152  ipack = ipack + 1
33153  packed_data(ipack) = pack_tmp
33154  data_tmp = full_data(idata)
33155  pack_tmp = ishft(data_tmp, 54)
33156  pack_tmp = ishft(pack_tmp, -43)
33157  idata = idata + 1
33158  data_tmp = full_data(idata)
33159  data_tmp = ishft(data_tmp, 21)
33160  pack_tmp = ior(pack_tmp, data_tmp)
33161  pack_tmp = ishft(pack_tmp, -11)
33162  idata = idata + 1
33163  data_tmp = full_data(idata)
33164  data_tmp = ishft(data_tmp, 21)
33165  data_tmp = iand(data_tmp, mask_left(11))
33166  pack_tmp = ior(pack_tmp, data_tmp)
33167  ipack = ipack + 1
33168  packed_data(ipack) = pack_tmp
33169  data_tmp = full_data(idata)
33170  pack_tmp = ishft(data_tmp, 32)
33171  pack_tmp = ishft(pack_tmp, -32)
33172  idata = idata + 1
33173  data_tmp = full_data(idata)
33174  data_tmp = ishft(data_tmp, 21)
33175  data_tmp = iand(data_tmp, mask_left(32))
33176  pack_tmp = ior(pack_tmp, data_tmp)
33177  ipack = ipack + 1
33178  packed_data(ipack) = pack_tmp
33179  data_tmp = full_data(idata)
33180  pack_tmp = ishft(data_tmp, 53)
33181  pack_tmp = ishft(pack_tmp, -43)
33182  idata = idata + 1
33183  data_tmp = full_data(idata)
33184  data_tmp = ishft(data_tmp, 21)
33185  pack_tmp = ior(pack_tmp, data_tmp)
33186  pack_tmp = ishft(pack_tmp, -10)
33187  idata = idata + 1
33188  data_tmp = full_data(idata)
33189  data_tmp = ishft(data_tmp, 21)
33190  data_tmp = iand(data_tmp, mask_left(10))
33191  pack_tmp = ior(pack_tmp, data_tmp)
33192  ipack = ipack + 1
33193  packed_data(ipack) = pack_tmp
33194  data_tmp = full_data(idata)
33195  pack_tmp = ishft(data_tmp, 31)
33196  pack_tmp = ishft(pack_tmp, -31)
33197  idata = idata + 1
33198  data_tmp = full_data(idata)
33199  data_tmp = ishft(data_tmp, 21)
33200  data_tmp = iand(data_tmp, mask_left(31))
33201  pack_tmp = ior(pack_tmp, data_tmp)
33202  ipack = ipack + 1
33203  packed_data(ipack) = pack_tmp
33204  data_tmp = full_data(idata)
33205  pack_tmp = ishft(data_tmp, 52)
33206  pack_tmp = ishft(pack_tmp, -43)
33207  idata = idata + 1
33208  data_tmp = full_data(idata)
33209  data_tmp = ishft(data_tmp, 21)
33210  pack_tmp = ior(pack_tmp, data_tmp)
33211  pack_tmp = ishft(pack_tmp, -9)
33212  idata = idata + 1
33213  data_tmp = full_data(idata)
33214  data_tmp = ishft(data_tmp, 21)
33215  data_tmp = iand(data_tmp, mask_left(9))
33216  pack_tmp = ior(pack_tmp, data_tmp)
33217  ipack = ipack + 1
33218  packed_data(ipack) = pack_tmp
33219  data_tmp = full_data(idata)
33220  pack_tmp = ishft(data_tmp, 30)
33221  pack_tmp = ishft(pack_tmp, -30)
33222  idata = idata + 1
33223  data_tmp = full_data(idata)
33224  data_tmp = ishft(data_tmp, 21)
33225  data_tmp = iand(data_tmp, mask_left(30))
33226  pack_tmp = ior(pack_tmp, data_tmp)
33227  ipack = ipack + 1
33228  packed_data(ipack) = pack_tmp
33229  data_tmp = full_data(idata)
33230  pack_tmp = ishft(data_tmp, 51)
33231  pack_tmp = ishft(pack_tmp, -43)
33232  idata = idata + 1
33233  data_tmp = full_data(idata)
33234  data_tmp = ishft(data_tmp, 21)
33235  pack_tmp = ior(pack_tmp, data_tmp)
33236  pack_tmp = ishft(pack_tmp, -8)
33237  idata = idata + 1
33238  data_tmp = full_data(idata)
33239  data_tmp = ishft(data_tmp, 21)
33240  data_tmp = iand(data_tmp, mask_left(8))
33241  pack_tmp = ior(pack_tmp, data_tmp)
33242  ipack = ipack + 1
33243  packed_data(ipack) = pack_tmp
33244  data_tmp = full_data(idata)
33245  pack_tmp = ishft(data_tmp, 29)
33246  pack_tmp = ishft(pack_tmp, -29)
33247  idata = idata + 1
33248  data_tmp = full_data(idata)
33249  data_tmp = ishft(data_tmp, 21)
33250  data_tmp = iand(data_tmp, mask_left(29))
33251  pack_tmp = ior(pack_tmp, data_tmp)
33252  ipack = ipack + 1
33253  packed_data(ipack) = pack_tmp
33254  data_tmp = full_data(idata)
33255  pack_tmp = ishft(data_tmp, 50)
33256  pack_tmp = ishft(pack_tmp, -43)
33257  idata = idata + 1
33258  data_tmp = full_data(idata)
33259  data_tmp = ishft(data_tmp, 21)
33260  pack_tmp = ior(pack_tmp, data_tmp)
33261  pack_tmp = ishft(pack_tmp, -7)
33262  idata = idata + 1
33263  data_tmp = full_data(idata)
33264  data_tmp = ishft(data_tmp, 21)
33265  data_tmp = iand(data_tmp, mask_left(7))
33266  pack_tmp = ior(pack_tmp, data_tmp)
33267  ipack = ipack + 1
33268  packed_data(ipack) = pack_tmp
33269  data_tmp = full_data(idata)
33270  pack_tmp = ishft(data_tmp, 28)
33271  pack_tmp = ishft(pack_tmp, -28)
33272  idata = idata + 1
33273  data_tmp = full_data(idata)
33274  data_tmp = ishft(data_tmp, 21)
33275  data_tmp = iand(data_tmp, mask_left(28))
33276  pack_tmp = ior(pack_tmp, data_tmp)
33277  ipack = ipack + 1
33278  packed_data(ipack) = pack_tmp
33279  data_tmp = full_data(idata)
33280  pack_tmp = ishft(data_tmp, 49)
33281  pack_tmp = ishft(pack_tmp, -43)
33282  idata = idata + 1
33283  data_tmp = full_data(idata)
33284  data_tmp = ishft(data_tmp, 21)
33285  pack_tmp = ior(pack_tmp, data_tmp)
33286  pack_tmp = ishft(pack_tmp, -6)
33287  idata = idata + 1
33288  data_tmp = full_data(idata)
33289  data_tmp = ishft(data_tmp, 21)
33290  data_tmp = iand(data_tmp, mask_left(6))
33291  pack_tmp = ior(pack_tmp, data_tmp)
33292  ipack = ipack + 1
33293  packed_data(ipack) = pack_tmp
33294  data_tmp = full_data(idata)
33295  pack_tmp = ishft(data_tmp, 27)
33296  pack_tmp = ishft(pack_tmp, -27)
33297  idata = idata + 1
33298  data_tmp = full_data(idata)
33299  data_tmp = ishft(data_tmp, 21)
33300  data_tmp = iand(data_tmp, mask_left(27))
33301  pack_tmp = ior(pack_tmp, data_tmp)
33302  ipack = ipack + 1
33303  packed_data(ipack) = pack_tmp
33304  data_tmp = full_data(idata)
33305  pack_tmp = ishft(data_tmp, 48)
33306  pack_tmp = ishft(pack_tmp, -43)
33307  idata = idata + 1
33308  data_tmp = full_data(idata)
33309  data_tmp = ishft(data_tmp, 21)
33310  pack_tmp = ior(pack_tmp, data_tmp)
33311  pack_tmp = ishft(pack_tmp, -5)
33312  idata = idata + 1
33313  data_tmp = full_data(idata)
33314  data_tmp = ishft(data_tmp, 21)
33315  data_tmp = iand(data_tmp, mask_left(5))
33316  pack_tmp = ior(pack_tmp, data_tmp)
33317  ipack = ipack + 1
33318  packed_data(ipack) = pack_tmp
33319  data_tmp = full_data(idata)
33320  pack_tmp = ishft(data_tmp, 26)
33321  pack_tmp = ishft(pack_tmp, -26)
33322  idata = idata + 1
33323  data_tmp = full_data(idata)
33324  data_tmp = ishft(data_tmp, 21)
33325  data_tmp = iand(data_tmp, mask_left(26))
33326  pack_tmp = ior(pack_tmp, data_tmp)
33327  ipack = ipack + 1
33328  packed_data(ipack) = pack_tmp
33329  data_tmp = full_data(idata)
33330  pack_tmp = ishft(data_tmp, 47)
33331  pack_tmp = ishft(pack_tmp, -43)
33332  idata = idata + 1
33333  data_tmp = full_data(idata)
33334  data_tmp = ishft(data_tmp, 21)
33335  pack_tmp = ior(pack_tmp, data_tmp)
33336  pack_tmp = ishft(pack_tmp, -4)
33337  idata = idata + 1
33338  data_tmp = full_data(idata)
33339  data_tmp = ishft(data_tmp, 21)
33340  data_tmp = iand(data_tmp, mask_left(4))
33341  pack_tmp = ior(pack_tmp, data_tmp)
33342  ipack = ipack + 1
33343  packed_data(ipack) = pack_tmp
33344  data_tmp = full_data(idata)
33345  pack_tmp = ishft(data_tmp, 25)
33346  pack_tmp = ishft(pack_tmp, -25)
33347  idata = idata + 1
33348  data_tmp = full_data(idata)
33349  data_tmp = ishft(data_tmp, 21)
33350  data_tmp = iand(data_tmp, mask_left(25))
33351  pack_tmp = ior(pack_tmp, data_tmp)
33352  ipack = ipack + 1
33353  packed_data(ipack) = pack_tmp
33354  data_tmp = full_data(idata)
33355  pack_tmp = ishft(data_tmp, 46)
33356  pack_tmp = ishft(pack_tmp, -43)
33357  idata = idata + 1
33358  data_tmp = full_data(idata)
33359  data_tmp = ishft(data_tmp, 21)
33360  pack_tmp = ior(pack_tmp, data_tmp)
33361  pack_tmp = ishft(pack_tmp, -3)
33362  idata = idata + 1
33363  data_tmp = full_data(idata)
33364  data_tmp = ishft(data_tmp, 21)
33365  data_tmp = iand(data_tmp, mask_left(3))
33366  pack_tmp = ior(pack_tmp, data_tmp)
33367  ipack = ipack + 1
33368  packed_data(ipack) = pack_tmp
33369  data_tmp = full_data(idata)
33370  pack_tmp = ishft(data_tmp, 24)
33371  pack_tmp = ishft(pack_tmp, -24)
33372  idata = idata + 1
33373  data_tmp = full_data(idata)
33374  data_tmp = ishft(data_tmp, 21)
33375  data_tmp = iand(data_tmp, mask_left(24))
33376  pack_tmp = ior(pack_tmp, data_tmp)
33377  ipack = ipack + 1
33378  packed_data(ipack) = pack_tmp
33379  data_tmp = full_data(idata)
33380  pack_tmp = ishft(data_tmp, 45)
33381  pack_tmp = ishft(pack_tmp, -43)
33382  idata = idata + 1
33383  data_tmp = full_data(idata)
33384  data_tmp = ishft(data_tmp, 21)
33385  pack_tmp = ior(pack_tmp, data_tmp)
33386  pack_tmp = ishft(pack_tmp, -2)
33387  idata = idata + 1
33388  data_tmp = full_data(idata)
33389  data_tmp = ishft(data_tmp, 21)
33390  data_tmp = iand(data_tmp, mask_left(2))
33391  pack_tmp = ior(pack_tmp, data_tmp)
33392  ipack = ipack + 1
33393  packed_data(ipack) = pack_tmp
33394  data_tmp = full_data(idata)
33395  pack_tmp = ishft(data_tmp, 23)
33396  pack_tmp = ishft(pack_tmp, -23)
33397  idata = idata + 1
33398  data_tmp = full_data(idata)
33399  data_tmp = ishft(data_tmp, 21)
33400  data_tmp = iand(data_tmp, mask_left(23))
33401  pack_tmp = ior(pack_tmp, data_tmp)
33402  ipack = ipack + 1
33403  packed_data(ipack) = pack_tmp
33404  data_tmp = full_data(idata)
33405  pack_tmp = ishft(data_tmp, 44)
33406  pack_tmp = ishft(pack_tmp, -43)
33407  idata = idata + 1
33408  data_tmp = full_data(idata)
33409  data_tmp = ishft(data_tmp, 21)
33410  pack_tmp = ior(pack_tmp, data_tmp)
33411  pack_tmp = ishft(pack_tmp, -1)
33412  idata = idata + 1
33413  data_tmp = full_data(idata)
33414  data_tmp = ishft(data_tmp, 21)
33415  data_tmp = iand(data_tmp, mask_left(1))
33416  pack_tmp = ior(pack_tmp, data_tmp)
33417  ipack = ipack + 1
33418  packed_data(ipack) = pack_tmp
33419  data_tmp = full_data(idata)
33420  pack_tmp = ishft(data_tmp, 22)
33421  pack_tmp = ishft(pack_tmp, -22)
33422  idata = idata + 1
33423  data_tmp = full_data(idata)
33424  data_tmp = ishft(data_tmp, 21)
33425  data_tmp = iand(data_tmp, mask_left(22))
33426  pack_tmp = ior(pack_tmp, data_tmp)
33427  ipack = ipack + 1
33428  packed_data(ipack) = pack_tmp
33429  data_tmp = full_data(idata)
33430  pack_tmp = ishft(data_tmp, 43)
33431  pack_tmp = ishft(pack_tmp, -43)
33432  idata = idata + 1
33433  data_tmp = full_data(idata)
33434  data_tmp = ishft(data_tmp, 21)
33435  pack_tmp = ior(pack_tmp, data_tmp)
33436  pack_tmp = ishft(pack_tmp, 0)
33437  pack_tmp = ishft(pack_tmp, 0)
33438  ipack = ipack + 1
33439  packed_data(ipack) = pack_tmp
33440  END DO
33441  IF (ndata_rep < ndata) THEN
33442  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
33443  END IF
33444  END SUBROUTINE ints2bits_43
33445 
33446 ! **************************************************************************************************
33447 !> \brief ...
33448 !> \param Ndata ...
33449 !> \param packed_data ...
33450 !> \param full_data ...
33451 ! **************************************************************************************************
33452  SUBROUTINE bits2ints_43(Ndata, packed_data, full_data)
33453  INTEGER, INTENT(IN) :: Ndata
33454  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
33455  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
33456 
33457  INTEGER, PARAMETER :: Nbits = 43
33458 
33459  INTEGER :: idata, ipack, kdata, Ndata_rep
33460  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
33461 
33462  ipack = 0
33463  idata = 0
33464  pack_tmp = 0
33465  ndata_rep = (ndata/64)*64
33466  DO kdata = 1, ndata_rep, 64
33467  idata = idata + 1
33468  data_tmp = ishft(pack_tmp, 43)
33469  ipack = ipack + 1
33470  pack_tmp = packed_data(ipack)
33471  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
33472  pack_tmp = ishft(pack_tmp, -43)
33473  idata = idata + 1
33474  data_tmp = ishft(pack_tmp, 22)
33475  ipack = ipack + 1
33476  pack_tmp = packed_data(ipack)
33477  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
33478  pack_tmp = ishft(pack_tmp, -22)
33479  idata = idata + 1
33480  data_tmp = ishft(pack_tmp, 1)
33481  ipack = ipack + 1
33482  pack_tmp = packed_data(ipack)
33483  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
33484  pack_tmp = ishft(pack_tmp, -1)
33485  idata = idata + 1
33486  data_tmp = iand(pack_tmp, mask_right(nbits))
33487  full_data(idata) = data_tmp
33488  pack_tmp = ishft(pack_tmp, -nbits)
33489  idata = idata + 1
33490  data_tmp = ishft(pack_tmp, 23)
33491  ipack = ipack + 1
33492  pack_tmp = packed_data(ipack)
33493  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
33494  pack_tmp = ishft(pack_tmp, -23)
33495  idata = idata + 1
33496  data_tmp = ishft(pack_tmp, 2)
33497  ipack = ipack + 1
33498  pack_tmp = packed_data(ipack)
33499  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
33500  pack_tmp = ishft(pack_tmp, -2)
33501  idata = idata + 1
33502  data_tmp = iand(pack_tmp, mask_right(nbits))
33503  full_data(idata) = data_tmp
33504  pack_tmp = ishft(pack_tmp, -nbits)
33505  idata = idata + 1
33506  data_tmp = ishft(pack_tmp, 24)
33507  ipack = ipack + 1
33508  pack_tmp = packed_data(ipack)
33509  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
33510  pack_tmp = ishft(pack_tmp, -24)
33511  idata = idata + 1
33512  data_tmp = ishft(pack_tmp, 3)
33513  ipack = ipack + 1
33514  pack_tmp = packed_data(ipack)
33515  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
33516  pack_tmp = ishft(pack_tmp, -3)
33517  idata = idata + 1
33518  data_tmp = iand(pack_tmp, mask_right(nbits))
33519  full_data(idata) = data_tmp
33520  pack_tmp = ishft(pack_tmp, -nbits)
33521  idata = idata + 1
33522  data_tmp = ishft(pack_tmp, 25)
33523  ipack = ipack + 1
33524  pack_tmp = packed_data(ipack)
33525  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
33526  pack_tmp = ishft(pack_tmp, -25)
33527  idata = idata + 1
33528  data_tmp = ishft(pack_tmp, 4)
33529  ipack = ipack + 1
33530  pack_tmp = packed_data(ipack)
33531  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
33532  pack_tmp = ishft(pack_tmp, -4)
33533  idata = idata + 1
33534  data_tmp = iand(pack_tmp, mask_right(nbits))
33535  full_data(idata) = data_tmp
33536  pack_tmp = ishft(pack_tmp, -nbits)
33537  idata = idata + 1
33538  data_tmp = ishft(pack_tmp, 26)
33539  ipack = ipack + 1
33540  pack_tmp = packed_data(ipack)
33541  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
33542  pack_tmp = ishft(pack_tmp, -26)
33543  idata = idata + 1
33544  data_tmp = ishft(pack_tmp, 5)
33545  ipack = ipack + 1
33546  pack_tmp = packed_data(ipack)
33547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
33548  pack_tmp = ishft(pack_tmp, -5)
33549  idata = idata + 1
33550  data_tmp = iand(pack_tmp, mask_right(nbits))
33551  full_data(idata) = data_tmp
33552  pack_tmp = ishft(pack_tmp, -nbits)
33553  idata = idata + 1
33554  data_tmp = ishft(pack_tmp, 27)
33555  ipack = ipack + 1
33556  pack_tmp = packed_data(ipack)
33557  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
33558  pack_tmp = ishft(pack_tmp, -27)
33559  idata = idata + 1
33560  data_tmp = ishft(pack_tmp, 6)
33561  ipack = ipack + 1
33562  pack_tmp = packed_data(ipack)
33563  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
33564  pack_tmp = ishft(pack_tmp, -6)
33565  idata = idata + 1
33566  data_tmp = iand(pack_tmp, mask_right(nbits))
33567  full_data(idata) = data_tmp
33568  pack_tmp = ishft(pack_tmp, -nbits)
33569  idata = idata + 1
33570  data_tmp = ishft(pack_tmp, 28)
33571  ipack = ipack + 1
33572  pack_tmp = packed_data(ipack)
33573  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
33574  pack_tmp = ishft(pack_tmp, -28)
33575  idata = idata + 1
33576  data_tmp = ishft(pack_tmp, 7)
33577  ipack = ipack + 1
33578  pack_tmp = packed_data(ipack)
33579  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
33580  pack_tmp = ishft(pack_tmp, -7)
33581  idata = idata + 1
33582  data_tmp = iand(pack_tmp, mask_right(nbits))
33583  full_data(idata) = data_tmp
33584  pack_tmp = ishft(pack_tmp, -nbits)
33585  idata = idata + 1
33586  data_tmp = ishft(pack_tmp, 29)
33587  ipack = ipack + 1
33588  pack_tmp = packed_data(ipack)
33589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
33590  pack_tmp = ishft(pack_tmp, -29)
33591  idata = idata + 1
33592  data_tmp = ishft(pack_tmp, 8)
33593  ipack = ipack + 1
33594  pack_tmp = packed_data(ipack)
33595  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
33596  pack_tmp = ishft(pack_tmp, -8)
33597  idata = idata + 1
33598  data_tmp = iand(pack_tmp, mask_right(nbits))
33599  full_data(idata) = data_tmp
33600  pack_tmp = ishft(pack_tmp, -nbits)
33601  idata = idata + 1
33602  data_tmp = ishft(pack_tmp, 30)
33603  ipack = ipack + 1
33604  pack_tmp = packed_data(ipack)
33605  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
33606  pack_tmp = ishft(pack_tmp, -30)
33607  idata = idata + 1
33608  data_tmp = ishft(pack_tmp, 9)
33609  ipack = ipack + 1
33610  pack_tmp = packed_data(ipack)
33611  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
33612  pack_tmp = ishft(pack_tmp, -9)
33613  idata = idata + 1
33614  data_tmp = iand(pack_tmp, mask_right(nbits))
33615  full_data(idata) = data_tmp
33616  pack_tmp = ishft(pack_tmp, -nbits)
33617  idata = idata + 1
33618  data_tmp = ishft(pack_tmp, 31)
33619  ipack = ipack + 1
33620  pack_tmp = packed_data(ipack)
33621  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
33622  pack_tmp = ishft(pack_tmp, -31)
33623  idata = idata + 1
33624  data_tmp = ishft(pack_tmp, 10)
33625  ipack = ipack + 1
33626  pack_tmp = packed_data(ipack)
33627  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
33628  pack_tmp = ishft(pack_tmp, -10)
33629  idata = idata + 1
33630  data_tmp = iand(pack_tmp, mask_right(nbits))
33631  full_data(idata) = data_tmp
33632  pack_tmp = ishft(pack_tmp, -nbits)
33633  idata = idata + 1
33634  data_tmp = ishft(pack_tmp, 32)
33635  ipack = ipack + 1
33636  pack_tmp = packed_data(ipack)
33637  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
33638  pack_tmp = ishft(pack_tmp, -32)
33639  idata = idata + 1
33640  data_tmp = ishft(pack_tmp, 11)
33641  ipack = ipack + 1
33642  pack_tmp = packed_data(ipack)
33643  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
33644  pack_tmp = ishft(pack_tmp, -11)
33645  idata = idata + 1
33646  data_tmp = iand(pack_tmp, mask_right(nbits))
33647  full_data(idata) = data_tmp
33648  pack_tmp = ishft(pack_tmp, -nbits)
33649  idata = idata + 1
33650  data_tmp = ishft(pack_tmp, 33)
33651  ipack = ipack + 1
33652  pack_tmp = packed_data(ipack)
33653  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
33654  pack_tmp = ishft(pack_tmp, -33)
33655  idata = idata + 1
33656  data_tmp = ishft(pack_tmp, 12)
33657  ipack = ipack + 1
33658  pack_tmp = packed_data(ipack)
33659  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
33660  pack_tmp = ishft(pack_tmp, -12)
33661  idata = idata + 1
33662  data_tmp = iand(pack_tmp, mask_right(nbits))
33663  full_data(idata) = data_tmp
33664  pack_tmp = ishft(pack_tmp, -nbits)
33665  idata = idata + 1
33666  data_tmp = ishft(pack_tmp, 34)
33667  ipack = ipack + 1
33668  pack_tmp = packed_data(ipack)
33669  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
33670  pack_tmp = ishft(pack_tmp, -34)
33671  idata = idata + 1
33672  data_tmp = ishft(pack_tmp, 13)
33673  ipack = ipack + 1
33674  pack_tmp = packed_data(ipack)
33675  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
33676  pack_tmp = ishft(pack_tmp, -13)
33677  idata = idata + 1
33678  data_tmp = iand(pack_tmp, mask_right(nbits))
33679  full_data(idata) = data_tmp
33680  pack_tmp = ishft(pack_tmp, -nbits)
33681  idata = idata + 1
33682  data_tmp = ishft(pack_tmp, 35)
33683  ipack = ipack + 1
33684  pack_tmp = packed_data(ipack)
33685  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
33686  pack_tmp = ishft(pack_tmp, -35)
33687  idata = idata + 1
33688  data_tmp = ishft(pack_tmp, 14)
33689  ipack = ipack + 1
33690  pack_tmp = packed_data(ipack)
33691  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
33692  pack_tmp = ishft(pack_tmp, -14)
33693  idata = idata + 1
33694  data_tmp = iand(pack_tmp, mask_right(nbits))
33695  full_data(idata) = data_tmp
33696  pack_tmp = ishft(pack_tmp, -nbits)
33697  idata = idata + 1
33698  data_tmp = ishft(pack_tmp, 36)
33699  ipack = ipack + 1
33700  pack_tmp = packed_data(ipack)
33701  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
33702  pack_tmp = ishft(pack_tmp, -36)
33703  idata = idata + 1
33704  data_tmp = ishft(pack_tmp, 15)
33705  ipack = ipack + 1
33706  pack_tmp = packed_data(ipack)
33707  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
33708  pack_tmp = ishft(pack_tmp, -15)
33709  idata = idata + 1
33710  data_tmp = iand(pack_tmp, mask_right(nbits))
33711  full_data(idata) = data_tmp
33712  pack_tmp = ishft(pack_tmp, -nbits)
33713  idata = idata + 1
33714  data_tmp = ishft(pack_tmp, 37)
33715  ipack = ipack + 1
33716  pack_tmp = packed_data(ipack)
33717  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
33718  pack_tmp = ishft(pack_tmp, -37)
33719  idata = idata + 1
33720  data_tmp = ishft(pack_tmp, 16)
33721  ipack = ipack + 1
33722  pack_tmp = packed_data(ipack)
33723  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
33724  pack_tmp = ishft(pack_tmp, -16)
33725  idata = idata + 1
33726  data_tmp = iand(pack_tmp, mask_right(nbits))
33727  full_data(idata) = data_tmp
33728  pack_tmp = ishft(pack_tmp, -nbits)
33729  idata = idata + 1
33730  data_tmp = ishft(pack_tmp, 38)
33731  ipack = ipack + 1
33732  pack_tmp = packed_data(ipack)
33733  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
33734  pack_tmp = ishft(pack_tmp, -38)
33735  idata = idata + 1
33736  data_tmp = ishft(pack_tmp, 17)
33737  ipack = ipack + 1
33738  pack_tmp = packed_data(ipack)
33739  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
33740  pack_tmp = ishft(pack_tmp, -17)
33741  idata = idata + 1
33742  data_tmp = iand(pack_tmp, mask_right(nbits))
33743  full_data(idata) = data_tmp
33744  pack_tmp = ishft(pack_tmp, -nbits)
33745  idata = idata + 1
33746  data_tmp = ishft(pack_tmp, 39)
33747  ipack = ipack + 1
33748  pack_tmp = packed_data(ipack)
33749  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
33750  pack_tmp = ishft(pack_tmp, -39)
33751  idata = idata + 1
33752  data_tmp = ishft(pack_tmp, 18)
33753  ipack = ipack + 1
33754  pack_tmp = packed_data(ipack)
33755  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
33756  pack_tmp = ishft(pack_tmp, -18)
33757  idata = idata + 1
33758  data_tmp = iand(pack_tmp, mask_right(nbits))
33759  full_data(idata) = data_tmp
33760  pack_tmp = ishft(pack_tmp, -nbits)
33761  idata = idata + 1
33762  data_tmp = ishft(pack_tmp, 40)
33763  ipack = ipack + 1
33764  pack_tmp = packed_data(ipack)
33765  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
33766  pack_tmp = ishft(pack_tmp, -40)
33767  idata = idata + 1
33768  data_tmp = ishft(pack_tmp, 19)
33769  ipack = ipack + 1
33770  pack_tmp = packed_data(ipack)
33771  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
33772  pack_tmp = ishft(pack_tmp, -19)
33773  idata = idata + 1
33774  data_tmp = iand(pack_tmp, mask_right(nbits))
33775  full_data(idata) = data_tmp
33776  pack_tmp = ishft(pack_tmp, -nbits)
33777  idata = idata + 1
33778  data_tmp = ishft(pack_tmp, 41)
33779  ipack = ipack + 1
33780  pack_tmp = packed_data(ipack)
33781  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
33782  pack_tmp = ishft(pack_tmp, -41)
33783  idata = idata + 1
33784  data_tmp = ishft(pack_tmp, 20)
33785  ipack = ipack + 1
33786  pack_tmp = packed_data(ipack)
33787  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
33788  pack_tmp = ishft(pack_tmp, -20)
33789  idata = idata + 1
33790  data_tmp = iand(pack_tmp, mask_right(nbits))
33791  full_data(idata) = data_tmp
33792  pack_tmp = ishft(pack_tmp, -nbits)
33793  idata = idata + 1
33794  data_tmp = ishft(pack_tmp, 42)
33795  ipack = ipack + 1
33796  pack_tmp = packed_data(ipack)
33797  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
33798  pack_tmp = ishft(pack_tmp, -42)
33799  idata = idata + 1
33800  data_tmp = ishft(pack_tmp, 21)
33801  ipack = ipack + 1
33802  pack_tmp = packed_data(ipack)
33803  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
33804  pack_tmp = ishft(pack_tmp, -21)
33805  idata = idata + 1
33806  data_tmp = iand(pack_tmp, mask_right(nbits))
33807  full_data(idata) = data_tmp
33808  pack_tmp = ishft(pack_tmp, -nbits)
33809  END DO
33810  IF (ndata_rep < ndata) THEN
33811  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
33812  END IF
33813  END SUBROUTINE bits2ints_43
33814 
33815 ! **************************************************************************************************
33816 !> \brief ...
33817 !> \param Ndata ...
33818 !> \param packed_data ...
33819 !> \param full_data ...
33820 ! **************************************************************************************************
33821  SUBROUTINE ints2bits_44(Ndata, packed_data, full_data)
33822  INTEGER, INTENT(IN) :: Ndata
33823  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
33824  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
33825 
33826  INTEGER, PARAMETER :: Nbits = 44
33827 
33828  INTEGER :: idata, ipack, kdata, Ndata_rep
33829  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
33830 
33831  idata = 0
33832  ipack = 0
33833  ndata_rep = (ndata/64)*64
33834  DO kdata = 1, ndata_rep, 64
33835  pack_tmp = 0
33836  idata = idata + 1
33837  data_tmp = full_data(idata)
33838  data_tmp = ishft(data_tmp, 20)
33839  pack_tmp = ior(pack_tmp, data_tmp)
33840  pack_tmp = ishft(pack_tmp, -20)
33841  idata = idata + 1
33842  data_tmp = full_data(idata)
33843  data_tmp = ishft(data_tmp, 20)
33844  data_tmp = iand(data_tmp, mask_left(20))
33845  pack_tmp = ior(pack_tmp, data_tmp)
33846  ipack = ipack + 1
33847  packed_data(ipack) = pack_tmp
33848  data_tmp = full_data(idata)
33849  pack_tmp = ishft(data_tmp, 40)
33850  pack_tmp = ishft(pack_tmp, -40)
33851  idata = idata + 1
33852  data_tmp = full_data(idata)
33853  data_tmp = ishft(data_tmp, 20)
33854  data_tmp = iand(data_tmp, mask_left(40))
33855  pack_tmp = ior(pack_tmp, data_tmp)
33856  ipack = ipack + 1
33857  packed_data(ipack) = pack_tmp
33858  data_tmp = full_data(idata)
33859  pack_tmp = ishft(data_tmp, 60)
33860  pack_tmp = ishft(pack_tmp, -44)
33861  idata = idata + 1
33862  data_tmp = full_data(idata)
33863  data_tmp = ishft(data_tmp, 20)
33864  pack_tmp = ior(pack_tmp, data_tmp)
33865  pack_tmp = ishft(pack_tmp, -16)
33866  idata = idata + 1
33867  data_tmp = full_data(idata)
33868  data_tmp = ishft(data_tmp, 20)
33869  data_tmp = iand(data_tmp, mask_left(16))
33870  pack_tmp = ior(pack_tmp, data_tmp)
33871  ipack = ipack + 1
33872  packed_data(ipack) = pack_tmp
33873  data_tmp = full_data(idata)
33874  pack_tmp = ishft(data_tmp, 36)
33875  pack_tmp = ishft(pack_tmp, -36)
33876  idata = idata + 1
33877  data_tmp = full_data(idata)
33878  data_tmp = ishft(data_tmp, 20)
33879  data_tmp = iand(data_tmp, mask_left(36))
33880  pack_tmp = ior(pack_tmp, data_tmp)
33881  ipack = ipack + 1
33882  packed_data(ipack) = pack_tmp
33883  data_tmp = full_data(idata)
33884  pack_tmp = ishft(data_tmp, 56)
33885  pack_tmp = ishft(pack_tmp, -44)
33886  idata = idata + 1
33887  data_tmp = full_data(idata)
33888  data_tmp = ishft(data_tmp, 20)
33889  pack_tmp = ior(pack_tmp, data_tmp)
33890  pack_tmp = ishft(pack_tmp, -12)
33891  idata = idata + 1
33892  data_tmp = full_data(idata)
33893  data_tmp = ishft(data_tmp, 20)
33894  data_tmp = iand(data_tmp, mask_left(12))
33895  pack_tmp = ior(pack_tmp, data_tmp)
33896  ipack = ipack + 1
33897  packed_data(ipack) = pack_tmp
33898  data_tmp = full_data(idata)
33899  pack_tmp = ishft(data_tmp, 32)
33900  pack_tmp = ishft(pack_tmp, -32)
33901  idata = idata + 1
33902  data_tmp = full_data(idata)
33903  data_tmp = ishft(data_tmp, 20)
33904  data_tmp = iand(data_tmp, mask_left(32))
33905  pack_tmp = ior(pack_tmp, data_tmp)
33906  ipack = ipack + 1
33907  packed_data(ipack) = pack_tmp
33908  data_tmp = full_data(idata)
33909  pack_tmp = ishft(data_tmp, 52)
33910  pack_tmp = ishft(pack_tmp, -44)
33911  idata = idata + 1
33912  data_tmp = full_data(idata)
33913  data_tmp = ishft(data_tmp, 20)
33914  pack_tmp = ior(pack_tmp, data_tmp)
33915  pack_tmp = ishft(pack_tmp, -8)
33916  idata = idata + 1
33917  data_tmp = full_data(idata)
33918  data_tmp = ishft(data_tmp, 20)
33919  data_tmp = iand(data_tmp, mask_left(8))
33920  pack_tmp = ior(pack_tmp, data_tmp)
33921  ipack = ipack + 1
33922  packed_data(ipack) = pack_tmp
33923  data_tmp = full_data(idata)
33924  pack_tmp = ishft(data_tmp, 28)
33925  pack_tmp = ishft(pack_tmp, -28)
33926  idata = idata + 1
33927  data_tmp = full_data(idata)
33928  data_tmp = ishft(data_tmp, 20)
33929  data_tmp = iand(data_tmp, mask_left(28))
33930  pack_tmp = ior(pack_tmp, data_tmp)
33931  ipack = ipack + 1
33932  packed_data(ipack) = pack_tmp
33933  data_tmp = full_data(idata)
33934  pack_tmp = ishft(data_tmp, 48)
33935  pack_tmp = ishft(pack_tmp, -44)
33936  idata = idata + 1
33937  data_tmp = full_data(idata)
33938  data_tmp = ishft(data_tmp, 20)
33939  pack_tmp = ior(pack_tmp, data_tmp)
33940  pack_tmp = ishft(pack_tmp, -4)
33941  idata = idata + 1
33942  data_tmp = full_data(idata)
33943  data_tmp = ishft(data_tmp, 20)
33944  data_tmp = iand(data_tmp, mask_left(4))
33945  pack_tmp = ior(pack_tmp, data_tmp)
33946  ipack = ipack + 1
33947  packed_data(ipack) = pack_tmp
33948  data_tmp = full_data(idata)
33949  pack_tmp = ishft(data_tmp, 24)
33950  pack_tmp = ishft(pack_tmp, -24)
33951  idata = idata + 1
33952  data_tmp = full_data(idata)
33953  data_tmp = ishft(data_tmp, 20)
33954  data_tmp = iand(data_tmp, mask_left(24))
33955  pack_tmp = ior(pack_tmp, data_tmp)
33956  ipack = ipack + 1
33957  packed_data(ipack) = pack_tmp
33958  data_tmp = full_data(idata)
33959  pack_tmp = ishft(data_tmp, 44)
33960  pack_tmp = ishft(pack_tmp, -44)
33961  idata = idata + 1
33962  data_tmp = full_data(idata)
33963  data_tmp = ishft(data_tmp, 20)
33964  pack_tmp = ior(pack_tmp, data_tmp)
33965  pack_tmp = ishft(pack_tmp, 0)
33966  idata = idata + 1
33967  data_tmp = full_data(idata)
33968  data_tmp = ishft(data_tmp, 20)
33969  data_tmp = iand(data_tmp, mask_left(0))
33970  pack_tmp = ior(pack_tmp, data_tmp)
33971  ipack = ipack + 1
33972  packed_data(ipack) = pack_tmp
33973  data_tmp = full_data(idata)
33974  pack_tmp = ishft(data_tmp, 20)
33975  pack_tmp = ishft(pack_tmp, -20)
33976  idata = idata + 1
33977  data_tmp = full_data(idata)
33978  data_tmp = ishft(data_tmp, 20)
33979  data_tmp = iand(data_tmp, mask_left(20))
33980  pack_tmp = ior(pack_tmp, data_tmp)
33981  ipack = ipack + 1
33982  packed_data(ipack) = pack_tmp
33983  data_tmp = full_data(idata)
33984  pack_tmp = ishft(data_tmp, 40)
33985  pack_tmp = ishft(pack_tmp, -40)
33986  idata = idata + 1
33987  data_tmp = full_data(idata)
33988  data_tmp = ishft(data_tmp, 20)
33989  data_tmp = iand(data_tmp, mask_left(40))
33990  pack_tmp = ior(pack_tmp, data_tmp)
33991  ipack = ipack + 1
33992  packed_data(ipack) = pack_tmp
33993  data_tmp = full_data(idata)
33994  pack_tmp = ishft(data_tmp, 60)
33995  pack_tmp = ishft(pack_tmp, -44)
33996  idata = idata + 1
33997  data_tmp = full_data(idata)
33998  data_tmp = ishft(data_tmp, 20)
33999  pack_tmp = ior(pack_tmp, data_tmp)
34000  pack_tmp = ishft(pack_tmp, -16)
34001  idata = idata + 1
34002  data_tmp = full_data(idata)
34003  data_tmp = ishft(data_tmp, 20)
34004  data_tmp = iand(data_tmp, mask_left(16))
34005  pack_tmp = ior(pack_tmp, data_tmp)
34006  ipack = ipack + 1
34007  packed_data(ipack) = pack_tmp
34008  data_tmp = full_data(idata)
34009  pack_tmp = ishft(data_tmp, 36)
34010  pack_tmp = ishft(pack_tmp, -36)
34011  idata = idata + 1
34012  data_tmp = full_data(idata)
34013  data_tmp = ishft(data_tmp, 20)
34014  data_tmp = iand(data_tmp, mask_left(36))
34015  pack_tmp = ior(pack_tmp, data_tmp)
34016  ipack = ipack + 1
34017  packed_data(ipack) = pack_tmp
34018  data_tmp = full_data(idata)
34019  pack_tmp = ishft(data_tmp, 56)
34020  pack_tmp = ishft(pack_tmp, -44)
34021  idata = idata + 1
34022  data_tmp = full_data(idata)
34023  data_tmp = ishft(data_tmp, 20)
34024  pack_tmp = ior(pack_tmp, data_tmp)
34025  pack_tmp = ishft(pack_tmp, -12)
34026  idata = idata + 1
34027  data_tmp = full_data(idata)
34028  data_tmp = ishft(data_tmp, 20)
34029  data_tmp = iand(data_tmp, mask_left(12))
34030  pack_tmp = ior(pack_tmp, data_tmp)
34031  ipack = ipack + 1
34032  packed_data(ipack) = pack_tmp
34033  data_tmp = full_data(idata)
34034  pack_tmp = ishft(data_tmp, 32)
34035  pack_tmp = ishft(pack_tmp, -32)
34036  idata = idata + 1
34037  data_tmp = full_data(idata)
34038  data_tmp = ishft(data_tmp, 20)
34039  data_tmp = iand(data_tmp, mask_left(32))
34040  pack_tmp = ior(pack_tmp, data_tmp)
34041  ipack = ipack + 1
34042  packed_data(ipack) = pack_tmp
34043  data_tmp = full_data(idata)
34044  pack_tmp = ishft(data_tmp, 52)
34045  pack_tmp = ishft(pack_tmp, -44)
34046  idata = idata + 1
34047  data_tmp = full_data(idata)
34048  data_tmp = ishft(data_tmp, 20)
34049  pack_tmp = ior(pack_tmp, data_tmp)
34050  pack_tmp = ishft(pack_tmp, -8)
34051  idata = idata + 1
34052  data_tmp = full_data(idata)
34053  data_tmp = ishft(data_tmp, 20)
34054  data_tmp = iand(data_tmp, mask_left(8))
34055  pack_tmp = ior(pack_tmp, data_tmp)
34056  ipack = ipack + 1
34057  packed_data(ipack) = pack_tmp
34058  data_tmp = full_data(idata)
34059  pack_tmp = ishft(data_tmp, 28)
34060  pack_tmp = ishft(pack_tmp, -28)
34061  idata = idata + 1
34062  data_tmp = full_data(idata)
34063  data_tmp = ishft(data_tmp, 20)
34064  data_tmp = iand(data_tmp, mask_left(28))
34065  pack_tmp = ior(pack_tmp, data_tmp)
34066  ipack = ipack + 1
34067  packed_data(ipack) = pack_tmp
34068  data_tmp = full_data(idata)
34069  pack_tmp = ishft(data_tmp, 48)
34070  pack_tmp = ishft(pack_tmp, -44)
34071  idata = idata + 1
34072  data_tmp = full_data(idata)
34073  data_tmp = ishft(data_tmp, 20)
34074  pack_tmp = ior(pack_tmp, data_tmp)
34075  pack_tmp = ishft(pack_tmp, -4)
34076  idata = idata + 1
34077  data_tmp = full_data(idata)
34078  data_tmp = ishft(data_tmp, 20)
34079  data_tmp = iand(data_tmp, mask_left(4))
34080  pack_tmp = ior(pack_tmp, data_tmp)
34081  ipack = ipack + 1
34082  packed_data(ipack) = pack_tmp
34083  data_tmp = full_data(idata)
34084  pack_tmp = ishft(data_tmp, 24)
34085  pack_tmp = ishft(pack_tmp, -24)
34086  idata = idata + 1
34087  data_tmp = full_data(idata)
34088  data_tmp = ishft(data_tmp, 20)
34089  data_tmp = iand(data_tmp, mask_left(24))
34090  pack_tmp = ior(pack_tmp, data_tmp)
34091  ipack = ipack + 1
34092  packed_data(ipack) = pack_tmp
34093  data_tmp = full_data(idata)
34094  pack_tmp = ishft(data_tmp, 44)
34095  pack_tmp = ishft(pack_tmp, -44)
34096  idata = idata + 1
34097  data_tmp = full_data(idata)
34098  data_tmp = ishft(data_tmp, 20)
34099  pack_tmp = ior(pack_tmp, data_tmp)
34100  pack_tmp = ishft(pack_tmp, 0)
34101  idata = idata + 1
34102  data_tmp = full_data(idata)
34103  data_tmp = ishft(data_tmp, 20)
34104  data_tmp = iand(data_tmp, mask_left(0))
34105  pack_tmp = ior(pack_tmp, data_tmp)
34106  ipack = ipack + 1
34107  packed_data(ipack) = pack_tmp
34108  data_tmp = full_data(idata)
34109  pack_tmp = ishft(data_tmp, 20)
34110  pack_tmp = ishft(pack_tmp, -20)
34111  idata = idata + 1
34112  data_tmp = full_data(idata)
34113  data_tmp = ishft(data_tmp, 20)
34114  data_tmp = iand(data_tmp, mask_left(20))
34115  pack_tmp = ior(pack_tmp, data_tmp)
34116  ipack = ipack + 1
34117  packed_data(ipack) = pack_tmp
34118  data_tmp = full_data(idata)
34119  pack_tmp = ishft(data_tmp, 40)
34120  pack_tmp = ishft(pack_tmp, -40)
34121  idata = idata + 1
34122  data_tmp = full_data(idata)
34123  data_tmp = ishft(data_tmp, 20)
34124  data_tmp = iand(data_tmp, mask_left(40))
34125  pack_tmp = ior(pack_tmp, data_tmp)
34126  ipack = ipack + 1
34127  packed_data(ipack) = pack_tmp
34128  data_tmp = full_data(idata)
34129  pack_tmp = ishft(data_tmp, 60)
34130  pack_tmp = ishft(pack_tmp, -44)
34131  idata = idata + 1
34132  data_tmp = full_data(idata)
34133  data_tmp = ishft(data_tmp, 20)
34134  pack_tmp = ior(pack_tmp, data_tmp)
34135  pack_tmp = ishft(pack_tmp, -16)
34136  idata = idata + 1
34137  data_tmp = full_data(idata)
34138  data_tmp = ishft(data_tmp, 20)
34139  data_tmp = iand(data_tmp, mask_left(16))
34140  pack_tmp = ior(pack_tmp, data_tmp)
34141  ipack = ipack + 1
34142  packed_data(ipack) = pack_tmp
34143  data_tmp = full_data(idata)
34144  pack_tmp = ishft(data_tmp, 36)
34145  pack_tmp = ishft(pack_tmp, -36)
34146  idata = idata + 1
34147  data_tmp = full_data(idata)
34148  data_tmp = ishft(data_tmp, 20)
34149  data_tmp = iand(data_tmp, mask_left(36))
34150  pack_tmp = ior(pack_tmp, data_tmp)
34151  ipack = ipack + 1
34152  packed_data(ipack) = pack_tmp
34153  data_tmp = full_data(idata)
34154  pack_tmp = ishft(data_tmp, 56)
34155  pack_tmp = ishft(pack_tmp, -44)
34156  idata = idata + 1
34157  data_tmp = full_data(idata)
34158  data_tmp = ishft(data_tmp, 20)
34159  pack_tmp = ior(pack_tmp, data_tmp)
34160  pack_tmp = ishft(pack_tmp, -12)
34161  idata = idata + 1
34162  data_tmp = full_data(idata)
34163  data_tmp = ishft(data_tmp, 20)
34164  data_tmp = iand(data_tmp, mask_left(12))
34165  pack_tmp = ior(pack_tmp, data_tmp)
34166  ipack = ipack + 1
34167  packed_data(ipack) = pack_tmp
34168  data_tmp = full_data(idata)
34169  pack_tmp = ishft(data_tmp, 32)
34170  pack_tmp = ishft(pack_tmp, -32)
34171  idata = idata + 1
34172  data_tmp = full_data(idata)
34173  data_tmp = ishft(data_tmp, 20)
34174  data_tmp = iand(data_tmp, mask_left(32))
34175  pack_tmp = ior(pack_tmp, data_tmp)
34176  ipack = ipack + 1
34177  packed_data(ipack) = pack_tmp
34178  data_tmp = full_data(idata)
34179  pack_tmp = ishft(data_tmp, 52)
34180  pack_tmp = ishft(pack_tmp, -44)
34181  idata = idata + 1
34182  data_tmp = full_data(idata)
34183  data_tmp = ishft(data_tmp, 20)
34184  pack_tmp = ior(pack_tmp, data_tmp)
34185  pack_tmp = ishft(pack_tmp, -8)
34186  idata = idata + 1
34187  data_tmp = full_data(idata)
34188  data_tmp = ishft(data_tmp, 20)
34189  data_tmp = iand(data_tmp, mask_left(8))
34190  pack_tmp = ior(pack_tmp, data_tmp)
34191  ipack = ipack + 1
34192  packed_data(ipack) = pack_tmp
34193  data_tmp = full_data(idata)
34194  pack_tmp = ishft(data_tmp, 28)
34195  pack_tmp = ishft(pack_tmp, -28)
34196  idata = idata + 1
34197  data_tmp = full_data(idata)
34198  data_tmp = ishft(data_tmp, 20)
34199  data_tmp = iand(data_tmp, mask_left(28))
34200  pack_tmp = ior(pack_tmp, data_tmp)
34201  ipack = ipack + 1
34202  packed_data(ipack) = pack_tmp
34203  data_tmp = full_data(idata)
34204  pack_tmp = ishft(data_tmp, 48)
34205  pack_tmp = ishft(pack_tmp, -44)
34206  idata = idata + 1
34207  data_tmp = full_data(idata)
34208  data_tmp = ishft(data_tmp, 20)
34209  pack_tmp = ior(pack_tmp, data_tmp)
34210  pack_tmp = ishft(pack_tmp, -4)
34211  idata = idata + 1
34212  data_tmp = full_data(idata)
34213  data_tmp = ishft(data_tmp, 20)
34214  data_tmp = iand(data_tmp, mask_left(4))
34215  pack_tmp = ior(pack_tmp, data_tmp)
34216  ipack = ipack + 1
34217  packed_data(ipack) = pack_tmp
34218  data_tmp = full_data(idata)
34219  pack_tmp = ishft(data_tmp, 24)
34220  pack_tmp = ishft(pack_tmp, -24)
34221  idata = idata + 1
34222  data_tmp = full_data(idata)
34223  data_tmp = ishft(data_tmp, 20)
34224  data_tmp = iand(data_tmp, mask_left(24))
34225  pack_tmp = ior(pack_tmp, data_tmp)
34226  ipack = ipack + 1
34227  packed_data(ipack) = pack_tmp
34228  data_tmp = full_data(idata)
34229  pack_tmp = ishft(data_tmp, 44)
34230  pack_tmp = ishft(pack_tmp, -44)
34231  idata = idata + 1
34232  data_tmp = full_data(idata)
34233  data_tmp = ishft(data_tmp, 20)
34234  pack_tmp = ior(pack_tmp, data_tmp)
34235  pack_tmp = ishft(pack_tmp, 0)
34236  idata = idata + 1
34237  data_tmp = full_data(idata)
34238  data_tmp = ishft(data_tmp, 20)
34239  data_tmp = iand(data_tmp, mask_left(0))
34240  pack_tmp = ior(pack_tmp, data_tmp)
34241  ipack = ipack + 1
34242  packed_data(ipack) = pack_tmp
34243  data_tmp = full_data(idata)
34244  pack_tmp = ishft(data_tmp, 20)
34245  pack_tmp = ishft(pack_tmp, -20)
34246  idata = idata + 1
34247  data_tmp = full_data(idata)
34248  data_tmp = ishft(data_tmp, 20)
34249  data_tmp = iand(data_tmp, mask_left(20))
34250  pack_tmp = ior(pack_tmp, data_tmp)
34251  ipack = ipack + 1
34252  packed_data(ipack) = pack_tmp
34253  data_tmp = full_data(idata)
34254  pack_tmp = ishft(data_tmp, 40)
34255  pack_tmp = ishft(pack_tmp, -40)
34256  idata = idata + 1
34257  data_tmp = full_data(idata)
34258  data_tmp = ishft(data_tmp, 20)
34259  data_tmp = iand(data_tmp, mask_left(40))
34260  pack_tmp = ior(pack_tmp, data_tmp)
34261  ipack = ipack + 1
34262  packed_data(ipack) = pack_tmp
34263  data_tmp = full_data(idata)
34264  pack_tmp = ishft(data_tmp, 60)
34265  pack_tmp = ishft(pack_tmp, -44)
34266  idata = idata + 1
34267  data_tmp = full_data(idata)
34268  data_tmp = ishft(data_tmp, 20)
34269  pack_tmp = ior(pack_tmp, data_tmp)
34270  pack_tmp = ishft(pack_tmp, -16)
34271  idata = idata + 1
34272  data_tmp = full_data(idata)
34273  data_tmp = ishft(data_tmp, 20)
34274  data_tmp = iand(data_tmp, mask_left(16))
34275  pack_tmp = ior(pack_tmp, data_tmp)
34276  ipack = ipack + 1
34277  packed_data(ipack) = pack_tmp
34278  data_tmp = full_data(idata)
34279  pack_tmp = ishft(data_tmp, 36)
34280  pack_tmp = ishft(pack_tmp, -36)
34281  idata = idata + 1
34282  data_tmp = full_data(idata)
34283  data_tmp = ishft(data_tmp, 20)
34284  data_tmp = iand(data_tmp, mask_left(36))
34285  pack_tmp = ior(pack_tmp, data_tmp)
34286  ipack = ipack + 1
34287  packed_data(ipack) = pack_tmp
34288  data_tmp = full_data(idata)
34289  pack_tmp = ishft(data_tmp, 56)
34290  pack_tmp = ishft(pack_tmp, -44)
34291  idata = idata + 1
34292  data_tmp = full_data(idata)
34293  data_tmp = ishft(data_tmp, 20)
34294  pack_tmp = ior(pack_tmp, data_tmp)
34295  pack_tmp = ishft(pack_tmp, -12)
34296  idata = idata + 1
34297  data_tmp = full_data(idata)
34298  data_tmp = ishft(data_tmp, 20)
34299  data_tmp = iand(data_tmp, mask_left(12))
34300  pack_tmp = ior(pack_tmp, data_tmp)
34301  ipack = ipack + 1
34302  packed_data(ipack) = pack_tmp
34303  data_tmp = full_data(idata)
34304  pack_tmp = ishft(data_tmp, 32)
34305  pack_tmp = ishft(pack_tmp, -32)
34306  idata = idata + 1
34307  data_tmp = full_data(idata)
34308  data_tmp = ishft(data_tmp, 20)
34309  data_tmp = iand(data_tmp, mask_left(32))
34310  pack_tmp = ior(pack_tmp, data_tmp)
34311  ipack = ipack + 1
34312  packed_data(ipack) = pack_tmp
34313  data_tmp = full_data(idata)
34314  pack_tmp = ishft(data_tmp, 52)
34315  pack_tmp = ishft(pack_tmp, -44)
34316  idata = idata + 1
34317  data_tmp = full_data(idata)
34318  data_tmp = ishft(data_tmp, 20)
34319  pack_tmp = ior(pack_tmp, data_tmp)
34320  pack_tmp = ishft(pack_tmp, -8)
34321  idata = idata + 1
34322  data_tmp = full_data(idata)
34323  data_tmp = ishft(data_tmp, 20)
34324  data_tmp = iand(data_tmp, mask_left(8))
34325  pack_tmp = ior(pack_tmp, data_tmp)
34326  ipack = ipack + 1
34327  packed_data(ipack) = pack_tmp
34328  data_tmp = full_data(idata)
34329  pack_tmp = ishft(data_tmp, 28)
34330  pack_tmp = ishft(pack_tmp, -28)
34331  idata = idata + 1
34332  data_tmp = full_data(idata)
34333  data_tmp = ishft(data_tmp, 20)
34334  data_tmp = iand(data_tmp, mask_left(28))
34335  pack_tmp = ior(pack_tmp, data_tmp)
34336  ipack = ipack + 1
34337  packed_data(ipack) = pack_tmp
34338  data_tmp = full_data(idata)
34339  pack_tmp = ishft(data_tmp, 48)
34340  pack_tmp = ishft(pack_tmp, -44)
34341  idata = idata + 1
34342  data_tmp = full_data(idata)
34343  data_tmp = ishft(data_tmp, 20)
34344  pack_tmp = ior(pack_tmp, data_tmp)
34345  pack_tmp = ishft(pack_tmp, -4)
34346  idata = idata + 1
34347  data_tmp = full_data(idata)
34348  data_tmp = ishft(data_tmp, 20)
34349  data_tmp = iand(data_tmp, mask_left(4))
34350  pack_tmp = ior(pack_tmp, data_tmp)
34351  ipack = ipack + 1
34352  packed_data(ipack) = pack_tmp
34353  data_tmp = full_data(idata)
34354  pack_tmp = ishft(data_tmp, 24)
34355  pack_tmp = ishft(pack_tmp, -24)
34356  idata = idata + 1
34357  data_tmp = full_data(idata)
34358  data_tmp = ishft(data_tmp, 20)
34359  data_tmp = iand(data_tmp, mask_left(24))
34360  pack_tmp = ior(pack_tmp, data_tmp)
34361  ipack = ipack + 1
34362  packed_data(ipack) = pack_tmp
34363  data_tmp = full_data(idata)
34364  pack_tmp = ishft(data_tmp, 44)
34365  pack_tmp = ishft(pack_tmp, -44)
34366  idata = idata + 1
34367  data_tmp = full_data(idata)
34368  data_tmp = ishft(data_tmp, 20)
34369  pack_tmp = ior(pack_tmp, data_tmp)
34370  pack_tmp = ishft(pack_tmp, 0)
34371  pack_tmp = ishft(pack_tmp, 0)
34372  ipack = ipack + 1
34373  packed_data(ipack) = pack_tmp
34374  END DO
34375  IF (ndata_rep < ndata) THEN
34376  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
34377  END IF
34378  END SUBROUTINE ints2bits_44
34379 
34380 ! **************************************************************************************************
34381 !> \brief ...
34382 !> \param Ndata ...
34383 !> \param packed_data ...
34384 !> \param full_data ...
34385 ! **************************************************************************************************
34386  SUBROUTINE bits2ints_44(Ndata, packed_data, full_data)
34387  INTEGER, INTENT(IN) :: Ndata
34388  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
34389  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
34390 
34391  INTEGER, PARAMETER :: Nbits = 44
34392 
34393  INTEGER :: idata, ipack, kdata, Ndata_rep
34394  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
34395 
34396  ipack = 0
34397  idata = 0
34398  pack_tmp = 0
34399  ndata_rep = (ndata/64)*64
34400  DO kdata = 1, ndata_rep, 64
34401  idata = idata + 1
34402  data_tmp = ishft(pack_tmp, 44)
34403  ipack = ipack + 1
34404  pack_tmp = packed_data(ipack)
34405  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
34406  pack_tmp = ishft(pack_tmp, -44)
34407  idata = idata + 1
34408  data_tmp = ishft(pack_tmp, 24)
34409  ipack = ipack + 1
34410  pack_tmp = packed_data(ipack)
34411  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
34412  pack_tmp = ishft(pack_tmp, -24)
34413  idata = idata + 1
34414  data_tmp = ishft(pack_tmp, 4)
34415  ipack = ipack + 1
34416  pack_tmp = packed_data(ipack)
34417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
34418  pack_tmp = ishft(pack_tmp, -4)
34419  idata = idata + 1
34420  data_tmp = iand(pack_tmp, mask_right(nbits))
34421  full_data(idata) = data_tmp
34422  pack_tmp = ishft(pack_tmp, -nbits)
34423  idata = idata + 1
34424  data_tmp = ishft(pack_tmp, 28)
34425  ipack = ipack + 1
34426  pack_tmp = packed_data(ipack)
34427  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
34428  pack_tmp = ishft(pack_tmp, -28)
34429  idata = idata + 1
34430  data_tmp = ishft(pack_tmp, 8)
34431  ipack = ipack + 1
34432  pack_tmp = packed_data(ipack)
34433  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
34434  pack_tmp = ishft(pack_tmp, -8)
34435  idata = idata + 1
34436  data_tmp = iand(pack_tmp, mask_right(nbits))
34437  full_data(idata) = data_tmp
34438  pack_tmp = ishft(pack_tmp, -nbits)
34439  idata = idata + 1
34440  data_tmp = ishft(pack_tmp, 32)
34441  ipack = ipack + 1
34442  pack_tmp = packed_data(ipack)
34443  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
34444  pack_tmp = ishft(pack_tmp, -32)
34445  idata = idata + 1
34446  data_tmp = ishft(pack_tmp, 12)
34447  ipack = ipack + 1
34448  pack_tmp = packed_data(ipack)
34449  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
34450  pack_tmp = ishft(pack_tmp, -12)
34451  idata = idata + 1
34452  data_tmp = iand(pack_tmp, mask_right(nbits))
34453  full_data(idata) = data_tmp
34454  pack_tmp = ishft(pack_tmp, -nbits)
34455  idata = idata + 1
34456  data_tmp = ishft(pack_tmp, 36)
34457  ipack = ipack + 1
34458  pack_tmp = packed_data(ipack)
34459  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
34460  pack_tmp = ishft(pack_tmp, -36)
34461  idata = idata + 1
34462  data_tmp = ishft(pack_tmp, 16)
34463  ipack = ipack + 1
34464  pack_tmp = packed_data(ipack)
34465  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
34466  pack_tmp = ishft(pack_tmp, -16)
34467  idata = idata + 1
34468  data_tmp = iand(pack_tmp, mask_right(nbits))
34469  full_data(idata) = data_tmp
34470  pack_tmp = ishft(pack_tmp, -nbits)
34471  idata = idata + 1
34472  data_tmp = ishft(pack_tmp, 40)
34473  ipack = ipack + 1
34474  pack_tmp = packed_data(ipack)
34475  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
34476  pack_tmp = ishft(pack_tmp, -40)
34477  idata = idata + 1
34478  data_tmp = ishft(pack_tmp, 20)
34479  ipack = ipack + 1
34480  pack_tmp = packed_data(ipack)
34481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
34482  pack_tmp = ishft(pack_tmp, -20)
34483  idata = idata + 1
34484  data_tmp = iand(pack_tmp, mask_right(nbits))
34485  full_data(idata) = data_tmp
34486  pack_tmp = ishft(pack_tmp, -nbits)
34487  idata = idata + 1
34488  data_tmp = ishft(pack_tmp, 44)
34489  ipack = ipack + 1
34490  pack_tmp = packed_data(ipack)
34491  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
34492  pack_tmp = ishft(pack_tmp, -44)
34493  idata = idata + 1
34494  data_tmp = ishft(pack_tmp, 24)
34495  ipack = ipack + 1
34496  pack_tmp = packed_data(ipack)
34497  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
34498  pack_tmp = ishft(pack_tmp, -24)
34499  idata = idata + 1
34500  data_tmp = ishft(pack_tmp, 4)
34501  ipack = ipack + 1
34502  pack_tmp = packed_data(ipack)
34503  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
34504  pack_tmp = ishft(pack_tmp, -4)
34505  idata = idata + 1
34506  data_tmp = iand(pack_tmp, mask_right(nbits))
34507  full_data(idata) = data_tmp
34508  pack_tmp = ishft(pack_tmp, -nbits)
34509  idata = idata + 1
34510  data_tmp = ishft(pack_tmp, 28)
34511  ipack = ipack + 1
34512  pack_tmp = packed_data(ipack)
34513  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
34514  pack_tmp = ishft(pack_tmp, -28)
34515  idata = idata + 1
34516  data_tmp = ishft(pack_tmp, 8)
34517  ipack = ipack + 1
34518  pack_tmp = packed_data(ipack)
34519  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
34520  pack_tmp = ishft(pack_tmp, -8)
34521  idata = idata + 1
34522  data_tmp = iand(pack_tmp, mask_right(nbits))
34523  full_data(idata) = data_tmp
34524  pack_tmp = ishft(pack_tmp, -nbits)
34525  idata = idata + 1
34526  data_tmp = ishft(pack_tmp, 32)
34527  ipack = ipack + 1
34528  pack_tmp = packed_data(ipack)
34529  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
34530  pack_tmp = ishft(pack_tmp, -32)
34531  idata = idata + 1
34532  data_tmp = ishft(pack_tmp, 12)
34533  ipack = ipack + 1
34534  pack_tmp = packed_data(ipack)
34535  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
34536  pack_tmp = ishft(pack_tmp, -12)
34537  idata = idata + 1
34538  data_tmp = iand(pack_tmp, mask_right(nbits))
34539  full_data(idata) = data_tmp
34540  pack_tmp = ishft(pack_tmp, -nbits)
34541  idata = idata + 1
34542  data_tmp = ishft(pack_tmp, 36)
34543  ipack = ipack + 1
34544  pack_tmp = packed_data(ipack)
34545  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
34546  pack_tmp = ishft(pack_tmp, -36)
34547  idata = idata + 1
34548  data_tmp = ishft(pack_tmp, 16)
34549  ipack = ipack + 1
34550  pack_tmp = packed_data(ipack)
34551  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
34552  pack_tmp = ishft(pack_tmp, -16)
34553  idata = idata + 1
34554  data_tmp = iand(pack_tmp, mask_right(nbits))
34555  full_data(idata) = data_tmp
34556  pack_tmp = ishft(pack_tmp, -nbits)
34557  idata = idata + 1
34558  data_tmp = ishft(pack_tmp, 40)
34559  ipack = ipack + 1
34560  pack_tmp = packed_data(ipack)
34561  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
34562  pack_tmp = ishft(pack_tmp, -40)
34563  idata = idata + 1
34564  data_tmp = ishft(pack_tmp, 20)
34565  ipack = ipack + 1
34566  pack_tmp = packed_data(ipack)
34567  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
34568  pack_tmp = ishft(pack_tmp, -20)
34569  idata = idata + 1
34570  data_tmp = iand(pack_tmp, mask_right(nbits))
34571  full_data(idata) = data_tmp
34572  pack_tmp = ishft(pack_tmp, -nbits)
34573  idata = idata + 1
34574  data_tmp = ishft(pack_tmp, 44)
34575  ipack = ipack + 1
34576  pack_tmp = packed_data(ipack)
34577  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
34578  pack_tmp = ishft(pack_tmp, -44)
34579  idata = idata + 1
34580  data_tmp = ishft(pack_tmp, 24)
34581  ipack = ipack + 1
34582  pack_tmp = packed_data(ipack)
34583  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
34584  pack_tmp = ishft(pack_tmp, -24)
34585  idata = idata + 1
34586  data_tmp = ishft(pack_tmp, 4)
34587  ipack = ipack + 1
34588  pack_tmp = packed_data(ipack)
34589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
34590  pack_tmp = ishft(pack_tmp, -4)
34591  idata = idata + 1
34592  data_tmp = iand(pack_tmp, mask_right(nbits))
34593  full_data(idata) = data_tmp
34594  pack_tmp = ishft(pack_tmp, -nbits)
34595  idata = idata + 1
34596  data_tmp = ishft(pack_tmp, 28)
34597  ipack = ipack + 1
34598  pack_tmp = packed_data(ipack)
34599  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
34600  pack_tmp = ishft(pack_tmp, -28)
34601  idata = idata + 1
34602  data_tmp = ishft(pack_tmp, 8)
34603  ipack = ipack + 1
34604  pack_tmp = packed_data(ipack)
34605  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
34606  pack_tmp = ishft(pack_tmp, -8)
34607  idata = idata + 1
34608  data_tmp = iand(pack_tmp, mask_right(nbits))
34609  full_data(idata) = data_tmp
34610  pack_tmp = ishft(pack_tmp, -nbits)
34611  idata = idata + 1
34612  data_tmp = ishft(pack_tmp, 32)
34613  ipack = ipack + 1
34614  pack_tmp = packed_data(ipack)
34615  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
34616  pack_tmp = ishft(pack_tmp, -32)
34617  idata = idata + 1
34618  data_tmp = ishft(pack_tmp, 12)
34619  ipack = ipack + 1
34620  pack_tmp = packed_data(ipack)
34621  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
34622  pack_tmp = ishft(pack_tmp, -12)
34623  idata = idata + 1
34624  data_tmp = iand(pack_tmp, mask_right(nbits))
34625  full_data(idata) = data_tmp
34626  pack_tmp = ishft(pack_tmp, -nbits)
34627  idata = idata + 1
34628  data_tmp = ishft(pack_tmp, 36)
34629  ipack = ipack + 1
34630  pack_tmp = packed_data(ipack)
34631  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
34632  pack_tmp = ishft(pack_tmp, -36)
34633  idata = idata + 1
34634  data_tmp = ishft(pack_tmp, 16)
34635  ipack = ipack + 1
34636  pack_tmp = packed_data(ipack)
34637  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
34638  pack_tmp = ishft(pack_tmp, -16)
34639  idata = idata + 1
34640  data_tmp = iand(pack_tmp, mask_right(nbits))
34641  full_data(idata) = data_tmp
34642  pack_tmp = ishft(pack_tmp, -nbits)
34643  idata = idata + 1
34644  data_tmp = ishft(pack_tmp, 40)
34645  ipack = ipack + 1
34646  pack_tmp = packed_data(ipack)
34647  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
34648  pack_tmp = ishft(pack_tmp, -40)
34649  idata = idata + 1
34650  data_tmp = ishft(pack_tmp, 20)
34651  ipack = ipack + 1
34652  pack_tmp = packed_data(ipack)
34653  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
34654  pack_tmp = ishft(pack_tmp, -20)
34655  idata = idata + 1
34656  data_tmp = iand(pack_tmp, mask_right(nbits))
34657  full_data(idata) = data_tmp
34658  pack_tmp = ishft(pack_tmp, -nbits)
34659  idata = idata + 1
34660  data_tmp = ishft(pack_tmp, 44)
34661  ipack = ipack + 1
34662  pack_tmp = packed_data(ipack)
34663  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
34664  pack_tmp = ishft(pack_tmp, -44)
34665  idata = idata + 1
34666  data_tmp = ishft(pack_tmp, 24)
34667  ipack = ipack + 1
34668  pack_tmp = packed_data(ipack)
34669  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
34670  pack_tmp = ishft(pack_tmp, -24)
34671  idata = idata + 1
34672  data_tmp = ishft(pack_tmp, 4)
34673  ipack = ipack + 1
34674  pack_tmp = packed_data(ipack)
34675  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
34676  pack_tmp = ishft(pack_tmp, -4)
34677  idata = idata + 1
34678  data_tmp = iand(pack_tmp, mask_right(nbits))
34679  full_data(idata) = data_tmp
34680  pack_tmp = ishft(pack_tmp, -nbits)
34681  idata = idata + 1
34682  data_tmp = ishft(pack_tmp, 28)
34683  ipack = ipack + 1
34684  pack_tmp = packed_data(ipack)
34685  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
34686  pack_tmp = ishft(pack_tmp, -28)
34687  idata = idata + 1
34688  data_tmp = ishft(pack_tmp, 8)
34689  ipack = ipack + 1
34690  pack_tmp = packed_data(ipack)
34691  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
34692  pack_tmp = ishft(pack_tmp, -8)
34693  idata = idata + 1
34694  data_tmp = iand(pack_tmp, mask_right(nbits))
34695  full_data(idata) = data_tmp
34696  pack_tmp = ishft(pack_tmp, -nbits)
34697  idata = idata + 1
34698  data_tmp = ishft(pack_tmp, 32)
34699  ipack = ipack + 1
34700  pack_tmp = packed_data(ipack)
34701  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
34702  pack_tmp = ishft(pack_tmp, -32)
34703  idata = idata + 1
34704  data_tmp = ishft(pack_tmp, 12)
34705  ipack = ipack + 1
34706  pack_tmp = packed_data(ipack)
34707  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
34708  pack_tmp = ishft(pack_tmp, -12)
34709  idata = idata + 1
34710  data_tmp = iand(pack_tmp, mask_right(nbits))
34711  full_data(idata) = data_tmp
34712  pack_tmp = ishft(pack_tmp, -nbits)
34713  idata = idata + 1
34714  data_tmp = ishft(pack_tmp, 36)
34715  ipack = ipack + 1
34716  pack_tmp = packed_data(ipack)
34717  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
34718  pack_tmp = ishft(pack_tmp, -36)
34719  idata = idata + 1
34720  data_tmp = ishft(pack_tmp, 16)
34721  ipack = ipack + 1
34722  pack_tmp = packed_data(ipack)
34723  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
34724  pack_tmp = ishft(pack_tmp, -16)
34725  idata = idata + 1
34726  data_tmp = iand(pack_tmp, mask_right(nbits))
34727  full_data(idata) = data_tmp
34728  pack_tmp = ishft(pack_tmp, -nbits)
34729  idata = idata + 1
34730  data_tmp = ishft(pack_tmp, 40)
34731  ipack = ipack + 1
34732  pack_tmp = packed_data(ipack)
34733  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
34734  pack_tmp = ishft(pack_tmp, -40)
34735  idata = idata + 1
34736  data_tmp = ishft(pack_tmp, 20)
34737  ipack = ipack + 1
34738  pack_tmp = packed_data(ipack)
34739  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
34740  pack_tmp = ishft(pack_tmp, -20)
34741  idata = idata + 1
34742  data_tmp = iand(pack_tmp, mask_right(nbits))
34743  full_data(idata) = data_tmp
34744  pack_tmp = ishft(pack_tmp, -nbits)
34745  END DO
34746  IF (ndata_rep < ndata) THEN
34747  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
34748  END IF
34749  END SUBROUTINE bits2ints_44
34750 
34751 ! **************************************************************************************************
34752 !> \brief ...
34753 !> \param Ndata ...
34754 !> \param packed_data ...
34755 !> \param full_data ...
34756 ! **************************************************************************************************
34757  SUBROUTINE ints2bits_45(Ndata, packed_data, full_data)
34758  INTEGER, INTENT(IN) :: Ndata
34759  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
34760  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
34761 
34762  INTEGER, PARAMETER :: Nbits = 45
34763 
34764  INTEGER :: idata, ipack, kdata, Ndata_rep
34765  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
34766 
34767  idata = 0
34768  ipack = 0
34769  ndata_rep = (ndata/64)*64
34770  DO kdata = 1, ndata_rep, 64
34771  pack_tmp = 0
34772  idata = idata + 1
34773  data_tmp = full_data(idata)
34774  data_tmp = ishft(data_tmp, 19)
34775  pack_tmp = ior(pack_tmp, data_tmp)
34776  pack_tmp = ishft(pack_tmp, -19)
34777  idata = idata + 1
34778  data_tmp = full_data(idata)
34779  data_tmp = ishft(data_tmp, 19)
34780  data_tmp = iand(data_tmp, mask_left(19))
34781  pack_tmp = ior(pack_tmp, data_tmp)
34782  ipack = ipack + 1
34783  packed_data(ipack) = pack_tmp
34784  data_tmp = full_data(idata)
34785  pack_tmp = ishft(data_tmp, 38)
34786  pack_tmp = ishft(pack_tmp, -38)
34787  idata = idata + 1
34788  data_tmp = full_data(idata)
34789  data_tmp = ishft(data_tmp, 19)
34790  data_tmp = iand(data_tmp, mask_left(38))
34791  pack_tmp = ior(pack_tmp, data_tmp)
34792  ipack = ipack + 1
34793  packed_data(ipack) = pack_tmp
34794  data_tmp = full_data(idata)
34795  pack_tmp = ishft(data_tmp, 57)
34796  pack_tmp = ishft(pack_tmp, -45)
34797  idata = idata + 1
34798  data_tmp = full_data(idata)
34799  data_tmp = ishft(data_tmp, 19)
34800  pack_tmp = ior(pack_tmp, data_tmp)
34801  pack_tmp = ishft(pack_tmp, -12)
34802  idata = idata + 1
34803  data_tmp = full_data(idata)
34804  data_tmp = ishft(data_tmp, 19)
34805  data_tmp = iand(data_tmp, mask_left(12))
34806  pack_tmp = ior(pack_tmp, data_tmp)
34807  ipack = ipack + 1
34808  packed_data(ipack) = pack_tmp
34809  data_tmp = full_data(idata)
34810  pack_tmp = ishft(data_tmp, 31)
34811  pack_tmp = ishft(pack_tmp, -31)
34812  idata = idata + 1
34813  data_tmp = full_data(idata)
34814  data_tmp = ishft(data_tmp, 19)
34815  data_tmp = iand(data_tmp, mask_left(31))
34816  pack_tmp = ior(pack_tmp, data_tmp)
34817  ipack = ipack + 1
34818  packed_data(ipack) = pack_tmp
34819  data_tmp = full_data(idata)
34820  pack_tmp = ishft(data_tmp, 50)
34821  pack_tmp = ishft(pack_tmp, -45)
34822  idata = idata + 1
34823  data_tmp = full_data(idata)
34824  data_tmp = ishft(data_tmp, 19)
34825  pack_tmp = ior(pack_tmp, data_tmp)
34826  pack_tmp = ishft(pack_tmp, -5)
34827  idata = idata + 1
34828  data_tmp = full_data(idata)
34829  data_tmp = ishft(data_tmp, 19)
34830  data_tmp = iand(data_tmp, mask_left(5))
34831  pack_tmp = ior(pack_tmp, data_tmp)
34832  ipack = ipack + 1
34833  packed_data(ipack) = pack_tmp
34834  data_tmp = full_data(idata)
34835  pack_tmp = ishft(data_tmp, 24)
34836  pack_tmp = ishft(pack_tmp, -24)
34837  idata = idata + 1
34838  data_tmp = full_data(idata)
34839  data_tmp = ishft(data_tmp, 19)
34840  data_tmp = iand(data_tmp, mask_left(24))
34841  pack_tmp = ior(pack_tmp, data_tmp)
34842  ipack = ipack + 1
34843  packed_data(ipack) = pack_tmp
34844  data_tmp = full_data(idata)
34845  pack_tmp = ishft(data_tmp, 43)
34846  pack_tmp = ishft(pack_tmp, -43)
34847  idata = idata + 1
34848  data_tmp = full_data(idata)
34849  data_tmp = ishft(data_tmp, 19)
34850  data_tmp = iand(data_tmp, mask_left(43))
34851  pack_tmp = ior(pack_tmp, data_tmp)
34852  ipack = ipack + 1
34853  packed_data(ipack) = pack_tmp
34854  data_tmp = full_data(idata)
34855  pack_tmp = ishft(data_tmp, 62)
34856  pack_tmp = ishft(pack_tmp, -45)
34857  idata = idata + 1
34858  data_tmp = full_data(idata)
34859  data_tmp = ishft(data_tmp, 19)
34860  pack_tmp = ior(pack_tmp, data_tmp)
34861  pack_tmp = ishft(pack_tmp, -17)
34862  idata = idata + 1
34863  data_tmp = full_data(idata)
34864  data_tmp = ishft(data_tmp, 19)
34865  data_tmp = iand(data_tmp, mask_left(17))
34866  pack_tmp = ior(pack_tmp, data_tmp)
34867  ipack = ipack + 1
34868  packed_data(ipack) = pack_tmp
34869  data_tmp = full_data(idata)
34870  pack_tmp = ishft(data_tmp, 36)
34871  pack_tmp = ishft(pack_tmp, -36)
34872  idata = idata + 1
34873  data_tmp = full_data(idata)
34874  data_tmp = ishft(data_tmp, 19)
34875  data_tmp = iand(data_tmp, mask_left(36))
34876  pack_tmp = ior(pack_tmp, data_tmp)
34877  ipack = ipack + 1
34878  packed_data(ipack) = pack_tmp
34879  data_tmp = full_data(idata)
34880  pack_tmp = ishft(data_tmp, 55)
34881  pack_tmp = ishft(pack_tmp, -45)
34882  idata = idata + 1
34883  data_tmp = full_data(idata)
34884  data_tmp = ishft(data_tmp, 19)
34885  pack_tmp = ior(pack_tmp, data_tmp)
34886  pack_tmp = ishft(pack_tmp, -10)
34887  idata = idata + 1
34888  data_tmp = full_data(idata)
34889  data_tmp = ishft(data_tmp, 19)
34890  data_tmp = iand(data_tmp, mask_left(10))
34891  pack_tmp = ior(pack_tmp, data_tmp)
34892  ipack = ipack + 1
34893  packed_data(ipack) = pack_tmp
34894  data_tmp = full_data(idata)
34895  pack_tmp = ishft(data_tmp, 29)
34896  pack_tmp = ishft(pack_tmp, -29)
34897  idata = idata + 1
34898  data_tmp = full_data(idata)
34899  data_tmp = ishft(data_tmp, 19)
34900  data_tmp = iand(data_tmp, mask_left(29))
34901  pack_tmp = ior(pack_tmp, data_tmp)
34902  ipack = ipack + 1
34903  packed_data(ipack) = pack_tmp
34904  data_tmp = full_data(idata)
34905  pack_tmp = ishft(data_tmp, 48)
34906  pack_tmp = ishft(pack_tmp, -45)
34907  idata = idata + 1
34908  data_tmp = full_data(idata)
34909  data_tmp = ishft(data_tmp, 19)
34910  pack_tmp = ior(pack_tmp, data_tmp)
34911  pack_tmp = ishft(pack_tmp, -3)
34912  idata = idata + 1
34913  data_tmp = full_data(idata)
34914  data_tmp = ishft(data_tmp, 19)
34915  data_tmp = iand(data_tmp, mask_left(3))
34916  pack_tmp = ior(pack_tmp, data_tmp)
34917  ipack = ipack + 1
34918  packed_data(ipack) = pack_tmp
34919  data_tmp = full_data(idata)
34920  pack_tmp = ishft(data_tmp, 22)
34921  pack_tmp = ishft(pack_tmp, -22)
34922  idata = idata + 1
34923  data_tmp = full_data(idata)
34924  data_tmp = ishft(data_tmp, 19)
34925  data_tmp = iand(data_tmp, mask_left(22))
34926  pack_tmp = ior(pack_tmp, data_tmp)
34927  ipack = ipack + 1
34928  packed_data(ipack) = pack_tmp
34929  data_tmp = full_data(idata)
34930  pack_tmp = ishft(data_tmp, 41)
34931  pack_tmp = ishft(pack_tmp, -41)
34932  idata = idata + 1
34933  data_tmp = full_data(idata)
34934  data_tmp = ishft(data_tmp, 19)
34935  data_tmp = iand(data_tmp, mask_left(41))
34936  pack_tmp = ior(pack_tmp, data_tmp)
34937  ipack = ipack + 1
34938  packed_data(ipack) = pack_tmp
34939  data_tmp = full_data(idata)
34940  pack_tmp = ishft(data_tmp, 60)
34941  pack_tmp = ishft(pack_tmp, -45)
34942  idata = idata + 1
34943  data_tmp = full_data(idata)
34944  data_tmp = ishft(data_tmp, 19)
34945  pack_tmp = ior(pack_tmp, data_tmp)
34946  pack_tmp = ishft(pack_tmp, -15)
34947  idata = idata + 1
34948  data_tmp = full_data(idata)
34949  data_tmp = ishft(data_tmp, 19)
34950  data_tmp = iand(data_tmp, mask_left(15))
34951  pack_tmp = ior(pack_tmp, data_tmp)
34952  ipack = ipack + 1
34953  packed_data(ipack) = pack_tmp
34954  data_tmp = full_data(idata)
34955  pack_tmp = ishft(data_tmp, 34)
34956  pack_tmp = ishft(pack_tmp, -34)
34957  idata = idata + 1
34958  data_tmp = full_data(idata)
34959  data_tmp = ishft(data_tmp, 19)
34960  data_tmp = iand(data_tmp, mask_left(34))
34961  pack_tmp = ior(pack_tmp, data_tmp)
34962  ipack = ipack + 1
34963  packed_data(ipack) = pack_tmp
34964  data_tmp = full_data(idata)
34965  pack_tmp = ishft(data_tmp, 53)
34966  pack_tmp = ishft(pack_tmp, -45)
34967  idata = idata + 1
34968  data_tmp = full_data(idata)
34969  data_tmp = ishft(data_tmp, 19)
34970  pack_tmp = ior(pack_tmp, data_tmp)
34971  pack_tmp = ishft(pack_tmp, -8)
34972  idata = idata + 1
34973  data_tmp = full_data(idata)
34974  data_tmp = ishft(data_tmp, 19)
34975  data_tmp = iand(data_tmp, mask_left(8))
34976  pack_tmp = ior(pack_tmp, data_tmp)
34977  ipack = ipack + 1
34978  packed_data(ipack) = pack_tmp
34979  data_tmp = full_data(idata)
34980  pack_tmp = ishft(data_tmp, 27)
34981  pack_tmp = ishft(pack_tmp, -27)
34982  idata = idata + 1
34983  data_tmp = full_data(idata)
34984  data_tmp = ishft(data_tmp, 19)
34985  data_tmp = iand(data_tmp, mask_left(27))
34986  pack_tmp = ior(pack_tmp, data_tmp)
34987  ipack = ipack + 1
34988  packed_data(ipack) = pack_tmp
34989  data_tmp = full_data(idata)
34990  pack_tmp = ishft(data_tmp, 46)
34991  pack_tmp = ishft(pack_tmp, -45)
34992  idata = idata + 1
34993  data_tmp = full_data(idata)
34994  data_tmp = ishft(data_tmp, 19)
34995  pack_tmp = ior(pack_tmp, data_tmp)
34996  pack_tmp = ishft(pack_tmp, -1)
34997  idata = idata + 1
34998  data_tmp = full_data(idata)
34999  data_tmp = ishft(data_tmp, 19)
35000  data_tmp = iand(data_tmp, mask_left(1))
35001  pack_tmp = ior(pack_tmp, data_tmp)
35002  ipack = ipack + 1
35003  packed_data(ipack) = pack_tmp
35004  data_tmp = full_data(idata)
35005  pack_tmp = ishft(data_tmp, 20)
35006  pack_tmp = ishft(pack_tmp, -20)
35007  idata = idata + 1
35008  data_tmp = full_data(idata)
35009  data_tmp = ishft(data_tmp, 19)
35010  data_tmp = iand(data_tmp, mask_left(20))
35011  pack_tmp = ior(pack_tmp, data_tmp)
35012  ipack = ipack + 1
35013  packed_data(ipack) = pack_tmp
35014  data_tmp = full_data(idata)
35015  pack_tmp = ishft(data_tmp, 39)
35016  pack_tmp = ishft(pack_tmp, -39)
35017  idata = idata + 1
35018  data_tmp = full_data(idata)
35019  data_tmp = ishft(data_tmp, 19)
35020  data_tmp = iand(data_tmp, mask_left(39))
35021  pack_tmp = ior(pack_tmp, data_tmp)
35022  ipack = ipack + 1
35023  packed_data(ipack) = pack_tmp
35024  data_tmp = full_data(idata)
35025  pack_tmp = ishft(data_tmp, 58)
35026  pack_tmp = ishft(pack_tmp, -45)
35027  idata = idata + 1
35028  data_tmp = full_data(idata)
35029  data_tmp = ishft(data_tmp, 19)
35030  pack_tmp = ior(pack_tmp, data_tmp)
35031  pack_tmp = ishft(pack_tmp, -13)
35032  idata = idata + 1
35033  data_tmp = full_data(idata)
35034  data_tmp = ishft(data_tmp, 19)
35035  data_tmp = iand(data_tmp, mask_left(13))
35036  pack_tmp = ior(pack_tmp, data_tmp)
35037  ipack = ipack + 1
35038  packed_data(ipack) = pack_tmp
35039  data_tmp = full_data(idata)
35040  pack_tmp = ishft(data_tmp, 32)
35041  pack_tmp = ishft(pack_tmp, -32)
35042  idata = idata + 1
35043  data_tmp = full_data(idata)
35044  data_tmp = ishft(data_tmp, 19)
35045  data_tmp = iand(data_tmp, mask_left(32))
35046  pack_tmp = ior(pack_tmp, data_tmp)
35047  ipack = ipack + 1
35048  packed_data(ipack) = pack_tmp
35049  data_tmp = full_data(idata)
35050  pack_tmp = ishft(data_tmp, 51)
35051  pack_tmp = ishft(pack_tmp, -45)
35052  idata = idata + 1
35053  data_tmp = full_data(idata)
35054  data_tmp = ishft(data_tmp, 19)
35055  pack_tmp = ior(pack_tmp, data_tmp)
35056  pack_tmp = ishft(pack_tmp, -6)
35057  idata = idata + 1
35058  data_tmp = full_data(idata)
35059  data_tmp = ishft(data_tmp, 19)
35060  data_tmp = iand(data_tmp, mask_left(6))
35061  pack_tmp = ior(pack_tmp, data_tmp)
35062  ipack = ipack + 1
35063  packed_data(ipack) = pack_tmp
35064  data_tmp = full_data(idata)
35065  pack_tmp = ishft(data_tmp, 25)
35066  pack_tmp = ishft(pack_tmp, -25)
35067  idata = idata + 1
35068  data_tmp = full_data(idata)
35069  data_tmp = ishft(data_tmp, 19)
35070  data_tmp = iand(data_tmp, mask_left(25))
35071  pack_tmp = ior(pack_tmp, data_tmp)
35072  ipack = ipack + 1
35073  packed_data(ipack) = pack_tmp
35074  data_tmp = full_data(idata)
35075  pack_tmp = ishft(data_tmp, 44)
35076  pack_tmp = ishft(pack_tmp, -44)
35077  idata = idata + 1
35078  data_tmp = full_data(idata)
35079  data_tmp = ishft(data_tmp, 19)
35080  data_tmp = iand(data_tmp, mask_left(44))
35081  pack_tmp = ior(pack_tmp, data_tmp)
35082  ipack = ipack + 1
35083  packed_data(ipack) = pack_tmp
35084  data_tmp = full_data(idata)
35085  pack_tmp = ishft(data_tmp, 63)
35086  pack_tmp = ishft(pack_tmp, -45)
35087  idata = idata + 1
35088  data_tmp = full_data(idata)
35089  data_tmp = ishft(data_tmp, 19)
35090  pack_tmp = ior(pack_tmp, data_tmp)
35091  pack_tmp = ishft(pack_tmp, -18)
35092  idata = idata + 1
35093  data_tmp = full_data(idata)
35094  data_tmp = ishft(data_tmp, 19)
35095  data_tmp = iand(data_tmp, mask_left(18))
35096  pack_tmp = ior(pack_tmp, data_tmp)
35097  ipack = ipack + 1
35098  packed_data(ipack) = pack_tmp
35099  data_tmp = full_data(idata)
35100  pack_tmp = ishft(data_tmp, 37)
35101  pack_tmp = ishft(pack_tmp, -37)
35102  idata = idata + 1
35103  data_tmp = full_data(idata)
35104  data_tmp = ishft(data_tmp, 19)
35105  data_tmp = iand(data_tmp, mask_left(37))
35106  pack_tmp = ior(pack_tmp, data_tmp)
35107  ipack = ipack + 1
35108  packed_data(ipack) = pack_tmp
35109  data_tmp = full_data(idata)
35110  pack_tmp = ishft(data_tmp, 56)
35111  pack_tmp = ishft(pack_tmp, -45)
35112  idata = idata + 1
35113  data_tmp = full_data(idata)
35114  data_tmp = ishft(data_tmp, 19)
35115  pack_tmp = ior(pack_tmp, data_tmp)
35116  pack_tmp = ishft(pack_tmp, -11)
35117  idata = idata + 1
35118  data_tmp = full_data(idata)
35119  data_tmp = ishft(data_tmp, 19)
35120  data_tmp = iand(data_tmp, mask_left(11))
35121  pack_tmp = ior(pack_tmp, data_tmp)
35122  ipack = ipack + 1
35123  packed_data(ipack) = pack_tmp
35124  data_tmp = full_data(idata)
35125  pack_tmp = ishft(data_tmp, 30)
35126  pack_tmp = ishft(pack_tmp, -30)
35127  idata = idata + 1
35128  data_tmp = full_data(idata)
35129  data_tmp = ishft(data_tmp, 19)
35130  data_tmp = iand(data_tmp, mask_left(30))
35131  pack_tmp = ior(pack_tmp, data_tmp)
35132  ipack = ipack + 1
35133  packed_data(ipack) = pack_tmp
35134  data_tmp = full_data(idata)
35135  pack_tmp = ishft(data_tmp, 49)
35136  pack_tmp = ishft(pack_tmp, -45)
35137  idata = idata + 1
35138  data_tmp = full_data(idata)
35139  data_tmp = ishft(data_tmp, 19)
35140  pack_tmp = ior(pack_tmp, data_tmp)
35141  pack_tmp = ishft(pack_tmp, -4)
35142  idata = idata + 1
35143  data_tmp = full_data(idata)
35144  data_tmp = ishft(data_tmp, 19)
35145  data_tmp = iand(data_tmp, mask_left(4))
35146  pack_tmp = ior(pack_tmp, data_tmp)
35147  ipack = ipack + 1
35148  packed_data(ipack) = pack_tmp
35149  data_tmp = full_data(idata)
35150  pack_tmp = ishft(data_tmp, 23)
35151  pack_tmp = ishft(pack_tmp, -23)
35152  idata = idata + 1
35153  data_tmp = full_data(idata)
35154  data_tmp = ishft(data_tmp, 19)
35155  data_tmp = iand(data_tmp, mask_left(23))
35156  pack_tmp = ior(pack_tmp, data_tmp)
35157  ipack = ipack + 1
35158  packed_data(ipack) = pack_tmp
35159  data_tmp = full_data(idata)
35160  pack_tmp = ishft(data_tmp, 42)
35161  pack_tmp = ishft(pack_tmp, -42)
35162  idata = idata + 1
35163  data_tmp = full_data(idata)
35164  data_tmp = ishft(data_tmp, 19)
35165  data_tmp = iand(data_tmp, mask_left(42))
35166  pack_tmp = ior(pack_tmp, data_tmp)
35167  ipack = ipack + 1
35168  packed_data(ipack) = pack_tmp
35169  data_tmp = full_data(idata)
35170  pack_tmp = ishft(data_tmp, 61)
35171  pack_tmp = ishft(pack_tmp, -45)
35172  idata = idata + 1
35173  data_tmp = full_data(idata)
35174  data_tmp = ishft(data_tmp, 19)
35175  pack_tmp = ior(pack_tmp, data_tmp)
35176  pack_tmp = ishft(pack_tmp, -16)
35177  idata = idata + 1
35178  data_tmp = full_data(idata)
35179  data_tmp = ishft(data_tmp, 19)
35180  data_tmp = iand(data_tmp, mask_left(16))
35181  pack_tmp = ior(pack_tmp, data_tmp)
35182  ipack = ipack + 1
35183  packed_data(ipack) = pack_tmp
35184  data_tmp = full_data(idata)
35185  pack_tmp = ishft(data_tmp, 35)
35186  pack_tmp = ishft(pack_tmp, -35)
35187  idata = idata + 1
35188  data_tmp = full_data(idata)
35189  data_tmp = ishft(data_tmp, 19)
35190  data_tmp = iand(data_tmp, mask_left(35))
35191  pack_tmp = ior(pack_tmp, data_tmp)
35192  ipack = ipack + 1
35193  packed_data(ipack) = pack_tmp
35194  data_tmp = full_data(idata)
35195  pack_tmp = ishft(data_tmp, 54)
35196  pack_tmp = ishft(pack_tmp, -45)
35197  idata = idata + 1
35198  data_tmp = full_data(idata)
35199  data_tmp = ishft(data_tmp, 19)
35200  pack_tmp = ior(pack_tmp, data_tmp)
35201  pack_tmp = ishft(pack_tmp, -9)
35202  idata = idata + 1
35203  data_tmp = full_data(idata)
35204  data_tmp = ishft(data_tmp, 19)
35205  data_tmp = iand(data_tmp, mask_left(9))
35206  pack_tmp = ior(pack_tmp, data_tmp)
35207  ipack = ipack + 1
35208  packed_data(ipack) = pack_tmp
35209  data_tmp = full_data(idata)
35210  pack_tmp = ishft(data_tmp, 28)
35211  pack_tmp = ishft(pack_tmp, -28)
35212  idata = idata + 1
35213  data_tmp = full_data(idata)
35214  data_tmp = ishft(data_tmp, 19)
35215  data_tmp = iand(data_tmp, mask_left(28))
35216  pack_tmp = ior(pack_tmp, data_tmp)
35217  ipack = ipack + 1
35218  packed_data(ipack) = pack_tmp
35219  data_tmp = full_data(idata)
35220  pack_tmp = ishft(data_tmp, 47)
35221  pack_tmp = ishft(pack_tmp, -45)
35222  idata = idata + 1
35223  data_tmp = full_data(idata)
35224  data_tmp = ishft(data_tmp, 19)
35225  pack_tmp = ior(pack_tmp, data_tmp)
35226  pack_tmp = ishft(pack_tmp, -2)
35227  idata = idata + 1
35228  data_tmp = full_data(idata)
35229  data_tmp = ishft(data_tmp, 19)
35230  data_tmp = iand(data_tmp, mask_left(2))
35231  pack_tmp = ior(pack_tmp, data_tmp)
35232  ipack = ipack + 1
35233  packed_data(ipack) = pack_tmp
35234  data_tmp = full_data(idata)
35235  pack_tmp = ishft(data_tmp, 21)
35236  pack_tmp = ishft(pack_tmp, -21)
35237  idata = idata + 1
35238  data_tmp = full_data(idata)
35239  data_tmp = ishft(data_tmp, 19)
35240  data_tmp = iand(data_tmp, mask_left(21))
35241  pack_tmp = ior(pack_tmp, data_tmp)
35242  ipack = ipack + 1
35243  packed_data(ipack) = pack_tmp
35244  data_tmp = full_data(idata)
35245  pack_tmp = ishft(data_tmp, 40)
35246  pack_tmp = ishft(pack_tmp, -40)
35247  idata = idata + 1
35248  data_tmp = full_data(idata)
35249  data_tmp = ishft(data_tmp, 19)
35250  data_tmp = iand(data_tmp, mask_left(40))
35251  pack_tmp = ior(pack_tmp, data_tmp)
35252  ipack = ipack + 1
35253  packed_data(ipack) = pack_tmp
35254  data_tmp = full_data(idata)
35255  pack_tmp = ishft(data_tmp, 59)
35256  pack_tmp = ishft(pack_tmp, -45)
35257  idata = idata + 1
35258  data_tmp = full_data(idata)
35259  data_tmp = ishft(data_tmp, 19)
35260  pack_tmp = ior(pack_tmp, data_tmp)
35261  pack_tmp = ishft(pack_tmp, -14)
35262  idata = idata + 1
35263  data_tmp = full_data(idata)
35264  data_tmp = ishft(data_tmp, 19)
35265  data_tmp = iand(data_tmp, mask_left(14))
35266  pack_tmp = ior(pack_tmp, data_tmp)
35267  ipack = ipack + 1
35268  packed_data(ipack) = pack_tmp
35269  data_tmp = full_data(idata)
35270  pack_tmp = ishft(data_tmp, 33)
35271  pack_tmp = ishft(pack_tmp, -33)
35272  idata = idata + 1
35273  data_tmp = full_data(idata)
35274  data_tmp = ishft(data_tmp, 19)
35275  data_tmp = iand(data_tmp, mask_left(33))
35276  pack_tmp = ior(pack_tmp, data_tmp)
35277  ipack = ipack + 1
35278  packed_data(ipack) = pack_tmp
35279  data_tmp = full_data(idata)
35280  pack_tmp = ishft(data_tmp, 52)
35281  pack_tmp = ishft(pack_tmp, -45)
35282  idata = idata + 1
35283  data_tmp = full_data(idata)
35284  data_tmp = ishft(data_tmp, 19)
35285  pack_tmp = ior(pack_tmp, data_tmp)
35286  pack_tmp = ishft(pack_tmp, -7)
35287  idata = idata + 1
35288  data_tmp = full_data(idata)
35289  data_tmp = ishft(data_tmp, 19)
35290  data_tmp = iand(data_tmp, mask_left(7))
35291  pack_tmp = ior(pack_tmp, data_tmp)
35292  ipack = ipack + 1
35293  packed_data(ipack) = pack_tmp
35294  data_tmp = full_data(idata)
35295  pack_tmp = ishft(data_tmp, 26)
35296  pack_tmp = ishft(pack_tmp, -26)
35297  idata = idata + 1
35298  data_tmp = full_data(idata)
35299  data_tmp = ishft(data_tmp, 19)
35300  data_tmp = iand(data_tmp, mask_left(26))
35301  pack_tmp = ior(pack_tmp, data_tmp)
35302  ipack = ipack + 1
35303  packed_data(ipack) = pack_tmp
35304  data_tmp = full_data(idata)
35305  pack_tmp = ishft(data_tmp, 45)
35306  pack_tmp = ishft(pack_tmp, -45)
35307  idata = idata + 1
35308  data_tmp = full_data(idata)
35309  data_tmp = ishft(data_tmp, 19)
35310  pack_tmp = ior(pack_tmp, data_tmp)
35311  pack_tmp = ishft(pack_tmp, 0)
35312  pack_tmp = ishft(pack_tmp, 0)
35313  ipack = ipack + 1
35314  packed_data(ipack) = pack_tmp
35315  END DO
35316  IF (ndata_rep < ndata) THEN
35317  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
35318  END IF
35319  END SUBROUTINE ints2bits_45
35320 
35321 ! **************************************************************************************************
35322 !> \brief ...
35323 !> \param Ndata ...
35324 !> \param packed_data ...
35325 !> \param full_data ...
35326 ! **************************************************************************************************
35327  SUBROUTINE bits2ints_45(Ndata, packed_data, full_data)
35328  INTEGER, INTENT(IN) :: Ndata
35329  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
35330  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
35331 
35332  INTEGER, PARAMETER :: Nbits = 45
35333 
35334  INTEGER :: idata, ipack, kdata, Ndata_rep
35335  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
35336 
35337  ipack = 0
35338  idata = 0
35339  pack_tmp = 0
35340  ndata_rep = (ndata/64)*64
35341  DO kdata = 1, ndata_rep, 64
35342  idata = idata + 1
35343  data_tmp = ishft(pack_tmp, 45)
35344  ipack = ipack + 1
35345  pack_tmp = packed_data(ipack)
35346  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
35347  pack_tmp = ishft(pack_tmp, -45)
35348  idata = idata + 1
35349  data_tmp = ishft(pack_tmp, 26)
35350  ipack = ipack + 1
35351  pack_tmp = packed_data(ipack)
35352  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
35353  pack_tmp = ishft(pack_tmp, -26)
35354  idata = idata + 1
35355  data_tmp = ishft(pack_tmp, 7)
35356  ipack = ipack + 1
35357  pack_tmp = packed_data(ipack)
35358  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
35359  pack_tmp = ishft(pack_tmp, -7)
35360  idata = idata + 1
35361  data_tmp = iand(pack_tmp, mask_right(nbits))
35362  full_data(idata) = data_tmp
35363  pack_tmp = ishft(pack_tmp, -nbits)
35364  idata = idata + 1
35365  data_tmp = ishft(pack_tmp, 33)
35366  ipack = ipack + 1
35367  pack_tmp = packed_data(ipack)
35368  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
35369  pack_tmp = ishft(pack_tmp, -33)
35370  idata = idata + 1
35371  data_tmp = ishft(pack_tmp, 14)
35372  ipack = ipack + 1
35373  pack_tmp = packed_data(ipack)
35374  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
35375  pack_tmp = ishft(pack_tmp, -14)
35376  idata = idata + 1
35377  data_tmp = iand(pack_tmp, mask_right(nbits))
35378  full_data(idata) = data_tmp
35379  pack_tmp = ishft(pack_tmp, -nbits)
35380  idata = idata + 1
35381  data_tmp = ishft(pack_tmp, 40)
35382  ipack = ipack + 1
35383  pack_tmp = packed_data(ipack)
35384  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
35385  pack_tmp = ishft(pack_tmp, -40)
35386  idata = idata + 1
35387  data_tmp = ishft(pack_tmp, 21)
35388  ipack = ipack + 1
35389  pack_tmp = packed_data(ipack)
35390  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
35391  pack_tmp = ishft(pack_tmp, -21)
35392  idata = idata + 1
35393  data_tmp = ishft(pack_tmp, 2)
35394  ipack = ipack + 1
35395  pack_tmp = packed_data(ipack)
35396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
35397  pack_tmp = ishft(pack_tmp, -2)
35398  idata = idata + 1
35399  data_tmp = iand(pack_tmp, mask_right(nbits))
35400  full_data(idata) = data_tmp
35401  pack_tmp = ishft(pack_tmp, -nbits)
35402  idata = idata + 1
35403  data_tmp = ishft(pack_tmp, 28)
35404  ipack = ipack + 1
35405  pack_tmp = packed_data(ipack)
35406  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
35407  pack_tmp = ishft(pack_tmp, -28)
35408  idata = idata + 1
35409  data_tmp = ishft(pack_tmp, 9)
35410  ipack = ipack + 1
35411  pack_tmp = packed_data(ipack)
35412  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
35413  pack_tmp = ishft(pack_tmp, -9)
35414  idata = idata + 1
35415  data_tmp = iand(pack_tmp, mask_right(nbits))
35416  full_data(idata) = data_tmp
35417  pack_tmp = ishft(pack_tmp, -nbits)
35418  idata = idata + 1
35419  data_tmp = ishft(pack_tmp, 35)
35420  ipack = ipack + 1
35421  pack_tmp = packed_data(ipack)
35422  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
35423  pack_tmp = ishft(pack_tmp, -35)
35424  idata = idata + 1
35425  data_tmp = ishft(pack_tmp, 16)
35426  ipack = ipack + 1
35427  pack_tmp = packed_data(ipack)
35428  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
35429  pack_tmp = ishft(pack_tmp, -16)
35430  idata = idata + 1
35431  data_tmp = iand(pack_tmp, mask_right(nbits))
35432  full_data(idata) = data_tmp
35433  pack_tmp = ishft(pack_tmp, -nbits)
35434  idata = idata + 1
35435  data_tmp = ishft(pack_tmp, 42)
35436  ipack = ipack + 1
35437  pack_tmp = packed_data(ipack)
35438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
35439  pack_tmp = ishft(pack_tmp, -42)
35440  idata = idata + 1
35441  data_tmp = ishft(pack_tmp, 23)
35442  ipack = ipack + 1
35443  pack_tmp = packed_data(ipack)
35444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
35445  pack_tmp = ishft(pack_tmp, -23)
35446  idata = idata + 1
35447  data_tmp = ishft(pack_tmp, 4)
35448  ipack = ipack + 1
35449  pack_tmp = packed_data(ipack)
35450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
35451  pack_tmp = ishft(pack_tmp, -4)
35452  idata = idata + 1
35453  data_tmp = iand(pack_tmp, mask_right(nbits))
35454  full_data(idata) = data_tmp
35455  pack_tmp = ishft(pack_tmp, -nbits)
35456  idata = idata + 1
35457  data_tmp = ishft(pack_tmp, 30)
35458  ipack = ipack + 1
35459  pack_tmp = packed_data(ipack)
35460  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
35461  pack_tmp = ishft(pack_tmp, -30)
35462  idata = idata + 1
35463  data_tmp = ishft(pack_tmp, 11)
35464  ipack = ipack + 1
35465  pack_tmp = packed_data(ipack)
35466  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
35467  pack_tmp = ishft(pack_tmp, -11)
35468  idata = idata + 1
35469  data_tmp = iand(pack_tmp, mask_right(nbits))
35470  full_data(idata) = data_tmp
35471  pack_tmp = ishft(pack_tmp, -nbits)
35472  idata = idata + 1
35473  data_tmp = ishft(pack_tmp, 37)
35474  ipack = ipack + 1
35475  pack_tmp = packed_data(ipack)
35476  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
35477  pack_tmp = ishft(pack_tmp, -37)
35478  idata = idata + 1
35479  data_tmp = ishft(pack_tmp, 18)
35480  ipack = ipack + 1
35481  pack_tmp = packed_data(ipack)
35482  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
35483  pack_tmp = ishft(pack_tmp, -18)
35484  idata = idata + 1
35485  data_tmp = iand(pack_tmp, mask_right(nbits))
35486  full_data(idata) = data_tmp
35487  pack_tmp = ishft(pack_tmp, -nbits)
35488  idata = idata + 1
35489  data_tmp = ishft(pack_tmp, 44)
35490  ipack = ipack + 1
35491  pack_tmp = packed_data(ipack)
35492  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
35493  pack_tmp = ishft(pack_tmp, -44)
35494  idata = idata + 1
35495  data_tmp = ishft(pack_tmp, 25)
35496  ipack = ipack + 1
35497  pack_tmp = packed_data(ipack)
35498  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
35499  pack_tmp = ishft(pack_tmp, -25)
35500  idata = idata + 1
35501  data_tmp = ishft(pack_tmp, 6)
35502  ipack = ipack + 1
35503  pack_tmp = packed_data(ipack)
35504  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
35505  pack_tmp = ishft(pack_tmp, -6)
35506  idata = idata + 1
35507  data_tmp = iand(pack_tmp, mask_right(nbits))
35508  full_data(idata) = data_tmp
35509  pack_tmp = ishft(pack_tmp, -nbits)
35510  idata = idata + 1
35511  data_tmp = ishft(pack_tmp, 32)
35512  ipack = ipack + 1
35513  pack_tmp = packed_data(ipack)
35514  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
35515  pack_tmp = ishft(pack_tmp, -32)
35516  idata = idata + 1
35517  data_tmp = ishft(pack_tmp, 13)
35518  ipack = ipack + 1
35519  pack_tmp = packed_data(ipack)
35520  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
35521  pack_tmp = ishft(pack_tmp, -13)
35522  idata = idata + 1
35523  data_tmp = iand(pack_tmp, mask_right(nbits))
35524  full_data(idata) = data_tmp
35525  pack_tmp = ishft(pack_tmp, -nbits)
35526  idata = idata + 1
35527  data_tmp = ishft(pack_tmp, 39)
35528  ipack = ipack + 1
35529  pack_tmp = packed_data(ipack)
35530  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
35531  pack_tmp = ishft(pack_tmp, -39)
35532  idata = idata + 1
35533  data_tmp = ishft(pack_tmp, 20)
35534  ipack = ipack + 1
35535  pack_tmp = packed_data(ipack)
35536  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
35537  pack_tmp = ishft(pack_tmp, -20)
35538  idata = idata + 1
35539  data_tmp = ishft(pack_tmp, 1)
35540  ipack = ipack + 1
35541  pack_tmp = packed_data(ipack)
35542  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
35543  pack_tmp = ishft(pack_tmp, -1)
35544  idata = idata + 1
35545  data_tmp = iand(pack_tmp, mask_right(nbits))
35546  full_data(idata) = data_tmp
35547  pack_tmp = ishft(pack_tmp, -nbits)
35548  idata = idata + 1
35549  data_tmp = ishft(pack_tmp, 27)
35550  ipack = ipack + 1
35551  pack_tmp = packed_data(ipack)
35552  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
35553  pack_tmp = ishft(pack_tmp, -27)
35554  idata = idata + 1
35555  data_tmp = ishft(pack_tmp, 8)
35556  ipack = ipack + 1
35557  pack_tmp = packed_data(ipack)
35558  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
35559  pack_tmp = ishft(pack_tmp, -8)
35560  idata = idata + 1
35561  data_tmp = iand(pack_tmp, mask_right(nbits))
35562  full_data(idata) = data_tmp
35563  pack_tmp = ishft(pack_tmp, -nbits)
35564  idata = idata + 1
35565  data_tmp = ishft(pack_tmp, 34)
35566  ipack = ipack + 1
35567  pack_tmp = packed_data(ipack)
35568  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
35569  pack_tmp = ishft(pack_tmp, -34)
35570  idata = idata + 1
35571  data_tmp = ishft(pack_tmp, 15)
35572  ipack = ipack + 1
35573  pack_tmp = packed_data(ipack)
35574  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
35575  pack_tmp = ishft(pack_tmp, -15)
35576  idata = idata + 1
35577  data_tmp = iand(pack_tmp, mask_right(nbits))
35578  full_data(idata) = data_tmp
35579  pack_tmp = ishft(pack_tmp, -nbits)
35580  idata = idata + 1
35581  data_tmp = ishft(pack_tmp, 41)
35582  ipack = ipack + 1
35583  pack_tmp = packed_data(ipack)
35584  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
35585  pack_tmp = ishft(pack_tmp, -41)
35586  idata = idata + 1
35587  data_tmp = ishft(pack_tmp, 22)
35588  ipack = ipack + 1
35589  pack_tmp = packed_data(ipack)
35590  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
35591  pack_tmp = ishft(pack_tmp, -22)
35592  idata = idata + 1
35593  data_tmp = ishft(pack_tmp, 3)
35594  ipack = ipack + 1
35595  pack_tmp = packed_data(ipack)
35596  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
35597  pack_tmp = ishft(pack_tmp, -3)
35598  idata = idata + 1
35599  data_tmp = iand(pack_tmp, mask_right(nbits))
35600  full_data(idata) = data_tmp
35601  pack_tmp = ishft(pack_tmp, -nbits)
35602  idata = idata + 1
35603  data_tmp = ishft(pack_tmp, 29)
35604  ipack = ipack + 1
35605  pack_tmp = packed_data(ipack)
35606  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
35607  pack_tmp = ishft(pack_tmp, -29)
35608  idata = idata + 1
35609  data_tmp = ishft(pack_tmp, 10)
35610  ipack = ipack + 1
35611  pack_tmp = packed_data(ipack)
35612  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
35613  pack_tmp = ishft(pack_tmp, -10)
35614  idata = idata + 1
35615  data_tmp = iand(pack_tmp, mask_right(nbits))
35616  full_data(idata) = data_tmp
35617  pack_tmp = ishft(pack_tmp, -nbits)
35618  idata = idata + 1
35619  data_tmp = ishft(pack_tmp, 36)
35620  ipack = ipack + 1
35621  pack_tmp = packed_data(ipack)
35622  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
35623  pack_tmp = ishft(pack_tmp, -36)
35624  idata = idata + 1
35625  data_tmp = ishft(pack_tmp, 17)
35626  ipack = ipack + 1
35627  pack_tmp = packed_data(ipack)
35628  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
35629  pack_tmp = ishft(pack_tmp, -17)
35630  idata = idata + 1
35631  data_tmp = iand(pack_tmp, mask_right(nbits))
35632  full_data(idata) = data_tmp
35633  pack_tmp = ishft(pack_tmp, -nbits)
35634  idata = idata + 1
35635  data_tmp = ishft(pack_tmp, 43)
35636  ipack = ipack + 1
35637  pack_tmp = packed_data(ipack)
35638  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
35639  pack_tmp = ishft(pack_tmp, -43)
35640  idata = idata + 1
35641  data_tmp = ishft(pack_tmp, 24)
35642  ipack = ipack + 1
35643  pack_tmp = packed_data(ipack)
35644  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
35645  pack_tmp = ishft(pack_tmp, -24)
35646  idata = idata + 1
35647  data_tmp = ishft(pack_tmp, 5)
35648  ipack = ipack + 1
35649  pack_tmp = packed_data(ipack)
35650  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
35651  pack_tmp = ishft(pack_tmp, -5)
35652  idata = idata + 1
35653  data_tmp = iand(pack_tmp, mask_right(nbits))
35654  full_data(idata) = data_tmp
35655  pack_tmp = ishft(pack_tmp, -nbits)
35656  idata = idata + 1
35657  data_tmp = ishft(pack_tmp, 31)
35658  ipack = ipack + 1
35659  pack_tmp = packed_data(ipack)
35660  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
35661  pack_tmp = ishft(pack_tmp, -31)
35662  idata = idata + 1
35663  data_tmp = ishft(pack_tmp, 12)
35664  ipack = ipack + 1
35665  pack_tmp = packed_data(ipack)
35666  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
35667  pack_tmp = ishft(pack_tmp, -12)
35668  idata = idata + 1
35669  data_tmp = iand(pack_tmp, mask_right(nbits))
35670  full_data(idata) = data_tmp
35671  pack_tmp = ishft(pack_tmp, -nbits)
35672  idata = idata + 1
35673  data_tmp = ishft(pack_tmp, 38)
35674  ipack = ipack + 1
35675  pack_tmp = packed_data(ipack)
35676  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
35677  pack_tmp = ishft(pack_tmp, -38)
35678  idata = idata + 1
35679  data_tmp = ishft(pack_tmp, 19)
35680  ipack = ipack + 1
35681  pack_tmp = packed_data(ipack)
35682  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
35683  pack_tmp = ishft(pack_tmp, -19)
35684  idata = idata + 1
35685  data_tmp = iand(pack_tmp, mask_right(nbits))
35686  full_data(idata) = data_tmp
35687  pack_tmp = ishft(pack_tmp, -nbits)
35688  END DO
35689  IF (ndata_rep < ndata) THEN
35690  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
35691  END IF
35692  END SUBROUTINE bits2ints_45
35693 
35694 ! **************************************************************************************************
35695 !> \brief ...
35696 !> \param Ndata ...
35697 !> \param packed_data ...
35698 !> \param full_data ...
35699 ! **************************************************************************************************
35700  SUBROUTINE ints2bits_46(Ndata, packed_data, full_data)
35701  INTEGER, INTENT(IN) :: Ndata
35702  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
35703  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
35704 
35705  INTEGER, PARAMETER :: Nbits = 46
35706 
35707  INTEGER :: idata, ipack, kdata, Ndata_rep
35708  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
35709 
35710  idata = 0
35711  ipack = 0
35712  ndata_rep = (ndata/64)*64
35713  DO kdata = 1, ndata_rep, 64
35714  pack_tmp = 0
35715  idata = idata + 1
35716  data_tmp = full_data(idata)
35717  data_tmp = ishft(data_tmp, 18)
35718  pack_tmp = ior(pack_tmp, data_tmp)
35719  pack_tmp = ishft(pack_tmp, -18)
35720  idata = idata + 1
35721  data_tmp = full_data(idata)
35722  data_tmp = ishft(data_tmp, 18)
35723  data_tmp = iand(data_tmp, mask_left(18))
35724  pack_tmp = ior(pack_tmp, data_tmp)
35725  ipack = ipack + 1
35726  packed_data(ipack) = pack_tmp
35727  data_tmp = full_data(idata)
35728  pack_tmp = ishft(data_tmp, 36)
35729  pack_tmp = ishft(pack_tmp, -36)
35730  idata = idata + 1
35731  data_tmp = full_data(idata)
35732  data_tmp = ishft(data_tmp, 18)
35733  data_tmp = iand(data_tmp, mask_left(36))
35734  pack_tmp = ior(pack_tmp, data_tmp)
35735  ipack = ipack + 1
35736  packed_data(ipack) = pack_tmp
35737  data_tmp = full_data(idata)
35738  pack_tmp = ishft(data_tmp, 54)
35739  pack_tmp = ishft(pack_tmp, -46)
35740  idata = idata + 1
35741  data_tmp = full_data(idata)
35742  data_tmp = ishft(data_tmp, 18)
35743  pack_tmp = ior(pack_tmp, data_tmp)
35744  pack_tmp = ishft(pack_tmp, -8)
35745  idata = idata + 1
35746  data_tmp = full_data(idata)
35747  data_tmp = ishft(data_tmp, 18)
35748  data_tmp = iand(data_tmp, mask_left(8))
35749  pack_tmp = ior(pack_tmp, data_tmp)
35750  ipack = ipack + 1
35751  packed_data(ipack) = pack_tmp
35752  data_tmp = full_data(idata)
35753  pack_tmp = ishft(data_tmp, 26)
35754  pack_tmp = ishft(pack_tmp, -26)
35755  idata = idata + 1
35756  data_tmp = full_data(idata)
35757  data_tmp = ishft(data_tmp, 18)
35758  data_tmp = iand(data_tmp, mask_left(26))
35759  pack_tmp = ior(pack_tmp, data_tmp)
35760  ipack = ipack + 1
35761  packed_data(ipack) = pack_tmp
35762  data_tmp = full_data(idata)
35763  pack_tmp = ishft(data_tmp, 44)
35764  pack_tmp = ishft(pack_tmp, -44)
35765  idata = idata + 1
35766  data_tmp = full_data(idata)
35767  data_tmp = ishft(data_tmp, 18)
35768  data_tmp = iand(data_tmp, mask_left(44))
35769  pack_tmp = ior(pack_tmp, data_tmp)
35770  ipack = ipack + 1
35771  packed_data(ipack) = pack_tmp
35772  data_tmp = full_data(idata)
35773  pack_tmp = ishft(data_tmp, 62)
35774  pack_tmp = ishft(pack_tmp, -46)
35775  idata = idata + 1
35776  data_tmp = full_data(idata)
35777  data_tmp = ishft(data_tmp, 18)
35778  pack_tmp = ior(pack_tmp, data_tmp)
35779  pack_tmp = ishft(pack_tmp, -16)
35780  idata = idata + 1
35781  data_tmp = full_data(idata)
35782  data_tmp = ishft(data_tmp, 18)
35783  data_tmp = iand(data_tmp, mask_left(16))
35784  pack_tmp = ior(pack_tmp, data_tmp)
35785  ipack = ipack + 1
35786  packed_data(ipack) = pack_tmp
35787  data_tmp = full_data(idata)
35788  pack_tmp = ishft(data_tmp, 34)
35789  pack_tmp = ishft(pack_tmp, -34)
35790  idata = idata + 1
35791  data_tmp = full_data(idata)
35792  data_tmp = ishft(data_tmp, 18)
35793  data_tmp = iand(data_tmp, mask_left(34))
35794  pack_tmp = ior(pack_tmp, data_tmp)
35795  ipack = ipack + 1
35796  packed_data(ipack) = pack_tmp
35797  data_tmp = full_data(idata)
35798  pack_tmp = ishft(data_tmp, 52)
35799  pack_tmp = ishft(pack_tmp, -46)
35800  idata = idata + 1
35801  data_tmp = full_data(idata)
35802  data_tmp = ishft(data_tmp, 18)
35803  pack_tmp = ior(pack_tmp, data_tmp)
35804  pack_tmp = ishft(pack_tmp, -6)
35805  idata = idata + 1
35806  data_tmp = full_data(idata)
35807  data_tmp = ishft(data_tmp, 18)
35808  data_tmp = iand(data_tmp, mask_left(6))
35809  pack_tmp = ior(pack_tmp, data_tmp)
35810  ipack = ipack + 1
35811  packed_data(ipack) = pack_tmp
35812  data_tmp = full_data(idata)
35813  pack_tmp = ishft(data_tmp, 24)
35814  pack_tmp = ishft(pack_tmp, -24)
35815  idata = idata + 1
35816  data_tmp = full_data(idata)
35817  data_tmp = ishft(data_tmp, 18)
35818  data_tmp = iand(data_tmp, mask_left(24))
35819  pack_tmp = ior(pack_tmp, data_tmp)
35820  ipack = ipack + 1
35821  packed_data(ipack) = pack_tmp
35822  data_tmp = full_data(idata)
35823  pack_tmp = ishft(data_tmp, 42)
35824  pack_tmp = ishft(pack_tmp, -42)
35825  idata = idata + 1
35826  data_tmp = full_data(idata)
35827  data_tmp = ishft(data_tmp, 18)
35828  data_tmp = iand(data_tmp, mask_left(42))
35829  pack_tmp = ior(pack_tmp, data_tmp)
35830  ipack = ipack + 1
35831  packed_data(ipack) = pack_tmp
35832  data_tmp = full_data(idata)
35833  pack_tmp = ishft(data_tmp, 60)
35834  pack_tmp = ishft(pack_tmp, -46)
35835  idata = idata + 1
35836  data_tmp = full_data(idata)
35837  data_tmp = ishft(data_tmp, 18)
35838  pack_tmp = ior(pack_tmp, data_tmp)
35839  pack_tmp = ishft(pack_tmp, -14)
35840  idata = idata + 1
35841  data_tmp = full_data(idata)
35842  data_tmp = ishft(data_tmp, 18)
35843  data_tmp = iand(data_tmp, mask_left(14))
35844  pack_tmp = ior(pack_tmp, data_tmp)
35845  ipack = ipack + 1
35846  packed_data(ipack) = pack_tmp
35847  data_tmp = full_data(idata)
35848  pack_tmp = ishft(data_tmp, 32)
35849  pack_tmp = ishft(pack_tmp, -32)
35850  idata = idata + 1
35851  data_tmp = full_data(idata)
35852  data_tmp = ishft(data_tmp, 18)
35853  data_tmp = iand(data_tmp, mask_left(32))
35854  pack_tmp = ior(pack_tmp, data_tmp)
35855  ipack = ipack + 1
35856  packed_data(ipack) = pack_tmp
35857  data_tmp = full_data(idata)
35858  pack_tmp = ishft(data_tmp, 50)
35859  pack_tmp = ishft(pack_tmp, -46)
35860  idata = idata + 1
35861  data_tmp = full_data(idata)
35862  data_tmp = ishft(data_tmp, 18)
35863  pack_tmp = ior(pack_tmp, data_tmp)
35864  pack_tmp = ishft(pack_tmp, -4)
35865  idata = idata + 1
35866  data_tmp = full_data(idata)
35867  data_tmp = ishft(data_tmp, 18)
35868  data_tmp = iand(data_tmp, mask_left(4))
35869  pack_tmp = ior(pack_tmp, data_tmp)
35870  ipack = ipack + 1
35871  packed_data(ipack) = pack_tmp
35872  data_tmp = full_data(idata)
35873  pack_tmp = ishft(data_tmp, 22)
35874  pack_tmp = ishft(pack_tmp, -22)
35875  idata = idata + 1
35876  data_tmp = full_data(idata)
35877  data_tmp = ishft(data_tmp, 18)
35878  data_tmp = iand(data_tmp, mask_left(22))
35879  pack_tmp = ior(pack_tmp, data_tmp)
35880  ipack = ipack + 1
35881  packed_data(ipack) = pack_tmp
35882  data_tmp = full_data(idata)
35883  pack_tmp = ishft(data_tmp, 40)
35884  pack_tmp = ishft(pack_tmp, -40)
35885  idata = idata + 1
35886  data_tmp = full_data(idata)
35887  data_tmp = ishft(data_tmp, 18)
35888  data_tmp = iand(data_tmp, mask_left(40))
35889  pack_tmp = ior(pack_tmp, data_tmp)
35890  ipack = ipack + 1
35891  packed_data(ipack) = pack_tmp
35892  data_tmp = full_data(idata)
35893  pack_tmp = ishft(data_tmp, 58)
35894  pack_tmp = ishft(pack_tmp, -46)
35895  idata = idata + 1
35896  data_tmp = full_data(idata)
35897  data_tmp = ishft(data_tmp, 18)
35898  pack_tmp = ior(pack_tmp, data_tmp)
35899  pack_tmp = ishft(pack_tmp, -12)
35900  idata = idata + 1
35901  data_tmp = full_data(idata)
35902  data_tmp = ishft(data_tmp, 18)
35903  data_tmp = iand(data_tmp, mask_left(12))
35904  pack_tmp = ior(pack_tmp, data_tmp)
35905  ipack = ipack + 1
35906  packed_data(ipack) = pack_tmp
35907  data_tmp = full_data(idata)
35908  pack_tmp = ishft(data_tmp, 30)
35909  pack_tmp = ishft(pack_tmp, -30)
35910  idata = idata + 1
35911  data_tmp = full_data(idata)
35912  data_tmp = ishft(data_tmp, 18)
35913  data_tmp = iand(data_tmp, mask_left(30))
35914  pack_tmp = ior(pack_tmp, data_tmp)
35915  ipack = ipack + 1
35916  packed_data(ipack) = pack_tmp
35917  data_tmp = full_data(idata)
35918  pack_tmp = ishft(data_tmp, 48)
35919  pack_tmp = ishft(pack_tmp, -46)
35920  idata = idata + 1
35921  data_tmp = full_data(idata)
35922  data_tmp = ishft(data_tmp, 18)
35923  pack_tmp = ior(pack_tmp, data_tmp)
35924  pack_tmp = ishft(pack_tmp, -2)
35925  idata = idata + 1
35926  data_tmp = full_data(idata)
35927  data_tmp = ishft(data_tmp, 18)
35928  data_tmp = iand(data_tmp, mask_left(2))
35929  pack_tmp = ior(pack_tmp, data_tmp)
35930  ipack = ipack + 1
35931  packed_data(ipack) = pack_tmp
35932  data_tmp = full_data(idata)
35933  pack_tmp = ishft(data_tmp, 20)
35934  pack_tmp = ishft(pack_tmp, -20)
35935  idata = idata + 1
35936  data_tmp = full_data(idata)
35937  data_tmp = ishft(data_tmp, 18)
35938  data_tmp = iand(data_tmp, mask_left(20))
35939  pack_tmp = ior(pack_tmp, data_tmp)
35940  ipack = ipack + 1
35941  packed_data(ipack) = pack_tmp
35942  data_tmp = full_data(idata)
35943  pack_tmp = ishft(data_tmp, 38)
35944  pack_tmp = ishft(pack_tmp, -38)
35945  idata = idata + 1
35946  data_tmp = full_data(idata)
35947  data_tmp = ishft(data_tmp, 18)
35948  data_tmp = iand(data_tmp, mask_left(38))
35949  pack_tmp = ior(pack_tmp, data_tmp)
35950  ipack = ipack + 1
35951  packed_data(ipack) = pack_tmp
35952  data_tmp = full_data(idata)
35953  pack_tmp = ishft(data_tmp, 56)
35954  pack_tmp = ishft(pack_tmp, -46)
35955  idata = idata + 1
35956  data_tmp = full_data(idata)
35957  data_tmp = ishft(data_tmp, 18)
35958  pack_tmp = ior(pack_tmp, data_tmp)
35959  pack_tmp = ishft(pack_tmp, -10)
35960  idata = idata + 1
35961  data_tmp = full_data(idata)
35962  data_tmp = ishft(data_tmp, 18)
35963  data_tmp = iand(data_tmp, mask_left(10))
35964  pack_tmp = ior(pack_tmp, data_tmp)
35965  ipack = ipack + 1
35966  packed_data(ipack) = pack_tmp
35967  data_tmp = full_data(idata)
35968  pack_tmp = ishft(data_tmp, 28)
35969  pack_tmp = ishft(pack_tmp, -28)
35970  idata = idata + 1
35971  data_tmp = full_data(idata)
35972  data_tmp = ishft(data_tmp, 18)
35973  data_tmp = iand(data_tmp, mask_left(28))
35974  pack_tmp = ior(pack_tmp, data_tmp)
35975  ipack = ipack + 1
35976  packed_data(ipack) = pack_tmp
35977  data_tmp = full_data(idata)
35978  pack_tmp = ishft(data_tmp, 46)
35979  pack_tmp = ishft(pack_tmp, -46)
35980  idata = idata + 1
35981  data_tmp = full_data(idata)
35982  data_tmp = ishft(data_tmp, 18)
35983  pack_tmp = ior(pack_tmp, data_tmp)
35984  pack_tmp = ishft(pack_tmp, 0)
35985  idata = idata + 1
35986  data_tmp = full_data(idata)
35987  data_tmp = ishft(data_tmp, 18)
35988  data_tmp = iand(data_tmp, mask_left(0))
35989  pack_tmp = ior(pack_tmp, data_tmp)
35990  ipack = ipack + 1
35991  packed_data(ipack) = pack_tmp
35992  data_tmp = full_data(idata)
35993  pack_tmp = ishft(data_tmp, 18)
35994  pack_tmp = ishft(pack_tmp, -18)
35995  idata = idata + 1
35996  data_tmp = full_data(idata)
35997  data_tmp = ishft(data_tmp, 18)
35998  data_tmp = iand(data_tmp, mask_left(18))
35999  pack_tmp = ior(pack_tmp, data_tmp)
36000  ipack = ipack + 1
36001  packed_data(ipack) = pack_tmp
36002  data_tmp = full_data(idata)
36003  pack_tmp = ishft(data_tmp, 36)
36004  pack_tmp = ishft(pack_tmp, -36)
36005  idata = idata + 1
36006  data_tmp = full_data(idata)
36007  data_tmp = ishft(data_tmp, 18)
36008  data_tmp = iand(data_tmp, mask_left(36))
36009  pack_tmp = ior(pack_tmp, data_tmp)
36010  ipack = ipack + 1
36011  packed_data(ipack) = pack_tmp
36012  data_tmp = full_data(idata)
36013  pack_tmp = ishft(data_tmp, 54)
36014  pack_tmp = ishft(pack_tmp, -46)
36015  idata = idata + 1
36016  data_tmp = full_data(idata)
36017  data_tmp = ishft(data_tmp, 18)
36018  pack_tmp = ior(pack_tmp, data_tmp)
36019  pack_tmp = ishft(pack_tmp, -8)
36020  idata = idata + 1
36021  data_tmp = full_data(idata)
36022  data_tmp = ishft(data_tmp, 18)
36023  data_tmp = iand(data_tmp, mask_left(8))
36024  pack_tmp = ior(pack_tmp, data_tmp)
36025  ipack = ipack + 1
36026  packed_data(ipack) = pack_tmp
36027  data_tmp = full_data(idata)
36028  pack_tmp = ishft(data_tmp, 26)
36029  pack_tmp = ishft(pack_tmp, -26)
36030  idata = idata + 1
36031  data_tmp = full_data(idata)
36032  data_tmp = ishft(data_tmp, 18)
36033  data_tmp = iand(data_tmp, mask_left(26))
36034  pack_tmp = ior(pack_tmp, data_tmp)
36035  ipack = ipack + 1
36036  packed_data(ipack) = pack_tmp
36037  data_tmp = full_data(idata)
36038  pack_tmp = ishft(data_tmp, 44)
36039  pack_tmp = ishft(pack_tmp, -44)
36040  idata = idata + 1
36041  data_tmp = full_data(idata)
36042  data_tmp = ishft(data_tmp, 18)
36043  data_tmp = iand(data_tmp, mask_left(44))
36044  pack_tmp = ior(pack_tmp, data_tmp)
36045  ipack = ipack + 1
36046  packed_data(ipack) = pack_tmp
36047  data_tmp = full_data(idata)
36048  pack_tmp = ishft(data_tmp, 62)
36049  pack_tmp = ishft(pack_tmp, -46)
36050  idata = idata + 1
36051  data_tmp = full_data(idata)
36052  data_tmp = ishft(data_tmp, 18)
36053  pack_tmp = ior(pack_tmp, data_tmp)
36054  pack_tmp = ishft(pack_tmp, -16)
36055  idata = idata + 1
36056  data_tmp = full_data(idata)
36057  data_tmp = ishft(data_tmp, 18)
36058  data_tmp = iand(data_tmp, mask_left(16))
36059  pack_tmp = ior(pack_tmp, data_tmp)
36060  ipack = ipack + 1
36061  packed_data(ipack) = pack_tmp
36062  data_tmp = full_data(idata)
36063  pack_tmp = ishft(data_tmp, 34)
36064  pack_tmp = ishft(pack_tmp, -34)
36065  idata = idata + 1
36066  data_tmp = full_data(idata)
36067  data_tmp = ishft(data_tmp, 18)
36068  data_tmp = iand(data_tmp, mask_left(34))
36069  pack_tmp = ior(pack_tmp, data_tmp)
36070  ipack = ipack + 1
36071  packed_data(ipack) = pack_tmp
36072  data_tmp = full_data(idata)
36073  pack_tmp = ishft(data_tmp, 52)
36074  pack_tmp = ishft(pack_tmp, -46)
36075  idata = idata + 1
36076  data_tmp = full_data(idata)
36077  data_tmp = ishft(data_tmp, 18)
36078  pack_tmp = ior(pack_tmp, data_tmp)
36079  pack_tmp = ishft(pack_tmp, -6)
36080  idata = idata + 1
36081  data_tmp = full_data(idata)
36082  data_tmp = ishft(data_tmp, 18)
36083  data_tmp = iand(data_tmp, mask_left(6))
36084  pack_tmp = ior(pack_tmp, data_tmp)
36085  ipack = ipack + 1
36086  packed_data(ipack) = pack_tmp
36087  data_tmp = full_data(idata)
36088  pack_tmp = ishft(data_tmp, 24)
36089  pack_tmp = ishft(pack_tmp, -24)
36090  idata = idata + 1
36091  data_tmp = full_data(idata)
36092  data_tmp = ishft(data_tmp, 18)
36093  data_tmp = iand(data_tmp, mask_left(24))
36094  pack_tmp = ior(pack_tmp, data_tmp)
36095  ipack = ipack + 1
36096  packed_data(ipack) = pack_tmp
36097  data_tmp = full_data(idata)
36098  pack_tmp = ishft(data_tmp, 42)
36099  pack_tmp = ishft(pack_tmp, -42)
36100  idata = idata + 1
36101  data_tmp = full_data(idata)
36102  data_tmp = ishft(data_tmp, 18)
36103  data_tmp = iand(data_tmp, mask_left(42))
36104  pack_tmp = ior(pack_tmp, data_tmp)
36105  ipack = ipack + 1
36106  packed_data(ipack) = pack_tmp
36107  data_tmp = full_data(idata)
36108  pack_tmp = ishft(data_tmp, 60)
36109  pack_tmp = ishft(pack_tmp, -46)
36110  idata = idata + 1
36111  data_tmp = full_data(idata)
36112  data_tmp = ishft(data_tmp, 18)
36113  pack_tmp = ior(pack_tmp, data_tmp)
36114  pack_tmp = ishft(pack_tmp, -14)
36115  idata = idata + 1
36116  data_tmp = full_data(idata)
36117  data_tmp = ishft(data_tmp, 18)
36118  data_tmp = iand(data_tmp, mask_left(14))
36119  pack_tmp = ior(pack_tmp, data_tmp)
36120  ipack = ipack + 1
36121  packed_data(ipack) = pack_tmp
36122  data_tmp = full_data(idata)
36123  pack_tmp = ishft(data_tmp, 32)
36124  pack_tmp = ishft(pack_tmp, -32)
36125  idata = idata + 1
36126  data_tmp = full_data(idata)
36127  data_tmp = ishft(data_tmp, 18)
36128  data_tmp = iand(data_tmp, mask_left(32))
36129  pack_tmp = ior(pack_tmp, data_tmp)
36130  ipack = ipack + 1
36131  packed_data(ipack) = pack_tmp
36132  data_tmp = full_data(idata)
36133  pack_tmp = ishft(data_tmp, 50)
36134  pack_tmp = ishft(pack_tmp, -46)
36135  idata = idata + 1
36136  data_tmp = full_data(idata)
36137  data_tmp = ishft(data_tmp, 18)
36138  pack_tmp = ior(pack_tmp, data_tmp)
36139  pack_tmp = ishft(pack_tmp, -4)
36140  idata = idata + 1
36141  data_tmp = full_data(idata)
36142  data_tmp = ishft(data_tmp, 18)
36143  data_tmp = iand(data_tmp, mask_left(4))
36144  pack_tmp = ior(pack_tmp, data_tmp)
36145  ipack = ipack + 1
36146  packed_data(ipack) = pack_tmp
36147  data_tmp = full_data(idata)
36148  pack_tmp = ishft(data_tmp, 22)
36149  pack_tmp = ishft(pack_tmp, -22)
36150  idata = idata + 1
36151  data_tmp = full_data(idata)
36152  data_tmp = ishft(data_tmp, 18)
36153  data_tmp = iand(data_tmp, mask_left(22))
36154  pack_tmp = ior(pack_tmp, data_tmp)
36155  ipack = ipack + 1
36156  packed_data(ipack) = pack_tmp
36157  data_tmp = full_data(idata)
36158  pack_tmp = ishft(data_tmp, 40)
36159  pack_tmp = ishft(pack_tmp, -40)
36160  idata = idata + 1
36161  data_tmp = full_data(idata)
36162  data_tmp = ishft(data_tmp, 18)
36163  data_tmp = iand(data_tmp, mask_left(40))
36164  pack_tmp = ior(pack_tmp, data_tmp)
36165  ipack = ipack + 1
36166  packed_data(ipack) = pack_tmp
36167  data_tmp = full_data(idata)
36168  pack_tmp = ishft(data_tmp, 58)
36169  pack_tmp = ishft(pack_tmp, -46)
36170  idata = idata + 1
36171  data_tmp = full_data(idata)
36172  data_tmp = ishft(data_tmp, 18)
36173  pack_tmp = ior(pack_tmp, data_tmp)
36174  pack_tmp = ishft(pack_tmp, -12)
36175  idata = idata + 1
36176  data_tmp = full_data(idata)
36177  data_tmp = ishft(data_tmp, 18)
36178  data_tmp = iand(data_tmp, mask_left(12))
36179  pack_tmp = ior(pack_tmp, data_tmp)
36180  ipack = ipack + 1
36181  packed_data(ipack) = pack_tmp
36182  data_tmp = full_data(idata)
36183  pack_tmp = ishft(data_tmp, 30)
36184  pack_tmp = ishft(pack_tmp, -30)
36185  idata = idata + 1
36186  data_tmp = full_data(idata)
36187  data_tmp = ishft(data_tmp, 18)
36188  data_tmp = iand(data_tmp, mask_left(30))
36189  pack_tmp = ior(pack_tmp, data_tmp)
36190  ipack = ipack + 1
36191  packed_data(ipack) = pack_tmp
36192  data_tmp = full_data(idata)
36193  pack_tmp = ishft(data_tmp, 48)
36194  pack_tmp = ishft(pack_tmp, -46)
36195  idata = idata + 1
36196  data_tmp = full_data(idata)
36197  data_tmp = ishft(data_tmp, 18)
36198  pack_tmp = ior(pack_tmp, data_tmp)
36199  pack_tmp = ishft(pack_tmp, -2)
36200  idata = idata + 1
36201  data_tmp = full_data(idata)
36202  data_tmp = ishft(data_tmp, 18)
36203  data_tmp = iand(data_tmp, mask_left(2))
36204  pack_tmp = ior(pack_tmp, data_tmp)
36205  ipack = ipack + 1
36206  packed_data(ipack) = pack_tmp
36207  data_tmp = full_data(idata)
36208  pack_tmp = ishft(data_tmp, 20)
36209  pack_tmp = ishft(pack_tmp, -20)
36210  idata = idata + 1
36211  data_tmp = full_data(idata)
36212  data_tmp = ishft(data_tmp, 18)
36213  data_tmp = iand(data_tmp, mask_left(20))
36214  pack_tmp = ior(pack_tmp, data_tmp)
36215  ipack = ipack + 1
36216  packed_data(ipack) = pack_tmp
36217  data_tmp = full_data(idata)
36218  pack_tmp = ishft(data_tmp, 38)
36219  pack_tmp = ishft(pack_tmp, -38)
36220  idata = idata + 1
36221  data_tmp = full_data(idata)
36222  data_tmp = ishft(data_tmp, 18)
36223  data_tmp = iand(data_tmp, mask_left(38))
36224  pack_tmp = ior(pack_tmp, data_tmp)
36225  ipack = ipack + 1
36226  packed_data(ipack) = pack_tmp
36227  data_tmp = full_data(idata)
36228  pack_tmp = ishft(data_tmp, 56)
36229  pack_tmp = ishft(pack_tmp, -46)
36230  idata = idata + 1
36231  data_tmp = full_data(idata)
36232  data_tmp = ishft(data_tmp, 18)
36233  pack_tmp = ior(pack_tmp, data_tmp)
36234  pack_tmp = ishft(pack_tmp, -10)
36235  idata = idata + 1
36236  data_tmp = full_data(idata)
36237  data_tmp = ishft(data_tmp, 18)
36238  data_tmp = iand(data_tmp, mask_left(10))
36239  pack_tmp = ior(pack_tmp, data_tmp)
36240  ipack = ipack + 1
36241  packed_data(ipack) = pack_tmp
36242  data_tmp = full_data(idata)
36243  pack_tmp = ishft(data_tmp, 28)
36244  pack_tmp = ishft(pack_tmp, -28)
36245  idata = idata + 1
36246  data_tmp = full_data(idata)
36247  data_tmp = ishft(data_tmp, 18)
36248  data_tmp = iand(data_tmp, mask_left(28))
36249  pack_tmp = ior(pack_tmp, data_tmp)
36250  ipack = ipack + 1
36251  packed_data(ipack) = pack_tmp
36252  data_tmp = full_data(idata)
36253  pack_tmp = ishft(data_tmp, 46)
36254  pack_tmp = ishft(pack_tmp, -46)
36255  idata = idata + 1
36256  data_tmp = full_data(idata)
36257  data_tmp = ishft(data_tmp, 18)
36258  pack_tmp = ior(pack_tmp, data_tmp)
36259  pack_tmp = ishft(pack_tmp, 0)
36260  pack_tmp = ishft(pack_tmp, 0)
36261  ipack = ipack + 1
36262  packed_data(ipack) = pack_tmp
36263  END DO
36264  IF (ndata_rep < ndata) THEN
36265  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
36266  END IF
36267  END SUBROUTINE ints2bits_46
36268 
36269 ! **************************************************************************************************
36270 !> \brief ...
36271 !> \param Ndata ...
36272 !> \param packed_data ...
36273 !> \param full_data ...
36274 ! **************************************************************************************************
36275  SUBROUTINE bits2ints_46(Ndata, packed_data, full_data)
36276  INTEGER, INTENT(IN) :: Ndata
36277  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
36278  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
36279 
36280  INTEGER, PARAMETER :: Nbits = 46
36281 
36282  INTEGER :: idata, ipack, kdata, Ndata_rep
36283  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
36284 
36285  ipack = 0
36286  idata = 0
36287  pack_tmp = 0
36288  ndata_rep = (ndata/64)*64
36289  DO kdata = 1, ndata_rep, 64
36290  idata = idata + 1
36291  data_tmp = ishft(pack_tmp, 46)
36292  ipack = ipack + 1
36293  pack_tmp = packed_data(ipack)
36294  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
36295  pack_tmp = ishft(pack_tmp, -46)
36296  idata = idata + 1
36297  data_tmp = ishft(pack_tmp, 28)
36298  ipack = ipack + 1
36299  pack_tmp = packed_data(ipack)
36300  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
36301  pack_tmp = ishft(pack_tmp, -28)
36302  idata = idata + 1
36303  data_tmp = ishft(pack_tmp, 10)
36304  ipack = ipack + 1
36305  pack_tmp = packed_data(ipack)
36306  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
36307  pack_tmp = ishft(pack_tmp, -10)
36308  idata = idata + 1
36309  data_tmp = iand(pack_tmp, mask_right(nbits))
36310  full_data(idata) = data_tmp
36311  pack_tmp = ishft(pack_tmp, -nbits)
36312  idata = idata + 1
36313  data_tmp = ishft(pack_tmp, 38)
36314  ipack = ipack + 1
36315  pack_tmp = packed_data(ipack)
36316  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
36317  pack_tmp = ishft(pack_tmp, -38)
36318  idata = idata + 1
36319  data_tmp = ishft(pack_tmp, 20)
36320  ipack = ipack + 1
36321  pack_tmp = packed_data(ipack)
36322  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
36323  pack_tmp = ishft(pack_tmp, -20)
36324  idata = idata + 1
36325  data_tmp = ishft(pack_tmp, 2)
36326  ipack = ipack + 1
36327  pack_tmp = packed_data(ipack)
36328  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
36329  pack_tmp = ishft(pack_tmp, -2)
36330  idata = idata + 1
36331  data_tmp = iand(pack_tmp, mask_right(nbits))
36332  full_data(idata) = data_tmp
36333  pack_tmp = ishft(pack_tmp, -nbits)
36334  idata = idata + 1
36335  data_tmp = ishft(pack_tmp, 30)
36336  ipack = ipack + 1
36337  pack_tmp = packed_data(ipack)
36338  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
36339  pack_tmp = ishft(pack_tmp, -30)
36340  idata = idata + 1
36341  data_tmp = ishft(pack_tmp, 12)
36342  ipack = ipack + 1
36343  pack_tmp = packed_data(ipack)
36344  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
36345  pack_tmp = ishft(pack_tmp, -12)
36346  idata = idata + 1
36347  data_tmp = iand(pack_tmp, mask_right(nbits))
36348  full_data(idata) = data_tmp
36349  pack_tmp = ishft(pack_tmp, -nbits)
36350  idata = idata + 1
36351  data_tmp = ishft(pack_tmp, 40)
36352  ipack = ipack + 1
36353  pack_tmp = packed_data(ipack)
36354  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
36355  pack_tmp = ishft(pack_tmp, -40)
36356  idata = idata + 1
36357  data_tmp = ishft(pack_tmp, 22)
36358  ipack = ipack + 1
36359  pack_tmp = packed_data(ipack)
36360  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
36361  pack_tmp = ishft(pack_tmp, -22)
36362  idata = idata + 1
36363  data_tmp = ishft(pack_tmp, 4)
36364  ipack = ipack + 1
36365  pack_tmp = packed_data(ipack)
36366  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
36367  pack_tmp = ishft(pack_tmp, -4)
36368  idata = idata + 1
36369  data_tmp = iand(pack_tmp, mask_right(nbits))
36370  full_data(idata) = data_tmp
36371  pack_tmp = ishft(pack_tmp, -nbits)
36372  idata = idata + 1
36373  data_tmp = ishft(pack_tmp, 32)
36374  ipack = ipack + 1
36375  pack_tmp = packed_data(ipack)
36376  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
36377  pack_tmp = ishft(pack_tmp, -32)
36378  idata = idata + 1
36379  data_tmp = ishft(pack_tmp, 14)
36380  ipack = ipack + 1
36381  pack_tmp = packed_data(ipack)
36382  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
36383  pack_tmp = ishft(pack_tmp, -14)
36384  idata = idata + 1
36385  data_tmp = iand(pack_tmp, mask_right(nbits))
36386  full_data(idata) = data_tmp
36387  pack_tmp = ishft(pack_tmp, -nbits)
36388  idata = idata + 1
36389  data_tmp = ishft(pack_tmp, 42)
36390  ipack = ipack + 1
36391  pack_tmp = packed_data(ipack)
36392  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
36393  pack_tmp = ishft(pack_tmp, -42)
36394  idata = idata + 1
36395  data_tmp = ishft(pack_tmp, 24)
36396  ipack = ipack + 1
36397  pack_tmp = packed_data(ipack)
36398  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
36399  pack_tmp = ishft(pack_tmp, -24)
36400  idata = idata + 1
36401  data_tmp = ishft(pack_tmp, 6)
36402  ipack = ipack + 1
36403  pack_tmp = packed_data(ipack)
36404  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
36405  pack_tmp = ishft(pack_tmp, -6)
36406  idata = idata + 1
36407  data_tmp = iand(pack_tmp, mask_right(nbits))
36408  full_data(idata) = data_tmp
36409  pack_tmp = ishft(pack_tmp, -nbits)
36410  idata = idata + 1
36411  data_tmp = ishft(pack_tmp, 34)
36412  ipack = ipack + 1
36413  pack_tmp = packed_data(ipack)
36414  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
36415  pack_tmp = ishft(pack_tmp, -34)
36416  idata = idata + 1
36417  data_tmp = ishft(pack_tmp, 16)
36418  ipack = ipack + 1
36419  pack_tmp = packed_data(ipack)
36420  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
36421  pack_tmp = ishft(pack_tmp, -16)
36422  idata = idata + 1
36423  data_tmp = iand(pack_tmp, mask_right(nbits))
36424  full_data(idata) = data_tmp
36425  pack_tmp = ishft(pack_tmp, -nbits)
36426  idata = idata + 1
36427  data_tmp = ishft(pack_tmp, 44)
36428  ipack = ipack + 1
36429  pack_tmp = packed_data(ipack)
36430  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
36431  pack_tmp = ishft(pack_tmp, -44)
36432  idata = idata + 1
36433  data_tmp = ishft(pack_tmp, 26)
36434  ipack = ipack + 1
36435  pack_tmp = packed_data(ipack)
36436  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
36437  pack_tmp = ishft(pack_tmp, -26)
36438  idata = idata + 1
36439  data_tmp = ishft(pack_tmp, 8)
36440  ipack = ipack + 1
36441  pack_tmp = packed_data(ipack)
36442  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
36443  pack_tmp = ishft(pack_tmp, -8)
36444  idata = idata + 1
36445  data_tmp = iand(pack_tmp, mask_right(nbits))
36446  full_data(idata) = data_tmp
36447  pack_tmp = ishft(pack_tmp, -nbits)
36448  idata = idata + 1
36449  data_tmp = ishft(pack_tmp, 36)
36450  ipack = ipack + 1
36451  pack_tmp = packed_data(ipack)
36452  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
36453  pack_tmp = ishft(pack_tmp, -36)
36454  idata = idata + 1
36455  data_tmp = ishft(pack_tmp, 18)
36456  ipack = ipack + 1
36457  pack_tmp = packed_data(ipack)
36458  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
36459  pack_tmp = ishft(pack_tmp, -18)
36460  idata = idata + 1
36461  data_tmp = iand(pack_tmp, mask_right(nbits))
36462  full_data(idata) = data_tmp
36463  pack_tmp = ishft(pack_tmp, -nbits)
36464  idata = idata + 1
36465  data_tmp = ishft(pack_tmp, 46)
36466  ipack = ipack + 1
36467  pack_tmp = packed_data(ipack)
36468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
36469  pack_tmp = ishft(pack_tmp, -46)
36470  idata = idata + 1
36471  data_tmp = ishft(pack_tmp, 28)
36472  ipack = ipack + 1
36473  pack_tmp = packed_data(ipack)
36474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
36475  pack_tmp = ishft(pack_tmp, -28)
36476  idata = idata + 1
36477  data_tmp = ishft(pack_tmp, 10)
36478  ipack = ipack + 1
36479  pack_tmp = packed_data(ipack)
36480  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
36481  pack_tmp = ishft(pack_tmp, -10)
36482  idata = idata + 1
36483  data_tmp = iand(pack_tmp, mask_right(nbits))
36484  full_data(idata) = data_tmp
36485  pack_tmp = ishft(pack_tmp, -nbits)
36486  idata = idata + 1
36487  data_tmp = ishft(pack_tmp, 38)
36488  ipack = ipack + 1
36489  pack_tmp = packed_data(ipack)
36490  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
36491  pack_tmp = ishft(pack_tmp, -38)
36492  idata = idata + 1
36493  data_tmp = ishft(pack_tmp, 20)
36494  ipack = ipack + 1
36495  pack_tmp = packed_data(ipack)
36496  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
36497  pack_tmp = ishft(pack_tmp, -20)
36498  idata = idata + 1
36499  data_tmp = ishft(pack_tmp, 2)
36500  ipack = ipack + 1
36501  pack_tmp = packed_data(ipack)
36502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
36503  pack_tmp = ishft(pack_tmp, -2)
36504  idata = idata + 1
36505  data_tmp = iand(pack_tmp, mask_right(nbits))
36506  full_data(idata) = data_tmp
36507  pack_tmp = ishft(pack_tmp, -nbits)
36508  idata = idata + 1
36509  data_tmp = ishft(pack_tmp, 30)
36510  ipack = ipack + 1
36511  pack_tmp = packed_data(ipack)
36512  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
36513  pack_tmp = ishft(pack_tmp, -30)
36514  idata = idata + 1
36515  data_tmp = ishft(pack_tmp, 12)
36516  ipack = ipack + 1
36517  pack_tmp = packed_data(ipack)
36518  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
36519  pack_tmp = ishft(pack_tmp, -12)
36520  idata = idata + 1
36521  data_tmp = iand(pack_tmp, mask_right(nbits))
36522  full_data(idata) = data_tmp
36523  pack_tmp = ishft(pack_tmp, -nbits)
36524  idata = idata + 1
36525  data_tmp = ishft(pack_tmp, 40)
36526  ipack = ipack + 1
36527  pack_tmp = packed_data(ipack)
36528  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
36529  pack_tmp = ishft(pack_tmp, -40)
36530  idata = idata + 1
36531  data_tmp = ishft(pack_tmp, 22)
36532  ipack = ipack + 1
36533  pack_tmp = packed_data(ipack)
36534  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
36535  pack_tmp = ishft(pack_tmp, -22)
36536  idata = idata + 1
36537  data_tmp = ishft(pack_tmp, 4)
36538  ipack = ipack + 1
36539  pack_tmp = packed_data(ipack)
36540  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
36541  pack_tmp = ishft(pack_tmp, -4)
36542  idata = idata + 1
36543  data_tmp = iand(pack_tmp, mask_right(nbits))
36544  full_data(idata) = data_tmp
36545  pack_tmp = ishft(pack_tmp, -nbits)
36546  idata = idata + 1
36547  data_tmp = ishft(pack_tmp, 32)
36548  ipack = ipack + 1
36549  pack_tmp = packed_data(ipack)
36550  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
36551  pack_tmp = ishft(pack_tmp, -32)
36552  idata = idata + 1
36553  data_tmp = ishft(pack_tmp, 14)
36554  ipack = ipack + 1
36555  pack_tmp = packed_data(ipack)
36556  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
36557  pack_tmp = ishft(pack_tmp, -14)
36558  idata = idata + 1
36559  data_tmp = iand(pack_tmp, mask_right(nbits))
36560  full_data(idata) = data_tmp
36561  pack_tmp = ishft(pack_tmp, -nbits)
36562  idata = idata + 1
36563  data_tmp = ishft(pack_tmp, 42)
36564  ipack = ipack + 1
36565  pack_tmp = packed_data(ipack)
36566  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
36567  pack_tmp = ishft(pack_tmp, -42)
36568  idata = idata + 1
36569  data_tmp = ishft(pack_tmp, 24)
36570  ipack = ipack + 1
36571  pack_tmp = packed_data(ipack)
36572  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
36573  pack_tmp = ishft(pack_tmp, -24)
36574  idata = idata + 1
36575  data_tmp = ishft(pack_tmp, 6)
36576  ipack = ipack + 1
36577  pack_tmp = packed_data(ipack)
36578  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
36579  pack_tmp = ishft(pack_tmp, -6)
36580  idata = idata + 1
36581  data_tmp = iand(pack_tmp, mask_right(nbits))
36582  full_data(idata) = data_tmp
36583  pack_tmp = ishft(pack_tmp, -nbits)
36584  idata = idata + 1
36585  data_tmp = ishft(pack_tmp, 34)
36586  ipack = ipack + 1
36587  pack_tmp = packed_data(ipack)
36588  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
36589  pack_tmp = ishft(pack_tmp, -34)
36590  idata = idata + 1
36591  data_tmp = ishft(pack_tmp, 16)
36592  ipack = ipack + 1
36593  pack_tmp = packed_data(ipack)
36594  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
36595  pack_tmp = ishft(pack_tmp, -16)
36596  idata = idata + 1
36597  data_tmp = iand(pack_tmp, mask_right(nbits))
36598  full_data(idata) = data_tmp
36599  pack_tmp = ishft(pack_tmp, -nbits)
36600  idata = idata + 1
36601  data_tmp = ishft(pack_tmp, 44)
36602  ipack = ipack + 1
36603  pack_tmp = packed_data(ipack)
36604  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
36605  pack_tmp = ishft(pack_tmp, -44)
36606  idata = idata + 1
36607  data_tmp = ishft(pack_tmp, 26)
36608  ipack = ipack + 1
36609  pack_tmp = packed_data(ipack)
36610  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
36611  pack_tmp = ishft(pack_tmp, -26)
36612  idata = idata + 1
36613  data_tmp = ishft(pack_tmp, 8)
36614  ipack = ipack + 1
36615  pack_tmp = packed_data(ipack)
36616  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
36617  pack_tmp = ishft(pack_tmp, -8)
36618  idata = idata + 1
36619  data_tmp = iand(pack_tmp, mask_right(nbits))
36620  full_data(idata) = data_tmp
36621  pack_tmp = ishft(pack_tmp, -nbits)
36622  idata = idata + 1
36623  data_tmp = ishft(pack_tmp, 36)
36624  ipack = ipack + 1
36625  pack_tmp = packed_data(ipack)
36626  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
36627  pack_tmp = ishft(pack_tmp, -36)
36628  idata = idata + 1
36629  data_tmp = ishft(pack_tmp, 18)
36630  ipack = ipack + 1
36631  pack_tmp = packed_data(ipack)
36632  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
36633  pack_tmp = ishft(pack_tmp, -18)
36634  idata = idata + 1
36635  data_tmp = iand(pack_tmp, mask_right(nbits))
36636  full_data(idata) = data_tmp
36637  pack_tmp = ishft(pack_tmp, -nbits)
36638  END DO
36639  IF (ndata_rep < ndata) THEN
36640  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
36641  END IF
36642  END SUBROUTINE bits2ints_46
36643 
36644 ! **************************************************************************************************
36645 !> \brief ...
36646 !> \param Ndata ...
36647 !> \param packed_data ...
36648 !> \param full_data ...
36649 ! **************************************************************************************************
36650  SUBROUTINE ints2bits_47(Ndata, packed_data, full_data)
36651  INTEGER, INTENT(IN) :: Ndata
36652  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
36653  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
36654 
36655  INTEGER, PARAMETER :: Nbits = 47
36656 
36657  INTEGER :: idata, ipack, kdata, Ndata_rep
36658  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
36659 
36660  idata = 0
36661  ipack = 0
36662  ndata_rep = (ndata/64)*64
36663  DO kdata = 1, ndata_rep, 64
36664  pack_tmp = 0
36665  idata = idata + 1
36666  data_tmp = full_data(idata)
36667  data_tmp = ishft(data_tmp, 17)
36668  pack_tmp = ior(pack_tmp, data_tmp)
36669  pack_tmp = ishft(pack_tmp, -17)
36670  idata = idata + 1
36671  data_tmp = full_data(idata)
36672  data_tmp = ishft(data_tmp, 17)
36673  data_tmp = iand(data_tmp, mask_left(17))
36674  pack_tmp = ior(pack_tmp, data_tmp)
36675  ipack = ipack + 1
36676  packed_data(ipack) = pack_tmp
36677  data_tmp = full_data(idata)
36678  pack_tmp = ishft(data_tmp, 34)
36679  pack_tmp = ishft(pack_tmp, -34)
36680  idata = idata + 1
36681  data_tmp = full_data(idata)
36682  data_tmp = ishft(data_tmp, 17)
36683  data_tmp = iand(data_tmp, mask_left(34))
36684  pack_tmp = ior(pack_tmp, data_tmp)
36685  ipack = ipack + 1
36686  packed_data(ipack) = pack_tmp
36687  data_tmp = full_data(idata)
36688  pack_tmp = ishft(data_tmp, 51)
36689  pack_tmp = ishft(pack_tmp, -47)
36690  idata = idata + 1
36691  data_tmp = full_data(idata)
36692  data_tmp = ishft(data_tmp, 17)
36693  pack_tmp = ior(pack_tmp, data_tmp)
36694  pack_tmp = ishft(pack_tmp, -4)
36695  idata = idata + 1
36696  data_tmp = full_data(idata)
36697  data_tmp = ishft(data_tmp, 17)
36698  data_tmp = iand(data_tmp, mask_left(4))
36699  pack_tmp = ior(pack_tmp, data_tmp)
36700  ipack = ipack + 1
36701  packed_data(ipack) = pack_tmp
36702  data_tmp = full_data(idata)
36703  pack_tmp = ishft(data_tmp, 21)
36704  pack_tmp = ishft(pack_tmp, -21)
36705  idata = idata + 1
36706  data_tmp = full_data(idata)
36707  data_tmp = ishft(data_tmp, 17)
36708  data_tmp = iand(data_tmp, mask_left(21))
36709  pack_tmp = ior(pack_tmp, data_tmp)
36710  ipack = ipack + 1
36711  packed_data(ipack) = pack_tmp
36712  data_tmp = full_data(idata)
36713  pack_tmp = ishft(data_tmp, 38)
36714  pack_tmp = ishft(pack_tmp, -38)
36715  idata = idata + 1
36716  data_tmp = full_data(idata)
36717  data_tmp = ishft(data_tmp, 17)
36718  data_tmp = iand(data_tmp, mask_left(38))
36719  pack_tmp = ior(pack_tmp, data_tmp)
36720  ipack = ipack + 1
36721  packed_data(ipack) = pack_tmp
36722  data_tmp = full_data(idata)
36723  pack_tmp = ishft(data_tmp, 55)
36724  pack_tmp = ishft(pack_tmp, -47)
36725  idata = idata + 1
36726  data_tmp = full_data(idata)
36727  data_tmp = ishft(data_tmp, 17)
36728  pack_tmp = ior(pack_tmp, data_tmp)
36729  pack_tmp = ishft(pack_tmp, -8)
36730  idata = idata + 1
36731  data_tmp = full_data(idata)
36732  data_tmp = ishft(data_tmp, 17)
36733  data_tmp = iand(data_tmp, mask_left(8))
36734  pack_tmp = ior(pack_tmp, data_tmp)
36735  ipack = ipack + 1
36736  packed_data(ipack) = pack_tmp
36737  data_tmp = full_data(idata)
36738  pack_tmp = ishft(data_tmp, 25)
36739  pack_tmp = ishft(pack_tmp, -25)
36740  idata = idata + 1
36741  data_tmp = full_data(idata)
36742  data_tmp = ishft(data_tmp, 17)
36743  data_tmp = iand(data_tmp, mask_left(25))
36744  pack_tmp = ior(pack_tmp, data_tmp)
36745  ipack = ipack + 1
36746  packed_data(ipack) = pack_tmp
36747  data_tmp = full_data(idata)
36748  pack_tmp = ishft(data_tmp, 42)
36749  pack_tmp = ishft(pack_tmp, -42)
36750  idata = idata + 1
36751  data_tmp = full_data(idata)
36752  data_tmp = ishft(data_tmp, 17)
36753  data_tmp = iand(data_tmp, mask_left(42))
36754  pack_tmp = ior(pack_tmp, data_tmp)
36755  ipack = ipack + 1
36756  packed_data(ipack) = pack_tmp
36757  data_tmp = full_data(idata)
36758  pack_tmp = ishft(data_tmp, 59)
36759  pack_tmp = ishft(pack_tmp, -47)
36760  idata = idata + 1
36761  data_tmp = full_data(idata)
36762  data_tmp = ishft(data_tmp, 17)
36763  pack_tmp = ior(pack_tmp, data_tmp)
36764  pack_tmp = ishft(pack_tmp, -12)
36765  idata = idata + 1
36766  data_tmp = full_data(idata)
36767  data_tmp = ishft(data_tmp, 17)
36768  data_tmp = iand(data_tmp, mask_left(12))
36769  pack_tmp = ior(pack_tmp, data_tmp)
36770  ipack = ipack + 1
36771  packed_data(ipack) = pack_tmp
36772  data_tmp = full_data(idata)
36773  pack_tmp = ishft(data_tmp, 29)
36774  pack_tmp = ishft(pack_tmp, -29)
36775  idata = idata + 1
36776  data_tmp = full_data(idata)
36777  data_tmp = ishft(data_tmp, 17)
36778  data_tmp = iand(data_tmp, mask_left(29))
36779  pack_tmp = ior(pack_tmp, data_tmp)
36780  ipack = ipack + 1
36781  packed_data(ipack) = pack_tmp
36782  data_tmp = full_data(idata)
36783  pack_tmp = ishft(data_tmp, 46)
36784  pack_tmp = ishft(pack_tmp, -46)
36785  idata = idata + 1
36786  data_tmp = full_data(idata)
36787  data_tmp = ishft(data_tmp, 17)
36788  data_tmp = iand(data_tmp, mask_left(46))
36789  pack_tmp = ior(pack_tmp, data_tmp)
36790  ipack = ipack + 1
36791  packed_data(ipack) = pack_tmp
36792  data_tmp = full_data(idata)
36793  pack_tmp = ishft(data_tmp, 63)
36794  pack_tmp = ishft(pack_tmp, -47)
36795  idata = idata + 1
36796  data_tmp = full_data(idata)
36797  data_tmp = ishft(data_tmp, 17)
36798  pack_tmp = ior(pack_tmp, data_tmp)
36799  pack_tmp = ishft(pack_tmp, -16)
36800  idata = idata + 1
36801  data_tmp = full_data(idata)
36802  data_tmp = ishft(data_tmp, 17)
36803  data_tmp = iand(data_tmp, mask_left(16))
36804  pack_tmp = ior(pack_tmp, data_tmp)
36805  ipack = ipack + 1
36806  packed_data(ipack) = pack_tmp
36807  data_tmp = full_data(idata)
36808  pack_tmp = ishft(data_tmp, 33)
36809  pack_tmp = ishft(pack_tmp, -33)
36810  idata = idata + 1
36811  data_tmp = full_data(idata)
36812  data_tmp = ishft(data_tmp, 17)
36813  data_tmp = iand(data_tmp, mask_left(33))
36814  pack_tmp = ior(pack_tmp, data_tmp)
36815  ipack = ipack + 1
36816  packed_data(ipack) = pack_tmp
36817  data_tmp = full_data(idata)
36818  pack_tmp = ishft(data_tmp, 50)
36819  pack_tmp = ishft(pack_tmp, -47)
36820  idata = idata + 1
36821  data_tmp = full_data(idata)
36822  data_tmp = ishft(data_tmp, 17)
36823  pack_tmp = ior(pack_tmp, data_tmp)
36824  pack_tmp = ishft(pack_tmp, -3)
36825  idata = idata + 1
36826  data_tmp = full_data(idata)
36827  data_tmp = ishft(data_tmp, 17)
36828  data_tmp = iand(data_tmp, mask_left(3))
36829  pack_tmp = ior(pack_tmp, data_tmp)
36830  ipack = ipack + 1
36831  packed_data(ipack) = pack_tmp
36832  data_tmp = full_data(idata)
36833  pack_tmp = ishft(data_tmp, 20)
36834  pack_tmp = ishft(pack_tmp, -20)
36835  idata = idata + 1
36836  data_tmp = full_data(idata)
36837  data_tmp = ishft(data_tmp, 17)
36838  data_tmp = iand(data_tmp, mask_left(20))
36839  pack_tmp = ior(pack_tmp, data_tmp)
36840  ipack = ipack + 1
36841  packed_data(ipack) = pack_tmp
36842  data_tmp = full_data(idata)
36843  pack_tmp = ishft(data_tmp, 37)
36844  pack_tmp = ishft(pack_tmp, -37)
36845  idata = idata + 1
36846  data_tmp = full_data(idata)
36847  data_tmp = ishft(data_tmp, 17)
36848  data_tmp = iand(data_tmp, mask_left(37))
36849  pack_tmp = ior(pack_tmp, data_tmp)
36850  ipack = ipack + 1
36851  packed_data(ipack) = pack_tmp
36852  data_tmp = full_data(idata)
36853  pack_tmp = ishft(data_tmp, 54)
36854  pack_tmp = ishft(pack_tmp, -47)
36855  idata = idata + 1
36856  data_tmp = full_data(idata)
36857  data_tmp = ishft(data_tmp, 17)
36858  pack_tmp = ior(pack_tmp, data_tmp)
36859  pack_tmp = ishft(pack_tmp, -7)
36860  idata = idata + 1
36861  data_tmp = full_data(idata)
36862  data_tmp = ishft(data_tmp, 17)
36863  data_tmp = iand(data_tmp, mask_left(7))
36864  pack_tmp = ior(pack_tmp, data_tmp)
36865  ipack = ipack + 1
36866  packed_data(ipack) = pack_tmp
36867  data_tmp = full_data(idata)
36868  pack_tmp = ishft(data_tmp, 24)
36869  pack_tmp = ishft(pack_tmp, -24)
36870  idata = idata + 1
36871  data_tmp = full_data(idata)
36872  data_tmp = ishft(data_tmp, 17)
36873  data_tmp = iand(data_tmp, mask_left(24))
36874  pack_tmp = ior(pack_tmp, data_tmp)
36875  ipack = ipack + 1
36876  packed_data(ipack) = pack_tmp
36877  data_tmp = full_data(idata)
36878  pack_tmp = ishft(data_tmp, 41)
36879  pack_tmp = ishft(pack_tmp, -41)
36880  idata = idata + 1
36881  data_tmp = full_data(idata)
36882  data_tmp = ishft(data_tmp, 17)
36883  data_tmp = iand(data_tmp, mask_left(41))
36884  pack_tmp = ior(pack_tmp, data_tmp)
36885  ipack = ipack + 1
36886  packed_data(ipack) = pack_tmp
36887  data_tmp = full_data(idata)
36888  pack_tmp = ishft(data_tmp, 58)
36889  pack_tmp = ishft(pack_tmp, -47)
36890  idata = idata + 1
36891  data_tmp = full_data(idata)
36892  data_tmp = ishft(data_tmp, 17)
36893  pack_tmp = ior(pack_tmp, data_tmp)
36894  pack_tmp = ishft(pack_tmp, -11)
36895  idata = idata + 1
36896  data_tmp = full_data(idata)
36897  data_tmp = ishft(data_tmp, 17)
36898  data_tmp = iand(data_tmp, mask_left(11))
36899  pack_tmp = ior(pack_tmp, data_tmp)
36900  ipack = ipack + 1
36901  packed_data(ipack) = pack_tmp
36902  data_tmp = full_data(idata)
36903  pack_tmp = ishft(data_tmp, 28)
36904  pack_tmp = ishft(pack_tmp, -28)
36905  idata = idata + 1
36906  data_tmp = full_data(idata)
36907  data_tmp = ishft(data_tmp, 17)
36908  data_tmp = iand(data_tmp, mask_left(28))
36909  pack_tmp = ior(pack_tmp, data_tmp)
36910  ipack = ipack + 1
36911  packed_data(ipack) = pack_tmp
36912  data_tmp = full_data(idata)
36913  pack_tmp = ishft(data_tmp, 45)
36914  pack_tmp = ishft(pack_tmp, -45)
36915  idata = idata + 1
36916  data_tmp = full_data(idata)
36917  data_tmp = ishft(data_tmp, 17)
36918  data_tmp = iand(data_tmp, mask_left(45))
36919  pack_tmp = ior(pack_tmp, data_tmp)
36920  ipack = ipack + 1
36921  packed_data(ipack) = pack_tmp
36922  data_tmp = full_data(idata)
36923  pack_tmp = ishft(data_tmp, 62)
36924  pack_tmp = ishft(pack_tmp, -47)
36925  idata = idata + 1
36926  data_tmp = full_data(idata)
36927  data_tmp = ishft(data_tmp, 17)
36928  pack_tmp = ior(pack_tmp, data_tmp)
36929  pack_tmp = ishft(pack_tmp, -15)
36930  idata = idata + 1
36931  data_tmp = full_data(idata)
36932  data_tmp = ishft(data_tmp, 17)
36933  data_tmp = iand(data_tmp, mask_left(15))
36934  pack_tmp = ior(pack_tmp, data_tmp)
36935  ipack = ipack + 1
36936  packed_data(ipack) = pack_tmp
36937  data_tmp = full_data(idata)
36938  pack_tmp = ishft(data_tmp, 32)
36939  pack_tmp = ishft(pack_tmp, -32)
36940  idata = idata + 1
36941  data_tmp = full_data(idata)
36942  data_tmp = ishft(data_tmp, 17)
36943  data_tmp = iand(data_tmp, mask_left(32))
36944  pack_tmp = ior(pack_tmp, data_tmp)
36945  ipack = ipack + 1
36946  packed_data(ipack) = pack_tmp
36947  data_tmp = full_data(idata)
36948  pack_tmp = ishft(data_tmp, 49)
36949  pack_tmp = ishft(pack_tmp, -47)
36950  idata = idata + 1
36951  data_tmp = full_data(idata)
36952  data_tmp = ishft(data_tmp, 17)
36953  pack_tmp = ior(pack_tmp, data_tmp)
36954  pack_tmp = ishft(pack_tmp, -2)
36955  idata = idata + 1
36956  data_tmp = full_data(idata)
36957  data_tmp = ishft(data_tmp, 17)
36958  data_tmp = iand(data_tmp, mask_left(2))
36959  pack_tmp = ior(pack_tmp, data_tmp)
36960  ipack = ipack + 1
36961  packed_data(ipack) = pack_tmp
36962  data_tmp = full_data(idata)
36963  pack_tmp = ishft(data_tmp, 19)
36964  pack_tmp = ishft(pack_tmp, -19)
36965  idata = idata + 1
36966  data_tmp = full_data(idata)
36967  data_tmp = ishft(data_tmp, 17)
36968  data_tmp = iand(data_tmp, mask_left(19))
36969  pack_tmp = ior(pack_tmp, data_tmp)
36970  ipack = ipack + 1
36971  packed_data(ipack) = pack_tmp
36972  data_tmp = full_data(idata)
36973  pack_tmp = ishft(data_tmp, 36)
36974  pack_tmp = ishft(pack_tmp, -36)
36975  idata = idata + 1
36976  data_tmp = full_data(idata)
36977  data_tmp = ishft(data_tmp, 17)
36978  data_tmp = iand(data_tmp, mask_left(36))
36979  pack_tmp = ior(pack_tmp, data_tmp)
36980  ipack = ipack + 1
36981  packed_data(ipack) = pack_tmp
36982  data_tmp = full_data(idata)
36983  pack_tmp = ishft(data_tmp, 53)
36984  pack_tmp = ishft(pack_tmp, -47)
36985  idata = idata + 1
36986  data_tmp = full_data(idata)
36987  data_tmp = ishft(data_tmp, 17)
36988  pack_tmp = ior(pack_tmp, data_tmp)
36989  pack_tmp = ishft(pack_tmp, -6)
36990  idata = idata + 1
36991  data_tmp = full_data(idata)
36992  data_tmp = ishft(data_tmp, 17)
36993  data_tmp = iand(data_tmp, mask_left(6))
36994  pack_tmp = ior(pack_tmp, data_tmp)
36995  ipack = ipack + 1
36996  packed_data(ipack) = pack_tmp
36997  data_tmp = full_data(idata)
36998  pack_tmp = ishft(data_tmp, 23)
36999  pack_tmp = ishft(pack_tmp, -23)
37000  idata = idata + 1
37001  data_tmp = full_data(idata)
37002  data_tmp = ishft(data_tmp, 17)
37003  data_tmp = iand(data_tmp, mask_left(23))
37004  pack_tmp = ior(pack_tmp, data_tmp)
37005  ipack = ipack + 1
37006  packed_data(ipack) = pack_tmp
37007  data_tmp = full_data(idata)
37008  pack_tmp = ishft(data_tmp, 40)
37009  pack_tmp = ishft(pack_tmp, -40)
37010  idata = idata + 1
37011  data_tmp = full_data(idata)
37012  data_tmp = ishft(data_tmp, 17)
37013  data_tmp = iand(data_tmp, mask_left(40))
37014  pack_tmp = ior(pack_tmp, data_tmp)
37015  ipack = ipack + 1
37016  packed_data(ipack) = pack_tmp
37017  data_tmp = full_data(idata)
37018  pack_tmp = ishft(data_tmp, 57)
37019  pack_tmp = ishft(pack_tmp, -47)
37020  idata = idata + 1
37021  data_tmp = full_data(idata)
37022  data_tmp = ishft(data_tmp, 17)
37023  pack_tmp = ior(pack_tmp, data_tmp)
37024  pack_tmp = ishft(pack_tmp, -10)
37025  idata = idata + 1
37026  data_tmp = full_data(idata)
37027  data_tmp = ishft(data_tmp, 17)
37028  data_tmp = iand(data_tmp, mask_left(10))
37029  pack_tmp = ior(pack_tmp, data_tmp)
37030  ipack = ipack + 1
37031  packed_data(ipack) = pack_tmp
37032  data_tmp = full_data(idata)
37033  pack_tmp = ishft(data_tmp, 27)
37034  pack_tmp = ishft(pack_tmp, -27)
37035  idata = idata + 1
37036  data_tmp = full_data(idata)
37037  data_tmp = ishft(data_tmp, 17)
37038  data_tmp = iand(data_tmp, mask_left(27))
37039  pack_tmp = ior(pack_tmp, data_tmp)
37040  ipack = ipack + 1
37041  packed_data(ipack) = pack_tmp
37042  data_tmp = full_data(idata)
37043  pack_tmp = ishft(data_tmp, 44)
37044  pack_tmp = ishft(pack_tmp, -44)
37045  idata = idata + 1
37046  data_tmp = full_data(idata)
37047  data_tmp = ishft(data_tmp, 17)
37048  data_tmp = iand(data_tmp, mask_left(44))
37049  pack_tmp = ior(pack_tmp, data_tmp)
37050  ipack = ipack + 1
37051  packed_data(ipack) = pack_tmp
37052  data_tmp = full_data(idata)
37053  pack_tmp = ishft(data_tmp, 61)
37054  pack_tmp = ishft(pack_tmp, -47)
37055  idata = idata + 1
37056  data_tmp = full_data(idata)
37057  data_tmp = ishft(data_tmp, 17)
37058  pack_tmp = ior(pack_tmp, data_tmp)
37059  pack_tmp = ishft(pack_tmp, -14)
37060  idata = idata + 1
37061  data_tmp = full_data(idata)
37062  data_tmp = ishft(data_tmp, 17)
37063  data_tmp = iand(data_tmp, mask_left(14))
37064  pack_tmp = ior(pack_tmp, data_tmp)
37065  ipack = ipack + 1
37066  packed_data(ipack) = pack_tmp
37067  data_tmp = full_data(idata)
37068  pack_tmp = ishft(data_tmp, 31)
37069  pack_tmp = ishft(pack_tmp, -31)
37070  idata = idata + 1
37071  data_tmp = full_data(idata)
37072  data_tmp = ishft(data_tmp, 17)
37073  data_tmp = iand(data_tmp, mask_left(31))
37074  pack_tmp = ior(pack_tmp, data_tmp)
37075  ipack = ipack + 1
37076  packed_data(ipack) = pack_tmp
37077  data_tmp = full_data(idata)
37078  pack_tmp = ishft(data_tmp, 48)
37079  pack_tmp = ishft(pack_tmp, -47)
37080  idata = idata + 1
37081  data_tmp = full_data(idata)
37082  data_tmp = ishft(data_tmp, 17)
37083  pack_tmp = ior(pack_tmp, data_tmp)
37084  pack_tmp = ishft(pack_tmp, -1)
37085  idata = idata + 1
37086  data_tmp = full_data(idata)
37087  data_tmp = ishft(data_tmp, 17)
37088  data_tmp = iand(data_tmp, mask_left(1))
37089  pack_tmp = ior(pack_tmp, data_tmp)
37090  ipack = ipack + 1
37091  packed_data(ipack) = pack_tmp
37092  data_tmp = full_data(idata)
37093  pack_tmp = ishft(data_tmp, 18)
37094  pack_tmp = ishft(pack_tmp, -18)
37095  idata = idata + 1
37096  data_tmp = full_data(idata)
37097  data_tmp = ishft(data_tmp, 17)
37098  data_tmp = iand(data_tmp, mask_left(18))
37099  pack_tmp = ior(pack_tmp, data_tmp)
37100  ipack = ipack + 1
37101  packed_data(ipack) = pack_tmp
37102  data_tmp = full_data(idata)
37103  pack_tmp = ishft(data_tmp, 35)
37104  pack_tmp = ishft(pack_tmp, -35)
37105  idata = idata + 1
37106  data_tmp = full_data(idata)
37107  data_tmp = ishft(data_tmp, 17)
37108  data_tmp = iand(data_tmp, mask_left(35))
37109  pack_tmp = ior(pack_tmp, data_tmp)
37110  ipack = ipack + 1
37111  packed_data(ipack) = pack_tmp
37112  data_tmp = full_data(idata)
37113  pack_tmp = ishft(data_tmp, 52)
37114  pack_tmp = ishft(pack_tmp, -47)
37115  idata = idata + 1
37116  data_tmp = full_data(idata)
37117  data_tmp = ishft(data_tmp, 17)
37118  pack_tmp = ior(pack_tmp, data_tmp)
37119  pack_tmp = ishft(pack_tmp, -5)
37120  idata = idata + 1
37121  data_tmp = full_data(idata)
37122  data_tmp = ishft(data_tmp, 17)
37123  data_tmp = iand(data_tmp, mask_left(5))
37124  pack_tmp = ior(pack_tmp, data_tmp)
37125  ipack = ipack + 1
37126  packed_data(ipack) = pack_tmp
37127  data_tmp = full_data(idata)
37128  pack_tmp = ishft(data_tmp, 22)
37129  pack_tmp = ishft(pack_tmp, -22)
37130  idata = idata + 1
37131  data_tmp = full_data(idata)
37132  data_tmp = ishft(data_tmp, 17)
37133  data_tmp = iand(data_tmp, mask_left(22))
37134  pack_tmp = ior(pack_tmp, data_tmp)
37135  ipack = ipack + 1
37136  packed_data(ipack) = pack_tmp
37137  data_tmp = full_data(idata)
37138  pack_tmp = ishft(data_tmp, 39)
37139  pack_tmp = ishft(pack_tmp, -39)
37140  idata = idata + 1
37141  data_tmp = full_data(idata)
37142  data_tmp = ishft(data_tmp, 17)
37143  data_tmp = iand(data_tmp, mask_left(39))
37144  pack_tmp = ior(pack_tmp, data_tmp)
37145  ipack = ipack + 1
37146  packed_data(ipack) = pack_tmp
37147  data_tmp = full_data(idata)
37148  pack_tmp = ishft(data_tmp, 56)
37149  pack_tmp = ishft(pack_tmp, -47)
37150  idata = idata + 1
37151  data_tmp = full_data(idata)
37152  data_tmp = ishft(data_tmp, 17)
37153  pack_tmp = ior(pack_tmp, data_tmp)
37154  pack_tmp = ishft(pack_tmp, -9)
37155  idata = idata + 1
37156  data_tmp = full_data(idata)
37157  data_tmp = ishft(data_tmp, 17)
37158  data_tmp = iand(data_tmp, mask_left(9))
37159  pack_tmp = ior(pack_tmp, data_tmp)
37160  ipack = ipack + 1
37161  packed_data(ipack) = pack_tmp
37162  data_tmp = full_data(idata)
37163  pack_tmp = ishft(data_tmp, 26)
37164  pack_tmp = ishft(pack_tmp, -26)
37165  idata = idata + 1
37166  data_tmp = full_data(idata)
37167  data_tmp = ishft(data_tmp, 17)
37168  data_tmp = iand(data_tmp, mask_left(26))
37169  pack_tmp = ior(pack_tmp, data_tmp)
37170  ipack = ipack + 1
37171  packed_data(ipack) = pack_tmp
37172  data_tmp = full_data(idata)
37173  pack_tmp = ishft(data_tmp, 43)
37174  pack_tmp = ishft(pack_tmp, -43)
37175  idata = idata + 1
37176  data_tmp = full_data(idata)
37177  data_tmp = ishft(data_tmp, 17)
37178  data_tmp = iand(data_tmp, mask_left(43))
37179  pack_tmp = ior(pack_tmp, data_tmp)
37180  ipack = ipack + 1
37181  packed_data(ipack) = pack_tmp
37182  data_tmp = full_data(idata)
37183  pack_tmp = ishft(data_tmp, 60)
37184  pack_tmp = ishft(pack_tmp, -47)
37185  idata = idata + 1
37186  data_tmp = full_data(idata)
37187  data_tmp = ishft(data_tmp, 17)
37188  pack_tmp = ior(pack_tmp, data_tmp)
37189  pack_tmp = ishft(pack_tmp, -13)
37190  idata = idata + 1
37191  data_tmp = full_data(idata)
37192  data_tmp = ishft(data_tmp, 17)
37193  data_tmp = iand(data_tmp, mask_left(13))
37194  pack_tmp = ior(pack_tmp, data_tmp)
37195  ipack = ipack + 1
37196  packed_data(ipack) = pack_tmp
37197  data_tmp = full_data(idata)
37198  pack_tmp = ishft(data_tmp, 30)
37199  pack_tmp = ishft(pack_tmp, -30)
37200  idata = idata + 1
37201  data_tmp = full_data(idata)
37202  data_tmp = ishft(data_tmp, 17)
37203  data_tmp = iand(data_tmp, mask_left(30))
37204  pack_tmp = ior(pack_tmp, data_tmp)
37205  ipack = ipack + 1
37206  packed_data(ipack) = pack_tmp
37207  data_tmp = full_data(idata)
37208  pack_tmp = ishft(data_tmp, 47)
37209  pack_tmp = ishft(pack_tmp, -47)
37210  idata = idata + 1
37211  data_tmp = full_data(idata)
37212  data_tmp = ishft(data_tmp, 17)
37213  pack_tmp = ior(pack_tmp, data_tmp)
37214  pack_tmp = ishft(pack_tmp, 0)
37215  pack_tmp = ishft(pack_tmp, 0)
37216  ipack = ipack + 1
37217  packed_data(ipack) = pack_tmp
37218  END DO
37219  IF (ndata_rep < ndata) THEN
37220  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
37221  END IF
37222  END SUBROUTINE ints2bits_47
37223 
37224 ! **************************************************************************************************
37225 !> \brief ...
37226 !> \param Ndata ...
37227 !> \param packed_data ...
37228 !> \param full_data ...
37229 ! **************************************************************************************************
37230  SUBROUTINE bits2ints_47(Ndata, packed_data, full_data)
37231  INTEGER, INTENT(IN) :: Ndata
37232  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
37233  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
37234 
37235  INTEGER, PARAMETER :: Nbits = 47
37236 
37237  INTEGER :: idata, ipack, kdata, Ndata_rep
37238  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
37239 
37240  ipack = 0
37241  idata = 0
37242  pack_tmp = 0
37243  ndata_rep = (ndata/64)*64
37244  DO kdata = 1, ndata_rep, 64
37245  idata = idata + 1
37246  data_tmp = ishft(pack_tmp, 47)
37247  ipack = ipack + 1
37248  pack_tmp = packed_data(ipack)
37249  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
37250  pack_tmp = ishft(pack_tmp, -47)
37251  idata = idata + 1
37252  data_tmp = ishft(pack_tmp, 30)
37253  ipack = ipack + 1
37254  pack_tmp = packed_data(ipack)
37255  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
37256  pack_tmp = ishft(pack_tmp, -30)
37257  idata = idata + 1
37258  data_tmp = ishft(pack_tmp, 13)
37259  ipack = ipack + 1
37260  pack_tmp = packed_data(ipack)
37261  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
37262  pack_tmp = ishft(pack_tmp, -13)
37263  idata = idata + 1
37264  data_tmp = iand(pack_tmp, mask_right(nbits))
37265  full_data(idata) = data_tmp
37266  pack_tmp = ishft(pack_tmp, -nbits)
37267  idata = idata + 1
37268  data_tmp = ishft(pack_tmp, 43)
37269  ipack = ipack + 1
37270  pack_tmp = packed_data(ipack)
37271  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
37272  pack_tmp = ishft(pack_tmp, -43)
37273  idata = idata + 1
37274  data_tmp = ishft(pack_tmp, 26)
37275  ipack = ipack + 1
37276  pack_tmp = packed_data(ipack)
37277  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
37278  pack_tmp = ishft(pack_tmp, -26)
37279  idata = idata + 1
37280  data_tmp = ishft(pack_tmp, 9)
37281  ipack = ipack + 1
37282  pack_tmp = packed_data(ipack)
37283  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
37284  pack_tmp = ishft(pack_tmp, -9)
37285  idata = idata + 1
37286  data_tmp = iand(pack_tmp, mask_right(nbits))
37287  full_data(idata) = data_tmp
37288  pack_tmp = ishft(pack_tmp, -nbits)
37289  idata = idata + 1
37290  data_tmp = ishft(pack_tmp, 39)
37291  ipack = ipack + 1
37292  pack_tmp = packed_data(ipack)
37293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
37294  pack_tmp = ishft(pack_tmp, -39)
37295  idata = idata + 1
37296  data_tmp = ishft(pack_tmp, 22)
37297  ipack = ipack + 1
37298  pack_tmp = packed_data(ipack)
37299  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
37300  pack_tmp = ishft(pack_tmp, -22)
37301  idata = idata + 1
37302  data_tmp = ishft(pack_tmp, 5)
37303  ipack = ipack + 1
37304  pack_tmp = packed_data(ipack)
37305  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
37306  pack_tmp = ishft(pack_tmp, -5)
37307  idata = idata + 1
37308  data_tmp = iand(pack_tmp, mask_right(nbits))
37309  full_data(idata) = data_tmp
37310  pack_tmp = ishft(pack_tmp, -nbits)
37311  idata = idata + 1
37312  data_tmp = ishft(pack_tmp, 35)
37313  ipack = ipack + 1
37314  pack_tmp = packed_data(ipack)
37315  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
37316  pack_tmp = ishft(pack_tmp, -35)
37317  idata = idata + 1
37318  data_tmp = ishft(pack_tmp, 18)
37319  ipack = ipack + 1
37320  pack_tmp = packed_data(ipack)
37321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
37322  pack_tmp = ishft(pack_tmp, -18)
37323  idata = idata + 1
37324  data_tmp = ishft(pack_tmp, 1)
37325  ipack = ipack + 1
37326  pack_tmp = packed_data(ipack)
37327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
37328  pack_tmp = ishft(pack_tmp, -1)
37329  idata = idata + 1
37330  data_tmp = iand(pack_tmp, mask_right(nbits))
37331  full_data(idata) = data_tmp
37332  pack_tmp = ishft(pack_tmp, -nbits)
37333  idata = idata + 1
37334  data_tmp = ishft(pack_tmp, 31)
37335  ipack = ipack + 1
37336  pack_tmp = packed_data(ipack)
37337  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
37338  pack_tmp = ishft(pack_tmp, -31)
37339  idata = idata + 1
37340  data_tmp = ishft(pack_tmp, 14)
37341  ipack = ipack + 1
37342  pack_tmp = packed_data(ipack)
37343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
37344  pack_tmp = ishft(pack_tmp, -14)
37345  idata = idata + 1
37346  data_tmp = iand(pack_tmp, mask_right(nbits))
37347  full_data(idata) = data_tmp
37348  pack_tmp = ishft(pack_tmp, -nbits)
37349  idata = idata + 1
37350  data_tmp = ishft(pack_tmp, 44)
37351  ipack = ipack + 1
37352  pack_tmp = packed_data(ipack)
37353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
37354  pack_tmp = ishft(pack_tmp, -44)
37355  idata = idata + 1
37356  data_tmp = ishft(pack_tmp, 27)
37357  ipack = ipack + 1
37358  pack_tmp = packed_data(ipack)
37359  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
37360  pack_tmp = ishft(pack_tmp, -27)
37361  idata = idata + 1
37362  data_tmp = ishft(pack_tmp, 10)
37363  ipack = ipack + 1
37364  pack_tmp = packed_data(ipack)
37365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
37366  pack_tmp = ishft(pack_tmp, -10)
37367  idata = idata + 1
37368  data_tmp = iand(pack_tmp, mask_right(nbits))
37369  full_data(idata) = data_tmp
37370  pack_tmp = ishft(pack_tmp, -nbits)
37371  idata = idata + 1
37372  data_tmp = ishft(pack_tmp, 40)
37373  ipack = ipack + 1
37374  pack_tmp = packed_data(ipack)
37375  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
37376  pack_tmp = ishft(pack_tmp, -40)
37377  idata = idata + 1
37378  data_tmp = ishft(pack_tmp, 23)
37379  ipack = ipack + 1
37380  pack_tmp = packed_data(ipack)
37381  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
37382  pack_tmp = ishft(pack_tmp, -23)
37383  idata = idata + 1
37384  data_tmp = ishft(pack_tmp, 6)
37385  ipack = ipack + 1
37386  pack_tmp = packed_data(ipack)
37387  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
37388  pack_tmp = ishft(pack_tmp, -6)
37389  idata = idata + 1
37390  data_tmp = iand(pack_tmp, mask_right(nbits))
37391  full_data(idata) = data_tmp
37392  pack_tmp = ishft(pack_tmp, -nbits)
37393  idata = idata + 1
37394  data_tmp = ishft(pack_tmp, 36)
37395  ipack = ipack + 1
37396  pack_tmp = packed_data(ipack)
37397  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
37398  pack_tmp = ishft(pack_tmp, -36)
37399  idata = idata + 1
37400  data_tmp = ishft(pack_tmp, 19)
37401  ipack = ipack + 1
37402  pack_tmp = packed_data(ipack)
37403  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
37404  pack_tmp = ishft(pack_tmp, -19)
37405  idata = idata + 1
37406  data_tmp = ishft(pack_tmp, 2)
37407  ipack = ipack + 1
37408  pack_tmp = packed_data(ipack)
37409  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
37410  pack_tmp = ishft(pack_tmp, -2)
37411  idata = idata + 1
37412  data_tmp = iand(pack_tmp, mask_right(nbits))
37413  full_data(idata) = data_tmp
37414  pack_tmp = ishft(pack_tmp, -nbits)
37415  idata = idata + 1
37416  data_tmp = ishft(pack_tmp, 32)
37417  ipack = ipack + 1
37418  pack_tmp = packed_data(ipack)
37419  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
37420  pack_tmp = ishft(pack_tmp, -32)
37421  idata = idata + 1
37422  data_tmp = ishft(pack_tmp, 15)
37423  ipack = ipack + 1
37424  pack_tmp = packed_data(ipack)
37425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
37426  pack_tmp = ishft(pack_tmp, -15)
37427  idata = idata + 1
37428  data_tmp = iand(pack_tmp, mask_right(nbits))
37429  full_data(idata) = data_tmp
37430  pack_tmp = ishft(pack_tmp, -nbits)
37431  idata = idata + 1
37432  data_tmp = ishft(pack_tmp, 45)
37433  ipack = ipack + 1
37434  pack_tmp = packed_data(ipack)
37435  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
37436  pack_tmp = ishft(pack_tmp, -45)
37437  idata = idata + 1
37438  data_tmp = ishft(pack_tmp, 28)
37439  ipack = ipack + 1
37440  pack_tmp = packed_data(ipack)
37441  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
37442  pack_tmp = ishft(pack_tmp, -28)
37443  idata = idata + 1
37444  data_tmp = ishft(pack_tmp, 11)
37445  ipack = ipack + 1
37446  pack_tmp = packed_data(ipack)
37447  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
37448  pack_tmp = ishft(pack_tmp, -11)
37449  idata = idata + 1
37450  data_tmp = iand(pack_tmp, mask_right(nbits))
37451  full_data(idata) = data_tmp
37452  pack_tmp = ishft(pack_tmp, -nbits)
37453  idata = idata + 1
37454  data_tmp = ishft(pack_tmp, 41)
37455  ipack = ipack + 1
37456  pack_tmp = packed_data(ipack)
37457  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
37458  pack_tmp = ishft(pack_tmp, -41)
37459  idata = idata + 1
37460  data_tmp = ishft(pack_tmp, 24)
37461  ipack = ipack + 1
37462  pack_tmp = packed_data(ipack)
37463  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
37464  pack_tmp = ishft(pack_tmp, -24)
37465  idata = idata + 1
37466  data_tmp = ishft(pack_tmp, 7)
37467  ipack = ipack + 1
37468  pack_tmp = packed_data(ipack)
37469  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
37470  pack_tmp = ishft(pack_tmp, -7)
37471  idata = idata + 1
37472  data_tmp = iand(pack_tmp, mask_right(nbits))
37473  full_data(idata) = data_tmp
37474  pack_tmp = ishft(pack_tmp, -nbits)
37475  idata = idata + 1
37476  data_tmp = ishft(pack_tmp, 37)
37477  ipack = ipack + 1
37478  pack_tmp = packed_data(ipack)
37479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
37480  pack_tmp = ishft(pack_tmp, -37)
37481  idata = idata + 1
37482  data_tmp = ishft(pack_tmp, 20)
37483  ipack = ipack + 1
37484  pack_tmp = packed_data(ipack)
37485  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
37486  pack_tmp = ishft(pack_tmp, -20)
37487  idata = idata + 1
37488  data_tmp = ishft(pack_tmp, 3)
37489  ipack = ipack + 1
37490  pack_tmp = packed_data(ipack)
37491  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
37492  pack_tmp = ishft(pack_tmp, -3)
37493  idata = idata + 1
37494  data_tmp = iand(pack_tmp, mask_right(nbits))
37495  full_data(idata) = data_tmp
37496  pack_tmp = ishft(pack_tmp, -nbits)
37497  idata = idata + 1
37498  data_tmp = ishft(pack_tmp, 33)
37499  ipack = ipack + 1
37500  pack_tmp = packed_data(ipack)
37501  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
37502  pack_tmp = ishft(pack_tmp, -33)
37503  idata = idata + 1
37504  data_tmp = ishft(pack_tmp, 16)
37505  ipack = ipack + 1
37506  pack_tmp = packed_data(ipack)
37507  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
37508  pack_tmp = ishft(pack_tmp, -16)
37509  idata = idata + 1
37510  data_tmp = iand(pack_tmp, mask_right(nbits))
37511  full_data(idata) = data_tmp
37512  pack_tmp = ishft(pack_tmp, -nbits)
37513  idata = idata + 1
37514  data_tmp = ishft(pack_tmp, 46)
37515  ipack = ipack + 1
37516  pack_tmp = packed_data(ipack)
37517  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
37518  pack_tmp = ishft(pack_tmp, -46)
37519  idata = idata + 1
37520  data_tmp = ishft(pack_tmp, 29)
37521  ipack = ipack + 1
37522  pack_tmp = packed_data(ipack)
37523  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
37524  pack_tmp = ishft(pack_tmp, -29)
37525  idata = idata + 1
37526  data_tmp = ishft(pack_tmp, 12)
37527  ipack = ipack + 1
37528  pack_tmp = packed_data(ipack)
37529  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
37530  pack_tmp = ishft(pack_tmp, -12)
37531  idata = idata + 1
37532  data_tmp = iand(pack_tmp, mask_right(nbits))
37533  full_data(idata) = data_tmp
37534  pack_tmp = ishft(pack_tmp, -nbits)
37535  idata = idata + 1
37536  data_tmp = ishft(pack_tmp, 42)
37537  ipack = ipack + 1
37538  pack_tmp = packed_data(ipack)
37539  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
37540  pack_tmp = ishft(pack_tmp, -42)
37541  idata = idata + 1
37542  data_tmp = ishft(pack_tmp, 25)
37543  ipack = ipack + 1
37544  pack_tmp = packed_data(ipack)
37545  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
37546  pack_tmp = ishft(pack_tmp, -25)
37547  idata = idata + 1
37548  data_tmp = ishft(pack_tmp, 8)
37549  ipack = ipack + 1
37550  pack_tmp = packed_data(ipack)
37551  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
37552  pack_tmp = ishft(pack_tmp, -8)
37553  idata = idata + 1
37554  data_tmp = iand(pack_tmp, mask_right(nbits))
37555  full_data(idata) = data_tmp
37556  pack_tmp = ishft(pack_tmp, -nbits)
37557  idata = idata + 1
37558  data_tmp = ishft(pack_tmp, 38)
37559  ipack = ipack + 1
37560  pack_tmp = packed_data(ipack)
37561  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
37562  pack_tmp = ishft(pack_tmp, -38)
37563  idata = idata + 1
37564  data_tmp = ishft(pack_tmp, 21)
37565  ipack = ipack + 1
37566  pack_tmp = packed_data(ipack)
37567  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
37568  pack_tmp = ishft(pack_tmp, -21)
37569  idata = idata + 1
37570  data_tmp = ishft(pack_tmp, 4)
37571  ipack = ipack + 1
37572  pack_tmp = packed_data(ipack)
37573  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
37574  pack_tmp = ishft(pack_tmp, -4)
37575  idata = idata + 1
37576  data_tmp = iand(pack_tmp, mask_right(nbits))
37577  full_data(idata) = data_tmp
37578  pack_tmp = ishft(pack_tmp, -nbits)
37579  idata = idata + 1
37580  data_tmp = ishft(pack_tmp, 34)
37581  ipack = ipack + 1
37582  pack_tmp = packed_data(ipack)
37583  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
37584  pack_tmp = ishft(pack_tmp, -34)
37585  idata = idata + 1
37586  data_tmp = ishft(pack_tmp, 17)
37587  ipack = ipack + 1
37588  pack_tmp = packed_data(ipack)
37589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
37590  pack_tmp = ishft(pack_tmp, -17)
37591  idata = idata + 1
37592  data_tmp = iand(pack_tmp, mask_right(nbits))
37593  full_data(idata) = data_tmp
37594  pack_tmp = ishft(pack_tmp, -nbits)
37595  END DO
37596  IF (ndata_rep < ndata) THEN
37597  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
37598  END IF
37599  END SUBROUTINE bits2ints_47
37600 
37601 ! **************************************************************************************************
37602 !> \brief ...
37603 !> \param Ndata ...
37604 !> \param packed_data ...
37605 !> \param full_data ...
37606 ! **************************************************************************************************
37607  SUBROUTINE ints2bits_48(Ndata, packed_data, full_data)
37608  INTEGER, INTENT(IN) :: Ndata
37609  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
37610  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
37611 
37612  INTEGER, PARAMETER :: Nbits = 48
37613 
37614  INTEGER :: idata, ipack, kdata, Ndata_rep
37615  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
37616 
37617  idata = 0
37618  ipack = 0
37619  ndata_rep = (ndata/64)*64
37620  DO kdata = 1, ndata_rep, 64
37621  pack_tmp = 0
37622  idata = idata + 1
37623  data_tmp = full_data(idata)
37624  data_tmp = ishft(data_tmp, 16)
37625  pack_tmp = ior(pack_tmp, data_tmp)
37626  pack_tmp = ishft(pack_tmp, -16)
37627  idata = idata + 1
37628  data_tmp = full_data(idata)
37629  data_tmp = ishft(data_tmp, 16)
37630  data_tmp = iand(data_tmp, mask_left(16))
37631  pack_tmp = ior(pack_tmp, data_tmp)
37632  ipack = ipack + 1
37633  packed_data(ipack) = pack_tmp
37634  data_tmp = full_data(idata)
37635  pack_tmp = ishft(data_tmp, 32)
37636  pack_tmp = ishft(pack_tmp, -32)
37637  idata = idata + 1
37638  data_tmp = full_data(idata)
37639  data_tmp = ishft(data_tmp, 16)
37640  data_tmp = iand(data_tmp, mask_left(32))
37641  pack_tmp = ior(pack_tmp, data_tmp)
37642  ipack = ipack + 1
37643  packed_data(ipack) = pack_tmp
37644  data_tmp = full_data(idata)
37645  pack_tmp = ishft(data_tmp, 48)
37646  pack_tmp = ishft(pack_tmp, -48)
37647  idata = idata + 1
37648  data_tmp = full_data(idata)
37649  data_tmp = ishft(data_tmp, 16)
37650  pack_tmp = ior(pack_tmp, data_tmp)
37651  pack_tmp = ishft(pack_tmp, 0)
37652  idata = idata + 1
37653  data_tmp = full_data(idata)
37654  data_tmp = ishft(data_tmp, 16)
37655  data_tmp = iand(data_tmp, mask_left(0))
37656  pack_tmp = ior(pack_tmp, data_tmp)
37657  ipack = ipack + 1
37658  packed_data(ipack) = pack_tmp
37659  data_tmp = full_data(idata)
37660  pack_tmp = ishft(data_tmp, 16)
37661  pack_tmp = ishft(pack_tmp, -16)
37662  idata = idata + 1
37663  data_tmp = full_data(idata)
37664  data_tmp = ishft(data_tmp, 16)
37665  data_tmp = iand(data_tmp, mask_left(16))
37666  pack_tmp = ior(pack_tmp, data_tmp)
37667  ipack = ipack + 1
37668  packed_data(ipack) = pack_tmp
37669  data_tmp = full_data(idata)
37670  pack_tmp = ishft(data_tmp, 32)
37671  pack_tmp = ishft(pack_tmp, -32)
37672  idata = idata + 1
37673  data_tmp = full_data(idata)
37674  data_tmp = ishft(data_tmp, 16)
37675  data_tmp = iand(data_tmp, mask_left(32))
37676  pack_tmp = ior(pack_tmp, data_tmp)
37677  ipack = ipack + 1
37678  packed_data(ipack) = pack_tmp
37679  data_tmp = full_data(idata)
37680  pack_tmp = ishft(data_tmp, 48)
37681  pack_tmp = ishft(pack_tmp, -48)
37682  idata = idata + 1
37683  data_tmp = full_data(idata)
37684  data_tmp = ishft(data_tmp, 16)
37685  pack_tmp = ior(pack_tmp, data_tmp)
37686  pack_tmp = ishft(pack_tmp, 0)
37687  idata = idata + 1
37688  data_tmp = full_data(idata)
37689  data_tmp = ishft(data_tmp, 16)
37690  data_tmp = iand(data_tmp, mask_left(0))
37691  pack_tmp = ior(pack_tmp, data_tmp)
37692  ipack = ipack + 1
37693  packed_data(ipack) = pack_tmp
37694  data_tmp = full_data(idata)
37695  pack_tmp = ishft(data_tmp, 16)
37696  pack_tmp = ishft(pack_tmp, -16)
37697  idata = idata + 1
37698  data_tmp = full_data(idata)
37699  data_tmp = ishft(data_tmp, 16)
37700  data_tmp = iand(data_tmp, mask_left(16))
37701  pack_tmp = ior(pack_tmp, data_tmp)
37702  ipack = ipack + 1
37703  packed_data(ipack) = pack_tmp
37704  data_tmp = full_data(idata)
37705  pack_tmp = ishft(data_tmp, 32)
37706  pack_tmp = ishft(pack_tmp, -32)
37707  idata = idata + 1
37708  data_tmp = full_data(idata)
37709  data_tmp = ishft(data_tmp, 16)
37710  data_tmp = iand(data_tmp, mask_left(32))
37711  pack_tmp = ior(pack_tmp, data_tmp)
37712  ipack = ipack + 1
37713  packed_data(ipack) = pack_tmp
37714  data_tmp = full_data(idata)
37715  pack_tmp = ishft(data_tmp, 48)
37716  pack_tmp = ishft(pack_tmp, -48)
37717  idata = idata + 1
37718  data_tmp = full_data(idata)
37719  data_tmp = ishft(data_tmp, 16)
37720  pack_tmp = ior(pack_tmp, data_tmp)
37721  pack_tmp = ishft(pack_tmp, 0)
37722  idata = idata + 1
37723  data_tmp = full_data(idata)
37724  data_tmp = ishft(data_tmp, 16)
37725  data_tmp = iand(data_tmp, mask_left(0))
37726  pack_tmp = ior(pack_tmp, data_tmp)
37727  ipack = ipack + 1
37728  packed_data(ipack) = pack_tmp
37729  data_tmp = full_data(idata)
37730  pack_tmp = ishft(data_tmp, 16)
37731  pack_tmp = ishft(pack_tmp, -16)
37732  idata = idata + 1
37733  data_tmp = full_data(idata)
37734  data_tmp = ishft(data_tmp, 16)
37735  data_tmp = iand(data_tmp, mask_left(16))
37736  pack_tmp = ior(pack_tmp, data_tmp)
37737  ipack = ipack + 1
37738  packed_data(ipack) = pack_tmp
37739  data_tmp = full_data(idata)
37740  pack_tmp = ishft(data_tmp, 32)
37741  pack_tmp = ishft(pack_tmp, -32)
37742  idata = idata + 1
37743  data_tmp = full_data(idata)
37744  data_tmp = ishft(data_tmp, 16)
37745  data_tmp = iand(data_tmp, mask_left(32))
37746  pack_tmp = ior(pack_tmp, data_tmp)
37747  ipack = ipack + 1
37748  packed_data(ipack) = pack_tmp
37749  data_tmp = full_data(idata)
37750  pack_tmp = ishft(data_tmp, 48)
37751  pack_tmp = ishft(pack_tmp, -48)
37752  idata = idata + 1
37753  data_tmp = full_data(idata)
37754  data_tmp = ishft(data_tmp, 16)
37755  pack_tmp = ior(pack_tmp, data_tmp)
37756  pack_tmp = ishft(pack_tmp, 0)
37757  idata = idata + 1
37758  data_tmp = full_data(idata)
37759  data_tmp = ishft(data_tmp, 16)
37760  data_tmp = iand(data_tmp, mask_left(0))
37761  pack_tmp = ior(pack_tmp, data_tmp)
37762  ipack = ipack + 1
37763  packed_data(ipack) = pack_tmp
37764  data_tmp = full_data(idata)
37765  pack_tmp = ishft(data_tmp, 16)
37766  pack_tmp = ishft(pack_tmp, -16)
37767  idata = idata + 1
37768  data_tmp = full_data(idata)
37769  data_tmp = ishft(data_tmp, 16)
37770  data_tmp = iand(data_tmp, mask_left(16))
37771  pack_tmp = ior(pack_tmp, data_tmp)
37772  ipack = ipack + 1
37773  packed_data(ipack) = pack_tmp
37774  data_tmp = full_data(idata)
37775  pack_tmp = ishft(data_tmp, 32)
37776  pack_tmp = ishft(pack_tmp, -32)
37777  idata = idata + 1
37778  data_tmp = full_data(idata)
37779  data_tmp = ishft(data_tmp, 16)
37780  data_tmp = iand(data_tmp, mask_left(32))
37781  pack_tmp = ior(pack_tmp, data_tmp)
37782  ipack = ipack + 1
37783  packed_data(ipack) = pack_tmp
37784  data_tmp = full_data(idata)
37785  pack_tmp = ishft(data_tmp, 48)
37786  pack_tmp = ishft(pack_tmp, -48)
37787  idata = idata + 1
37788  data_tmp = full_data(idata)
37789  data_tmp = ishft(data_tmp, 16)
37790  pack_tmp = ior(pack_tmp, data_tmp)
37791  pack_tmp = ishft(pack_tmp, 0)
37792  idata = idata + 1
37793  data_tmp = full_data(idata)
37794  data_tmp = ishft(data_tmp, 16)
37795  data_tmp = iand(data_tmp, mask_left(0))
37796  pack_tmp = ior(pack_tmp, data_tmp)
37797  ipack = ipack + 1
37798  packed_data(ipack) = pack_tmp
37799  data_tmp = full_data(idata)
37800  pack_tmp = ishft(data_tmp, 16)
37801  pack_tmp = ishft(pack_tmp, -16)
37802  idata = idata + 1
37803  data_tmp = full_data(idata)
37804  data_tmp = ishft(data_tmp, 16)
37805  data_tmp = iand(data_tmp, mask_left(16))
37806  pack_tmp = ior(pack_tmp, data_tmp)
37807  ipack = ipack + 1
37808  packed_data(ipack) = pack_tmp
37809  data_tmp = full_data(idata)
37810  pack_tmp = ishft(data_tmp, 32)
37811  pack_tmp = ishft(pack_tmp, -32)
37812  idata = idata + 1
37813  data_tmp = full_data(idata)
37814  data_tmp = ishft(data_tmp, 16)
37815  data_tmp = iand(data_tmp, mask_left(32))
37816  pack_tmp = ior(pack_tmp, data_tmp)
37817  ipack = ipack + 1
37818  packed_data(ipack) = pack_tmp
37819  data_tmp = full_data(idata)
37820  pack_tmp = ishft(data_tmp, 48)
37821  pack_tmp = ishft(pack_tmp, -48)
37822  idata = idata + 1
37823  data_tmp = full_data(idata)
37824  data_tmp = ishft(data_tmp, 16)
37825  pack_tmp = ior(pack_tmp, data_tmp)
37826  pack_tmp = ishft(pack_tmp, 0)
37827  idata = idata + 1
37828  data_tmp = full_data(idata)
37829  data_tmp = ishft(data_tmp, 16)
37830  data_tmp = iand(data_tmp, mask_left(0))
37831  pack_tmp = ior(pack_tmp, data_tmp)
37832  ipack = ipack + 1
37833  packed_data(ipack) = pack_tmp
37834  data_tmp = full_data(idata)
37835  pack_tmp = ishft(data_tmp, 16)
37836  pack_tmp = ishft(pack_tmp, -16)
37837  idata = idata + 1
37838  data_tmp = full_data(idata)
37839  data_tmp = ishft(data_tmp, 16)
37840  data_tmp = iand(data_tmp, mask_left(16))
37841  pack_tmp = ior(pack_tmp, data_tmp)
37842  ipack = ipack + 1
37843  packed_data(ipack) = pack_tmp
37844  data_tmp = full_data(idata)
37845  pack_tmp = ishft(data_tmp, 32)
37846  pack_tmp = ishft(pack_tmp, -32)
37847  idata = idata + 1
37848  data_tmp = full_data(idata)
37849  data_tmp = ishft(data_tmp, 16)
37850  data_tmp = iand(data_tmp, mask_left(32))
37851  pack_tmp = ior(pack_tmp, data_tmp)
37852  ipack = ipack + 1
37853  packed_data(ipack) = pack_tmp
37854  data_tmp = full_data(idata)
37855  pack_tmp = ishft(data_tmp, 48)
37856  pack_tmp = ishft(pack_tmp, -48)
37857  idata = idata + 1
37858  data_tmp = full_data(idata)
37859  data_tmp = ishft(data_tmp, 16)
37860  pack_tmp = ior(pack_tmp, data_tmp)
37861  pack_tmp = ishft(pack_tmp, 0)
37862  idata = idata + 1
37863  data_tmp = full_data(idata)
37864  data_tmp = ishft(data_tmp, 16)
37865  data_tmp = iand(data_tmp, mask_left(0))
37866  pack_tmp = ior(pack_tmp, data_tmp)
37867  ipack = ipack + 1
37868  packed_data(ipack) = pack_tmp
37869  data_tmp = full_data(idata)
37870  pack_tmp = ishft(data_tmp, 16)
37871  pack_tmp = ishft(pack_tmp, -16)
37872  idata = idata + 1
37873  data_tmp = full_data(idata)
37874  data_tmp = ishft(data_tmp, 16)
37875  data_tmp = iand(data_tmp, mask_left(16))
37876  pack_tmp = ior(pack_tmp, data_tmp)
37877  ipack = ipack + 1
37878  packed_data(ipack) = pack_tmp
37879  data_tmp = full_data(idata)
37880  pack_tmp = ishft(data_tmp, 32)
37881  pack_tmp = ishft(pack_tmp, -32)
37882  idata = idata + 1
37883  data_tmp = full_data(idata)
37884  data_tmp = ishft(data_tmp, 16)
37885  data_tmp = iand(data_tmp, mask_left(32))
37886  pack_tmp = ior(pack_tmp, data_tmp)
37887  ipack = ipack + 1
37888  packed_data(ipack) = pack_tmp
37889  data_tmp = full_data(idata)
37890  pack_tmp = ishft(data_tmp, 48)
37891  pack_tmp = ishft(pack_tmp, -48)
37892  idata = idata + 1
37893  data_tmp = full_data(idata)
37894  data_tmp = ishft(data_tmp, 16)
37895  pack_tmp = ior(pack_tmp, data_tmp)
37896  pack_tmp = ishft(pack_tmp, 0)
37897  idata = idata + 1
37898  data_tmp = full_data(idata)
37899  data_tmp = ishft(data_tmp, 16)
37900  data_tmp = iand(data_tmp, mask_left(0))
37901  pack_tmp = ior(pack_tmp, data_tmp)
37902  ipack = ipack + 1
37903  packed_data(ipack) = pack_tmp
37904  data_tmp = full_data(idata)
37905  pack_tmp = ishft(data_tmp, 16)
37906  pack_tmp = ishft(pack_tmp, -16)
37907  idata = idata + 1
37908  data_tmp = full_data(idata)
37909  data_tmp = ishft(data_tmp, 16)
37910  data_tmp = iand(data_tmp, mask_left(16))
37911  pack_tmp = ior(pack_tmp, data_tmp)
37912  ipack = ipack + 1
37913  packed_data(ipack) = pack_tmp
37914  data_tmp = full_data(idata)
37915  pack_tmp = ishft(data_tmp, 32)
37916  pack_tmp = ishft(pack_tmp, -32)
37917  idata = idata + 1
37918  data_tmp = full_data(idata)
37919  data_tmp = ishft(data_tmp, 16)
37920  data_tmp = iand(data_tmp, mask_left(32))
37921  pack_tmp = ior(pack_tmp, data_tmp)
37922  ipack = ipack + 1
37923  packed_data(ipack) = pack_tmp
37924  data_tmp = full_data(idata)
37925  pack_tmp = ishft(data_tmp, 48)
37926  pack_tmp = ishft(pack_tmp, -48)
37927  idata = idata + 1
37928  data_tmp = full_data(idata)
37929  data_tmp = ishft(data_tmp, 16)
37930  pack_tmp = ior(pack_tmp, data_tmp)
37931  pack_tmp = ishft(pack_tmp, 0)
37932  idata = idata + 1
37933  data_tmp = full_data(idata)
37934  data_tmp = ishft(data_tmp, 16)
37935  data_tmp = iand(data_tmp, mask_left(0))
37936  pack_tmp = ior(pack_tmp, data_tmp)
37937  ipack = ipack + 1
37938  packed_data(ipack) = pack_tmp
37939  data_tmp = full_data(idata)
37940  pack_tmp = ishft(data_tmp, 16)
37941  pack_tmp = ishft(pack_tmp, -16)
37942  idata = idata + 1
37943  data_tmp = full_data(idata)
37944  data_tmp = ishft(data_tmp, 16)
37945  data_tmp = iand(data_tmp, mask_left(16))
37946  pack_tmp = ior(pack_tmp, data_tmp)
37947  ipack = ipack + 1
37948  packed_data(ipack) = pack_tmp
37949  data_tmp = full_data(idata)
37950  pack_tmp = ishft(data_tmp, 32)
37951  pack_tmp = ishft(pack_tmp, -32)
37952  idata = idata + 1
37953  data_tmp = full_data(idata)
37954  data_tmp = ishft(data_tmp, 16)
37955  data_tmp = iand(data_tmp, mask_left(32))
37956  pack_tmp = ior(pack_tmp, data_tmp)
37957  ipack = ipack + 1
37958  packed_data(ipack) = pack_tmp
37959  data_tmp = full_data(idata)
37960  pack_tmp = ishft(data_tmp, 48)
37961  pack_tmp = ishft(pack_tmp, -48)
37962  idata = idata + 1
37963  data_tmp = full_data(idata)
37964  data_tmp = ishft(data_tmp, 16)
37965  pack_tmp = ior(pack_tmp, data_tmp)
37966  pack_tmp = ishft(pack_tmp, 0)
37967  idata = idata + 1
37968  data_tmp = full_data(idata)
37969  data_tmp = ishft(data_tmp, 16)
37970  data_tmp = iand(data_tmp, mask_left(0))
37971  pack_tmp = ior(pack_tmp, data_tmp)
37972  ipack = ipack + 1
37973  packed_data(ipack) = pack_tmp
37974  data_tmp = full_data(idata)
37975  pack_tmp = ishft(data_tmp, 16)
37976  pack_tmp = ishft(pack_tmp, -16)
37977  idata = idata + 1
37978  data_tmp = full_data(idata)
37979  data_tmp = ishft(data_tmp, 16)
37980  data_tmp = iand(data_tmp, mask_left(16))
37981  pack_tmp = ior(pack_tmp, data_tmp)
37982  ipack = ipack + 1
37983  packed_data(ipack) = pack_tmp
37984  data_tmp = full_data(idata)
37985  pack_tmp = ishft(data_tmp, 32)
37986  pack_tmp = ishft(pack_tmp, -32)
37987  idata = idata + 1
37988  data_tmp = full_data(idata)
37989  data_tmp = ishft(data_tmp, 16)
37990  data_tmp = iand(data_tmp, mask_left(32))
37991  pack_tmp = ior(pack_tmp, data_tmp)
37992  ipack = ipack + 1
37993  packed_data(ipack) = pack_tmp
37994  data_tmp = full_data(idata)
37995  pack_tmp = ishft(data_tmp, 48)
37996  pack_tmp = ishft(pack_tmp, -48)
37997  idata = idata + 1
37998  data_tmp = full_data(idata)
37999  data_tmp = ishft(data_tmp, 16)
38000  pack_tmp = ior(pack_tmp, data_tmp)
38001  pack_tmp = ishft(pack_tmp, 0)
38002  idata = idata + 1
38003  data_tmp = full_data(idata)
38004  data_tmp = ishft(data_tmp, 16)
38005  data_tmp = iand(data_tmp, mask_left(0))
38006  pack_tmp = ior(pack_tmp, data_tmp)
38007  ipack = ipack + 1
38008  packed_data(ipack) = pack_tmp
38009  data_tmp = full_data(idata)
38010  pack_tmp = ishft(data_tmp, 16)
38011  pack_tmp = ishft(pack_tmp, -16)
38012  idata = idata + 1
38013  data_tmp = full_data(idata)
38014  data_tmp = ishft(data_tmp, 16)
38015  data_tmp = iand(data_tmp, mask_left(16))
38016  pack_tmp = ior(pack_tmp, data_tmp)
38017  ipack = ipack + 1
38018  packed_data(ipack) = pack_tmp
38019  data_tmp = full_data(idata)
38020  pack_tmp = ishft(data_tmp, 32)
38021  pack_tmp = ishft(pack_tmp, -32)
38022  idata = idata + 1
38023  data_tmp = full_data(idata)
38024  data_tmp = ishft(data_tmp, 16)
38025  data_tmp = iand(data_tmp, mask_left(32))
38026  pack_tmp = ior(pack_tmp, data_tmp)
38027  ipack = ipack + 1
38028  packed_data(ipack) = pack_tmp
38029  data_tmp = full_data(idata)
38030  pack_tmp = ishft(data_tmp, 48)
38031  pack_tmp = ishft(pack_tmp, -48)
38032  idata = idata + 1
38033  data_tmp = full_data(idata)
38034  data_tmp = ishft(data_tmp, 16)
38035  pack_tmp = ior(pack_tmp, data_tmp)
38036  pack_tmp = ishft(pack_tmp, 0)
38037  idata = idata + 1
38038  data_tmp = full_data(idata)
38039  data_tmp = ishft(data_tmp, 16)
38040  data_tmp = iand(data_tmp, mask_left(0))
38041  pack_tmp = ior(pack_tmp, data_tmp)
38042  ipack = ipack + 1
38043  packed_data(ipack) = pack_tmp
38044  data_tmp = full_data(idata)
38045  pack_tmp = ishft(data_tmp, 16)
38046  pack_tmp = ishft(pack_tmp, -16)
38047  idata = idata + 1
38048  data_tmp = full_data(idata)
38049  data_tmp = ishft(data_tmp, 16)
38050  data_tmp = iand(data_tmp, mask_left(16))
38051  pack_tmp = ior(pack_tmp, data_tmp)
38052  ipack = ipack + 1
38053  packed_data(ipack) = pack_tmp
38054  data_tmp = full_data(idata)
38055  pack_tmp = ishft(data_tmp, 32)
38056  pack_tmp = ishft(pack_tmp, -32)
38057  idata = idata + 1
38058  data_tmp = full_data(idata)
38059  data_tmp = ishft(data_tmp, 16)
38060  data_tmp = iand(data_tmp, mask_left(32))
38061  pack_tmp = ior(pack_tmp, data_tmp)
38062  ipack = ipack + 1
38063  packed_data(ipack) = pack_tmp
38064  data_tmp = full_data(idata)
38065  pack_tmp = ishft(data_tmp, 48)
38066  pack_tmp = ishft(pack_tmp, -48)
38067  idata = idata + 1
38068  data_tmp = full_data(idata)
38069  data_tmp = ishft(data_tmp, 16)
38070  pack_tmp = ior(pack_tmp, data_tmp)
38071  pack_tmp = ishft(pack_tmp, 0)
38072  idata = idata + 1
38073  data_tmp = full_data(idata)
38074  data_tmp = ishft(data_tmp, 16)
38075  data_tmp = iand(data_tmp, mask_left(0))
38076  pack_tmp = ior(pack_tmp, data_tmp)
38077  ipack = ipack + 1
38078  packed_data(ipack) = pack_tmp
38079  data_tmp = full_data(idata)
38080  pack_tmp = ishft(data_tmp, 16)
38081  pack_tmp = ishft(pack_tmp, -16)
38082  idata = idata + 1
38083  data_tmp = full_data(idata)
38084  data_tmp = ishft(data_tmp, 16)
38085  data_tmp = iand(data_tmp, mask_left(16))
38086  pack_tmp = ior(pack_tmp, data_tmp)
38087  ipack = ipack + 1
38088  packed_data(ipack) = pack_tmp
38089  data_tmp = full_data(idata)
38090  pack_tmp = ishft(data_tmp, 32)
38091  pack_tmp = ishft(pack_tmp, -32)
38092  idata = idata + 1
38093  data_tmp = full_data(idata)
38094  data_tmp = ishft(data_tmp, 16)
38095  data_tmp = iand(data_tmp, mask_left(32))
38096  pack_tmp = ior(pack_tmp, data_tmp)
38097  ipack = ipack + 1
38098  packed_data(ipack) = pack_tmp
38099  data_tmp = full_data(idata)
38100  pack_tmp = ishft(data_tmp, 48)
38101  pack_tmp = ishft(pack_tmp, -48)
38102  idata = idata + 1
38103  data_tmp = full_data(idata)
38104  data_tmp = ishft(data_tmp, 16)
38105  pack_tmp = ior(pack_tmp, data_tmp)
38106  pack_tmp = ishft(pack_tmp, 0)
38107  idata = idata + 1
38108  data_tmp = full_data(idata)
38109  data_tmp = ishft(data_tmp, 16)
38110  data_tmp = iand(data_tmp, mask_left(0))
38111  pack_tmp = ior(pack_tmp, data_tmp)
38112  ipack = ipack + 1
38113  packed_data(ipack) = pack_tmp
38114  data_tmp = full_data(idata)
38115  pack_tmp = ishft(data_tmp, 16)
38116  pack_tmp = ishft(pack_tmp, -16)
38117  idata = idata + 1
38118  data_tmp = full_data(idata)
38119  data_tmp = ishft(data_tmp, 16)
38120  data_tmp = iand(data_tmp, mask_left(16))
38121  pack_tmp = ior(pack_tmp, data_tmp)
38122  ipack = ipack + 1
38123  packed_data(ipack) = pack_tmp
38124  data_tmp = full_data(idata)
38125  pack_tmp = ishft(data_tmp, 32)
38126  pack_tmp = ishft(pack_tmp, -32)
38127  idata = idata + 1
38128  data_tmp = full_data(idata)
38129  data_tmp = ishft(data_tmp, 16)
38130  data_tmp = iand(data_tmp, mask_left(32))
38131  pack_tmp = ior(pack_tmp, data_tmp)
38132  ipack = ipack + 1
38133  packed_data(ipack) = pack_tmp
38134  data_tmp = full_data(idata)
38135  pack_tmp = ishft(data_tmp, 48)
38136  pack_tmp = ishft(pack_tmp, -48)
38137  idata = idata + 1
38138  data_tmp = full_data(idata)
38139  data_tmp = ishft(data_tmp, 16)
38140  pack_tmp = ior(pack_tmp, data_tmp)
38141  pack_tmp = ishft(pack_tmp, 0)
38142  idata = idata + 1
38143  data_tmp = full_data(idata)
38144  data_tmp = ishft(data_tmp, 16)
38145  data_tmp = iand(data_tmp, mask_left(0))
38146  pack_tmp = ior(pack_tmp, data_tmp)
38147  ipack = ipack + 1
38148  packed_data(ipack) = pack_tmp
38149  data_tmp = full_data(idata)
38150  pack_tmp = ishft(data_tmp, 16)
38151  pack_tmp = ishft(pack_tmp, -16)
38152  idata = idata + 1
38153  data_tmp = full_data(idata)
38154  data_tmp = ishft(data_tmp, 16)
38155  data_tmp = iand(data_tmp, mask_left(16))
38156  pack_tmp = ior(pack_tmp, data_tmp)
38157  ipack = ipack + 1
38158  packed_data(ipack) = pack_tmp
38159  data_tmp = full_data(idata)
38160  pack_tmp = ishft(data_tmp, 32)
38161  pack_tmp = ishft(pack_tmp, -32)
38162  idata = idata + 1
38163  data_tmp = full_data(idata)
38164  data_tmp = ishft(data_tmp, 16)
38165  data_tmp = iand(data_tmp, mask_left(32))
38166  pack_tmp = ior(pack_tmp, data_tmp)
38167  ipack = ipack + 1
38168  packed_data(ipack) = pack_tmp
38169  data_tmp = full_data(idata)
38170  pack_tmp = ishft(data_tmp, 48)
38171  pack_tmp = ishft(pack_tmp, -48)
38172  idata = idata + 1
38173  data_tmp = full_data(idata)
38174  data_tmp = ishft(data_tmp, 16)
38175  pack_tmp = ior(pack_tmp, data_tmp)
38176  pack_tmp = ishft(pack_tmp, 0)
38177  pack_tmp = ishft(pack_tmp, 0)
38178  ipack = ipack + 1
38179  packed_data(ipack) = pack_tmp
38180  END DO
38181  IF (ndata_rep < ndata) THEN
38182  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
38183  END IF
38184  END SUBROUTINE ints2bits_48
38185 
38186 ! **************************************************************************************************
38187 !> \brief ...
38188 !> \param Ndata ...
38189 !> \param packed_data ...
38190 !> \param full_data ...
38191 ! **************************************************************************************************
38192  SUBROUTINE bits2ints_48(Ndata, packed_data, full_data)
38193  INTEGER, INTENT(IN) :: Ndata
38194  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
38195  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
38196 
38197  INTEGER, PARAMETER :: Nbits = 48
38198 
38199  INTEGER :: idata, ipack, kdata, Ndata_rep
38200  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
38201 
38202  ipack = 0
38203  idata = 0
38204  pack_tmp = 0
38205  ndata_rep = (ndata/64)*64
38206  DO kdata = 1, ndata_rep, 64
38207  idata = idata + 1
38208  data_tmp = ishft(pack_tmp, 48)
38209  ipack = ipack + 1
38210  pack_tmp = packed_data(ipack)
38211  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38212  pack_tmp = ishft(pack_tmp, -48)
38213  idata = idata + 1
38214  data_tmp = ishft(pack_tmp, 32)
38215  ipack = ipack + 1
38216  pack_tmp = packed_data(ipack)
38217  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38218  pack_tmp = ishft(pack_tmp, -32)
38219  idata = idata + 1
38220  data_tmp = ishft(pack_tmp, 16)
38221  ipack = ipack + 1
38222  pack_tmp = packed_data(ipack)
38223  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38224  pack_tmp = ishft(pack_tmp, -16)
38225  idata = idata + 1
38226  data_tmp = iand(pack_tmp, mask_right(nbits))
38227  full_data(idata) = data_tmp
38228  pack_tmp = ishft(pack_tmp, -nbits)
38229  idata = idata + 1
38230  data_tmp = ishft(pack_tmp, 48)
38231  ipack = ipack + 1
38232  pack_tmp = packed_data(ipack)
38233  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38234  pack_tmp = ishft(pack_tmp, -48)
38235  idata = idata + 1
38236  data_tmp = ishft(pack_tmp, 32)
38237  ipack = ipack + 1
38238  pack_tmp = packed_data(ipack)
38239  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38240  pack_tmp = ishft(pack_tmp, -32)
38241  idata = idata + 1
38242  data_tmp = ishft(pack_tmp, 16)
38243  ipack = ipack + 1
38244  pack_tmp = packed_data(ipack)
38245  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38246  pack_tmp = ishft(pack_tmp, -16)
38247  idata = idata + 1
38248  data_tmp = iand(pack_tmp, mask_right(nbits))
38249  full_data(idata) = data_tmp
38250  pack_tmp = ishft(pack_tmp, -nbits)
38251  idata = idata + 1
38252  data_tmp = ishft(pack_tmp, 48)
38253  ipack = ipack + 1
38254  pack_tmp = packed_data(ipack)
38255  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38256  pack_tmp = ishft(pack_tmp, -48)
38257  idata = idata + 1
38258  data_tmp = ishft(pack_tmp, 32)
38259  ipack = ipack + 1
38260  pack_tmp = packed_data(ipack)
38261  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38262  pack_tmp = ishft(pack_tmp, -32)
38263  idata = idata + 1
38264  data_tmp = ishft(pack_tmp, 16)
38265  ipack = ipack + 1
38266  pack_tmp = packed_data(ipack)
38267  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38268  pack_tmp = ishft(pack_tmp, -16)
38269  idata = idata + 1
38270  data_tmp = iand(pack_tmp, mask_right(nbits))
38271  full_data(idata) = data_tmp
38272  pack_tmp = ishft(pack_tmp, -nbits)
38273  idata = idata + 1
38274  data_tmp = ishft(pack_tmp, 48)
38275  ipack = ipack + 1
38276  pack_tmp = packed_data(ipack)
38277  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38278  pack_tmp = ishft(pack_tmp, -48)
38279  idata = idata + 1
38280  data_tmp = ishft(pack_tmp, 32)
38281  ipack = ipack + 1
38282  pack_tmp = packed_data(ipack)
38283  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38284  pack_tmp = ishft(pack_tmp, -32)
38285  idata = idata + 1
38286  data_tmp = ishft(pack_tmp, 16)
38287  ipack = ipack + 1
38288  pack_tmp = packed_data(ipack)
38289  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38290  pack_tmp = ishft(pack_tmp, -16)
38291  idata = idata + 1
38292  data_tmp = iand(pack_tmp, mask_right(nbits))
38293  full_data(idata) = data_tmp
38294  pack_tmp = ishft(pack_tmp, -nbits)
38295  idata = idata + 1
38296  data_tmp = ishft(pack_tmp, 48)
38297  ipack = ipack + 1
38298  pack_tmp = packed_data(ipack)
38299  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38300  pack_tmp = ishft(pack_tmp, -48)
38301  idata = idata + 1
38302  data_tmp = ishft(pack_tmp, 32)
38303  ipack = ipack + 1
38304  pack_tmp = packed_data(ipack)
38305  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38306  pack_tmp = ishft(pack_tmp, -32)
38307  idata = idata + 1
38308  data_tmp = ishft(pack_tmp, 16)
38309  ipack = ipack + 1
38310  pack_tmp = packed_data(ipack)
38311  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38312  pack_tmp = ishft(pack_tmp, -16)
38313  idata = idata + 1
38314  data_tmp = iand(pack_tmp, mask_right(nbits))
38315  full_data(idata) = data_tmp
38316  pack_tmp = ishft(pack_tmp, -nbits)
38317  idata = idata + 1
38318  data_tmp = ishft(pack_tmp, 48)
38319  ipack = ipack + 1
38320  pack_tmp = packed_data(ipack)
38321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38322  pack_tmp = ishft(pack_tmp, -48)
38323  idata = idata + 1
38324  data_tmp = ishft(pack_tmp, 32)
38325  ipack = ipack + 1
38326  pack_tmp = packed_data(ipack)
38327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38328  pack_tmp = ishft(pack_tmp, -32)
38329  idata = idata + 1
38330  data_tmp = ishft(pack_tmp, 16)
38331  ipack = ipack + 1
38332  pack_tmp = packed_data(ipack)
38333  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38334  pack_tmp = ishft(pack_tmp, -16)
38335  idata = idata + 1
38336  data_tmp = iand(pack_tmp, mask_right(nbits))
38337  full_data(idata) = data_tmp
38338  pack_tmp = ishft(pack_tmp, -nbits)
38339  idata = idata + 1
38340  data_tmp = ishft(pack_tmp, 48)
38341  ipack = ipack + 1
38342  pack_tmp = packed_data(ipack)
38343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38344  pack_tmp = ishft(pack_tmp, -48)
38345  idata = idata + 1
38346  data_tmp = ishft(pack_tmp, 32)
38347  ipack = ipack + 1
38348  pack_tmp = packed_data(ipack)
38349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38350  pack_tmp = ishft(pack_tmp, -32)
38351  idata = idata + 1
38352  data_tmp = ishft(pack_tmp, 16)
38353  ipack = ipack + 1
38354  pack_tmp = packed_data(ipack)
38355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38356  pack_tmp = ishft(pack_tmp, -16)
38357  idata = idata + 1
38358  data_tmp = iand(pack_tmp, mask_right(nbits))
38359  full_data(idata) = data_tmp
38360  pack_tmp = ishft(pack_tmp, -nbits)
38361  idata = idata + 1
38362  data_tmp = ishft(pack_tmp, 48)
38363  ipack = ipack + 1
38364  pack_tmp = packed_data(ipack)
38365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38366  pack_tmp = ishft(pack_tmp, -48)
38367  idata = idata + 1
38368  data_tmp = ishft(pack_tmp, 32)
38369  ipack = ipack + 1
38370  pack_tmp = packed_data(ipack)
38371  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38372  pack_tmp = ishft(pack_tmp, -32)
38373  idata = idata + 1
38374  data_tmp = ishft(pack_tmp, 16)
38375  ipack = ipack + 1
38376  pack_tmp = packed_data(ipack)
38377  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38378  pack_tmp = ishft(pack_tmp, -16)
38379  idata = idata + 1
38380  data_tmp = iand(pack_tmp, mask_right(nbits))
38381  full_data(idata) = data_tmp
38382  pack_tmp = ishft(pack_tmp, -nbits)
38383  idata = idata + 1
38384  data_tmp = ishft(pack_tmp, 48)
38385  ipack = ipack + 1
38386  pack_tmp = packed_data(ipack)
38387  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38388  pack_tmp = ishft(pack_tmp, -48)
38389  idata = idata + 1
38390  data_tmp = ishft(pack_tmp, 32)
38391  ipack = ipack + 1
38392  pack_tmp = packed_data(ipack)
38393  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38394  pack_tmp = ishft(pack_tmp, -32)
38395  idata = idata + 1
38396  data_tmp = ishft(pack_tmp, 16)
38397  ipack = ipack + 1
38398  pack_tmp = packed_data(ipack)
38399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38400  pack_tmp = ishft(pack_tmp, -16)
38401  idata = idata + 1
38402  data_tmp = iand(pack_tmp, mask_right(nbits))
38403  full_data(idata) = data_tmp
38404  pack_tmp = ishft(pack_tmp, -nbits)
38405  idata = idata + 1
38406  data_tmp = ishft(pack_tmp, 48)
38407  ipack = ipack + 1
38408  pack_tmp = packed_data(ipack)
38409  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38410  pack_tmp = ishft(pack_tmp, -48)
38411  idata = idata + 1
38412  data_tmp = ishft(pack_tmp, 32)
38413  ipack = ipack + 1
38414  pack_tmp = packed_data(ipack)
38415  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38416  pack_tmp = ishft(pack_tmp, -32)
38417  idata = idata + 1
38418  data_tmp = ishft(pack_tmp, 16)
38419  ipack = ipack + 1
38420  pack_tmp = packed_data(ipack)
38421  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38422  pack_tmp = ishft(pack_tmp, -16)
38423  idata = idata + 1
38424  data_tmp = iand(pack_tmp, mask_right(nbits))
38425  full_data(idata) = data_tmp
38426  pack_tmp = ishft(pack_tmp, -nbits)
38427  idata = idata + 1
38428  data_tmp = ishft(pack_tmp, 48)
38429  ipack = ipack + 1
38430  pack_tmp = packed_data(ipack)
38431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38432  pack_tmp = ishft(pack_tmp, -48)
38433  idata = idata + 1
38434  data_tmp = ishft(pack_tmp, 32)
38435  ipack = ipack + 1
38436  pack_tmp = packed_data(ipack)
38437  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38438  pack_tmp = ishft(pack_tmp, -32)
38439  idata = idata + 1
38440  data_tmp = ishft(pack_tmp, 16)
38441  ipack = ipack + 1
38442  pack_tmp = packed_data(ipack)
38443  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38444  pack_tmp = ishft(pack_tmp, -16)
38445  idata = idata + 1
38446  data_tmp = iand(pack_tmp, mask_right(nbits))
38447  full_data(idata) = data_tmp
38448  pack_tmp = ishft(pack_tmp, -nbits)
38449  idata = idata + 1
38450  data_tmp = ishft(pack_tmp, 48)
38451  ipack = ipack + 1
38452  pack_tmp = packed_data(ipack)
38453  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38454  pack_tmp = ishft(pack_tmp, -48)
38455  idata = idata + 1
38456  data_tmp = ishft(pack_tmp, 32)
38457  ipack = ipack + 1
38458  pack_tmp = packed_data(ipack)
38459  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38460  pack_tmp = ishft(pack_tmp, -32)
38461  idata = idata + 1
38462  data_tmp = ishft(pack_tmp, 16)
38463  ipack = ipack + 1
38464  pack_tmp = packed_data(ipack)
38465  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38466  pack_tmp = ishft(pack_tmp, -16)
38467  idata = idata + 1
38468  data_tmp = iand(pack_tmp, mask_right(nbits))
38469  full_data(idata) = data_tmp
38470  pack_tmp = ishft(pack_tmp, -nbits)
38471  idata = idata + 1
38472  data_tmp = ishft(pack_tmp, 48)
38473  ipack = ipack + 1
38474  pack_tmp = packed_data(ipack)
38475  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38476  pack_tmp = ishft(pack_tmp, -48)
38477  idata = idata + 1
38478  data_tmp = ishft(pack_tmp, 32)
38479  ipack = ipack + 1
38480  pack_tmp = packed_data(ipack)
38481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38482  pack_tmp = ishft(pack_tmp, -32)
38483  idata = idata + 1
38484  data_tmp = ishft(pack_tmp, 16)
38485  ipack = ipack + 1
38486  pack_tmp = packed_data(ipack)
38487  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38488  pack_tmp = ishft(pack_tmp, -16)
38489  idata = idata + 1
38490  data_tmp = iand(pack_tmp, mask_right(nbits))
38491  full_data(idata) = data_tmp
38492  pack_tmp = ishft(pack_tmp, -nbits)
38493  idata = idata + 1
38494  data_tmp = ishft(pack_tmp, 48)
38495  ipack = ipack + 1
38496  pack_tmp = packed_data(ipack)
38497  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38498  pack_tmp = ishft(pack_tmp, -48)
38499  idata = idata + 1
38500  data_tmp = ishft(pack_tmp, 32)
38501  ipack = ipack + 1
38502  pack_tmp = packed_data(ipack)
38503  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38504  pack_tmp = ishft(pack_tmp, -32)
38505  idata = idata + 1
38506  data_tmp = ishft(pack_tmp, 16)
38507  ipack = ipack + 1
38508  pack_tmp = packed_data(ipack)
38509  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38510  pack_tmp = ishft(pack_tmp, -16)
38511  idata = idata + 1
38512  data_tmp = iand(pack_tmp, mask_right(nbits))
38513  full_data(idata) = data_tmp
38514  pack_tmp = ishft(pack_tmp, -nbits)
38515  idata = idata + 1
38516  data_tmp = ishft(pack_tmp, 48)
38517  ipack = ipack + 1
38518  pack_tmp = packed_data(ipack)
38519  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38520  pack_tmp = ishft(pack_tmp, -48)
38521  idata = idata + 1
38522  data_tmp = ishft(pack_tmp, 32)
38523  ipack = ipack + 1
38524  pack_tmp = packed_data(ipack)
38525  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38526  pack_tmp = ishft(pack_tmp, -32)
38527  idata = idata + 1
38528  data_tmp = ishft(pack_tmp, 16)
38529  ipack = ipack + 1
38530  pack_tmp = packed_data(ipack)
38531  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38532  pack_tmp = ishft(pack_tmp, -16)
38533  idata = idata + 1
38534  data_tmp = iand(pack_tmp, mask_right(nbits))
38535  full_data(idata) = data_tmp
38536  pack_tmp = ishft(pack_tmp, -nbits)
38537  idata = idata + 1
38538  data_tmp = ishft(pack_tmp, 48)
38539  ipack = ipack + 1
38540  pack_tmp = packed_data(ipack)
38541  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
38542  pack_tmp = ishft(pack_tmp, -48)
38543  idata = idata + 1
38544  data_tmp = ishft(pack_tmp, 32)
38545  ipack = ipack + 1
38546  pack_tmp = packed_data(ipack)
38547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
38548  pack_tmp = ishft(pack_tmp, -32)
38549  idata = idata + 1
38550  data_tmp = ishft(pack_tmp, 16)
38551  ipack = ipack + 1
38552  pack_tmp = packed_data(ipack)
38553  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
38554  pack_tmp = ishft(pack_tmp, -16)
38555  idata = idata + 1
38556  data_tmp = iand(pack_tmp, mask_right(nbits))
38557  full_data(idata) = data_tmp
38558  pack_tmp = ishft(pack_tmp, -nbits)
38559  END DO
38560  IF (ndata_rep < ndata) THEN
38561  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
38562  END IF
38563  END SUBROUTINE bits2ints_48
38564 
38565 ! **************************************************************************************************
38566 !> \brief ...
38567 !> \param Ndata ...
38568 !> \param packed_data ...
38569 !> \param full_data ...
38570 ! **************************************************************************************************
38571  SUBROUTINE ints2bits_49(Ndata, packed_data, full_data)
38572  INTEGER, INTENT(IN) :: Ndata
38573  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
38574  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
38575 
38576  INTEGER, PARAMETER :: Nbits = 49
38577 
38578  INTEGER :: idata, ipack, kdata, Ndata_rep
38579  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
38580 
38581  idata = 0
38582  ipack = 0
38583  ndata_rep = (ndata/64)*64
38584  DO kdata = 1, ndata_rep, 64
38585  pack_tmp = 0
38586  idata = idata + 1
38587  data_tmp = full_data(idata)
38588  data_tmp = ishft(data_tmp, 15)
38589  pack_tmp = ior(pack_tmp, data_tmp)
38590  pack_tmp = ishft(pack_tmp, -15)
38591  idata = idata + 1
38592  data_tmp = full_data(idata)
38593  data_tmp = ishft(data_tmp, 15)
38594  data_tmp = iand(data_tmp, mask_left(15))
38595  pack_tmp = ior(pack_tmp, data_tmp)
38596  ipack = ipack + 1
38597  packed_data(ipack) = pack_tmp
38598  data_tmp = full_data(idata)
38599  pack_tmp = ishft(data_tmp, 30)
38600  pack_tmp = ishft(pack_tmp, -30)
38601  idata = idata + 1
38602  data_tmp = full_data(idata)
38603  data_tmp = ishft(data_tmp, 15)
38604  data_tmp = iand(data_tmp, mask_left(30))
38605  pack_tmp = ior(pack_tmp, data_tmp)
38606  ipack = ipack + 1
38607  packed_data(ipack) = pack_tmp
38608  data_tmp = full_data(idata)
38609  pack_tmp = ishft(data_tmp, 45)
38610  pack_tmp = ishft(pack_tmp, -45)
38611  idata = idata + 1
38612  data_tmp = full_data(idata)
38613  data_tmp = ishft(data_tmp, 15)
38614  data_tmp = iand(data_tmp, mask_left(45))
38615  pack_tmp = ior(pack_tmp, data_tmp)
38616  ipack = ipack + 1
38617  packed_data(ipack) = pack_tmp
38618  data_tmp = full_data(idata)
38619  pack_tmp = ishft(data_tmp, 60)
38620  pack_tmp = ishft(pack_tmp, -49)
38621  idata = idata + 1
38622  data_tmp = full_data(idata)
38623  data_tmp = ishft(data_tmp, 15)
38624  pack_tmp = ior(pack_tmp, data_tmp)
38625  pack_tmp = ishft(pack_tmp, -11)
38626  idata = idata + 1
38627  data_tmp = full_data(idata)
38628  data_tmp = ishft(data_tmp, 15)
38629  data_tmp = iand(data_tmp, mask_left(11))
38630  pack_tmp = ior(pack_tmp, data_tmp)
38631  ipack = ipack + 1
38632  packed_data(ipack) = pack_tmp
38633  data_tmp = full_data(idata)
38634  pack_tmp = ishft(data_tmp, 26)
38635  pack_tmp = ishft(pack_tmp, -26)
38636  idata = idata + 1
38637  data_tmp = full_data(idata)
38638  data_tmp = ishft(data_tmp, 15)
38639  data_tmp = iand(data_tmp, mask_left(26))
38640  pack_tmp = ior(pack_tmp, data_tmp)
38641  ipack = ipack + 1
38642  packed_data(ipack) = pack_tmp
38643  data_tmp = full_data(idata)
38644  pack_tmp = ishft(data_tmp, 41)
38645  pack_tmp = ishft(pack_tmp, -41)
38646  idata = idata + 1
38647  data_tmp = full_data(idata)
38648  data_tmp = ishft(data_tmp, 15)
38649  data_tmp = iand(data_tmp, mask_left(41))
38650  pack_tmp = ior(pack_tmp, data_tmp)
38651  ipack = ipack + 1
38652  packed_data(ipack) = pack_tmp
38653  data_tmp = full_data(idata)
38654  pack_tmp = ishft(data_tmp, 56)
38655  pack_tmp = ishft(pack_tmp, -49)
38656  idata = idata + 1
38657  data_tmp = full_data(idata)
38658  data_tmp = ishft(data_tmp, 15)
38659  pack_tmp = ior(pack_tmp, data_tmp)
38660  pack_tmp = ishft(pack_tmp, -7)
38661  idata = idata + 1
38662  data_tmp = full_data(idata)
38663  data_tmp = ishft(data_tmp, 15)
38664  data_tmp = iand(data_tmp, mask_left(7))
38665  pack_tmp = ior(pack_tmp, data_tmp)
38666  ipack = ipack + 1
38667  packed_data(ipack) = pack_tmp
38668  data_tmp = full_data(idata)
38669  pack_tmp = ishft(data_tmp, 22)
38670  pack_tmp = ishft(pack_tmp, -22)
38671  idata = idata + 1
38672  data_tmp = full_data(idata)
38673  data_tmp = ishft(data_tmp, 15)
38674  data_tmp = iand(data_tmp, mask_left(22))
38675  pack_tmp = ior(pack_tmp, data_tmp)
38676  ipack = ipack + 1
38677  packed_data(ipack) = pack_tmp
38678  data_tmp = full_data(idata)
38679  pack_tmp = ishft(data_tmp, 37)
38680  pack_tmp = ishft(pack_tmp, -37)
38681  idata = idata + 1
38682  data_tmp = full_data(idata)
38683  data_tmp = ishft(data_tmp, 15)
38684  data_tmp = iand(data_tmp, mask_left(37))
38685  pack_tmp = ior(pack_tmp, data_tmp)
38686  ipack = ipack + 1
38687  packed_data(ipack) = pack_tmp
38688  data_tmp = full_data(idata)
38689  pack_tmp = ishft(data_tmp, 52)
38690  pack_tmp = ishft(pack_tmp, -49)
38691  idata = idata + 1
38692  data_tmp = full_data(idata)
38693  data_tmp = ishft(data_tmp, 15)
38694  pack_tmp = ior(pack_tmp, data_tmp)
38695  pack_tmp = ishft(pack_tmp, -3)
38696  idata = idata + 1
38697  data_tmp = full_data(idata)
38698  data_tmp = ishft(data_tmp, 15)
38699  data_tmp = iand(data_tmp, mask_left(3))
38700  pack_tmp = ior(pack_tmp, data_tmp)
38701  ipack = ipack + 1
38702  packed_data(ipack) = pack_tmp
38703  data_tmp = full_data(idata)
38704  pack_tmp = ishft(data_tmp, 18)
38705  pack_tmp = ishft(pack_tmp, -18)
38706  idata = idata + 1
38707  data_tmp = full_data(idata)
38708  data_tmp = ishft(data_tmp, 15)
38709  data_tmp = iand(data_tmp, mask_left(18))
38710  pack_tmp = ior(pack_tmp, data_tmp)
38711  ipack = ipack + 1
38712  packed_data(ipack) = pack_tmp
38713  data_tmp = full_data(idata)
38714  pack_tmp = ishft(data_tmp, 33)
38715  pack_tmp = ishft(pack_tmp, -33)
38716  idata = idata + 1
38717  data_tmp = full_data(idata)
38718  data_tmp = ishft(data_tmp, 15)
38719  data_tmp = iand(data_tmp, mask_left(33))
38720  pack_tmp = ior(pack_tmp, data_tmp)
38721  ipack = ipack + 1
38722  packed_data(ipack) = pack_tmp
38723  data_tmp = full_data(idata)
38724  pack_tmp = ishft(data_tmp, 48)
38725  pack_tmp = ishft(pack_tmp, -48)
38726  idata = idata + 1
38727  data_tmp = full_data(idata)
38728  data_tmp = ishft(data_tmp, 15)
38729  data_tmp = iand(data_tmp, mask_left(48))
38730  pack_tmp = ior(pack_tmp, data_tmp)
38731  ipack = ipack + 1
38732  packed_data(ipack) = pack_tmp
38733  data_tmp = full_data(idata)
38734  pack_tmp = ishft(data_tmp, 63)
38735  pack_tmp = ishft(pack_tmp, -49)
38736  idata = idata + 1
38737  data_tmp = full_data(idata)
38738  data_tmp = ishft(data_tmp, 15)
38739  pack_tmp = ior(pack_tmp, data_tmp)
38740  pack_tmp = ishft(pack_tmp, -14)
38741  idata = idata + 1
38742  data_tmp = full_data(idata)
38743  data_tmp = ishft(data_tmp, 15)
38744  data_tmp = iand(data_tmp, mask_left(14))
38745  pack_tmp = ior(pack_tmp, data_tmp)
38746  ipack = ipack + 1
38747  packed_data(ipack) = pack_tmp
38748  data_tmp = full_data(idata)
38749  pack_tmp = ishft(data_tmp, 29)
38750  pack_tmp = ishft(pack_tmp, -29)
38751  idata = idata + 1
38752  data_tmp = full_data(idata)
38753  data_tmp = ishft(data_tmp, 15)
38754  data_tmp = iand(data_tmp, mask_left(29))
38755  pack_tmp = ior(pack_tmp, data_tmp)
38756  ipack = ipack + 1
38757  packed_data(ipack) = pack_tmp
38758  data_tmp = full_data(idata)
38759  pack_tmp = ishft(data_tmp, 44)
38760  pack_tmp = ishft(pack_tmp, -44)
38761  idata = idata + 1
38762  data_tmp = full_data(idata)
38763  data_tmp = ishft(data_tmp, 15)
38764  data_tmp = iand(data_tmp, mask_left(44))
38765  pack_tmp = ior(pack_tmp, data_tmp)
38766  ipack = ipack + 1
38767  packed_data(ipack) = pack_tmp
38768  data_tmp = full_data(idata)
38769  pack_tmp = ishft(data_tmp, 59)
38770  pack_tmp = ishft(pack_tmp, -49)
38771  idata = idata + 1
38772  data_tmp = full_data(idata)
38773  data_tmp = ishft(data_tmp, 15)
38774  pack_tmp = ior(pack_tmp, data_tmp)
38775  pack_tmp = ishft(pack_tmp, -10)
38776  idata = idata + 1
38777  data_tmp = full_data(idata)
38778  data_tmp = ishft(data_tmp, 15)
38779  data_tmp = iand(data_tmp, mask_left(10))
38780  pack_tmp = ior(pack_tmp, data_tmp)
38781  ipack = ipack + 1
38782  packed_data(ipack) = pack_tmp
38783  data_tmp = full_data(idata)
38784  pack_tmp = ishft(data_tmp, 25)
38785  pack_tmp = ishft(pack_tmp, -25)
38786  idata = idata + 1
38787  data_tmp = full_data(idata)
38788  data_tmp = ishft(data_tmp, 15)
38789  data_tmp = iand(data_tmp, mask_left(25))
38790  pack_tmp = ior(pack_tmp, data_tmp)
38791  ipack = ipack + 1
38792  packed_data(ipack) = pack_tmp
38793  data_tmp = full_data(idata)
38794  pack_tmp = ishft(data_tmp, 40)
38795  pack_tmp = ishft(pack_tmp, -40)
38796  idata = idata + 1
38797  data_tmp = full_data(idata)
38798  data_tmp = ishft(data_tmp, 15)
38799  data_tmp = iand(data_tmp, mask_left(40))
38800  pack_tmp = ior(pack_tmp, data_tmp)
38801  ipack = ipack + 1
38802  packed_data(ipack) = pack_tmp
38803  data_tmp = full_data(idata)
38804  pack_tmp = ishft(data_tmp, 55)
38805  pack_tmp = ishft(pack_tmp, -49)
38806  idata = idata + 1
38807  data_tmp = full_data(idata)
38808  data_tmp = ishft(data_tmp, 15)
38809  pack_tmp = ior(pack_tmp, data_tmp)
38810  pack_tmp = ishft(pack_tmp, -6)
38811  idata = idata + 1
38812  data_tmp = full_data(idata)
38813  data_tmp = ishft(data_tmp, 15)
38814  data_tmp = iand(data_tmp, mask_left(6))
38815  pack_tmp = ior(pack_tmp, data_tmp)
38816  ipack = ipack + 1
38817  packed_data(ipack) = pack_tmp
38818  data_tmp = full_data(idata)
38819  pack_tmp = ishft(data_tmp, 21)
38820  pack_tmp = ishft(pack_tmp, -21)
38821  idata = idata + 1
38822  data_tmp = full_data(idata)
38823  data_tmp = ishft(data_tmp, 15)
38824  data_tmp = iand(data_tmp, mask_left(21))
38825  pack_tmp = ior(pack_tmp, data_tmp)
38826  ipack = ipack + 1
38827  packed_data(ipack) = pack_tmp
38828  data_tmp = full_data(idata)
38829  pack_tmp = ishft(data_tmp, 36)
38830  pack_tmp = ishft(pack_tmp, -36)
38831  idata = idata + 1
38832  data_tmp = full_data(idata)
38833  data_tmp = ishft(data_tmp, 15)
38834  data_tmp = iand(data_tmp, mask_left(36))
38835  pack_tmp = ior(pack_tmp, data_tmp)
38836  ipack = ipack + 1
38837  packed_data(ipack) = pack_tmp
38838  data_tmp = full_data(idata)
38839  pack_tmp = ishft(data_tmp, 51)
38840  pack_tmp = ishft(pack_tmp, -49)
38841  idata = idata + 1
38842  data_tmp = full_data(idata)
38843  data_tmp = ishft(data_tmp, 15)
38844  pack_tmp = ior(pack_tmp, data_tmp)
38845  pack_tmp = ishft(pack_tmp, -2)
38846  idata = idata + 1
38847  data_tmp = full_data(idata)
38848  data_tmp = ishft(data_tmp, 15)
38849  data_tmp = iand(data_tmp, mask_left(2))
38850  pack_tmp = ior(pack_tmp, data_tmp)
38851  ipack = ipack + 1
38852  packed_data(ipack) = pack_tmp
38853  data_tmp = full_data(idata)
38854  pack_tmp = ishft(data_tmp, 17)
38855  pack_tmp = ishft(pack_tmp, -17)
38856  idata = idata + 1
38857  data_tmp = full_data(idata)
38858  data_tmp = ishft(data_tmp, 15)
38859  data_tmp = iand(data_tmp, mask_left(17))
38860  pack_tmp = ior(pack_tmp, data_tmp)
38861  ipack = ipack + 1
38862  packed_data(ipack) = pack_tmp
38863  data_tmp = full_data(idata)
38864  pack_tmp = ishft(data_tmp, 32)
38865  pack_tmp = ishft(pack_tmp, -32)
38866  idata = idata + 1
38867  data_tmp = full_data(idata)
38868  data_tmp = ishft(data_tmp, 15)
38869  data_tmp = iand(data_tmp, mask_left(32))
38870  pack_tmp = ior(pack_tmp, data_tmp)
38871  ipack = ipack + 1
38872  packed_data(ipack) = pack_tmp
38873  data_tmp = full_data(idata)
38874  pack_tmp = ishft(data_tmp, 47)
38875  pack_tmp = ishft(pack_tmp, -47)
38876  idata = idata + 1
38877  data_tmp = full_data(idata)
38878  data_tmp = ishft(data_tmp, 15)
38879  data_tmp = iand(data_tmp, mask_left(47))
38880  pack_tmp = ior(pack_tmp, data_tmp)
38881  ipack = ipack + 1
38882  packed_data(ipack) = pack_tmp
38883  data_tmp = full_data(idata)
38884  pack_tmp = ishft(data_tmp, 62)
38885  pack_tmp = ishft(pack_tmp, -49)
38886  idata = idata + 1
38887  data_tmp = full_data(idata)
38888  data_tmp = ishft(data_tmp, 15)
38889  pack_tmp = ior(pack_tmp, data_tmp)
38890  pack_tmp = ishft(pack_tmp, -13)
38891  idata = idata + 1
38892  data_tmp = full_data(idata)
38893  data_tmp = ishft(data_tmp, 15)
38894  data_tmp = iand(data_tmp, mask_left(13))
38895  pack_tmp = ior(pack_tmp, data_tmp)
38896  ipack = ipack + 1
38897  packed_data(ipack) = pack_tmp
38898  data_tmp = full_data(idata)
38899  pack_tmp = ishft(data_tmp, 28)
38900  pack_tmp = ishft(pack_tmp, -28)
38901  idata = idata + 1
38902  data_tmp = full_data(idata)
38903  data_tmp = ishft(data_tmp, 15)
38904  data_tmp = iand(data_tmp, mask_left(28))
38905  pack_tmp = ior(pack_tmp, data_tmp)
38906  ipack = ipack + 1
38907  packed_data(ipack) = pack_tmp
38908  data_tmp = full_data(idata)
38909  pack_tmp = ishft(data_tmp, 43)
38910  pack_tmp = ishft(pack_tmp, -43)
38911  idata = idata + 1
38912  data_tmp = full_data(idata)
38913  data_tmp = ishft(data_tmp, 15)
38914  data_tmp = iand(data_tmp, mask_left(43))
38915  pack_tmp = ior(pack_tmp, data_tmp)
38916  ipack = ipack + 1
38917  packed_data(ipack) = pack_tmp
38918  data_tmp = full_data(idata)
38919  pack_tmp = ishft(data_tmp, 58)
38920  pack_tmp = ishft(pack_tmp, -49)
38921  idata = idata + 1
38922  data_tmp = full_data(idata)
38923  data_tmp = ishft(data_tmp, 15)
38924  pack_tmp = ior(pack_tmp, data_tmp)
38925  pack_tmp = ishft(pack_tmp, -9)
38926  idata = idata + 1
38927  data_tmp = full_data(idata)
38928  data_tmp = ishft(data_tmp, 15)
38929  data_tmp = iand(data_tmp, mask_left(9))
38930  pack_tmp = ior(pack_tmp, data_tmp)
38931  ipack = ipack + 1
38932  packed_data(ipack) = pack_tmp
38933  data_tmp = full_data(idata)
38934  pack_tmp = ishft(data_tmp, 24)
38935  pack_tmp = ishft(pack_tmp, -24)
38936  idata = idata + 1
38937  data_tmp = full_data(idata)
38938  data_tmp = ishft(data_tmp, 15)
38939  data_tmp = iand(data_tmp, mask_left(24))
38940  pack_tmp = ior(pack_tmp, data_tmp)
38941  ipack = ipack + 1
38942  packed_data(ipack) = pack_tmp
38943  data_tmp = full_data(idata)
38944  pack_tmp = ishft(data_tmp, 39)
38945  pack_tmp = ishft(pack_tmp, -39)
38946  idata = idata + 1
38947  data_tmp = full_data(idata)
38948  data_tmp = ishft(data_tmp, 15)
38949  data_tmp = iand(data_tmp, mask_left(39))
38950  pack_tmp = ior(pack_tmp, data_tmp)
38951  ipack = ipack + 1
38952  packed_data(ipack) = pack_tmp
38953  data_tmp = full_data(idata)
38954  pack_tmp = ishft(data_tmp, 54)
38955  pack_tmp = ishft(pack_tmp, -49)
38956  idata = idata + 1
38957  data_tmp = full_data(idata)
38958  data_tmp = ishft(data_tmp, 15)
38959  pack_tmp = ior(pack_tmp, data_tmp)
38960  pack_tmp = ishft(pack_tmp, -5)
38961  idata = idata + 1
38962  data_tmp = full_data(idata)
38963  data_tmp = ishft(data_tmp, 15)
38964  data_tmp = iand(data_tmp, mask_left(5))
38965  pack_tmp = ior(pack_tmp, data_tmp)
38966  ipack = ipack + 1
38967  packed_data(ipack) = pack_tmp
38968  data_tmp = full_data(idata)
38969  pack_tmp = ishft(data_tmp, 20)
38970  pack_tmp = ishft(pack_tmp, -20)
38971  idata = idata + 1
38972  data_tmp = full_data(idata)
38973  data_tmp = ishft(data_tmp, 15)
38974  data_tmp = iand(data_tmp, mask_left(20))
38975  pack_tmp = ior(pack_tmp, data_tmp)
38976  ipack = ipack + 1
38977  packed_data(ipack) = pack_tmp
38978  data_tmp = full_data(idata)
38979  pack_tmp = ishft(data_tmp, 35)
38980  pack_tmp = ishft(pack_tmp, -35)
38981  idata = idata + 1
38982  data_tmp = full_data(idata)
38983  data_tmp = ishft(data_tmp, 15)
38984  data_tmp = iand(data_tmp, mask_left(35))
38985  pack_tmp = ior(pack_tmp, data_tmp)
38986  ipack = ipack + 1
38987  packed_data(ipack) = pack_tmp
38988  data_tmp = full_data(idata)
38989  pack_tmp = ishft(data_tmp, 50)
38990  pack_tmp = ishft(pack_tmp, -49)
38991  idata = idata + 1
38992  data_tmp = full_data(idata)
38993  data_tmp = ishft(data_tmp, 15)
38994  pack_tmp = ior(pack_tmp, data_tmp)
38995  pack_tmp = ishft(pack_tmp, -1)
38996  idata = idata + 1
38997  data_tmp = full_data(idata)
38998  data_tmp = ishft(data_tmp, 15)
38999  data_tmp = iand(data_tmp, mask_left(1))
39000  pack_tmp = ior(pack_tmp, data_tmp)
39001  ipack = ipack + 1
39002  packed_data(ipack) = pack_tmp
39003  data_tmp = full_data(idata)
39004  pack_tmp = ishft(data_tmp, 16)
39005  pack_tmp = ishft(pack_tmp, -16)
39006  idata = idata + 1
39007  data_tmp = full_data(idata)
39008  data_tmp = ishft(data_tmp, 15)
39009  data_tmp = iand(data_tmp, mask_left(16))
39010  pack_tmp = ior(pack_tmp, data_tmp)
39011  ipack = ipack + 1
39012  packed_data(ipack) = pack_tmp
39013  data_tmp = full_data(idata)
39014  pack_tmp = ishft(data_tmp, 31)
39015  pack_tmp = ishft(pack_tmp, -31)
39016  idata = idata + 1
39017  data_tmp = full_data(idata)
39018  data_tmp = ishft(data_tmp, 15)
39019  data_tmp = iand(data_tmp, mask_left(31))
39020  pack_tmp = ior(pack_tmp, data_tmp)
39021  ipack = ipack + 1
39022  packed_data(ipack) = pack_tmp
39023  data_tmp = full_data(idata)
39024  pack_tmp = ishft(data_tmp, 46)
39025  pack_tmp = ishft(pack_tmp, -46)
39026  idata = idata + 1
39027  data_tmp = full_data(idata)
39028  data_tmp = ishft(data_tmp, 15)
39029  data_tmp = iand(data_tmp, mask_left(46))
39030  pack_tmp = ior(pack_tmp, data_tmp)
39031  ipack = ipack + 1
39032  packed_data(ipack) = pack_tmp
39033  data_tmp = full_data(idata)
39034  pack_tmp = ishft(data_tmp, 61)
39035  pack_tmp = ishft(pack_tmp, -49)
39036  idata = idata + 1
39037  data_tmp = full_data(idata)
39038  data_tmp = ishft(data_tmp, 15)
39039  pack_tmp = ior(pack_tmp, data_tmp)
39040  pack_tmp = ishft(pack_tmp, -12)
39041  idata = idata + 1
39042  data_tmp = full_data(idata)
39043  data_tmp = ishft(data_tmp, 15)
39044  data_tmp = iand(data_tmp, mask_left(12))
39045  pack_tmp = ior(pack_tmp, data_tmp)
39046  ipack = ipack + 1
39047  packed_data(ipack) = pack_tmp
39048  data_tmp = full_data(idata)
39049  pack_tmp = ishft(data_tmp, 27)
39050  pack_tmp = ishft(pack_tmp, -27)
39051  idata = idata + 1
39052  data_tmp = full_data(idata)
39053  data_tmp = ishft(data_tmp, 15)
39054  data_tmp = iand(data_tmp, mask_left(27))
39055  pack_tmp = ior(pack_tmp, data_tmp)
39056  ipack = ipack + 1
39057  packed_data(ipack) = pack_tmp
39058  data_tmp = full_data(idata)
39059  pack_tmp = ishft(data_tmp, 42)
39060  pack_tmp = ishft(pack_tmp, -42)
39061  idata = idata + 1
39062  data_tmp = full_data(idata)
39063  data_tmp = ishft(data_tmp, 15)
39064  data_tmp = iand(data_tmp, mask_left(42))
39065  pack_tmp = ior(pack_tmp, data_tmp)
39066  ipack = ipack + 1
39067  packed_data(ipack) = pack_tmp
39068  data_tmp = full_data(idata)
39069  pack_tmp = ishft(data_tmp, 57)
39070  pack_tmp = ishft(pack_tmp, -49)
39071  idata = idata + 1
39072  data_tmp = full_data(idata)
39073  data_tmp = ishft(data_tmp, 15)
39074  pack_tmp = ior(pack_tmp, data_tmp)
39075  pack_tmp = ishft(pack_tmp, -8)
39076  idata = idata + 1
39077  data_tmp = full_data(idata)
39078  data_tmp = ishft(data_tmp, 15)
39079  data_tmp = iand(data_tmp, mask_left(8))
39080  pack_tmp = ior(pack_tmp, data_tmp)
39081  ipack = ipack + 1
39082  packed_data(ipack) = pack_tmp
39083  data_tmp = full_data(idata)
39084  pack_tmp = ishft(data_tmp, 23)
39085  pack_tmp = ishft(pack_tmp, -23)
39086  idata = idata + 1
39087  data_tmp = full_data(idata)
39088  data_tmp = ishft(data_tmp, 15)
39089  data_tmp = iand(data_tmp, mask_left(23))
39090  pack_tmp = ior(pack_tmp, data_tmp)
39091  ipack = ipack + 1
39092  packed_data(ipack) = pack_tmp
39093  data_tmp = full_data(idata)
39094  pack_tmp = ishft(data_tmp, 38)
39095  pack_tmp = ishft(pack_tmp, -38)
39096  idata = idata + 1
39097  data_tmp = full_data(idata)
39098  data_tmp = ishft(data_tmp, 15)
39099  data_tmp = iand(data_tmp, mask_left(38))
39100  pack_tmp = ior(pack_tmp, data_tmp)
39101  ipack = ipack + 1
39102  packed_data(ipack) = pack_tmp
39103  data_tmp = full_data(idata)
39104  pack_tmp = ishft(data_tmp, 53)
39105  pack_tmp = ishft(pack_tmp, -49)
39106  idata = idata + 1
39107  data_tmp = full_data(idata)
39108  data_tmp = ishft(data_tmp, 15)
39109  pack_tmp = ior(pack_tmp, data_tmp)
39110  pack_tmp = ishft(pack_tmp, -4)
39111  idata = idata + 1
39112  data_tmp = full_data(idata)
39113  data_tmp = ishft(data_tmp, 15)
39114  data_tmp = iand(data_tmp, mask_left(4))
39115  pack_tmp = ior(pack_tmp, data_tmp)
39116  ipack = ipack + 1
39117  packed_data(ipack) = pack_tmp
39118  data_tmp = full_data(idata)
39119  pack_tmp = ishft(data_tmp, 19)
39120  pack_tmp = ishft(pack_tmp, -19)
39121  idata = idata + 1
39122  data_tmp = full_data(idata)
39123  data_tmp = ishft(data_tmp, 15)
39124  data_tmp = iand(data_tmp, mask_left(19))
39125  pack_tmp = ior(pack_tmp, data_tmp)
39126  ipack = ipack + 1
39127  packed_data(ipack) = pack_tmp
39128  data_tmp = full_data(idata)
39129  pack_tmp = ishft(data_tmp, 34)
39130  pack_tmp = ishft(pack_tmp, -34)
39131  idata = idata + 1
39132  data_tmp = full_data(idata)
39133  data_tmp = ishft(data_tmp, 15)
39134  data_tmp = iand(data_tmp, mask_left(34))
39135  pack_tmp = ior(pack_tmp, data_tmp)
39136  ipack = ipack + 1
39137  packed_data(ipack) = pack_tmp
39138  data_tmp = full_data(idata)
39139  pack_tmp = ishft(data_tmp, 49)
39140  pack_tmp = ishft(pack_tmp, -49)
39141  idata = idata + 1
39142  data_tmp = full_data(idata)
39143  data_tmp = ishft(data_tmp, 15)
39144  pack_tmp = ior(pack_tmp, data_tmp)
39145  pack_tmp = ishft(pack_tmp, 0)
39146  pack_tmp = ishft(pack_tmp, 0)
39147  ipack = ipack + 1
39148  packed_data(ipack) = pack_tmp
39149  END DO
39150  IF (ndata_rep < ndata) THEN
39151  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
39152  END IF
39153  END SUBROUTINE ints2bits_49
39154 
39155 ! **************************************************************************************************
39156 !> \brief ...
39157 !> \param Ndata ...
39158 !> \param packed_data ...
39159 !> \param full_data ...
39160 ! **************************************************************************************************
39161  SUBROUTINE bits2ints_49(Ndata, packed_data, full_data)
39162  INTEGER, INTENT(IN) :: Ndata
39163  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
39164  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
39165 
39166  INTEGER, PARAMETER :: Nbits = 49
39167 
39168  INTEGER :: idata, ipack, kdata, Ndata_rep
39169  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
39170 
39171  ipack = 0
39172  idata = 0
39173  pack_tmp = 0
39174  ndata_rep = (ndata/64)*64
39175  DO kdata = 1, ndata_rep, 64
39176  idata = idata + 1
39177  data_tmp = ishft(pack_tmp, 49)
39178  ipack = ipack + 1
39179  pack_tmp = packed_data(ipack)
39180  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
39181  pack_tmp = ishft(pack_tmp, -49)
39182  idata = idata + 1
39183  data_tmp = ishft(pack_tmp, 34)
39184  ipack = ipack + 1
39185  pack_tmp = packed_data(ipack)
39186  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
39187  pack_tmp = ishft(pack_tmp, -34)
39188  idata = idata + 1
39189  data_tmp = ishft(pack_tmp, 19)
39190  ipack = ipack + 1
39191  pack_tmp = packed_data(ipack)
39192  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
39193  pack_tmp = ishft(pack_tmp, -19)
39194  idata = idata + 1
39195  data_tmp = ishft(pack_tmp, 4)
39196  ipack = ipack + 1
39197  pack_tmp = packed_data(ipack)
39198  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
39199  pack_tmp = ishft(pack_tmp, -4)
39200  idata = idata + 1
39201  data_tmp = iand(pack_tmp, mask_right(nbits))
39202  full_data(idata) = data_tmp
39203  pack_tmp = ishft(pack_tmp, -nbits)
39204  idata = idata + 1
39205  data_tmp = ishft(pack_tmp, 38)
39206  ipack = ipack + 1
39207  pack_tmp = packed_data(ipack)
39208  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
39209  pack_tmp = ishft(pack_tmp, -38)
39210  idata = idata + 1
39211  data_tmp = ishft(pack_tmp, 23)
39212  ipack = ipack + 1
39213  pack_tmp = packed_data(ipack)
39214  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
39215  pack_tmp = ishft(pack_tmp, -23)
39216  idata = idata + 1
39217  data_tmp = ishft(pack_tmp, 8)
39218  ipack = ipack + 1
39219  pack_tmp = packed_data(ipack)
39220  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
39221  pack_tmp = ishft(pack_tmp, -8)
39222  idata = idata + 1
39223  data_tmp = iand(pack_tmp, mask_right(nbits))
39224  full_data(idata) = data_tmp
39225  pack_tmp = ishft(pack_tmp, -nbits)
39226  idata = idata + 1
39227  data_tmp = ishft(pack_tmp, 42)
39228  ipack = ipack + 1
39229  pack_tmp = packed_data(ipack)
39230  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
39231  pack_tmp = ishft(pack_tmp, -42)
39232  idata = idata + 1
39233  data_tmp = ishft(pack_tmp, 27)
39234  ipack = ipack + 1
39235  pack_tmp = packed_data(ipack)
39236  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
39237  pack_tmp = ishft(pack_tmp, -27)
39238  idata = idata + 1
39239  data_tmp = ishft(pack_tmp, 12)
39240  ipack = ipack + 1
39241  pack_tmp = packed_data(ipack)
39242  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
39243  pack_tmp = ishft(pack_tmp, -12)
39244  idata = idata + 1
39245  data_tmp = iand(pack_tmp, mask_right(nbits))
39246  full_data(idata) = data_tmp
39247  pack_tmp = ishft(pack_tmp, -nbits)
39248  idata = idata + 1
39249  data_tmp = ishft(pack_tmp, 46)
39250  ipack = ipack + 1
39251  pack_tmp = packed_data(ipack)
39252  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
39253  pack_tmp = ishft(pack_tmp, -46)
39254  idata = idata + 1
39255  data_tmp = ishft(pack_tmp, 31)
39256  ipack = ipack + 1
39257  pack_tmp = packed_data(ipack)
39258  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
39259  pack_tmp = ishft(pack_tmp, -31)
39260  idata = idata + 1
39261  data_tmp = ishft(pack_tmp, 16)
39262  ipack = ipack + 1
39263  pack_tmp = packed_data(ipack)
39264  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
39265  pack_tmp = ishft(pack_tmp, -16)
39266  idata = idata + 1
39267  data_tmp = ishft(pack_tmp, 1)
39268  ipack = ipack + 1
39269  pack_tmp = packed_data(ipack)
39270  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
39271  pack_tmp = ishft(pack_tmp, -1)
39272  idata = idata + 1
39273  data_tmp = iand(pack_tmp, mask_right(nbits))
39274  full_data(idata) = data_tmp
39275  pack_tmp = ishft(pack_tmp, -nbits)
39276  idata = idata + 1
39277  data_tmp = ishft(pack_tmp, 35)
39278  ipack = ipack + 1
39279  pack_tmp = packed_data(ipack)
39280  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
39281  pack_tmp = ishft(pack_tmp, -35)
39282  idata = idata + 1
39283  data_tmp = ishft(pack_tmp, 20)
39284  ipack = ipack + 1
39285  pack_tmp = packed_data(ipack)
39286  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
39287  pack_tmp = ishft(pack_tmp, -20)
39288  idata = idata + 1
39289  data_tmp = ishft(pack_tmp, 5)
39290  ipack = ipack + 1
39291  pack_tmp = packed_data(ipack)
39292  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
39293  pack_tmp = ishft(pack_tmp, -5)
39294  idata = idata + 1
39295  data_tmp = iand(pack_tmp, mask_right(nbits))
39296  full_data(idata) = data_tmp
39297  pack_tmp = ishft(pack_tmp, -nbits)
39298  idata = idata + 1
39299  data_tmp = ishft(pack_tmp, 39)
39300  ipack = ipack + 1
39301  pack_tmp = packed_data(ipack)
39302  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
39303  pack_tmp = ishft(pack_tmp, -39)
39304  idata = idata + 1
39305  data_tmp = ishft(pack_tmp, 24)
39306  ipack = ipack + 1
39307  pack_tmp = packed_data(ipack)
39308  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
39309  pack_tmp = ishft(pack_tmp, -24)
39310  idata = idata + 1
39311  data_tmp = ishft(pack_tmp, 9)
39312  ipack = ipack + 1
39313  pack_tmp = packed_data(ipack)
39314  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
39315  pack_tmp = ishft(pack_tmp, -9)
39316  idata = idata + 1
39317  data_tmp = iand(pack_tmp, mask_right(nbits))
39318  full_data(idata) = data_tmp
39319  pack_tmp = ishft(pack_tmp, -nbits)
39320  idata = idata + 1
39321  data_tmp = ishft(pack_tmp, 43)
39322  ipack = ipack + 1
39323  pack_tmp = packed_data(ipack)
39324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
39325  pack_tmp = ishft(pack_tmp, -43)
39326  idata = idata + 1
39327  data_tmp = ishft(pack_tmp, 28)
39328  ipack = ipack + 1
39329  pack_tmp = packed_data(ipack)
39330  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
39331  pack_tmp = ishft(pack_tmp, -28)
39332  idata = idata + 1
39333  data_tmp = ishft(pack_tmp, 13)
39334  ipack = ipack + 1
39335  pack_tmp = packed_data(ipack)
39336  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
39337  pack_tmp = ishft(pack_tmp, -13)
39338  idata = idata + 1
39339  data_tmp = iand(pack_tmp, mask_right(nbits))
39340  full_data(idata) = data_tmp
39341  pack_tmp = ishft(pack_tmp, -nbits)
39342  idata = idata + 1
39343  data_tmp = ishft(pack_tmp, 47)
39344  ipack = ipack + 1
39345  pack_tmp = packed_data(ipack)
39346  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
39347  pack_tmp = ishft(pack_tmp, -47)
39348  idata = idata + 1
39349  data_tmp = ishft(pack_tmp, 32)
39350  ipack = ipack + 1
39351  pack_tmp = packed_data(ipack)
39352  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
39353  pack_tmp = ishft(pack_tmp, -32)
39354  idata = idata + 1
39355  data_tmp = ishft(pack_tmp, 17)
39356  ipack = ipack + 1
39357  pack_tmp = packed_data(ipack)
39358  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
39359  pack_tmp = ishft(pack_tmp, -17)
39360  idata = idata + 1
39361  data_tmp = ishft(pack_tmp, 2)
39362  ipack = ipack + 1
39363  pack_tmp = packed_data(ipack)
39364  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
39365  pack_tmp = ishft(pack_tmp, -2)
39366  idata = idata + 1
39367  data_tmp = iand(pack_tmp, mask_right(nbits))
39368  full_data(idata) = data_tmp
39369  pack_tmp = ishft(pack_tmp, -nbits)
39370  idata = idata + 1
39371  data_tmp = ishft(pack_tmp, 36)
39372  ipack = ipack + 1
39373  pack_tmp = packed_data(ipack)
39374  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
39375  pack_tmp = ishft(pack_tmp, -36)
39376  idata = idata + 1
39377  data_tmp = ishft(pack_tmp, 21)
39378  ipack = ipack + 1
39379  pack_tmp = packed_data(ipack)
39380  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
39381  pack_tmp = ishft(pack_tmp, -21)
39382  idata = idata + 1
39383  data_tmp = ishft(pack_tmp, 6)
39384  ipack = ipack + 1
39385  pack_tmp = packed_data(ipack)
39386  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
39387  pack_tmp = ishft(pack_tmp, -6)
39388  idata = idata + 1
39389  data_tmp = iand(pack_tmp, mask_right(nbits))
39390  full_data(idata) = data_tmp
39391  pack_tmp = ishft(pack_tmp, -nbits)
39392  idata = idata + 1
39393  data_tmp = ishft(pack_tmp, 40)
39394  ipack = ipack + 1
39395  pack_tmp = packed_data(ipack)
39396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
39397  pack_tmp = ishft(pack_tmp, -40)
39398  idata = idata + 1
39399  data_tmp = ishft(pack_tmp, 25)
39400  ipack = ipack + 1
39401  pack_tmp = packed_data(ipack)
39402  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
39403  pack_tmp = ishft(pack_tmp, -25)
39404  idata = idata + 1
39405  data_tmp = ishft(pack_tmp, 10)
39406  ipack = ipack + 1
39407  pack_tmp = packed_data(ipack)
39408  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
39409  pack_tmp = ishft(pack_tmp, -10)
39410  idata = idata + 1
39411  data_tmp = iand(pack_tmp, mask_right(nbits))
39412  full_data(idata) = data_tmp
39413  pack_tmp = ishft(pack_tmp, -nbits)
39414  idata = idata + 1
39415  data_tmp = ishft(pack_tmp, 44)
39416  ipack = ipack + 1
39417  pack_tmp = packed_data(ipack)
39418  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
39419  pack_tmp = ishft(pack_tmp, -44)
39420  idata = idata + 1
39421  data_tmp = ishft(pack_tmp, 29)
39422  ipack = ipack + 1
39423  pack_tmp = packed_data(ipack)
39424  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
39425  pack_tmp = ishft(pack_tmp, -29)
39426  idata = idata + 1
39427  data_tmp = ishft(pack_tmp, 14)
39428  ipack = ipack + 1
39429  pack_tmp = packed_data(ipack)
39430  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
39431  pack_tmp = ishft(pack_tmp, -14)
39432  idata = idata + 1
39433  data_tmp = iand(pack_tmp, mask_right(nbits))
39434  full_data(idata) = data_tmp
39435  pack_tmp = ishft(pack_tmp, -nbits)
39436  idata = idata + 1
39437  data_tmp = ishft(pack_tmp, 48)
39438  ipack = ipack + 1
39439  pack_tmp = packed_data(ipack)
39440  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
39441  pack_tmp = ishft(pack_tmp, -48)
39442  idata = idata + 1
39443  data_tmp = ishft(pack_tmp, 33)
39444  ipack = ipack + 1
39445  pack_tmp = packed_data(ipack)
39446  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
39447  pack_tmp = ishft(pack_tmp, -33)
39448  idata = idata + 1
39449  data_tmp = ishft(pack_tmp, 18)
39450  ipack = ipack + 1
39451  pack_tmp = packed_data(ipack)
39452  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
39453  pack_tmp = ishft(pack_tmp, -18)
39454  idata = idata + 1
39455  data_tmp = ishft(pack_tmp, 3)
39456  ipack = ipack + 1
39457  pack_tmp = packed_data(ipack)
39458  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
39459  pack_tmp = ishft(pack_tmp, -3)
39460  idata = idata + 1
39461  data_tmp = iand(pack_tmp, mask_right(nbits))
39462  full_data(idata) = data_tmp
39463  pack_tmp = ishft(pack_tmp, -nbits)
39464  idata = idata + 1
39465  data_tmp = ishft(pack_tmp, 37)
39466  ipack = ipack + 1
39467  pack_tmp = packed_data(ipack)
39468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
39469  pack_tmp = ishft(pack_tmp, -37)
39470  idata = idata + 1
39471  data_tmp = ishft(pack_tmp, 22)
39472  ipack = ipack + 1
39473  pack_tmp = packed_data(ipack)
39474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
39475  pack_tmp = ishft(pack_tmp, -22)
39476  idata = idata + 1
39477  data_tmp = ishft(pack_tmp, 7)
39478  ipack = ipack + 1
39479  pack_tmp = packed_data(ipack)
39480  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
39481  pack_tmp = ishft(pack_tmp, -7)
39482  idata = idata + 1
39483  data_tmp = iand(pack_tmp, mask_right(nbits))
39484  full_data(idata) = data_tmp
39485  pack_tmp = ishft(pack_tmp, -nbits)
39486  idata = idata + 1
39487  data_tmp = ishft(pack_tmp, 41)
39488  ipack = ipack + 1
39489  pack_tmp = packed_data(ipack)
39490  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
39491  pack_tmp = ishft(pack_tmp, -41)
39492  idata = idata + 1
39493  data_tmp = ishft(pack_tmp, 26)
39494  ipack = ipack + 1
39495  pack_tmp = packed_data(ipack)
39496  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
39497  pack_tmp = ishft(pack_tmp, -26)
39498  idata = idata + 1
39499  data_tmp = ishft(pack_tmp, 11)
39500  ipack = ipack + 1
39501  pack_tmp = packed_data(ipack)
39502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
39503  pack_tmp = ishft(pack_tmp, -11)
39504  idata = idata + 1
39505  data_tmp = iand(pack_tmp, mask_right(nbits))
39506  full_data(idata) = data_tmp
39507  pack_tmp = ishft(pack_tmp, -nbits)
39508  idata = idata + 1
39509  data_tmp = ishft(pack_tmp, 45)
39510  ipack = ipack + 1
39511  pack_tmp = packed_data(ipack)
39512  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
39513  pack_tmp = ishft(pack_tmp, -45)
39514  idata = idata + 1
39515  data_tmp = ishft(pack_tmp, 30)
39516  ipack = ipack + 1
39517  pack_tmp = packed_data(ipack)
39518  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
39519  pack_tmp = ishft(pack_tmp, -30)
39520  idata = idata + 1
39521  data_tmp = ishft(pack_tmp, 15)
39522  ipack = ipack + 1
39523  pack_tmp = packed_data(ipack)
39524  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
39525  pack_tmp = ishft(pack_tmp, -15)
39526  idata = idata + 1
39527  data_tmp = iand(pack_tmp, mask_right(nbits))
39528  full_data(idata) = data_tmp
39529  pack_tmp = ishft(pack_tmp, -nbits)
39530  END DO
39531  IF (ndata_rep < ndata) THEN
39532  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
39533  END IF
39534  END SUBROUTINE bits2ints_49
39535 
39536 ! **************************************************************************************************
39537 !> \brief ...
39538 !> \param Ndata ...
39539 !> \param packed_data ...
39540 !> \param full_data ...
39541 ! **************************************************************************************************
39542  SUBROUTINE ints2bits_50(Ndata, packed_data, full_data)
39543  INTEGER, INTENT(IN) :: Ndata
39544  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
39545  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
39546 
39547  INTEGER, PARAMETER :: Nbits = 50
39548 
39549  INTEGER :: idata, ipack, kdata, Ndata_rep
39550  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
39551 
39552  idata = 0
39553  ipack = 0
39554  ndata_rep = (ndata/64)*64
39555  DO kdata = 1, ndata_rep, 64
39556  pack_tmp = 0
39557  idata = idata + 1
39558  data_tmp = full_data(idata)
39559  data_tmp = ishft(data_tmp, 14)
39560  pack_tmp = ior(pack_tmp, data_tmp)
39561  pack_tmp = ishft(pack_tmp, -14)
39562  idata = idata + 1
39563  data_tmp = full_data(idata)
39564  data_tmp = ishft(data_tmp, 14)
39565  data_tmp = iand(data_tmp, mask_left(14))
39566  pack_tmp = ior(pack_tmp, data_tmp)
39567  ipack = ipack + 1
39568  packed_data(ipack) = pack_tmp
39569  data_tmp = full_data(idata)
39570  pack_tmp = ishft(data_tmp, 28)
39571  pack_tmp = ishft(pack_tmp, -28)
39572  idata = idata + 1
39573  data_tmp = full_data(idata)
39574  data_tmp = ishft(data_tmp, 14)
39575  data_tmp = iand(data_tmp, mask_left(28))
39576  pack_tmp = ior(pack_tmp, data_tmp)
39577  ipack = ipack + 1
39578  packed_data(ipack) = pack_tmp
39579  data_tmp = full_data(idata)
39580  pack_tmp = ishft(data_tmp, 42)
39581  pack_tmp = ishft(pack_tmp, -42)
39582  idata = idata + 1
39583  data_tmp = full_data(idata)
39584  data_tmp = ishft(data_tmp, 14)
39585  data_tmp = iand(data_tmp, mask_left(42))
39586  pack_tmp = ior(pack_tmp, data_tmp)
39587  ipack = ipack + 1
39588  packed_data(ipack) = pack_tmp
39589  data_tmp = full_data(idata)
39590  pack_tmp = ishft(data_tmp, 56)
39591  pack_tmp = ishft(pack_tmp, -50)
39592  idata = idata + 1
39593  data_tmp = full_data(idata)
39594  data_tmp = ishft(data_tmp, 14)
39595  pack_tmp = ior(pack_tmp, data_tmp)
39596  pack_tmp = ishft(pack_tmp, -6)
39597  idata = idata + 1
39598  data_tmp = full_data(idata)
39599  data_tmp = ishft(data_tmp, 14)
39600  data_tmp = iand(data_tmp, mask_left(6))
39601  pack_tmp = ior(pack_tmp, data_tmp)
39602  ipack = ipack + 1
39603  packed_data(ipack) = pack_tmp
39604  data_tmp = full_data(idata)
39605  pack_tmp = ishft(data_tmp, 20)
39606  pack_tmp = ishft(pack_tmp, -20)
39607  idata = idata + 1
39608  data_tmp = full_data(idata)
39609  data_tmp = ishft(data_tmp, 14)
39610  data_tmp = iand(data_tmp, mask_left(20))
39611  pack_tmp = ior(pack_tmp, data_tmp)
39612  ipack = ipack + 1
39613  packed_data(ipack) = pack_tmp
39614  data_tmp = full_data(idata)
39615  pack_tmp = ishft(data_tmp, 34)
39616  pack_tmp = ishft(pack_tmp, -34)
39617  idata = idata + 1
39618  data_tmp = full_data(idata)
39619  data_tmp = ishft(data_tmp, 14)
39620  data_tmp = iand(data_tmp, mask_left(34))
39621  pack_tmp = ior(pack_tmp, data_tmp)
39622  ipack = ipack + 1
39623  packed_data(ipack) = pack_tmp
39624  data_tmp = full_data(idata)
39625  pack_tmp = ishft(data_tmp, 48)
39626  pack_tmp = ishft(pack_tmp, -48)
39627  idata = idata + 1
39628  data_tmp = full_data(idata)
39629  data_tmp = ishft(data_tmp, 14)
39630  data_tmp = iand(data_tmp, mask_left(48))
39631  pack_tmp = ior(pack_tmp, data_tmp)
39632  ipack = ipack + 1
39633  packed_data(ipack) = pack_tmp
39634  data_tmp = full_data(idata)
39635  pack_tmp = ishft(data_tmp, 62)
39636  pack_tmp = ishft(pack_tmp, -50)
39637  idata = idata + 1
39638  data_tmp = full_data(idata)
39639  data_tmp = ishft(data_tmp, 14)
39640  pack_tmp = ior(pack_tmp, data_tmp)
39641  pack_tmp = ishft(pack_tmp, -12)
39642  idata = idata + 1
39643  data_tmp = full_data(idata)
39644  data_tmp = ishft(data_tmp, 14)
39645  data_tmp = iand(data_tmp, mask_left(12))
39646  pack_tmp = ior(pack_tmp, data_tmp)
39647  ipack = ipack + 1
39648  packed_data(ipack) = pack_tmp
39649  data_tmp = full_data(idata)
39650  pack_tmp = ishft(data_tmp, 26)
39651  pack_tmp = ishft(pack_tmp, -26)
39652  idata = idata + 1
39653  data_tmp = full_data(idata)
39654  data_tmp = ishft(data_tmp, 14)
39655  data_tmp = iand(data_tmp, mask_left(26))
39656  pack_tmp = ior(pack_tmp, data_tmp)
39657  ipack = ipack + 1
39658  packed_data(ipack) = pack_tmp
39659  data_tmp = full_data(idata)
39660  pack_tmp = ishft(data_tmp, 40)
39661  pack_tmp = ishft(pack_tmp, -40)
39662  idata = idata + 1
39663  data_tmp = full_data(idata)
39664  data_tmp = ishft(data_tmp, 14)
39665  data_tmp = iand(data_tmp, mask_left(40))
39666  pack_tmp = ior(pack_tmp, data_tmp)
39667  ipack = ipack + 1
39668  packed_data(ipack) = pack_tmp
39669  data_tmp = full_data(idata)
39670  pack_tmp = ishft(data_tmp, 54)
39671  pack_tmp = ishft(pack_tmp, -50)
39672  idata = idata + 1
39673  data_tmp = full_data(idata)
39674  data_tmp = ishft(data_tmp, 14)
39675  pack_tmp = ior(pack_tmp, data_tmp)
39676  pack_tmp = ishft(pack_tmp, -4)
39677  idata = idata + 1
39678  data_tmp = full_data(idata)
39679  data_tmp = ishft(data_tmp, 14)
39680  data_tmp = iand(data_tmp, mask_left(4))
39681  pack_tmp = ior(pack_tmp, data_tmp)
39682  ipack = ipack + 1
39683  packed_data(ipack) = pack_tmp
39684  data_tmp = full_data(idata)
39685  pack_tmp = ishft(data_tmp, 18)
39686  pack_tmp = ishft(pack_tmp, -18)
39687  idata = idata + 1
39688  data_tmp = full_data(idata)
39689  data_tmp = ishft(data_tmp, 14)
39690  data_tmp = iand(data_tmp, mask_left(18))
39691  pack_tmp = ior(pack_tmp, data_tmp)
39692  ipack = ipack + 1
39693  packed_data(ipack) = pack_tmp
39694  data_tmp = full_data(idata)
39695  pack_tmp = ishft(data_tmp, 32)
39696  pack_tmp = ishft(pack_tmp, -32)
39697  idata = idata + 1
39698  data_tmp = full_data(idata)
39699  data_tmp = ishft(data_tmp, 14)
39700  data_tmp = iand(data_tmp, mask_left(32))
39701  pack_tmp = ior(pack_tmp, data_tmp)
39702  ipack = ipack + 1
39703  packed_data(ipack) = pack_tmp
39704  data_tmp = full_data(idata)
39705  pack_tmp = ishft(data_tmp, 46)
39706  pack_tmp = ishft(pack_tmp, -46)
39707  idata = idata + 1
39708  data_tmp = full_data(idata)
39709  data_tmp = ishft(data_tmp, 14)
39710  data_tmp = iand(data_tmp, mask_left(46))
39711  pack_tmp = ior(pack_tmp, data_tmp)
39712  ipack = ipack + 1
39713  packed_data(ipack) = pack_tmp
39714  data_tmp = full_data(idata)
39715  pack_tmp = ishft(data_tmp, 60)
39716  pack_tmp = ishft(pack_tmp, -50)
39717  idata = idata + 1
39718  data_tmp = full_data(idata)
39719  data_tmp = ishft(data_tmp, 14)
39720  pack_tmp = ior(pack_tmp, data_tmp)
39721  pack_tmp = ishft(pack_tmp, -10)
39722  idata = idata + 1
39723  data_tmp = full_data(idata)
39724  data_tmp = ishft(data_tmp, 14)
39725  data_tmp = iand(data_tmp, mask_left(10))
39726  pack_tmp = ior(pack_tmp, data_tmp)
39727  ipack = ipack + 1
39728  packed_data(ipack) = pack_tmp
39729  data_tmp = full_data(idata)
39730  pack_tmp = ishft(data_tmp, 24)
39731  pack_tmp = ishft(pack_tmp, -24)
39732  idata = idata + 1
39733  data_tmp = full_data(idata)
39734  data_tmp = ishft(data_tmp, 14)
39735  data_tmp = iand(data_tmp, mask_left(24))
39736  pack_tmp = ior(pack_tmp, data_tmp)
39737  ipack = ipack + 1
39738  packed_data(ipack) = pack_tmp
39739  data_tmp = full_data(idata)
39740  pack_tmp = ishft(data_tmp, 38)
39741  pack_tmp = ishft(pack_tmp, -38)
39742  idata = idata + 1
39743  data_tmp = full_data(idata)
39744  data_tmp = ishft(data_tmp, 14)
39745  data_tmp = iand(data_tmp, mask_left(38))
39746  pack_tmp = ior(pack_tmp, data_tmp)
39747  ipack = ipack + 1
39748  packed_data(ipack) = pack_tmp
39749  data_tmp = full_data(idata)
39750  pack_tmp = ishft(data_tmp, 52)
39751  pack_tmp = ishft(pack_tmp, -50)
39752  idata = idata + 1
39753  data_tmp = full_data(idata)
39754  data_tmp = ishft(data_tmp, 14)
39755  pack_tmp = ior(pack_tmp, data_tmp)
39756  pack_tmp = ishft(pack_tmp, -2)
39757  idata = idata + 1
39758  data_tmp = full_data(idata)
39759  data_tmp = ishft(data_tmp, 14)
39760  data_tmp = iand(data_tmp, mask_left(2))
39761  pack_tmp = ior(pack_tmp, data_tmp)
39762  ipack = ipack + 1
39763  packed_data(ipack) = pack_tmp
39764  data_tmp = full_data(idata)
39765  pack_tmp = ishft(data_tmp, 16)
39766  pack_tmp = ishft(pack_tmp, -16)
39767  idata = idata + 1
39768  data_tmp = full_data(idata)
39769  data_tmp = ishft(data_tmp, 14)
39770  data_tmp = iand(data_tmp, mask_left(16))
39771  pack_tmp = ior(pack_tmp, data_tmp)
39772  ipack = ipack + 1
39773  packed_data(ipack) = pack_tmp
39774  data_tmp = full_data(idata)
39775  pack_tmp = ishft(data_tmp, 30)
39776  pack_tmp = ishft(pack_tmp, -30)
39777  idata = idata + 1
39778  data_tmp = full_data(idata)
39779  data_tmp = ishft(data_tmp, 14)
39780  data_tmp = iand(data_tmp, mask_left(30))
39781  pack_tmp = ior(pack_tmp, data_tmp)
39782  ipack = ipack + 1
39783  packed_data(ipack) = pack_tmp
39784  data_tmp = full_data(idata)
39785  pack_tmp = ishft(data_tmp, 44)
39786  pack_tmp = ishft(pack_tmp, -44)
39787  idata = idata + 1
39788  data_tmp = full_data(idata)
39789  data_tmp = ishft(data_tmp, 14)
39790  data_tmp = iand(data_tmp, mask_left(44))
39791  pack_tmp = ior(pack_tmp, data_tmp)
39792  ipack = ipack + 1
39793  packed_data(ipack) = pack_tmp
39794  data_tmp = full_data(idata)
39795  pack_tmp = ishft(data_tmp, 58)
39796  pack_tmp = ishft(pack_tmp, -50)
39797  idata = idata + 1
39798  data_tmp = full_data(idata)
39799  data_tmp = ishft(data_tmp, 14)
39800  pack_tmp = ior(pack_tmp, data_tmp)
39801  pack_tmp = ishft(pack_tmp, -8)
39802  idata = idata + 1
39803  data_tmp = full_data(idata)
39804  data_tmp = ishft(data_tmp, 14)
39805  data_tmp = iand(data_tmp, mask_left(8))
39806  pack_tmp = ior(pack_tmp, data_tmp)
39807  ipack = ipack + 1
39808  packed_data(ipack) = pack_tmp
39809  data_tmp = full_data(idata)
39810  pack_tmp = ishft(data_tmp, 22)
39811  pack_tmp = ishft(pack_tmp, -22)
39812  idata = idata + 1
39813  data_tmp = full_data(idata)
39814  data_tmp = ishft(data_tmp, 14)
39815  data_tmp = iand(data_tmp, mask_left(22))
39816  pack_tmp = ior(pack_tmp, data_tmp)
39817  ipack = ipack + 1
39818  packed_data(ipack) = pack_tmp
39819  data_tmp = full_data(idata)
39820  pack_tmp = ishft(data_tmp, 36)
39821  pack_tmp = ishft(pack_tmp, -36)
39822  idata = idata + 1
39823  data_tmp = full_data(idata)
39824  data_tmp = ishft(data_tmp, 14)
39825  data_tmp = iand(data_tmp, mask_left(36))
39826  pack_tmp = ior(pack_tmp, data_tmp)
39827  ipack = ipack + 1
39828  packed_data(ipack) = pack_tmp
39829  data_tmp = full_data(idata)
39830  pack_tmp = ishft(data_tmp, 50)
39831  pack_tmp = ishft(pack_tmp, -50)
39832  idata = idata + 1
39833  data_tmp = full_data(idata)
39834  data_tmp = ishft(data_tmp, 14)
39835  pack_tmp = ior(pack_tmp, data_tmp)
39836  pack_tmp = ishft(pack_tmp, 0)
39837  idata = idata + 1
39838  data_tmp = full_data(idata)
39839  data_tmp = ishft(data_tmp, 14)
39840  data_tmp = iand(data_tmp, mask_left(0))
39841  pack_tmp = ior(pack_tmp, data_tmp)
39842  ipack = ipack + 1
39843  packed_data(ipack) = pack_tmp
39844  data_tmp = full_data(idata)
39845  pack_tmp = ishft(data_tmp, 14)
39846  pack_tmp = ishft(pack_tmp, -14)
39847  idata = idata + 1
39848  data_tmp = full_data(idata)
39849  data_tmp = ishft(data_tmp, 14)
39850  data_tmp = iand(data_tmp, mask_left(14))
39851  pack_tmp = ior(pack_tmp, data_tmp)
39852  ipack = ipack + 1
39853  packed_data(ipack) = pack_tmp
39854  data_tmp = full_data(idata)
39855  pack_tmp = ishft(data_tmp, 28)
39856  pack_tmp = ishft(pack_tmp, -28)
39857  idata = idata + 1
39858  data_tmp = full_data(idata)
39859  data_tmp = ishft(data_tmp, 14)
39860  data_tmp = iand(data_tmp, mask_left(28))
39861  pack_tmp = ior(pack_tmp, data_tmp)
39862  ipack = ipack + 1
39863  packed_data(ipack) = pack_tmp
39864  data_tmp = full_data(idata)
39865  pack_tmp = ishft(data_tmp, 42)
39866  pack_tmp = ishft(pack_tmp, -42)
39867  idata = idata + 1
39868  data_tmp = full_data(idata)
39869  data_tmp = ishft(data_tmp, 14)
39870  data_tmp = iand(data_tmp, mask_left(42))
39871  pack_tmp = ior(pack_tmp, data_tmp)
39872  ipack = ipack + 1
39873  packed_data(ipack) = pack_tmp
39874  data_tmp = full_data(idata)
39875  pack_tmp = ishft(data_tmp, 56)
39876  pack_tmp = ishft(pack_tmp, -50)
39877  idata = idata + 1
39878  data_tmp = full_data(idata)
39879  data_tmp = ishft(data_tmp, 14)
39880  pack_tmp = ior(pack_tmp, data_tmp)
39881  pack_tmp = ishft(pack_tmp, -6)
39882  idata = idata + 1
39883  data_tmp = full_data(idata)
39884  data_tmp = ishft(data_tmp, 14)
39885  data_tmp = iand(data_tmp, mask_left(6))
39886  pack_tmp = ior(pack_tmp, data_tmp)
39887  ipack = ipack + 1
39888  packed_data(ipack) = pack_tmp
39889  data_tmp = full_data(idata)
39890  pack_tmp = ishft(data_tmp, 20)
39891  pack_tmp = ishft(pack_tmp, -20)
39892  idata = idata + 1
39893  data_tmp = full_data(idata)
39894  data_tmp = ishft(data_tmp, 14)
39895  data_tmp = iand(data_tmp, mask_left(20))
39896  pack_tmp = ior(pack_tmp, data_tmp)
39897  ipack = ipack + 1
39898  packed_data(ipack) = pack_tmp
39899  data_tmp = full_data(idata)
39900  pack_tmp = ishft(data_tmp, 34)
39901  pack_tmp = ishft(pack_tmp, -34)
39902  idata = idata + 1
39903  data_tmp = full_data(idata)
39904  data_tmp = ishft(data_tmp, 14)
39905  data_tmp = iand(data_tmp, mask_left(34))
39906  pack_tmp = ior(pack_tmp, data_tmp)
39907  ipack = ipack + 1
39908  packed_data(ipack) = pack_tmp
39909  data_tmp = full_data(idata)
39910  pack_tmp = ishft(data_tmp, 48)
39911  pack_tmp = ishft(pack_tmp, -48)
39912  idata = idata + 1
39913  data_tmp = full_data(idata)
39914  data_tmp = ishft(data_tmp, 14)
39915  data_tmp = iand(data_tmp, mask_left(48))
39916  pack_tmp = ior(pack_tmp, data_tmp)
39917  ipack = ipack + 1
39918  packed_data(ipack) = pack_tmp
39919  data_tmp = full_data(idata)
39920  pack_tmp = ishft(data_tmp, 62)
39921  pack_tmp = ishft(pack_tmp, -50)
39922  idata = idata + 1
39923  data_tmp = full_data(idata)
39924  data_tmp = ishft(data_tmp, 14)
39925  pack_tmp = ior(pack_tmp, data_tmp)
39926  pack_tmp = ishft(pack_tmp, -12)
39927  idata = idata + 1
39928  data_tmp = full_data(idata)
39929  data_tmp = ishft(data_tmp, 14)
39930  data_tmp = iand(data_tmp, mask_left(12))
39931  pack_tmp = ior(pack_tmp, data_tmp)
39932  ipack = ipack + 1
39933  packed_data(ipack) = pack_tmp
39934  data_tmp = full_data(idata)
39935  pack_tmp = ishft(data_tmp, 26)
39936  pack_tmp = ishft(pack_tmp, -26)
39937  idata = idata + 1
39938  data_tmp = full_data(idata)
39939  data_tmp = ishft(data_tmp, 14)
39940  data_tmp = iand(data_tmp, mask_left(26))
39941  pack_tmp = ior(pack_tmp, data_tmp)
39942  ipack = ipack + 1
39943  packed_data(ipack) = pack_tmp
39944  data_tmp = full_data(idata)
39945  pack_tmp = ishft(data_tmp, 40)
39946  pack_tmp = ishft(pack_tmp, -40)
39947  idata = idata + 1
39948  data_tmp = full_data(idata)
39949  data_tmp = ishft(data_tmp, 14)
39950  data_tmp = iand(data_tmp, mask_left(40))
39951  pack_tmp = ior(pack_tmp, data_tmp)
39952  ipack = ipack + 1
39953  packed_data(ipack) = pack_tmp
39954  data_tmp = full_data(idata)
39955  pack_tmp = ishft(data_tmp, 54)
39956  pack_tmp = ishft(pack_tmp, -50)
39957  idata = idata + 1
39958  data_tmp = full_data(idata)
39959  data_tmp = ishft(data_tmp, 14)
39960  pack_tmp = ior(pack_tmp, data_tmp)
39961  pack_tmp = ishft(pack_tmp, -4)
39962  idata = idata + 1
39963  data_tmp = full_data(idata)
39964  data_tmp = ishft(data_tmp, 14)
39965  data_tmp = iand(data_tmp, mask_left(4))
39966  pack_tmp = ior(pack_tmp, data_tmp)
39967  ipack = ipack + 1
39968  packed_data(ipack) = pack_tmp
39969  data_tmp = full_data(idata)
39970  pack_tmp = ishft(data_tmp, 18)
39971  pack_tmp = ishft(pack_tmp, -18)
39972  idata = idata + 1
39973  data_tmp = full_data(idata)
39974  data_tmp = ishft(data_tmp, 14)
39975  data_tmp = iand(data_tmp, mask_left(18))
39976  pack_tmp = ior(pack_tmp, data_tmp)
39977  ipack = ipack + 1
39978  packed_data(ipack) = pack_tmp
39979  data_tmp = full_data(idata)
39980  pack_tmp = ishft(data_tmp, 32)
39981  pack_tmp = ishft(pack_tmp, -32)
39982  idata = idata + 1
39983  data_tmp = full_data(idata)
39984  data_tmp = ishft(data_tmp, 14)
39985  data_tmp = iand(data_tmp, mask_left(32))
39986  pack_tmp = ior(pack_tmp, data_tmp)
39987  ipack = ipack + 1
39988  packed_data(ipack) = pack_tmp
39989  data_tmp = full_data(idata)
39990  pack_tmp = ishft(data_tmp, 46)
39991  pack_tmp = ishft(pack_tmp, -46)
39992  idata = idata + 1
39993  data_tmp = full_data(idata)
39994  data_tmp = ishft(data_tmp, 14)
39995  data_tmp = iand(data_tmp, mask_left(46))
39996  pack_tmp = ior(pack_tmp, data_tmp)
39997  ipack = ipack + 1
39998  packed_data(ipack) = pack_tmp
39999  data_tmp = full_data(idata)
40000  pack_tmp = ishft(data_tmp, 60)
40001  pack_tmp = ishft(pack_tmp, -50)
40002  idata = idata + 1
40003  data_tmp = full_data(idata)
40004  data_tmp = ishft(data_tmp, 14)
40005  pack_tmp = ior(pack_tmp, data_tmp)
40006  pack_tmp = ishft(pack_tmp, -10)
40007  idata = idata + 1
40008  data_tmp = full_data(idata)
40009  data_tmp = ishft(data_tmp, 14)
40010  data_tmp = iand(data_tmp, mask_left(10))
40011  pack_tmp = ior(pack_tmp, data_tmp)
40012  ipack = ipack + 1
40013  packed_data(ipack) = pack_tmp
40014  data_tmp = full_data(idata)
40015  pack_tmp = ishft(data_tmp, 24)
40016  pack_tmp = ishft(pack_tmp, -24)
40017  idata = idata + 1
40018  data_tmp = full_data(idata)
40019  data_tmp = ishft(data_tmp, 14)
40020  data_tmp = iand(data_tmp, mask_left(24))
40021  pack_tmp = ior(pack_tmp, data_tmp)
40022  ipack = ipack + 1
40023  packed_data(ipack) = pack_tmp
40024  data_tmp = full_data(idata)
40025  pack_tmp = ishft(data_tmp, 38)
40026  pack_tmp = ishft(pack_tmp, -38)
40027  idata = idata + 1
40028  data_tmp = full_data(idata)
40029  data_tmp = ishft(data_tmp, 14)
40030  data_tmp = iand(data_tmp, mask_left(38))
40031  pack_tmp = ior(pack_tmp, data_tmp)
40032  ipack = ipack + 1
40033  packed_data(ipack) = pack_tmp
40034  data_tmp = full_data(idata)
40035  pack_tmp = ishft(data_tmp, 52)
40036  pack_tmp = ishft(pack_tmp, -50)
40037  idata = idata + 1
40038  data_tmp = full_data(idata)
40039  data_tmp = ishft(data_tmp, 14)
40040  pack_tmp = ior(pack_tmp, data_tmp)
40041  pack_tmp = ishft(pack_tmp, -2)
40042  idata = idata + 1
40043  data_tmp = full_data(idata)
40044  data_tmp = ishft(data_tmp, 14)
40045  data_tmp = iand(data_tmp, mask_left(2))
40046  pack_tmp = ior(pack_tmp, data_tmp)
40047  ipack = ipack + 1
40048  packed_data(ipack) = pack_tmp
40049  data_tmp = full_data(idata)
40050  pack_tmp = ishft(data_tmp, 16)
40051  pack_tmp = ishft(pack_tmp, -16)
40052  idata = idata + 1
40053  data_tmp = full_data(idata)
40054  data_tmp = ishft(data_tmp, 14)
40055  data_tmp = iand(data_tmp, mask_left(16))
40056  pack_tmp = ior(pack_tmp, data_tmp)
40057  ipack = ipack + 1
40058  packed_data(ipack) = pack_tmp
40059  data_tmp = full_data(idata)
40060  pack_tmp = ishft(data_tmp, 30)
40061  pack_tmp = ishft(pack_tmp, -30)
40062  idata = idata + 1
40063  data_tmp = full_data(idata)
40064  data_tmp = ishft(data_tmp, 14)
40065  data_tmp = iand(data_tmp, mask_left(30))
40066  pack_tmp = ior(pack_tmp, data_tmp)
40067  ipack = ipack + 1
40068  packed_data(ipack) = pack_tmp
40069  data_tmp = full_data(idata)
40070  pack_tmp = ishft(data_tmp, 44)
40071  pack_tmp = ishft(pack_tmp, -44)
40072  idata = idata + 1
40073  data_tmp = full_data(idata)
40074  data_tmp = ishft(data_tmp, 14)
40075  data_tmp = iand(data_tmp, mask_left(44))
40076  pack_tmp = ior(pack_tmp, data_tmp)
40077  ipack = ipack + 1
40078  packed_data(ipack) = pack_tmp
40079  data_tmp = full_data(idata)
40080  pack_tmp = ishft(data_tmp, 58)
40081  pack_tmp = ishft(pack_tmp, -50)
40082  idata = idata + 1
40083  data_tmp = full_data(idata)
40084  data_tmp = ishft(data_tmp, 14)
40085  pack_tmp = ior(pack_tmp, data_tmp)
40086  pack_tmp = ishft(pack_tmp, -8)
40087  idata = idata + 1
40088  data_tmp = full_data(idata)
40089  data_tmp = ishft(data_tmp, 14)
40090  data_tmp = iand(data_tmp, mask_left(8))
40091  pack_tmp = ior(pack_tmp, data_tmp)
40092  ipack = ipack + 1
40093  packed_data(ipack) = pack_tmp
40094  data_tmp = full_data(idata)
40095  pack_tmp = ishft(data_tmp, 22)
40096  pack_tmp = ishft(pack_tmp, -22)
40097  idata = idata + 1
40098  data_tmp = full_data(idata)
40099  data_tmp = ishft(data_tmp, 14)
40100  data_tmp = iand(data_tmp, mask_left(22))
40101  pack_tmp = ior(pack_tmp, data_tmp)
40102  ipack = ipack + 1
40103  packed_data(ipack) = pack_tmp
40104  data_tmp = full_data(idata)
40105  pack_tmp = ishft(data_tmp, 36)
40106  pack_tmp = ishft(pack_tmp, -36)
40107  idata = idata + 1
40108  data_tmp = full_data(idata)
40109  data_tmp = ishft(data_tmp, 14)
40110  data_tmp = iand(data_tmp, mask_left(36))
40111  pack_tmp = ior(pack_tmp, data_tmp)
40112  ipack = ipack + 1
40113  packed_data(ipack) = pack_tmp
40114  data_tmp = full_data(idata)
40115  pack_tmp = ishft(data_tmp, 50)
40116  pack_tmp = ishft(pack_tmp, -50)
40117  idata = idata + 1
40118  data_tmp = full_data(idata)
40119  data_tmp = ishft(data_tmp, 14)
40120  pack_tmp = ior(pack_tmp, data_tmp)
40121  pack_tmp = ishft(pack_tmp, 0)
40122  pack_tmp = ishft(pack_tmp, 0)
40123  ipack = ipack + 1
40124  packed_data(ipack) = pack_tmp
40125  END DO
40126  IF (ndata_rep < ndata) THEN
40127  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
40128  END IF
40129  END SUBROUTINE ints2bits_50
40130 
40131 ! **************************************************************************************************
40132 !> \brief ...
40133 !> \param Ndata ...
40134 !> \param packed_data ...
40135 !> \param full_data ...
40136 ! **************************************************************************************************
40137  SUBROUTINE bits2ints_50(Ndata, packed_data, full_data)
40138  INTEGER, INTENT(IN) :: Ndata
40139  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
40140  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
40141 
40142  INTEGER, PARAMETER :: Nbits = 50
40143 
40144  INTEGER :: idata, ipack, kdata, Ndata_rep
40145  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
40146 
40147  ipack = 0
40148  idata = 0
40149  pack_tmp = 0
40150  ndata_rep = (ndata/64)*64
40151  DO kdata = 1, ndata_rep, 64
40152  idata = idata + 1
40153  data_tmp = ishft(pack_tmp, 50)
40154  ipack = ipack + 1
40155  pack_tmp = packed_data(ipack)
40156  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
40157  pack_tmp = ishft(pack_tmp, -50)
40158  idata = idata + 1
40159  data_tmp = ishft(pack_tmp, 36)
40160  ipack = ipack + 1
40161  pack_tmp = packed_data(ipack)
40162  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
40163  pack_tmp = ishft(pack_tmp, -36)
40164  idata = idata + 1
40165  data_tmp = ishft(pack_tmp, 22)
40166  ipack = ipack + 1
40167  pack_tmp = packed_data(ipack)
40168  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
40169  pack_tmp = ishft(pack_tmp, -22)
40170  idata = idata + 1
40171  data_tmp = ishft(pack_tmp, 8)
40172  ipack = ipack + 1
40173  pack_tmp = packed_data(ipack)
40174  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
40175  pack_tmp = ishft(pack_tmp, -8)
40176  idata = idata + 1
40177  data_tmp = iand(pack_tmp, mask_right(nbits))
40178  full_data(idata) = data_tmp
40179  pack_tmp = ishft(pack_tmp, -nbits)
40180  idata = idata + 1
40181  data_tmp = ishft(pack_tmp, 44)
40182  ipack = ipack + 1
40183  pack_tmp = packed_data(ipack)
40184  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
40185  pack_tmp = ishft(pack_tmp, -44)
40186  idata = idata + 1
40187  data_tmp = ishft(pack_tmp, 30)
40188  ipack = ipack + 1
40189  pack_tmp = packed_data(ipack)
40190  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
40191  pack_tmp = ishft(pack_tmp, -30)
40192  idata = idata + 1
40193  data_tmp = ishft(pack_tmp, 16)
40194  ipack = ipack + 1
40195  pack_tmp = packed_data(ipack)
40196  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
40197  pack_tmp = ishft(pack_tmp, -16)
40198  idata = idata + 1
40199  data_tmp = ishft(pack_tmp, 2)
40200  ipack = ipack + 1
40201  pack_tmp = packed_data(ipack)
40202  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
40203  pack_tmp = ishft(pack_tmp, -2)
40204  idata = idata + 1
40205  data_tmp = iand(pack_tmp, mask_right(nbits))
40206  full_data(idata) = data_tmp
40207  pack_tmp = ishft(pack_tmp, -nbits)
40208  idata = idata + 1
40209  data_tmp = ishft(pack_tmp, 38)
40210  ipack = ipack + 1
40211  pack_tmp = packed_data(ipack)
40212  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
40213  pack_tmp = ishft(pack_tmp, -38)
40214  idata = idata + 1
40215  data_tmp = ishft(pack_tmp, 24)
40216  ipack = ipack + 1
40217  pack_tmp = packed_data(ipack)
40218  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
40219  pack_tmp = ishft(pack_tmp, -24)
40220  idata = idata + 1
40221  data_tmp = ishft(pack_tmp, 10)
40222  ipack = ipack + 1
40223  pack_tmp = packed_data(ipack)
40224  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
40225  pack_tmp = ishft(pack_tmp, -10)
40226  idata = idata + 1
40227  data_tmp = iand(pack_tmp, mask_right(nbits))
40228  full_data(idata) = data_tmp
40229  pack_tmp = ishft(pack_tmp, -nbits)
40230  idata = idata + 1
40231  data_tmp = ishft(pack_tmp, 46)
40232  ipack = ipack + 1
40233  pack_tmp = packed_data(ipack)
40234  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
40235  pack_tmp = ishft(pack_tmp, -46)
40236  idata = idata + 1
40237  data_tmp = ishft(pack_tmp, 32)
40238  ipack = ipack + 1
40239  pack_tmp = packed_data(ipack)
40240  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
40241  pack_tmp = ishft(pack_tmp, -32)
40242  idata = idata + 1
40243  data_tmp = ishft(pack_tmp, 18)
40244  ipack = ipack + 1
40245  pack_tmp = packed_data(ipack)
40246  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
40247  pack_tmp = ishft(pack_tmp, -18)
40248  idata = idata + 1
40249  data_tmp = ishft(pack_tmp, 4)
40250  ipack = ipack + 1
40251  pack_tmp = packed_data(ipack)
40252  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
40253  pack_tmp = ishft(pack_tmp, -4)
40254  idata = idata + 1
40255  data_tmp = iand(pack_tmp, mask_right(nbits))
40256  full_data(idata) = data_tmp
40257  pack_tmp = ishft(pack_tmp, -nbits)
40258  idata = idata + 1
40259  data_tmp = ishft(pack_tmp, 40)
40260  ipack = ipack + 1
40261  pack_tmp = packed_data(ipack)
40262  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
40263  pack_tmp = ishft(pack_tmp, -40)
40264  idata = idata + 1
40265  data_tmp = ishft(pack_tmp, 26)
40266  ipack = ipack + 1
40267  pack_tmp = packed_data(ipack)
40268  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
40269  pack_tmp = ishft(pack_tmp, -26)
40270  idata = idata + 1
40271  data_tmp = ishft(pack_tmp, 12)
40272  ipack = ipack + 1
40273  pack_tmp = packed_data(ipack)
40274  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
40275  pack_tmp = ishft(pack_tmp, -12)
40276  idata = idata + 1
40277  data_tmp = iand(pack_tmp, mask_right(nbits))
40278  full_data(idata) = data_tmp
40279  pack_tmp = ishft(pack_tmp, -nbits)
40280  idata = idata + 1
40281  data_tmp = ishft(pack_tmp, 48)
40282  ipack = ipack + 1
40283  pack_tmp = packed_data(ipack)
40284  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
40285  pack_tmp = ishft(pack_tmp, -48)
40286  idata = idata + 1
40287  data_tmp = ishft(pack_tmp, 34)
40288  ipack = ipack + 1
40289  pack_tmp = packed_data(ipack)
40290  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
40291  pack_tmp = ishft(pack_tmp, -34)
40292  idata = idata + 1
40293  data_tmp = ishft(pack_tmp, 20)
40294  ipack = ipack + 1
40295  pack_tmp = packed_data(ipack)
40296  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
40297  pack_tmp = ishft(pack_tmp, -20)
40298  idata = idata + 1
40299  data_tmp = ishft(pack_tmp, 6)
40300  ipack = ipack + 1
40301  pack_tmp = packed_data(ipack)
40302  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
40303  pack_tmp = ishft(pack_tmp, -6)
40304  idata = idata + 1
40305  data_tmp = iand(pack_tmp, mask_right(nbits))
40306  full_data(idata) = data_tmp
40307  pack_tmp = ishft(pack_tmp, -nbits)
40308  idata = idata + 1
40309  data_tmp = ishft(pack_tmp, 42)
40310  ipack = ipack + 1
40311  pack_tmp = packed_data(ipack)
40312  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
40313  pack_tmp = ishft(pack_tmp, -42)
40314  idata = idata + 1
40315  data_tmp = ishft(pack_tmp, 28)
40316  ipack = ipack + 1
40317  pack_tmp = packed_data(ipack)
40318  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
40319  pack_tmp = ishft(pack_tmp, -28)
40320  idata = idata + 1
40321  data_tmp = ishft(pack_tmp, 14)
40322  ipack = ipack + 1
40323  pack_tmp = packed_data(ipack)
40324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
40325  pack_tmp = ishft(pack_tmp, -14)
40326  idata = idata + 1
40327  data_tmp = iand(pack_tmp, mask_right(nbits))
40328  full_data(idata) = data_tmp
40329  pack_tmp = ishft(pack_tmp, -nbits)
40330  idata = idata + 1
40331  data_tmp = ishft(pack_tmp, 50)
40332  ipack = ipack + 1
40333  pack_tmp = packed_data(ipack)
40334  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
40335  pack_tmp = ishft(pack_tmp, -50)
40336  idata = idata + 1
40337  data_tmp = ishft(pack_tmp, 36)
40338  ipack = ipack + 1
40339  pack_tmp = packed_data(ipack)
40340  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
40341  pack_tmp = ishft(pack_tmp, -36)
40342  idata = idata + 1
40343  data_tmp = ishft(pack_tmp, 22)
40344  ipack = ipack + 1
40345  pack_tmp = packed_data(ipack)
40346  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
40347  pack_tmp = ishft(pack_tmp, -22)
40348  idata = idata + 1
40349  data_tmp = ishft(pack_tmp, 8)
40350  ipack = ipack + 1
40351  pack_tmp = packed_data(ipack)
40352  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
40353  pack_tmp = ishft(pack_tmp, -8)
40354  idata = idata + 1
40355  data_tmp = iand(pack_tmp, mask_right(nbits))
40356  full_data(idata) = data_tmp
40357  pack_tmp = ishft(pack_tmp, -nbits)
40358  idata = idata + 1
40359  data_tmp = ishft(pack_tmp, 44)
40360  ipack = ipack + 1
40361  pack_tmp = packed_data(ipack)
40362  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
40363  pack_tmp = ishft(pack_tmp, -44)
40364  idata = idata + 1
40365  data_tmp = ishft(pack_tmp, 30)
40366  ipack = ipack + 1
40367  pack_tmp = packed_data(ipack)
40368  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
40369  pack_tmp = ishft(pack_tmp, -30)
40370  idata = idata + 1
40371  data_tmp = ishft(pack_tmp, 16)
40372  ipack = ipack + 1
40373  pack_tmp = packed_data(ipack)
40374  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
40375  pack_tmp = ishft(pack_tmp, -16)
40376  idata = idata + 1
40377  data_tmp = ishft(pack_tmp, 2)
40378  ipack = ipack + 1
40379  pack_tmp = packed_data(ipack)
40380  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
40381  pack_tmp = ishft(pack_tmp, -2)
40382  idata = idata + 1
40383  data_tmp = iand(pack_tmp, mask_right(nbits))
40384  full_data(idata) = data_tmp
40385  pack_tmp = ishft(pack_tmp, -nbits)
40386  idata = idata + 1
40387  data_tmp = ishft(pack_tmp, 38)
40388  ipack = ipack + 1
40389  pack_tmp = packed_data(ipack)
40390  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
40391  pack_tmp = ishft(pack_tmp, -38)
40392  idata = idata + 1
40393  data_tmp = ishft(pack_tmp, 24)
40394  ipack = ipack + 1
40395  pack_tmp = packed_data(ipack)
40396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
40397  pack_tmp = ishft(pack_tmp, -24)
40398  idata = idata + 1
40399  data_tmp = ishft(pack_tmp, 10)
40400  ipack = ipack + 1
40401  pack_tmp = packed_data(ipack)
40402  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
40403  pack_tmp = ishft(pack_tmp, -10)
40404  idata = idata + 1
40405  data_tmp = iand(pack_tmp, mask_right(nbits))
40406  full_data(idata) = data_tmp
40407  pack_tmp = ishft(pack_tmp, -nbits)
40408  idata = idata + 1
40409  data_tmp = ishft(pack_tmp, 46)
40410  ipack = ipack + 1
40411  pack_tmp = packed_data(ipack)
40412  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
40413  pack_tmp = ishft(pack_tmp, -46)
40414  idata = idata + 1
40415  data_tmp = ishft(pack_tmp, 32)
40416  ipack = ipack + 1
40417  pack_tmp = packed_data(ipack)
40418  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
40419  pack_tmp = ishft(pack_tmp, -32)
40420  idata = idata + 1
40421  data_tmp = ishft(pack_tmp, 18)
40422  ipack = ipack + 1
40423  pack_tmp = packed_data(ipack)
40424  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
40425  pack_tmp = ishft(pack_tmp, -18)
40426  idata = idata + 1
40427  data_tmp = ishft(pack_tmp, 4)
40428  ipack = ipack + 1
40429  pack_tmp = packed_data(ipack)
40430  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
40431  pack_tmp = ishft(pack_tmp, -4)
40432  idata = idata + 1
40433  data_tmp = iand(pack_tmp, mask_right(nbits))
40434  full_data(idata) = data_tmp
40435  pack_tmp = ishft(pack_tmp, -nbits)
40436  idata = idata + 1
40437  data_tmp = ishft(pack_tmp, 40)
40438  ipack = ipack + 1
40439  pack_tmp = packed_data(ipack)
40440  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
40441  pack_tmp = ishft(pack_tmp, -40)
40442  idata = idata + 1
40443  data_tmp = ishft(pack_tmp, 26)
40444  ipack = ipack + 1
40445  pack_tmp = packed_data(ipack)
40446  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
40447  pack_tmp = ishft(pack_tmp, -26)
40448  idata = idata + 1
40449  data_tmp = ishft(pack_tmp, 12)
40450  ipack = ipack + 1
40451  pack_tmp = packed_data(ipack)
40452  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
40453  pack_tmp = ishft(pack_tmp, -12)
40454  idata = idata + 1
40455  data_tmp = iand(pack_tmp, mask_right(nbits))
40456  full_data(idata) = data_tmp
40457  pack_tmp = ishft(pack_tmp, -nbits)
40458  idata = idata + 1
40459  data_tmp = ishft(pack_tmp, 48)
40460  ipack = ipack + 1
40461  pack_tmp = packed_data(ipack)
40462  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
40463  pack_tmp = ishft(pack_tmp, -48)
40464  idata = idata + 1
40465  data_tmp = ishft(pack_tmp, 34)
40466  ipack = ipack + 1
40467  pack_tmp = packed_data(ipack)
40468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
40469  pack_tmp = ishft(pack_tmp, -34)
40470  idata = idata + 1
40471  data_tmp = ishft(pack_tmp, 20)
40472  ipack = ipack + 1
40473  pack_tmp = packed_data(ipack)
40474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
40475  pack_tmp = ishft(pack_tmp, -20)
40476  idata = idata + 1
40477  data_tmp = ishft(pack_tmp, 6)
40478  ipack = ipack + 1
40479  pack_tmp = packed_data(ipack)
40480  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
40481  pack_tmp = ishft(pack_tmp, -6)
40482  idata = idata + 1
40483  data_tmp = iand(pack_tmp, mask_right(nbits))
40484  full_data(idata) = data_tmp
40485  pack_tmp = ishft(pack_tmp, -nbits)
40486  idata = idata + 1
40487  data_tmp = ishft(pack_tmp, 42)
40488  ipack = ipack + 1
40489  pack_tmp = packed_data(ipack)
40490  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
40491  pack_tmp = ishft(pack_tmp, -42)
40492  idata = idata + 1
40493  data_tmp = ishft(pack_tmp, 28)
40494  ipack = ipack + 1
40495  pack_tmp = packed_data(ipack)
40496  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
40497  pack_tmp = ishft(pack_tmp, -28)
40498  idata = idata + 1
40499  data_tmp = ishft(pack_tmp, 14)
40500  ipack = ipack + 1
40501  pack_tmp = packed_data(ipack)
40502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
40503  pack_tmp = ishft(pack_tmp, -14)
40504  idata = idata + 1
40505  data_tmp = iand(pack_tmp, mask_right(nbits))
40506  full_data(idata) = data_tmp
40507  pack_tmp = ishft(pack_tmp, -nbits)
40508  END DO
40509  IF (ndata_rep < ndata) THEN
40510  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
40511  END IF
40512  END SUBROUTINE bits2ints_50
40513 
40514 ! **************************************************************************************************
40515 !> \brief ...
40516 !> \param Ndata ...
40517 !> \param packed_data ...
40518 !> \param full_data ...
40519 ! **************************************************************************************************
40520  SUBROUTINE ints2bits_51(Ndata, packed_data, full_data)
40521  INTEGER, INTENT(IN) :: Ndata
40522  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
40523  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
40524 
40525  INTEGER, PARAMETER :: Nbits = 51
40526 
40527  INTEGER :: idata, ipack, kdata, Ndata_rep
40528  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
40529 
40530  idata = 0
40531  ipack = 0
40532  ndata_rep = (ndata/64)*64
40533  DO kdata = 1, ndata_rep, 64
40534  pack_tmp = 0
40535  idata = idata + 1
40536  data_tmp = full_data(idata)
40537  data_tmp = ishft(data_tmp, 13)
40538  pack_tmp = ior(pack_tmp, data_tmp)
40539  pack_tmp = ishft(pack_tmp, -13)
40540  idata = idata + 1
40541  data_tmp = full_data(idata)
40542  data_tmp = ishft(data_tmp, 13)
40543  data_tmp = iand(data_tmp, mask_left(13))
40544  pack_tmp = ior(pack_tmp, data_tmp)
40545  ipack = ipack + 1
40546  packed_data(ipack) = pack_tmp
40547  data_tmp = full_data(idata)
40548  pack_tmp = ishft(data_tmp, 26)
40549  pack_tmp = ishft(pack_tmp, -26)
40550  idata = idata + 1
40551  data_tmp = full_data(idata)
40552  data_tmp = ishft(data_tmp, 13)
40553  data_tmp = iand(data_tmp, mask_left(26))
40554  pack_tmp = ior(pack_tmp, data_tmp)
40555  ipack = ipack + 1
40556  packed_data(ipack) = pack_tmp
40557  data_tmp = full_data(idata)
40558  pack_tmp = ishft(data_tmp, 39)
40559  pack_tmp = ishft(pack_tmp, -39)
40560  idata = idata + 1
40561  data_tmp = full_data(idata)
40562  data_tmp = ishft(data_tmp, 13)
40563  data_tmp = iand(data_tmp, mask_left(39))
40564  pack_tmp = ior(pack_tmp, data_tmp)
40565  ipack = ipack + 1
40566  packed_data(ipack) = pack_tmp
40567  data_tmp = full_data(idata)
40568  pack_tmp = ishft(data_tmp, 52)
40569  pack_tmp = ishft(pack_tmp, -51)
40570  idata = idata + 1
40571  data_tmp = full_data(idata)
40572  data_tmp = ishft(data_tmp, 13)
40573  pack_tmp = ior(pack_tmp, data_tmp)
40574  pack_tmp = ishft(pack_tmp, -1)
40575  idata = idata + 1
40576  data_tmp = full_data(idata)
40577  data_tmp = ishft(data_tmp, 13)
40578  data_tmp = iand(data_tmp, mask_left(1))
40579  pack_tmp = ior(pack_tmp, data_tmp)
40580  ipack = ipack + 1
40581  packed_data(ipack) = pack_tmp
40582  data_tmp = full_data(idata)
40583  pack_tmp = ishft(data_tmp, 14)
40584  pack_tmp = ishft(pack_tmp, -14)
40585  idata = idata + 1
40586  data_tmp = full_data(idata)
40587  data_tmp = ishft(data_tmp, 13)
40588  data_tmp = iand(data_tmp, mask_left(14))
40589  pack_tmp = ior(pack_tmp, data_tmp)
40590  ipack = ipack + 1
40591  packed_data(ipack) = pack_tmp
40592  data_tmp = full_data(idata)
40593  pack_tmp = ishft(data_tmp, 27)
40594  pack_tmp = ishft(pack_tmp, -27)
40595  idata = idata + 1
40596  data_tmp = full_data(idata)
40597  data_tmp = ishft(data_tmp, 13)
40598  data_tmp = iand(data_tmp, mask_left(27))
40599  pack_tmp = ior(pack_tmp, data_tmp)
40600  ipack = ipack + 1
40601  packed_data(ipack) = pack_tmp
40602  data_tmp = full_data(idata)
40603  pack_tmp = ishft(data_tmp, 40)
40604  pack_tmp = ishft(pack_tmp, -40)
40605  idata = idata + 1
40606  data_tmp = full_data(idata)
40607  data_tmp = ishft(data_tmp, 13)
40608  data_tmp = iand(data_tmp, mask_left(40))
40609  pack_tmp = ior(pack_tmp, data_tmp)
40610  ipack = ipack + 1
40611  packed_data(ipack) = pack_tmp
40612  data_tmp = full_data(idata)
40613  pack_tmp = ishft(data_tmp, 53)
40614  pack_tmp = ishft(pack_tmp, -51)
40615  idata = idata + 1
40616  data_tmp = full_data(idata)
40617  data_tmp = ishft(data_tmp, 13)
40618  pack_tmp = ior(pack_tmp, data_tmp)
40619  pack_tmp = ishft(pack_tmp, -2)
40620  idata = idata + 1
40621  data_tmp = full_data(idata)
40622  data_tmp = ishft(data_tmp, 13)
40623  data_tmp = iand(data_tmp, mask_left(2))
40624  pack_tmp = ior(pack_tmp, data_tmp)
40625  ipack = ipack + 1
40626  packed_data(ipack) = pack_tmp
40627  data_tmp = full_data(idata)
40628  pack_tmp = ishft(data_tmp, 15)
40629  pack_tmp = ishft(pack_tmp, -15)
40630  idata = idata + 1
40631  data_tmp = full_data(idata)
40632  data_tmp = ishft(data_tmp, 13)
40633  data_tmp = iand(data_tmp, mask_left(15))
40634  pack_tmp = ior(pack_tmp, data_tmp)
40635  ipack = ipack + 1
40636  packed_data(ipack) = pack_tmp
40637  data_tmp = full_data(idata)
40638  pack_tmp = ishft(data_tmp, 28)
40639  pack_tmp = ishft(pack_tmp, -28)
40640  idata = idata + 1
40641  data_tmp = full_data(idata)
40642  data_tmp = ishft(data_tmp, 13)
40643  data_tmp = iand(data_tmp, mask_left(28))
40644  pack_tmp = ior(pack_tmp, data_tmp)
40645  ipack = ipack + 1
40646  packed_data(ipack) = pack_tmp
40647  data_tmp = full_data(idata)
40648  pack_tmp = ishft(data_tmp, 41)
40649  pack_tmp = ishft(pack_tmp, -41)
40650  idata = idata + 1
40651  data_tmp = full_data(idata)
40652  data_tmp = ishft(data_tmp, 13)
40653  data_tmp = iand(data_tmp, mask_left(41))
40654  pack_tmp = ior(pack_tmp, data_tmp)
40655  ipack = ipack + 1
40656  packed_data(ipack) = pack_tmp
40657  data_tmp = full_data(idata)
40658  pack_tmp = ishft(data_tmp, 54)
40659  pack_tmp = ishft(pack_tmp, -51)
40660  idata = idata + 1
40661  data_tmp = full_data(idata)
40662  data_tmp = ishft(data_tmp, 13)
40663  pack_tmp = ior(pack_tmp, data_tmp)
40664  pack_tmp = ishft(pack_tmp, -3)
40665  idata = idata + 1
40666  data_tmp = full_data(idata)
40667  data_tmp = ishft(data_tmp, 13)
40668  data_tmp = iand(data_tmp, mask_left(3))
40669  pack_tmp = ior(pack_tmp, data_tmp)
40670  ipack = ipack + 1
40671  packed_data(ipack) = pack_tmp
40672  data_tmp = full_data(idata)
40673  pack_tmp = ishft(data_tmp, 16)
40674  pack_tmp = ishft(pack_tmp, -16)
40675  idata = idata + 1
40676  data_tmp = full_data(idata)
40677  data_tmp = ishft(data_tmp, 13)
40678  data_tmp = iand(data_tmp, mask_left(16))
40679  pack_tmp = ior(pack_tmp, data_tmp)
40680  ipack = ipack + 1
40681  packed_data(ipack) = pack_tmp
40682  data_tmp = full_data(idata)
40683  pack_tmp = ishft(data_tmp, 29)
40684  pack_tmp = ishft(pack_tmp, -29)
40685  idata = idata + 1
40686  data_tmp = full_data(idata)
40687  data_tmp = ishft(data_tmp, 13)
40688  data_tmp = iand(data_tmp, mask_left(29))
40689  pack_tmp = ior(pack_tmp, data_tmp)
40690  ipack = ipack + 1
40691  packed_data(ipack) = pack_tmp
40692  data_tmp = full_data(idata)
40693  pack_tmp = ishft(data_tmp, 42)
40694  pack_tmp = ishft(pack_tmp, -42)
40695  idata = idata + 1
40696  data_tmp = full_data(idata)
40697  data_tmp = ishft(data_tmp, 13)
40698  data_tmp = iand(data_tmp, mask_left(42))
40699  pack_tmp = ior(pack_tmp, data_tmp)
40700  ipack = ipack + 1
40701  packed_data(ipack) = pack_tmp
40702  data_tmp = full_data(idata)
40703  pack_tmp = ishft(data_tmp, 55)
40704  pack_tmp = ishft(pack_tmp, -51)
40705  idata = idata + 1
40706  data_tmp = full_data(idata)
40707  data_tmp = ishft(data_tmp, 13)
40708  pack_tmp = ior(pack_tmp, data_tmp)
40709  pack_tmp = ishft(pack_tmp, -4)
40710  idata = idata + 1
40711  data_tmp = full_data(idata)
40712  data_tmp = ishft(data_tmp, 13)
40713  data_tmp = iand(data_tmp, mask_left(4))
40714  pack_tmp = ior(pack_tmp, data_tmp)
40715  ipack = ipack + 1
40716  packed_data(ipack) = pack_tmp
40717  data_tmp = full_data(idata)
40718  pack_tmp = ishft(data_tmp, 17)
40719  pack_tmp = ishft(pack_tmp, -17)
40720  idata = idata + 1
40721  data_tmp = full_data(idata)
40722  data_tmp = ishft(data_tmp, 13)
40723  data_tmp = iand(data_tmp, mask_left(17))
40724  pack_tmp = ior(pack_tmp, data_tmp)
40725  ipack = ipack + 1
40726  packed_data(ipack) = pack_tmp
40727  data_tmp = full_data(idata)
40728  pack_tmp = ishft(data_tmp, 30)
40729  pack_tmp = ishft(pack_tmp, -30)
40730  idata = idata + 1
40731  data_tmp = full_data(idata)
40732  data_tmp = ishft(data_tmp, 13)
40733  data_tmp = iand(data_tmp, mask_left(30))
40734  pack_tmp = ior(pack_tmp, data_tmp)
40735  ipack = ipack + 1
40736  packed_data(ipack) = pack_tmp
40737  data_tmp = full_data(idata)
40738  pack_tmp = ishft(data_tmp, 43)
40739  pack_tmp = ishft(pack_tmp, -43)
40740  idata = idata + 1
40741  data_tmp = full_data(idata)
40742  data_tmp = ishft(data_tmp, 13)
40743  data_tmp = iand(data_tmp, mask_left(43))
40744  pack_tmp = ior(pack_tmp, data_tmp)
40745  ipack = ipack + 1
40746  packed_data(ipack) = pack_tmp
40747  data_tmp = full_data(idata)
40748  pack_tmp = ishft(data_tmp, 56)
40749  pack_tmp = ishft(pack_tmp, -51)
40750  idata = idata + 1
40751  data_tmp = full_data(idata)
40752  data_tmp = ishft(data_tmp, 13)
40753  pack_tmp = ior(pack_tmp, data_tmp)
40754  pack_tmp = ishft(pack_tmp, -5)
40755  idata = idata + 1
40756  data_tmp = full_data(idata)
40757  data_tmp = ishft(data_tmp, 13)
40758  data_tmp = iand(data_tmp, mask_left(5))
40759  pack_tmp = ior(pack_tmp, data_tmp)
40760  ipack = ipack + 1
40761  packed_data(ipack) = pack_tmp
40762  data_tmp = full_data(idata)
40763  pack_tmp = ishft(data_tmp, 18)
40764  pack_tmp = ishft(pack_tmp, -18)
40765  idata = idata + 1
40766  data_tmp = full_data(idata)
40767  data_tmp = ishft(data_tmp, 13)
40768  data_tmp = iand(data_tmp, mask_left(18))
40769  pack_tmp = ior(pack_tmp, data_tmp)
40770  ipack = ipack + 1
40771  packed_data(ipack) = pack_tmp
40772  data_tmp = full_data(idata)
40773  pack_tmp = ishft(data_tmp, 31)
40774  pack_tmp = ishft(pack_tmp, -31)
40775  idata = idata + 1
40776  data_tmp = full_data(idata)
40777  data_tmp = ishft(data_tmp, 13)
40778  data_tmp = iand(data_tmp, mask_left(31))
40779  pack_tmp = ior(pack_tmp, data_tmp)
40780  ipack = ipack + 1
40781  packed_data(ipack) = pack_tmp
40782  data_tmp = full_data(idata)
40783  pack_tmp = ishft(data_tmp, 44)
40784  pack_tmp = ishft(pack_tmp, -44)
40785  idata = idata + 1
40786  data_tmp = full_data(idata)
40787  data_tmp = ishft(data_tmp, 13)
40788  data_tmp = iand(data_tmp, mask_left(44))
40789  pack_tmp = ior(pack_tmp, data_tmp)
40790  ipack = ipack + 1
40791  packed_data(ipack) = pack_tmp
40792  data_tmp = full_data(idata)
40793  pack_tmp = ishft(data_tmp, 57)
40794  pack_tmp = ishft(pack_tmp, -51)
40795  idata = idata + 1
40796  data_tmp = full_data(idata)
40797  data_tmp = ishft(data_tmp, 13)
40798  pack_tmp = ior(pack_tmp, data_tmp)
40799  pack_tmp = ishft(pack_tmp, -6)
40800  idata = idata + 1
40801  data_tmp = full_data(idata)
40802  data_tmp = ishft(data_tmp, 13)
40803  data_tmp = iand(data_tmp, mask_left(6))
40804  pack_tmp = ior(pack_tmp, data_tmp)
40805  ipack = ipack + 1
40806  packed_data(ipack) = pack_tmp
40807  data_tmp = full_data(idata)
40808  pack_tmp = ishft(data_tmp, 19)
40809  pack_tmp = ishft(pack_tmp, -19)
40810  idata = idata + 1
40811  data_tmp = full_data(idata)
40812  data_tmp = ishft(data_tmp, 13)
40813  data_tmp = iand(data_tmp, mask_left(19))
40814  pack_tmp = ior(pack_tmp, data_tmp)
40815  ipack = ipack + 1
40816  packed_data(ipack) = pack_tmp
40817  data_tmp = full_data(idata)
40818  pack_tmp = ishft(data_tmp, 32)
40819  pack_tmp = ishft(pack_tmp, -32)
40820  idata = idata + 1
40821  data_tmp = full_data(idata)
40822  data_tmp = ishft(data_tmp, 13)
40823  data_tmp = iand(data_tmp, mask_left(32))
40824  pack_tmp = ior(pack_tmp, data_tmp)
40825  ipack = ipack + 1
40826  packed_data(ipack) = pack_tmp
40827  data_tmp = full_data(idata)
40828  pack_tmp = ishft(data_tmp, 45)
40829  pack_tmp = ishft(pack_tmp, -45)
40830  idata = idata + 1
40831  data_tmp = full_data(idata)
40832  data_tmp = ishft(data_tmp, 13)
40833  data_tmp = iand(data_tmp, mask_left(45))
40834  pack_tmp = ior(pack_tmp, data_tmp)
40835  ipack = ipack + 1
40836  packed_data(ipack) = pack_tmp
40837  data_tmp = full_data(idata)
40838  pack_tmp = ishft(data_tmp, 58)
40839  pack_tmp = ishft(pack_tmp, -51)
40840  idata = idata + 1
40841  data_tmp = full_data(idata)
40842  data_tmp = ishft(data_tmp, 13)
40843  pack_tmp = ior(pack_tmp, data_tmp)
40844  pack_tmp = ishft(pack_tmp, -7)
40845  idata = idata + 1
40846  data_tmp = full_data(idata)
40847  data_tmp = ishft(data_tmp, 13)
40848  data_tmp = iand(data_tmp, mask_left(7))
40849  pack_tmp = ior(pack_tmp, data_tmp)
40850  ipack = ipack + 1
40851  packed_data(ipack) = pack_tmp
40852  data_tmp = full_data(idata)
40853  pack_tmp = ishft(data_tmp, 20)
40854  pack_tmp = ishft(pack_tmp, -20)
40855  idata = idata + 1
40856  data_tmp = full_data(idata)
40857  data_tmp = ishft(data_tmp, 13)
40858  data_tmp = iand(data_tmp, mask_left(20))
40859  pack_tmp = ior(pack_tmp, data_tmp)
40860  ipack = ipack + 1
40861  packed_data(ipack) = pack_tmp
40862  data_tmp = full_data(idata)
40863  pack_tmp = ishft(data_tmp, 33)
40864  pack_tmp = ishft(pack_tmp, -33)
40865  idata = idata + 1
40866  data_tmp = full_data(idata)
40867  data_tmp = ishft(data_tmp, 13)
40868  data_tmp = iand(data_tmp, mask_left(33))
40869  pack_tmp = ior(pack_tmp, data_tmp)
40870  ipack = ipack + 1
40871  packed_data(ipack) = pack_tmp
40872  data_tmp = full_data(idata)
40873  pack_tmp = ishft(data_tmp, 46)
40874  pack_tmp = ishft(pack_tmp, -46)
40875  idata = idata + 1
40876  data_tmp = full_data(idata)
40877  data_tmp = ishft(data_tmp, 13)
40878  data_tmp = iand(data_tmp, mask_left(46))
40879  pack_tmp = ior(pack_tmp, data_tmp)
40880  ipack = ipack + 1
40881  packed_data(ipack) = pack_tmp
40882  data_tmp = full_data(idata)
40883  pack_tmp = ishft(data_tmp, 59)
40884  pack_tmp = ishft(pack_tmp, -51)
40885  idata = idata + 1
40886  data_tmp = full_data(idata)
40887  data_tmp = ishft(data_tmp, 13)
40888  pack_tmp = ior(pack_tmp, data_tmp)
40889  pack_tmp = ishft(pack_tmp, -8)
40890  idata = idata + 1
40891  data_tmp = full_data(idata)
40892  data_tmp = ishft(data_tmp, 13)
40893  data_tmp = iand(data_tmp, mask_left(8))
40894  pack_tmp = ior(pack_tmp, data_tmp)
40895  ipack = ipack + 1
40896  packed_data(ipack) = pack_tmp
40897  data_tmp = full_data(idata)
40898  pack_tmp = ishft(data_tmp, 21)
40899  pack_tmp = ishft(pack_tmp, -21)
40900  idata = idata + 1
40901  data_tmp = full_data(idata)
40902  data_tmp = ishft(data_tmp, 13)
40903  data_tmp = iand(data_tmp, mask_left(21))
40904  pack_tmp = ior(pack_tmp, data_tmp)
40905  ipack = ipack + 1
40906  packed_data(ipack) = pack_tmp
40907  data_tmp = full_data(idata)
40908  pack_tmp = ishft(data_tmp, 34)
40909  pack_tmp = ishft(pack_tmp, -34)
40910  idata = idata + 1
40911  data_tmp = full_data(idata)
40912  data_tmp = ishft(data_tmp, 13)
40913  data_tmp = iand(data_tmp, mask_left(34))
40914  pack_tmp = ior(pack_tmp, data_tmp)
40915  ipack = ipack + 1
40916  packed_data(ipack) = pack_tmp
40917  data_tmp = full_data(idata)
40918  pack_tmp = ishft(data_tmp, 47)
40919  pack_tmp = ishft(pack_tmp, -47)
40920  idata = idata + 1
40921  data_tmp = full_data(idata)
40922  data_tmp = ishft(data_tmp, 13)
40923  data_tmp = iand(data_tmp, mask_left(47))
40924  pack_tmp = ior(pack_tmp, data_tmp)
40925  ipack = ipack + 1
40926  packed_data(ipack) = pack_tmp
40927  data_tmp = full_data(idata)
40928  pack_tmp = ishft(data_tmp, 60)
40929  pack_tmp = ishft(pack_tmp, -51)
40930  idata = idata + 1
40931  data_tmp = full_data(idata)
40932  data_tmp = ishft(data_tmp, 13)
40933  pack_tmp = ior(pack_tmp, data_tmp)
40934  pack_tmp = ishft(pack_tmp, -9)
40935  idata = idata + 1
40936  data_tmp = full_data(idata)
40937  data_tmp = ishft(data_tmp, 13)
40938  data_tmp = iand(data_tmp, mask_left(9))
40939  pack_tmp = ior(pack_tmp, data_tmp)
40940  ipack = ipack + 1
40941  packed_data(ipack) = pack_tmp
40942  data_tmp = full_data(idata)
40943  pack_tmp = ishft(data_tmp, 22)
40944  pack_tmp = ishft(pack_tmp, -22)
40945  idata = idata + 1
40946  data_tmp = full_data(idata)
40947  data_tmp = ishft(data_tmp, 13)
40948  data_tmp = iand(data_tmp, mask_left(22))
40949  pack_tmp = ior(pack_tmp, data_tmp)
40950  ipack = ipack + 1
40951  packed_data(ipack) = pack_tmp
40952  data_tmp = full_data(idata)
40953  pack_tmp = ishft(data_tmp, 35)
40954  pack_tmp = ishft(pack_tmp, -35)
40955  idata = idata + 1
40956  data_tmp = full_data(idata)
40957  data_tmp = ishft(data_tmp, 13)
40958  data_tmp = iand(data_tmp, mask_left(35))
40959  pack_tmp = ior(pack_tmp, data_tmp)
40960  ipack = ipack + 1
40961  packed_data(ipack) = pack_tmp
40962  data_tmp = full_data(idata)
40963  pack_tmp = ishft(data_tmp, 48)
40964  pack_tmp = ishft(pack_tmp, -48)
40965  idata = idata + 1
40966  data_tmp = full_data(idata)
40967  data_tmp = ishft(data_tmp, 13)
40968  data_tmp = iand(data_tmp, mask_left(48))
40969  pack_tmp = ior(pack_tmp, data_tmp)
40970  ipack = ipack + 1
40971  packed_data(ipack) = pack_tmp
40972  data_tmp = full_data(idata)
40973  pack_tmp = ishft(data_tmp, 61)
40974  pack_tmp = ishft(pack_tmp, -51)
40975  idata = idata + 1
40976  data_tmp = full_data(idata)
40977  data_tmp = ishft(data_tmp, 13)
40978  pack_tmp = ior(pack_tmp, data_tmp)
40979  pack_tmp = ishft(pack_tmp, -10)
40980  idata = idata + 1
40981  data_tmp = full_data(idata)
40982  data_tmp = ishft(data_tmp, 13)
40983  data_tmp = iand(data_tmp, mask_left(10))
40984  pack_tmp = ior(pack_tmp, data_tmp)
40985  ipack = ipack + 1
40986  packed_data(ipack) = pack_tmp
40987  data_tmp = full_data(idata)
40988  pack_tmp = ishft(data_tmp, 23)
40989  pack_tmp = ishft(pack_tmp, -23)
40990  idata = idata + 1
40991  data_tmp = full_data(idata)
40992  data_tmp = ishft(data_tmp, 13)
40993  data_tmp = iand(data_tmp, mask_left(23))
40994  pack_tmp = ior(pack_tmp, data_tmp)
40995  ipack = ipack + 1
40996  packed_data(ipack) = pack_tmp
40997  data_tmp = full_data(idata)
40998  pack_tmp = ishft(data_tmp, 36)
40999  pack_tmp = ishft(pack_tmp, -36)
41000  idata = idata + 1
41001  data_tmp = full_data(idata)
41002  data_tmp = ishft(data_tmp, 13)
41003  data_tmp = iand(data_tmp, mask_left(36))
41004  pack_tmp = ior(pack_tmp, data_tmp)
41005  ipack = ipack + 1
41006  packed_data(ipack) = pack_tmp
41007  data_tmp = full_data(idata)
41008  pack_tmp = ishft(data_tmp, 49)
41009  pack_tmp = ishft(pack_tmp, -49)
41010  idata = idata + 1
41011  data_tmp = full_data(idata)
41012  data_tmp = ishft(data_tmp, 13)
41013  data_tmp = iand(data_tmp, mask_left(49))
41014  pack_tmp = ior(pack_tmp, data_tmp)
41015  ipack = ipack + 1
41016  packed_data(ipack) = pack_tmp
41017  data_tmp = full_data(idata)
41018  pack_tmp = ishft(data_tmp, 62)
41019  pack_tmp = ishft(pack_tmp, -51)
41020  idata = idata + 1
41021  data_tmp = full_data(idata)
41022  data_tmp = ishft(data_tmp, 13)
41023  pack_tmp = ior(pack_tmp, data_tmp)
41024  pack_tmp = ishft(pack_tmp, -11)
41025  idata = idata + 1
41026  data_tmp = full_data(idata)
41027  data_tmp = ishft(data_tmp, 13)
41028  data_tmp = iand(data_tmp, mask_left(11))
41029  pack_tmp = ior(pack_tmp, data_tmp)
41030  ipack = ipack + 1
41031  packed_data(ipack) = pack_tmp
41032  data_tmp = full_data(idata)
41033  pack_tmp = ishft(data_tmp, 24)
41034  pack_tmp = ishft(pack_tmp, -24)
41035  idata = idata + 1
41036  data_tmp = full_data(idata)
41037  data_tmp = ishft(data_tmp, 13)
41038  data_tmp = iand(data_tmp, mask_left(24))
41039  pack_tmp = ior(pack_tmp, data_tmp)
41040  ipack = ipack + 1
41041  packed_data(ipack) = pack_tmp
41042  data_tmp = full_data(idata)
41043  pack_tmp = ishft(data_tmp, 37)
41044  pack_tmp = ishft(pack_tmp, -37)
41045  idata = idata + 1
41046  data_tmp = full_data(idata)
41047  data_tmp = ishft(data_tmp, 13)
41048  data_tmp = iand(data_tmp, mask_left(37))
41049  pack_tmp = ior(pack_tmp, data_tmp)
41050  ipack = ipack + 1
41051  packed_data(ipack) = pack_tmp
41052  data_tmp = full_data(idata)
41053  pack_tmp = ishft(data_tmp, 50)
41054  pack_tmp = ishft(pack_tmp, -50)
41055  idata = idata + 1
41056  data_tmp = full_data(idata)
41057  data_tmp = ishft(data_tmp, 13)
41058  data_tmp = iand(data_tmp, mask_left(50))
41059  pack_tmp = ior(pack_tmp, data_tmp)
41060  ipack = ipack + 1
41061  packed_data(ipack) = pack_tmp
41062  data_tmp = full_data(idata)
41063  pack_tmp = ishft(data_tmp, 63)
41064  pack_tmp = ishft(pack_tmp, -51)
41065  idata = idata + 1
41066  data_tmp = full_data(idata)
41067  data_tmp = ishft(data_tmp, 13)
41068  pack_tmp = ior(pack_tmp, data_tmp)
41069  pack_tmp = ishft(pack_tmp, -12)
41070  idata = idata + 1
41071  data_tmp = full_data(idata)
41072  data_tmp = ishft(data_tmp, 13)
41073  data_tmp = iand(data_tmp, mask_left(12))
41074  pack_tmp = ior(pack_tmp, data_tmp)
41075  ipack = ipack + 1
41076  packed_data(ipack) = pack_tmp
41077  data_tmp = full_data(idata)
41078  pack_tmp = ishft(data_tmp, 25)
41079  pack_tmp = ishft(pack_tmp, -25)
41080  idata = idata + 1
41081  data_tmp = full_data(idata)
41082  data_tmp = ishft(data_tmp, 13)
41083  data_tmp = iand(data_tmp, mask_left(25))
41084  pack_tmp = ior(pack_tmp, data_tmp)
41085  ipack = ipack + 1
41086  packed_data(ipack) = pack_tmp
41087  data_tmp = full_data(idata)
41088  pack_tmp = ishft(data_tmp, 38)
41089  pack_tmp = ishft(pack_tmp, -38)
41090  idata = idata + 1
41091  data_tmp = full_data(idata)
41092  data_tmp = ishft(data_tmp, 13)
41093  data_tmp = iand(data_tmp, mask_left(38))
41094  pack_tmp = ior(pack_tmp, data_tmp)
41095  ipack = ipack + 1
41096  packed_data(ipack) = pack_tmp
41097  data_tmp = full_data(idata)
41098  pack_tmp = ishft(data_tmp, 51)
41099  pack_tmp = ishft(pack_tmp, -51)
41100  idata = idata + 1
41101  data_tmp = full_data(idata)
41102  data_tmp = ishft(data_tmp, 13)
41103  pack_tmp = ior(pack_tmp, data_tmp)
41104  pack_tmp = ishft(pack_tmp, 0)
41105  pack_tmp = ishft(pack_tmp, 0)
41106  ipack = ipack + 1
41107  packed_data(ipack) = pack_tmp
41108  END DO
41109  IF (ndata_rep < ndata) THEN
41110  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
41111  END IF
41112  END SUBROUTINE ints2bits_51
41113 
41114 ! **************************************************************************************************
41115 !> \brief ...
41116 !> \param Ndata ...
41117 !> \param packed_data ...
41118 !> \param full_data ...
41119 ! **************************************************************************************************
41120  SUBROUTINE bits2ints_51(Ndata, packed_data, full_data)
41121  INTEGER, INTENT(IN) :: Ndata
41122  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
41123  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
41124 
41125  INTEGER, PARAMETER :: Nbits = 51
41126 
41127  INTEGER :: idata, ipack, kdata, Ndata_rep
41128  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
41129 
41130  ipack = 0
41131  idata = 0
41132  pack_tmp = 0
41133  ndata_rep = (ndata/64)*64
41134  DO kdata = 1, ndata_rep, 64
41135  idata = idata + 1
41136  data_tmp = ishft(pack_tmp, 51)
41137  ipack = ipack + 1
41138  pack_tmp = packed_data(ipack)
41139  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
41140  pack_tmp = ishft(pack_tmp, -51)
41141  idata = idata + 1
41142  data_tmp = ishft(pack_tmp, 38)
41143  ipack = ipack + 1
41144  pack_tmp = packed_data(ipack)
41145  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
41146  pack_tmp = ishft(pack_tmp, -38)
41147  idata = idata + 1
41148  data_tmp = ishft(pack_tmp, 25)
41149  ipack = ipack + 1
41150  pack_tmp = packed_data(ipack)
41151  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
41152  pack_tmp = ishft(pack_tmp, -25)
41153  idata = idata + 1
41154  data_tmp = ishft(pack_tmp, 12)
41155  ipack = ipack + 1
41156  pack_tmp = packed_data(ipack)
41157  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
41158  pack_tmp = ishft(pack_tmp, -12)
41159  idata = idata + 1
41160  data_tmp = iand(pack_tmp, mask_right(nbits))
41161  full_data(idata) = data_tmp
41162  pack_tmp = ishft(pack_tmp, -nbits)
41163  idata = idata + 1
41164  data_tmp = ishft(pack_tmp, 50)
41165  ipack = ipack + 1
41166  pack_tmp = packed_data(ipack)
41167  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
41168  pack_tmp = ishft(pack_tmp, -50)
41169  idata = idata + 1
41170  data_tmp = ishft(pack_tmp, 37)
41171  ipack = ipack + 1
41172  pack_tmp = packed_data(ipack)
41173  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
41174  pack_tmp = ishft(pack_tmp, -37)
41175  idata = idata + 1
41176  data_tmp = ishft(pack_tmp, 24)
41177  ipack = ipack + 1
41178  pack_tmp = packed_data(ipack)
41179  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
41180  pack_tmp = ishft(pack_tmp, -24)
41181  idata = idata + 1
41182  data_tmp = ishft(pack_tmp, 11)
41183  ipack = ipack + 1
41184  pack_tmp = packed_data(ipack)
41185  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
41186  pack_tmp = ishft(pack_tmp, -11)
41187  idata = idata + 1
41188  data_tmp = iand(pack_tmp, mask_right(nbits))
41189  full_data(idata) = data_tmp
41190  pack_tmp = ishft(pack_tmp, -nbits)
41191  idata = idata + 1
41192  data_tmp = ishft(pack_tmp, 49)
41193  ipack = ipack + 1
41194  pack_tmp = packed_data(ipack)
41195  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
41196  pack_tmp = ishft(pack_tmp, -49)
41197  idata = idata + 1
41198  data_tmp = ishft(pack_tmp, 36)
41199  ipack = ipack + 1
41200  pack_tmp = packed_data(ipack)
41201  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
41202  pack_tmp = ishft(pack_tmp, -36)
41203  idata = idata + 1
41204  data_tmp = ishft(pack_tmp, 23)
41205  ipack = ipack + 1
41206  pack_tmp = packed_data(ipack)
41207  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
41208  pack_tmp = ishft(pack_tmp, -23)
41209  idata = idata + 1
41210  data_tmp = ishft(pack_tmp, 10)
41211  ipack = ipack + 1
41212  pack_tmp = packed_data(ipack)
41213  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
41214  pack_tmp = ishft(pack_tmp, -10)
41215  idata = idata + 1
41216  data_tmp = iand(pack_tmp, mask_right(nbits))
41217  full_data(idata) = data_tmp
41218  pack_tmp = ishft(pack_tmp, -nbits)
41219  idata = idata + 1
41220  data_tmp = ishft(pack_tmp, 48)
41221  ipack = ipack + 1
41222  pack_tmp = packed_data(ipack)
41223  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
41224  pack_tmp = ishft(pack_tmp, -48)
41225  idata = idata + 1
41226  data_tmp = ishft(pack_tmp, 35)
41227  ipack = ipack + 1
41228  pack_tmp = packed_data(ipack)
41229  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
41230  pack_tmp = ishft(pack_tmp, -35)
41231  idata = idata + 1
41232  data_tmp = ishft(pack_tmp, 22)
41233  ipack = ipack + 1
41234  pack_tmp = packed_data(ipack)
41235  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
41236  pack_tmp = ishft(pack_tmp, -22)
41237  idata = idata + 1
41238  data_tmp = ishft(pack_tmp, 9)
41239  ipack = ipack + 1
41240  pack_tmp = packed_data(ipack)
41241  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
41242  pack_tmp = ishft(pack_tmp, -9)
41243  idata = idata + 1
41244  data_tmp = iand(pack_tmp, mask_right(nbits))
41245  full_data(idata) = data_tmp
41246  pack_tmp = ishft(pack_tmp, -nbits)
41247  idata = idata + 1
41248  data_tmp = ishft(pack_tmp, 47)
41249  ipack = ipack + 1
41250  pack_tmp = packed_data(ipack)
41251  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
41252  pack_tmp = ishft(pack_tmp, -47)
41253  idata = idata + 1
41254  data_tmp = ishft(pack_tmp, 34)
41255  ipack = ipack + 1
41256  pack_tmp = packed_data(ipack)
41257  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
41258  pack_tmp = ishft(pack_tmp, -34)
41259  idata = idata + 1
41260  data_tmp = ishft(pack_tmp, 21)
41261  ipack = ipack + 1
41262  pack_tmp = packed_data(ipack)
41263  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
41264  pack_tmp = ishft(pack_tmp, -21)
41265  idata = idata + 1
41266  data_tmp = ishft(pack_tmp, 8)
41267  ipack = ipack + 1
41268  pack_tmp = packed_data(ipack)
41269  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
41270  pack_tmp = ishft(pack_tmp, -8)
41271  idata = idata + 1
41272  data_tmp = iand(pack_tmp, mask_right(nbits))
41273  full_data(idata) = data_tmp
41274  pack_tmp = ishft(pack_tmp, -nbits)
41275  idata = idata + 1
41276  data_tmp = ishft(pack_tmp, 46)
41277  ipack = ipack + 1
41278  pack_tmp = packed_data(ipack)
41279  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
41280  pack_tmp = ishft(pack_tmp, -46)
41281  idata = idata + 1
41282  data_tmp = ishft(pack_tmp, 33)
41283  ipack = ipack + 1
41284  pack_tmp = packed_data(ipack)
41285  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
41286  pack_tmp = ishft(pack_tmp, -33)
41287  idata = idata + 1
41288  data_tmp = ishft(pack_tmp, 20)
41289  ipack = ipack + 1
41290  pack_tmp = packed_data(ipack)
41291  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
41292  pack_tmp = ishft(pack_tmp, -20)
41293  idata = idata + 1
41294  data_tmp = ishft(pack_tmp, 7)
41295  ipack = ipack + 1
41296  pack_tmp = packed_data(ipack)
41297  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
41298  pack_tmp = ishft(pack_tmp, -7)
41299  idata = idata + 1
41300  data_tmp = iand(pack_tmp, mask_right(nbits))
41301  full_data(idata) = data_tmp
41302  pack_tmp = ishft(pack_tmp, -nbits)
41303  idata = idata + 1
41304  data_tmp = ishft(pack_tmp, 45)
41305  ipack = ipack + 1
41306  pack_tmp = packed_data(ipack)
41307  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
41308  pack_tmp = ishft(pack_tmp, -45)
41309  idata = idata + 1
41310  data_tmp = ishft(pack_tmp, 32)
41311  ipack = ipack + 1
41312  pack_tmp = packed_data(ipack)
41313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
41314  pack_tmp = ishft(pack_tmp, -32)
41315  idata = idata + 1
41316  data_tmp = ishft(pack_tmp, 19)
41317  ipack = ipack + 1
41318  pack_tmp = packed_data(ipack)
41319  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
41320  pack_tmp = ishft(pack_tmp, -19)
41321  idata = idata + 1
41322  data_tmp = ishft(pack_tmp, 6)
41323  ipack = ipack + 1
41324  pack_tmp = packed_data(ipack)
41325  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
41326  pack_tmp = ishft(pack_tmp, -6)
41327  idata = idata + 1
41328  data_tmp = iand(pack_tmp, mask_right(nbits))
41329  full_data(idata) = data_tmp
41330  pack_tmp = ishft(pack_tmp, -nbits)
41331  idata = idata + 1
41332  data_tmp = ishft(pack_tmp, 44)
41333  ipack = ipack + 1
41334  pack_tmp = packed_data(ipack)
41335  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
41336  pack_tmp = ishft(pack_tmp, -44)
41337  idata = idata + 1
41338  data_tmp = ishft(pack_tmp, 31)
41339  ipack = ipack + 1
41340  pack_tmp = packed_data(ipack)
41341  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
41342  pack_tmp = ishft(pack_tmp, -31)
41343  idata = idata + 1
41344  data_tmp = ishft(pack_tmp, 18)
41345  ipack = ipack + 1
41346  pack_tmp = packed_data(ipack)
41347  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
41348  pack_tmp = ishft(pack_tmp, -18)
41349  idata = idata + 1
41350  data_tmp = ishft(pack_tmp, 5)
41351  ipack = ipack + 1
41352  pack_tmp = packed_data(ipack)
41353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
41354  pack_tmp = ishft(pack_tmp, -5)
41355  idata = idata + 1
41356  data_tmp = iand(pack_tmp, mask_right(nbits))
41357  full_data(idata) = data_tmp
41358  pack_tmp = ishft(pack_tmp, -nbits)
41359  idata = idata + 1
41360  data_tmp = ishft(pack_tmp, 43)
41361  ipack = ipack + 1
41362  pack_tmp = packed_data(ipack)
41363  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
41364  pack_tmp = ishft(pack_tmp, -43)
41365  idata = idata + 1
41366  data_tmp = ishft(pack_tmp, 30)
41367  ipack = ipack + 1
41368  pack_tmp = packed_data(ipack)
41369  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
41370  pack_tmp = ishft(pack_tmp, -30)
41371  idata = idata + 1
41372  data_tmp = ishft(pack_tmp, 17)
41373  ipack = ipack + 1
41374  pack_tmp = packed_data(ipack)
41375  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
41376  pack_tmp = ishft(pack_tmp, -17)
41377  idata = idata + 1
41378  data_tmp = ishft(pack_tmp, 4)
41379  ipack = ipack + 1
41380  pack_tmp = packed_data(ipack)
41381  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
41382  pack_tmp = ishft(pack_tmp, -4)
41383  idata = idata + 1
41384  data_tmp = iand(pack_tmp, mask_right(nbits))
41385  full_data(idata) = data_tmp
41386  pack_tmp = ishft(pack_tmp, -nbits)
41387  idata = idata + 1
41388  data_tmp = ishft(pack_tmp, 42)
41389  ipack = ipack + 1
41390  pack_tmp = packed_data(ipack)
41391  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
41392  pack_tmp = ishft(pack_tmp, -42)
41393  idata = idata + 1
41394  data_tmp = ishft(pack_tmp, 29)
41395  ipack = ipack + 1
41396  pack_tmp = packed_data(ipack)
41397  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
41398  pack_tmp = ishft(pack_tmp, -29)
41399  idata = idata + 1
41400  data_tmp = ishft(pack_tmp, 16)
41401  ipack = ipack + 1
41402  pack_tmp = packed_data(ipack)
41403  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
41404  pack_tmp = ishft(pack_tmp, -16)
41405  idata = idata + 1
41406  data_tmp = ishft(pack_tmp, 3)
41407  ipack = ipack + 1
41408  pack_tmp = packed_data(ipack)
41409  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
41410  pack_tmp = ishft(pack_tmp, -3)
41411  idata = idata + 1
41412  data_tmp = iand(pack_tmp, mask_right(nbits))
41413  full_data(idata) = data_tmp
41414  pack_tmp = ishft(pack_tmp, -nbits)
41415  idata = idata + 1
41416  data_tmp = ishft(pack_tmp, 41)
41417  ipack = ipack + 1
41418  pack_tmp = packed_data(ipack)
41419  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
41420  pack_tmp = ishft(pack_tmp, -41)
41421  idata = idata + 1
41422  data_tmp = ishft(pack_tmp, 28)
41423  ipack = ipack + 1
41424  pack_tmp = packed_data(ipack)
41425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
41426  pack_tmp = ishft(pack_tmp, -28)
41427  idata = idata + 1
41428  data_tmp = ishft(pack_tmp, 15)
41429  ipack = ipack + 1
41430  pack_tmp = packed_data(ipack)
41431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
41432  pack_tmp = ishft(pack_tmp, -15)
41433  idata = idata + 1
41434  data_tmp = ishft(pack_tmp, 2)
41435  ipack = ipack + 1
41436  pack_tmp = packed_data(ipack)
41437  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
41438  pack_tmp = ishft(pack_tmp, -2)
41439  idata = idata + 1
41440  data_tmp = iand(pack_tmp, mask_right(nbits))
41441  full_data(idata) = data_tmp
41442  pack_tmp = ishft(pack_tmp, -nbits)
41443  idata = idata + 1
41444  data_tmp = ishft(pack_tmp, 40)
41445  ipack = ipack + 1
41446  pack_tmp = packed_data(ipack)
41447  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
41448  pack_tmp = ishft(pack_tmp, -40)
41449  idata = idata + 1
41450  data_tmp = ishft(pack_tmp, 27)
41451  ipack = ipack + 1
41452  pack_tmp = packed_data(ipack)
41453  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
41454  pack_tmp = ishft(pack_tmp, -27)
41455  idata = idata + 1
41456  data_tmp = ishft(pack_tmp, 14)
41457  ipack = ipack + 1
41458  pack_tmp = packed_data(ipack)
41459  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
41460  pack_tmp = ishft(pack_tmp, -14)
41461  idata = idata + 1
41462  data_tmp = ishft(pack_tmp, 1)
41463  ipack = ipack + 1
41464  pack_tmp = packed_data(ipack)
41465  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
41466  pack_tmp = ishft(pack_tmp, -1)
41467  idata = idata + 1
41468  data_tmp = iand(pack_tmp, mask_right(nbits))
41469  full_data(idata) = data_tmp
41470  pack_tmp = ishft(pack_tmp, -nbits)
41471  idata = idata + 1
41472  data_tmp = ishft(pack_tmp, 39)
41473  ipack = ipack + 1
41474  pack_tmp = packed_data(ipack)
41475  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
41476  pack_tmp = ishft(pack_tmp, -39)
41477  idata = idata + 1
41478  data_tmp = ishft(pack_tmp, 26)
41479  ipack = ipack + 1
41480  pack_tmp = packed_data(ipack)
41481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
41482  pack_tmp = ishft(pack_tmp, -26)
41483  idata = idata + 1
41484  data_tmp = ishft(pack_tmp, 13)
41485  ipack = ipack + 1
41486  pack_tmp = packed_data(ipack)
41487  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
41488  pack_tmp = ishft(pack_tmp, -13)
41489  idata = idata + 1
41490  data_tmp = iand(pack_tmp, mask_right(nbits))
41491  full_data(idata) = data_tmp
41492  pack_tmp = ishft(pack_tmp, -nbits)
41493  END DO
41494  IF (ndata_rep < ndata) THEN
41495  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
41496  END IF
41497  END SUBROUTINE bits2ints_51
41498 
41499 ! **************************************************************************************************
41500 !> \brief ...
41501 !> \param Ndata ...
41502 !> \param packed_data ...
41503 !> \param full_data ...
41504 ! **************************************************************************************************
41505  SUBROUTINE ints2bits_52(Ndata, packed_data, full_data)
41506  INTEGER, INTENT(IN) :: Ndata
41507  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
41508  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
41509 
41510  INTEGER, PARAMETER :: Nbits = 52
41511 
41512  INTEGER :: idata, ipack, kdata, Ndata_rep
41513  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
41514 
41515  idata = 0
41516  ipack = 0
41517  ndata_rep = (ndata/64)*64
41518  DO kdata = 1, ndata_rep, 64
41519  pack_tmp = 0
41520  idata = idata + 1
41521  data_tmp = full_data(idata)
41522  data_tmp = ishft(data_tmp, 12)
41523  pack_tmp = ior(pack_tmp, data_tmp)
41524  pack_tmp = ishft(pack_tmp, -12)
41525  idata = idata + 1
41526  data_tmp = full_data(idata)
41527  data_tmp = ishft(data_tmp, 12)
41528  data_tmp = iand(data_tmp, mask_left(12))
41529  pack_tmp = ior(pack_tmp, data_tmp)
41530  ipack = ipack + 1
41531  packed_data(ipack) = pack_tmp
41532  data_tmp = full_data(idata)
41533  pack_tmp = ishft(data_tmp, 24)
41534  pack_tmp = ishft(pack_tmp, -24)
41535  idata = idata + 1
41536  data_tmp = full_data(idata)
41537  data_tmp = ishft(data_tmp, 12)
41538  data_tmp = iand(data_tmp, mask_left(24))
41539  pack_tmp = ior(pack_tmp, data_tmp)
41540  ipack = ipack + 1
41541  packed_data(ipack) = pack_tmp
41542  data_tmp = full_data(idata)
41543  pack_tmp = ishft(data_tmp, 36)
41544  pack_tmp = ishft(pack_tmp, -36)
41545  idata = idata + 1
41546  data_tmp = full_data(idata)
41547  data_tmp = ishft(data_tmp, 12)
41548  data_tmp = iand(data_tmp, mask_left(36))
41549  pack_tmp = ior(pack_tmp, data_tmp)
41550  ipack = ipack + 1
41551  packed_data(ipack) = pack_tmp
41552  data_tmp = full_data(idata)
41553  pack_tmp = ishft(data_tmp, 48)
41554  pack_tmp = ishft(pack_tmp, -48)
41555  idata = idata + 1
41556  data_tmp = full_data(idata)
41557  data_tmp = ishft(data_tmp, 12)
41558  data_tmp = iand(data_tmp, mask_left(48))
41559  pack_tmp = ior(pack_tmp, data_tmp)
41560  ipack = ipack + 1
41561  packed_data(ipack) = pack_tmp
41562  data_tmp = full_data(idata)
41563  pack_tmp = ishft(data_tmp, 60)
41564  pack_tmp = ishft(pack_tmp, -52)
41565  idata = idata + 1
41566  data_tmp = full_data(idata)
41567  data_tmp = ishft(data_tmp, 12)
41568  pack_tmp = ior(pack_tmp, data_tmp)
41569  pack_tmp = ishft(pack_tmp, -8)
41570  idata = idata + 1
41571  data_tmp = full_data(idata)
41572  data_tmp = ishft(data_tmp, 12)
41573  data_tmp = iand(data_tmp, mask_left(8))
41574  pack_tmp = ior(pack_tmp, data_tmp)
41575  ipack = ipack + 1
41576  packed_data(ipack) = pack_tmp
41577  data_tmp = full_data(idata)
41578  pack_tmp = ishft(data_tmp, 20)
41579  pack_tmp = ishft(pack_tmp, -20)
41580  idata = idata + 1
41581  data_tmp = full_data(idata)
41582  data_tmp = ishft(data_tmp, 12)
41583  data_tmp = iand(data_tmp, mask_left(20))
41584  pack_tmp = ior(pack_tmp, data_tmp)
41585  ipack = ipack + 1
41586  packed_data(ipack) = pack_tmp
41587  data_tmp = full_data(idata)
41588  pack_tmp = ishft(data_tmp, 32)
41589  pack_tmp = ishft(pack_tmp, -32)
41590  idata = idata + 1
41591  data_tmp = full_data(idata)
41592  data_tmp = ishft(data_tmp, 12)
41593  data_tmp = iand(data_tmp, mask_left(32))
41594  pack_tmp = ior(pack_tmp, data_tmp)
41595  ipack = ipack + 1
41596  packed_data(ipack) = pack_tmp
41597  data_tmp = full_data(idata)
41598  pack_tmp = ishft(data_tmp, 44)
41599  pack_tmp = ishft(pack_tmp, -44)
41600  idata = idata + 1
41601  data_tmp = full_data(idata)
41602  data_tmp = ishft(data_tmp, 12)
41603  data_tmp = iand(data_tmp, mask_left(44))
41604  pack_tmp = ior(pack_tmp, data_tmp)
41605  ipack = ipack + 1
41606  packed_data(ipack) = pack_tmp
41607  data_tmp = full_data(idata)
41608  pack_tmp = ishft(data_tmp, 56)
41609  pack_tmp = ishft(pack_tmp, -52)
41610  idata = idata + 1
41611  data_tmp = full_data(idata)
41612  data_tmp = ishft(data_tmp, 12)
41613  pack_tmp = ior(pack_tmp, data_tmp)
41614  pack_tmp = ishft(pack_tmp, -4)
41615  idata = idata + 1
41616  data_tmp = full_data(idata)
41617  data_tmp = ishft(data_tmp, 12)
41618  data_tmp = iand(data_tmp, mask_left(4))
41619  pack_tmp = ior(pack_tmp, data_tmp)
41620  ipack = ipack + 1
41621  packed_data(ipack) = pack_tmp
41622  data_tmp = full_data(idata)
41623  pack_tmp = ishft(data_tmp, 16)
41624  pack_tmp = ishft(pack_tmp, -16)
41625  idata = idata + 1
41626  data_tmp = full_data(idata)
41627  data_tmp = ishft(data_tmp, 12)
41628  data_tmp = iand(data_tmp, mask_left(16))
41629  pack_tmp = ior(pack_tmp, data_tmp)
41630  ipack = ipack + 1
41631  packed_data(ipack) = pack_tmp
41632  data_tmp = full_data(idata)
41633  pack_tmp = ishft(data_tmp, 28)
41634  pack_tmp = ishft(pack_tmp, -28)
41635  idata = idata + 1
41636  data_tmp = full_data(idata)
41637  data_tmp = ishft(data_tmp, 12)
41638  data_tmp = iand(data_tmp, mask_left(28))
41639  pack_tmp = ior(pack_tmp, data_tmp)
41640  ipack = ipack + 1
41641  packed_data(ipack) = pack_tmp
41642  data_tmp = full_data(idata)
41643  pack_tmp = ishft(data_tmp, 40)
41644  pack_tmp = ishft(pack_tmp, -40)
41645  idata = idata + 1
41646  data_tmp = full_data(idata)
41647  data_tmp = ishft(data_tmp, 12)
41648  data_tmp = iand(data_tmp, mask_left(40))
41649  pack_tmp = ior(pack_tmp, data_tmp)
41650  ipack = ipack + 1
41651  packed_data(ipack) = pack_tmp
41652  data_tmp = full_data(idata)
41653  pack_tmp = ishft(data_tmp, 52)
41654  pack_tmp = ishft(pack_tmp, -52)
41655  idata = idata + 1
41656  data_tmp = full_data(idata)
41657  data_tmp = ishft(data_tmp, 12)
41658  pack_tmp = ior(pack_tmp, data_tmp)
41659  pack_tmp = ishft(pack_tmp, 0)
41660  idata = idata + 1
41661  data_tmp = full_data(idata)
41662  data_tmp = ishft(data_tmp, 12)
41663  data_tmp = iand(data_tmp, mask_left(0))
41664  pack_tmp = ior(pack_tmp, data_tmp)
41665  ipack = ipack + 1
41666  packed_data(ipack) = pack_tmp
41667  data_tmp = full_data(idata)
41668  pack_tmp = ishft(data_tmp, 12)
41669  pack_tmp = ishft(pack_tmp, -12)
41670  idata = idata + 1
41671  data_tmp = full_data(idata)
41672  data_tmp = ishft(data_tmp, 12)
41673  data_tmp = iand(data_tmp, mask_left(12))
41674  pack_tmp = ior(pack_tmp, data_tmp)
41675  ipack = ipack + 1
41676  packed_data(ipack) = pack_tmp
41677  data_tmp = full_data(idata)
41678  pack_tmp = ishft(data_tmp, 24)
41679  pack_tmp = ishft(pack_tmp, -24)
41680  idata = idata + 1
41681  data_tmp = full_data(idata)
41682  data_tmp = ishft(data_tmp, 12)
41683  data_tmp = iand(data_tmp, mask_left(24))
41684  pack_tmp = ior(pack_tmp, data_tmp)
41685  ipack = ipack + 1
41686  packed_data(ipack) = pack_tmp
41687  data_tmp = full_data(idata)
41688  pack_tmp = ishft(data_tmp, 36)
41689  pack_tmp = ishft(pack_tmp, -36)
41690  idata = idata + 1
41691  data_tmp = full_data(idata)
41692  data_tmp = ishft(data_tmp, 12)
41693  data_tmp = iand(data_tmp, mask_left(36))
41694  pack_tmp = ior(pack_tmp, data_tmp)
41695  ipack = ipack + 1
41696  packed_data(ipack) = pack_tmp
41697  data_tmp = full_data(idata)
41698  pack_tmp = ishft(data_tmp, 48)
41699  pack_tmp = ishft(pack_tmp, -48)
41700  idata = idata + 1
41701  data_tmp = full_data(idata)
41702  data_tmp = ishft(data_tmp, 12)
41703  data_tmp = iand(data_tmp, mask_left(48))
41704  pack_tmp = ior(pack_tmp, data_tmp)
41705  ipack = ipack + 1
41706  packed_data(ipack) = pack_tmp
41707  data_tmp = full_data(idata)
41708  pack_tmp = ishft(data_tmp, 60)
41709  pack_tmp = ishft(pack_tmp, -52)
41710  idata = idata + 1
41711  data_tmp = full_data(idata)
41712  data_tmp = ishft(data_tmp, 12)
41713  pack_tmp = ior(pack_tmp, data_tmp)
41714  pack_tmp = ishft(pack_tmp, -8)
41715  idata = idata + 1
41716  data_tmp = full_data(idata)
41717  data_tmp = ishft(data_tmp, 12)
41718  data_tmp = iand(data_tmp, mask_left(8))
41719  pack_tmp = ior(pack_tmp, data_tmp)
41720  ipack = ipack + 1
41721  packed_data(ipack) = pack_tmp
41722  data_tmp = full_data(idata)
41723  pack_tmp = ishft(data_tmp, 20)
41724  pack_tmp = ishft(pack_tmp, -20)
41725  idata = idata + 1
41726  data_tmp = full_data(idata)
41727  data_tmp = ishft(data_tmp, 12)
41728  data_tmp = iand(data_tmp, mask_left(20))
41729  pack_tmp = ior(pack_tmp, data_tmp)
41730  ipack = ipack + 1
41731  packed_data(ipack) = pack_tmp
41732  data_tmp = full_data(idata)
41733  pack_tmp = ishft(data_tmp, 32)
41734  pack_tmp = ishft(pack_tmp, -32)
41735  idata = idata + 1
41736  data_tmp = full_data(idata)
41737  data_tmp = ishft(data_tmp, 12)
41738  data_tmp = iand(data_tmp, mask_left(32))
41739  pack_tmp = ior(pack_tmp, data_tmp)
41740  ipack = ipack + 1
41741  packed_data(ipack) = pack_tmp
41742  data_tmp = full_data(idata)
41743  pack_tmp = ishft(data_tmp, 44)
41744  pack_tmp = ishft(pack_tmp, -44)
41745  idata = idata + 1
41746  data_tmp = full_data(idata)
41747  data_tmp = ishft(data_tmp, 12)
41748  data_tmp = iand(data_tmp, mask_left(44))
41749  pack_tmp = ior(pack_tmp, data_tmp)
41750  ipack = ipack + 1
41751  packed_data(ipack) = pack_tmp
41752  data_tmp = full_data(idata)
41753  pack_tmp = ishft(data_tmp, 56)
41754  pack_tmp = ishft(pack_tmp, -52)
41755  idata = idata + 1
41756  data_tmp = full_data(idata)
41757  data_tmp = ishft(data_tmp, 12)
41758  pack_tmp = ior(pack_tmp, data_tmp)
41759  pack_tmp = ishft(pack_tmp, -4)
41760  idata = idata + 1
41761  data_tmp = full_data(idata)
41762  data_tmp = ishft(data_tmp, 12)
41763  data_tmp = iand(data_tmp, mask_left(4))
41764  pack_tmp = ior(pack_tmp, data_tmp)
41765  ipack = ipack + 1
41766  packed_data(ipack) = pack_tmp
41767  data_tmp = full_data(idata)
41768  pack_tmp = ishft(data_tmp, 16)
41769  pack_tmp = ishft(pack_tmp, -16)
41770  idata = idata + 1
41771  data_tmp = full_data(idata)
41772  data_tmp = ishft(data_tmp, 12)
41773  data_tmp = iand(data_tmp, mask_left(16))
41774  pack_tmp = ior(pack_tmp, data_tmp)
41775  ipack = ipack + 1
41776  packed_data(ipack) = pack_tmp
41777  data_tmp = full_data(idata)
41778  pack_tmp = ishft(data_tmp, 28)
41779  pack_tmp = ishft(pack_tmp, -28)
41780  idata = idata + 1
41781  data_tmp = full_data(idata)
41782  data_tmp = ishft(data_tmp, 12)
41783  data_tmp = iand(data_tmp, mask_left(28))
41784  pack_tmp = ior(pack_tmp, data_tmp)
41785  ipack = ipack + 1
41786  packed_data(ipack) = pack_tmp
41787  data_tmp = full_data(idata)
41788  pack_tmp = ishft(data_tmp, 40)
41789  pack_tmp = ishft(pack_tmp, -40)
41790  idata = idata + 1
41791  data_tmp = full_data(idata)
41792  data_tmp = ishft(data_tmp, 12)
41793  data_tmp = iand(data_tmp, mask_left(40))
41794  pack_tmp = ior(pack_tmp, data_tmp)
41795  ipack = ipack + 1
41796  packed_data(ipack) = pack_tmp
41797  data_tmp = full_data(idata)
41798  pack_tmp = ishft(data_tmp, 52)
41799  pack_tmp = ishft(pack_tmp, -52)
41800  idata = idata + 1
41801  data_tmp = full_data(idata)
41802  data_tmp = ishft(data_tmp, 12)
41803  pack_tmp = ior(pack_tmp, data_tmp)
41804  pack_tmp = ishft(pack_tmp, 0)
41805  idata = idata + 1
41806  data_tmp = full_data(idata)
41807  data_tmp = ishft(data_tmp, 12)
41808  data_tmp = iand(data_tmp, mask_left(0))
41809  pack_tmp = ior(pack_tmp, data_tmp)
41810  ipack = ipack + 1
41811  packed_data(ipack) = pack_tmp
41812  data_tmp = full_data(idata)
41813  pack_tmp = ishft(data_tmp, 12)
41814  pack_tmp = ishft(pack_tmp, -12)
41815  idata = idata + 1
41816  data_tmp = full_data(idata)
41817  data_tmp = ishft(data_tmp, 12)
41818  data_tmp = iand(data_tmp, mask_left(12))
41819  pack_tmp = ior(pack_tmp, data_tmp)
41820  ipack = ipack + 1
41821  packed_data(ipack) = pack_tmp
41822  data_tmp = full_data(idata)
41823  pack_tmp = ishft(data_tmp, 24)
41824  pack_tmp = ishft(pack_tmp, -24)
41825  idata = idata + 1
41826  data_tmp = full_data(idata)
41827  data_tmp = ishft(data_tmp, 12)
41828  data_tmp = iand(data_tmp, mask_left(24))
41829  pack_tmp = ior(pack_tmp, data_tmp)
41830  ipack = ipack + 1
41831  packed_data(ipack) = pack_tmp
41832  data_tmp = full_data(idata)
41833  pack_tmp = ishft(data_tmp, 36)
41834  pack_tmp = ishft(pack_tmp, -36)
41835  idata = idata + 1
41836  data_tmp = full_data(idata)
41837  data_tmp = ishft(data_tmp, 12)
41838  data_tmp = iand(data_tmp, mask_left(36))
41839  pack_tmp = ior(pack_tmp, data_tmp)
41840  ipack = ipack + 1
41841  packed_data(ipack) = pack_tmp
41842  data_tmp = full_data(idata)
41843  pack_tmp = ishft(data_tmp, 48)
41844  pack_tmp = ishft(pack_tmp, -48)
41845  idata = idata + 1
41846  data_tmp = full_data(idata)
41847  data_tmp = ishft(data_tmp, 12)
41848  data_tmp = iand(data_tmp, mask_left(48))
41849  pack_tmp = ior(pack_tmp, data_tmp)
41850  ipack = ipack + 1
41851  packed_data(ipack) = pack_tmp
41852  data_tmp = full_data(idata)
41853  pack_tmp = ishft(data_tmp, 60)
41854  pack_tmp = ishft(pack_tmp, -52)
41855  idata = idata + 1
41856  data_tmp = full_data(idata)
41857  data_tmp = ishft(data_tmp, 12)
41858  pack_tmp = ior(pack_tmp, data_tmp)
41859  pack_tmp = ishft(pack_tmp, -8)
41860  idata = idata + 1
41861  data_tmp = full_data(idata)
41862  data_tmp = ishft(data_tmp, 12)
41863  data_tmp = iand(data_tmp, mask_left(8))
41864  pack_tmp = ior(pack_tmp, data_tmp)
41865  ipack = ipack + 1
41866  packed_data(ipack) = pack_tmp
41867  data_tmp = full_data(idata)
41868  pack_tmp = ishft(data_tmp, 20)
41869  pack_tmp = ishft(pack_tmp, -20)
41870  idata = idata + 1
41871  data_tmp = full_data(idata)
41872  data_tmp = ishft(data_tmp, 12)
41873  data_tmp = iand(data_tmp, mask_left(20))
41874  pack_tmp = ior(pack_tmp, data_tmp)
41875  ipack = ipack + 1
41876  packed_data(ipack) = pack_tmp
41877  data_tmp = full_data(idata)
41878  pack_tmp = ishft(data_tmp, 32)
41879  pack_tmp = ishft(pack_tmp, -32)
41880  idata = idata + 1
41881  data_tmp = full_data(idata)
41882  data_tmp = ishft(data_tmp, 12)
41883  data_tmp = iand(data_tmp, mask_left(32))
41884  pack_tmp = ior(pack_tmp, data_tmp)
41885  ipack = ipack + 1
41886  packed_data(ipack) = pack_tmp
41887  data_tmp = full_data(idata)
41888  pack_tmp = ishft(data_tmp, 44)
41889  pack_tmp = ishft(pack_tmp, -44)
41890  idata = idata + 1
41891  data_tmp = full_data(idata)
41892  data_tmp = ishft(data_tmp, 12)
41893  data_tmp = iand(data_tmp, mask_left(44))
41894  pack_tmp = ior(pack_tmp, data_tmp)
41895  ipack = ipack + 1
41896  packed_data(ipack) = pack_tmp
41897  data_tmp = full_data(idata)
41898  pack_tmp = ishft(data_tmp, 56)
41899  pack_tmp = ishft(pack_tmp, -52)
41900  idata = idata + 1
41901  data_tmp = full_data(idata)
41902  data_tmp = ishft(data_tmp, 12)
41903  pack_tmp = ior(pack_tmp, data_tmp)
41904  pack_tmp = ishft(pack_tmp, -4)
41905  idata = idata + 1
41906  data_tmp = full_data(idata)
41907  data_tmp = ishft(data_tmp, 12)
41908  data_tmp = iand(data_tmp, mask_left(4))
41909  pack_tmp = ior(pack_tmp, data_tmp)
41910  ipack = ipack + 1
41911  packed_data(ipack) = pack_tmp
41912  data_tmp = full_data(idata)
41913  pack_tmp = ishft(data_tmp, 16)
41914  pack_tmp = ishft(pack_tmp, -16)
41915  idata = idata + 1
41916  data_tmp = full_data(idata)
41917  data_tmp = ishft(data_tmp, 12)
41918  data_tmp = iand(data_tmp, mask_left(16))
41919  pack_tmp = ior(pack_tmp, data_tmp)
41920  ipack = ipack + 1
41921  packed_data(ipack) = pack_tmp
41922  data_tmp = full_data(idata)
41923  pack_tmp = ishft(data_tmp, 28)
41924  pack_tmp = ishft(pack_tmp, -28)
41925  idata = idata + 1
41926  data_tmp = full_data(idata)
41927  data_tmp = ishft(data_tmp, 12)
41928  data_tmp = iand(data_tmp, mask_left(28))
41929  pack_tmp = ior(pack_tmp, data_tmp)
41930  ipack = ipack + 1
41931  packed_data(ipack) = pack_tmp
41932  data_tmp = full_data(idata)
41933  pack_tmp = ishft(data_tmp, 40)
41934  pack_tmp = ishft(pack_tmp, -40)
41935  idata = idata + 1
41936  data_tmp = full_data(idata)
41937  data_tmp = ishft(data_tmp, 12)
41938  data_tmp = iand(data_tmp, mask_left(40))
41939  pack_tmp = ior(pack_tmp, data_tmp)
41940  ipack = ipack + 1
41941  packed_data(ipack) = pack_tmp
41942  data_tmp = full_data(idata)
41943  pack_tmp = ishft(data_tmp, 52)
41944  pack_tmp = ishft(pack_tmp, -52)
41945  idata = idata + 1
41946  data_tmp = full_data(idata)
41947  data_tmp = ishft(data_tmp, 12)
41948  pack_tmp = ior(pack_tmp, data_tmp)
41949  pack_tmp = ishft(pack_tmp, 0)
41950  idata = idata + 1
41951  data_tmp = full_data(idata)
41952  data_tmp = ishft(data_tmp, 12)
41953  data_tmp = iand(data_tmp, mask_left(0))
41954  pack_tmp = ior(pack_tmp, data_tmp)
41955  ipack = ipack + 1
41956  packed_data(ipack) = pack_tmp
41957  data_tmp = full_data(idata)
41958  pack_tmp = ishft(data_tmp, 12)
41959  pack_tmp = ishft(pack_tmp, -12)
41960  idata = idata + 1
41961  data_tmp = full_data(idata)
41962  data_tmp = ishft(data_tmp, 12)
41963  data_tmp = iand(data_tmp, mask_left(12))
41964  pack_tmp = ior(pack_tmp, data_tmp)
41965  ipack = ipack + 1
41966  packed_data(ipack) = pack_tmp
41967  data_tmp = full_data(idata)
41968  pack_tmp = ishft(data_tmp, 24)
41969  pack_tmp = ishft(pack_tmp, -24)
41970  idata = idata + 1
41971  data_tmp = full_data(idata)
41972  data_tmp = ishft(data_tmp, 12)
41973  data_tmp = iand(data_tmp, mask_left(24))
41974  pack_tmp = ior(pack_tmp, data_tmp)
41975  ipack = ipack + 1
41976  packed_data(ipack) = pack_tmp
41977  data_tmp = full_data(idata)
41978  pack_tmp = ishft(data_tmp, 36)
41979  pack_tmp = ishft(pack_tmp, -36)
41980  idata = idata + 1
41981  data_tmp = full_data(idata)
41982  data_tmp = ishft(data_tmp, 12)
41983  data_tmp = iand(data_tmp, mask_left(36))
41984  pack_tmp = ior(pack_tmp, data_tmp)
41985  ipack = ipack + 1
41986  packed_data(ipack) = pack_tmp
41987  data_tmp = full_data(idata)
41988  pack_tmp = ishft(data_tmp, 48)
41989  pack_tmp = ishft(pack_tmp, -48)
41990  idata = idata + 1
41991  data_tmp = full_data(idata)
41992  data_tmp = ishft(data_tmp, 12)
41993  data_tmp = iand(data_tmp, mask_left(48))
41994  pack_tmp = ior(pack_tmp, data_tmp)
41995  ipack = ipack + 1
41996  packed_data(ipack) = pack_tmp
41997  data_tmp = full_data(idata)
41998  pack_tmp = ishft(data_tmp, 60)
41999  pack_tmp = ishft(pack_tmp, -52)
42000  idata = idata + 1
42001  data_tmp = full_data(idata)
42002  data_tmp = ishft(data_tmp, 12)
42003  pack_tmp = ior(pack_tmp, data_tmp)
42004  pack_tmp = ishft(pack_tmp, -8)
42005  idata = idata + 1
42006  data_tmp = full_data(idata)
42007  data_tmp = ishft(data_tmp, 12)
42008  data_tmp = iand(data_tmp, mask_left(8))
42009  pack_tmp = ior(pack_tmp, data_tmp)
42010  ipack = ipack + 1
42011  packed_data(ipack) = pack_tmp
42012  data_tmp = full_data(idata)
42013  pack_tmp = ishft(data_tmp, 20)
42014  pack_tmp = ishft(pack_tmp, -20)
42015  idata = idata + 1
42016  data_tmp = full_data(idata)
42017  data_tmp = ishft(data_tmp, 12)
42018  data_tmp = iand(data_tmp, mask_left(20))
42019  pack_tmp = ior(pack_tmp, data_tmp)
42020  ipack = ipack + 1
42021  packed_data(ipack) = pack_tmp
42022  data_tmp = full_data(idata)
42023  pack_tmp = ishft(data_tmp, 32)
42024  pack_tmp = ishft(pack_tmp, -32)
42025  idata = idata + 1
42026  data_tmp = full_data(idata)
42027  data_tmp = ishft(data_tmp, 12)
42028  data_tmp = iand(data_tmp, mask_left(32))
42029  pack_tmp = ior(pack_tmp, data_tmp)
42030  ipack = ipack + 1
42031  packed_data(ipack) = pack_tmp
42032  data_tmp = full_data(idata)
42033  pack_tmp = ishft(data_tmp, 44)
42034  pack_tmp = ishft(pack_tmp, -44)
42035  idata = idata + 1
42036  data_tmp = full_data(idata)
42037  data_tmp = ishft(data_tmp, 12)
42038  data_tmp = iand(data_tmp, mask_left(44))
42039  pack_tmp = ior(pack_tmp, data_tmp)
42040  ipack = ipack + 1
42041  packed_data(ipack) = pack_tmp
42042  data_tmp = full_data(idata)
42043  pack_tmp = ishft(data_tmp, 56)
42044  pack_tmp = ishft(pack_tmp, -52)
42045  idata = idata + 1
42046  data_tmp = full_data(idata)
42047  data_tmp = ishft(data_tmp, 12)
42048  pack_tmp = ior(pack_tmp, data_tmp)
42049  pack_tmp = ishft(pack_tmp, -4)
42050  idata = idata + 1
42051  data_tmp = full_data(idata)
42052  data_tmp = ishft(data_tmp, 12)
42053  data_tmp = iand(data_tmp, mask_left(4))
42054  pack_tmp = ior(pack_tmp, data_tmp)
42055  ipack = ipack + 1
42056  packed_data(ipack) = pack_tmp
42057  data_tmp = full_data(idata)
42058  pack_tmp = ishft(data_tmp, 16)
42059  pack_tmp = ishft(pack_tmp, -16)
42060  idata = idata + 1
42061  data_tmp = full_data(idata)
42062  data_tmp = ishft(data_tmp, 12)
42063  data_tmp = iand(data_tmp, mask_left(16))
42064  pack_tmp = ior(pack_tmp, data_tmp)
42065  ipack = ipack + 1
42066  packed_data(ipack) = pack_tmp
42067  data_tmp = full_data(idata)
42068  pack_tmp = ishft(data_tmp, 28)
42069  pack_tmp = ishft(pack_tmp, -28)
42070  idata = idata + 1
42071  data_tmp = full_data(idata)
42072  data_tmp = ishft(data_tmp, 12)
42073  data_tmp = iand(data_tmp, mask_left(28))
42074  pack_tmp = ior(pack_tmp, data_tmp)
42075  ipack = ipack + 1
42076  packed_data(ipack) = pack_tmp
42077  data_tmp = full_data(idata)
42078  pack_tmp = ishft(data_tmp, 40)
42079  pack_tmp = ishft(pack_tmp, -40)
42080  idata = idata + 1
42081  data_tmp = full_data(idata)
42082  data_tmp = ishft(data_tmp, 12)
42083  data_tmp = iand(data_tmp, mask_left(40))
42084  pack_tmp = ior(pack_tmp, data_tmp)
42085  ipack = ipack + 1
42086  packed_data(ipack) = pack_tmp
42087  data_tmp = full_data(idata)
42088  pack_tmp = ishft(data_tmp, 52)
42089  pack_tmp = ishft(pack_tmp, -52)
42090  idata = idata + 1
42091  data_tmp = full_data(idata)
42092  data_tmp = ishft(data_tmp, 12)
42093  pack_tmp = ior(pack_tmp, data_tmp)
42094  pack_tmp = ishft(pack_tmp, 0)
42095  pack_tmp = ishft(pack_tmp, 0)
42096  ipack = ipack + 1
42097  packed_data(ipack) = pack_tmp
42098  END DO
42099  IF (ndata_rep < ndata) THEN
42100  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
42101  END IF
42102  END SUBROUTINE ints2bits_52
42103 
42104 ! **************************************************************************************************
42105 !> \brief ...
42106 !> \param Ndata ...
42107 !> \param packed_data ...
42108 !> \param full_data ...
42109 ! **************************************************************************************************
42110  SUBROUTINE bits2ints_52(Ndata, packed_data, full_data)
42111  INTEGER, INTENT(IN) :: Ndata
42112  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
42113  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
42114 
42115  INTEGER, PARAMETER :: Nbits = 52
42116 
42117  INTEGER :: idata, ipack, kdata, Ndata_rep
42118  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
42119 
42120  ipack = 0
42121  idata = 0
42122  pack_tmp = 0
42123  ndata_rep = (ndata/64)*64
42124  DO kdata = 1, ndata_rep, 64
42125  idata = idata + 1
42126  data_tmp = ishft(pack_tmp, 52)
42127  ipack = ipack + 1
42128  pack_tmp = packed_data(ipack)
42129  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
42130  pack_tmp = ishft(pack_tmp, -52)
42131  idata = idata + 1
42132  data_tmp = ishft(pack_tmp, 40)
42133  ipack = ipack + 1
42134  pack_tmp = packed_data(ipack)
42135  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
42136  pack_tmp = ishft(pack_tmp, -40)
42137  idata = idata + 1
42138  data_tmp = ishft(pack_tmp, 28)
42139  ipack = ipack + 1
42140  pack_tmp = packed_data(ipack)
42141  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
42142  pack_tmp = ishft(pack_tmp, -28)
42143  idata = idata + 1
42144  data_tmp = ishft(pack_tmp, 16)
42145  ipack = ipack + 1
42146  pack_tmp = packed_data(ipack)
42147  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
42148  pack_tmp = ishft(pack_tmp, -16)
42149  idata = idata + 1
42150  data_tmp = ishft(pack_tmp, 4)
42151  ipack = ipack + 1
42152  pack_tmp = packed_data(ipack)
42153  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
42154  pack_tmp = ishft(pack_tmp, -4)
42155  idata = idata + 1
42156  data_tmp = iand(pack_tmp, mask_right(nbits))
42157  full_data(idata) = data_tmp
42158  pack_tmp = ishft(pack_tmp, -nbits)
42159  idata = idata + 1
42160  data_tmp = ishft(pack_tmp, 44)
42161  ipack = ipack + 1
42162  pack_tmp = packed_data(ipack)
42163  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
42164  pack_tmp = ishft(pack_tmp, -44)
42165  idata = idata + 1
42166  data_tmp = ishft(pack_tmp, 32)
42167  ipack = ipack + 1
42168  pack_tmp = packed_data(ipack)
42169  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
42170  pack_tmp = ishft(pack_tmp, -32)
42171  idata = idata + 1
42172  data_tmp = ishft(pack_tmp, 20)
42173  ipack = ipack + 1
42174  pack_tmp = packed_data(ipack)
42175  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
42176  pack_tmp = ishft(pack_tmp, -20)
42177  idata = idata + 1
42178  data_tmp = ishft(pack_tmp, 8)
42179  ipack = ipack + 1
42180  pack_tmp = packed_data(ipack)
42181  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
42182  pack_tmp = ishft(pack_tmp, -8)
42183  idata = idata + 1
42184  data_tmp = iand(pack_tmp, mask_right(nbits))
42185  full_data(idata) = data_tmp
42186  pack_tmp = ishft(pack_tmp, -nbits)
42187  idata = idata + 1
42188  data_tmp = ishft(pack_tmp, 48)
42189  ipack = ipack + 1
42190  pack_tmp = packed_data(ipack)
42191  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
42192  pack_tmp = ishft(pack_tmp, -48)
42193  idata = idata + 1
42194  data_tmp = ishft(pack_tmp, 36)
42195  ipack = ipack + 1
42196  pack_tmp = packed_data(ipack)
42197  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
42198  pack_tmp = ishft(pack_tmp, -36)
42199  idata = idata + 1
42200  data_tmp = ishft(pack_tmp, 24)
42201  ipack = ipack + 1
42202  pack_tmp = packed_data(ipack)
42203  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
42204  pack_tmp = ishft(pack_tmp, -24)
42205  idata = idata + 1
42206  data_tmp = ishft(pack_tmp, 12)
42207  ipack = ipack + 1
42208  pack_tmp = packed_data(ipack)
42209  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
42210  pack_tmp = ishft(pack_tmp, -12)
42211  idata = idata + 1
42212  data_tmp = iand(pack_tmp, mask_right(nbits))
42213  full_data(idata) = data_tmp
42214  pack_tmp = ishft(pack_tmp, -nbits)
42215  idata = idata + 1
42216  data_tmp = ishft(pack_tmp, 52)
42217  ipack = ipack + 1
42218  pack_tmp = packed_data(ipack)
42219  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
42220  pack_tmp = ishft(pack_tmp, -52)
42221  idata = idata + 1
42222  data_tmp = ishft(pack_tmp, 40)
42223  ipack = ipack + 1
42224  pack_tmp = packed_data(ipack)
42225  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
42226  pack_tmp = ishft(pack_tmp, -40)
42227  idata = idata + 1
42228  data_tmp = ishft(pack_tmp, 28)
42229  ipack = ipack + 1
42230  pack_tmp = packed_data(ipack)
42231  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
42232  pack_tmp = ishft(pack_tmp, -28)
42233  idata = idata + 1
42234  data_tmp = ishft(pack_tmp, 16)
42235  ipack = ipack + 1
42236  pack_tmp = packed_data(ipack)
42237  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
42238  pack_tmp = ishft(pack_tmp, -16)
42239  idata = idata + 1
42240  data_tmp = ishft(pack_tmp, 4)
42241  ipack = ipack + 1
42242  pack_tmp = packed_data(ipack)
42243  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
42244  pack_tmp = ishft(pack_tmp, -4)
42245  idata = idata + 1
42246  data_tmp = iand(pack_tmp, mask_right(nbits))
42247  full_data(idata) = data_tmp
42248  pack_tmp = ishft(pack_tmp, -nbits)
42249  idata = idata + 1
42250  data_tmp = ishft(pack_tmp, 44)
42251  ipack = ipack + 1
42252  pack_tmp = packed_data(ipack)
42253  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
42254  pack_tmp = ishft(pack_tmp, -44)
42255  idata = idata + 1
42256  data_tmp = ishft(pack_tmp, 32)
42257  ipack = ipack + 1
42258  pack_tmp = packed_data(ipack)
42259  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
42260  pack_tmp = ishft(pack_tmp, -32)
42261  idata = idata + 1
42262  data_tmp = ishft(pack_tmp, 20)
42263  ipack = ipack + 1
42264  pack_tmp = packed_data(ipack)
42265  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
42266  pack_tmp = ishft(pack_tmp, -20)
42267  idata = idata + 1
42268  data_tmp = ishft(pack_tmp, 8)
42269  ipack = ipack + 1
42270  pack_tmp = packed_data(ipack)
42271  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
42272  pack_tmp = ishft(pack_tmp, -8)
42273  idata = idata + 1
42274  data_tmp = iand(pack_tmp, mask_right(nbits))
42275  full_data(idata) = data_tmp
42276  pack_tmp = ishft(pack_tmp, -nbits)
42277  idata = idata + 1
42278  data_tmp = ishft(pack_tmp, 48)
42279  ipack = ipack + 1
42280  pack_tmp = packed_data(ipack)
42281  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
42282  pack_tmp = ishft(pack_tmp, -48)
42283  idata = idata + 1
42284  data_tmp = ishft(pack_tmp, 36)
42285  ipack = ipack + 1
42286  pack_tmp = packed_data(ipack)
42287  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
42288  pack_tmp = ishft(pack_tmp, -36)
42289  idata = idata + 1
42290  data_tmp = ishft(pack_tmp, 24)
42291  ipack = ipack + 1
42292  pack_tmp = packed_data(ipack)
42293  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
42294  pack_tmp = ishft(pack_tmp, -24)
42295  idata = idata + 1
42296  data_tmp = ishft(pack_tmp, 12)
42297  ipack = ipack + 1
42298  pack_tmp = packed_data(ipack)
42299  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
42300  pack_tmp = ishft(pack_tmp, -12)
42301  idata = idata + 1
42302  data_tmp = iand(pack_tmp, mask_right(nbits))
42303  full_data(idata) = data_tmp
42304  pack_tmp = ishft(pack_tmp, -nbits)
42305  idata = idata + 1
42306  data_tmp = ishft(pack_tmp, 52)
42307  ipack = ipack + 1
42308  pack_tmp = packed_data(ipack)
42309  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
42310  pack_tmp = ishft(pack_tmp, -52)
42311  idata = idata + 1
42312  data_tmp = ishft(pack_tmp, 40)
42313  ipack = ipack + 1
42314  pack_tmp = packed_data(ipack)
42315  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
42316  pack_tmp = ishft(pack_tmp, -40)
42317  idata = idata + 1
42318  data_tmp = ishft(pack_tmp, 28)
42319  ipack = ipack + 1
42320  pack_tmp = packed_data(ipack)
42321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
42322  pack_tmp = ishft(pack_tmp, -28)
42323  idata = idata + 1
42324  data_tmp = ishft(pack_tmp, 16)
42325  ipack = ipack + 1
42326  pack_tmp = packed_data(ipack)
42327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
42328  pack_tmp = ishft(pack_tmp, -16)
42329  idata = idata + 1
42330  data_tmp = ishft(pack_tmp, 4)
42331  ipack = ipack + 1
42332  pack_tmp = packed_data(ipack)
42333  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
42334  pack_tmp = ishft(pack_tmp, -4)
42335  idata = idata + 1
42336  data_tmp = iand(pack_tmp, mask_right(nbits))
42337  full_data(idata) = data_tmp
42338  pack_tmp = ishft(pack_tmp, -nbits)
42339  idata = idata + 1
42340  data_tmp = ishft(pack_tmp, 44)
42341  ipack = ipack + 1
42342  pack_tmp = packed_data(ipack)
42343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
42344  pack_tmp = ishft(pack_tmp, -44)
42345  idata = idata + 1
42346  data_tmp = ishft(pack_tmp, 32)
42347  ipack = ipack + 1
42348  pack_tmp = packed_data(ipack)
42349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
42350  pack_tmp = ishft(pack_tmp, -32)
42351  idata = idata + 1
42352  data_tmp = ishft(pack_tmp, 20)
42353  ipack = ipack + 1
42354  pack_tmp = packed_data(ipack)
42355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
42356  pack_tmp = ishft(pack_tmp, -20)
42357  idata = idata + 1
42358  data_tmp = ishft(pack_tmp, 8)
42359  ipack = ipack + 1
42360  pack_tmp = packed_data(ipack)
42361  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
42362  pack_tmp = ishft(pack_tmp, -8)
42363  idata = idata + 1
42364  data_tmp = iand(pack_tmp, mask_right(nbits))
42365  full_data(idata) = data_tmp
42366  pack_tmp = ishft(pack_tmp, -nbits)
42367  idata = idata + 1
42368  data_tmp = ishft(pack_tmp, 48)
42369  ipack = ipack + 1
42370  pack_tmp = packed_data(ipack)
42371  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
42372  pack_tmp = ishft(pack_tmp, -48)
42373  idata = idata + 1
42374  data_tmp = ishft(pack_tmp, 36)
42375  ipack = ipack + 1
42376  pack_tmp = packed_data(ipack)
42377  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
42378  pack_tmp = ishft(pack_tmp, -36)
42379  idata = idata + 1
42380  data_tmp = ishft(pack_tmp, 24)
42381  ipack = ipack + 1
42382  pack_tmp = packed_data(ipack)
42383  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
42384  pack_tmp = ishft(pack_tmp, -24)
42385  idata = idata + 1
42386  data_tmp = ishft(pack_tmp, 12)
42387  ipack = ipack + 1
42388  pack_tmp = packed_data(ipack)
42389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
42390  pack_tmp = ishft(pack_tmp, -12)
42391  idata = idata + 1
42392  data_tmp = iand(pack_tmp, mask_right(nbits))
42393  full_data(idata) = data_tmp
42394  pack_tmp = ishft(pack_tmp, -nbits)
42395  idata = idata + 1
42396  data_tmp = ishft(pack_tmp, 52)
42397  ipack = ipack + 1
42398  pack_tmp = packed_data(ipack)
42399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
42400  pack_tmp = ishft(pack_tmp, -52)
42401  idata = idata + 1
42402  data_tmp = ishft(pack_tmp, 40)
42403  ipack = ipack + 1
42404  pack_tmp = packed_data(ipack)
42405  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
42406  pack_tmp = ishft(pack_tmp, -40)
42407  idata = idata + 1
42408  data_tmp = ishft(pack_tmp, 28)
42409  ipack = ipack + 1
42410  pack_tmp = packed_data(ipack)
42411  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
42412  pack_tmp = ishft(pack_tmp, -28)
42413  idata = idata + 1
42414  data_tmp = ishft(pack_tmp, 16)
42415  ipack = ipack + 1
42416  pack_tmp = packed_data(ipack)
42417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
42418  pack_tmp = ishft(pack_tmp, -16)
42419  idata = idata + 1
42420  data_tmp = ishft(pack_tmp, 4)
42421  ipack = ipack + 1
42422  pack_tmp = packed_data(ipack)
42423  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
42424  pack_tmp = ishft(pack_tmp, -4)
42425  idata = idata + 1
42426  data_tmp = iand(pack_tmp, mask_right(nbits))
42427  full_data(idata) = data_tmp
42428  pack_tmp = ishft(pack_tmp, -nbits)
42429  idata = idata + 1
42430  data_tmp = ishft(pack_tmp, 44)
42431  ipack = ipack + 1
42432  pack_tmp = packed_data(ipack)
42433  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
42434  pack_tmp = ishft(pack_tmp, -44)
42435  idata = idata + 1
42436  data_tmp = ishft(pack_tmp, 32)
42437  ipack = ipack + 1
42438  pack_tmp = packed_data(ipack)
42439  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
42440  pack_tmp = ishft(pack_tmp, -32)
42441  idata = idata + 1
42442  data_tmp = ishft(pack_tmp, 20)
42443  ipack = ipack + 1
42444  pack_tmp = packed_data(ipack)
42445  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
42446  pack_tmp = ishft(pack_tmp, -20)
42447  idata = idata + 1
42448  data_tmp = ishft(pack_tmp, 8)
42449  ipack = ipack + 1
42450  pack_tmp = packed_data(ipack)
42451  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
42452  pack_tmp = ishft(pack_tmp, -8)
42453  idata = idata + 1
42454  data_tmp = iand(pack_tmp, mask_right(nbits))
42455  full_data(idata) = data_tmp
42456  pack_tmp = ishft(pack_tmp, -nbits)
42457  idata = idata + 1
42458  data_tmp = ishft(pack_tmp, 48)
42459  ipack = ipack + 1
42460  pack_tmp = packed_data(ipack)
42461  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
42462  pack_tmp = ishft(pack_tmp, -48)
42463  idata = idata + 1
42464  data_tmp = ishft(pack_tmp, 36)
42465  ipack = ipack + 1
42466  pack_tmp = packed_data(ipack)
42467  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
42468  pack_tmp = ishft(pack_tmp, -36)
42469  idata = idata + 1
42470  data_tmp = ishft(pack_tmp, 24)
42471  ipack = ipack + 1
42472  pack_tmp = packed_data(ipack)
42473  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
42474  pack_tmp = ishft(pack_tmp, -24)
42475  idata = idata + 1
42476  data_tmp = ishft(pack_tmp, 12)
42477  ipack = ipack + 1
42478  pack_tmp = packed_data(ipack)
42479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
42480  pack_tmp = ishft(pack_tmp, -12)
42481  idata = idata + 1
42482  data_tmp = iand(pack_tmp, mask_right(nbits))
42483  full_data(idata) = data_tmp
42484  pack_tmp = ishft(pack_tmp, -nbits)
42485  END DO
42486  IF (ndata_rep < ndata) THEN
42487  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
42488  END IF
42489  END SUBROUTINE bits2ints_52
42490 
42491 ! **************************************************************************************************
42492 !> \brief ...
42493 !> \param Ndata ...
42494 !> \param packed_data ...
42495 !> \param full_data ...
42496 ! **************************************************************************************************
42497  SUBROUTINE ints2bits_53(Ndata, packed_data, full_data)
42498  INTEGER, INTENT(IN) :: Ndata
42499  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
42500  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
42501 
42502  INTEGER, PARAMETER :: Nbits = 53
42503 
42504  INTEGER :: idata, ipack, kdata, Ndata_rep
42505  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
42506 
42507  idata = 0
42508  ipack = 0
42509  ndata_rep = (ndata/64)*64
42510  DO kdata = 1, ndata_rep, 64
42511  pack_tmp = 0
42512  idata = idata + 1
42513  data_tmp = full_data(idata)
42514  data_tmp = ishft(data_tmp, 11)
42515  pack_tmp = ior(pack_tmp, data_tmp)
42516  pack_tmp = ishft(pack_tmp, -11)
42517  idata = idata + 1
42518  data_tmp = full_data(idata)
42519  data_tmp = ishft(data_tmp, 11)
42520  data_tmp = iand(data_tmp, mask_left(11))
42521  pack_tmp = ior(pack_tmp, data_tmp)
42522  ipack = ipack + 1
42523  packed_data(ipack) = pack_tmp
42524  data_tmp = full_data(idata)
42525  pack_tmp = ishft(data_tmp, 22)
42526  pack_tmp = ishft(pack_tmp, -22)
42527  idata = idata + 1
42528  data_tmp = full_data(idata)
42529  data_tmp = ishft(data_tmp, 11)
42530  data_tmp = iand(data_tmp, mask_left(22))
42531  pack_tmp = ior(pack_tmp, data_tmp)
42532  ipack = ipack + 1
42533  packed_data(ipack) = pack_tmp
42534  data_tmp = full_data(idata)
42535  pack_tmp = ishft(data_tmp, 33)
42536  pack_tmp = ishft(pack_tmp, -33)
42537  idata = idata + 1
42538  data_tmp = full_data(idata)
42539  data_tmp = ishft(data_tmp, 11)
42540  data_tmp = iand(data_tmp, mask_left(33))
42541  pack_tmp = ior(pack_tmp, data_tmp)
42542  ipack = ipack + 1
42543  packed_data(ipack) = pack_tmp
42544  data_tmp = full_data(idata)
42545  pack_tmp = ishft(data_tmp, 44)
42546  pack_tmp = ishft(pack_tmp, -44)
42547  idata = idata + 1
42548  data_tmp = full_data(idata)
42549  data_tmp = ishft(data_tmp, 11)
42550  data_tmp = iand(data_tmp, mask_left(44))
42551  pack_tmp = ior(pack_tmp, data_tmp)
42552  ipack = ipack + 1
42553  packed_data(ipack) = pack_tmp
42554  data_tmp = full_data(idata)
42555  pack_tmp = ishft(data_tmp, 55)
42556  pack_tmp = ishft(pack_tmp, -53)
42557  idata = idata + 1
42558  data_tmp = full_data(idata)
42559  data_tmp = ishft(data_tmp, 11)
42560  pack_tmp = ior(pack_tmp, data_tmp)
42561  pack_tmp = ishft(pack_tmp, -2)
42562  idata = idata + 1
42563  data_tmp = full_data(idata)
42564  data_tmp = ishft(data_tmp, 11)
42565  data_tmp = iand(data_tmp, mask_left(2))
42566  pack_tmp = ior(pack_tmp, data_tmp)
42567  ipack = ipack + 1
42568  packed_data(ipack) = pack_tmp
42569  data_tmp = full_data(idata)
42570  pack_tmp = ishft(data_tmp, 13)
42571  pack_tmp = ishft(pack_tmp, -13)
42572  idata = idata + 1
42573  data_tmp = full_data(idata)
42574  data_tmp = ishft(data_tmp, 11)
42575  data_tmp = iand(data_tmp, mask_left(13))
42576  pack_tmp = ior(pack_tmp, data_tmp)
42577  ipack = ipack + 1
42578  packed_data(ipack) = pack_tmp
42579  data_tmp = full_data(idata)
42580  pack_tmp = ishft(data_tmp, 24)
42581  pack_tmp = ishft(pack_tmp, -24)
42582  idata = idata + 1
42583  data_tmp = full_data(idata)
42584  data_tmp = ishft(data_tmp, 11)
42585  data_tmp = iand(data_tmp, mask_left(24))
42586  pack_tmp = ior(pack_tmp, data_tmp)
42587  ipack = ipack + 1
42588  packed_data(ipack) = pack_tmp
42589  data_tmp = full_data(idata)
42590  pack_tmp = ishft(data_tmp, 35)
42591  pack_tmp = ishft(pack_tmp, -35)
42592  idata = idata + 1
42593  data_tmp = full_data(idata)
42594  data_tmp = ishft(data_tmp, 11)
42595  data_tmp = iand(data_tmp, mask_left(35))
42596  pack_tmp = ior(pack_tmp, data_tmp)
42597  ipack = ipack + 1
42598  packed_data(ipack) = pack_tmp
42599  data_tmp = full_data(idata)
42600  pack_tmp = ishft(data_tmp, 46)
42601  pack_tmp = ishft(pack_tmp, -46)
42602  idata = idata + 1
42603  data_tmp = full_data(idata)
42604  data_tmp = ishft(data_tmp, 11)
42605  data_tmp = iand(data_tmp, mask_left(46))
42606  pack_tmp = ior(pack_tmp, data_tmp)
42607  ipack = ipack + 1
42608  packed_data(ipack) = pack_tmp
42609  data_tmp = full_data(idata)
42610  pack_tmp = ishft(data_tmp, 57)
42611  pack_tmp = ishft(pack_tmp, -53)
42612  idata = idata + 1
42613  data_tmp = full_data(idata)
42614  data_tmp = ishft(data_tmp, 11)
42615  pack_tmp = ior(pack_tmp, data_tmp)
42616  pack_tmp = ishft(pack_tmp, -4)
42617  idata = idata + 1
42618  data_tmp = full_data(idata)
42619  data_tmp = ishft(data_tmp, 11)
42620  data_tmp = iand(data_tmp, mask_left(4))
42621  pack_tmp = ior(pack_tmp, data_tmp)
42622  ipack = ipack + 1
42623  packed_data(ipack) = pack_tmp
42624  data_tmp = full_data(idata)
42625  pack_tmp = ishft(data_tmp, 15)
42626  pack_tmp = ishft(pack_tmp, -15)
42627  idata = idata + 1
42628  data_tmp = full_data(idata)
42629  data_tmp = ishft(data_tmp, 11)
42630  data_tmp = iand(data_tmp, mask_left(15))
42631  pack_tmp = ior(pack_tmp, data_tmp)
42632  ipack = ipack + 1
42633  packed_data(ipack) = pack_tmp
42634  data_tmp = full_data(idata)
42635  pack_tmp = ishft(data_tmp, 26)
42636  pack_tmp = ishft(pack_tmp, -26)
42637  idata = idata + 1
42638  data_tmp = full_data(idata)
42639  data_tmp = ishft(data_tmp, 11)
42640  data_tmp = iand(data_tmp, mask_left(26))
42641  pack_tmp = ior(pack_tmp, data_tmp)
42642  ipack = ipack + 1
42643  packed_data(ipack) = pack_tmp
42644  data_tmp = full_data(idata)
42645  pack_tmp = ishft(data_tmp, 37)
42646  pack_tmp = ishft(pack_tmp, -37)
42647  idata = idata + 1
42648  data_tmp = full_data(idata)
42649  data_tmp = ishft(data_tmp, 11)
42650  data_tmp = iand(data_tmp, mask_left(37))
42651  pack_tmp = ior(pack_tmp, data_tmp)
42652  ipack = ipack + 1
42653  packed_data(ipack) = pack_tmp
42654  data_tmp = full_data(idata)
42655  pack_tmp = ishft(data_tmp, 48)
42656  pack_tmp = ishft(pack_tmp, -48)
42657  idata = idata + 1
42658  data_tmp = full_data(idata)
42659  data_tmp = ishft(data_tmp, 11)
42660  data_tmp = iand(data_tmp, mask_left(48))
42661  pack_tmp = ior(pack_tmp, data_tmp)
42662  ipack = ipack + 1
42663  packed_data(ipack) = pack_tmp
42664  data_tmp = full_data(idata)
42665  pack_tmp = ishft(data_tmp, 59)
42666  pack_tmp = ishft(pack_tmp, -53)
42667  idata = idata + 1
42668  data_tmp = full_data(idata)
42669  data_tmp = ishft(data_tmp, 11)
42670  pack_tmp = ior(pack_tmp, data_tmp)
42671  pack_tmp = ishft(pack_tmp, -6)
42672  idata = idata + 1
42673  data_tmp = full_data(idata)
42674  data_tmp = ishft(data_tmp, 11)
42675  data_tmp = iand(data_tmp, mask_left(6))
42676  pack_tmp = ior(pack_tmp, data_tmp)
42677  ipack = ipack + 1
42678  packed_data(ipack) = pack_tmp
42679  data_tmp = full_data(idata)
42680  pack_tmp = ishft(data_tmp, 17)
42681  pack_tmp = ishft(pack_tmp, -17)
42682  idata = idata + 1
42683  data_tmp = full_data(idata)
42684  data_tmp = ishft(data_tmp, 11)
42685  data_tmp = iand(data_tmp, mask_left(17))
42686  pack_tmp = ior(pack_tmp, data_tmp)
42687  ipack = ipack + 1
42688  packed_data(ipack) = pack_tmp
42689  data_tmp = full_data(idata)
42690  pack_tmp = ishft(data_tmp, 28)
42691  pack_tmp = ishft(pack_tmp, -28)
42692  idata = idata + 1
42693  data_tmp = full_data(idata)
42694  data_tmp = ishft(data_tmp, 11)
42695  data_tmp = iand(data_tmp, mask_left(28))
42696  pack_tmp = ior(pack_tmp, data_tmp)
42697  ipack = ipack + 1
42698  packed_data(ipack) = pack_tmp
42699  data_tmp = full_data(idata)
42700  pack_tmp = ishft(data_tmp, 39)
42701  pack_tmp = ishft(pack_tmp, -39)
42702  idata = idata + 1
42703  data_tmp = full_data(idata)
42704  data_tmp = ishft(data_tmp, 11)
42705  data_tmp = iand(data_tmp, mask_left(39))
42706  pack_tmp = ior(pack_tmp, data_tmp)
42707  ipack = ipack + 1
42708  packed_data(ipack) = pack_tmp
42709  data_tmp = full_data(idata)
42710  pack_tmp = ishft(data_tmp, 50)
42711  pack_tmp = ishft(pack_tmp, -50)
42712  idata = idata + 1
42713  data_tmp = full_data(idata)
42714  data_tmp = ishft(data_tmp, 11)
42715  data_tmp = iand(data_tmp, mask_left(50))
42716  pack_tmp = ior(pack_tmp, data_tmp)
42717  ipack = ipack + 1
42718  packed_data(ipack) = pack_tmp
42719  data_tmp = full_data(idata)
42720  pack_tmp = ishft(data_tmp, 61)
42721  pack_tmp = ishft(pack_tmp, -53)
42722  idata = idata + 1
42723  data_tmp = full_data(idata)
42724  data_tmp = ishft(data_tmp, 11)
42725  pack_tmp = ior(pack_tmp, data_tmp)
42726  pack_tmp = ishft(pack_tmp, -8)
42727  idata = idata + 1
42728  data_tmp = full_data(idata)
42729  data_tmp = ishft(data_tmp, 11)
42730  data_tmp = iand(data_tmp, mask_left(8))
42731  pack_tmp = ior(pack_tmp, data_tmp)
42732  ipack = ipack + 1
42733  packed_data(ipack) = pack_tmp
42734  data_tmp = full_data(idata)
42735  pack_tmp = ishft(data_tmp, 19)
42736  pack_tmp = ishft(pack_tmp, -19)
42737  idata = idata + 1
42738  data_tmp = full_data(idata)
42739  data_tmp = ishft(data_tmp, 11)
42740  data_tmp = iand(data_tmp, mask_left(19))
42741  pack_tmp = ior(pack_tmp, data_tmp)
42742  ipack = ipack + 1
42743  packed_data(ipack) = pack_tmp
42744  data_tmp = full_data(idata)
42745  pack_tmp = ishft(data_tmp, 30)
42746  pack_tmp = ishft(pack_tmp, -30)
42747  idata = idata + 1
42748  data_tmp = full_data(idata)
42749  data_tmp = ishft(data_tmp, 11)
42750  data_tmp = iand(data_tmp, mask_left(30))
42751  pack_tmp = ior(pack_tmp, data_tmp)
42752  ipack = ipack + 1
42753  packed_data(ipack) = pack_tmp
42754  data_tmp = full_data(idata)
42755  pack_tmp = ishft(data_tmp, 41)
42756  pack_tmp = ishft(pack_tmp, -41)
42757  idata = idata + 1
42758  data_tmp = full_data(idata)
42759  data_tmp = ishft(data_tmp, 11)
42760  data_tmp = iand(data_tmp, mask_left(41))
42761  pack_tmp = ior(pack_tmp, data_tmp)
42762  ipack = ipack + 1
42763  packed_data(ipack) = pack_tmp
42764  data_tmp = full_data(idata)
42765  pack_tmp = ishft(data_tmp, 52)
42766  pack_tmp = ishft(pack_tmp, -52)
42767  idata = idata + 1
42768  data_tmp = full_data(idata)
42769  data_tmp = ishft(data_tmp, 11)
42770  data_tmp = iand(data_tmp, mask_left(52))
42771  pack_tmp = ior(pack_tmp, data_tmp)
42772  ipack = ipack + 1
42773  packed_data(ipack) = pack_tmp
42774  data_tmp = full_data(idata)
42775  pack_tmp = ishft(data_tmp, 63)
42776  pack_tmp = ishft(pack_tmp, -53)
42777  idata = idata + 1
42778  data_tmp = full_data(idata)
42779  data_tmp = ishft(data_tmp, 11)
42780  pack_tmp = ior(pack_tmp, data_tmp)
42781  pack_tmp = ishft(pack_tmp, -10)
42782  idata = idata + 1
42783  data_tmp = full_data(idata)
42784  data_tmp = ishft(data_tmp, 11)
42785  data_tmp = iand(data_tmp, mask_left(10))
42786  pack_tmp = ior(pack_tmp, data_tmp)
42787  ipack = ipack + 1
42788  packed_data(ipack) = pack_tmp
42789  data_tmp = full_data(idata)
42790  pack_tmp = ishft(data_tmp, 21)
42791  pack_tmp = ishft(pack_tmp, -21)
42792  idata = idata + 1
42793  data_tmp = full_data(idata)
42794  data_tmp = ishft(data_tmp, 11)
42795  data_tmp = iand(data_tmp, mask_left(21))
42796  pack_tmp = ior(pack_tmp, data_tmp)
42797  ipack = ipack + 1
42798  packed_data(ipack) = pack_tmp
42799  data_tmp = full_data(idata)
42800  pack_tmp = ishft(data_tmp, 32)
42801  pack_tmp = ishft(pack_tmp, -32)
42802  idata = idata + 1
42803  data_tmp = full_data(idata)
42804  data_tmp = ishft(data_tmp, 11)
42805  data_tmp = iand(data_tmp, mask_left(32))
42806  pack_tmp = ior(pack_tmp, data_tmp)
42807  ipack = ipack + 1
42808  packed_data(ipack) = pack_tmp
42809  data_tmp = full_data(idata)
42810  pack_tmp = ishft(data_tmp, 43)
42811  pack_tmp = ishft(pack_tmp, -43)
42812  idata = idata + 1
42813  data_tmp = full_data(idata)
42814  data_tmp = ishft(data_tmp, 11)
42815  data_tmp = iand(data_tmp, mask_left(43))
42816  pack_tmp = ior(pack_tmp, data_tmp)
42817  ipack = ipack + 1
42818  packed_data(ipack) = pack_tmp
42819  data_tmp = full_data(idata)
42820  pack_tmp = ishft(data_tmp, 54)
42821  pack_tmp = ishft(pack_tmp, -53)
42822  idata = idata + 1
42823  data_tmp = full_data(idata)
42824  data_tmp = ishft(data_tmp, 11)
42825  pack_tmp = ior(pack_tmp, data_tmp)
42826  pack_tmp = ishft(pack_tmp, -1)
42827  idata = idata + 1
42828  data_tmp = full_data(idata)
42829  data_tmp = ishft(data_tmp, 11)
42830  data_tmp = iand(data_tmp, mask_left(1))
42831  pack_tmp = ior(pack_tmp, data_tmp)
42832  ipack = ipack + 1
42833  packed_data(ipack) = pack_tmp
42834  data_tmp = full_data(idata)
42835  pack_tmp = ishft(data_tmp, 12)
42836  pack_tmp = ishft(pack_tmp, -12)
42837  idata = idata + 1
42838  data_tmp = full_data(idata)
42839  data_tmp = ishft(data_tmp, 11)
42840  data_tmp = iand(data_tmp, mask_left(12))
42841  pack_tmp = ior(pack_tmp, data_tmp)
42842  ipack = ipack + 1
42843  packed_data(ipack) = pack_tmp
42844  data_tmp = full_data(idata)
42845  pack_tmp = ishft(data_tmp, 23)
42846  pack_tmp = ishft(pack_tmp, -23)
42847  idata = idata + 1
42848  data_tmp = full_data(idata)
42849  data_tmp = ishft(data_tmp, 11)
42850  data_tmp = iand(data_tmp, mask_left(23))
42851  pack_tmp = ior(pack_tmp, data_tmp)
42852  ipack = ipack + 1
42853  packed_data(ipack) = pack_tmp
42854  data_tmp = full_data(idata)
42855  pack_tmp = ishft(data_tmp, 34)
42856  pack_tmp = ishft(pack_tmp, -34)
42857  idata = idata + 1
42858  data_tmp = full_data(idata)
42859  data_tmp = ishft(data_tmp, 11)
42860  data_tmp = iand(data_tmp, mask_left(34))
42861  pack_tmp = ior(pack_tmp, data_tmp)
42862  ipack = ipack + 1
42863  packed_data(ipack) = pack_tmp
42864  data_tmp = full_data(idata)
42865  pack_tmp = ishft(data_tmp, 45)
42866  pack_tmp = ishft(pack_tmp, -45)
42867  idata = idata + 1
42868  data_tmp = full_data(idata)
42869  data_tmp = ishft(data_tmp, 11)
42870  data_tmp = iand(data_tmp, mask_left(45))
42871  pack_tmp = ior(pack_tmp, data_tmp)
42872  ipack = ipack + 1
42873  packed_data(ipack) = pack_tmp
42874  data_tmp = full_data(idata)
42875  pack_tmp = ishft(data_tmp, 56)
42876  pack_tmp = ishft(pack_tmp, -53)
42877  idata = idata + 1
42878  data_tmp = full_data(idata)
42879  data_tmp = ishft(data_tmp, 11)
42880  pack_tmp = ior(pack_tmp, data_tmp)
42881  pack_tmp = ishft(pack_tmp, -3)
42882  idata = idata + 1
42883  data_tmp = full_data(idata)
42884  data_tmp = ishft(data_tmp, 11)
42885  data_tmp = iand(data_tmp, mask_left(3))
42886  pack_tmp = ior(pack_tmp, data_tmp)
42887  ipack = ipack + 1
42888  packed_data(ipack) = pack_tmp
42889  data_tmp = full_data(idata)
42890  pack_tmp = ishft(data_tmp, 14)
42891  pack_tmp = ishft(pack_tmp, -14)
42892  idata = idata + 1
42893  data_tmp = full_data(idata)
42894  data_tmp = ishft(data_tmp, 11)
42895  data_tmp = iand(data_tmp, mask_left(14))
42896  pack_tmp = ior(pack_tmp, data_tmp)
42897  ipack = ipack + 1
42898  packed_data(ipack) = pack_tmp
42899  data_tmp = full_data(idata)
42900  pack_tmp = ishft(data_tmp, 25)
42901  pack_tmp = ishft(pack_tmp, -25)
42902  idata = idata + 1
42903  data_tmp = full_data(idata)
42904  data_tmp = ishft(data_tmp, 11)
42905  data_tmp = iand(data_tmp, mask_left(25))
42906  pack_tmp = ior(pack_tmp, data_tmp)
42907  ipack = ipack + 1
42908  packed_data(ipack) = pack_tmp
42909  data_tmp = full_data(idata)
42910  pack_tmp = ishft(data_tmp, 36)
42911  pack_tmp = ishft(pack_tmp, -36)
42912  idata = idata + 1
42913  data_tmp = full_data(idata)
42914  data_tmp = ishft(data_tmp, 11)
42915  data_tmp = iand(data_tmp, mask_left(36))
42916  pack_tmp = ior(pack_tmp, data_tmp)
42917  ipack = ipack + 1
42918  packed_data(ipack) = pack_tmp
42919  data_tmp = full_data(idata)
42920  pack_tmp = ishft(data_tmp, 47)
42921  pack_tmp = ishft(pack_tmp, -47)
42922  idata = idata + 1
42923  data_tmp = full_data(idata)
42924  data_tmp = ishft(data_tmp, 11)
42925  data_tmp = iand(data_tmp, mask_left(47))
42926  pack_tmp = ior(pack_tmp, data_tmp)
42927  ipack = ipack + 1
42928  packed_data(ipack) = pack_tmp
42929  data_tmp = full_data(idata)
42930  pack_tmp = ishft(data_tmp, 58)
42931  pack_tmp = ishft(pack_tmp, -53)
42932  idata = idata + 1
42933  data_tmp = full_data(idata)
42934  data_tmp = ishft(data_tmp, 11)
42935  pack_tmp = ior(pack_tmp, data_tmp)
42936  pack_tmp = ishft(pack_tmp, -5)
42937  idata = idata + 1
42938  data_tmp = full_data(idata)
42939  data_tmp = ishft(data_tmp, 11)
42940  data_tmp = iand(data_tmp, mask_left(5))
42941  pack_tmp = ior(pack_tmp, data_tmp)
42942  ipack = ipack + 1
42943  packed_data(ipack) = pack_tmp
42944  data_tmp = full_data(idata)
42945  pack_tmp = ishft(data_tmp, 16)
42946  pack_tmp = ishft(pack_tmp, -16)
42947  idata = idata + 1
42948  data_tmp = full_data(idata)
42949  data_tmp = ishft(data_tmp, 11)
42950  data_tmp = iand(data_tmp, mask_left(16))
42951  pack_tmp = ior(pack_tmp, data_tmp)
42952  ipack = ipack + 1
42953  packed_data(ipack) = pack_tmp
42954  data_tmp = full_data(idata)
42955  pack_tmp = ishft(data_tmp, 27)
42956  pack_tmp = ishft(pack_tmp, -27)
42957  idata = idata + 1
42958  data_tmp = full_data(idata)
42959  data_tmp = ishft(data_tmp, 11)
42960  data_tmp = iand(data_tmp, mask_left(27))
42961  pack_tmp = ior(pack_tmp, data_tmp)
42962  ipack = ipack + 1
42963  packed_data(ipack) = pack_tmp
42964  data_tmp = full_data(idata)
42965  pack_tmp = ishft(data_tmp, 38)
42966  pack_tmp = ishft(pack_tmp, -38)
42967  idata = idata + 1
42968  data_tmp = full_data(idata)
42969  data_tmp = ishft(data_tmp, 11)
42970  data_tmp = iand(data_tmp, mask_left(38))
42971  pack_tmp = ior(pack_tmp, data_tmp)
42972  ipack = ipack + 1
42973  packed_data(ipack) = pack_tmp
42974  data_tmp = full_data(idata)
42975  pack_tmp = ishft(data_tmp, 49)
42976  pack_tmp = ishft(pack_tmp, -49)
42977  idata = idata + 1
42978  data_tmp = full_data(idata)
42979  data_tmp = ishft(data_tmp, 11)
42980  data_tmp = iand(data_tmp, mask_left(49))
42981  pack_tmp = ior(pack_tmp, data_tmp)
42982  ipack = ipack + 1
42983  packed_data(ipack) = pack_tmp
42984  data_tmp = full_data(idata)
42985  pack_tmp = ishft(data_tmp, 60)
42986  pack_tmp = ishft(pack_tmp, -53)
42987  idata = idata + 1
42988  data_tmp = full_data(idata)
42989  data_tmp = ishft(data_tmp, 11)
42990  pack_tmp = ior(pack_tmp, data_tmp)
42991  pack_tmp = ishft(pack_tmp, -7)
42992  idata = idata + 1
42993  data_tmp = full_data(idata)
42994  data_tmp = ishft(data_tmp, 11)
42995  data_tmp = iand(data_tmp, mask_left(7))
42996  pack_tmp = ior(pack_tmp, data_tmp)
42997  ipack = ipack + 1
42998  packed_data(ipack) = pack_tmp
42999  data_tmp = full_data(idata)
43000  pack_tmp = ishft(data_tmp, 18)
43001  pack_tmp = ishft(pack_tmp, -18)
43002  idata = idata + 1
43003  data_tmp = full_data(idata)
43004  data_tmp = ishft(data_tmp, 11)
43005  data_tmp = iand(data_tmp, mask_left(18))
43006  pack_tmp = ior(pack_tmp, data_tmp)
43007  ipack = ipack + 1
43008  packed_data(ipack) = pack_tmp
43009  data_tmp = full_data(idata)
43010  pack_tmp = ishft(data_tmp, 29)
43011  pack_tmp = ishft(pack_tmp, -29)
43012  idata = idata + 1
43013  data_tmp = full_data(idata)
43014  data_tmp = ishft(data_tmp, 11)
43015  data_tmp = iand(data_tmp, mask_left(29))
43016  pack_tmp = ior(pack_tmp, data_tmp)
43017  ipack = ipack + 1
43018  packed_data(ipack) = pack_tmp
43019  data_tmp = full_data(idata)
43020  pack_tmp = ishft(data_tmp, 40)
43021  pack_tmp = ishft(pack_tmp, -40)
43022  idata = idata + 1
43023  data_tmp = full_data(idata)
43024  data_tmp = ishft(data_tmp, 11)
43025  data_tmp = iand(data_tmp, mask_left(40))
43026  pack_tmp = ior(pack_tmp, data_tmp)
43027  ipack = ipack + 1
43028  packed_data(ipack) = pack_tmp
43029  data_tmp = full_data(idata)
43030  pack_tmp = ishft(data_tmp, 51)
43031  pack_tmp = ishft(pack_tmp, -51)
43032  idata = idata + 1
43033  data_tmp = full_data(idata)
43034  data_tmp = ishft(data_tmp, 11)
43035  data_tmp = iand(data_tmp, mask_left(51))
43036  pack_tmp = ior(pack_tmp, data_tmp)
43037  ipack = ipack + 1
43038  packed_data(ipack) = pack_tmp
43039  data_tmp = full_data(idata)
43040  pack_tmp = ishft(data_tmp, 62)
43041  pack_tmp = ishft(pack_tmp, -53)
43042  idata = idata + 1
43043  data_tmp = full_data(idata)
43044  data_tmp = ishft(data_tmp, 11)
43045  pack_tmp = ior(pack_tmp, data_tmp)
43046  pack_tmp = ishft(pack_tmp, -9)
43047  idata = idata + 1
43048  data_tmp = full_data(idata)
43049  data_tmp = ishft(data_tmp, 11)
43050  data_tmp = iand(data_tmp, mask_left(9))
43051  pack_tmp = ior(pack_tmp, data_tmp)
43052  ipack = ipack + 1
43053  packed_data(ipack) = pack_tmp
43054  data_tmp = full_data(idata)
43055  pack_tmp = ishft(data_tmp, 20)
43056  pack_tmp = ishft(pack_tmp, -20)
43057  idata = idata + 1
43058  data_tmp = full_data(idata)
43059  data_tmp = ishft(data_tmp, 11)
43060  data_tmp = iand(data_tmp, mask_left(20))
43061  pack_tmp = ior(pack_tmp, data_tmp)
43062  ipack = ipack + 1
43063  packed_data(ipack) = pack_tmp
43064  data_tmp = full_data(idata)
43065  pack_tmp = ishft(data_tmp, 31)
43066  pack_tmp = ishft(pack_tmp, -31)
43067  idata = idata + 1
43068  data_tmp = full_data(idata)
43069  data_tmp = ishft(data_tmp, 11)
43070  data_tmp = iand(data_tmp, mask_left(31))
43071  pack_tmp = ior(pack_tmp, data_tmp)
43072  ipack = ipack + 1
43073  packed_data(ipack) = pack_tmp
43074  data_tmp = full_data(idata)
43075  pack_tmp = ishft(data_tmp, 42)
43076  pack_tmp = ishft(pack_tmp, -42)
43077  idata = idata + 1
43078  data_tmp = full_data(idata)
43079  data_tmp = ishft(data_tmp, 11)
43080  data_tmp = iand(data_tmp, mask_left(42))
43081  pack_tmp = ior(pack_tmp, data_tmp)
43082  ipack = ipack + 1
43083  packed_data(ipack) = pack_tmp
43084  data_tmp = full_data(idata)
43085  pack_tmp = ishft(data_tmp, 53)
43086  pack_tmp = ishft(pack_tmp, -53)
43087  idata = idata + 1
43088  data_tmp = full_data(idata)
43089  data_tmp = ishft(data_tmp, 11)
43090  pack_tmp = ior(pack_tmp, data_tmp)
43091  pack_tmp = ishft(pack_tmp, 0)
43092  pack_tmp = ishft(pack_tmp, 0)
43093  ipack = ipack + 1
43094  packed_data(ipack) = pack_tmp
43095  END DO
43096  IF (ndata_rep < ndata) THEN
43097  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
43098  END IF
43099  END SUBROUTINE ints2bits_53
43100 
43101 ! **************************************************************************************************
43102 !> \brief ...
43103 !> \param Ndata ...
43104 !> \param packed_data ...
43105 !> \param full_data ...
43106 ! **************************************************************************************************
43107  SUBROUTINE bits2ints_53(Ndata, packed_data, full_data)
43108  INTEGER, INTENT(IN) :: Ndata
43109  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
43110  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
43111 
43112  INTEGER, PARAMETER :: Nbits = 53
43113 
43114  INTEGER :: idata, ipack, kdata, Ndata_rep
43115  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
43116 
43117  ipack = 0
43118  idata = 0
43119  pack_tmp = 0
43120  ndata_rep = (ndata/64)*64
43121  DO kdata = 1, ndata_rep, 64
43122  idata = idata + 1
43123  data_tmp = ishft(pack_tmp, 53)
43124  ipack = ipack + 1
43125  pack_tmp = packed_data(ipack)
43126  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
43127  pack_tmp = ishft(pack_tmp, -53)
43128  idata = idata + 1
43129  data_tmp = ishft(pack_tmp, 42)
43130  ipack = ipack + 1
43131  pack_tmp = packed_data(ipack)
43132  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
43133  pack_tmp = ishft(pack_tmp, -42)
43134  idata = idata + 1
43135  data_tmp = ishft(pack_tmp, 31)
43136  ipack = ipack + 1
43137  pack_tmp = packed_data(ipack)
43138  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
43139  pack_tmp = ishft(pack_tmp, -31)
43140  idata = idata + 1
43141  data_tmp = ishft(pack_tmp, 20)
43142  ipack = ipack + 1
43143  pack_tmp = packed_data(ipack)
43144  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
43145  pack_tmp = ishft(pack_tmp, -20)
43146  idata = idata + 1
43147  data_tmp = ishft(pack_tmp, 9)
43148  ipack = ipack + 1
43149  pack_tmp = packed_data(ipack)
43150  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
43151  pack_tmp = ishft(pack_tmp, -9)
43152  idata = idata + 1
43153  data_tmp = iand(pack_tmp, mask_right(nbits))
43154  full_data(idata) = data_tmp
43155  pack_tmp = ishft(pack_tmp, -nbits)
43156  idata = idata + 1
43157  data_tmp = ishft(pack_tmp, 51)
43158  ipack = ipack + 1
43159  pack_tmp = packed_data(ipack)
43160  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
43161  pack_tmp = ishft(pack_tmp, -51)
43162  idata = idata + 1
43163  data_tmp = ishft(pack_tmp, 40)
43164  ipack = ipack + 1
43165  pack_tmp = packed_data(ipack)
43166  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
43167  pack_tmp = ishft(pack_tmp, -40)
43168  idata = idata + 1
43169  data_tmp = ishft(pack_tmp, 29)
43170  ipack = ipack + 1
43171  pack_tmp = packed_data(ipack)
43172  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
43173  pack_tmp = ishft(pack_tmp, -29)
43174  idata = idata + 1
43175  data_tmp = ishft(pack_tmp, 18)
43176  ipack = ipack + 1
43177  pack_tmp = packed_data(ipack)
43178  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
43179  pack_tmp = ishft(pack_tmp, -18)
43180  idata = idata + 1
43181  data_tmp = ishft(pack_tmp, 7)
43182  ipack = ipack + 1
43183  pack_tmp = packed_data(ipack)
43184  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
43185  pack_tmp = ishft(pack_tmp, -7)
43186  idata = idata + 1
43187  data_tmp = iand(pack_tmp, mask_right(nbits))
43188  full_data(idata) = data_tmp
43189  pack_tmp = ishft(pack_tmp, -nbits)
43190  idata = idata + 1
43191  data_tmp = ishft(pack_tmp, 49)
43192  ipack = ipack + 1
43193  pack_tmp = packed_data(ipack)
43194  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
43195  pack_tmp = ishft(pack_tmp, -49)
43196  idata = idata + 1
43197  data_tmp = ishft(pack_tmp, 38)
43198  ipack = ipack + 1
43199  pack_tmp = packed_data(ipack)
43200  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
43201  pack_tmp = ishft(pack_tmp, -38)
43202  idata = idata + 1
43203  data_tmp = ishft(pack_tmp, 27)
43204  ipack = ipack + 1
43205  pack_tmp = packed_data(ipack)
43206  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
43207  pack_tmp = ishft(pack_tmp, -27)
43208  idata = idata + 1
43209  data_tmp = ishft(pack_tmp, 16)
43210  ipack = ipack + 1
43211  pack_tmp = packed_data(ipack)
43212  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
43213  pack_tmp = ishft(pack_tmp, -16)
43214  idata = idata + 1
43215  data_tmp = ishft(pack_tmp, 5)
43216  ipack = ipack + 1
43217  pack_tmp = packed_data(ipack)
43218  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
43219  pack_tmp = ishft(pack_tmp, -5)
43220  idata = idata + 1
43221  data_tmp = iand(pack_tmp, mask_right(nbits))
43222  full_data(idata) = data_tmp
43223  pack_tmp = ishft(pack_tmp, -nbits)
43224  idata = idata + 1
43225  data_tmp = ishft(pack_tmp, 47)
43226  ipack = ipack + 1
43227  pack_tmp = packed_data(ipack)
43228  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
43229  pack_tmp = ishft(pack_tmp, -47)
43230  idata = idata + 1
43231  data_tmp = ishft(pack_tmp, 36)
43232  ipack = ipack + 1
43233  pack_tmp = packed_data(ipack)
43234  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
43235  pack_tmp = ishft(pack_tmp, -36)
43236  idata = idata + 1
43237  data_tmp = ishft(pack_tmp, 25)
43238  ipack = ipack + 1
43239  pack_tmp = packed_data(ipack)
43240  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
43241  pack_tmp = ishft(pack_tmp, -25)
43242  idata = idata + 1
43243  data_tmp = ishft(pack_tmp, 14)
43244  ipack = ipack + 1
43245  pack_tmp = packed_data(ipack)
43246  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
43247  pack_tmp = ishft(pack_tmp, -14)
43248  idata = idata + 1
43249  data_tmp = ishft(pack_tmp, 3)
43250  ipack = ipack + 1
43251  pack_tmp = packed_data(ipack)
43252  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
43253  pack_tmp = ishft(pack_tmp, -3)
43254  idata = idata + 1
43255  data_tmp = iand(pack_tmp, mask_right(nbits))
43256  full_data(idata) = data_tmp
43257  pack_tmp = ishft(pack_tmp, -nbits)
43258  idata = idata + 1
43259  data_tmp = ishft(pack_tmp, 45)
43260  ipack = ipack + 1
43261  pack_tmp = packed_data(ipack)
43262  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
43263  pack_tmp = ishft(pack_tmp, -45)
43264  idata = idata + 1
43265  data_tmp = ishft(pack_tmp, 34)
43266  ipack = ipack + 1
43267  pack_tmp = packed_data(ipack)
43268  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
43269  pack_tmp = ishft(pack_tmp, -34)
43270  idata = idata + 1
43271  data_tmp = ishft(pack_tmp, 23)
43272  ipack = ipack + 1
43273  pack_tmp = packed_data(ipack)
43274  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
43275  pack_tmp = ishft(pack_tmp, -23)
43276  idata = idata + 1
43277  data_tmp = ishft(pack_tmp, 12)
43278  ipack = ipack + 1
43279  pack_tmp = packed_data(ipack)
43280  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
43281  pack_tmp = ishft(pack_tmp, -12)
43282  idata = idata + 1
43283  data_tmp = ishft(pack_tmp, 1)
43284  ipack = ipack + 1
43285  pack_tmp = packed_data(ipack)
43286  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
43287  pack_tmp = ishft(pack_tmp, -1)
43288  idata = idata + 1
43289  data_tmp = iand(pack_tmp, mask_right(nbits))
43290  full_data(idata) = data_tmp
43291  pack_tmp = ishft(pack_tmp, -nbits)
43292  idata = idata + 1
43293  data_tmp = ishft(pack_tmp, 43)
43294  ipack = ipack + 1
43295  pack_tmp = packed_data(ipack)
43296  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
43297  pack_tmp = ishft(pack_tmp, -43)
43298  idata = idata + 1
43299  data_tmp = ishft(pack_tmp, 32)
43300  ipack = ipack + 1
43301  pack_tmp = packed_data(ipack)
43302  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
43303  pack_tmp = ishft(pack_tmp, -32)
43304  idata = idata + 1
43305  data_tmp = ishft(pack_tmp, 21)
43306  ipack = ipack + 1
43307  pack_tmp = packed_data(ipack)
43308  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
43309  pack_tmp = ishft(pack_tmp, -21)
43310  idata = idata + 1
43311  data_tmp = ishft(pack_tmp, 10)
43312  ipack = ipack + 1
43313  pack_tmp = packed_data(ipack)
43314  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
43315  pack_tmp = ishft(pack_tmp, -10)
43316  idata = idata + 1
43317  data_tmp = iand(pack_tmp, mask_right(nbits))
43318  full_data(idata) = data_tmp
43319  pack_tmp = ishft(pack_tmp, -nbits)
43320  idata = idata + 1
43321  data_tmp = ishft(pack_tmp, 52)
43322  ipack = ipack + 1
43323  pack_tmp = packed_data(ipack)
43324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
43325  pack_tmp = ishft(pack_tmp, -52)
43326  idata = idata + 1
43327  data_tmp = ishft(pack_tmp, 41)
43328  ipack = ipack + 1
43329  pack_tmp = packed_data(ipack)
43330  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
43331  pack_tmp = ishft(pack_tmp, -41)
43332  idata = idata + 1
43333  data_tmp = ishft(pack_tmp, 30)
43334  ipack = ipack + 1
43335  pack_tmp = packed_data(ipack)
43336  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
43337  pack_tmp = ishft(pack_tmp, -30)
43338  idata = idata + 1
43339  data_tmp = ishft(pack_tmp, 19)
43340  ipack = ipack + 1
43341  pack_tmp = packed_data(ipack)
43342  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
43343  pack_tmp = ishft(pack_tmp, -19)
43344  idata = idata + 1
43345  data_tmp = ishft(pack_tmp, 8)
43346  ipack = ipack + 1
43347  pack_tmp = packed_data(ipack)
43348  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
43349  pack_tmp = ishft(pack_tmp, -8)
43350  idata = idata + 1
43351  data_tmp = iand(pack_tmp, mask_right(nbits))
43352  full_data(idata) = data_tmp
43353  pack_tmp = ishft(pack_tmp, -nbits)
43354  idata = idata + 1
43355  data_tmp = ishft(pack_tmp, 50)
43356  ipack = ipack + 1
43357  pack_tmp = packed_data(ipack)
43358  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
43359  pack_tmp = ishft(pack_tmp, -50)
43360  idata = idata + 1
43361  data_tmp = ishft(pack_tmp, 39)
43362  ipack = ipack + 1
43363  pack_tmp = packed_data(ipack)
43364  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
43365  pack_tmp = ishft(pack_tmp, -39)
43366  idata = idata + 1
43367  data_tmp = ishft(pack_tmp, 28)
43368  ipack = ipack + 1
43369  pack_tmp = packed_data(ipack)
43370  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
43371  pack_tmp = ishft(pack_tmp, -28)
43372  idata = idata + 1
43373  data_tmp = ishft(pack_tmp, 17)
43374  ipack = ipack + 1
43375  pack_tmp = packed_data(ipack)
43376  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
43377  pack_tmp = ishft(pack_tmp, -17)
43378  idata = idata + 1
43379  data_tmp = ishft(pack_tmp, 6)
43380  ipack = ipack + 1
43381  pack_tmp = packed_data(ipack)
43382  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
43383  pack_tmp = ishft(pack_tmp, -6)
43384  idata = idata + 1
43385  data_tmp = iand(pack_tmp, mask_right(nbits))
43386  full_data(idata) = data_tmp
43387  pack_tmp = ishft(pack_tmp, -nbits)
43388  idata = idata + 1
43389  data_tmp = ishft(pack_tmp, 48)
43390  ipack = ipack + 1
43391  pack_tmp = packed_data(ipack)
43392  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
43393  pack_tmp = ishft(pack_tmp, -48)
43394  idata = idata + 1
43395  data_tmp = ishft(pack_tmp, 37)
43396  ipack = ipack + 1
43397  pack_tmp = packed_data(ipack)
43398  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
43399  pack_tmp = ishft(pack_tmp, -37)
43400  idata = idata + 1
43401  data_tmp = ishft(pack_tmp, 26)
43402  ipack = ipack + 1
43403  pack_tmp = packed_data(ipack)
43404  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
43405  pack_tmp = ishft(pack_tmp, -26)
43406  idata = idata + 1
43407  data_tmp = ishft(pack_tmp, 15)
43408  ipack = ipack + 1
43409  pack_tmp = packed_data(ipack)
43410  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
43411  pack_tmp = ishft(pack_tmp, -15)
43412  idata = idata + 1
43413  data_tmp = ishft(pack_tmp, 4)
43414  ipack = ipack + 1
43415  pack_tmp = packed_data(ipack)
43416  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
43417  pack_tmp = ishft(pack_tmp, -4)
43418  idata = idata + 1
43419  data_tmp = iand(pack_tmp, mask_right(nbits))
43420  full_data(idata) = data_tmp
43421  pack_tmp = ishft(pack_tmp, -nbits)
43422  idata = idata + 1
43423  data_tmp = ishft(pack_tmp, 46)
43424  ipack = ipack + 1
43425  pack_tmp = packed_data(ipack)
43426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
43427  pack_tmp = ishft(pack_tmp, -46)
43428  idata = idata + 1
43429  data_tmp = ishft(pack_tmp, 35)
43430  ipack = ipack + 1
43431  pack_tmp = packed_data(ipack)
43432  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
43433  pack_tmp = ishft(pack_tmp, -35)
43434  idata = idata + 1
43435  data_tmp = ishft(pack_tmp, 24)
43436  ipack = ipack + 1
43437  pack_tmp = packed_data(ipack)
43438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
43439  pack_tmp = ishft(pack_tmp, -24)
43440  idata = idata + 1
43441  data_tmp = ishft(pack_tmp, 13)
43442  ipack = ipack + 1
43443  pack_tmp = packed_data(ipack)
43444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
43445  pack_tmp = ishft(pack_tmp, -13)
43446  idata = idata + 1
43447  data_tmp = ishft(pack_tmp, 2)
43448  ipack = ipack + 1
43449  pack_tmp = packed_data(ipack)
43450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
43451  pack_tmp = ishft(pack_tmp, -2)
43452  idata = idata + 1
43453  data_tmp = iand(pack_tmp, mask_right(nbits))
43454  full_data(idata) = data_tmp
43455  pack_tmp = ishft(pack_tmp, -nbits)
43456  idata = idata + 1
43457  data_tmp = ishft(pack_tmp, 44)
43458  ipack = ipack + 1
43459  pack_tmp = packed_data(ipack)
43460  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
43461  pack_tmp = ishft(pack_tmp, -44)
43462  idata = idata + 1
43463  data_tmp = ishft(pack_tmp, 33)
43464  ipack = ipack + 1
43465  pack_tmp = packed_data(ipack)
43466  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
43467  pack_tmp = ishft(pack_tmp, -33)
43468  idata = idata + 1
43469  data_tmp = ishft(pack_tmp, 22)
43470  ipack = ipack + 1
43471  pack_tmp = packed_data(ipack)
43472  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
43473  pack_tmp = ishft(pack_tmp, -22)
43474  idata = idata + 1
43475  data_tmp = ishft(pack_tmp, 11)
43476  ipack = ipack + 1
43477  pack_tmp = packed_data(ipack)
43478  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
43479  pack_tmp = ishft(pack_tmp, -11)
43480  idata = idata + 1
43481  data_tmp = iand(pack_tmp, mask_right(nbits))
43482  full_data(idata) = data_tmp
43483  pack_tmp = ishft(pack_tmp, -nbits)
43484  END DO
43485  IF (ndata_rep < ndata) THEN
43486  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
43487  END IF
43488  END SUBROUTINE bits2ints_53
43489 
43490 ! **************************************************************************************************
43491 !> \brief ...
43492 !> \param Ndata ...
43493 !> \param packed_data ...
43494 !> \param full_data ...
43495 ! **************************************************************************************************
43496  SUBROUTINE ints2bits_54(Ndata, packed_data, full_data)
43497  INTEGER, INTENT(IN) :: Ndata
43498  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
43499  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
43500 
43501  INTEGER, PARAMETER :: Nbits = 54
43502 
43503  INTEGER :: idata, ipack, kdata, Ndata_rep
43504  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
43505 
43506  idata = 0
43507  ipack = 0
43508  ndata_rep = (ndata/64)*64
43509  DO kdata = 1, ndata_rep, 64
43510  pack_tmp = 0
43511  idata = idata + 1
43512  data_tmp = full_data(idata)
43513  data_tmp = ishft(data_tmp, 10)
43514  pack_tmp = ior(pack_tmp, data_tmp)
43515  pack_tmp = ishft(pack_tmp, -10)
43516  idata = idata + 1
43517  data_tmp = full_data(idata)
43518  data_tmp = ishft(data_tmp, 10)
43519  data_tmp = iand(data_tmp, mask_left(10))
43520  pack_tmp = ior(pack_tmp, data_tmp)
43521  ipack = ipack + 1
43522  packed_data(ipack) = pack_tmp
43523  data_tmp = full_data(idata)
43524  pack_tmp = ishft(data_tmp, 20)
43525  pack_tmp = ishft(pack_tmp, -20)
43526  idata = idata + 1
43527  data_tmp = full_data(idata)
43528  data_tmp = ishft(data_tmp, 10)
43529  data_tmp = iand(data_tmp, mask_left(20))
43530  pack_tmp = ior(pack_tmp, data_tmp)
43531  ipack = ipack + 1
43532  packed_data(ipack) = pack_tmp
43533  data_tmp = full_data(idata)
43534  pack_tmp = ishft(data_tmp, 30)
43535  pack_tmp = ishft(pack_tmp, -30)
43536  idata = idata + 1
43537  data_tmp = full_data(idata)
43538  data_tmp = ishft(data_tmp, 10)
43539  data_tmp = iand(data_tmp, mask_left(30))
43540  pack_tmp = ior(pack_tmp, data_tmp)
43541  ipack = ipack + 1
43542  packed_data(ipack) = pack_tmp
43543  data_tmp = full_data(idata)
43544  pack_tmp = ishft(data_tmp, 40)
43545  pack_tmp = ishft(pack_tmp, -40)
43546  idata = idata + 1
43547  data_tmp = full_data(idata)
43548  data_tmp = ishft(data_tmp, 10)
43549  data_tmp = iand(data_tmp, mask_left(40))
43550  pack_tmp = ior(pack_tmp, data_tmp)
43551  ipack = ipack + 1
43552  packed_data(ipack) = pack_tmp
43553  data_tmp = full_data(idata)
43554  pack_tmp = ishft(data_tmp, 50)
43555  pack_tmp = ishft(pack_tmp, -50)
43556  idata = idata + 1
43557  data_tmp = full_data(idata)
43558  data_tmp = ishft(data_tmp, 10)
43559  data_tmp = iand(data_tmp, mask_left(50))
43560  pack_tmp = ior(pack_tmp, data_tmp)
43561  ipack = ipack + 1
43562  packed_data(ipack) = pack_tmp
43563  data_tmp = full_data(idata)
43564  pack_tmp = ishft(data_tmp, 60)
43565  pack_tmp = ishft(pack_tmp, -54)
43566  idata = idata + 1
43567  data_tmp = full_data(idata)
43568  data_tmp = ishft(data_tmp, 10)
43569  pack_tmp = ior(pack_tmp, data_tmp)
43570  pack_tmp = ishft(pack_tmp, -6)
43571  idata = idata + 1
43572  data_tmp = full_data(idata)
43573  data_tmp = ishft(data_tmp, 10)
43574  data_tmp = iand(data_tmp, mask_left(6))
43575  pack_tmp = ior(pack_tmp, data_tmp)
43576  ipack = ipack + 1
43577  packed_data(ipack) = pack_tmp
43578  data_tmp = full_data(idata)
43579  pack_tmp = ishft(data_tmp, 16)
43580  pack_tmp = ishft(pack_tmp, -16)
43581  idata = idata + 1
43582  data_tmp = full_data(idata)
43583  data_tmp = ishft(data_tmp, 10)
43584  data_tmp = iand(data_tmp, mask_left(16))
43585  pack_tmp = ior(pack_tmp, data_tmp)
43586  ipack = ipack + 1
43587  packed_data(ipack) = pack_tmp
43588  data_tmp = full_data(idata)
43589  pack_tmp = ishft(data_tmp, 26)
43590  pack_tmp = ishft(pack_tmp, -26)
43591  idata = idata + 1
43592  data_tmp = full_data(idata)
43593  data_tmp = ishft(data_tmp, 10)
43594  data_tmp = iand(data_tmp, mask_left(26))
43595  pack_tmp = ior(pack_tmp, data_tmp)
43596  ipack = ipack + 1
43597  packed_data(ipack) = pack_tmp
43598  data_tmp = full_data(idata)
43599  pack_tmp = ishft(data_tmp, 36)
43600  pack_tmp = ishft(pack_tmp, -36)
43601  idata = idata + 1
43602  data_tmp = full_data(idata)
43603  data_tmp = ishft(data_tmp, 10)
43604  data_tmp = iand(data_tmp, mask_left(36))
43605  pack_tmp = ior(pack_tmp, data_tmp)
43606  ipack = ipack + 1
43607  packed_data(ipack) = pack_tmp
43608  data_tmp = full_data(idata)
43609  pack_tmp = ishft(data_tmp, 46)
43610  pack_tmp = ishft(pack_tmp, -46)
43611  idata = idata + 1
43612  data_tmp = full_data(idata)
43613  data_tmp = ishft(data_tmp, 10)
43614  data_tmp = iand(data_tmp, mask_left(46))
43615  pack_tmp = ior(pack_tmp, data_tmp)
43616  ipack = ipack + 1
43617  packed_data(ipack) = pack_tmp
43618  data_tmp = full_data(idata)
43619  pack_tmp = ishft(data_tmp, 56)
43620  pack_tmp = ishft(pack_tmp, -54)
43621  idata = idata + 1
43622  data_tmp = full_data(idata)
43623  data_tmp = ishft(data_tmp, 10)
43624  pack_tmp = ior(pack_tmp, data_tmp)
43625  pack_tmp = ishft(pack_tmp, -2)
43626  idata = idata + 1
43627  data_tmp = full_data(idata)
43628  data_tmp = ishft(data_tmp, 10)
43629  data_tmp = iand(data_tmp, mask_left(2))
43630  pack_tmp = ior(pack_tmp, data_tmp)
43631  ipack = ipack + 1
43632  packed_data(ipack) = pack_tmp
43633  data_tmp = full_data(idata)
43634  pack_tmp = ishft(data_tmp, 12)
43635  pack_tmp = ishft(pack_tmp, -12)
43636  idata = idata + 1
43637  data_tmp = full_data(idata)
43638  data_tmp = ishft(data_tmp, 10)
43639  data_tmp = iand(data_tmp, mask_left(12))
43640  pack_tmp = ior(pack_tmp, data_tmp)
43641  ipack = ipack + 1
43642  packed_data(ipack) = pack_tmp
43643  data_tmp = full_data(idata)
43644  pack_tmp = ishft(data_tmp, 22)
43645  pack_tmp = ishft(pack_tmp, -22)
43646  idata = idata + 1
43647  data_tmp = full_data(idata)
43648  data_tmp = ishft(data_tmp, 10)
43649  data_tmp = iand(data_tmp, mask_left(22))
43650  pack_tmp = ior(pack_tmp, data_tmp)
43651  ipack = ipack + 1
43652  packed_data(ipack) = pack_tmp
43653  data_tmp = full_data(idata)
43654  pack_tmp = ishft(data_tmp, 32)
43655  pack_tmp = ishft(pack_tmp, -32)
43656  idata = idata + 1
43657  data_tmp = full_data(idata)
43658  data_tmp = ishft(data_tmp, 10)
43659  data_tmp = iand(data_tmp, mask_left(32))
43660  pack_tmp = ior(pack_tmp, data_tmp)
43661  ipack = ipack + 1
43662  packed_data(ipack) = pack_tmp
43663  data_tmp = full_data(idata)
43664  pack_tmp = ishft(data_tmp, 42)
43665  pack_tmp = ishft(pack_tmp, -42)
43666  idata = idata + 1
43667  data_tmp = full_data(idata)
43668  data_tmp = ishft(data_tmp, 10)
43669  data_tmp = iand(data_tmp, mask_left(42))
43670  pack_tmp = ior(pack_tmp, data_tmp)
43671  ipack = ipack + 1
43672  packed_data(ipack) = pack_tmp
43673  data_tmp = full_data(idata)
43674  pack_tmp = ishft(data_tmp, 52)
43675  pack_tmp = ishft(pack_tmp, -52)
43676  idata = idata + 1
43677  data_tmp = full_data(idata)
43678  data_tmp = ishft(data_tmp, 10)
43679  data_tmp = iand(data_tmp, mask_left(52))
43680  pack_tmp = ior(pack_tmp, data_tmp)
43681  ipack = ipack + 1
43682  packed_data(ipack) = pack_tmp
43683  data_tmp = full_data(idata)
43684  pack_tmp = ishft(data_tmp, 62)
43685  pack_tmp = ishft(pack_tmp, -54)
43686  idata = idata + 1
43687  data_tmp = full_data(idata)
43688  data_tmp = ishft(data_tmp, 10)
43689  pack_tmp = ior(pack_tmp, data_tmp)
43690  pack_tmp = ishft(pack_tmp, -8)
43691  idata = idata + 1
43692  data_tmp = full_data(idata)
43693  data_tmp = ishft(data_tmp, 10)
43694  data_tmp = iand(data_tmp, mask_left(8))
43695  pack_tmp = ior(pack_tmp, data_tmp)
43696  ipack = ipack + 1
43697  packed_data(ipack) = pack_tmp
43698  data_tmp = full_data(idata)
43699  pack_tmp = ishft(data_tmp, 18)
43700  pack_tmp = ishft(pack_tmp, -18)
43701  idata = idata + 1
43702  data_tmp = full_data(idata)
43703  data_tmp = ishft(data_tmp, 10)
43704  data_tmp = iand(data_tmp, mask_left(18))
43705  pack_tmp = ior(pack_tmp, data_tmp)
43706  ipack = ipack + 1
43707  packed_data(ipack) = pack_tmp
43708  data_tmp = full_data(idata)
43709  pack_tmp = ishft(data_tmp, 28)
43710  pack_tmp = ishft(pack_tmp, -28)
43711  idata = idata + 1
43712  data_tmp = full_data(idata)
43713  data_tmp = ishft(data_tmp, 10)
43714  data_tmp = iand(data_tmp, mask_left(28))
43715  pack_tmp = ior(pack_tmp, data_tmp)
43716  ipack = ipack + 1
43717  packed_data(ipack) = pack_tmp
43718  data_tmp = full_data(idata)
43719  pack_tmp = ishft(data_tmp, 38)
43720  pack_tmp = ishft(pack_tmp, -38)
43721  idata = idata + 1
43722  data_tmp = full_data(idata)
43723  data_tmp = ishft(data_tmp, 10)
43724  data_tmp = iand(data_tmp, mask_left(38))
43725  pack_tmp = ior(pack_tmp, data_tmp)
43726  ipack = ipack + 1
43727  packed_data(ipack) = pack_tmp
43728  data_tmp = full_data(idata)
43729  pack_tmp = ishft(data_tmp, 48)
43730  pack_tmp = ishft(pack_tmp, -48)
43731  idata = idata + 1
43732  data_tmp = full_data(idata)
43733  data_tmp = ishft(data_tmp, 10)
43734  data_tmp = iand(data_tmp, mask_left(48))
43735  pack_tmp = ior(pack_tmp, data_tmp)
43736  ipack = ipack + 1
43737  packed_data(ipack) = pack_tmp
43738  data_tmp = full_data(idata)
43739  pack_tmp = ishft(data_tmp, 58)
43740  pack_tmp = ishft(pack_tmp, -54)
43741  idata = idata + 1
43742  data_tmp = full_data(idata)
43743  data_tmp = ishft(data_tmp, 10)
43744  pack_tmp = ior(pack_tmp, data_tmp)
43745  pack_tmp = ishft(pack_tmp, -4)
43746  idata = idata + 1
43747  data_tmp = full_data(idata)
43748  data_tmp = ishft(data_tmp, 10)
43749  data_tmp = iand(data_tmp, mask_left(4))
43750  pack_tmp = ior(pack_tmp, data_tmp)
43751  ipack = ipack + 1
43752  packed_data(ipack) = pack_tmp
43753  data_tmp = full_data(idata)
43754  pack_tmp = ishft(data_tmp, 14)
43755  pack_tmp = ishft(pack_tmp, -14)
43756  idata = idata + 1
43757  data_tmp = full_data(idata)
43758  data_tmp = ishft(data_tmp, 10)
43759  data_tmp = iand(data_tmp, mask_left(14))
43760  pack_tmp = ior(pack_tmp, data_tmp)
43761  ipack = ipack + 1
43762  packed_data(ipack) = pack_tmp
43763  data_tmp = full_data(idata)
43764  pack_tmp = ishft(data_tmp, 24)
43765  pack_tmp = ishft(pack_tmp, -24)
43766  idata = idata + 1
43767  data_tmp = full_data(idata)
43768  data_tmp = ishft(data_tmp, 10)
43769  data_tmp = iand(data_tmp, mask_left(24))
43770  pack_tmp = ior(pack_tmp, data_tmp)
43771  ipack = ipack + 1
43772  packed_data(ipack) = pack_tmp
43773  data_tmp = full_data(idata)
43774  pack_tmp = ishft(data_tmp, 34)
43775  pack_tmp = ishft(pack_tmp, -34)
43776  idata = idata + 1
43777  data_tmp = full_data(idata)
43778  data_tmp = ishft(data_tmp, 10)
43779  data_tmp = iand(data_tmp, mask_left(34))
43780  pack_tmp = ior(pack_tmp, data_tmp)
43781  ipack = ipack + 1
43782  packed_data(ipack) = pack_tmp
43783  data_tmp = full_data(idata)
43784  pack_tmp = ishft(data_tmp, 44)
43785  pack_tmp = ishft(pack_tmp, -44)
43786  idata = idata + 1
43787  data_tmp = full_data(idata)
43788  data_tmp = ishft(data_tmp, 10)
43789  data_tmp = iand(data_tmp, mask_left(44))
43790  pack_tmp = ior(pack_tmp, data_tmp)
43791  ipack = ipack + 1
43792  packed_data(ipack) = pack_tmp
43793  data_tmp = full_data(idata)
43794  pack_tmp = ishft(data_tmp, 54)
43795  pack_tmp = ishft(pack_tmp, -54)
43796  idata = idata + 1
43797  data_tmp = full_data(idata)
43798  data_tmp = ishft(data_tmp, 10)
43799  pack_tmp = ior(pack_tmp, data_tmp)
43800  pack_tmp = ishft(pack_tmp, 0)
43801  idata = idata + 1
43802  data_tmp = full_data(idata)
43803  data_tmp = ishft(data_tmp, 10)
43804  data_tmp = iand(data_tmp, mask_left(0))
43805  pack_tmp = ior(pack_tmp, data_tmp)
43806  ipack = ipack + 1
43807  packed_data(ipack) = pack_tmp
43808  data_tmp = full_data(idata)
43809  pack_tmp = ishft(data_tmp, 10)
43810  pack_tmp = ishft(pack_tmp, -10)
43811  idata = idata + 1
43812  data_tmp = full_data(idata)
43813  data_tmp = ishft(data_tmp, 10)
43814  data_tmp = iand(data_tmp, mask_left(10))
43815  pack_tmp = ior(pack_tmp, data_tmp)
43816  ipack = ipack + 1
43817  packed_data(ipack) = pack_tmp
43818  data_tmp = full_data(idata)
43819  pack_tmp = ishft(data_tmp, 20)
43820  pack_tmp = ishft(pack_tmp, -20)
43821  idata = idata + 1
43822  data_tmp = full_data(idata)
43823  data_tmp = ishft(data_tmp, 10)
43824  data_tmp = iand(data_tmp, mask_left(20))
43825  pack_tmp = ior(pack_tmp, data_tmp)
43826  ipack = ipack + 1
43827  packed_data(ipack) = pack_tmp
43828  data_tmp = full_data(idata)
43829  pack_tmp = ishft(data_tmp, 30)
43830  pack_tmp = ishft(pack_tmp, -30)
43831  idata = idata + 1
43832  data_tmp = full_data(idata)
43833  data_tmp = ishft(data_tmp, 10)
43834  data_tmp = iand(data_tmp, mask_left(30))
43835  pack_tmp = ior(pack_tmp, data_tmp)
43836  ipack = ipack + 1
43837  packed_data(ipack) = pack_tmp
43838  data_tmp = full_data(idata)
43839  pack_tmp = ishft(data_tmp, 40)
43840  pack_tmp = ishft(pack_tmp, -40)
43841  idata = idata + 1
43842  data_tmp = full_data(idata)
43843  data_tmp = ishft(data_tmp, 10)
43844  data_tmp = iand(data_tmp, mask_left(40))
43845  pack_tmp = ior(pack_tmp, data_tmp)
43846  ipack = ipack + 1
43847  packed_data(ipack) = pack_tmp
43848  data_tmp = full_data(idata)
43849  pack_tmp = ishft(data_tmp, 50)
43850  pack_tmp = ishft(pack_tmp, -50)
43851  idata = idata + 1
43852  data_tmp = full_data(idata)
43853  data_tmp = ishft(data_tmp, 10)
43854  data_tmp = iand(data_tmp, mask_left(50))
43855  pack_tmp = ior(pack_tmp, data_tmp)
43856  ipack = ipack + 1
43857  packed_data(ipack) = pack_tmp
43858  data_tmp = full_data(idata)
43859  pack_tmp = ishft(data_tmp, 60)
43860  pack_tmp = ishft(pack_tmp, -54)
43861  idata = idata + 1
43862  data_tmp = full_data(idata)
43863  data_tmp = ishft(data_tmp, 10)
43864  pack_tmp = ior(pack_tmp, data_tmp)
43865  pack_tmp = ishft(pack_tmp, -6)
43866  idata = idata + 1
43867  data_tmp = full_data(idata)
43868  data_tmp = ishft(data_tmp, 10)
43869  data_tmp = iand(data_tmp, mask_left(6))
43870  pack_tmp = ior(pack_tmp, data_tmp)
43871  ipack = ipack + 1
43872  packed_data(ipack) = pack_tmp
43873  data_tmp = full_data(idata)
43874  pack_tmp = ishft(data_tmp, 16)
43875  pack_tmp = ishft(pack_tmp, -16)
43876  idata = idata + 1
43877  data_tmp = full_data(idata)
43878  data_tmp = ishft(data_tmp, 10)
43879  data_tmp = iand(data_tmp, mask_left(16))
43880  pack_tmp = ior(pack_tmp, data_tmp)
43881  ipack = ipack + 1
43882  packed_data(ipack) = pack_tmp
43883  data_tmp = full_data(idata)
43884  pack_tmp = ishft(data_tmp, 26)
43885  pack_tmp = ishft(pack_tmp, -26)
43886  idata = idata + 1
43887  data_tmp = full_data(idata)
43888  data_tmp = ishft(data_tmp, 10)
43889  data_tmp = iand(data_tmp, mask_left(26))
43890  pack_tmp = ior(pack_tmp, data_tmp)
43891  ipack = ipack + 1
43892  packed_data(ipack) = pack_tmp
43893  data_tmp = full_data(idata)
43894  pack_tmp = ishft(data_tmp, 36)
43895  pack_tmp = ishft(pack_tmp, -36)
43896  idata = idata + 1
43897  data_tmp = full_data(idata)
43898  data_tmp = ishft(data_tmp, 10)
43899  data_tmp = iand(data_tmp, mask_left(36))
43900  pack_tmp = ior(pack_tmp, data_tmp)
43901  ipack = ipack + 1
43902  packed_data(ipack) = pack_tmp
43903  data_tmp = full_data(idata)
43904  pack_tmp = ishft(data_tmp, 46)
43905  pack_tmp = ishft(pack_tmp, -46)
43906  idata = idata + 1
43907  data_tmp = full_data(idata)
43908  data_tmp = ishft(data_tmp, 10)
43909  data_tmp = iand(data_tmp, mask_left(46))
43910  pack_tmp = ior(pack_tmp, data_tmp)
43911  ipack = ipack + 1
43912  packed_data(ipack) = pack_tmp
43913  data_tmp = full_data(idata)
43914  pack_tmp = ishft(data_tmp, 56)
43915  pack_tmp = ishft(pack_tmp, -54)
43916  idata = idata + 1
43917  data_tmp = full_data(idata)
43918  data_tmp = ishft(data_tmp, 10)
43919  pack_tmp = ior(pack_tmp, data_tmp)
43920  pack_tmp = ishft(pack_tmp, -2)
43921  idata = idata + 1
43922  data_tmp = full_data(idata)
43923  data_tmp = ishft(data_tmp, 10)
43924  data_tmp = iand(data_tmp, mask_left(2))
43925  pack_tmp = ior(pack_tmp, data_tmp)
43926  ipack = ipack + 1
43927  packed_data(ipack) = pack_tmp
43928  data_tmp = full_data(idata)
43929  pack_tmp = ishft(data_tmp, 12)
43930  pack_tmp = ishft(pack_tmp, -12)
43931  idata = idata + 1
43932  data_tmp = full_data(idata)
43933  data_tmp = ishft(data_tmp, 10)
43934  data_tmp = iand(data_tmp, mask_left(12))
43935  pack_tmp = ior(pack_tmp, data_tmp)
43936  ipack = ipack + 1
43937  packed_data(ipack) = pack_tmp
43938  data_tmp = full_data(idata)
43939  pack_tmp = ishft(data_tmp, 22)
43940  pack_tmp = ishft(pack_tmp, -22)
43941  idata = idata + 1
43942  data_tmp = full_data(idata)
43943  data_tmp = ishft(data_tmp, 10)
43944  data_tmp = iand(data_tmp, mask_left(22))
43945  pack_tmp = ior(pack_tmp, data_tmp)
43946  ipack = ipack + 1
43947  packed_data(ipack) = pack_tmp
43948  data_tmp = full_data(idata)
43949  pack_tmp = ishft(data_tmp, 32)
43950  pack_tmp = ishft(pack_tmp, -32)
43951  idata = idata + 1
43952  data_tmp = full_data(idata)
43953  data_tmp = ishft(data_tmp, 10)
43954  data_tmp = iand(data_tmp, mask_left(32))
43955  pack_tmp = ior(pack_tmp, data_tmp)
43956  ipack = ipack + 1
43957  packed_data(ipack) = pack_tmp
43958  data_tmp = full_data(idata)
43959  pack_tmp = ishft(data_tmp, 42)
43960  pack_tmp = ishft(pack_tmp, -42)
43961  idata = idata + 1
43962  data_tmp = full_data(idata)
43963  data_tmp = ishft(data_tmp, 10)
43964  data_tmp = iand(data_tmp, mask_left(42))
43965  pack_tmp = ior(pack_tmp, data_tmp)
43966  ipack = ipack + 1
43967  packed_data(ipack) = pack_tmp
43968  data_tmp = full_data(idata)
43969  pack_tmp = ishft(data_tmp, 52)
43970  pack_tmp = ishft(pack_tmp, -52)
43971  idata = idata + 1
43972  data_tmp = full_data(idata)
43973  data_tmp = ishft(data_tmp, 10)
43974  data_tmp = iand(data_tmp, mask_left(52))
43975  pack_tmp = ior(pack_tmp, data_tmp)
43976  ipack = ipack + 1
43977  packed_data(ipack) = pack_tmp
43978  data_tmp = full_data(idata)
43979  pack_tmp = ishft(data_tmp, 62)
43980  pack_tmp = ishft(pack_tmp, -54)
43981  idata = idata + 1
43982  data_tmp = full_data(idata)
43983  data_tmp = ishft(data_tmp, 10)
43984  pack_tmp = ior(pack_tmp, data_tmp)
43985  pack_tmp = ishft(pack_tmp, -8)
43986  idata = idata + 1
43987  data_tmp = full_data(idata)
43988  data_tmp = ishft(data_tmp, 10)
43989  data_tmp = iand(data_tmp, mask_left(8))
43990  pack_tmp = ior(pack_tmp, data_tmp)
43991  ipack = ipack + 1
43992  packed_data(ipack) = pack_tmp
43993  data_tmp = full_data(idata)
43994  pack_tmp = ishft(data_tmp, 18)
43995  pack_tmp = ishft(pack_tmp, -18)
43996  idata = idata + 1
43997  data_tmp = full_data(idata)
43998  data_tmp = ishft(data_tmp, 10)
43999  data_tmp = iand(data_tmp, mask_left(18))
44000  pack_tmp = ior(pack_tmp, data_tmp)
44001  ipack = ipack + 1
44002  packed_data(ipack) = pack_tmp
44003  data_tmp = full_data(idata)
44004  pack_tmp = ishft(data_tmp, 28)
44005  pack_tmp = ishft(pack_tmp, -28)
44006  idata = idata + 1
44007  data_tmp = full_data(idata)
44008  data_tmp = ishft(data_tmp, 10)
44009  data_tmp = iand(data_tmp, mask_left(28))
44010  pack_tmp = ior(pack_tmp, data_tmp)
44011  ipack = ipack + 1
44012  packed_data(ipack) = pack_tmp
44013  data_tmp = full_data(idata)
44014  pack_tmp = ishft(data_tmp, 38)
44015  pack_tmp = ishft(pack_tmp, -38)
44016  idata = idata + 1
44017  data_tmp = full_data(idata)
44018  data_tmp = ishft(data_tmp, 10)
44019  data_tmp = iand(data_tmp, mask_left(38))
44020  pack_tmp = ior(pack_tmp, data_tmp)
44021  ipack = ipack + 1
44022  packed_data(ipack) = pack_tmp
44023  data_tmp = full_data(idata)
44024  pack_tmp = ishft(data_tmp, 48)
44025  pack_tmp = ishft(pack_tmp, -48)
44026  idata = idata + 1
44027  data_tmp = full_data(idata)
44028  data_tmp = ishft(data_tmp, 10)
44029  data_tmp = iand(data_tmp, mask_left(48))
44030  pack_tmp = ior(pack_tmp, data_tmp)
44031  ipack = ipack + 1
44032  packed_data(ipack) = pack_tmp
44033  data_tmp = full_data(idata)
44034  pack_tmp = ishft(data_tmp, 58)
44035  pack_tmp = ishft(pack_tmp, -54)
44036  idata = idata + 1
44037  data_tmp = full_data(idata)
44038  data_tmp = ishft(data_tmp, 10)
44039  pack_tmp = ior(pack_tmp, data_tmp)
44040  pack_tmp = ishft(pack_tmp, -4)
44041  idata = idata + 1
44042  data_tmp = full_data(idata)
44043  data_tmp = ishft(data_tmp, 10)
44044  data_tmp = iand(data_tmp, mask_left(4))
44045  pack_tmp = ior(pack_tmp, data_tmp)
44046  ipack = ipack + 1
44047  packed_data(ipack) = pack_tmp
44048  data_tmp = full_data(idata)
44049  pack_tmp = ishft(data_tmp, 14)
44050  pack_tmp = ishft(pack_tmp, -14)
44051  idata = idata + 1
44052  data_tmp = full_data(idata)
44053  data_tmp = ishft(data_tmp, 10)
44054  data_tmp = iand(data_tmp, mask_left(14))
44055  pack_tmp = ior(pack_tmp, data_tmp)
44056  ipack = ipack + 1
44057  packed_data(ipack) = pack_tmp
44058  data_tmp = full_data(idata)
44059  pack_tmp = ishft(data_tmp, 24)
44060  pack_tmp = ishft(pack_tmp, -24)
44061  idata = idata + 1
44062  data_tmp = full_data(idata)
44063  data_tmp = ishft(data_tmp, 10)
44064  data_tmp = iand(data_tmp, mask_left(24))
44065  pack_tmp = ior(pack_tmp, data_tmp)
44066  ipack = ipack + 1
44067  packed_data(ipack) = pack_tmp
44068  data_tmp = full_data(idata)
44069  pack_tmp = ishft(data_tmp, 34)
44070  pack_tmp = ishft(pack_tmp, -34)
44071  idata = idata + 1
44072  data_tmp = full_data(idata)
44073  data_tmp = ishft(data_tmp, 10)
44074  data_tmp = iand(data_tmp, mask_left(34))
44075  pack_tmp = ior(pack_tmp, data_tmp)
44076  ipack = ipack + 1
44077  packed_data(ipack) = pack_tmp
44078  data_tmp = full_data(idata)
44079  pack_tmp = ishft(data_tmp, 44)
44080  pack_tmp = ishft(pack_tmp, -44)
44081  idata = idata + 1
44082  data_tmp = full_data(idata)
44083  data_tmp = ishft(data_tmp, 10)
44084  data_tmp = iand(data_tmp, mask_left(44))
44085  pack_tmp = ior(pack_tmp, data_tmp)
44086  ipack = ipack + 1
44087  packed_data(ipack) = pack_tmp
44088  data_tmp = full_data(idata)
44089  pack_tmp = ishft(data_tmp, 54)
44090  pack_tmp = ishft(pack_tmp, -54)
44091  idata = idata + 1
44092  data_tmp = full_data(idata)
44093  data_tmp = ishft(data_tmp, 10)
44094  pack_tmp = ior(pack_tmp, data_tmp)
44095  pack_tmp = ishft(pack_tmp, 0)
44096  pack_tmp = ishft(pack_tmp, 0)
44097  ipack = ipack + 1
44098  packed_data(ipack) = pack_tmp
44099  END DO
44100  IF (ndata_rep < ndata) THEN
44101  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
44102  END IF
44103  END SUBROUTINE ints2bits_54
44104 
44105 ! **************************************************************************************************
44106 !> \brief ...
44107 !> \param Ndata ...
44108 !> \param packed_data ...
44109 !> \param full_data ...
44110 ! **************************************************************************************************
44111  SUBROUTINE bits2ints_54(Ndata, packed_data, full_data)
44112  INTEGER, INTENT(IN) :: Ndata
44113  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
44114  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
44115 
44116  INTEGER, PARAMETER :: Nbits = 54
44117 
44118  INTEGER :: idata, ipack, kdata, Ndata_rep
44119  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
44120 
44121  ipack = 0
44122  idata = 0
44123  pack_tmp = 0
44124  ndata_rep = (ndata/64)*64
44125  DO kdata = 1, ndata_rep, 64
44126  idata = idata + 1
44127  data_tmp = ishft(pack_tmp, 54)
44128  ipack = ipack + 1
44129  pack_tmp = packed_data(ipack)
44130  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
44131  pack_tmp = ishft(pack_tmp, -54)
44132  idata = idata + 1
44133  data_tmp = ishft(pack_tmp, 44)
44134  ipack = ipack + 1
44135  pack_tmp = packed_data(ipack)
44136  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
44137  pack_tmp = ishft(pack_tmp, -44)
44138  idata = idata + 1
44139  data_tmp = ishft(pack_tmp, 34)
44140  ipack = ipack + 1
44141  pack_tmp = packed_data(ipack)
44142  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
44143  pack_tmp = ishft(pack_tmp, -34)
44144  idata = idata + 1
44145  data_tmp = ishft(pack_tmp, 24)
44146  ipack = ipack + 1
44147  pack_tmp = packed_data(ipack)
44148  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
44149  pack_tmp = ishft(pack_tmp, -24)
44150  idata = idata + 1
44151  data_tmp = ishft(pack_tmp, 14)
44152  ipack = ipack + 1
44153  pack_tmp = packed_data(ipack)
44154  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
44155  pack_tmp = ishft(pack_tmp, -14)
44156  idata = idata + 1
44157  data_tmp = ishft(pack_tmp, 4)
44158  ipack = ipack + 1
44159  pack_tmp = packed_data(ipack)
44160  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
44161  pack_tmp = ishft(pack_tmp, -4)
44162  idata = idata + 1
44163  data_tmp = iand(pack_tmp, mask_right(nbits))
44164  full_data(idata) = data_tmp
44165  pack_tmp = ishft(pack_tmp, -nbits)
44166  idata = idata + 1
44167  data_tmp = ishft(pack_tmp, 48)
44168  ipack = ipack + 1
44169  pack_tmp = packed_data(ipack)
44170  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
44171  pack_tmp = ishft(pack_tmp, -48)
44172  idata = idata + 1
44173  data_tmp = ishft(pack_tmp, 38)
44174  ipack = ipack + 1
44175  pack_tmp = packed_data(ipack)
44176  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
44177  pack_tmp = ishft(pack_tmp, -38)
44178  idata = idata + 1
44179  data_tmp = ishft(pack_tmp, 28)
44180  ipack = ipack + 1
44181  pack_tmp = packed_data(ipack)
44182  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
44183  pack_tmp = ishft(pack_tmp, -28)
44184  idata = idata + 1
44185  data_tmp = ishft(pack_tmp, 18)
44186  ipack = ipack + 1
44187  pack_tmp = packed_data(ipack)
44188  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
44189  pack_tmp = ishft(pack_tmp, -18)
44190  idata = idata + 1
44191  data_tmp = ishft(pack_tmp, 8)
44192  ipack = ipack + 1
44193  pack_tmp = packed_data(ipack)
44194  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
44195  pack_tmp = ishft(pack_tmp, -8)
44196  idata = idata + 1
44197  data_tmp = iand(pack_tmp, mask_right(nbits))
44198  full_data(idata) = data_tmp
44199  pack_tmp = ishft(pack_tmp, -nbits)
44200  idata = idata + 1
44201  data_tmp = ishft(pack_tmp, 52)
44202  ipack = ipack + 1
44203  pack_tmp = packed_data(ipack)
44204  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
44205  pack_tmp = ishft(pack_tmp, -52)
44206  idata = idata + 1
44207  data_tmp = ishft(pack_tmp, 42)
44208  ipack = ipack + 1
44209  pack_tmp = packed_data(ipack)
44210  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
44211  pack_tmp = ishft(pack_tmp, -42)
44212  idata = idata + 1
44213  data_tmp = ishft(pack_tmp, 32)
44214  ipack = ipack + 1
44215  pack_tmp = packed_data(ipack)
44216  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
44217  pack_tmp = ishft(pack_tmp, -32)
44218  idata = idata + 1
44219  data_tmp = ishft(pack_tmp, 22)
44220  ipack = ipack + 1
44221  pack_tmp = packed_data(ipack)
44222  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
44223  pack_tmp = ishft(pack_tmp, -22)
44224  idata = idata + 1
44225  data_tmp = ishft(pack_tmp, 12)
44226  ipack = ipack + 1
44227  pack_tmp = packed_data(ipack)
44228  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
44229  pack_tmp = ishft(pack_tmp, -12)
44230  idata = idata + 1
44231  data_tmp = ishft(pack_tmp, 2)
44232  ipack = ipack + 1
44233  pack_tmp = packed_data(ipack)
44234  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
44235  pack_tmp = ishft(pack_tmp, -2)
44236  idata = idata + 1
44237  data_tmp = iand(pack_tmp, mask_right(nbits))
44238  full_data(idata) = data_tmp
44239  pack_tmp = ishft(pack_tmp, -nbits)
44240  idata = idata + 1
44241  data_tmp = ishft(pack_tmp, 46)
44242  ipack = ipack + 1
44243  pack_tmp = packed_data(ipack)
44244  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
44245  pack_tmp = ishft(pack_tmp, -46)
44246  idata = idata + 1
44247  data_tmp = ishft(pack_tmp, 36)
44248  ipack = ipack + 1
44249  pack_tmp = packed_data(ipack)
44250  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
44251  pack_tmp = ishft(pack_tmp, -36)
44252  idata = idata + 1
44253  data_tmp = ishft(pack_tmp, 26)
44254  ipack = ipack + 1
44255  pack_tmp = packed_data(ipack)
44256  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
44257  pack_tmp = ishft(pack_tmp, -26)
44258  idata = idata + 1
44259  data_tmp = ishft(pack_tmp, 16)
44260  ipack = ipack + 1
44261  pack_tmp = packed_data(ipack)
44262  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
44263  pack_tmp = ishft(pack_tmp, -16)
44264  idata = idata + 1
44265  data_tmp = ishft(pack_tmp, 6)
44266  ipack = ipack + 1
44267  pack_tmp = packed_data(ipack)
44268  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
44269  pack_tmp = ishft(pack_tmp, -6)
44270  idata = idata + 1
44271  data_tmp = iand(pack_tmp, mask_right(nbits))
44272  full_data(idata) = data_tmp
44273  pack_tmp = ishft(pack_tmp, -nbits)
44274  idata = idata + 1
44275  data_tmp = ishft(pack_tmp, 50)
44276  ipack = ipack + 1
44277  pack_tmp = packed_data(ipack)
44278  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
44279  pack_tmp = ishft(pack_tmp, -50)
44280  idata = idata + 1
44281  data_tmp = ishft(pack_tmp, 40)
44282  ipack = ipack + 1
44283  pack_tmp = packed_data(ipack)
44284  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
44285  pack_tmp = ishft(pack_tmp, -40)
44286  idata = idata + 1
44287  data_tmp = ishft(pack_tmp, 30)
44288  ipack = ipack + 1
44289  pack_tmp = packed_data(ipack)
44290  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
44291  pack_tmp = ishft(pack_tmp, -30)
44292  idata = idata + 1
44293  data_tmp = ishft(pack_tmp, 20)
44294  ipack = ipack + 1
44295  pack_tmp = packed_data(ipack)
44296  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
44297  pack_tmp = ishft(pack_tmp, -20)
44298  idata = idata + 1
44299  data_tmp = ishft(pack_tmp, 10)
44300  ipack = ipack + 1
44301  pack_tmp = packed_data(ipack)
44302  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
44303  pack_tmp = ishft(pack_tmp, -10)
44304  idata = idata + 1
44305  data_tmp = iand(pack_tmp, mask_right(nbits))
44306  full_data(idata) = data_tmp
44307  pack_tmp = ishft(pack_tmp, -nbits)
44308  idata = idata + 1
44309  data_tmp = ishft(pack_tmp, 54)
44310  ipack = ipack + 1
44311  pack_tmp = packed_data(ipack)
44312  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
44313  pack_tmp = ishft(pack_tmp, -54)
44314  idata = idata + 1
44315  data_tmp = ishft(pack_tmp, 44)
44316  ipack = ipack + 1
44317  pack_tmp = packed_data(ipack)
44318  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
44319  pack_tmp = ishft(pack_tmp, -44)
44320  idata = idata + 1
44321  data_tmp = ishft(pack_tmp, 34)
44322  ipack = ipack + 1
44323  pack_tmp = packed_data(ipack)
44324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
44325  pack_tmp = ishft(pack_tmp, -34)
44326  idata = idata + 1
44327  data_tmp = ishft(pack_tmp, 24)
44328  ipack = ipack + 1
44329  pack_tmp = packed_data(ipack)
44330  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
44331  pack_tmp = ishft(pack_tmp, -24)
44332  idata = idata + 1
44333  data_tmp = ishft(pack_tmp, 14)
44334  ipack = ipack + 1
44335  pack_tmp = packed_data(ipack)
44336  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
44337  pack_tmp = ishft(pack_tmp, -14)
44338  idata = idata + 1
44339  data_tmp = ishft(pack_tmp, 4)
44340  ipack = ipack + 1
44341  pack_tmp = packed_data(ipack)
44342  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
44343  pack_tmp = ishft(pack_tmp, -4)
44344  idata = idata + 1
44345  data_tmp = iand(pack_tmp, mask_right(nbits))
44346  full_data(idata) = data_tmp
44347  pack_tmp = ishft(pack_tmp, -nbits)
44348  idata = idata + 1
44349  data_tmp = ishft(pack_tmp, 48)
44350  ipack = ipack + 1
44351  pack_tmp = packed_data(ipack)
44352  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
44353  pack_tmp = ishft(pack_tmp, -48)
44354  idata = idata + 1
44355  data_tmp = ishft(pack_tmp, 38)
44356  ipack = ipack + 1
44357  pack_tmp = packed_data(ipack)
44358  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
44359  pack_tmp = ishft(pack_tmp, -38)
44360  idata = idata + 1
44361  data_tmp = ishft(pack_tmp, 28)
44362  ipack = ipack + 1
44363  pack_tmp = packed_data(ipack)
44364  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
44365  pack_tmp = ishft(pack_tmp, -28)
44366  idata = idata + 1
44367  data_tmp = ishft(pack_tmp, 18)
44368  ipack = ipack + 1
44369  pack_tmp = packed_data(ipack)
44370  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
44371  pack_tmp = ishft(pack_tmp, -18)
44372  idata = idata + 1
44373  data_tmp = ishft(pack_tmp, 8)
44374  ipack = ipack + 1
44375  pack_tmp = packed_data(ipack)
44376  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
44377  pack_tmp = ishft(pack_tmp, -8)
44378  idata = idata + 1
44379  data_tmp = iand(pack_tmp, mask_right(nbits))
44380  full_data(idata) = data_tmp
44381  pack_tmp = ishft(pack_tmp, -nbits)
44382  idata = idata + 1
44383  data_tmp = ishft(pack_tmp, 52)
44384  ipack = ipack + 1
44385  pack_tmp = packed_data(ipack)
44386  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
44387  pack_tmp = ishft(pack_tmp, -52)
44388  idata = idata + 1
44389  data_tmp = ishft(pack_tmp, 42)
44390  ipack = ipack + 1
44391  pack_tmp = packed_data(ipack)
44392  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
44393  pack_tmp = ishft(pack_tmp, -42)
44394  idata = idata + 1
44395  data_tmp = ishft(pack_tmp, 32)
44396  ipack = ipack + 1
44397  pack_tmp = packed_data(ipack)
44398  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
44399  pack_tmp = ishft(pack_tmp, -32)
44400  idata = idata + 1
44401  data_tmp = ishft(pack_tmp, 22)
44402  ipack = ipack + 1
44403  pack_tmp = packed_data(ipack)
44404  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
44405  pack_tmp = ishft(pack_tmp, -22)
44406  idata = idata + 1
44407  data_tmp = ishft(pack_tmp, 12)
44408  ipack = ipack + 1
44409  pack_tmp = packed_data(ipack)
44410  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
44411  pack_tmp = ishft(pack_tmp, -12)
44412  idata = idata + 1
44413  data_tmp = ishft(pack_tmp, 2)
44414  ipack = ipack + 1
44415  pack_tmp = packed_data(ipack)
44416  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
44417  pack_tmp = ishft(pack_tmp, -2)
44418  idata = idata + 1
44419  data_tmp = iand(pack_tmp, mask_right(nbits))
44420  full_data(idata) = data_tmp
44421  pack_tmp = ishft(pack_tmp, -nbits)
44422  idata = idata + 1
44423  data_tmp = ishft(pack_tmp, 46)
44424  ipack = ipack + 1
44425  pack_tmp = packed_data(ipack)
44426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
44427  pack_tmp = ishft(pack_tmp, -46)
44428  idata = idata + 1
44429  data_tmp = ishft(pack_tmp, 36)
44430  ipack = ipack + 1
44431  pack_tmp = packed_data(ipack)
44432  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
44433  pack_tmp = ishft(pack_tmp, -36)
44434  idata = idata + 1
44435  data_tmp = ishft(pack_tmp, 26)
44436  ipack = ipack + 1
44437  pack_tmp = packed_data(ipack)
44438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
44439  pack_tmp = ishft(pack_tmp, -26)
44440  idata = idata + 1
44441  data_tmp = ishft(pack_tmp, 16)
44442  ipack = ipack + 1
44443  pack_tmp = packed_data(ipack)
44444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
44445  pack_tmp = ishft(pack_tmp, -16)
44446  idata = idata + 1
44447  data_tmp = ishft(pack_tmp, 6)
44448  ipack = ipack + 1
44449  pack_tmp = packed_data(ipack)
44450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
44451  pack_tmp = ishft(pack_tmp, -6)
44452  idata = idata + 1
44453  data_tmp = iand(pack_tmp, mask_right(nbits))
44454  full_data(idata) = data_tmp
44455  pack_tmp = ishft(pack_tmp, -nbits)
44456  idata = idata + 1
44457  data_tmp = ishft(pack_tmp, 50)
44458  ipack = ipack + 1
44459  pack_tmp = packed_data(ipack)
44460  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
44461  pack_tmp = ishft(pack_tmp, -50)
44462  idata = idata + 1
44463  data_tmp = ishft(pack_tmp, 40)
44464  ipack = ipack + 1
44465  pack_tmp = packed_data(ipack)
44466  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
44467  pack_tmp = ishft(pack_tmp, -40)
44468  idata = idata + 1
44469  data_tmp = ishft(pack_tmp, 30)
44470  ipack = ipack + 1
44471  pack_tmp = packed_data(ipack)
44472  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
44473  pack_tmp = ishft(pack_tmp, -30)
44474  idata = idata + 1
44475  data_tmp = ishft(pack_tmp, 20)
44476  ipack = ipack + 1
44477  pack_tmp = packed_data(ipack)
44478  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
44479  pack_tmp = ishft(pack_tmp, -20)
44480  idata = idata + 1
44481  data_tmp = ishft(pack_tmp, 10)
44482  ipack = ipack + 1
44483  pack_tmp = packed_data(ipack)
44484  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
44485  pack_tmp = ishft(pack_tmp, -10)
44486  idata = idata + 1
44487  data_tmp = iand(pack_tmp, mask_right(nbits))
44488  full_data(idata) = data_tmp
44489  pack_tmp = ishft(pack_tmp, -nbits)
44490  END DO
44491  IF (ndata_rep < ndata) THEN
44492  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
44493  END IF
44494  END SUBROUTINE bits2ints_54
44495 
44496 ! **************************************************************************************************
44497 !> \brief ...
44498 !> \param Ndata ...
44499 !> \param packed_data ...
44500 !> \param full_data ...
44501 ! **************************************************************************************************
44502  SUBROUTINE ints2bits_55(Ndata, packed_data, full_data)
44503  INTEGER, INTENT(IN) :: Ndata
44504  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
44505  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
44506 
44507  INTEGER, PARAMETER :: Nbits = 55
44508 
44509  INTEGER :: idata, ipack, kdata, Ndata_rep
44510  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
44511 
44512  idata = 0
44513  ipack = 0
44514  ndata_rep = (ndata/64)*64
44515  DO kdata = 1, ndata_rep, 64
44516  pack_tmp = 0
44517  idata = idata + 1
44518  data_tmp = full_data(idata)
44519  data_tmp = ishft(data_tmp, 9)
44520  pack_tmp = ior(pack_tmp, data_tmp)
44521  pack_tmp = ishft(pack_tmp, -9)
44522  idata = idata + 1
44523  data_tmp = full_data(idata)
44524  data_tmp = ishft(data_tmp, 9)
44525  data_tmp = iand(data_tmp, mask_left(9))
44526  pack_tmp = ior(pack_tmp, data_tmp)
44527  ipack = ipack + 1
44528  packed_data(ipack) = pack_tmp
44529  data_tmp = full_data(idata)
44530  pack_tmp = ishft(data_tmp, 18)
44531  pack_tmp = ishft(pack_tmp, -18)
44532  idata = idata + 1
44533  data_tmp = full_data(idata)
44534  data_tmp = ishft(data_tmp, 9)
44535  data_tmp = iand(data_tmp, mask_left(18))
44536  pack_tmp = ior(pack_tmp, data_tmp)
44537  ipack = ipack + 1
44538  packed_data(ipack) = pack_tmp
44539  data_tmp = full_data(idata)
44540  pack_tmp = ishft(data_tmp, 27)
44541  pack_tmp = ishft(pack_tmp, -27)
44542  idata = idata + 1
44543  data_tmp = full_data(idata)
44544  data_tmp = ishft(data_tmp, 9)
44545  data_tmp = iand(data_tmp, mask_left(27))
44546  pack_tmp = ior(pack_tmp, data_tmp)
44547  ipack = ipack + 1
44548  packed_data(ipack) = pack_tmp
44549  data_tmp = full_data(idata)
44550  pack_tmp = ishft(data_tmp, 36)
44551  pack_tmp = ishft(pack_tmp, -36)
44552  idata = idata + 1
44553  data_tmp = full_data(idata)
44554  data_tmp = ishft(data_tmp, 9)
44555  data_tmp = iand(data_tmp, mask_left(36))
44556  pack_tmp = ior(pack_tmp, data_tmp)
44557  ipack = ipack + 1
44558  packed_data(ipack) = pack_tmp
44559  data_tmp = full_data(idata)
44560  pack_tmp = ishft(data_tmp, 45)
44561  pack_tmp = ishft(pack_tmp, -45)
44562  idata = idata + 1
44563  data_tmp = full_data(idata)
44564  data_tmp = ishft(data_tmp, 9)
44565  data_tmp = iand(data_tmp, mask_left(45))
44566  pack_tmp = ior(pack_tmp, data_tmp)
44567  ipack = ipack + 1
44568  packed_data(ipack) = pack_tmp
44569  data_tmp = full_data(idata)
44570  pack_tmp = ishft(data_tmp, 54)
44571  pack_tmp = ishft(pack_tmp, -54)
44572  idata = idata + 1
44573  data_tmp = full_data(idata)
44574  data_tmp = ishft(data_tmp, 9)
44575  data_tmp = iand(data_tmp, mask_left(54))
44576  pack_tmp = ior(pack_tmp, data_tmp)
44577  ipack = ipack + 1
44578  packed_data(ipack) = pack_tmp
44579  data_tmp = full_data(idata)
44580  pack_tmp = ishft(data_tmp, 63)
44581  pack_tmp = ishft(pack_tmp, -55)
44582  idata = idata + 1
44583  data_tmp = full_data(idata)
44584  data_tmp = ishft(data_tmp, 9)
44585  pack_tmp = ior(pack_tmp, data_tmp)
44586  pack_tmp = ishft(pack_tmp, -8)
44587  idata = idata + 1
44588  data_tmp = full_data(idata)
44589  data_tmp = ishft(data_tmp, 9)
44590  data_tmp = iand(data_tmp, mask_left(8))
44591  pack_tmp = ior(pack_tmp, data_tmp)
44592  ipack = ipack + 1
44593  packed_data(ipack) = pack_tmp
44594  data_tmp = full_data(idata)
44595  pack_tmp = ishft(data_tmp, 17)
44596  pack_tmp = ishft(pack_tmp, -17)
44597  idata = idata + 1
44598  data_tmp = full_data(idata)
44599  data_tmp = ishft(data_tmp, 9)
44600  data_tmp = iand(data_tmp, mask_left(17))
44601  pack_tmp = ior(pack_tmp, data_tmp)
44602  ipack = ipack + 1
44603  packed_data(ipack) = pack_tmp
44604  data_tmp = full_data(idata)
44605  pack_tmp = ishft(data_tmp, 26)
44606  pack_tmp = ishft(pack_tmp, -26)
44607  idata = idata + 1
44608  data_tmp = full_data(idata)
44609  data_tmp = ishft(data_tmp, 9)
44610  data_tmp = iand(data_tmp, mask_left(26))
44611  pack_tmp = ior(pack_tmp, data_tmp)
44612  ipack = ipack + 1
44613  packed_data(ipack) = pack_tmp
44614  data_tmp = full_data(idata)
44615  pack_tmp = ishft(data_tmp, 35)
44616  pack_tmp = ishft(pack_tmp, -35)
44617  idata = idata + 1
44618  data_tmp = full_data(idata)
44619  data_tmp = ishft(data_tmp, 9)
44620  data_tmp = iand(data_tmp, mask_left(35))
44621  pack_tmp = ior(pack_tmp, data_tmp)
44622  ipack = ipack + 1
44623  packed_data(ipack) = pack_tmp
44624  data_tmp = full_data(idata)
44625  pack_tmp = ishft(data_tmp, 44)
44626  pack_tmp = ishft(pack_tmp, -44)
44627  idata = idata + 1
44628  data_tmp = full_data(idata)
44629  data_tmp = ishft(data_tmp, 9)
44630  data_tmp = iand(data_tmp, mask_left(44))
44631  pack_tmp = ior(pack_tmp, data_tmp)
44632  ipack = ipack + 1
44633  packed_data(ipack) = pack_tmp
44634  data_tmp = full_data(idata)
44635  pack_tmp = ishft(data_tmp, 53)
44636  pack_tmp = ishft(pack_tmp, -53)
44637  idata = idata + 1
44638  data_tmp = full_data(idata)
44639  data_tmp = ishft(data_tmp, 9)
44640  data_tmp = iand(data_tmp, mask_left(53))
44641  pack_tmp = ior(pack_tmp, data_tmp)
44642  ipack = ipack + 1
44643  packed_data(ipack) = pack_tmp
44644  data_tmp = full_data(idata)
44645  pack_tmp = ishft(data_tmp, 62)
44646  pack_tmp = ishft(pack_tmp, -55)
44647  idata = idata + 1
44648  data_tmp = full_data(idata)
44649  data_tmp = ishft(data_tmp, 9)
44650  pack_tmp = ior(pack_tmp, data_tmp)
44651  pack_tmp = ishft(pack_tmp, -7)
44652  idata = idata + 1
44653  data_tmp = full_data(idata)
44654  data_tmp = ishft(data_tmp, 9)
44655  data_tmp = iand(data_tmp, mask_left(7))
44656  pack_tmp = ior(pack_tmp, data_tmp)
44657  ipack = ipack + 1
44658  packed_data(ipack) = pack_tmp
44659  data_tmp = full_data(idata)
44660  pack_tmp = ishft(data_tmp, 16)
44661  pack_tmp = ishft(pack_tmp, -16)
44662  idata = idata + 1
44663  data_tmp = full_data(idata)
44664  data_tmp = ishft(data_tmp, 9)
44665  data_tmp = iand(data_tmp, mask_left(16))
44666  pack_tmp = ior(pack_tmp, data_tmp)
44667  ipack = ipack + 1
44668  packed_data(ipack) = pack_tmp
44669  data_tmp = full_data(idata)
44670  pack_tmp = ishft(data_tmp, 25)
44671  pack_tmp = ishft(pack_tmp, -25)
44672  idata = idata + 1
44673  data_tmp = full_data(idata)
44674  data_tmp = ishft(data_tmp, 9)
44675  data_tmp = iand(data_tmp, mask_left(25))
44676  pack_tmp = ior(pack_tmp, data_tmp)
44677  ipack = ipack + 1
44678  packed_data(ipack) = pack_tmp
44679  data_tmp = full_data(idata)
44680  pack_tmp = ishft(data_tmp, 34)
44681  pack_tmp = ishft(pack_tmp, -34)
44682  idata = idata + 1
44683  data_tmp = full_data(idata)
44684  data_tmp = ishft(data_tmp, 9)
44685  data_tmp = iand(data_tmp, mask_left(34))
44686  pack_tmp = ior(pack_tmp, data_tmp)
44687  ipack = ipack + 1
44688  packed_data(ipack) = pack_tmp
44689  data_tmp = full_data(idata)
44690  pack_tmp = ishft(data_tmp, 43)
44691  pack_tmp = ishft(pack_tmp, -43)
44692  idata = idata + 1
44693  data_tmp = full_data(idata)
44694  data_tmp = ishft(data_tmp, 9)
44695  data_tmp = iand(data_tmp, mask_left(43))
44696  pack_tmp = ior(pack_tmp, data_tmp)
44697  ipack = ipack + 1
44698  packed_data(ipack) = pack_tmp
44699  data_tmp = full_data(idata)
44700  pack_tmp = ishft(data_tmp, 52)
44701  pack_tmp = ishft(pack_tmp, -52)
44702  idata = idata + 1
44703  data_tmp = full_data(idata)
44704  data_tmp = ishft(data_tmp, 9)
44705  data_tmp = iand(data_tmp, mask_left(52))
44706  pack_tmp = ior(pack_tmp, data_tmp)
44707  ipack = ipack + 1
44708  packed_data(ipack) = pack_tmp
44709  data_tmp = full_data(idata)
44710  pack_tmp = ishft(data_tmp, 61)
44711  pack_tmp = ishft(pack_tmp, -55)
44712  idata = idata + 1
44713  data_tmp = full_data(idata)
44714  data_tmp = ishft(data_tmp, 9)
44715  pack_tmp = ior(pack_tmp, data_tmp)
44716  pack_tmp = ishft(pack_tmp, -6)
44717  idata = idata + 1
44718  data_tmp = full_data(idata)
44719  data_tmp = ishft(data_tmp, 9)
44720  data_tmp = iand(data_tmp, mask_left(6))
44721  pack_tmp = ior(pack_tmp, data_tmp)
44722  ipack = ipack + 1
44723  packed_data(ipack) = pack_tmp
44724  data_tmp = full_data(idata)
44725  pack_tmp = ishft(data_tmp, 15)
44726  pack_tmp = ishft(pack_tmp, -15)
44727  idata = idata + 1
44728  data_tmp = full_data(idata)
44729  data_tmp = ishft(data_tmp, 9)
44730  data_tmp = iand(data_tmp, mask_left(15))
44731  pack_tmp = ior(pack_tmp, data_tmp)
44732  ipack = ipack + 1
44733  packed_data(ipack) = pack_tmp
44734  data_tmp = full_data(idata)
44735  pack_tmp = ishft(data_tmp, 24)
44736  pack_tmp = ishft(pack_tmp, -24)
44737  idata = idata + 1
44738  data_tmp = full_data(idata)
44739  data_tmp = ishft(data_tmp, 9)
44740  data_tmp = iand(data_tmp, mask_left(24))
44741  pack_tmp = ior(pack_tmp, data_tmp)
44742  ipack = ipack + 1
44743  packed_data(ipack) = pack_tmp
44744  data_tmp = full_data(idata)
44745  pack_tmp = ishft(data_tmp, 33)
44746  pack_tmp = ishft(pack_tmp, -33)
44747  idata = idata + 1
44748  data_tmp = full_data(idata)
44749  data_tmp = ishft(data_tmp, 9)
44750  data_tmp = iand(data_tmp, mask_left(33))
44751  pack_tmp = ior(pack_tmp, data_tmp)
44752  ipack = ipack + 1
44753  packed_data(ipack) = pack_tmp
44754  data_tmp = full_data(idata)
44755  pack_tmp = ishft(data_tmp, 42)
44756  pack_tmp = ishft(pack_tmp, -42)
44757  idata = idata + 1
44758  data_tmp = full_data(idata)
44759  data_tmp = ishft(data_tmp, 9)
44760  data_tmp = iand(data_tmp, mask_left(42))
44761  pack_tmp = ior(pack_tmp, data_tmp)
44762  ipack = ipack + 1
44763  packed_data(ipack) = pack_tmp
44764  data_tmp = full_data(idata)
44765  pack_tmp = ishft(data_tmp, 51)
44766  pack_tmp = ishft(pack_tmp, -51)
44767  idata = idata + 1
44768  data_tmp = full_data(idata)
44769  data_tmp = ishft(data_tmp, 9)
44770  data_tmp = iand(data_tmp, mask_left(51))
44771  pack_tmp = ior(pack_tmp, data_tmp)
44772  ipack = ipack + 1
44773  packed_data(ipack) = pack_tmp
44774  data_tmp = full_data(idata)
44775  pack_tmp = ishft(data_tmp, 60)
44776  pack_tmp = ishft(pack_tmp, -55)
44777  idata = idata + 1
44778  data_tmp = full_data(idata)
44779  data_tmp = ishft(data_tmp, 9)
44780  pack_tmp = ior(pack_tmp, data_tmp)
44781  pack_tmp = ishft(pack_tmp, -5)
44782  idata = idata + 1
44783  data_tmp = full_data(idata)
44784  data_tmp = ishft(data_tmp, 9)
44785  data_tmp = iand(data_tmp, mask_left(5))
44786  pack_tmp = ior(pack_tmp, data_tmp)
44787  ipack = ipack + 1
44788  packed_data(ipack) = pack_tmp
44789  data_tmp = full_data(idata)
44790  pack_tmp = ishft(data_tmp, 14)
44791  pack_tmp = ishft(pack_tmp, -14)
44792  idata = idata + 1
44793  data_tmp = full_data(idata)
44794  data_tmp = ishft(data_tmp, 9)
44795  data_tmp = iand(data_tmp, mask_left(14))
44796  pack_tmp = ior(pack_tmp, data_tmp)
44797  ipack = ipack + 1
44798  packed_data(ipack) = pack_tmp
44799  data_tmp = full_data(idata)
44800  pack_tmp = ishft(data_tmp, 23)
44801  pack_tmp = ishft(pack_tmp, -23)
44802  idata = idata + 1
44803  data_tmp = full_data(idata)
44804  data_tmp = ishft(data_tmp, 9)
44805  data_tmp = iand(data_tmp, mask_left(23))
44806  pack_tmp = ior(pack_tmp, data_tmp)
44807  ipack = ipack + 1
44808  packed_data(ipack) = pack_tmp
44809  data_tmp = full_data(idata)
44810  pack_tmp = ishft(data_tmp, 32)
44811  pack_tmp = ishft(pack_tmp, -32)
44812  idata = idata + 1
44813  data_tmp = full_data(idata)
44814  data_tmp = ishft(data_tmp, 9)
44815  data_tmp = iand(data_tmp, mask_left(32))
44816  pack_tmp = ior(pack_tmp, data_tmp)
44817  ipack = ipack + 1
44818  packed_data(ipack) = pack_tmp
44819  data_tmp = full_data(idata)
44820  pack_tmp = ishft(data_tmp, 41)
44821  pack_tmp = ishft(pack_tmp, -41)
44822  idata = idata + 1
44823  data_tmp = full_data(idata)
44824  data_tmp = ishft(data_tmp, 9)
44825  data_tmp = iand(data_tmp, mask_left(41))
44826  pack_tmp = ior(pack_tmp, data_tmp)
44827  ipack = ipack + 1
44828  packed_data(ipack) = pack_tmp
44829  data_tmp = full_data(idata)
44830  pack_tmp = ishft(data_tmp, 50)
44831  pack_tmp = ishft(pack_tmp, -50)
44832  idata = idata + 1
44833  data_tmp = full_data(idata)
44834  data_tmp = ishft(data_tmp, 9)
44835  data_tmp = iand(data_tmp, mask_left(50))
44836  pack_tmp = ior(pack_tmp, data_tmp)
44837  ipack = ipack + 1
44838  packed_data(ipack) = pack_tmp
44839  data_tmp = full_data(idata)
44840  pack_tmp = ishft(data_tmp, 59)
44841  pack_tmp = ishft(pack_tmp, -55)
44842  idata = idata + 1
44843  data_tmp = full_data(idata)
44844  data_tmp = ishft(data_tmp, 9)
44845  pack_tmp = ior(pack_tmp, data_tmp)
44846  pack_tmp = ishft(pack_tmp, -4)
44847  idata = idata + 1
44848  data_tmp = full_data(idata)
44849  data_tmp = ishft(data_tmp, 9)
44850  data_tmp = iand(data_tmp, mask_left(4))
44851  pack_tmp = ior(pack_tmp, data_tmp)
44852  ipack = ipack + 1
44853  packed_data(ipack) = pack_tmp
44854  data_tmp = full_data(idata)
44855  pack_tmp = ishft(data_tmp, 13)
44856  pack_tmp = ishft(pack_tmp, -13)
44857  idata = idata + 1
44858  data_tmp = full_data(idata)
44859  data_tmp = ishft(data_tmp, 9)
44860  data_tmp = iand(data_tmp, mask_left(13))
44861  pack_tmp = ior(pack_tmp, data_tmp)
44862  ipack = ipack + 1
44863  packed_data(ipack) = pack_tmp
44864  data_tmp = full_data(idata)
44865  pack_tmp = ishft(data_tmp, 22)
44866  pack_tmp = ishft(pack_tmp, -22)
44867  idata = idata + 1
44868  data_tmp = full_data(idata)
44869  data_tmp = ishft(data_tmp, 9)
44870  data_tmp = iand(data_tmp, mask_left(22))
44871  pack_tmp = ior(pack_tmp, data_tmp)
44872  ipack = ipack + 1
44873  packed_data(ipack) = pack_tmp
44874  data_tmp = full_data(idata)
44875  pack_tmp = ishft(data_tmp, 31)
44876  pack_tmp = ishft(pack_tmp, -31)
44877  idata = idata + 1
44878  data_tmp = full_data(idata)
44879  data_tmp = ishft(data_tmp, 9)
44880  data_tmp = iand(data_tmp, mask_left(31))
44881  pack_tmp = ior(pack_tmp, data_tmp)
44882  ipack = ipack + 1
44883  packed_data(ipack) = pack_tmp
44884  data_tmp = full_data(idata)
44885  pack_tmp = ishft(data_tmp, 40)
44886  pack_tmp = ishft(pack_tmp, -40)
44887  idata = idata + 1
44888  data_tmp = full_data(idata)
44889  data_tmp = ishft(data_tmp, 9)
44890  data_tmp = iand(data_tmp, mask_left(40))
44891  pack_tmp = ior(pack_tmp, data_tmp)
44892  ipack = ipack + 1
44893  packed_data(ipack) = pack_tmp
44894  data_tmp = full_data(idata)
44895  pack_tmp = ishft(data_tmp, 49)
44896  pack_tmp = ishft(pack_tmp, -49)
44897  idata = idata + 1
44898  data_tmp = full_data(idata)
44899  data_tmp = ishft(data_tmp, 9)
44900  data_tmp = iand(data_tmp, mask_left(49))
44901  pack_tmp = ior(pack_tmp, data_tmp)
44902  ipack = ipack + 1
44903  packed_data(ipack) = pack_tmp
44904  data_tmp = full_data(idata)
44905  pack_tmp = ishft(data_tmp, 58)
44906  pack_tmp = ishft(pack_tmp, -55)
44907  idata = idata + 1
44908  data_tmp = full_data(idata)
44909  data_tmp = ishft(data_tmp, 9)
44910  pack_tmp = ior(pack_tmp, data_tmp)
44911  pack_tmp = ishft(pack_tmp, -3)
44912  idata = idata + 1
44913  data_tmp = full_data(idata)
44914  data_tmp = ishft(data_tmp, 9)
44915  data_tmp = iand(data_tmp, mask_left(3))
44916  pack_tmp = ior(pack_tmp, data_tmp)
44917  ipack = ipack + 1
44918  packed_data(ipack) = pack_tmp
44919  data_tmp = full_data(idata)
44920  pack_tmp = ishft(data_tmp, 12)
44921  pack_tmp = ishft(pack_tmp, -12)
44922  idata = idata + 1
44923  data_tmp = full_data(idata)
44924  data_tmp = ishft(data_tmp, 9)
44925  data_tmp = iand(data_tmp, mask_left(12))
44926  pack_tmp = ior(pack_tmp, data_tmp)
44927  ipack = ipack + 1
44928  packed_data(ipack) = pack_tmp
44929  data_tmp = full_data(idata)
44930  pack_tmp = ishft(data_tmp, 21)
44931  pack_tmp = ishft(pack_tmp, -21)
44932  idata = idata + 1
44933  data_tmp = full_data(idata)
44934  data_tmp = ishft(data_tmp, 9)
44935  data_tmp = iand(data_tmp, mask_left(21))
44936  pack_tmp = ior(pack_tmp, data_tmp)
44937  ipack = ipack + 1
44938  packed_data(ipack) = pack_tmp
44939  data_tmp = full_data(idata)
44940  pack_tmp = ishft(data_tmp, 30)
44941  pack_tmp = ishft(pack_tmp, -30)
44942  idata = idata + 1
44943  data_tmp = full_data(idata)
44944  data_tmp = ishft(data_tmp, 9)
44945  data_tmp = iand(data_tmp, mask_left(30))
44946  pack_tmp = ior(pack_tmp, data_tmp)
44947  ipack = ipack + 1
44948  packed_data(ipack) = pack_tmp
44949  data_tmp = full_data(idata)
44950  pack_tmp = ishft(data_tmp, 39)
44951  pack_tmp = ishft(pack_tmp, -39)
44952  idata = idata + 1
44953  data_tmp = full_data(idata)
44954  data_tmp = ishft(data_tmp, 9)
44955  data_tmp = iand(data_tmp, mask_left(39))
44956  pack_tmp = ior(pack_tmp, data_tmp)
44957  ipack = ipack + 1
44958  packed_data(ipack) = pack_tmp
44959  data_tmp = full_data(idata)
44960  pack_tmp = ishft(data_tmp, 48)
44961  pack_tmp = ishft(pack_tmp, -48)
44962  idata = idata + 1
44963  data_tmp = full_data(idata)
44964  data_tmp = ishft(data_tmp, 9)
44965  data_tmp = iand(data_tmp, mask_left(48))
44966  pack_tmp = ior(pack_tmp, data_tmp)
44967  ipack = ipack + 1
44968  packed_data(ipack) = pack_tmp
44969  data_tmp = full_data(idata)
44970  pack_tmp = ishft(data_tmp, 57)
44971  pack_tmp = ishft(pack_tmp, -55)
44972  idata = idata + 1
44973  data_tmp = full_data(idata)
44974  data_tmp = ishft(data_tmp, 9)
44975  pack_tmp = ior(pack_tmp, data_tmp)
44976  pack_tmp = ishft(pack_tmp, -2)
44977  idata = idata + 1
44978  data_tmp = full_data(idata)
44979  data_tmp = ishft(data_tmp, 9)
44980  data_tmp = iand(data_tmp, mask_left(2))
44981  pack_tmp = ior(pack_tmp, data_tmp)
44982  ipack = ipack + 1
44983  packed_data(ipack) = pack_tmp
44984  data_tmp = full_data(idata)
44985  pack_tmp = ishft(data_tmp, 11)
44986  pack_tmp = ishft(pack_tmp, -11)
44987  idata = idata + 1
44988  data_tmp = full_data(idata)
44989  data_tmp = ishft(data_tmp, 9)
44990  data_tmp = iand(data_tmp, mask_left(11))
44991  pack_tmp = ior(pack_tmp, data_tmp)
44992  ipack = ipack + 1
44993  packed_data(ipack) = pack_tmp
44994  data_tmp = full_data(idata)
44995  pack_tmp = ishft(data_tmp, 20)
44996  pack_tmp = ishft(pack_tmp, -20)
44997  idata = idata + 1
44998  data_tmp = full_data(idata)
44999  data_tmp = ishft(data_tmp, 9)
45000  data_tmp = iand(data_tmp, mask_left(20))
45001  pack_tmp = ior(pack_tmp, data_tmp)
45002  ipack = ipack + 1
45003  packed_data(ipack) = pack_tmp
45004  data_tmp = full_data(idata)
45005  pack_tmp = ishft(data_tmp, 29)
45006  pack_tmp = ishft(pack_tmp, -29)
45007  idata = idata + 1
45008  data_tmp = full_data(idata)
45009  data_tmp = ishft(data_tmp, 9)
45010  data_tmp = iand(data_tmp, mask_left(29))
45011  pack_tmp = ior(pack_tmp, data_tmp)
45012  ipack = ipack + 1
45013  packed_data(ipack) = pack_tmp
45014  data_tmp = full_data(idata)
45015  pack_tmp = ishft(data_tmp, 38)
45016  pack_tmp = ishft(pack_tmp, -38)
45017  idata = idata + 1
45018  data_tmp = full_data(idata)
45019  data_tmp = ishft(data_tmp, 9)
45020  data_tmp = iand(data_tmp, mask_left(38))
45021  pack_tmp = ior(pack_tmp, data_tmp)
45022  ipack = ipack + 1
45023  packed_data(ipack) = pack_tmp
45024  data_tmp = full_data(idata)
45025  pack_tmp = ishft(data_tmp, 47)
45026  pack_tmp = ishft(pack_tmp, -47)
45027  idata = idata + 1
45028  data_tmp = full_data(idata)
45029  data_tmp = ishft(data_tmp, 9)
45030  data_tmp = iand(data_tmp, mask_left(47))
45031  pack_tmp = ior(pack_tmp, data_tmp)
45032  ipack = ipack + 1
45033  packed_data(ipack) = pack_tmp
45034  data_tmp = full_data(idata)
45035  pack_tmp = ishft(data_tmp, 56)
45036  pack_tmp = ishft(pack_tmp, -55)
45037  idata = idata + 1
45038  data_tmp = full_data(idata)
45039  data_tmp = ishft(data_tmp, 9)
45040  pack_tmp = ior(pack_tmp, data_tmp)
45041  pack_tmp = ishft(pack_tmp, -1)
45042  idata = idata + 1
45043  data_tmp = full_data(idata)
45044  data_tmp = ishft(data_tmp, 9)
45045  data_tmp = iand(data_tmp, mask_left(1))
45046  pack_tmp = ior(pack_tmp, data_tmp)
45047  ipack = ipack + 1
45048  packed_data(ipack) = pack_tmp
45049  data_tmp = full_data(idata)
45050  pack_tmp = ishft(data_tmp, 10)
45051  pack_tmp = ishft(pack_tmp, -10)
45052  idata = idata + 1
45053  data_tmp = full_data(idata)
45054  data_tmp = ishft(data_tmp, 9)
45055  data_tmp = iand(data_tmp, mask_left(10))
45056  pack_tmp = ior(pack_tmp, data_tmp)
45057  ipack = ipack + 1
45058  packed_data(ipack) = pack_tmp
45059  data_tmp = full_data(idata)
45060  pack_tmp = ishft(data_tmp, 19)
45061  pack_tmp = ishft(pack_tmp, -19)
45062  idata = idata + 1
45063  data_tmp = full_data(idata)
45064  data_tmp = ishft(data_tmp, 9)
45065  data_tmp = iand(data_tmp, mask_left(19))
45066  pack_tmp = ior(pack_tmp, data_tmp)
45067  ipack = ipack + 1
45068  packed_data(ipack) = pack_tmp
45069  data_tmp = full_data(idata)
45070  pack_tmp = ishft(data_tmp, 28)
45071  pack_tmp = ishft(pack_tmp, -28)
45072  idata = idata + 1
45073  data_tmp = full_data(idata)
45074  data_tmp = ishft(data_tmp, 9)
45075  data_tmp = iand(data_tmp, mask_left(28))
45076  pack_tmp = ior(pack_tmp, data_tmp)
45077  ipack = ipack + 1
45078  packed_data(ipack) = pack_tmp
45079  data_tmp = full_data(idata)
45080  pack_tmp = ishft(data_tmp, 37)
45081  pack_tmp = ishft(pack_tmp, -37)
45082  idata = idata + 1
45083  data_tmp = full_data(idata)
45084  data_tmp = ishft(data_tmp, 9)
45085  data_tmp = iand(data_tmp, mask_left(37))
45086  pack_tmp = ior(pack_tmp, data_tmp)
45087  ipack = ipack + 1
45088  packed_data(ipack) = pack_tmp
45089  data_tmp = full_data(idata)
45090  pack_tmp = ishft(data_tmp, 46)
45091  pack_tmp = ishft(pack_tmp, -46)
45092  idata = idata + 1
45093  data_tmp = full_data(idata)
45094  data_tmp = ishft(data_tmp, 9)
45095  data_tmp = iand(data_tmp, mask_left(46))
45096  pack_tmp = ior(pack_tmp, data_tmp)
45097  ipack = ipack + 1
45098  packed_data(ipack) = pack_tmp
45099  data_tmp = full_data(idata)
45100  pack_tmp = ishft(data_tmp, 55)
45101  pack_tmp = ishft(pack_tmp, -55)
45102  idata = idata + 1
45103  data_tmp = full_data(idata)
45104  data_tmp = ishft(data_tmp, 9)
45105  pack_tmp = ior(pack_tmp, data_tmp)
45106  pack_tmp = ishft(pack_tmp, 0)
45107  pack_tmp = ishft(pack_tmp, 0)
45108  ipack = ipack + 1
45109  packed_data(ipack) = pack_tmp
45110  END DO
45111  IF (ndata_rep < ndata) THEN
45112  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
45113  END IF
45114  END SUBROUTINE ints2bits_55
45115 
45116 ! **************************************************************************************************
45117 !> \brief ...
45118 !> \param Ndata ...
45119 !> \param packed_data ...
45120 !> \param full_data ...
45121 ! **************************************************************************************************
45122  SUBROUTINE bits2ints_55(Ndata, packed_data, full_data)
45123  INTEGER, INTENT(IN) :: Ndata
45124  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
45125  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
45126 
45127  INTEGER, PARAMETER :: Nbits = 55
45128 
45129  INTEGER :: idata, ipack, kdata, Ndata_rep
45130  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
45131 
45132  ipack = 0
45133  idata = 0
45134  pack_tmp = 0
45135  ndata_rep = (ndata/64)*64
45136  DO kdata = 1, ndata_rep, 64
45137  idata = idata + 1
45138  data_tmp = ishft(pack_tmp, 55)
45139  ipack = ipack + 1
45140  pack_tmp = packed_data(ipack)
45141  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(55)))
45142  pack_tmp = ishft(pack_tmp, -55)
45143  idata = idata + 1
45144  data_tmp = ishft(pack_tmp, 46)
45145  ipack = ipack + 1
45146  pack_tmp = packed_data(ipack)
45147  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
45148  pack_tmp = ishft(pack_tmp, -46)
45149  idata = idata + 1
45150  data_tmp = ishft(pack_tmp, 37)
45151  ipack = ipack + 1
45152  pack_tmp = packed_data(ipack)
45153  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
45154  pack_tmp = ishft(pack_tmp, -37)
45155  idata = idata + 1
45156  data_tmp = ishft(pack_tmp, 28)
45157  ipack = ipack + 1
45158  pack_tmp = packed_data(ipack)
45159  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
45160  pack_tmp = ishft(pack_tmp, -28)
45161  idata = idata + 1
45162  data_tmp = ishft(pack_tmp, 19)
45163  ipack = ipack + 1
45164  pack_tmp = packed_data(ipack)
45165  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
45166  pack_tmp = ishft(pack_tmp, -19)
45167  idata = idata + 1
45168  data_tmp = ishft(pack_tmp, 10)
45169  ipack = ipack + 1
45170  pack_tmp = packed_data(ipack)
45171  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
45172  pack_tmp = ishft(pack_tmp, -10)
45173  idata = idata + 1
45174  data_tmp = ishft(pack_tmp, 1)
45175  ipack = ipack + 1
45176  pack_tmp = packed_data(ipack)
45177  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
45178  pack_tmp = ishft(pack_tmp, -1)
45179  idata = idata + 1
45180  data_tmp = iand(pack_tmp, mask_right(nbits))
45181  full_data(idata) = data_tmp
45182  pack_tmp = ishft(pack_tmp, -nbits)
45183  idata = idata + 1
45184  data_tmp = ishft(pack_tmp, 47)
45185  ipack = ipack + 1
45186  pack_tmp = packed_data(ipack)
45187  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
45188  pack_tmp = ishft(pack_tmp, -47)
45189  idata = idata + 1
45190  data_tmp = ishft(pack_tmp, 38)
45191  ipack = ipack + 1
45192  pack_tmp = packed_data(ipack)
45193  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
45194  pack_tmp = ishft(pack_tmp, -38)
45195  idata = idata + 1
45196  data_tmp = ishft(pack_tmp, 29)
45197  ipack = ipack + 1
45198  pack_tmp = packed_data(ipack)
45199  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
45200  pack_tmp = ishft(pack_tmp, -29)
45201  idata = idata + 1
45202  data_tmp = ishft(pack_tmp, 20)
45203  ipack = ipack + 1
45204  pack_tmp = packed_data(ipack)
45205  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
45206  pack_tmp = ishft(pack_tmp, -20)
45207  idata = idata + 1
45208  data_tmp = ishft(pack_tmp, 11)
45209  ipack = ipack + 1
45210  pack_tmp = packed_data(ipack)
45211  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
45212  pack_tmp = ishft(pack_tmp, -11)
45213  idata = idata + 1
45214  data_tmp = ishft(pack_tmp, 2)
45215  ipack = ipack + 1
45216  pack_tmp = packed_data(ipack)
45217  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
45218  pack_tmp = ishft(pack_tmp, -2)
45219  idata = idata + 1
45220  data_tmp = iand(pack_tmp, mask_right(nbits))
45221  full_data(idata) = data_tmp
45222  pack_tmp = ishft(pack_tmp, -nbits)
45223  idata = idata + 1
45224  data_tmp = ishft(pack_tmp, 48)
45225  ipack = ipack + 1
45226  pack_tmp = packed_data(ipack)
45227  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
45228  pack_tmp = ishft(pack_tmp, -48)
45229  idata = idata + 1
45230  data_tmp = ishft(pack_tmp, 39)
45231  ipack = ipack + 1
45232  pack_tmp = packed_data(ipack)
45233  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
45234  pack_tmp = ishft(pack_tmp, -39)
45235  idata = idata + 1
45236  data_tmp = ishft(pack_tmp, 30)
45237  ipack = ipack + 1
45238  pack_tmp = packed_data(ipack)
45239  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
45240  pack_tmp = ishft(pack_tmp, -30)
45241  idata = idata + 1
45242  data_tmp = ishft(pack_tmp, 21)
45243  ipack = ipack + 1
45244  pack_tmp = packed_data(ipack)
45245  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
45246  pack_tmp = ishft(pack_tmp, -21)
45247  idata = idata + 1
45248  data_tmp = ishft(pack_tmp, 12)
45249  ipack = ipack + 1
45250  pack_tmp = packed_data(ipack)
45251  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
45252  pack_tmp = ishft(pack_tmp, -12)
45253  idata = idata + 1
45254  data_tmp = ishft(pack_tmp, 3)
45255  ipack = ipack + 1
45256  pack_tmp = packed_data(ipack)
45257  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
45258  pack_tmp = ishft(pack_tmp, -3)
45259  idata = idata + 1
45260  data_tmp = iand(pack_tmp, mask_right(nbits))
45261  full_data(idata) = data_tmp
45262  pack_tmp = ishft(pack_tmp, -nbits)
45263  idata = idata + 1
45264  data_tmp = ishft(pack_tmp, 49)
45265  ipack = ipack + 1
45266  pack_tmp = packed_data(ipack)
45267  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
45268  pack_tmp = ishft(pack_tmp, -49)
45269  idata = idata + 1
45270  data_tmp = ishft(pack_tmp, 40)
45271  ipack = ipack + 1
45272  pack_tmp = packed_data(ipack)
45273  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
45274  pack_tmp = ishft(pack_tmp, -40)
45275  idata = idata + 1
45276  data_tmp = ishft(pack_tmp, 31)
45277  ipack = ipack + 1
45278  pack_tmp = packed_data(ipack)
45279  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
45280  pack_tmp = ishft(pack_tmp, -31)
45281  idata = idata + 1
45282  data_tmp = ishft(pack_tmp, 22)
45283  ipack = ipack + 1
45284  pack_tmp = packed_data(ipack)
45285  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
45286  pack_tmp = ishft(pack_tmp, -22)
45287  idata = idata + 1
45288  data_tmp = ishft(pack_tmp, 13)
45289  ipack = ipack + 1
45290  pack_tmp = packed_data(ipack)
45291  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
45292  pack_tmp = ishft(pack_tmp, -13)
45293  idata = idata + 1
45294  data_tmp = ishft(pack_tmp, 4)
45295  ipack = ipack + 1
45296  pack_tmp = packed_data(ipack)
45297  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
45298  pack_tmp = ishft(pack_tmp, -4)
45299  idata = idata + 1
45300  data_tmp = iand(pack_tmp, mask_right(nbits))
45301  full_data(idata) = data_tmp
45302  pack_tmp = ishft(pack_tmp, -nbits)
45303  idata = idata + 1
45304  data_tmp = ishft(pack_tmp, 50)
45305  ipack = ipack + 1
45306  pack_tmp = packed_data(ipack)
45307  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
45308  pack_tmp = ishft(pack_tmp, -50)
45309  idata = idata + 1
45310  data_tmp = ishft(pack_tmp, 41)
45311  ipack = ipack + 1
45312  pack_tmp = packed_data(ipack)
45313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
45314  pack_tmp = ishft(pack_tmp, -41)
45315  idata = idata + 1
45316  data_tmp = ishft(pack_tmp, 32)
45317  ipack = ipack + 1
45318  pack_tmp = packed_data(ipack)
45319  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
45320  pack_tmp = ishft(pack_tmp, -32)
45321  idata = idata + 1
45322  data_tmp = ishft(pack_tmp, 23)
45323  ipack = ipack + 1
45324  pack_tmp = packed_data(ipack)
45325  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
45326  pack_tmp = ishft(pack_tmp, -23)
45327  idata = idata + 1
45328  data_tmp = ishft(pack_tmp, 14)
45329  ipack = ipack + 1
45330  pack_tmp = packed_data(ipack)
45331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
45332  pack_tmp = ishft(pack_tmp, -14)
45333  idata = idata + 1
45334  data_tmp = ishft(pack_tmp, 5)
45335  ipack = ipack + 1
45336  pack_tmp = packed_data(ipack)
45337  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
45338  pack_tmp = ishft(pack_tmp, -5)
45339  idata = idata + 1
45340  data_tmp = iand(pack_tmp, mask_right(nbits))
45341  full_data(idata) = data_tmp
45342  pack_tmp = ishft(pack_tmp, -nbits)
45343  idata = idata + 1
45344  data_tmp = ishft(pack_tmp, 51)
45345  ipack = ipack + 1
45346  pack_tmp = packed_data(ipack)
45347  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
45348  pack_tmp = ishft(pack_tmp, -51)
45349  idata = idata + 1
45350  data_tmp = ishft(pack_tmp, 42)
45351  ipack = ipack + 1
45352  pack_tmp = packed_data(ipack)
45353  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
45354  pack_tmp = ishft(pack_tmp, -42)
45355  idata = idata + 1
45356  data_tmp = ishft(pack_tmp, 33)
45357  ipack = ipack + 1
45358  pack_tmp = packed_data(ipack)
45359  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
45360  pack_tmp = ishft(pack_tmp, -33)
45361  idata = idata + 1
45362  data_tmp = ishft(pack_tmp, 24)
45363  ipack = ipack + 1
45364  pack_tmp = packed_data(ipack)
45365  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
45366  pack_tmp = ishft(pack_tmp, -24)
45367  idata = idata + 1
45368  data_tmp = ishft(pack_tmp, 15)
45369  ipack = ipack + 1
45370  pack_tmp = packed_data(ipack)
45371  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
45372  pack_tmp = ishft(pack_tmp, -15)
45373  idata = idata + 1
45374  data_tmp = ishft(pack_tmp, 6)
45375  ipack = ipack + 1
45376  pack_tmp = packed_data(ipack)
45377  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
45378  pack_tmp = ishft(pack_tmp, -6)
45379  idata = idata + 1
45380  data_tmp = iand(pack_tmp, mask_right(nbits))
45381  full_data(idata) = data_tmp
45382  pack_tmp = ishft(pack_tmp, -nbits)
45383  idata = idata + 1
45384  data_tmp = ishft(pack_tmp, 52)
45385  ipack = ipack + 1
45386  pack_tmp = packed_data(ipack)
45387  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
45388  pack_tmp = ishft(pack_tmp, -52)
45389  idata = idata + 1
45390  data_tmp = ishft(pack_tmp, 43)
45391  ipack = ipack + 1
45392  pack_tmp = packed_data(ipack)
45393  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
45394  pack_tmp = ishft(pack_tmp, -43)
45395  idata = idata + 1
45396  data_tmp = ishft(pack_tmp, 34)
45397  ipack = ipack + 1
45398  pack_tmp = packed_data(ipack)
45399  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
45400  pack_tmp = ishft(pack_tmp, -34)
45401  idata = idata + 1
45402  data_tmp = ishft(pack_tmp, 25)
45403  ipack = ipack + 1
45404  pack_tmp = packed_data(ipack)
45405  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
45406  pack_tmp = ishft(pack_tmp, -25)
45407  idata = idata + 1
45408  data_tmp = ishft(pack_tmp, 16)
45409  ipack = ipack + 1
45410  pack_tmp = packed_data(ipack)
45411  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
45412  pack_tmp = ishft(pack_tmp, -16)
45413  idata = idata + 1
45414  data_tmp = ishft(pack_tmp, 7)
45415  ipack = ipack + 1
45416  pack_tmp = packed_data(ipack)
45417  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
45418  pack_tmp = ishft(pack_tmp, -7)
45419  idata = idata + 1
45420  data_tmp = iand(pack_tmp, mask_right(nbits))
45421  full_data(idata) = data_tmp
45422  pack_tmp = ishft(pack_tmp, -nbits)
45423  idata = idata + 1
45424  data_tmp = ishft(pack_tmp, 53)
45425  ipack = ipack + 1
45426  pack_tmp = packed_data(ipack)
45427  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
45428  pack_tmp = ishft(pack_tmp, -53)
45429  idata = idata + 1
45430  data_tmp = ishft(pack_tmp, 44)
45431  ipack = ipack + 1
45432  pack_tmp = packed_data(ipack)
45433  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
45434  pack_tmp = ishft(pack_tmp, -44)
45435  idata = idata + 1
45436  data_tmp = ishft(pack_tmp, 35)
45437  ipack = ipack + 1
45438  pack_tmp = packed_data(ipack)
45439  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
45440  pack_tmp = ishft(pack_tmp, -35)
45441  idata = idata + 1
45442  data_tmp = ishft(pack_tmp, 26)
45443  ipack = ipack + 1
45444  pack_tmp = packed_data(ipack)
45445  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
45446  pack_tmp = ishft(pack_tmp, -26)
45447  idata = idata + 1
45448  data_tmp = ishft(pack_tmp, 17)
45449  ipack = ipack + 1
45450  pack_tmp = packed_data(ipack)
45451  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
45452  pack_tmp = ishft(pack_tmp, -17)
45453  idata = idata + 1
45454  data_tmp = ishft(pack_tmp, 8)
45455  ipack = ipack + 1
45456  pack_tmp = packed_data(ipack)
45457  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
45458  pack_tmp = ishft(pack_tmp, -8)
45459  idata = idata + 1
45460  data_tmp = iand(pack_tmp, mask_right(nbits))
45461  full_data(idata) = data_tmp
45462  pack_tmp = ishft(pack_tmp, -nbits)
45463  idata = idata + 1
45464  data_tmp = ishft(pack_tmp, 54)
45465  ipack = ipack + 1
45466  pack_tmp = packed_data(ipack)
45467  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
45468  pack_tmp = ishft(pack_tmp, -54)
45469  idata = idata + 1
45470  data_tmp = ishft(pack_tmp, 45)
45471  ipack = ipack + 1
45472  pack_tmp = packed_data(ipack)
45473  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
45474  pack_tmp = ishft(pack_tmp, -45)
45475  idata = idata + 1
45476  data_tmp = ishft(pack_tmp, 36)
45477  ipack = ipack + 1
45478  pack_tmp = packed_data(ipack)
45479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
45480  pack_tmp = ishft(pack_tmp, -36)
45481  idata = idata + 1
45482  data_tmp = ishft(pack_tmp, 27)
45483  ipack = ipack + 1
45484  pack_tmp = packed_data(ipack)
45485  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
45486  pack_tmp = ishft(pack_tmp, -27)
45487  idata = idata + 1
45488  data_tmp = ishft(pack_tmp, 18)
45489  ipack = ipack + 1
45490  pack_tmp = packed_data(ipack)
45491  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
45492  pack_tmp = ishft(pack_tmp, -18)
45493  idata = idata + 1
45494  data_tmp = ishft(pack_tmp, 9)
45495  ipack = ipack + 1
45496  pack_tmp = packed_data(ipack)
45497  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
45498  pack_tmp = ishft(pack_tmp, -9)
45499  idata = idata + 1
45500  data_tmp = iand(pack_tmp, mask_right(nbits))
45501  full_data(idata) = data_tmp
45502  pack_tmp = ishft(pack_tmp, -nbits)
45503  END DO
45504  IF (ndata_rep < ndata) THEN
45505  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
45506  END IF
45507  END SUBROUTINE bits2ints_55
45508 
45509 ! **************************************************************************************************
45510 !> \brief ...
45511 !> \param Ndata ...
45512 !> \param packed_data ...
45513 !> \param full_data ...
45514 ! **************************************************************************************************
45515  SUBROUTINE ints2bits_56(Ndata, packed_data, full_data)
45516  INTEGER, INTENT(IN) :: Ndata
45517  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
45518  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
45519 
45520  INTEGER, PARAMETER :: Nbits = 56
45521 
45522  INTEGER :: idata, ipack, kdata, Ndata_rep
45523  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
45524 
45525  idata = 0
45526  ipack = 0
45527  ndata_rep = (ndata/64)*64
45528  DO kdata = 1, ndata_rep, 64
45529  pack_tmp = 0
45530  idata = idata + 1
45531  data_tmp = full_data(idata)
45532  data_tmp = ishft(data_tmp, 8)
45533  pack_tmp = ior(pack_tmp, data_tmp)
45534  pack_tmp = ishft(pack_tmp, -8)
45535  idata = idata + 1
45536  data_tmp = full_data(idata)
45537  data_tmp = ishft(data_tmp, 8)
45538  data_tmp = iand(data_tmp, mask_left(8))
45539  pack_tmp = ior(pack_tmp, data_tmp)
45540  ipack = ipack + 1
45541  packed_data(ipack) = pack_tmp
45542  data_tmp = full_data(idata)
45543  pack_tmp = ishft(data_tmp, 16)
45544  pack_tmp = ishft(pack_tmp, -16)
45545  idata = idata + 1
45546  data_tmp = full_data(idata)
45547  data_tmp = ishft(data_tmp, 8)
45548  data_tmp = iand(data_tmp, mask_left(16))
45549  pack_tmp = ior(pack_tmp, data_tmp)
45550  ipack = ipack + 1
45551  packed_data(ipack) = pack_tmp
45552  data_tmp = full_data(idata)
45553  pack_tmp = ishft(data_tmp, 24)
45554  pack_tmp = ishft(pack_tmp, -24)
45555  idata = idata + 1
45556  data_tmp = full_data(idata)
45557  data_tmp = ishft(data_tmp, 8)
45558  data_tmp = iand(data_tmp, mask_left(24))
45559  pack_tmp = ior(pack_tmp, data_tmp)
45560  ipack = ipack + 1
45561  packed_data(ipack) = pack_tmp
45562  data_tmp = full_data(idata)
45563  pack_tmp = ishft(data_tmp, 32)
45564  pack_tmp = ishft(pack_tmp, -32)
45565  idata = idata + 1
45566  data_tmp = full_data(idata)
45567  data_tmp = ishft(data_tmp, 8)
45568  data_tmp = iand(data_tmp, mask_left(32))
45569  pack_tmp = ior(pack_tmp, data_tmp)
45570  ipack = ipack + 1
45571  packed_data(ipack) = pack_tmp
45572  data_tmp = full_data(idata)
45573  pack_tmp = ishft(data_tmp, 40)
45574  pack_tmp = ishft(pack_tmp, -40)
45575  idata = idata + 1
45576  data_tmp = full_data(idata)
45577  data_tmp = ishft(data_tmp, 8)
45578  data_tmp = iand(data_tmp, mask_left(40))
45579  pack_tmp = ior(pack_tmp, data_tmp)
45580  ipack = ipack + 1
45581  packed_data(ipack) = pack_tmp
45582  data_tmp = full_data(idata)
45583  pack_tmp = ishft(data_tmp, 48)
45584  pack_tmp = ishft(pack_tmp, -48)
45585  idata = idata + 1
45586  data_tmp = full_data(idata)
45587  data_tmp = ishft(data_tmp, 8)
45588  data_tmp = iand(data_tmp, mask_left(48))
45589  pack_tmp = ior(pack_tmp, data_tmp)
45590  ipack = ipack + 1
45591  packed_data(ipack) = pack_tmp
45592  data_tmp = full_data(idata)
45593  pack_tmp = ishft(data_tmp, 56)
45594  pack_tmp = ishft(pack_tmp, -56)
45595  idata = idata + 1
45596  data_tmp = full_data(idata)
45597  data_tmp = ishft(data_tmp, 8)
45598  pack_tmp = ior(pack_tmp, data_tmp)
45599  pack_tmp = ishft(pack_tmp, 0)
45600  idata = idata + 1
45601  data_tmp = full_data(idata)
45602  data_tmp = ishft(data_tmp, 8)
45603  data_tmp = iand(data_tmp, mask_left(0))
45604  pack_tmp = ior(pack_tmp, data_tmp)
45605  ipack = ipack + 1
45606  packed_data(ipack) = pack_tmp
45607  data_tmp = full_data(idata)
45608  pack_tmp = ishft(data_tmp, 8)
45609  pack_tmp = ishft(pack_tmp, -8)
45610  idata = idata + 1
45611  data_tmp = full_data(idata)
45612  data_tmp = ishft(data_tmp, 8)
45613  data_tmp = iand(data_tmp, mask_left(8))
45614  pack_tmp = ior(pack_tmp, data_tmp)
45615  ipack = ipack + 1
45616  packed_data(ipack) = pack_tmp
45617  data_tmp = full_data(idata)
45618  pack_tmp = ishft(data_tmp, 16)
45619  pack_tmp = ishft(pack_tmp, -16)
45620  idata = idata + 1
45621  data_tmp = full_data(idata)
45622  data_tmp = ishft(data_tmp, 8)
45623  data_tmp = iand(data_tmp, mask_left(16))
45624  pack_tmp = ior(pack_tmp, data_tmp)
45625  ipack = ipack + 1
45626  packed_data(ipack) = pack_tmp
45627  data_tmp = full_data(idata)
45628  pack_tmp = ishft(data_tmp, 24)
45629  pack_tmp = ishft(pack_tmp, -24)
45630  idata = idata + 1
45631  data_tmp = full_data(idata)
45632  data_tmp = ishft(data_tmp, 8)
45633  data_tmp = iand(data_tmp, mask_left(24))
45634  pack_tmp = ior(pack_tmp, data_tmp)
45635  ipack = ipack + 1
45636  packed_data(ipack) = pack_tmp
45637  data_tmp = full_data(idata)
45638  pack_tmp = ishft(data_tmp, 32)
45639  pack_tmp = ishft(pack_tmp, -32)
45640  idata = idata + 1
45641  data_tmp = full_data(idata)
45642  data_tmp = ishft(data_tmp, 8)
45643  data_tmp = iand(data_tmp, mask_left(32))
45644  pack_tmp = ior(pack_tmp, data_tmp)
45645  ipack = ipack + 1
45646  packed_data(ipack) = pack_tmp
45647  data_tmp = full_data(idata)
45648  pack_tmp = ishft(data_tmp, 40)
45649  pack_tmp = ishft(pack_tmp, -40)
45650  idata = idata + 1
45651  data_tmp = full_data(idata)
45652  data_tmp = ishft(data_tmp, 8)
45653  data_tmp = iand(data_tmp, mask_left(40))
45654  pack_tmp = ior(pack_tmp, data_tmp)
45655  ipack = ipack + 1
45656  packed_data(ipack) = pack_tmp
45657  data_tmp = full_data(idata)
45658  pack_tmp = ishft(data_tmp, 48)
45659  pack_tmp = ishft(pack_tmp, -48)
45660  idata = idata + 1
45661  data_tmp = full_data(idata)
45662  data_tmp = ishft(data_tmp, 8)
45663  data_tmp = iand(data_tmp, mask_left(48))
45664  pack_tmp = ior(pack_tmp, data_tmp)
45665  ipack = ipack + 1
45666  packed_data(ipack) = pack_tmp
45667  data_tmp = full_data(idata)
45668  pack_tmp = ishft(data_tmp, 56)
45669  pack_tmp = ishft(pack_tmp, -56)
45670  idata = idata + 1
45671  data_tmp = full_data(idata)
45672  data_tmp = ishft(data_tmp, 8)
45673  pack_tmp = ior(pack_tmp, data_tmp)
45674  pack_tmp = ishft(pack_tmp, 0)
45675  idata = idata + 1
45676  data_tmp = full_data(idata)
45677  data_tmp = ishft(data_tmp, 8)
45678  data_tmp = iand(data_tmp, mask_left(0))
45679  pack_tmp = ior(pack_tmp, data_tmp)
45680  ipack = ipack + 1
45681  packed_data(ipack) = pack_tmp
45682  data_tmp = full_data(idata)
45683  pack_tmp = ishft(data_tmp, 8)
45684  pack_tmp = ishft(pack_tmp, -8)
45685  idata = idata + 1
45686  data_tmp = full_data(idata)
45687  data_tmp = ishft(data_tmp, 8)
45688  data_tmp = iand(data_tmp, mask_left(8))
45689  pack_tmp = ior(pack_tmp, data_tmp)
45690  ipack = ipack + 1
45691  packed_data(ipack) = pack_tmp
45692  data_tmp = full_data(idata)
45693  pack_tmp = ishft(data_tmp, 16)
45694  pack_tmp = ishft(pack_tmp, -16)
45695  idata = idata + 1
45696  data_tmp = full_data(idata)
45697  data_tmp = ishft(data_tmp, 8)
45698  data_tmp = iand(data_tmp, mask_left(16))
45699  pack_tmp = ior(pack_tmp, data_tmp)
45700  ipack = ipack + 1
45701  packed_data(ipack) = pack_tmp
45702  data_tmp = full_data(idata)
45703  pack_tmp = ishft(data_tmp, 24)
45704  pack_tmp = ishft(pack_tmp, -24)
45705  idata = idata + 1
45706  data_tmp = full_data(idata)
45707  data_tmp = ishft(data_tmp, 8)
45708  data_tmp = iand(data_tmp, mask_left(24))
45709  pack_tmp = ior(pack_tmp, data_tmp)
45710  ipack = ipack + 1
45711  packed_data(ipack) = pack_tmp
45712  data_tmp = full_data(idata)
45713  pack_tmp = ishft(data_tmp, 32)
45714  pack_tmp = ishft(pack_tmp, -32)
45715  idata = idata + 1
45716  data_tmp = full_data(idata)
45717  data_tmp = ishft(data_tmp, 8)
45718  data_tmp = iand(data_tmp, mask_left(32))
45719  pack_tmp = ior(pack_tmp, data_tmp)
45720  ipack = ipack + 1
45721  packed_data(ipack) = pack_tmp
45722  data_tmp = full_data(idata)
45723  pack_tmp = ishft(data_tmp, 40)
45724  pack_tmp = ishft(pack_tmp, -40)
45725  idata = idata + 1
45726  data_tmp = full_data(idata)
45727  data_tmp = ishft(data_tmp, 8)
45728  data_tmp = iand(data_tmp, mask_left(40))
45729  pack_tmp = ior(pack_tmp, data_tmp)
45730  ipack = ipack + 1
45731  packed_data(ipack) = pack_tmp
45732  data_tmp = full_data(idata)
45733  pack_tmp = ishft(data_tmp, 48)
45734  pack_tmp = ishft(pack_tmp, -48)
45735  idata = idata + 1
45736  data_tmp = full_data(idata)
45737  data_tmp = ishft(data_tmp, 8)
45738  data_tmp = iand(data_tmp, mask_left(48))
45739  pack_tmp = ior(pack_tmp, data_tmp)
45740  ipack = ipack + 1
45741  packed_data(ipack) = pack_tmp
45742  data_tmp = full_data(idata)
45743  pack_tmp = ishft(data_tmp, 56)
45744  pack_tmp = ishft(pack_tmp, -56)
45745  idata = idata + 1
45746  data_tmp = full_data(idata)
45747  data_tmp = ishft(data_tmp, 8)
45748  pack_tmp = ior(pack_tmp, data_tmp)
45749  pack_tmp = ishft(pack_tmp, 0)
45750  idata = idata + 1
45751  data_tmp = full_data(idata)
45752  data_tmp = ishft(data_tmp, 8)
45753  data_tmp = iand(data_tmp, mask_left(0))
45754  pack_tmp = ior(pack_tmp, data_tmp)
45755  ipack = ipack + 1
45756  packed_data(ipack) = pack_tmp
45757  data_tmp = full_data(idata)
45758  pack_tmp = ishft(data_tmp, 8)
45759  pack_tmp = ishft(pack_tmp, -8)
45760  idata = idata + 1
45761  data_tmp = full_data(idata)
45762  data_tmp = ishft(data_tmp, 8)
45763  data_tmp = iand(data_tmp, mask_left(8))
45764  pack_tmp = ior(pack_tmp, data_tmp)
45765  ipack = ipack + 1
45766  packed_data(ipack) = pack_tmp
45767  data_tmp = full_data(idata)
45768  pack_tmp = ishft(data_tmp, 16)
45769  pack_tmp = ishft(pack_tmp, -16)
45770  idata = idata + 1
45771  data_tmp = full_data(idata)
45772  data_tmp = ishft(data_tmp, 8)
45773  data_tmp = iand(data_tmp, mask_left(16))
45774  pack_tmp = ior(pack_tmp, data_tmp)
45775  ipack = ipack + 1
45776  packed_data(ipack) = pack_tmp
45777  data_tmp = full_data(idata)
45778  pack_tmp = ishft(data_tmp, 24)
45779  pack_tmp = ishft(pack_tmp, -24)
45780  idata = idata + 1
45781  data_tmp = full_data(idata)
45782  data_tmp = ishft(data_tmp, 8)
45783  data_tmp = iand(data_tmp, mask_left(24))
45784  pack_tmp = ior(pack_tmp, data_tmp)
45785  ipack = ipack + 1
45786  packed_data(ipack) = pack_tmp
45787  data_tmp = full_data(idata)
45788  pack_tmp = ishft(data_tmp, 32)
45789  pack_tmp = ishft(pack_tmp, -32)
45790  idata = idata + 1
45791  data_tmp = full_data(idata)
45792  data_tmp = ishft(data_tmp, 8)
45793  data_tmp = iand(data_tmp, mask_left(32))
45794  pack_tmp = ior(pack_tmp, data_tmp)
45795  ipack = ipack + 1
45796  packed_data(ipack) = pack_tmp
45797  data_tmp = full_data(idata)
45798  pack_tmp = ishft(data_tmp, 40)
45799  pack_tmp = ishft(pack_tmp, -40)
45800  idata = idata + 1
45801  data_tmp = full_data(idata)
45802  data_tmp = ishft(data_tmp, 8)
45803  data_tmp = iand(data_tmp, mask_left(40))
45804  pack_tmp = ior(pack_tmp, data_tmp)
45805  ipack = ipack + 1
45806  packed_data(ipack) = pack_tmp
45807  data_tmp = full_data(idata)
45808  pack_tmp = ishft(data_tmp, 48)
45809  pack_tmp = ishft(pack_tmp, -48)
45810  idata = idata + 1
45811  data_tmp = full_data(idata)
45812  data_tmp = ishft(data_tmp, 8)
45813  data_tmp = iand(data_tmp, mask_left(48))
45814  pack_tmp = ior(pack_tmp, data_tmp)
45815  ipack = ipack + 1
45816  packed_data(ipack) = pack_tmp
45817  data_tmp = full_data(idata)
45818  pack_tmp = ishft(data_tmp, 56)
45819  pack_tmp = ishft(pack_tmp, -56)
45820  idata = idata + 1
45821  data_tmp = full_data(idata)
45822  data_tmp = ishft(data_tmp, 8)
45823  pack_tmp = ior(pack_tmp, data_tmp)
45824  pack_tmp = ishft(pack_tmp, 0)
45825  idata = idata + 1
45826  data_tmp = full_data(idata)
45827  data_tmp = ishft(data_tmp, 8)
45828  data_tmp = iand(data_tmp, mask_left(0))
45829  pack_tmp = ior(pack_tmp, data_tmp)
45830  ipack = ipack + 1
45831  packed_data(ipack) = pack_tmp
45832  data_tmp = full_data(idata)
45833  pack_tmp = ishft(data_tmp, 8)
45834  pack_tmp = ishft(pack_tmp, -8)
45835  idata = idata + 1
45836  data_tmp = full_data(idata)
45837  data_tmp = ishft(data_tmp, 8)
45838  data_tmp = iand(data_tmp, mask_left(8))
45839  pack_tmp = ior(pack_tmp, data_tmp)
45840  ipack = ipack + 1
45841  packed_data(ipack) = pack_tmp
45842  data_tmp = full_data(idata)
45843  pack_tmp = ishft(data_tmp, 16)
45844  pack_tmp = ishft(pack_tmp, -16)
45845  idata = idata + 1
45846  data_tmp = full_data(idata)
45847  data_tmp = ishft(data_tmp, 8)
45848  data_tmp = iand(data_tmp, mask_left(16))
45849  pack_tmp = ior(pack_tmp, data_tmp)
45850  ipack = ipack + 1
45851  packed_data(ipack) = pack_tmp
45852  data_tmp = full_data(idata)
45853  pack_tmp = ishft(data_tmp, 24)
45854  pack_tmp = ishft(pack_tmp, -24)
45855  idata = idata + 1
45856  data_tmp = full_data(idata)
45857  data_tmp = ishft(data_tmp, 8)
45858  data_tmp = iand(data_tmp, mask_left(24))
45859  pack_tmp = ior(pack_tmp, data_tmp)
45860  ipack = ipack + 1
45861  packed_data(ipack) = pack_tmp
45862  data_tmp = full_data(idata)
45863  pack_tmp = ishft(data_tmp, 32)
45864  pack_tmp = ishft(pack_tmp, -32)
45865  idata = idata + 1
45866  data_tmp = full_data(idata)
45867  data_tmp = ishft(data_tmp, 8)
45868  data_tmp = iand(data_tmp, mask_left(32))
45869  pack_tmp = ior(pack_tmp, data_tmp)
45870  ipack = ipack + 1
45871  packed_data(ipack) = pack_tmp
45872  data_tmp = full_data(idata)
45873  pack_tmp = ishft(data_tmp, 40)
45874  pack_tmp = ishft(pack_tmp, -40)
45875  idata = idata + 1
45876  data_tmp = full_data(idata)
45877  data_tmp = ishft(data_tmp, 8)
45878  data_tmp = iand(data_tmp, mask_left(40))
45879  pack_tmp = ior(pack_tmp, data_tmp)
45880  ipack = ipack + 1
45881  packed_data(ipack) = pack_tmp
45882  data_tmp = full_data(idata)
45883  pack_tmp = ishft(data_tmp, 48)
45884  pack_tmp = ishft(pack_tmp, -48)
45885  idata = idata + 1
45886  data_tmp = full_data(idata)
45887  data_tmp = ishft(data_tmp, 8)
45888  data_tmp = iand(data_tmp, mask_left(48))
45889  pack_tmp = ior(pack_tmp, data_tmp)
45890  ipack = ipack + 1
45891  packed_data(ipack) = pack_tmp
45892  data_tmp = full_data(idata)
45893  pack_tmp = ishft(data_tmp, 56)
45894  pack_tmp = ishft(pack_tmp, -56)
45895  idata = idata + 1
45896  data_tmp = full_data(idata)
45897  data_tmp = ishft(data_tmp, 8)
45898  pack_tmp = ior(pack_tmp, data_tmp)
45899  pack_tmp = ishft(pack_tmp, 0)
45900  idata = idata + 1
45901  data_tmp = full_data(idata)
45902  data_tmp = ishft(data_tmp, 8)
45903  data_tmp = iand(data_tmp, mask_left(0))
45904  pack_tmp = ior(pack_tmp, data_tmp)
45905  ipack = ipack + 1
45906  packed_data(ipack) = pack_tmp
45907  data_tmp = full_data(idata)
45908  pack_tmp = ishft(data_tmp, 8)
45909  pack_tmp = ishft(pack_tmp, -8)
45910  idata = idata + 1
45911  data_tmp = full_data(idata)
45912  data_tmp = ishft(data_tmp, 8)
45913  data_tmp = iand(data_tmp, mask_left(8))
45914  pack_tmp = ior(pack_tmp, data_tmp)
45915  ipack = ipack + 1
45916  packed_data(ipack) = pack_tmp
45917  data_tmp = full_data(idata)
45918  pack_tmp = ishft(data_tmp, 16)
45919  pack_tmp = ishft(pack_tmp, -16)
45920  idata = idata + 1
45921  data_tmp = full_data(idata)
45922  data_tmp = ishft(data_tmp, 8)
45923  data_tmp = iand(data_tmp, mask_left(16))
45924  pack_tmp = ior(pack_tmp, data_tmp)
45925  ipack = ipack + 1
45926  packed_data(ipack) = pack_tmp
45927  data_tmp = full_data(idata)
45928  pack_tmp = ishft(data_tmp, 24)
45929  pack_tmp = ishft(pack_tmp, -24)
45930  idata = idata + 1
45931  data_tmp = full_data(idata)
45932  data_tmp = ishft(data_tmp, 8)
45933  data_tmp = iand(data_tmp, mask_left(24))
45934  pack_tmp = ior(pack_tmp, data_tmp)
45935  ipack = ipack + 1
45936  packed_data(ipack) = pack_tmp
45937  data_tmp = full_data(idata)
45938  pack_tmp = ishft(data_tmp, 32)
45939  pack_tmp = ishft(pack_tmp, -32)
45940  idata = idata + 1
45941  data_tmp = full_data(idata)
45942  data_tmp = ishft(data_tmp, 8)
45943  data_tmp = iand(data_tmp, mask_left(32))
45944  pack_tmp = ior(pack_tmp, data_tmp)
45945  ipack = ipack + 1
45946  packed_data(ipack) = pack_tmp
45947  data_tmp = full_data(idata)
45948  pack_tmp = ishft(data_tmp, 40)
45949  pack_tmp = ishft(pack_tmp, -40)
45950  idata = idata + 1
45951  data_tmp = full_data(idata)
45952  data_tmp = ishft(data_tmp, 8)
45953  data_tmp = iand(data_tmp, mask_left(40))
45954  pack_tmp = ior(pack_tmp, data_tmp)
45955  ipack = ipack + 1
45956  packed_data(ipack) = pack_tmp
45957  data_tmp = full_data(idata)
45958  pack_tmp = ishft(data_tmp, 48)
45959  pack_tmp = ishft(pack_tmp, -48)
45960  idata = idata + 1
45961  data_tmp = full_data(idata)
45962  data_tmp = ishft(data_tmp, 8)
45963  data_tmp = iand(data_tmp, mask_left(48))
45964  pack_tmp = ior(pack_tmp, data_tmp)
45965  ipack = ipack + 1
45966  packed_data(ipack) = pack_tmp
45967  data_tmp = full_data(idata)
45968  pack_tmp = ishft(data_tmp, 56)
45969  pack_tmp = ishft(pack_tmp, -56)
45970  idata = idata + 1
45971  data_tmp = full_data(idata)
45972  data_tmp = ishft(data_tmp, 8)
45973  pack_tmp = ior(pack_tmp, data_tmp)
45974  pack_tmp = ishft(pack_tmp, 0)
45975  idata = idata + 1
45976  data_tmp = full_data(idata)
45977  data_tmp = ishft(data_tmp, 8)
45978  data_tmp = iand(data_tmp, mask_left(0))
45979  pack_tmp = ior(pack_tmp, data_tmp)
45980  ipack = ipack + 1
45981  packed_data(ipack) = pack_tmp
45982  data_tmp = full_data(idata)
45983  pack_tmp = ishft(data_tmp, 8)
45984  pack_tmp = ishft(pack_tmp, -8)
45985  idata = idata + 1
45986  data_tmp = full_data(idata)
45987  data_tmp = ishft(data_tmp, 8)
45988  data_tmp = iand(data_tmp, mask_left(8))
45989  pack_tmp = ior(pack_tmp, data_tmp)
45990  ipack = ipack + 1
45991  packed_data(ipack) = pack_tmp
45992  data_tmp = full_data(idata)
45993  pack_tmp = ishft(data_tmp, 16)
45994  pack_tmp = ishft(pack_tmp, -16)
45995  idata = idata + 1
45996  data_tmp = full_data(idata)
45997  data_tmp = ishft(data_tmp, 8)
45998  data_tmp = iand(data_tmp, mask_left(16))
45999  pack_tmp = ior(pack_tmp, data_tmp)
46000  ipack = ipack + 1
46001  packed_data(ipack) = pack_tmp
46002  data_tmp = full_data(idata)
46003  pack_tmp = ishft(data_tmp, 24)
46004  pack_tmp = ishft(pack_tmp, -24)
46005  idata = idata + 1
46006  data_tmp = full_data(idata)
46007  data_tmp = ishft(data_tmp, 8)
46008  data_tmp = iand(data_tmp, mask_left(24))
46009  pack_tmp = ior(pack_tmp, data_tmp)
46010  ipack = ipack + 1
46011  packed_data(ipack) = pack_tmp
46012  data_tmp = full_data(idata)
46013  pack_tmp = ishft(data_tmp, 32)
46014  pack_tmp = ishft(pack_tmp, -32)
46015  idata = idata + 1
46016  data_tmp = full_data(idata)
46017  data_tmp = ishft(data_tmp, 8)
46018  data_tmp = iand(data_tmp, mask_left(32))
46019  pack_tmp = ior(pack_tmp, data_tmp)
46020  ipack = ipack + 1
46021  packed_data(ipack) = pack_tmp
46022  data_tmp = full_data(idata)
46023  pack_tmp = ishft(data_tmp, 40)
46024  pack_tmp = ishft(pack_tmp, -40)
46025  idata = idata + 1
46026  data_tmp = full_data(idata)
46027  data_tmp = ishft(data_tmp, 8)
46028  data_tmp = iand(data_tmp, mask_left(40))
46029  pack_tmp = ior(pack_tmp, data_tmp)
46030  ipack = ipack + 1
46031  packed_data(ipack) = pack_tmp
46032  data_tmp = full_data(idata)
46033  pack_tmp = ishft(data_tmp, 48)
46034  pack_tmp = ishft(pack_tmp, -48)
46035  idata = idata + 1
46036  data_tmp = full_data(idata)
46037  data_tmp = ishft(data_tmp, 8)
46038  data_tmp = iand(data_tmp, mask_left(48))
46039  pack_tmp = ior(pack_tmp, data_tmp)
46040  ipack = ipack + 1
46041  packed_data(ipack) = pack_tmp
46042  data_tmp = full_data(idata)
46043  pack_tmp = ishft(data_tmp, 56)
46044  pack_tmp = ishft(pack_tmp, -56)
46045  idata = idata + 1
46046  data_tmp = full_data(idata)
46047  data_tmp = ishft(data_tmp, 8)
46048  pack_tmp = ior(pack_tmp, data_tmp)
46049  pack_tmp = ishft(pack_tmp, 0)
46050  idata = idata + 1
46051  data_tmp = full_data(idata)
46052  data_tmp = ishft(data_tmp, 8)
46053  data_tmp = iand(data_tmp, mask_left(0))
46054  pack_tmp = ior(pack_tmp, data_tmp)
46055  ipack = ipack + 1
46056  packed_data(ipack) = pack_tmp
46057  data_tmp = full_data(idata)
46058  pack_tmp = ishft(data_tmp, 8)
46059  pack_tmp = ishft(pack_tmp, -8)
46060  idata = idata + 1
46061  data_tmp = full_data(idata)
46062  data_tmp = ishft(data_tmp, 8)
46063  data_tmp = iand(data_tmp, mask_left(8))
46064  pack_tmp = ior(pack_tmp, data_tmp)
46065  ipack = ipack + 1
46066  packed_data(ipack) = pack_tmp
46067  data_tmp = full_data(idata)
46068  pack_tmp = ishft(data_tmp, 16)
46069  pack_tmp = ishft(pack_tmp, -16)
46070  idata = idata + 1
46071  data_tmp = full_data(idata)
46072  data_tmp = ishft(data_tmp, 8)
46073  data_tmp = iand(data_tmp, mask_left(16))
46074  pack_tmp = ior(pack_tmp, data_tmp)
46075  ipack = ipack + 1
46076  packed_data(ipack) = pack_tmp
46077  data_tmp = full_data(idata)
46078  pack_tmp = ishft(data_tmp, 24)
46079  pack_tmp = ishft(pack_tmp, -24)
46080  idata = idata + 1
46081  data_tmp = full_data(idata)
46082  data_tmp = ishft(data_tmp, 8)
46083  data_tmp = iand(data_tmp, mask_left(24))
46084  pack_tmp = ior(pack_tmp, data_tmp)
46085  ipack = ipack + 1
46086  packed_data(ipack) = pack_tmp
46087  data_tmp = full_data(idata)
46088  pack_tmp = ishft(data_tmp, 32)
46089  pack_tmp = ishft(pack_tmp, -32)
46090  idata = idata + 1
46091  data_tmp = full_data(idata)
46092  data_tmp = ishft(data_tmp, 8)
46093  data_tmp = iand(data_tmp, mask_left(32))
46094  pack_tmp = ior(pack_tmp, data_tmp)
46095  ipack = ipack + 1
46096  packed_data(ipack) = pack_tmp
46097  data_tmp = full_data(idata)
46098  pack_tmp = ishft(data_tmp, 40)
46099  pack_tmp = ishft(pack_tmp, -40)
46100  idata = idata + 1
46101  data_tmp = full_data(idata)
46102  data_tmp = ishft(data_tmp, 8)
46103  data_tmp = iand(data_tmp, mask_left(40))
46104  pack_tmp = ior(pack_tmp, data_tmp)
46105  ipack = ipack + 1
46106  packed_data(ipack) = pack_tmp
46107  data_tmp = full_data(idata)
46108  pack_tmp = ishft(data_tmp, 48)
46109  pack_tmp = ishft(pack_tmp, -48)
46110  idata = idata + 1
46111  data_tmp = full_data(idata)
46112  data_tmp = ishft(data_tmp, 8)
46113  data_tmp = iand(data_tmp, mask_left(48))
46114  pack_tmp = ior(pack_tmp, data_tmp)
46115  ipack = ipack + 1
46116  packed_data(ipack) = pack_tmp
46117  data_tmp = full_data(idata)
46118  pack_tmp = ishft(data_tmp, 56)
46119  pack_tmp = ishft(pack_tmp, -56)
46120  idata = idata + 1
46121  data_tmp = full_data(idata)
46122  data_tmp = ishft(data_tmp, 8)
46123  pack_tmp = ior(pack_tmp, data_tmp)
46124  pack_tmp = ishft(pack_tmp, 0)
46125  pack_tmp = ishft(pack_tmp, 0)
46126  ipack = ipack + 1
46127  packed_data(ipack) = pack_tmp
46128  END DO
46129  IF (ndata_rep < ndata) THEN
46130  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
46131  END IF
46132  END SUBROUTINE ints2bits_56
46133 
46134 ! **************************************************************************************************
46135 !> \brief ...
46136 !> \param Ndata ...
46137 !> \param packed_data ...
46138 !> \param full_data ...
46139 ! **************************************************************************************************
46140  SUBROUTINE bits2ints_56(Ndata, packed_data, full_data)
46141  INTEGER, INTENT(IN) :: Ndata
46142  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
46143  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
46144 
46145  INTEGER, PARAMETER :: Nbits = 56
46146 
46147  INTEGER :: idata, ipack, kdata, Ndata_rep
46148  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
46149 
46150  ipack = 0
46151  idata = 0
46152  pack_tmp = 0
46153  ndata_rep = (ndata/64)*64
46154  DO kdata = 1, ndata_rep, 64
46155  idata = idata + 1
46156  data_tmp = ishft(pack_tmp, 56)
46157  ipack = ipack + 1
46158  pack_tmp = packed_data(ipack)
46159  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46160  pack_tmp = ishft(pack_tmp, -56)
46161  idata = idata + 1
46162  data_tmp = ishft(pack_tmp, 48)
46163  ipack = ipack + 1
46164  pack_tmp = packed_data(ipack)
46165  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46166  pack_tmp = ishft(pack_tmp, -48)
46167  idata = idata + 1
46168  data_tmp = ishft(pack_tmp, 40)
46169  ipack = ipack + 1
46170  pack_tmp = packed_data(ipack)
46171  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46172  pack_tmp = ishft(pack_tmp, -40)
46173  idata = idata + 1
46174  data_tmp = ishft(pack_tmp, 32)
46175  ipack = ipack + 1
46176  pack_tmp = packed_data(ipack)
46177  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46178  pack_tmp = ishft(pack_tmp, -32)
46179  idata = idata + 1
46180  data_tmp = ishft(pack_tmp, 24)
46181  ipack = ipack + 1
46182  pack_tmp = packed_data(ipack)
46183  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46184  pack_tmp = ishft(pack_tmp, -24)
46185  idata = idata + 1
46186  data_tmp = ishft(pack_tmp, 16)
46187  ipack = ipack + 1
46188  pack_tmp = packed_data(ipack)
46189  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46190  pack_tmp = ishft(pack_tmp, -16)
46191  idata = idata + 1
46192  data_tmp = ishft(pack_tmp, 8)
46193  ipack = ipack + 1
46194  pack_tmp = packed_data(ipack)
46195  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46196  pack_tmp = ishft(pack_tmp, -8)
46197  idata = idata + 1
46198  data_tmp = iand(pack_tmp, mask_right(nbits))
46199  full_data(idata) = data_tmp
46200  pack_tmp = ishft(pack_tmp, -nbits)
46201  idata = idata + 1
46202  data_tmp = ishft(pack_tmp, 56)
46203  ipack = ipack + 1
46204  pack_tmp = packed_data(ipack)
46205  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46206  pack_tmp = ishft(pack_tmp, -56)
46207  idata = idata + 1
46208  data_tmp = ishft(pack_tmp, 48)
46209  ipack = ipack + 1
46210  pack_tmp = packed_data(ipack)
46211  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46212  pack_tmp = ishft(pack_tmp, -48)
46213  idata = idata + 1
46214  data_tmp = ishft(pack_tmp, 40)
46215  ipack = ipack + 1
46216  pack_tmp = packed_data(ipack)
46217  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46218  pack_tmp = ishft(pack_tmp, -40)
46219  idata = idata + 1
46220  data_tmp = ishft(pack_tmp, 32)
46221  ipack = ipack + 1
46222  pack_tmp = packed_data(ipack)
46223  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46224  pack_tmp = ishft(pack_tmp, -32)
46225  idata = idata + 1
46226  data_tmp = ishft(pack_tmp, 24)
46227  ipack = ipack + 1
46228  pack_tmp = packed_data(ipack)
46229  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46230  pack_tmp = ishft(pack_tmp, -24)
46231  idata = idata + 1
46232  data_tmp = ishft(pack_tmp, 16)
46233  ipack = ipack + 1
46234  pack_tmp = packed_data(ipack)
46235  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46236  pack_tmp = ishft(pack_tmp, -16)
46237  idata = idata + 1
46238  data_tmp = ishft(pack_tmp, 8)
46239  ipack = ipack + 1
46240  pack_tmp = packed_data(ipack)
46241  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46242  pack_tmp = ishft(pack_tmp, -8)
46243  idata = idata + 1
46244  data_tmp = iand(pack_tmp, mask_right(nbits))
46245  full_data(idata) = data_tmp
46246  pack_tmp = ishft(pack_tmp, -nbits)
46247  idata = idata + 1
46248  data_tmp = ishft(pack_tmp, 56)
46249  ipack = ipack + 1
46250  pack_tmp = packed_data(ipack)
46251  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46252  pack_tmp = ishft(pack_tmp, -56)
46253  idata = idata + 1
46254  data_tmp = ishft(pack_tmp, 48)
46255  ipack = ipack + 1
46256  pack_tmp = packed_data(ipack)
46257  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46258  pack_tmp = ishft(pack_tmp, -48)
46259  idata = idata + 1
46260  data_tmp = ishft(pack_tmp, 40)
46261  ipack = ipack + 1
46262  pack_tmp = packed_data(ipack)
46263  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46264  pack_tmp = ishft(pack_tmp, -40)
46265  idata = idata + 1
46266  data_tmp = ishft(pack_tmp, 32)
46267  ipack = ipack + 1
46268  pack_tmp = packed_data(ipack)
46269  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46270  pack_tmp = ishft(pack_tmp, -32)
46271  idata = idata + 1
46272  data_tmp = ishft(pack_tmp, 24)
46273  ipack = ipack + 1
46274  pack_tmp = packed_data(ipack)
46275  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46276  pack_tmp = ishft(pack_tmp, -24)
46277  idata = idata + 1
46278  data_tmp = ishft(pack_tmp, 16)
46279  ipack = ipack + 1
46280  pack_tmp = packed_data(ipack)
46281  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46282  pack_tmp = ishft(pack_tmp, -16)
46283  idata = idata + 1
46284  data_tmp = ishft(pack_tmp, 8)
46285  ipack = ipack + 1
46286  pack_tmp = packed_data(ipack)
46287  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46288  pack_tmp = ishft(pack_tmp, -8)
46289  idata = idata + 1
46290  data_tmp = iand(pack_tmp, mask_right(nbits))
46291  full_data(idata) = data_tmp
46292  pack_tmp = ishft(pack_tmp, -nbits)
46293  idata = idata + 1
46294  data_tmp = ishft(pack_tmp, 56)
46295  ipack = ipack + 1
46296  pack_tmp = packed_data(ipack)
46297  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46298  pack_tmp = ishft(pack_tmp, -56)
46299  idata = idata + 1
46300  data_tmp = ishft(pack_tmp, 48)
46301  ipack = ipack + 1
46302  pack_tmp = packed_data(ipack)
46303  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46304  pack_tmp = ishft(pack_tmp, -48)
46305  idata = idata + 1
46306  data_tmp = ishft(pack_tmp, 40)
46307  ipack = ipack + 1
46308  pack_tmp = packed_data(ipack)
46309  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46310  pack_tmp = ishft(pack_tmp, -40)
46311  idata = idata + 1
46312  data_tmp = ishft(pack_tmp, 32)
46313  ipack = ipack + 1
46314  pack_tmp = packed_data(ipack)
46315  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46316  pack_tmp = ishft(pack_tmp, -32)
46317  idata = idata + 1
46318  data_tmp = ishft(pack_tmp, 24)
46319  ipack = ipack + 1
46320  pack_tmp = packed_data(ipack)
46321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46322  pack_tmp = ishft(pack_tmp, -24)
46323  idata = idata + 1
46324  data_tmp = ishft(pack_tmp, 16)
46325  ipack = ipack + 1
46326  pack_tmp = packed_data(ipack)
46327  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46328  pack_tmp = ishft(pack_tmp, -16)
46329  idata = idata + 1
46330  data_tmp = ishft(pack_tmp, 8)
46331  ipack = ipack + 1
46332  pack_tmp = packed_data(ipack)
46333  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46334  pack_tmp = ishft(pack_tmp, -8)
46335  idata = idata + 1
46336  data_tmp = iand(pack_tmp, mask_right(nbits))
46337  full_data(idata) = data_tmp
46338  pack_tmp = ishft(pack_tmp, -nbits)
46339  idata = idata + 1
46340  data_tmp = ishft(pack_tmp, 56)
46341  ipack = ipack + 1
46342  pack_tmp = packed_data(ipack)
46343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46344  pack_tmp = ishft(pack_tmp, -56)
46345  idata = idata + 1
46346  data_tmp = ishft(pack_tmp, 48)
46347  ipack = ipack + 1
46348  pack_tmp = packed_data(ipack)
46349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46350  pack_tmp = ishft(pack_tmp, -48)
46351  idata = idata + 1
46352  data_tmp = ishft(pack_tmp, 40)
46353  ipack = ipack + 1
46354  pack_tmp = packed_data(ipack)
46355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46356  pack_tmp = ishft(pack_tmp, -40)
46357  idata = idata + 1
46358  data_tmp = ishft(pack_tmp, 32)
46359  ipack = ipack + 1
46360  pack_tmp = packed_data(ipack)
46361  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46362  pack_tmp = ishft(pack_tmp, -32)
46363  idata = idata + 1
46364  data_tmp = ishft(pack_tmp, 24)
46365  ipack = ipack + 1
46366  pack_tmp = packed_data(ipack)
46367  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46368  pack_tmp = ishft(pack_tmp, -24)
46369  idata = idata + 1
46370  data_tmp = ishft(pack_tmp, 16)
46371  ipack = ipack + 1
46372  pack_tmp = packed_data(ipack)
46373  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46374  pack_tmp = ishft(pack_tmp, -16)
46375  idata = idata + 1
46376  data_tmp = ishft(pack_tmp, 8)
46377  ipack = ipack + 1
46378  pack_tmp = packed_data(ipack)
46379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46380  pack_tmp = ishft(pack_tmp, -8)
46381  idata = idata + 1
46382  data_tmp = iand(pack_tmp, mask_right(nbits))
46383  full_data(idata) = data_tmp
46384  pack_tmp = ishft(pack_tmp, -nbits)
46385  idata = idata + 1
46386  data_tmp = ishft(pack_tmp, 56)
46387  ipack = ipack + 1
46388  pack_tmp = packed_data(ipack)
46389  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46390  pack_tmp = ishft(pack_tmp, -56)
46391  idata = idata + 1
46392  data_tmp = ishft(pack_tmp, 48)
46393  ipack = ipack + 1
46394  pack_tmp = packed_data(ipack)
46395  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46396  pack_tmp = ishft(pack_tmp, -48)
46397  idata = idata + 1
46398  data_tmp = ishft(pack_tmp, 40)
46399  ipack = ipack + 1
46400  pack_tmp = packed_data(ipack)
46401  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46402  pack_tmp = ishft(pack_tmp, -40)
46403  idata = idata + 1
46404  data_tmp = ishft(pack_tmp, 32)
46405  ipack = ipack + 1
46406  pack_tmp = packed_data(ipack)
46407  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46408  pack_tmp = ishft(pack_tmp, -32)
46409  idata = idata + 1
46410  data_tmp = ishft(pack_tmp, 24)
46411  ipack = ipack + 1
46412  pack_tmp = packed_data(ipack)
46413  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46414  pack_tmp = ishft(pack_tmp, -24)
46415  idata = idata + 1
46416  data_tmp = ishft(pack_tmp, 16)
46417  ipack = ipack + 1
46418  pack_tmp = packed_data(ipack)
46419  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46420  pack_tmp = ishft(pack_tmp, -16)
46421  idata = idata + 1
46422  data_tmp = ishft(pack_tmp, 8)
46423  ipack = ipack + 1
46424  pack_tmp = packed_data(ipack)
46425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46426  pack_tmp = ishft(pack_tmp, -8)
46427  idata = idata + 1
46428  data_tmp = iand(pack_tmp, mask_right(nbits))
46429  full_data(idata) = data_tmp
46430  pack_tmp = ishft(pack_tmp, -nbits)
46431  idata = idata + 1
46432  data_tmp = ishft(pack_tmp, 56)
46433  ipack = ipack + 1
46434  pack_tmp = packed_data(ipack)
46435  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46436  pack_tmp = ishft(pack_tmp, -56)
46437  idata = idata + 1
46438  data_tmp = ishft(pack_tmp, 48)
46439  ipack = ipack + 1
46440  pack_tmp = packed_data(ipack)
46441  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46442  pack_tmp = ishft(pack_tmp, -48)
46443  idata = idata + 1
46444  data_tmp = ishft(pack_tmp, 40)
46445  ipack = ipack + 1
46446  pack_tmp = packed_data(ipack)
46447  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46448  pack_tmp = ishft(pack_tmp, -40)
46449  idata = idata + 1
46450  data_tmp = ishft(pack_tmp, 32)
46451  ipack = ipack + 1
46452  pack_tmp = packed_data(ipack)
46453  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46454  pack_tmp = ishft(pack_tmp, -32)
46455  idata = idata + 1
46456  data_tmp = ishft(pack_tmp, 24)
46457  ipack = ipack + 1
46458  pack_tmp = packed_data(ipack)
46459  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46460  pack_tmp = ishft(pack_tmp, -24)
46461  idata = idata + 1
46462  data_tmp = ishft(pack_tmp, 16)
46463  ipack = ipack + 1
46464  pack_tmp = packed_data(ipack)
46465  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46466  pack_tmp = ishft(pack_tmp, -16)
46467  idata = idata + 1
46468  data_tmp = ishft(pack_tmp, 8)
46469  ipack = ipack + 1
46470  pack_tmp = packed_data(ipack)
46471  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46472  pack_tmp = ishft(pack_tmp, -8)
46473  idata = idata + 1
46474  data_tmp = iand(pack_tmp, mask_right(nbits))
46475  full_data(idata) = data_tmp
46476  pack_tmp = ishft(pack_tmp, -nbits)
46477  idata = idata + 1
46478  data_tmp = ishft(pack_tmp, 56)
46479  ipack = ipack + 1
46480  pack_tmp = packed_data(ipack)
46481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
46482  pack_tmp = ishft(pack_tmp, -56)
46483  idata = idata + 1
46484  data_tmp = ishft(pack_tmp, 48)
46485  ipack = ipack + 1
46486  pack_tmp = packed_data(ipack)
46487  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
46488  pack_tmp = ishft(pack_tmp, -48)
46489  idata = idata + 1
46490  data_tmp = ishft(pack_tmp, 40)
46491  ipack = ipack + 1
46492  pack_tmp = packed_data(ipack)
46493  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
46494  pack_tmp = ishft(pack_tmp, -40)
46495  idata = idata + 1
46496  data_tmp = ishft(pack_tmp, 32)
46497  ipack = ipack + 1
46498  pack_tmp = packed_data(ipack)
46499  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
46500  pack_tmp = ishft(pack_tmp, -32)
46501  idata = idata + 1
46502  data_tmp = ishft(pack_tmp, 24)
46503  ipack = ipack + 1
46504  pack_tmp = packed_data(ipack)
46505  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
46506  pack_tmp = ishft(pack_tmp, -24)
46507  idata = idata + 1
46508  data_tmp = ishft(pack_tmp, 16)
46509  ipack = ipack + 1
46510  pack_tmp = packed_data(ipack)
46511  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
46512  pack_tmp = ishft(pack_tmp, -16)
46513  idata = idata + 1
46514  data_tmp = ishft(pack_tmp, 8)
46515  ipack = ipack + 1
46516  pack_tmp = packed_data(ipack)
46517  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
46518  pack_tmp = ishft(pack_tmp, -8)
46519  idata = idata + 1
46520  data_tmp = iand(pack_tmp, mask_right(nbits))
46521  full_data(idata) = data_tmp
46522  pack_tmp = ishft(pack_tmp, -nbits)
46523  END DO
46524  IF (ndata_rep < ndata) THEN
46525  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
46526  END IF
46527  END SUBROUTINE bits2ints_56
46528 
46529 ! **************************************************************************************************
46530 !> \brief ...
46531 !> \param Ndata ...
46532 !> \param packed_data ...
46533 !> \param full_data ...
46534 ! **************************************************************************************************
46535  SUBROUTINE ints2bits_57(Ndata, packed_data, full_data)
46536  INTEGER, INTENT(IN) :: Ndata
46537  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
46538  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
46539 
46540  INTEGER, PARAMETER :: Nbits = 57
46541 
46542  INTEGER :: idata, ipack, kdata, Ndata_rep
46543  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
46544 
46545  idata = 0
46546  ipack = 0
46547  ndata_rep = (ndata/64)*64
46548  DO kdata = 1, ndata_rep, 64
46549  pack_tmp = 0
46550  idata = idata + 1
46551  data_tmp = full_data(idata)
46552  data_tmp = ishft(data_tmp, 7)
46553  pack_tmp = ior(pack_tmp, data_tmp)
46554  pack_tmp = ishft(pack_tmp, -7)
46555  idata = idata + 1
46556  data_tmp = full_data(idata)
46557  data_tmp = ishft(data_tmp, 7)
46558  data_tmp = iand(data_tmp, mask_left(7))
46559  pack_tmp = ior(pack_tmp, data_tmp)
46560  ipack = ipack + 1
46561  packed_data(ipack) = pack_tmp
46562  data_tmp = full_data(idata)
46563  pack_tmp = ishft(data_tmp, 14)
46564  pack_tmp = ishft(pack_tmp, -14)
46565  idata = idata + 1
46566  data_tmp = full_data(idata)
46567  data_tmp = ishft(data_tmp, 7)
46568  data_tmp = iand(data_tmp, mask_left(14))
46569  pack_tmp = ior(pack_tmp, data_tmp)
46570  ipack = ipack + 1
46571  packed_data(ipack) = pack_tmp
46572  data_tmp = full_data(idata)
46573  pack_tmp = ishft(data_tmp, 21)
46574  pack_tmp = ishft(pack_tmp, -21)
46575  idata = idata + 1
46576  data_tmp = full_data(idata)
46577  data_tmp = ishft(data_tmp, 7)
46578  data_tmp = iand(data_tmp, mask_left(21))
46579  pack_tmp = ior(pack_tmp, data_tmp)
46580  ipack = ipack + 1
46581  packed_data(ipack) = pack_tmp
46582  data_tmp = full_data(idata)
46583  pack_tmp = ishft(data_tmp, 28)
46584  pack_tmp = ishft(pack_tmp, -28)
46585  idata = idata + 1
46586  data_tmp = full_data(idata)
46587  data_tmp = ishft(data_tmp, 7)
46588  data_tmp = iand(data_tmp, mask_left(28))
46589  pack_tmp = ior(pack_tmp, data_tmp)
46590  ipack = ipack + 1
46591  packed_data(ipack) = pack_tmp
46592  data_tmp = full_data(idata)
46593  pack_tmp = ishft(data_tmp, 35)
46594  pack_tmp = ishft(pack_tmp, -35)
46595  idata = idata + 1
46596  data_tmp = full_data(idata)
46597  data_tmp = ishft(data_tmp, 7)
46598  data_tmp = iand(data_tmp, mask_left(35))
46599  pack_tmp = ior(pack_tmp, data_tmp)
46600  ipack = ipack + 1
46601  packed_data(ipack) = pack_tmp
46602  data_tmp = full_data(idata)
46603  pack_tmp = ishft(data_tmp, 42)
46604  pack_tmp = ishft(pack_tmp, -42)
46605  idata = idata + 1
46606  data_tmp = full_data(idata)
46607  data_tmp = ishft(data_tmp, 7)
46608  data_tmp = iand(data_tmp, mask_left(42))
46609  pack_tmp = ior(pack_tmp, data_tmp)
46610  ipack = ipack + 1
46611  packed_data(ipack) = pack_tmp
46612  data_tmp = full_data(idata)
46613  pack_tmp = ishft(data_tmp, 49)
46614  pack_tmp = ishft(pack_tmp, -49)
46615  idata = idata + 1
46616  data_tmp = full_data(idata)
46617  data_tmp = ishft(data_tmp, 7)
46618  data_tmp = iand(data_tmp, mask_left(49))
46619  pack_tmp = ior(pack_tmp, data_tmp)
46620  ipack = ipack + 1
46621  packed_data(ipack) = pack_tmp
46622  data_tmp = full_data(idata)
46623  pack_tmp = ishft(data_tmp, 56)
46624  pack_tmp = ishft(pack_tmp, -56)
46625  idata = idata + 1
46626  data_tmp = full_data(idata)
46627  data_tmp = ishft(data_tmp, 7)
46628  data_tmp = iand(data_tmp, mask_left(56))
46629  pack_tmp = ior(pack_tmp, data_tmp)
46630  ipack = ipack + 1
46631  packed_data(ipack) = pack_tmp
46632  data_tmp = full_data(idata)
46633  pack_tmp = ishft(data_tmp, 63)
46634  pack_tmp = ishft(pack_tmp, -57)
46635  idata = idata + 1
46636  data_tmp = full_data(idata)
46637  data_tmp = ishft(data_tmp, 7)
46638  pack_tmp = ior(pack_tmp, data_tmp)
46639  pack_tmp = ishft(pack_tmp, -6)
46640  idata = idata + 1
46641  data_tmp = full_data(idata)
46642  data_tmp = ishft(data_tmp, 7)
46643  data_tmp = iand(data_tmp, mask_left(6))
46644  pack_tmp = ior(pack_tmp, data_tmp)
46645  ipack = ipack + 1
46646  packed_data(ipack) = pack_tmp
46647  data_tmp = full_data(idata)
46648  pack_tmp = ishft(data_tmp, 13)
46649  pack_tmp = ishft(pack_tmp, -13)
46650  idata = idata + 1
46651  data_tmp = full_data(idata)
46652  data_tmp = ishft(data_tmp, 7)
46653  data_tmp = iand(data_tmp, mask_left(13))
46654  pack_tmp = ior(pack_tmp, data_tmp)
46655  ipack = ipack + 1
46656  packed_data(ipack) = pack_tmp
46657  data_tmp = full_data(idata)
46658  pack_tmp = ishft(data_tmp, 20)
46659  pack_tmp = ishft(pack_tmp, -20)
46660  idata = idata + 1
46661  data_tmp = full_data(idata)
46662  data_tmp = ishft(data_tmp, 7)
46663  data_tmp = iand(data_tmp, mask_left(20))
46664  pack_tmp = ior(pack_tmp, data_tmp)
46665  ipack = ipack + 1
46666  packed_data(ipack) = pack_tmp
46667  data_tmp = full_data(idata)
46668  pack_tmp = ishft(data_tmp, 27)
46669  pack_tmp = ishft(pack_tmp, -27)
46670  idata = idata + 1
46671  data_tmp = full_data(idata)
46672  data_tmp = ishft(data_tmp, 7)
46673  data_tmp = iand(data_tmp, mask_left(27))
46674  pack_tmp = ior(pack_tmp, data_tmp)
46675  ipack = ipack + 1
46676  packed_data(ipack) = pack_tmp
46677  data_tmp = full_data(idata)
46678  pack_tmp = ishft(data_tmp, 34)
46679  pack_tmp = ishft(pack_tmp, -34)
46680  idata = idata + 1
46681  data_tmp = full_data(idata)
46682  data_tmp = ishft(data_tmp, 7)
46683  data_tmp = iand(data_tmp, mask_left(34))
46684  pack_tmp = ior(pack_tmp, data_tmp)
46685  ipack = ipack + 1
46686  packed_data(ipack) = pack_tmp
46687  data_tmp = full_data(idata)
46688  pack_tmp = ishft(data_tmp, 41)
46689  pack_tmp = ishft(pack_tmp, -41)
46690  idata = idata + 1
46691  data_tmp = full_data(idata)
46692  data_tmp = ishft(data_tmp, 7)
46693  data_tmp = iand(data_tmp, mask_left(41))
46694  pack_tmp = ior(pack_tmp, data_tmp)
46695  ipack = ipack + 1
46696  packed_data(ipack) = pack_tmp
46697  data_tmp = full_data(idata)
46698  pack_tmp = ishft(data_tmp, 48)
46699  pack_tmp = ishft(pack_tmp, -48)
46700  idata = idata + 1
46701  data_tmp = full_data(idata)
46702  data_tmp = ishft(data_tmp, 7)
46703  data_tmp = iand(data_tmp, mask_left(48))
46704  pack_tmp = ior(pack_tmp, data_tmp)
46705  ipack = ipack + 1
46706  packed_data(ipack) = pack_tmp
46707  data_tmp = full_data(idata)
46708  pack_tmp = ishft(data_tmp, 55)
46709  pack_tmp = ishft(pack_tmp, -55)
46710  idata = idata + 1
46711  data_tmp = full_data(idata)
46712  data_tmp = ishft(data_tmp, 7)
46713  data_tmp = iand(data_tmp, mask_left(55))
46714  pack_tmp = ior(pack_tmp, data_tmp)
46715  ipack = ipack + 1
46716  packed_data(ipack) = pack_tmp
46717  data_tmp = full_data(idata)
46718  pack_tmp = ishft(data_tmp, 62)
46719  pack_tmp = ishft(pack_tmp, -57)
46720  idata = idata + 1
46721  data_tmp = full_data(idata)
46722  data_tmp = ishft(data_tmp, 7)
46723  pack_tmp = ior(pack_tmp, data_tmp)
46724  pack_tmp = ishft(pack_tmp, -5)
46725  idata = idata + 1
46726  data_tmp = full_data(idata)
46727  data_tmp = ishft(data_tmp, 7)
46728  data_tmp = iand(data_tmp, mask_left(5))
46729  pack_tmp = ior(pack_tmp, data_tmp)
46730  ipack = ipack + 1
46731  packed_data(ipack) = pack_tmp
46732  data_tmp = full_data(idata)
46733  pack_tmp = ishft(data_tmp, 12)
46734  pack_tmp = ishft(pack_tmp, -12)
46735  idata = idata + 1
46736  data_tmp = full_data(idata)
46737  data_tmp = ishft(data_tmp, 7)
46738  data_tmp = iand(data_tmp, mask_left(12))
46739  pack_tmp = ior(pack_tmp, data_tmp)
46740  ipack = ipack + 1
46741  packed_data(ipack) = pack_tmp
46742  data_tmp = full_data(idata)
46743  pack_tmp = ishft(data_tmp, 19)
46744  pack_tmp = ishft(pack_tmp, -19)
46745  idata = idata + 1
46746  data_tmp = full_data(idata)
46747  data_tmp = ishft(data_tmp, 7)
46748  data_tmp = iand(data_tmp, mask_left(19))
46749  pack_tmp = ior(pack_tmp, data_tmp)
46750  ipack = ipack + 1
46751  packed_data(ipack) = pack_tmp
46752  data_tmp = full_data(idata)
46753  pack_tmp = ishft(data_tmp, 26)
46754  pack_tmp = ishft(pack_tmp, -26)
46755  idata = idata + 1
46756  data_tmp = full_data(idata)
46757  data_tmp = ishft(data_tmp, 7)
46758  data_tmp = iand(data_tmp, mask_left(26))
46759  pack_tmp = ior(pack_tmp, data_tmp)
46760  ipack = ipack + 1
46761  packed_data(ipack) = pack_tmp
46762  data_tmp = full_data(idata)
46763  pack_tmp = ishft(data_tmp, 33)
46764  pack_tmp = ishft(pack_tmp, -33)
46765  idata = idata + 1
46766  data_tmp = full_data(idata)
46767  data_tmp = ishft(data_tmp, 7)
46768  data_tmp = iand(data_tmp, mask_left(33))
46769  pack_tmp = ior(pack_tmp, data_tmp)
46770  ipack = ipack + 1
46771  packed_data(ipack) = pack_tmp
46772  data_tmp = full_data(idata)
46773  pack_tmp = ishft(data_tmp, 40)
46774  pack_tmp = ishft(pack_tmp, -40)
46775  idata = idata + 1
46776  data_tmp = full_data(idata)
46777  data_tmp = ishft(data_tmp, 7)
46778  data_tmp = iand(data_tmp, mask_left(40))
46779  pack_tmp = ior(pack_tmp, data_tmp)
46780  ipack = ipack + 1
46781  packed_data(ipack) = pack_tmp
46782  data_tmp = full_data(idata)
46783  pack_tmp = ishft(data_tmp, 47)
46784  pack_tmp = ishft(pack_tmp, -47)
46785  idata = idata + 1
46786  data_tmp = full_data(idata)
46787  data_tmp = ishft(data_tmp, 7)
46788  data_tmp = iand(data_tmp, mask_left(47))
46789  pack_tmp = ior(pack_tmp, data_tmp)
46790  ipack = ipack + 1
46791  packed_data(ipack) = pack_tmp
46792  data_tmp = full_data(idata)
46793  pack_tmp = ishft(data_tmp, 54)
46794  pack_tmp = ishft(pack_tmp, -54)
46795  idata = idata + 1
46796  data_tmp = full_data(idata)
46797  data_tmp = ishft(data_tmp, 7)
46798  data_tmp = iand(data_tmp, mask_left(54))
46799  pack_tmp = ior(pack_tmp, data_tmp)
46800  ipack = ipack + 1
46801  packed_data(ipack) = pack_tmp
46802  data_tmp = full_data(idata)
46803  pack_tmp = ishft(data_tmp, 61)
46804  pack_tmp = ishft(pack_tmp, -57)
46805  idata = idata + 1
46806  data_tmp = full_data(idata)
46807  data_tmp = ishft(data_tmp, 7)
46808  pack_tmp = ior(pack_tmp, data_tmp)
46809  pack_tmp = ishft(pack_tmp, -4)
46810  idata = idata + 1
46811  data_tmp = full_data(idata)
46812  data_tmp = ishft(data_tmp, 7)
46813  data_tmp = iand(data_tmp, mask_left(4))
46814  pack_tmp = ior(pack_tmp, data_tmp)
46815  ipack = ipack + 1
46816  packed_data(ipack) = pack_tmp
46817  data_tmp = full_data(idata)
46818  pack_tmp = ishft(data_tmp, 11)
46819  pack_tmp = ishft(pack_tmp, -11)
46820  idata = idata + 1
46821  data_tmp = full_data(idata)
46822  data_tmp = ishft(data_tmp, 7)
46823  data_tmp = iand(data_tmp, mask_left(11))
46824  pack_tmp = ior(pack_tmp, data_tmp)
46825  ipack = ipack + 1
46826  packed_data(ipack) = pack_tmp
46827  data_tmp = full_data(idata)
46828  pack_tmp = ishft(data_tmp, 18)
46829  pack_tmp = ishft(pack_tmp, -18)
46830  idata = idata + 1
46831  data_tmp = full_data(idata)
46832  data_tmp = ishft(data_tmp, 7)
46833  data_tmp = iand(data_tmp, mask_left(18))
46834  pack_tmp = ior(pack_tmp, data_tmp)
46835  ipack = ipack + 1
46836  packed_data(ipack) = pack_tmp
46837  data_tmp = full_data(idata)
46838  pack_tmp = ishft(data_tmp, 25)
46839  pack_tmp = ishft(pack_tmp, -25)
46840  idata = idata + 1
46841  data_tmp = full_data(idata)
46842  data_tmp = ishft(data_tmp, 7)
46843  data_tmp = iand(data_tmp, mask_left(25))
46844  pack_tmp = ior(pack_tmp, data_tmp)
46845  ipack = ipack + 1
46846  packed_data(ipack) = pack_tmp
46847  data_tmp = full_data(idata)
46848  pack_tmp = ishft(data_tmp, 32)
46849  pack_tmp = ishft(pack_tmp, -32)
46850  idata = idata + 1
46851  data_tmp = full_data(idata)
46852  data_tmp = ishft(data_tmp, 7)
46853  data_tmp = iand(data_tmp, mask_left(32))
46854  pack_tmp = ior(pack_tmp, data_tmp)
46855  ipack = ipack + 1
46856  packed_data(ipack) = pack_tmp
46857  data_tmp = full_data(idata)
46858  pack_tmp = ishft(data_tmp, 39)
46859  pack_tmp = ishft(pack_tmp, -39)
46860  idata = idata + 1
46861  data_tmp = full_data(idata)
46862  data_tmp = ishft(data_tmp, 7)
46863  data_tmp = iand(data_tmp, mask_left(39))
46864  pack_tmp = ior(pack_tmp, data_tmp)
46865  ipack = ipack + 1
46866  packed_data(ipack) = pack_tmp
46867  data_tmp = full_data(idata)
46868  pack_tmp = ishft(data_tmp, 46)
46869  pack_tmp = ishft(pack_tmp, -46)
46870  idata = idata + 1
46871  data_tmp = full_data(idata)
46872  data_tmp = ishft(data_tmp, 7)
46873  data_tmp = iand(data_tmp, mask_left(46))
46874  pack_tmp = ior(pack_tmp, data_tmp)
46875  ipack = ipack + 1
46876  packed_data(ipack) = pack_tmp
46877  data_tmp = full_data(idata)
46878  pack_tmp = ishft(data_tmp, 53)
46879  pack_tmp = ishft(pack_tmp, -53)
46880  idata = idata + 1
46881  data_tmp = full_data(idata)
46882  data_tmp = ishft(data_tmp, 7)
46883  data_tmp = iand(data_tmp, mask_left(53))
46884  pack_tmp = ior(pack_tmp, data_tmp)
46885  ipack = ipack + 1
46886  packed_data(ipack) = pack_tmp
46887  data_tmp = full_data(idata)
46888  pack_tmp = ishft(data_tmp, 60)
46889  pack_tmp = ishft(pack_tmp, -57)
46890  idata = idata + 1
46891  data_tmp = full_data(idata)
46892  data_tmp = ishft(data_tmp, 7)
46893  pack_tmp = ior(pack_tmp, data_tmp)
46894  pack_tmp = ishft(pack_tmp, -3)
46895  idata = idata + 1
46896  data_tmp = full_data(idata)
46897  data_tmp = ishft(data_tmp, 7)
46898  data_tmp = iand(data_tmp, mask_left(3))
46899  pack_tmp = ior(pack_tmp, data_tmp)
46900  ipack = ipack + 1
46901  packed_data(ipack) = pack_tmp
46902  data_tmp = full_data(idata)
46903  pack_tmp = ishft(data_tmp, 10)
46904  pack_tmp = ishft(pack_tmp, -10)
46905  idata = idata + 1
46906  data_tmp = full_data(idata)
46907  data_tmp = ishft(data_tmp, 7)
46908  data_tmp = iand(data_tmp, mask_left(10))
46909  pack_tmp = ior(pack_tmp, data_tmp)
46910  ipack = ipack + 1
46911  packed_data(ipack) = pack_tmp
46912  data_tmp = full_data(idata)
46913  pack_tmp = ishft(data_tmp, 17)
46914  pack_tmp = ishft(pack_tmp, -17)
46915  idata = idata + 1
46916  data_tmp = full_data(idata)
46917  data_tmp = ishft(data_tmp, 7)
46918  data_tmp = iand(data_tmp, mask_left(17))
46919  pack_tmp = ior(pack_tmp, data_tmp)
46920  ipack = ipack + 1
46921  packed_data(ipack) = pack_tmp
46922  data_tmp = full_data(idata)
46923  pack_tmp = ishft(data_tmp, 24)
46924  pack_tmp = ishft(pack_tmp, -24)
46925  idata = idata + 1
46926  data_tmp = full_data(idata)
46927  data_tmp = ishft(data_tmp, 7)
46928  data_tmp = iand(data_tmp, mask_left(24))
46929  pack_tmp = ior(pack_tmp, data_tmp)
46930  ipack = ipack + 1
46931  packed_data(ipack) = pack_tmp
46932  data_tmp = full_data(idata)
46933  pack_tmp = ishft(data_tmp, 31)
46934  pack_tmp = ishft(pack_tmp, -31)
46935  idata = idata + 1
46936  data_tmp = full_data(idata)
46937  data_tmp = ishft(data_tmp, 7)
46938  data_tmp = iand(data_tmp, mask_left(31))
46939  pack_tmp = ior(pack_tmp, data_tmp)
46940  ipack = ipack + 1
46941  packed_data(ipack) = pack_tmp
46942  data_tmp = full_data(idata)
46943  pack_tmp = ishft(data_tmp, 38)
46944  pack_tmp = ishft(pack_tmp, -38)
46945  idata = idata + 1
46946  data_tmp = full_data(idata)
46947  data_tmp = ishft(data_tmp, 7)
46948  data_tmp = iand(data_tmp, mask_left(38))
46949  pack_tmp = ior(pack_tmp, data_tmp)
46950  ipack = ipack + 1
46951  packed_data(ipack) = pack_tmp
46952  data_tmp = full_data(idata)
46953  pack_tmp = ishft(data_tmp, 45)
46954  pack_tmp = ishft(pack_tmp, -45)
46955  idata = idata + 1
46956  data_tmp = full_data(idata)
46957  data_tmp = ishft(data_tmp, 7)
46958  data_tmp = iand(data_tmp, mask_left(45))
46959  pack_tmp = ior(pack_tmp, data_tmp)
46960  ipack = ipack + 1
46961  packed_data(ipack) = pack_tmp
46962  data_tmp = full_data(idata)
46963  pack_tmp = ishft(data_tmp, 52)
46964  pack_tmp = ishft(pack_tmp, -52)
46965  idata = idata + 1
46966  data_tmp = full_data(idata)
46967  data_tmp = ishft(data_tmp, 7)
46968  data_tmp = iand(data_tmp, mask_left(52))
46969  pack_tmp = ior(pack_tmp, data_tmp)
46970  ipack = ipack + 1
46971  packed_data(ipack) = pack_tmp
46972  data_tmp = full_data(idata)
46973  pack_tmp = ishft(data_tmp, 59)
46974  pack_tmp = ishft(pack_tmp, -57)
46975  idata = idata + 1
46976  data_tmp = full_data(idata)
46977  data_tmp = ishft(data_tmp, 7)
46978  pack_tmp = ior(pack_tmp, data_tmp)
46979  pack_tmp = ishft(pack_tmp, -2)
46980  idata = idata + 1
46981  data_tmp = full_data(idata)
46982  data_tmp = ishft(data_tmp, 7)
46983  data_tmp = iand(data_tmp, mask_left(2))
46984  pack_tmp = ior(pack_tmp, data_tmp)
46985  ipack = ipack + 1
46986  packed_data(ipack) = pack_tmp
46987  data_tmp = full_data(idata)
46988  pack_tmp = ishft(data_tmp, 9)
46989  pack_tmp = ishft(pack_tmp, -9)
46990  idata = idata + 1
46991  data_tmp = full_data(idata)
46992  data_tmp = ishft(data_tmp, 7)
46993  data_tmp = iand(data_tmp, mask_left(9))
46994  pack_tmp = ior(pack_tmp, data_tmp)
46995  ipack = ipack + 1
46996  packed_data(ipack) = pack_tmp
46997  data_tmp = full_data(idata)
46998  pack_tmp = ishft(data_tmp, 16)
46999  pack_tmp = ishft(pack_tmp, -16)
47000  idata = idata + 1
47001  data_tmp = full_data(idata)
47002  data_tmp = ishft(data_tmp, 7)
47003  data_tmp = iand(data_tmp, mask_left(16))
47004  pack_tmp = ior(pack_tmp, data_tmp)
47005  ipack = ipack + 1
47006  packed_data(ipack) = pack_tmp
47007  data_tmp = full_data(idata)
47008  pack_tmp = ishft(data_tmp, 23)
47009  pack_tmp = ishft(pack_tmp, -23)
47010  idata = idata + 1
47011  data_tmp = full_data(idata)
47012  data_tmp = ishft(data_tmp, 7)
47013  data_tmp = iand(data_tmp, mask_left(23))
47014  pack_tmp = ior(pack_tmp, data_tmp)
47015  ipack = ipack + 1
47016  packed_data(ipack) = pack_tmp
47017  data_tmp = full_data(idata)
47018  pack_tmp = ishft(data_tmp, 30)
47019  pack_tmp = ishft(pack_tmp, -30)
47020  idata = idata + 1
47021  data_tmp = full_data(idata)
47022  data_tmp = ishft(data_tmp, 7)
47023  data_tmp = iand(data_tmp, mask_left(30))
47024  pack_tmp = ior(pack_tmp, data_tmp)
47025  ipack = ipack + 1
47026  packed_data(ipack) = pack_tmp
47027  data_tmp = full_data(idata)
47028  pack_tmp = ishft(data_tmp, 37)
47029  pack_tmp = ishft(pack_tmp, -37)
47030  idata = idata + 1
47031  data_tmp = full_data(idata)
47032  data_tmp = ishft(data_tmp, 7)
47033  data_tmp = iand(data_tmp, mask_left(37))
47034  pack_tmp = ior(pack_tmp, data_tmp)
47035  ipack = ipack + 1
47036  packed_data(ipack) = pack_tmp
47037  data_tmp = full_data(idata)
47038  pack_tmp = ishft(data_tmp, 44)
47039  pack_tmp = ishft(pack_tmp, -44)
47040  idata = idata + 1
47041  data_tmp = full_data(idata)
47042  data_tmp = ishft(data_tmp, 7)
47043  data_tmp = iand(data_tmp, mask_left(44))
47044  pack_tmp = ior(pack_tmp, data_tmp)
47045  ipack = ipack + 1
47046  packed_data(ipack) = pack_tmp
47047  data_tmp = full_data(idata)
47048  pack_tmp = ishft(data_tmp, 51)
47049  pack_tmp = ishft(pack_tmp, -51)
47050  idata = idata + 1
47051  data_tmp = full_data(idata)
47052  data_tmp = ishft(data_tmp, 7)
47053  data_tmp = iand(data_tmp, mask_left(51))
47054  pack_tmp = ior(pack_tmp, data_tmp)
47055  ipack = ipack + 1
47056  packed_data(ipack) = pack_tmp
47057  data_tmp = full_data(idata)
47058  pack_tmp = ishft(data_tmp, 58)
47059  pack_tmp = ishft(pack_tmp, -57)
47060  idata = idata + 1
47061  data_tmp = full_data(idata)
47062  data_tmp = ishft(data_tmp, 7)
47063  pack_tmp = ior(pack_tmp, data_tmp)
47064  pack_tmp = ishft(pack_tmp, -1)
47065  idata = idata + 1
47066  data_tmp = full_data(idata)
47067  data_tmp = ishft(data_tmp, 7)
47068  data_tmp = iand(data_tmp, mask_left(1))
47069  pack_tmp = ior(pack_tmp, data_tmp)
47070  ipack = ipack + 1
47071  packed_data(ipack) = pack_tmp
47072  data_tmp = full_data(idata)
47073  pack_tmp = ishft(data_tmp, 8)
47074  pack_tmp = ishft(pack_tmp, -8)
47075  idata = idata + 1
47076  data_tmp = full_data(idata)
47077  data_tmp = ishft(data_tmp, 7)
47078  data_tmp = iand(data_tmp, mask_left(8))
47079  pack_tmp = ior(pack_tmp, data_tmp)
47080  ipack = ipack + 1
47081  packed_data(ipack) = pack_tmp
47082  data_tmp = full_data(idata)
47083  pack_tmp = ishft(data_tmp, 15)
47084  pack_tmp = ishft(pack_tmp, -15)
47085  idata = idata + 1
47086  data_tmp = full_data(idata)
47087  data_tmp = ishft(data_tmp, 7)
47088  data_tmp = iand(data_tmp, mask_left(15))
47089  pack_tmp = ior(pack_tmp, data_tmp)
47090  ipack = ipack + 1
47091  packed_data(ipack) = pack_tmp
47092  data_tmp = full_data(idata)
47093  pack_tmp = ishft(data_tmp, 22)
47094  pack_tmp = ishft(pack_tmp, -22)
47095  idata = idata + 1
47096  data_tmp = full_data(idata)
47097  data_tmp = ishft(data_tmp, 7)
47098  data_tmp = iand(data_tmp, mask_left(22))
47099  pack_tmp = ior(pack_tmp, data_tmp)
47100  ipack = ipack + 1
47101  packed_data(ipack) = pack_tmp
47102  data_tmp = full_data(idata)
47103  pack_tmp = ishft(data_tmp, 29)
47104  pack_tmp = ishft(pack_tmp, -29)
47105  idata = idata + 1
47106  data_tmp = full_data(idata)
47107  data_tmp = ishft(data_tmp, 7)
47108  data_tmp = iand(data_tmp, mask_left(29))
47109  pack_tmp = ior(pack_tmp, data_tmp)
47110  ipack = ipack + 1
47111  packed_data(ipack) = pack_tmp
47112  data_tmp = full_data(idata)
47113  pack_tmp = ishft(data_tmp, 36)
47114  pack_tmp = ishft(pack_tmp, -36)
47115  idata = idata + 1
47116  data_tmp = full_data(idata)
47117  data_tmp = ishft(data_tmp, 7)
47118  data_tmp = iand(data_tmp, mask_left(36))
47119  pack_tmp = ior(pack_tmp, data_tmp)
47120  ipack = ipack + 1
47121  packed_data(ipack) = pack_tmp
47122  data_tmp = full_data(idata)
47123  pack_tmp = ishft(data_tmp, 43)
47124  pack_tmp = ishft(pack_tmp, -43)
47125  idata = idata + 1
47126  data_tmp = full_data(idata)
47127  data_tmp = ishft(data_tmp, 7)
47128  data_tmp = iand(data_tmp, mask_left(43))
47129  pack_tmp = ior(pack_tmp, data_tmp)
47130  ipack = ipack + 1
47131  packed_data(ipack) = pack_tmp
47132  data_tmp = full_data(idata)
47133  pack_tmp = ishft(data_tmp, 50)
47134  pack_tmp = ishft(pack_tmp, -50)
47135  idata = idata + 1
47136  data_tmp = full_data(idata)
47137  data_tmp = ishft(data_tmp, 7)
47138  data_tmp = iand(data_tmp, mask_left(50))
47139  pack_tmp = ior(pack_tmp, data_tmp)
47140  ipack = ipack + 1
47141  packed_data(ipack) = pack_tmp
47142  data_tmp = full_data(idata)
47143  pack_tmp = ishft(data_tmp, 57)
47144  pack_tmp = ishft(pack_tmp, -57)
47145  idata = idata + 1
47146  data_tmp = full_data(idata)
47147  data_tmp = ishft(data_tmp, 7)
47148  pack_tmp = ior(pack_tmp, data_tmp)
47149  pack_tmp = ishft(pack_tmp, 0)
47150  pack_tmp = ishft(pack_tmp, 0)
47151  ipack = ipack + 1
47152  packed_data(ipack) = pack_tmp
47153  END DO
47154  IF (ndata_rep < ndata) THEN
47155  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
47156  END IF
47157  END SUBROUTINE ints2bits_57
47158 
47159 ! **************************************************************************************************
47160 !> \brief ...
47161 !> \param Ndata ...
47162 !> \param packed_data ...
47163 !> \param full_data ...
47164 ! **************************************************************************************************
47165  SUBROUTINE bits2ints_57(Ndata, packed_data, full_data)
47166  INTEGER, INTENT(IN) :: Ndata
47167  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
47168  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
47169 
47170  INTEGER, PARAMETER :: Nbits = 57
47171 
47172  INTEGER :: idata, ipack, kdata, Ndata_rep
47173  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
47174 
47175  ipack = 0
47176  idata = 0
47177  pack_tmp = 0
47178  ndata_rep = (ndata/64)*64
47179  DO kdata = 1, ndata_rep, 64
47180  idata = idata + 1
47181  data_tmp = ishft(pack_tmp, 57)
47182  ipack = ipack + 1
47183  pack_tmp = packed_data(ipack)
47184  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(57)))
47185  pack_tmp = ishft(pack_tmp, -57)
47186  idata = idata + 1
47187  data_tmp = ishft(pack_tmp, 50)
47188  ipack = ipack + 1
47189  pack_tmp = packed_data(ipack)
47190  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
47191  pack_tmp = ishft(pack_tmp, -50)
47192  idata = idata + 1
47193  data_tmp = ishft(pack_tmp, 43)
47194  ipack = ipack + 1
47195  pack_tmp = packed_data(ipack)
47196  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
47197  pack_tmp = ishft(pack_tmp, -43)
47198  idata = idata + 1
47199  data_tmp = ishft(pack_tmp, 36)
47200  ipack = ipack + 1
47201  pack_tmp = packed_data(ipack)
47202  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
47203  pack_tmp = ishft(pack_tmp, -36)
47204  idata = idata + 1
47205  data_tmp = ishft(pack_tmp, 29)
47206  ipack = ipack + 1
47207  pack_tmp = packed_data(ipack)
47208  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
47209  pack_tmp = ishft(pack_tmp, -29)
47210  idata = idata + 1
47211  data_tmp = ishft(pack_tmp, 22)
47212  ipack = ipack + 1
47213  pack_tmp = packed_data(ipack)
47214  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
47215  pack_tmp = ishft(pack_tmp, -22)
47216  idata = idata + 1
47217  data_tmp = ishft(pack_tmp, 15)
47218  ipack = ipack + 1
47219  pack_tmp = packed_data(ipack)
47220  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
47221  pack_tmp = ishft(pack_tmp, -15)
47222  idata = idata + 1
47223  data_tmp = ishft(pack_tmp, 8)
47224  ipack = ipack + 1
47225  pack_tmp = packed_data(ipack)
47226  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
47227  pack_tmp = ishft(pack_tmp, -8)
47228  idata = idata + 1
47229  data_tmp = ishft(pack_tmp, 1)
47230  ipack = ipack + 1
47231  pack_tmp = packed_data(ipack)
47232  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
47233  pack_tmp = ishft(pack_tmp, -1)
47234  idata = idata + 1
47235  data_tmp = iand(pack_tmp, mask_right(nbits))
47236  full_data(idata) = data_tmp
47237  pack_tmp = ishft(pack_tmp, -nbits)
47238  idata = idata + 1
47239  data_tmp = ishft(pack_tmp, 51)
47240  ipack = ipack + 1
47241  pack_tmp = packed_data(ipack)
47242  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
47243  pack_tmp = ishft(pack_tmp, -51)
47244  idata = idata + 1
47245  data_tmp = ishft(pack_tmp, 44)
47246  ipack = ipack + 1
47247  pack_tmp = packed_data(ipack)
47248  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
47249  pack_tmp = ishft(pack_tmp, -44)
47250  idata = idata + 1
47251  data_tmp = ishft(pack_tmp, 37)
47252  ipack = ipack + 1
47253  pack_tmp = packed_data(ipack)
47254  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
47255  pack_tmp = ishft(pack_tmp, -37)
47256  idata = idata + 1
47257  data_tmp = ishft(pack_tmp, 30)
47258  ipack = ipack + 1
47259  pack_tmp = packed_data(ipack)
47260  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
47261  pack_tmp = ishft(pack_tmp, -30)
47262  idata = idata + 1
47263  data_tmp = ishft(pack_tmp, 23)
47264  ipack = ipack + 1
47265  pack_tmp = packed_data(ipack)
47266  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
47267  pack_tmp = ishft(pack_tmp, -23)
47268  idata = idata + 1
47269  data_tmp = ishft(pack_tmp, 16)
47270  ipack = ipack + 1
47271  pack_tmp = packed_data(ipack)
47272  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
47273  pack_tmp = ishft(pack_tmp, -16)
47274  idata = idata + 1
47275  data_tmp = ishft(pack_tmp, 9)
47276  ipack = ipack + 1
47277  pack_tmp = packed_data(ipack)
47278  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
47279  pack_tmp = ishft(pack_tmp, -9)
47280  idata = idata + 1
47281  data_tmp = ishft(pack_tmp, 2)
47282  ipack = ipack + 1
47283  pack_tmp = packed_data(ipack)
47284  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
47285  pack_tmp = ishft(pack_tmp, -2)
47286  idata = idata + 1
47287  data_tmp = iand(pack_tmp, mask_right(nbits))
47288  full_data(idata) = data_tmp
47289  pack_tmp = ishft(pack_tmp, -nbits)
47290  idata = idata + 1
47291  data_tmp = ishft(pack_tmp, 52)
47292  ipack = ipack + 1
47293  pack_tmp = packed_data(ipack)
47294  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
47295  pack_tmp = ishft(pack_tmp, -52)
47296  idata = idata + 1
47297  data_tmp = ishft(pack_tmp, 45)
47298  ipack = ipack + 1
47299  pack_tmp = packed_data(ipack)
47300  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
47301  pack_tmp = ishft(pack_tmp, -45)
47302  idata = idata + 1
47303  data_tmp = ishft(pack_tmp, 38)
47304  ipack = ipack + 1
47305  pack_tmp = packed_data(ipack)
47306  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
47307  pack_tmp = ishft(pack_tmp, -38)
47308  idata = idata + 1
47309  data_tmp = ishft(pack_tmp, 31)
47310  ipack = ipack + 1
47311  pack_tmp = packed_data(ipack)
47312  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
47313  pack_tmp = ishft(pack_tmp, -31)
47314  idata = idata + 1
47315  data_tmp = ishft(pack_tmp, 24)
47316  ipack = ipack + 1
47317  pack_tmp = packed_data(ipack)
47318  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
47319  pack_tmp = ishft(pack_tmp, -24)
47320  idata = idata + 1
47321  data_tmp = ishft(pack_tmp, 17)
47322  ipack = ipack + 1
47323  pack_tmp = packed_data(ipack)
47324  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
47325  pack_tmp = ishft(pack_tmp, -17)
47326  idata = idata + 1
47327  data_tmp = ishft(pack_tmp, 10)
47328  ipack = ipack + 1
47329  pack_tmp = packed_data(ipack)
47330  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
47331  pack_tmp = ishft(pack_tmp, -10)
47332  idata = idata + 1
47333  data_tmp = ishft(pack_tmp, 3)
47334  ipack = ipack + 1
47335  pack_tmp = packed_data(ipack)
47336  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
47337  pack_tmp = ishft(pack_tmp, -3)
47338  idata = idata + 1
47339  data_tmp = iand(pack_tmp, mask_right(nbits))
47340  full_data(idata) = data_tmp
47341  pack_tmp = ishft(pack_tmp, -nbits)
47342  idata = idata + 1
47343  data_tmp = ishft(pack_tmp, 53)
47344  ipack = ipack + 1
47345  pack_tmp = packed_data(ipack)
47346  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
47347  pack_tmp = ishft(pack_tmp, -53)
47348  idata = idata + 1
47349  data_tmp = ishft(pack_tmp, 46)
47350  ipack = ipack + 1
47351  pack_tmp = packed_data(ipack)
47352  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
47353  pack_tmp = ishft(pack_tmp, -46)
47354  idata = idata + 1
47355  data_tmp = ishft(pack_tmp, 39)
47356  ipack = ipack + 1
47357  pack_tmp = packed_data(ipack)
47358  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
47359  pack_tmp = ishft(pack_tmp, -39)
47360  idata = idata + 1
47361  data_tmp = ishft(pack_tmp, 32)
47362  ipack = ipack + 1
47363  pack_tmp = packed_data(ipack)
47364  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
47365  pack_tmp = ishft(pack_tmp, -32)
47366  idata = idata + 1
47367  data_tmp = ishft(pack_tmp, 25)
47368  ipack = ipack + 1
47369  pack_tmp = packed_data(ipack)
47370  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
47371  pack_tmp = ishft(pack_tmp, -25)
47372  idata = idata + 1
47373  data_tmp = ishft(pack_tmp, 18)
47374  ipack = ipack + 1
47375  pack_tmp = packed_data(ipack)
47376  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
47377  pack_tmp = ishft(pack_tmp, -18)
47378  idata = idata + 1
47379  data_tmp = ishft(pack_tmp, 11)
47380  ipack = ipack + 1
47381  pack_tmp = packed_data(ipack)
47382  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
47383  pack_tmp = ishft(pack_tmp, -11)
47384  idata = idata + 1
47385  data_tmp = ishft(pack_tmp, 4)
47386  ipack = ipack + 1
47387  pack_tmp = packed_data(ipack)
47388  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
47389  pack_tmp = ishft(pack_tmp, -4)
47390  idata = idata + 1
47391  data_tmp = iand(pack_tmp, mask_right(nbits))
47392  full_data(idata) = data_tmp
47393  pack_tmp = ishft(pack_tmp, -nbits)
47394  idata = idata + 1
47395  data_tmp = ishft(pack_tmp, 54)
47396  ipack = ipack + 1
47397  pack_tmp = packed_data(ipack)
47398  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
47399  pack_tmp = ishft(pack_tmp, -54)
47400  idata = idata + 1
47401  data_tmp = ishft(pack_tmp, 47)
47402  ipack = ipack + 1
47403  pack_tmp = packed_data(ipack)
47404  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
47405  pack_tmp = ishft(pack_tmp, -47)
47406  idata = idata + 1
47407  data_tmp = ishft(pack_tmp, 40)
47408  ipack = ipack + 1
47409  pack_tmp = packed_data(ipack)
47410  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
47411  pack_tmp = ishft(pack_tmp, -40)
47412  idata = idata + 1
47413  data_tmp = ishft(pack_tmp, 33)
47414  ipack = ipack + 1
47415  pack_tmp = packed_data(ipack)
47416  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
47417  pack_tmp = ishft(pack_tmp, -33)
47418  idata = idata + 1
47419  data_tmp = ishft(pack_tmp, 26)
47420  ipack = ipack + 1
47421  pack_tmp = packed_data(ipack)
47422  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
47423  pack_tmp = ishft(pack_tmp, -26)
47424  idata = idata + 1
47425  data_tmp = ishft(pack_tmp, 19)
47426  ipack = ipack + 1
47427  pack_tmp = packed_data(ipack)
47428  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
47429  pack_tmp = ishft(pack_tmp, -19)
47430  idata = idata + 1
47431  data_tmp = ishft(pack_tmp, 12)
47432  ipack = ipack + 1
47433  pack_tmp = packed_data(ipack)
47434  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
47435  pack_tmp = ishft(pack_tmp, -12)
47436  idata = idata + 1
47437  data_tmp = ishft(pack_tmp, 5)
47438  ipack = ipack + 1
47439  pack_tmp = packed_data(ipack)
47440  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
47441  pack_tmp = ishft(pack_tmp, -5)
47442  idata = idata + 1
47443  data_tmp = iand(pack_tmp, mask_right(nbits))
47444  full_data(idata) = data_tmp
47445  pack_tmp = ishft(pack_tmp, -nbits)
47446  idata = idata + 1
47447  data_tmp = ishft(pack_tmp, 55)
47448  ipack = ipack + 1
47449  pack_tmp = packed_data(ipack)
47450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(55)))
47451  pack_tmp = ishft(pack_tmp, -55)
47452  idata = idata + 1
47453  data_tmp = ishft(pack_tmp, 48)
47454  ipack = ipack + 1
47455  pack_tmp = packed_data(ipack)
47456  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
47457  pack_tmp = ishft(pack_tmp, -48)
47458  idata = idata + 1
47459  data_tmp = ishft(pack_tmp, 41)
47460  ipack = ipack + 1
47461  pack_tmp = packed_data(ipack)
47462  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
47463  pack_tmp = ishft(pack_tmp, -41)
47464  idata = idata + 1
47465  data_tmp = ishft(pack_tmp, 34)
47466  ipack = ipack + 1
47467  pack_tmp = packed_data(ipack)
47468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
47469  pack_tmp = ishft(pack_tmp, -34)
47470  idata = idata + 1
47471  data_tmp = ishft(pack_tmp, 27)
47472  ipack = ipack + 1
47473  pack_tmp = packed_data(ipack)
47474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
47475  pack_tmp = ishft(pack_tmp, -27)
47476  idata = idata + 1
47477  data_tmp = ishft(pack_tmp, 20)
47478  ipack = ipack + 1
47479  pack_tmp = packed_data(ipack)
47480  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
47481  pack_tmp = ishft(pack_tmp, -20)
47482  idata = idata + 1
47483  data_tmp = ishft(pack_tmp, 13)
47484  ipack = ipack + 1
47485  pack_tmp = packed_data(ipack)
47486  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
47487  pack_tmp = ishft(pack_tmp, -13)
47488  idata = idata + 1
47489  data_tmp = ishft(pack_tmp, 6)
47490  ipack = ipack + 1
47491  pack_tmp = packed_data(ipack)
47492  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
47493  pack_tmp = ishft(pack_tmp, -6)
47494  idata = idata + 1
47495  data_tmp = iand(pack_tmp, mask_right(nbits))
47496  full_data(idata) = data_tmp
47497  pack_tmp = ishft(pack_tmp, -nbits)
47498  idata = idata + 1
47499  data_tmp = ishft(pack_tmp, 56)
47500  ipack = ipack + 1
47501  pack_tmp = packed_data(ipack)
47502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
47503  pack_tmp = ishft(pack_tmp, -56)
47504  idata = idata + 1
47505  data_tmp = ishft(pack_tmp, 49)
47506  ipack = ipack + 1
47507  pack_tmp = packed_data(ipack)
47508  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
47509  pack_tmp = ishft(pack_tmp, -49)
47510  idata = idata + 1
47511  data_tmp = ishft(pack_tmp, 42)
47512  ipack = ipack + 1
47513  pack_tmp = packed_data(ipack)
47514  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
47515  pack_tmp = ishft(pack_tmp, -42)
47516  idata = idata + 1
47517  data_tmp = ishft(pack_tmp, 35)
47518  ipack = ipack + 1
47519  pack_tmp = packed_data(ipack)
47520  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
47521  pack_tmp = ishft(pack_tmp, -35)
47522  idata = idata + 1
47523  data_tmp = ishft(pack_tmp, 28)
47524  ipack = ipack + 1
47525  pack_tmp = packed_data(ipack)
47526  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
47527  pack_tmp = ishft(pack_tmp, -28)
47528  idata = idata + 1
47529  data_tmp = ishft(pack_tmp, 21)
47530  ipack = ipack + 1
47531  pack_tmp = packed_data(ipack)
47532  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
47533  pack_tmp = ishft(pack_tmp, -21)
47534  idata = idata + 1
47535  data_tmp = ishft(pack_tmp, 14)
47536  ipack = ipack + 1
47537  pack_tmp = packed_data(ipack)
47538  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
47539  pack_tmp = ishft(pack_tmp, -14)
47540  idata = idata + 1
47541  data_tmp = ishft(pack_tmp, 7)
47542  ipack = ipack + 1
47543  pack_tmp = packed_data(ipack)
47544  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
47545  pack_tmp = ishft(pack_tmp, -7)
47546  idata = idata + 1
47547  data_tmp = iand(pack_tmp, mask_right(nbits))
47548  full_data(idata) = data_tmp
47549  pack_tmp = ishft(pack_tmp, -nbits)
47550  END DO
47551  IF (ndata_rep < ndata) THEN
47552  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
47553  END IF
47554  END SUBROUTINE bits2ints_57
47555 
47556 ! **************************************************************************************************
47557 !> \brief ...
47558 !> \param Ndata ...
47559 !> \param packed_data ...
47560 !> \param full_data ...
47561 ! **************************************************************************************************
47562  SUBROUTINE ints2bits_58(Ndata, packed_data, full_data)
47563  INTEGER, INTENT(IN) :: Ndata
47564  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
47565  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
47566 
47567  INTEGER, PARAMETER :: Nbits = 58
47568 
47569  INTEGER :: idata, ipack, kdata, Ndata_rep
47570  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
47571 
47572  idata = 0
47573  ipack = 0
47574  ndata_rep = (ndata/64)*64
47575  DO kdata = 1, ndata_rep, 64
47576  pack_tmp = 0
47577  idata = idata + 1
47578  data_tmp = full_data(idata)
47579  data_tmp = ishft(data_tmp, 6)
47580  pack_tmp = ior(pack_tmp, data_tmp)
47581  pack_tmp = ishft(pack_tmp, -6)
47582  idata = idata + 1
47583  data_tmp = full_data(idata)
47584  data_tmp = ishft(data_tmp, 6)
47585  data_tmp = iand(data_tmp, mask_left(6))
47586  pack_tmp = ior(pack_tmp, data_tmp)
47587  ipack = ipack + 1
47588  packed_data(ipack) = pack_tmp
47589  data_tmp = full_data(idata)
47590  pack_tmp = ishft(data_tmp, 12)
47591  pack_tmp = ishft(pack_tmp, -12)
47592  idata = idata + 1
47593  data_tmp = full_data(idata)
47594  data_tmp = ishft(data_tmp, 6)
47595  data_tmp = iand(data_tmp, mask_left(12))
47596  pack_tmp = ior(pack_tmp, data_tmp)
47597  ipack = ipack + 1
47598  packed_data(ipack) = pack_tmp
47599  data_tmp = full_data(idata)
47600  pack_tmp = ishft(data_tmp, 18)
47601  pack_tmp = ishft(pack_tmp, -18)
47602  idata = idata + 1
47603  data_tmp = full_data(idata)
47604  data_tmp = ishft(data_tmp, 6)
47605  data_tmp = iand(data_tmp, mask_left(18))
47606  pack_tmp = ior(pack_tmp, data_tmp)
47607  ipack = ipack + 1
47608  packed_data(ipack) = pack_tmp
47609  data_tmp = full_data(idata)
47610  pack_tmp = ishft(data_tmp, 24)
47611  pack_tmp = ishft(pack_tmp, -24)
47612  idata = idata + 1
47613  data_tmp = full_data(idata)
47614  data_tmp = ishft(data_tmp, 6)
47615  data_tmp = iand(data_tmp, mask_left(24))
47616  pack_tmp = ior(pack_tmp, data_tmp)
47617  ipack = ipack + 1
47618  packed_data(ipack) = pack_tmp
47619  data_tmp = full_data(idata)
47620  pack_tmp = ishft(data_tmp, 30)
47621  pack_tmp = ishft(pack_tmp, -30)
47622  idata = idata + 1
47623  data_tmp = full_data(idata)
47624  data_tmp = ishft(data_tmp, 6)
47625  data_tmp = iand(data_tmp, mask_left(30))
47626  pack_tmp = ior(pack_tmp, data_tmp)
47627  ipack = ipack + 1
47628  packed_data(ipack) = pack_tmp
47629  data_tmp = full_data(idata)
47630  pack_tmp = ishft(data_tmp, 36)
47631  pack_tmp = ishft(pack_tmp, -36)
47632  idata = idata + 1
47633  data_tmp = full_data(idata)
47634  data_tmp = ishft(data_tmp, 6)
47635  data_tmp = iand(data_tmp, mask_left(36))
47636  pack_tmp = ior(pack_tmp, data_tmp)
47637  ipack = ipack + 1
47638  packed_data(ipack) = pack_tmp
47639  data_tmp = full_data(idata)
47640  pack_tmp = ishft(data_tmp, 42)
47641  pack_tmp = ishft(pack_tmp, -42)
47642  idata = idata + 1
47643  data_tmp = full_data(idata)
47644  data_tmp = ishft(data_tmp, 6)
47645  data_tmp = iand(data_tmp, mask_left(42))
47646  pack_tmp = ior(pack_tmp, data_tmp)
47647  ipack = ipack + 1
47648  packed_data(ipack) = pack_tmp
47649  data_tmp = full_data(idata)
47650  pack_tmp = ishft(data_tmp, 48)
47651  pack_tmp = ishft(pack_tmp, -48)
47652  idata = idata + 1
47653  data_tmp = full_data(idata)
47654  data_tmp = ishft(data_tmp, 6)
47655  data_tmp = iand(data_tmp, mask_left(48))
47656  pack_tmp = ior(pack_tmp, data_tmp)
47657  ipack = ipack + 1
47658  packed_data(ipack) = pack_tmp
47659  data_tmp = full_data(idata)
47660  pack_tmp = ishft(data_tmp, 54)
47661  pack_tmp = ishft(pack_tmp, -54)
47662  idata = idata + 1
47663  data_tmp = full_data(idata)
47664  data_tmp = ishft(data_tmp, 6)
47665  data_tmp = iand(data_tmp, mask_left(54))
47666  pack_tmp = ior(pack_tmp, data_tmp)
47667  ipack = ipack + 1
47668  packed_data(ipack) = pack_tmp
47669  data_tmp = full_data(idata)
47670  pack_tmp = ishft(data_tmp, 60)
47671  pack_tmp = ishft(pack_tmp, -58)
47672  idata = idata + 1
47673  data_tmp = full_data(idata)
47674  data_tmp = ishft(data_tmp, 6)
47675  pack_tmp = ior(pack_tmp, data_tmp)
47676  pack_tmp = ishft(pack_tmp, -2)
47677  idata = idata + 1
47678  data_tmp = full_data(idata)
47679  data_tmp = ishft(data_tmp, 6)
47680  data_tmp = iand(data_tmp, mask_left(2))
47681  pack_tmp = ior(pack_tmp, data_tmp)
47682  ipack = ipack + 1
47683  packed_data(ipack) = pack_tmp
47684  data_tmp = full_data(idata)
47685  pack_tmp = ishft(data_tmp, 8)
47686  pack_tmp = ishft(pack_tmp, -8)
47687  idata = idata + 1
47688  data_tmp = full_data(idata)
47689  data_tmp = ishft(data_tmp, 6)
47690  data_tmp = iand(data_tmp, mask_left(8))
47691  pack_tmp = ior(pack_tmp, data_tmp)
47692  ipack = ipack + 1
47693  packed_data(ipack) = pack_tmp
47694  data_tmp = full_data(idata)
47695  pack_tmp = ishft(data_tmp, 14)
47696  pack_tmp = ishft(pack_tmp, -14)
47697  idata = idata + 1
47698  data_tmp = full_data(idata)
47699  data_tmp = ishft(data_tmp, 6)
47700  data_tmp = iand(data_tmp, mask_left(14))
47701  pack_tmp = ior(pack_tmp, data_tmp)
47702  ipack = ipack + 1
47703  packed_data(ipack) = pack_tmp
47704  data_tmp = full_data(idata)
47705  pack_tmp = ishft(data_tmp, 20)
47706  pack_tmp = ishft(pack_tmp, -20)
47707  idata = idata + 1
47708  data_tmp = full_data(idata)
47709  data_tmp = ishft(data_tmp, 6)
47710  data_tmp = iand(data_tmp, mask_left(20))
47711  pack_tmp = ior(pack_tmp, data_tmp)
47712  ipack = ipack + 1
47713  packed_data(ipack) = pack_tmp
47714  data_tmp = full_data(idata)
47715  pack_tmp = ishft(data_tmp, 26)
47716  pack_tmp = ishft(pack_tmp, -26)
47717  idata = idata + 1
47718  data_tmp = full_data(idata)
47719  data_tmp = ishft(data_tmp, 6)
47720  data_tmp = iand(data_tmp, mask_left(26))
47721  pack_tmp = ior(pack_tmp, data_tmp)
47722  ipack = ipack + 1
47723  packed_data(ipack) = pack_tmp
47724  data_tmp = full_data(idata)
47725  pack_tmp = ishft(data_tmp, 32)
47726  pack_tmp = ishft(pack_tmp, -32)
47727  idata = idata + 1
47728  data_tmp = full_data(idata)
47729  data_tmp = ishft(data_tmp, 6)
47730  data_tmp = iand(data_tmp, mask_left(32))
47731  pack_tmp = ior(pack_tmp, data_tmp)
47732  ipack = ipack + 1
47733  packed_data(ipack) = pack_tmp
47734  data_tmp = full_data(idata)
47735  pack_tmp = ishft(data_tmp, 38)
47736  pack_tmp = ishft(pack_tmp, -38)
47737  idata = idata + 1
47738  data_tmp = full_data(idata)
47739  data_tmp = ishft(data_tmp, 6)
47740  data_tmp = iand(data_tmp, mask_left(38))
47741  pack_tmp = ior(pack_tmp, data_tmp)
47742  ipack = ipack + 1
47743  packed_data(ipack) = pack_tmp
47744  data_tmp = full_data(idata)
47745  pack_tmp = ishft(data_tmp, 44)
47746  pack_tmp = ishft(pack_tmp, -44)
47747  idata = idata + 1
47748  data_tmp = full_data(idata)
47749  data_tmp = ishft(data_tmp, 6)
47750  data_tmp = iand(data_tmp, mask_left(44))
47751  pack_tmp = ior(pack_tmp, data_tmp)
47752  ipack = ipack + 1
47753  packed_data(ipack) = pack_tmp
47754  data_tmp = full_data(idata)
47755  pack_tmp = ishft(data_tmp, 50)
47756  pack_tmp = ishft(pack_tmp, -50)
47757  idata = idata + 1
47758  data_tmp = full_data(idata)
47759  data_tmp = ishft(data_tmp, 6)
47760  data_tmp = iand(data_tmp, mask_left(50))
47761  pack_tmp = ior(pack_tmp, data_tmp)
47762  ipack = ipack + 1
47763  packed_data(ipack) = pack_tmp
47764  data_tmp = full_data(idata)
47765  pack_tmp = ishft(data_tmp, 56)
47766  pack_tmp = ishft(pack_tmp, -56)
47767  idata = idata + 1
47768  data_tmp = full_data(idata)
47769  data_tmp = ishft(data_tmp, 6)
47770  data_tmp = iand(data_tmp, mask_left(56))
47771  pack_tmp = ior(pack_tmp, data_tmp)
47772  ipack = ipack + 1
47773  packed_data(ipack) = pack_tmp
47774  data_tmp = full_data(idata)
47775  pack_tmp = ishft(data_tmp, 62)
47776  pack_tmp = ishft(pack_tmp, -58)
47777  idata = idata + 1
47778  data_tmp = full_data(idata)
47779  data_tmp = ishft(data_tmp, 6)
47780  pack_tmp = ior(pack_tmp, data_tmp)
47781  pack_tmp = ishft(pack_tmp, -4)
47782  idata = idata + 1
47783  data_tmp = full_data(idata)
47784  data_tmp = ishft(data_tmp, 6)
47785  data_tmp = iand(data_tmp, mask_left(4))
47786  pack_tmp = ior(pack_tmp, data_tmp)
47787  ipack = ipack + 1
47788  packed_data(ipack) = pack_tmp
47789  data_tmp = full_data(idata)
47790  pack_tmp = ishft(data_tmp, 10)
47791  pack_tmp = ishft(pack_tmp, -10)
47792  idata = idata + 1
47793  data_tmp = full_data(idata)
47794  data_tmp = ishft(data_tmp, 6)
47795  data_tmp = iand(data_tmp, mask_left(10))
47796  pack_tmp = ior(pack_tmp, data_tmp)
47797  ipack = ipack + 1
47798  packed_data(ipack) = pack_tmp
47799  data_tmp = full_data(idata)
47800  pack_tmp = ishft(data_tmp, 16)
47801  pack_tmp = ishft(pack_tmp, -16)
47802  idata = idata + 1
47803  data_tmp = full_data(idata)
47804  data_tmp = ishft(data_tmp, 6)
47805  data_tmp = iand(data_tmp, mask_left(16))
47806  pack_tmp = ior(pack_tmp, data_tmp)
47807  ipack = ipack + 1
47808  packed_data(ipack) = pack_tmp
47809  data_tmp = full_data(idata)
47810  pack_tmp = ishft(data_tmp, 22)
47811  pack_tmp = ishft(pack_tmp, -22)
47812  idata = idata + 1
47813  data_tmp = full_data(idata)
47814  data_tmp = ishft(data_tmp, 6)
47815  data_tmp = iand(data_tmp, mask_left(22))
47816  pack_tmp = ior(pack_tmp, data_tmp)
47817  ipack = ipack + 1
47818  packed_data(ipack) = pack_tmp
47819  data_tmp = full_data(idata)
47820  pack_tmp = ishft(data_tmp, 28)
47821  pack_tmp = ishft(pack_tmp, -28)
47822  idata = idata + 1
47823  data_tmp = full_data(idata)
47824  data_tmp = ishft(data_tmp, 6)
47825  data_tmp = iand(data_tmp, mask_left(28))
47826  pack_tmp = ior(pack_tmp, data_tmp)
47827  ipack = ipack + 1
47828  packed_data(ipack) = pack_tmp
47829  data_tmp = full_data(idata)
47830  pack_tmp = ishft(data_tmp, 34)
47831  pack_tmp = ishft(pack_tmp, -34)
47832  idata = idata + 1
47833  data_tmp = full_data(idata)
47834  data_tmp = ishft(data_tmp, 6)
47835  data_tmp = iand(data_tmp, mask_left(34))
47836  pack_tmp = ior(pack_tmp, data_tmp)
47837  ipack = ipack + 1
47838  packed_data(ipack) = pack_tmp
47839  data_tmp = full_data(idata)
47840  pack_tmp = ishft(data_tmp, 40)
47841  pack_tmp = ishft(pack_tmp, -40)
47842  idata = idata + 1
47843  data_tmp = full_data(idata)
47844  data_tmp = ishft(data_tmp, 6)
47845  data_tmp = iand(data_tmp, mask_left(40))
47846  pack_tmp = ior(pack_tmp, data_tmp)
47847  ipack = ipack + 1
47848  packed_data(ipack) = pack_tmp
47849  data_tmp = full_data(idata)
47850  pack_tmp = ishft(data_tmp, 46)
47851  pack_tmp = ishft(pack_tmp, -46)
47852  idata = idata + 1
47853  data_tmp = full_data(idata)
47854  data_tmp = ishft(data_tmp, 6)
47855  data_tmp = iand(data_tmp, mask_left(46))
47856  pack_tmp = ior(pack_tmp, data_tmp)
47857  ipack = ipack + 1
47858  packed_data(ipack) = pack_tmp
47859  data_tmp = full_data(idata)
47860  pack_tmp = ishft(data_tmp, 52)
47861  pack_tmp = ishft(pack_tmp, -52)
47862  idata = idata + 1
47863  data_tmp = full_data(idata)
47864  data_tmp = ishft(data_tmp, 6)
47865  data_tmp = iand(data_tmp, mask_left(52))
47866  pack_tmp = ior(pack_tmp, data_tmp)
47867  ipack = ipack + 1
47868  packed_data(ipack) = pack_tmp
47869  data_tmp = full_data(idata)
47870  pack_tmp = ishft(data_tmp, 58)
47871  pack_tmp = ishft(pack_tmp, -58)
47872  idata = idata + 1
47873  data_tmp = full_data(idata)
47874  data_tmp = ishft(data_tmp, 6)
47875  pack_tmp = ior(pack_tmp, data_tmp)
47876  pack_tmp = ishft(pack_tmp, 0)
47877  idata = idata + 1
47878  data_tmp = full_data(idata)
47879  data_tmp = ishft(data_tmp, 6)
47880  data_tmp = iand(data_tmp, mask_left(0))
47881  pack_tmp = ior(pack_tmp, data_tmp)
47882  ipack = ipack + 1
47883  packed_data(ipack) = pack_tmp
47884  data_tmp = full_data(idata)
47885  pack_tmp = ishft(data_tmp, 6)
47886  pack_tmp = ishft(pack_tmp, -6)
47887  idata = idata + 1
47888  data_tmp = full_data(idata)
47889  data_tmp = ishft(data_tmp, 6)
47890  data_tmp = iand(data_tmp, mask_left(6))
47891  pack_tmp = ior(pack_tmp, data_tmp)
47892  ipack = ipack + 1
47893  packed_data(ipack) = pack_tmp
47894  data_tmp = full_data(idata)
47895  pack_tmp = ishft(data_tmp, 12)
47896  pack_tmp = ishft(pack_tmp, -12)
47897  idata = idata + 1
47898  data_tmp = full_data(idata)
47899  data_tmp = ishft(data_tmp, 6)
47900  data_tmp = iand(data_tmp, mask_left(12))
47901  pack_tmp = ior(pack_tmp, data_tmp)
47902  ipack = ipack + 1
47903  packed_data(ipack) = pack_tmp
47904  data_tmp = full_data(idata)
47905  pack_tmp = ishft(data_tmp, 18)
47906  pack_tmp = ishft(pack_tmp, -18)
47907  idata = idata + 1
47908  data_tmp = full_data(idata)
47909  data_tmp = ishft(data_tmp, 6)
47910  data_tmp = iand(data_tmp, mask_left(18))
47911  pack_tmp = ior(pack_tmp, data_tmp)
47912  ipack = ipack + 1
47913  packed_data(ipack) = pack_tmp
47914  data_tmp = full_data(idata)
47915  pack_tmp = ishft(data_tmp, 24)
47916  pack_tmp = ishft(pack_tmp, -24)
47917  idata = idata + 1
47918  data_tmp = full_data(idata)
47919  data_tmp = ishft(data_tmp, 6)
47920  data_tmp = iand(data_tmp, mask_left(24))
47921  pack_tmp = ior(pack_tmp, data_tmp)
47922  ipack = ipack + 1
47923  packed_data(ipack) = pack_tmp
47924  data_tmp = full_data(idata)
47925  pack_tmp = ishft(data_tmp, 30)
47926  pack_tmp = ishft(pack_tmp, -30)
47927  idata = idata + 1
47928  data_tmp = full_data(idata)
47929  data_tmp = ishft(data_tmp, 6)
47930  data_tmp = iand(data_tmp, mask_left(30))
47931  pack_tmp = ior(pack_tmp, data_tmp)
47932  ipack = ipack + 1
47933  packed_data(ipack) = pack_tmp
47934  data_tmp = full_data(idata)
47935  pack_tmp = ishft(data_tmp, 36)
47936  pack_tmp = ishft(pack_tmp, -36)
47937  idata = idata + 1
47938  data_tmp = full_data(idata)
47939  data_tmp = ishft(data_tmp, 6)
47940  data_tmp = iand(data_tmp, mask_left(36))
47941  pack_tmp = ior(pack_tmp, data_tmp)
47942  ipack = ipack + 1
47943  packed_data(ipack) = pack_tmp
47944  data_tmp = full_data(idata)
47945  pack_tmp = ishft(data_tmp, 42)
47946  pack_tmp = ishft(pack_tmp, -42)
47947  idata = idata + 1
47948  data_tmp = full_data(idata)
47949  data_tmp = ishft(data_tmp, 6)
47950  data_tmp = iand(data_tmp, mask_left(42))
47951  pack_tmp = ior(pack_tmp, data_tmp)
47952  ipack = ipack + 1
47953  packed_data(ipack) = pack_tmp
47954  data_tmp = full_data(idata)
47955  pack_tmp = ishft(data_tmp, 48)
47956  pack_tmp = ishft(pack_tmp, -48)
47957  idata = idata + 1
47958  data_tmp = full_data(idata)
47959  data_tmp = ishft(data_tmp, 6)
47960  data_tmp = iand(data_tmp, mask_left(48))
47961  pack_tmp = ior(pack_tmp, data_tmp)
47962  ipack = ipack + 1
47963  packed_data(ipack) = pack_tmp
47964  data_tmp = full_data(idata)
47965  pack_tmp = ishft(data_tmp, 54)
47966  pack_tmp = ishft(pack_tmp, -54)
47967  idata = idata + 1
47968  data_tmp = full_data(idata)
47969  data_tmp = ishft(data_tmp, 6)
47970  data_tmp = iand(data_tmp, mask_left(54))
47971  pack_tmp = ior(pack_tmp, data_tmp)
47972  ipack = ipack + 1
47973  packed_data(ipack) = pack_tmp
47974  data_tmp = full_data(idata)
47975  pack_tmp = ishft(data_tmp, 60)
47976  pack_tmp = ishft(pack_tmp, -58)
47977  idata = idata + 1
47978  data_tmp = full_data(idata)
47979  data_tmp = ishft(data_tmp, 6)
47980  pack_tmp = ior(pack_tmp, data_tmp)
47981  pack_tmp = ishft(pack_tmp, -2)
47982  idata = idata + 1
47983  data_tmp = full_data(idata)
47984  data_tmp = ishft(data_tmp, 6)
47985  data_tmp = iand(data_tmp, mask_left(2))
47986  pack_tmp = ior(pack_tmp, data_tmp)
47987  ipack = ipack + 1
47988  packed_data(ipack) = pack_tmp
47989  data_tmp = full_data(idata)
47990  pack_tmp = ishft(data_tmp, 8)
47991  pack_tmp = ishft(pack_tmp, -8)
47992  idata = idata + 1
47993  data_tmp = full_data(idata)
47994  data_tmp = ishft(data_tmp, 6)
47995  data_tmp = iand(data_tmp, mask_left(8))
47996  pack_tmp = ior(pack_tmp, data_tmp)
47997  ipack = ipack + 1
47998  packed_data(ipack) = pack_tmp
47999  data_tmp = full_data(idata)
48000  pack_tmp = ishft(data_tmp, 14)
48001  pack_tmp = ishft(pack_tmp, -14)
48002  idata = idata + 1
48003  data_tmp = full_data(idata)
48004  data_tmp = ishft(data_tmp, 6)
48005  data_tmp = iand(data_tmp, mask_left(14))
48006  pack_tmp = ior(pack_tmp, data_tmp)
48007  ipack = ipack + 1
48008  packed_data(ipack) = pack_tmp
48009  data_tmp = full_data(idata)
48010  pack_tmp = ishft(data_tmp, 20)
48011  pack_tmp = ishft(pack_tmp, -20)
48012  idata = idata + 1
48013  data_tmp = full_data(idata)
48014  data_tmp = ishft(data_tmp, 6)
48015  data_tmp = iand(data_tmp, mask_left(20))
48016  pack_tmp = ior(pack_tmp, data_tmp)
48017  ipack = ipack + 1
48018  packed_data(ipack) = pack_tmp
48019  data_tmp = full_data(idata)
48020  pack_tmp = ishft(data_tmp, 26)
48021  pack_tmp = ishft(pack_tmp, -26)
48022  idata = idata + 1
48023  data_tmp = full_data(idata)
48024  data_tmp = ishft(data_tmp, 6)
48025  data_tmp = iand(data_tmp, mask_left(26))
48026  pack_tmp = ior(pack_tmp, data_tmp)
48027  ipack = ipack + 1
48028  packed_data(ipack) = pack_tmp
48029  data_tmp = full_data(idata)
48030  pack_tmp = ishft(data_tmp, 32)
48031  pack_tmp = ishft(pack_tmp, -32)
48032  idata = idata + 1
48033  data_tmp = full_data(idata)
48034  data_tmp = ishft(data_tmp, 6)
48035  data_tmp = iand(data_tmp, mask_left(32))
48036  pack_tmp = ior(pack_tmp, data_tmp)
48037  ipack = ipack + 1
48038  packed_data(ipack) = pack_tmp
48039  data_tmp = full_data(idata)
48040  pack_tmp = ishft(data_tmp, 38)
48041  pack_tmp = ishft(pack_tmp, -38)
48042  idata = idata + 1
48043  data_tmp = full_data(idata)
48044  data_tmp = ishft(data_tmp, 6)
48045  data_tmp = iand(data_tmp, mask_left(38))
48046  pack_tmp = ior(pack_tmp, data_tmp)
48047  ipack = ipack + 1
48048  packed_data(ipack) = pack_tmp
48049  data_tmp = full_data(idata)
48050  pack_tmp = ishft(data_tmp, 44)
48051  pack_tmp = ishft(pack_tmp, -44)
48052  idata = idata + 1
48053  data_tmp = full_data(idata)
48054  data_tmp = ishft(data_tmp, 6)
48055  data_tmp = iand(data_tmp, mask_left(44))
48056  pack_tmp = ior(pack_tmp, data_tmp)
48057  ipack = ipack + 1
48058  packed_data(ipack) = pack_tmp
48059  data_tmp = full_data(idata)
48060  pack_tmp = ishft(data_tmp, 50)
48061  pack_tmp = ishft(pack_tmp, -50)
48062  idata = idata + 1
48063  data_tmp = full_data(idata)
48064  data_tmp = ishft(data_tmp, 6)
48065  data_tmp = iand(data_tmp, mask_left(50))
48066  pack_tmp = ior(pack_tmp, data_tmp)
48067  ipack = ipack + 1
48068  packed_data(ipack) = pack_tmp
48069  data_tmp = full_data(idata)
48070  pack_tmp = ishft(data_tmp, 56)
48071  pack_tmp = ishft(pack_tmp, -56)
48072  idata = idata + 1
48073  data_tmp = full_data(idata)
48074  data_tmp = ishft(data_tmp, 6)
48075  data_tmp = iand(data_tmp, mask_left(56))
48076  pack_tmp = ior(pack_tmp, data_tmp)
48077  ipack = ipack + 1
48078  packed_data(ipack) = pack_tmp
48079  data_tmp = full_data(idata)
48080  pack_tmp = ishft(data_tmp, 62)
48081  pack_tmp = ishft(pack_tmp, -58)
48082  idata = idata + 1
48083  data_tmp = full_data(idata)
48084  data_tmp = ishft(data_tmp, 6)
48085  pack_tmp = ior(pack_tmp, data_tmp)
48086  pack_tmp = ishft(pack_tmp, -4)
48087  idata = idata + 1
48088  data_tmp = full_data(idata)
48089  data_tmp = ishft(data_tmp, 6)
48090  data_tmp = iand(data_tmp, mask_left(4))
48091  pack_tmp = ior(pack_tmp, data_tmp)
48092  ipack = ipack + 1
48093  packed_data(ipack) = pack_tmp
48094  data_tmp = full_data(idata)
48095  pack_tmp = ishft(data_tmp, 10)
48096  pack_tmp = ishft(pack_tmp, -10)
48097  idata = idata + 1
48098  data_tmp = full_data(idata)
48099  data_tmp = ishft(data_tmp, 6)
48100  data_tmp = iand(data_tmp, mask_left(10))
48101  pack_tmp = ior(pack_tmp, data_tmp)
48102  ipack = ipack + 1
48103  packed_data(ipack) = pack_tmp
48104  data_tmp = full_data(idata)
48105  pack_tmp = ishft(data_tmp, 16)
48106  pack_tmp = ishft(pack_tmp, -16)
48107  idata = idata + 1
48108  data_tmp = full_data(idata)
48109  data_tmp = ishft(data_tmp, 6)
48110  data_tmp = iand(data_tmp, mask_left(16))
48111  pack_tmp = ior(pack_tmp, data_tmp)
48112  ipack = ipack + 1
48113  packed_data(ipack) = pack_tmp
48114  data_tmp = full_data(idata)
48115  pack_tmp = ishft(data_tmp, 22)
48116  pack_tmp = ishft(pack_tmp, -22)
48117  idata = idata + 1
48118  data_tmp = full_data(idata)
48119  data_tmp = ishft(data_tmp, 6)
48120  data_tmp = iand(data_tmp, mask_left(22))
48121  pack_tmp = ior(pack_tmp, data_tmp)
48122  ipack = ipack + 1
48123  packed_data(ipack) = pack_tmp
48124  data_tmp = full_data(idata)
48125  pack_tmp = ishft(data_tmp, 28)
48126  pack_tmp = ishft(pack_tmp, -28)
48127  idata = idata + 1
48128  data_tmp = full_data(idata)
48129  data_tmp = ishft(data_tmp, 6)
48130  data_tmp = iand(data_tmp, mask_left(28))
48131  pack_tmp = ior(pack_tmp, data_tmp)
48132  ipack = ipack + 1
48133  packed_data(ipack) = pack_tmp
48134  data_tmp = full_data(idata)
48135  pack_tmp = ishft(data_tmp, 34)
48136  pack_tmp = ishft(pack_tmp, -34)
48137  idata = idata + 1
48138  data_tmp = full_data(idata)
48139  data_tmp = ishft(data_tmp, 6)
48140  data_tmp = iand(data_tmp, mask_left(34))
48141  pack_tmp = ior(pack_tmp, data_tmp)
48142  ipack = ipack + 1
48143  packed_data(ipack) = pack_tmp
48144  data_tmp = full_data(idata)
48145  pack_tmp = ishft(data_tmp, 40)
48146  pack_tmp = ishft(pack_tmp, -40)
48147  idata = idata + 1
48148  data_tmp = full_data(idata)
48149  data_tmp = ishft(data_tmp, 6)
48150  data_tmp = iand(data_tmp, mask_left(40))
48151  pack_tmp = ior(pack_tmp, data_tmp)
48152  ipack = ipack + 1
48153  packed_data(ipack) = pack_tmp
48154  data_tmp = full_data(idata)
48155  pack_tmp = ishft(data_tmp, 46)
48156  pack_tmp = ishft(pack_tmp, -46)
48157  idata = idata + 1
48158  data_tmp = full_data(idata)
48159  data_tmp = ishft(data_tmp, 6)
48160  data_tmp = iand(data_tmp, mask_left(46))
48161  pack_tmp = ior(pack_tmp, data_tmp)
48162  ipack = ipack + 1
48163  packed_data(ipack) = pack_tmp
48164  data_tmp = full_data(idata)
48165  pack_tmp = ishft(data_tmp, 52)
48166  pack_tmp = ishft(pack_tmp, -52)
48167  idata = idata + 1
48168  data_tmp = full_data(idata)
48169  data_tmp = ishft(data_tmp, 6)
48170  data_tmp = iand(data_tmp, mask_left(52))
48171  pack_tmp = ior(pack_tmp, data_tmp)
48172  ipack = ipack + 1
48173  packed_data(ipack) = pack_tmp
48174  data_tmp = full_data(idata)
48175  pack_tmp = ishft(data_tmp, 58)
48176  pack_tmp = ishft(pack_tmp, -58)
48177  idata = idata + 1
48178  data_tmp = full_data(idata)
48179  data_tmp = ishft(data_tmp, 6)
48180  pack_tmp = ior(pack_tmp, data_tmp)
48181  pack_tmp = ishft(pack_tmp, 0)
48182  pack_tmp = ishft(pack_tmp, 0)
48183  ipack = ipack + 1
48184  packed_data(ipack) = pack_tmp
48185  END DO
48186  IF (ndata_rep < ndata) THEN
48187  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
48188  END IF
48189  END SUBROUTINE ints2bits_58
48190 
48191 ! **************************************************************************************************
48192 !> \brief ...
48193 !> \param Ndata ...
48194 !> \param packed_data ...
48195 !> \param full_data ...
48196 ! **************************************************************************************************
48197  SUBROUTINE bits2ints_58(Ndata, packed_data, full_data)
48198  INTEGER, INTENT(IN) :: Ndata
48199  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
48200  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
48201 
48202  INTEGER, PARAMETER :: Nbits = 58
48203 
48204  INTEGER :: idata, ipack, kdata, Ndata_rep
48205  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
48206 
48207  ipack = 0
48208  idata = 0
48209  pack_tmp = 0
48210  ndata_rep = (ndata/64)*64
48211  DO kdata = 1, ndata_rep, 64
48212  idata = idata + 1
48213  data_tmp = ishft(pack_tmp, 58)
48214  ipack = ipack + 1
48215  pack_tmp = packed_data(ipack)
48216  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
48217  pack_tmp = ishft(pack_tmp, -58)
48218  idata = idata + 1
48219  data_tmp = ishft(pack_tmp, 52)
48220  ipack = ipack + 1
48221  pack_tmp = packed_data(ipack)
48222  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
48223  pack_tmp = ishft(pack_tmp, -52)
48224  idata = idata + 1
48225  data_tmp = ishft(pack_tmp, 46)
48226  ipack = ipack + 1
48227  pack_tmp = packed_data(ipack)
48228  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
48229  pack_tmp = ishft(pack_tmp, -46)
48230  idata = idata + 1
48231  data_tmp = ishft(pack_tmp, 40)
48232  ipack = ipack + 1
48233  pack_tmp = packed_data(ipack)
48234  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
48235  pack_tmp = ishft(pack_tmp, -40)
48236  idata = idata + 1
48237  data_tmp = ishft(pack_tmp, 34)
48238  ipack = ipack + 1
48239  pack_tmp = packed_data(ipack)
48240  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
48241  pack_tmp = ishft(pack_tmp, -34)
48242  idata = idata + 1
48243  data_tmp = ishft(pack_tmp, 28)
48244  ipack = ipack + 1
48245  pack_tmp = packed_data(ipack)
48246  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
48247  pack_tmp = ishft(pack_tmp, -28)
48248  idata = idata + 1
48249  data_tmp = ishft(pack_tmp, 22)
48250  ipack = ipack + 1
48251  pack_tmp = packed_data(ipack)
48252  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
48253  pack_tmp = ishft(pack_tmp, -22)
48254  idata = idata + 1
48255  data_tmp = ishft(pack_tmp, 16)
48256  ipack = ipack + 1
48257  pack_tmp = packed_data(ipack)
48258  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
48259  pack_tmp = ishft(pack_tmp, -16)
48260  idata = idata + 1
48261  data_tmp = ishft(pack_tmp, 10)
48262  ipack = ipack + 1
48263  pack_tmp = packed_data(ipack)
48264  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
48265  pack_tmp = ishft(pack_tmp, -10)
48266  idata = idata + 1
48267  data_tmp = ishft(pack_tmp, 4)
48268  ipack = ipack + 1
48269  pack_tmp = packed_data(ipack)
48270  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
48271  pack_tmp = ishft(pack_tmp, -4)
48272  idata = idata + 1
48273  data_tmp = iand(pack_tmp, mask_right(nbits))
48274  full_data(idata) = data_tmp
48275  pack_tmp = ishft(pack_tmp, -nbits)
48276  idata = idata + 1
48277  data_tmp = ishft(pack_tmp, 56)
48278  ipack = ipack + 1
48279  pack_tmp = packed_data(ipack)
48280  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
48281  pack_tmp = ishft(pack_tmp, -56)
48282  idata = idata + 1
48283  data_tmp = ishft(pack_tmp, 50)
48284  ipack = ipack + 1
48285  pack_tmp = packed_data(ipack)
48286  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
48287  pack_tmp = ishft(pack_tmp, -50)
48288  idata = idata + 1
48289  data_tmp = ishft(pack_tmp, 44)
48290  ipack = ipack + 1
48291  pack_tmp = packed_data(ipack)
48292  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
48293  pack_tmp = ishft(pack_tmp, -44)
48294  idata = idata + 1
48295  data_tmp = ishft(pack_tmp, 38)
48296  ipack = ipack + 1
48297  pack_tmp = packed_data(ipack)
48298  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
48299  pack_tmp = ishft(pack_tmp, -38)
48300  idata = idata + 1
48301  data_tmp = ishft(pack_tmp, 32)
48302  ipack = ipack + 1
48303  pack_tmp = packed_data(ipack)
48304  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
48305  pack_tmp = ishft(pack_tmp, -32)
48306  idata = idata + 1
48307  data_tmp = ishft(pack_tmp, 26)
48308  ipack = ipack + 1
48309  pack_tmp = packed_data(ipack)
48310  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
48311  pack_tmp = ishft(pack_tmp, -26)
48312  idata = idata + 1
48313  data_tmp = ishft(pack_tmp, 20)
48314  ipack = ipack + 1
48315  pack_tmp = packed_data(ipack)
48316  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
48317  pack_tmp = ishft(pack_tmp, -20)
48318  idata = idata + 1
48319  data_tmp = ishft(pack_tmp, 14)
48320  ipack = ipack + 1
48321  pack_tmp = packed_data(ipack)
48322  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
48323  pack_tmp = ishft(pack_tmp, -14)
48324  idata = idata + 1
48325  data_tmp = ishft(pack_tmp, 8)
48326  ipack = ipack + 1
48327  pack_tmp = packed_data(ipack)
48328  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
48329  pack_tmp = ishft(pack_tmp, -8)
48330  idata = idata + 1
48331  data_tmp = ishft(pack_tmp, 2)
48332  ipack = ipack + 1
48333  pack_tmp = packed_data(ipack)
48334  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
48335  pack_tmp = ishft(pack_tmp, -2)
48336  idata = idata + 1
48337  data_tmp = iand(pack_tmp, mask_right(nbits))
48338  full_data(idata) = data_tmp
48339  pack_tmp = ishft(pack_tmp, -nbits)
48340  idata = idata + 1
48341  data_tmp = ishft(pack_tmp, 54)
48342  ipack = ipack + 1
48343  pack_tmp = packed_data(ipack)
48344  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
48345  pack_tmp = ishft(pack_tmp, -54)
48346  idata = idata + 1
48347  data_tmp = ishft(pack_tmp, 48)
48348  ipack = ipack + 1
48349  pack_tmp = packed_data(ipack)
48350  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
48351  pack_tmp = ishft(pack_tmp, -48)
48352  idata = idata + 1
48353  data_tmp = ishft(pack_tmp, 42)
48354  ipack = ipack + 1
48355  pack_tmp = packed_data(ipack)
48356  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
48357  pack_tmp = ishft(pack_tmp, -42)
48358  idata = idata + 1
48359  data_tmp = ishft(pack_tmp, 36)
48360  ipack = ipack + 1
48361  pack_tmp = packed_data(ipack)
48362  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
48363  pack_tmp = ishft(pack_tmp, -36)
48364  idata = idata + 1
48365  data_tmp = ishft(pack_tmp, 30)
48366  ipack = ipack + 1
48367  pack_tmp = packed_data(ipack)
48368  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
48369  pack_tmp = ishft(pack_tmp, -30)
48370  idata = idata + 1
48371  data_tmp = ishft(pack_tmp, 24)
48372  ipack = ipack + 1
48373  pack_tmp = packed_data(ipack)
48374  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
48375  pack_tmp = ishft(pack_tmp, -24)
48376  idata = idata + 1
48377  data_tmp = ishft(pack_tmp, 18)
48378  ipack = ipack + 1
48379  pack_tmp = packed_data(ipack)
48380  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
48381  pack_tmp = ishft(pack_tmp, -18)
48382  idata = idata + 1
48383  data_tmp = ishft(pack_tmp, 12)
48384  ipack = ipack + 1
48385  pack_tmp = packed_data(ipack)
48386  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
48387  pack_tmp = ishft(pack_tmp, -12)
48388  idata = idata + 1
48389  data_tmp = ishft(pack_tmp, 6)
48390  ipack = ipack + 1
48391  pack_tmp = packed_data(ipack)
48392  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
48393  pack_tmp = ishft(pack_tmp, -6)
48394  idata = idata + 1
48395  data_tmp = iand(pack_tmp, mask_right(nbits))
48396  full_data(idata) = data_tmp
48397  pack_tmp = ishft(pack_tmp, -nbits)
48398  idata = idata + 1
48399  data_tmp = ishft(pack_tmp, 58)
48400  ipack = ipack + 1
48401  pack_tmp = packed_data(ipack)
48402  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
48403  pack_tmp = ishft(pack_tmp, -58)
48404  idata = idata + 1
48405  data_tmp = ishft(pack_tmp, 52)
48406  ipack = ipack + 1
48407  pack_tmp = packed_data(ipack)
48408  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
48409  pack_tmp = ishft(pack_tmp, -52)
48410  idata = idata + 1
48411  data_tmp = ishft(pack_tmp, 46)
48412  ipack = ipack + 1
48413  pack_tmp = packed_data(ipack)
48414  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
48415  pack_tmp = ishft(pack_tmp, -46)
48416  idata = idata + 1
48417  data_tmp = ishft(pack_tmp, 40)
48418  ipack = ipack + 1
48419  pack_tmp = packed_data(ipack)
48420  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
48421  pack_tmp = ishft(pack_tmp, -40)
48422  idata = idata + 1
48423  data_tmp = ishft(pack_tmp, 34)
48424  ipack = ipack + 1
48425  pack_tmp = packed_data(ipack)
48426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
48427  pack_tmp = ishft(pack_tmp, -34)
48428  idata = idata + 1
48429  data_tmp = ishft(pack_tmp, 28)
48430  ipack = ipack + 1
48431  pack_tmp = packed_data(ipack)
48432  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
48433  pack_tmp = ishft(pack_tmp, -28)
48434  idata = idata + 1
48435  data_tmp = ishft(pack_tmp, 22)
48436  ipack = ipack + 1
48437  pack_tmp = packed_data(ipack)
48438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
48439  pack_tmp = ishft(pack_tmp, -22)
48440  idata = idata + 1
48441  data_tmp = ishft(pack_tmp, 16)
48442  ipack = ipack + 1
48443  pack_tmp = packed_data(ipack)
48444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
48445  pack_tmp = ishft(pack_tmp, -16)
48446  idata = idata + 1
48447  data_tmp = ishft(pack_tmp, 10)
48448  ipack = ipack + 1
48449  pack_tmp = packed_data(ipack)
48450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
48451  pack_tmp = ishft(pack_tmp, -10)
48452  idata = idata + 1
48453  data_tmp = ishft(pack_tmp, 4)
48454  ipack = ipack + 1
48455  pack_tmp = packed_data(ipack)
48456  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
48457  pack_tmp = ishft(pack_tmp, -4)
48458  idata = idata + 1
48459  data_tmp = iand(pack_tmp, mask_right(nbits))
48460  full_data(idata) = data_tmp
48461  pack_tmp = ishft(pack_tmp, -nbits)
48462  idata = idata + 1
48463  data_tmp = ishft(pack_tmp, 56)
48464  ipack = ipack + 1
48465  pack_tmp = packed_data(ipack)
48466  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
48467  pack_tmp = ishft(pack_tmp, -56)
48468  idata = idata + 1
48469  data_tmp = ishft(pack_tmp, 50)
48470  ipack = ipack + 1
48471  pack_tmp = packed_data(ipack)
48472  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
48473  pack_tmp = ishft(pack_tmp, -50)
48474  idata = idata + 1
48475  data_tmp = ishft(pack_tmp, 44)
48476  ipack = ipack + 1
48477  pack_tmp = packed_data(ipack)
48478  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
48479  pack_tmp = ishft(pack_tmp, -44)
48480  idata = idata + 1
48481  data_tmp = ishft(pack_tmp, 38)
48482  ipack = ipack + 1
48483  pack_tmp = packed_data(ipack)
48484  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
48485  pack_tmp = ishft(pack_tmp, -38)
48486  idata = idata + 1
48487  data_tmp = ishft(pack_tmp, 32)
48488  ipack = ipack + 1
48489  pack_tmp = packed_data(ipack)
48490  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
48491  pack_tmp = ishft(pack_tmp, -32)
48492  idata = idata + 1
48493  data_tmp = ishft(pack_tmp, 26)
48494  ipack = ipack + 1
48495  pack_tmp = packed_data(ipack)
48496  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
48497  pack_tmp = ishft(pack_tmp, -26)
48498  idata = idata + 1
48499  data_tmp = ishft(pack_tmp, 20)
48500  ipack = ipack + 1
48501  pack_tmp = packed_data(ipack)
48502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
48503  pack_tmp = ishft(pack_tmp, -20)
48504  idata = idata + 1
48505  data_tmp = ishft(pack_tmp, 14)
48506  ipack = ipack + 1
48507  pack_tmp = packed_data(ipack)
48508  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
48509  pack_tmp = ishft(pack_tmp, -14)
48510  idata = idata + 1
48511  data_tmp = ishft(pack_tmp, 8)
48512  ipack = ipack + 1
48513  pack_tmp = packed_data(ipack)
48514  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
48515  pack_tmp = ishft(pack_tmp, -8)
48516  idata = idata + 1
48517  data_tmp = ishft(pack_tmp, 2)
48518  ipack = ipack + 1
48519  pack_tmp = packed_data(ipack)
48520  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
48521  pack_tmp = ishft(pack_tmp, -2)
48522  idata = idata + 1
48523  data_tmp = iand(pack_tmp, mask_right(nbits))
48524  full_data(idata) = data_tmp
48525  pack_tmp = ishft(pack_tmp, -nbits)
48526  idata = idata + 1
48527  data_tmp = ishft(pack_tmp, 54)
48528  ipack = ipack + 1
48529  pack_tmp = packed_data(ipack)
48530  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
48531  pack_tmp = ishft(pack_tmp, -54)
48532  idata = idata + 1
48533  data_tmp = ishft(pack_tmp, 48)
48534  ipack = ipack + 1
48535  pack_tmp = packed_data(ipack)
48536  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
48537  pack_tmp = ishft(pack_tmp, -48)
48538  idata = idata + 1
48539  data_tmp = ishft(pack_tmp, 42)
48540  ipack = ipack + 1
48541  pack_tmp = packed_data(ipack)
48542  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
48543  pack_tmp = ishft(pack_tmp, -42)
48544  idata = idata + 1
48545  data_tmp = ishft(pack_tmp, 36)
48546  ipack = ipack + 1
48547  pack_tmp = packed_data(ipack)
48548  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
48549  pack_tmp = ishft(pack_tmp, -36)
48550  idata = idata + 1
48551  data_tmp = ishft(pack_tmp, 30)
48552  ipack = ipack + 1
48553  pack_tmp = packed_data(ipack)
48554  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
48555  pack_tmp = ishft(pack_tmp, -30)
48556  idata = idata + 1
48557  data_tmp = ishft(pack_tmp, 24)
48558  ipack = ipack + 1
48559  pack_tmp = packed_data(ipack)
48560  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
48561  pack_tmp = ishft(pack_tmp, -24)
48562  idata = idata + 1
48563  data_tmp = ishft(pack_tmp, 18)
48564  ipack = ipack + 1
48565  pack_tmp = packed_data(ipack)
48566  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
48567  pack_tmp = ishft(pack_tmp, -18)
48568  idata = idata + 1
48569  data_tmp = ishft(pack_tmp, 12)
48570  ipack = ipack + 1
48571  pack_tmp = packed_data(ipack)
48572  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
48573  pack_tmp = ishft(pack_tmp, -12)
48574  idata = idata + 1
48575  data_tmp = ishft(pack_tmp, 6)
48576  ipack = ipack + 1
48577  pack_tmp = packed_data(ipack)
48578  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
48579  pack_tmp = ishft(pack_tmp, -6)
48580  idata = idata + 1
48581  data_tmp = iand(pack_tmp, mask_right(nbits))
48582  full_data(idata) = data_tmp
48583  pack_tmp = ishft(pack_tmp, -nbits)
48584  END DO
48585  IF (ndata_rep < ndata) THEN
48586  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
48587  END IF
48588  END SUBROUTINE bits2ints_58
48589 
48590 ! **************************************************************************************************
48591 !> \brief ...
48592 !> \param Ndata ...
48593 !> \param packed_data ...
48594 !> \param full_data ...
48595 ! **************************************************************************************************
48596  SUBROUTINE ints2bits_59(Ndata, packed_data, full_data)
48597  INTEGER, INTENT(IN) :: Ndata
48598  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
48599  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
48600 
48601  INTEGER, PARAMETER :: Nbits = 59
48602 
48603  INTEGER :: idata, ipack, kdata, Ndata_rep
48604  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
48605 
48606  idata = 0
48607  ipack = 0
48608  ndata_rep = (ndata/64)*64
48609  DO kdata = 1, ndata_rep, 64
48610  pack_tmp = 0
48611  idata = idata + 1
48612  data_tmp = full_data(idata)
48613  data_tmp = ishft(data_tmp, 5)
48614  pack_tmp = ior(pack_tmp, data_tmp)
48615  pack_tmp = ishft(pack_tmp, -5)
48616  idata = idata + 1
48617  data_tmp = full_data(idata)
48618  data_tmp = ishft(data_tmp, 5)
48619  data_tmp = iand(data_tmp, mask_left(5))
48620  pack_tmp = ior(pack_tmp, data_tmp)
48621  ipack = ipack + 1
48622  packed_data(ipack) = pack_tmp
48623  data_tmp = full_data(idata)
48624  pack_tmp = ishft(data_tmp, 10)
48625  pack_tmp = ishft(pack_tmp, -10)
48626  idata = idata + 1
48627  data_tmp = full_data(idata)
48628  data_tmp = ishft(data_tmp, 5)
48629  data_tmp = iand(data_tmp, mask_left(10))
48630  pack_tmp = ior(pack_tmp, data_tmp)
48631  ipack = ipack + 1
48632  packed_data(ipack) = pack_tmp
48633  data_tmp = full_data(idata)
48634  pack_tmp = ishft(data_tmp, 15)
48635  pack_tmp = ishft(pack_tmp, -15)
48636  idata = idata + 1
48637  data_tmp = full_data(idata)
48638  data_tmp = ishft(data_tmp, 5)
48639  data_tmp = iand(data_tmp, mask_left(15))
48640  pack_tmp = ior(pack_tmp, data_tmp)
48641  ipack = ipack + 1
48642  packed_data(ipack) = pack_tmp
48643  data_tmp = full_data(idata)
48644  pack_tmp = ishft(data_tmp, 20)
48645  pack_tmp = ishft(pack_tmp, -20)
48646  idata = idata + 1
48647  data_tmp = full_data(idata)
48648  data_tmp = ishft(data_tmp, 5)
48649  data_tmp = iand(data_tmp, mask_left(20))
48650  pack_tmp = ior(pack_tmp, data_tmp)
48651  ipack = ipack + 1
48652  packed_data(ipack) = pack_tmp
48653  data_tmp = full_data(idata)
48654  pack_tmp = ishft(data_tmp, 25)
48655  pack_tmp = ishft(pack_tmp, -25)
48656  idata = idata + 1
48657  data_tmp = full_data(idata)
48658  data_tmp = ishft(data_tmp, 5)
48659  data_tmp = iand(data_tmp, mask_left(25))
48660  pack_tmp = ior(pack_tmp, data_tmp)
48661  ipack = ipack + 1
48662  packed_data(ipack) = pack_tmp
48663  data_tmp = full_data(idata)
48664  pack_tmp = ishft(data_tmp, 30)
48665  pack_tmp = ishft(pack_tmp, -30)
48666  idata = idata + 1
48667  data_tmp = full_data(idata)
48668  data_tmp = ishft(data_tmp, 5)
48669  data_tmp = iand(data_tmp, mask_left(30))
48670  pack_tmp = ior(pack_tmp, data_tmp)
48671  ipack = ipack + 1
48672  packed_data(ipack) = pack_tmp
48673  data_tmp = full_data(idata)
48674  pack_tmp = ishft(data_tmp, 35)
48675  pack_tmp = ishft(pack_tmp, -35)
48676  idata = idata + 1
48677  data_tmp = full_data(idata)
48678  data_tmp = ishft(data_tmp, 5)
48679  data_tmp = iand(data_tmp, mask_left(35))
48680  pack_tmp = ior(pack_tmp, data_tmp)
48681  ipack = ipack + 1
48682  packed_data(ipack) = pack_tmp
48683  data_tmp = full_data(idata)
48684  pack_tmp = ishft(data_tmp, 40)
48685  pack_tmp = ishft(pack_tmp, -40)
48686  idata = idata + 1
48687  data_tmp = full_data(idata)
48688  data_tmp = ishft(data_tmp, 5)
48689  data_tmp = iand(data_tmp, mask_left(40))
48690  pack_tmp = ior(pack_tmp, data_tmp)
48691  ipack = ipack + 1
48692  packed_data(ipack) = pack_tmp
48693  data_tmp = full_data(idata)
48694  pack_tmp = ishft(data_tmp, 45)
48695  pack_tmp = ishft(pack_tmp, -45)
48696  idata = idata + 1
48697  data_tmp = full_data(idata)
48698  data_tmp = ishft(data_tmp, 5)
48699  data_tmp = iand(data_tmp, mask_left(45))
48700  pack_tmp = ior(pack_tmp, data_tmp)
48701  ipack = ipack + 1
48702  packed_data(ipack) = pack_tmp
48703  data_tmp = full_data(idata)
48704  pack_tmp = ishft(data_tmp, 50)
48705  pack_tmp = ishft(pack_tmp, -50)
48706  idata = idata + 1
48707  data_tmp = full_data(idata)
48708  data_tmp = ishft(data_tmp, 5)
48709  data_tmp = iand(data_tmp, mask_left(50))
48710  pack_tmp = ior(pack_tmp, data_tmp)
48711  ipack = ipack + 1
48712  packed_data(ipack) = pack_tmp
48713  data_tmp = full_data(idata)
48714  pack_tmp = ishft(data_tmp, 55)
48715  pack_tmp = ishft(pack_tmp, -55)
48716  idata = idata + 1
48717  data_tmp = full_data(idata)
48718  data_tmp = ishft(data_tmp, 5)
48719  data_tmp = iand(data_tmp, mask_left(55))
48720  pack_tmp = ior(pack_tmp, data_tmp)
48721  ipack = ipack + 1
48722  packed_data(ipack) = pack_tmp
48723  data_tmp = full_data(idata)
48724  pack_tmp = ishft(data_tmp, 60)
48725  pack_tmp = ishft(pack_tmp, -59)
48726  idata = idata + 1
48727  data_tmp = full_data(idata)
48728  data_tmp = ishft(data_tmp, 5)
48729  pack_tmp = ior(pack_tmp, data_tmp)
48730  pack_tmp = ishft(pack_tmp, -1)
48731  idata = idata + 1
48732  data_tmp = full_data(idata)
48733  data_tmp = ishft(data_tmp, 5)
48734  data_tmp = iand(data_tmp, mask_left(1))
48735  pack_tmp = ior(pack_tmp, data_tmp)
48736  ipack = ipack + 1
48737  packed_data(ipack) = pack_tmp
48738  data_tmp = full_data(idata)
48739  pack_tmp = ishft(data_tmp, 6)
48740  pack_tmp = ishft(pack_tmp, -6)
48741  idata = idata + 1
48742  data_tmp = full_data(idata)
48743  data_tmp = ishft(data_tmp, 5)
48744  data_tmp = iand(data_tmp, mask_left(6))
48745  pack_tmp = ior(pack_tmp, data_tmp)
48746  ipack = ipack + 1
48747  packed_data(ipack) = pack_tmp
48748  data_tmp = full_data(idata)
48749  pack_tmp = ishft(data_tmp, 11)
48750  pack_tmp = ishft(pack_tmp, -11)
48751  idata = idata + 1
48752  data_tmp = full_data(idata)
48753  data_tmp = ishft(data_tmp, 5)
48754  data_tmp = iand(data_tmp, mask_left(11))
48755  pack_tmp = ior(pack_tmp, data_tmp)
48756  ipack = ipack + 1
48757  packed_data(ipack) = pack_tmp
48758  data_tmp = full_data(idata)
48759  pack_tmp = ishft(data_tmp, 16)
48760  pack_tmp = ishft(pack_tmp, -16)
48761  idata = idata + 1
48762  data_tmp = full_data(idata)
48763  data_tmp = ishft(data_tmp, 5)
48764  data_tmp = iand(data_tmp, mask_left(16))
48765  pack_tmp = ior(pack_tmp, data_tmp)
48766  ipack = ipack + 1
48767  packed_data(ipack) = pack_tmp
48768  data_tmp = full_data(idata)
48769  pack_tmp = ishft(data_tmp, 21)
48770  pack_tmp = ishft(pack_tmp, -21)
48771  idata = idata + 1
48772  data_tmp = full_data(idata)
48773  data_tmp = ishft(data_tmp, 5)
48774  data_tmp = iand(data_tmp, mask_left(21))
48775  pack_tmp = ior(pack_tmp, data_tmp)
48776  ipack = ipack + 1
48777  packed_data(ipack) = pack_tmp
48778  data_tmp = full_data(idata)
48779  pack_tmp = ishft(data_tmp, 26)
48780  pack_tmp = ishft(pack_tmp, -26)
48781  idata = idata + 1
48782  data_tmp = full_data(idata)
48783  data_tmp = ishft(data_tmp, 5)
48784  data_tmp = iand(data_tmp, mask_left(26))
48785  pack_tmp = ior(pack_tmp, data_tmp)
48786  ipack = ipack + 1
48787  packed_data(ipack) = pack_tmp
48788  data_tmp = full_data(idata)
48789  pack_tmp = ishft(data_tmp, 31)
48790  pack_tmp = ishft(pack_tmp, -31)
48791  idata = idata + 1
48792  data_tmp = full_data(idata)
48793  data_tmp = ishft(data_tmp, 5)
48794  data_tmp = iand(data_tmp, mask_left(31))
48795  pack_tmp = ior(pack_tmp, data_tmp)
48796  ipack = ipack + 1
48797  packed_data(ipack) = pack_tmp
48798  data_tmp = full_data(idata)
48799  pack_tmp = ishft(data_tmp, 36)
48800  pack_tmp = ishft(pack_tmp, -36)
48801  idata = idata + 1
48802  data_tmp = full_data(idata)
48803  data_tmp = ishft(data_tmp, 5)
48804  data_tmp = iand(data_tmp, mask_left(36))
48805  pack_tmp = ior(pack_tmp, data_tmp)
48806  ipack = ipack + 1
48807  packed_data(ipack) = pack_tmp
48808  data_tmp = full_data(idata)
48809  pack_tmp = ishft(data_tmp, 41)
48810  pack_tmp = ishft(pack_tmp, -41)
48811  idata = idata + 1
48812  data_tmp = full_data(idata)
48813  data_tmp = ishft(data_tmp, 5)
48814  data_tmp = iand(data_tmp, mask_left(41))
48815  pack_tmp = ior(pack_tmp, data_tmp)
48816  ipack = ipack + 1
48817  packed_data(ipack) = pack_tmp
48818  data_tmp = full_data(idata)
48819  pack_tmp = ishft(data_tmp, 46)
48820  pack_tmp = ishft(pack_tmp, -46)
48821  idata = idata + 1
48822  data_tmp = full_data(idata)
48823  data_tmp = ishft(data_tmp, 5)
48824  data_tmp = iand(data_tmp, mask_left(46))
48825  pack_tmp = ior(pack_tmp, data_tmp)
48826  ipack = ipack + 1
48827  packed_data(ipack) = pack_tmp
48828  data_tmp = full_data(idata)
48829  pack_tmp = ishft(data_tmp, 51)
48830  pack_tmp = ishft(pack_tmp, -51)
48831  idata = idata + 1
48832  data_tmp = full_data(idata)
48833  data_tmp = ishft(data_tmp, 5)
48834  data_tmp = iand(data_tmp, mask_left(51))
48835  pack_tmp = ior(pack_tmp, data_tmp)
48836  ipack = ipack + 1
48837  packed_data(ipack) = pack_tmp
48838  data_tmp = full_data(idata)
48839  pack_tmp = ishft(data_tmp, 56)
48840  pack_tmp = ishft(pack_tmp, -56)
48841  idata = idata + 1
48842  data_tmp = full_data(idata)
48843  data_tmp = ishft(data_tmp, 5)
48844  data_tmp = iand(data_tmp, mask_left(56))
48845  pack_tmp = ior(pack_tmp, data_tmp)
48846  ipack = ipack + 1
48847  packed_data(ipack) = pack_tmp
48848  data_tmp = full_data(idata)
48849  pack_tmp = ishft(data_tmp, 61)
48850  pack_tmp = ishft(pack_tmp, -59)
48851  idata = idata + 1
48852  data_tmp = full_data(idata)
48853  data_tmp = ishft(data_tmp, 5)
48854  pack_tmp = ior(pack_tmp, data_tmp)
48855  pack_tmp = ishft(pack_tmp, -2)
48856  idata = idata + 1
48857  data_tmp = full_data(idata)
48858  data_tmp = ishft(data_tmp, 5)
48859  data_tmp = iand(data_tmp, mask_left(2))
48860  pack_tmp = ior(pack_tmp, data_tmp)
48861  ipack = ipack + 1
48862  packed_data(ipack) = pack_tmp
48863  data_tmp = full_data(idata)
48864  pack_tmp = ishft(data_tmp, 7)
48865  pack_tmp = ishft(pack_tmp, -7)
48866  idata = idata + 1
48867  data_tmp = full_data(idata)
48868  data_tmp = ishft(data_tmp, 5)
48869  data_tmp = iand(data_tmp, mask_left(7))
48870  pack_tmp = ior(pack_tmp, data_tmp)
48871  ipack = ipack + 1
48872  packed_data(ipack) = pack_tmp
48873  data_tmp = full_data(idata)
48874  pack_tmp = ishft(data_tmp, 12)
48875  pack_tmp = ishft(pack_tmp, -12)
48876  idata = idata + 1
48877  data_tmp = full_data(idata)
48878  data_tmp = ishft(data_tmp, 5)
48879  data_tmp = iand(data_tmp, mask_left(12))
48880  pack_tmp = ior(pack_tmp, data_tmp)
48881  ipack = ipack + 1
48882  packed_data(ipack) = pack_tmp
48883  data_tmp = full_data(idata)
48884  pack_tmp = ishft(data_tmp, 17)
48885  pack_tmp = ishft(pack_tmp, -17)
48886  idata = idata + 1
48887  data_tmp = full_data(idata)
48888  data_tmp = ishft(data_tmp, 5)
48889  data_tmp = iand(data_tmp, mask_left(17))
48890  pack_tmp = ior(pack_tmp, data_tmp)
48891  ipack = ipack + 1
48892  packed_data(ipack) = pack_tmp
48893  data_tmp = full_data(idata)
48894  pack_tmp = ishft(data_tmp, 22)
48895  pack_tmp = ishft(pack_tmp, -22)
48896  idata = idata + 1
48897  data_tmp = full_data(idata)
48898  data_tmp = ishft(data_tmp, 5)
48899  data_tmp = iand(data_tmp, mask_left(22))
48900  pack_tmp = ior(pack_tmp, data_tmp)
48901  ipack = ipack + 1
48902  packed_data(ipack) = pack_tmp
48903  data_tmp = full_data(idata)
48904  pack_tmp = ishft(data_tmp, 27)
48905  pack_tmp = ishft(pack_tmp, -27)
48906  idata = idata + 1
48907  data_tmp = full_data(idata)
48908  data_tmp = ishft(data_tmp, 5)
48909  data_tmp = iand(data_tmp, mask_left(27))
48910  pack_tmp = ior(pack_tmp, data_tmp)
48911  ipack = ipack + 1
48912  packed_data(ipack) = pack_tmp
48913  data_tmp = full_data(idata)
48914  pack_tmp = ishft(data_tmp, 32)
48915  pack_tmp = ishft(pack_tmp, -32)
48916  idata = idata + 1
48917  data_tmp = full_data(idata)
48918  data_tmp = ishft(data_tmp, 5)
48919  data_tmp = iand(data_tmp, mask_left(32))
48920  pack_tmp = ior(pack_tmp, data_tmp)
48921  ipack = ipack + 1
48922  packed_data(ipack) = pack_tmp
48923  data_tmp = full_data(idata)
48924  pack_tmp = ishft(data_tmp, 37)
48925  pack_tmp = ishft(pack_tmp, -37)
48926  idata = idata + 1
48927  data_tmp = full_data(idata)
48928  data_tmp = ishft(data_tmp, 5)
48929  data_tmp = iand(data_tmp, mask_left(37))
48930  pack_tmp = ior(pack_tmp, data_tmp)
48931  ipack = ipack + 1
48932  packed_data(ipack) = pack_tmp
48933  data_tmp = full_data(idata)
48934  pack_tmp = ishft(data_tmp, 42)
48935  pack_tmp = ishft(pack_tmp, -42)
48936  idata = idata + 1
48937  data_tmp = full_data(idata)
48938  data_tmp = ishft(data_tmp, 5)
48939  data_tmp = iand(data_tmp, mask_left(42))
48940  pack_tmp = ior(pack_tmp, data_tmp)
48941  ipack = ipack + 1
48942  packed_data(ipack) = pack_tmp
48943  data_tmp = full_data(idata)
48944  pack_tmp = ishft(data_tmp, 47)
48945  pack_tmp = ishft(pack_tmp, -47)
48946  idata = idata + 1
48947  data_tmp = full_data(idata)
48948  data_tmp = ishft(data_tmp, 5)
48949  data_tmp = iand(data_tmp, mask_left(47))
48950  pack_tmp = ior(pack_tmp, data_tmp)
48951  ipack = ipack + 1
48952  packed_data(ipack) = pack_tmp
48953  data_tmp = full_data(idata)
48954  pack_tmp = ishft(data_tmp, 52)
48955  pack_tmp = ishft(pack_tmp, -52)
48956  idata = idata + 1
48957  data_tmp = full_data(idata)
48958  data_tmp = ishft(data_tmp, 5)
48959  data_tmp = iand(data_tmp, mask_left(52))
48960  pack_tmp = ior(pack_tmp, data_tmp)
48961  ipack = ipack + 1
48962  packed_data(ipack) = pack_tmp
48963  data_tmp = full_data(idata)
48964  pack_tmp = ishft(data_tmp, 57)
48965  pack_tmp = ishft(pack_tmp, -57)
48966  idata = idata + 1
48967  data_tmp = full_data(idata)
48968  data_tmp = ishft(data_tmp, 5)
48969  data_tmp = iand(data_tmp, mask_left(57))
48970  pack_tmp = ior(pack_tmp, data_tmp)
48971  ipack = ipack + 1
48972  packed_data(ipack) = pack_tmp
48973  data_tmp = full_data(idata)
48974  pack_tmp = ishft(data_tmp, 62)
48975  pack_tmp = ishft(pack_tmp, -59)
48976  idata = idata + 1
48977  data_tmp = full_data(idata)
48978  data_tmp = ishft(data_tmp, 5)
48979  pack_tmp = ior(pack_tmp, data_tmp)
48980  pack_tmp = ishft(pack_tmp, -3)
48981  idata = idata + 1
48982  data_tmp = full_data(idata)
48983  data_tmp = ishft(data_tmp, 5)
48984  data_tmp = iand(data_tmp, mask_left(3))
48985  pack_tmp = ior(pack_tmp, data_tmp)
48986  ipack = ipack + 1
48987  packed_data(ipack) = pack_tmp
48988  data_tmp = full_data(idata)
48989  pack_tmp = ishft(data_tmp, 8)
48990  pack_tmp = ishft(pack_tmp, -8)
48991  idata = idata + 1
48992  data_tmp = full_data(idata)
48993  data_tmp = ishft(data_tmp, 5)
48994  data_tmp = iand(data_tmp, mask_left(8))
48995  pack_tmp = ior(pack_tmp, data_tmp)
48996  ipack = ipack + 1
48997  packed_data(ipack) = pack_tmp
48998  data_tmp = full_data(idata)
48999  pack_tmp = ishft(data_tmp, 13)
49000  pack_tmp = ishft(pack_tmp, -13)
49001  idata = idata + 1
49002  data_tmp = full_data(idata)
49003  data_tmp = ishft(data_tmp, 5)
49004  data_tmp = iand(data_tmp, mask_left(13))
49005  pack_tmp = ior(pack_tmp, data_tmp)
49006  ipack = ipack + 1
49007  packed_data(ipack) = pack_tmp
49008  data_tmp = full_data(idata)
49009  pack_tmp = ishft(data_tmp, 18)
49010  pack_tmp = ishft(pack_tmp, -18)
49011  idata = idata + 1
49012  data_tmp = full_data(idata)
49013  data_tmp = ishft(data_tmp, 5)
49014  data_tmp = iand(data_tmp, mask_left(18))
49015  pack_tmp = ior(pack_tmp, data_tmp)
49016  ipack = ipack + 1
49017  packed_data(ipack) = pack_tmp
49018  data_tmp = full_data(idata)
49019  pack_tmp = ishft(data_tmp, 23)
49020  pack_tmp = ishft(pack_tmp, -23)
49021  idata = idata + 1
49022  data_tmp = full_data(idata)
49023  data_tmp = ishft(data_tmp, 5)
49024  data_tmp = iand(data_tmp, mask_left(23))
49025  pack_tmp = ior(pack_tmp, data_tmp)
49026  ipack = ipack + 1
49027  packed_data(ipack) = pack_tmp
49028  data_tmp = full_data(idata)
49029  pack_tmp = ishft(data_tmp, 28)
49030  pack_tmp = ishft(pack_tmp, -28)
49031  idata = idata + 1
49032  data_tmp = full_data(idata)
49033  data_tmp = ishft(data_tmp, 5)
49034  data_tmp = iand(data_tmp, mask_left(28))
49035  pack_tmp = ior(pack_tmp, data_tmp)
49036  ipack = ipack + 1
49037  packed_data(ipack) = pack_tmp
49038  data_tmp = full_data(idata)
49039  pack_tmp = ishft(data_tmp, 33)
49040  pack_tmp = ishft(pack_tmp, -33)
49041  idata = idata + 1
49042  data_tmp = full_data(idata)
49043  data_tmp = ishft(data_tmp, 5)
49044  data_tmp = iand(data_tmp, mask_left(33))
49045  pack_tmp = ior(pack_tmp, data_tmp)
49046  ipack = ipack + 1
49047  packed_data(ipack) = pack_tmp
49048  data_tmp = full_data(idata)
49049  pack_tmp = ishft(data_tmp, 38)
49050  pack_tmp = ishft(pack_tmp, -38)
49051  idata = idata + 1
49052  data_tmp = full_data(idata)
49053  data_tmp = ishft(data_tmp, 5)
49054  data_tmp = iand(data_tmp, mask_left(38))
49055  pack_tmp = ior(pack_tmp, data_tmp)
49056  ipack = ipack + 1
49057  packed_data(ipack) = pack_tmp
49058  data_tmp = full_data(idata)
49059  pack_tmp = ishft(data_tmp, 43)
49060  pack_tmp = ishft(pack_tmp, -43)
49061  idata = idata + 1
49062  data_tmp = full_data(idata)
49063  data_tmp = ishft(data_tmp, 5)
49064  data_tmp = iand(data_tmp, mask_left(43))
49065  pack_tmp = ior(pack_tmp, data_tmp)
49066  ipack = ipack + 1
49067  packed_data(ipack) = pack_tmp
49068  data_tmp = full_data(idata)
49069  pack_tmp = ishft(data_tmp, 48)
49070  pack_tmp = ishft(pack_tmp, -48)
49071  idata = idata + 1
49072  data_tmp = full_data(idata)
49073  data_tmp = ishft(data_tmp, 5)
49074  data_tmp = iand(data_tmp, mask_left(48))
49075  pack_tmp = ior(pack_tmp, data_tmp)
49076  ipack = ipack + 1
49077  packed_data(ipack) = pack_tmp
49078  data_tmp = full_data(idata)
49079  pack_tmp = ishft(data_tmp, 53)
49080  pack_tmp = ishft(pack_tmp, -53)
49081  idata = idata + 1
49082  data_tmp = full_data(idata)
49083  data_tmp = ishft(data_tmp, 5)
49084  data_tmp = iand(data_tmp, mask_left(53))
49085  pack_tmp = ior(pack_tmp, data_tmp)
49086  ipack = ipack + 1
49087  packed_data(ipack) = pack_tmp
49088  data_tmp = full_data(idata)
49089  pack_tmp = ishft(data_tmp, 58)
49090  pack_tmp = ishft(pack_tmp, -58)
49091  idata = idata + 1
49092  data_tmp = full_data(idata)
49093  data_tmp = ishft(data_tmp, 5)
49094  data_tmp = iand(data_tmp, mask_left(58))
49095  pack_tmp = ior(pack_tmp, data_tmp)
49096  ipack = ipack + 1
49097  packed_data(ipack) = pack_tmp
49098  data_tmp = full_data(idata)
49099  pack_tmp = ishft(data_tmp, 63)
49100  pack_tmp = ishft(pack_tmp, -59)
49101  idata = idata + 1
49102  data_tmp = full_data(idata)
49103  data_tmp = ishft(data_tmp, 5)
49104  pack_tmp = ior(pack_tmp, data_tmp)
49105  pack_tmp = ishft(pack_tmp, -4)
49106  idata = idata + 1
49107  data_tmp = full_data(idata)
49108  data_tmp = ishft(data_tmp, 5)
49109  data_tmp = iand(data_tmp, mask_left(4))
49110  pack_tmp = ior(pack_tmp, data_tmp)
49111  ipack = ipack + 1
49112  packed_data(ipack) = pack_tmp
49113  data_tmp = full_data(idata)
49114  pack_tmp = ishft(data_tmp, 9)
49115  pack_tmp = ishft(pack_tmp, -9)
49116  idata = idata + 1
49117  data_tmp = full_data(idata)
49118  data_tmp = ishft(data_tmp, 5)
49119  data_tmp = iand(data_tmp, mask_left(9))
49120  pack_tmp = ior(pack_tmp, data_tmp)
49121  ipack = ipack + 1
49122  packed_data(ipack) = pack_tmp
49123  data_tmp = full_data(idata)
49124  pack_tmp = ishft(data_tmp, 14)
49125  pack_tmp = ishft(pack_tmp, -14)
49126  idata = idata + 1
49127  data_tmp = full_data(idata)
49128  data_tmp = ishft(data_tmp, 5)
49129  data_tmp = iand(data_tmp, mask_left(14))
49130  pack_tmp = ior(pack_tmp, data_tmp)
49131  ipack = ipack + 1
49132  packed_data(ipack) = pack_tmp
49133  data_tmp = full_data(idata)
49134  pack_tmp = ishft(data_tmp, 19)
49135  pack_tmp = ishft(pack_tmp, -19)
49136  idata = idata + 1
49137  data_tmp = full_data(idata)
49138  data_tmp = ishft(data_tmp, 5)
49139  data_tmp = iand(data_tmp, mask_left(19))
49140  pack_tmp = ior(pack_tmp, data_tmp)
49141  ipack = ipack + 1
49142  packed_data(ipack) = pack_tmp
49143  data_tmp = full_data(idata)
49144  pack_tmp = ishft(data_tmp, 24)
49145  pack_tmp = ishft(pack_tmp, -24)
49146  idata = idata + 1
49147  data_tmp = full_data(idata)
49148  data_tmp = ishft(data_tmp, 5)
49149  data_tmp = iand(data_tmp, mask_left(24))
49150  pack_tmp = ior(pack_tmp, data_tmp)
49151  ipack = ipack + 1
49152  packed_data(ipack) = pack_tmp
49153  data_tmp = full_data(idata)
49154  pack_tmp = ishft(data_tmp, 29)
49155  pack_tmp = ishft(pack_tmp, -29)
49156  idata = idata + 1
49157  data_tmp = full_data(idata)
49158  data_tmp = ishft(data_tmp, 5)
49159  data_tmp = iand(data_tmp, mask_left(29))
49160  pack_tmp = ior(pack_tmp, data_tmp)
49161  ipack = ipack + 1
49162  packed_data(ipack) = pack_tmp
49163  data_tmp = full_data(idata)
49164  pack_tmp = ishft(data_tmp, 34)
49165  pack_tmp = ishft(pack_tmp, -34)
49166  idata = idata + 1
49167  data_tmp = full_data(idata)
49168  data_tmp = ishft(data_tmp, 5)
49169  data_tmp = iand(data_tmp, mask_left(34))
49170  pack_tmp = ior(pack_tmp, data_tmp)
49171  ipack = ipack + 1
49172  packed_data(ipack) = pack_tmp
49173  data_tmp = full_data(idata)
49174  pack_tmp = ishft(data_tmp, 39)
49175  pack_tmp = ishft(pack_tmp, -39)
49176  idata = idata + 1
49177  data_tmp = full_data(idata)
49178  data_tmp = ishft(data_tmp, 5)
49179  data_tmp = iand(data_tmp, mask_left(39))
49180  pack_tmp = ior(pack_tmp, data_tmp)
49181  ipack = ipack + 1
49182  packed_data(ipack) = pack_tmp
49183  data_tmp = full_data(idata)
49184  pack_tmp = ishft(data_tmp, 44)
49185  pack_tmp = ishft(pack_tmp, -44)
49186  idata = idata + 1
49187  data_tmp = full_data(idata)
49188  data_tmp = ishft(data_tmp, 5)
49189  data_tmp = iand(data_tmp, mask_left(44))
49190  pack_tmp = ior(pack_tmp, data_tmp)
49191  ipack = ipack + 1
49192  packed_data(ipack) = pack_tmp
49193  data_tmp = full_data(idata)
49194  pack_tmp = ishft(data_tmp, 49)
49195  pack_tmp = ishft(pack_tmp, -49)
49196  idata = idata + 1
49197  data_tmp = full_data(idata)
49198  data_tmp = ishft(data_tmp, 5)
49199  data_tmp = iand(data_tmp, mask_left(49))
49200  pack_tmp = ior(pack_tmp, data_tmp)
49201  ipack = ipack + 1
49202  packed_data(ipack) = pack_tmp
49203  data_tmp = full_data(idata)
49204  pack_tmp = ishft(data_tmp, 54)
49205  pack_tmp = ishft(pack_tmp, -54)
49206  idata = idata + 1
49207  data_tmp = full_data(idata)
49208  data_tmp = ishft(data_tmp, 5)
49209  data_tmp = iand(data_tmp, mask_left(54))
49210  pack_tmp = ior(pack_tmp, data_tmp)
49211  ipack = ipack + 1
49212  packed_data(ipack) = pack_tmp
49213  data_tmp = full_data(idata)
49214  pack_tmp = ishft(data_tmp, 59)
49215  pack_tmp = ishft(pack_tmp, -59)
49216  idata = idata + 1
49217  data_tmp = full_data(idata)
49218  data_tmp = ishft(data_tmp, 5)
49219  pack_tmp = ior(pack_tmp, data_tmp)
49220  pack_tmp = ishft(pack_tmp, 0)
49221  pack_tmp = ishft(pack_tmp, 0)
49222  ipack = ipack + 1
49223  packed_data(ipack) = pack_tmp
49224  END DO
49225  IF (ndata_rep < ndata) THEN
49226  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
49227  END IF
49228  END SUBROUTINE ints2bits_59
49229 
49230 ! **************************************************************************************************
49231 !> \brief ...
49232 !> \param Ndata ...
49233 !> \param packed_data ...
49234 !> \param full_data ...
49235 ! **************************************************************************************************
49236  SUBROUTINE bits2ints_59(Ndata, packed_data, full_data)
49237  INTEGER, INTENT(IN) :: Ndata
49238  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
49239  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
49240 
49241  INTEGER, PARAMETER :: Nbits = 59
49242 
49243  INTEGER :: idata, ipack, kdata, Ndata_rep
49244  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
49245 
49246  ipack = 0
49247  idata = 0
49248  pack_tmp = 0
49249  ndata_rep = (ndata/64)*64
49250  DO kdata = 1, ndata_rep, 64
49251  idata = idata + 1
49252  data_tmp = ishft(pack_tmp, 59)
49253  ipack = ipack + 1
49254  pack_tmp = packed_data(ipack)
49255  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(59)))
49256  pack_tmp = ishft(pack_tmp, -59)
49257  idata = idata + 1
49258  data_tmp = ishft(pack_tmp, 54)
49259  ipack = ipack + 1
49260  pack_tmp = packed_data(ipack)
49261  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
49262  pack_tmp = ishft(pack_tmp, -54)
49263  idata = idata + 1
49264  data_tmp = ishft(pack_tmp, 49)
49265  ipack = ipack + 1
49266  pack_tmp = packed_data(ipack)
49267  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
49268  pack_tmp = ishft(pack_tmp, -49)
49269  idata = idata + 1
49270  data_tmp = ishft(pack_tmp, 44)
49271  ipack = ipack + 1
49272  pack_tmp = packed_data(ipack)
49273  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
49274  pack_tmp = ishft(pack_tmp, -44)
49275  idata = idata + 1
49276  data_tmp = ishft(pack_tmp, 39)
49277  ipack = ipack + 1
49278  pack_tmp = packed_data(ipack)
49279  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
49280  pack_tmp = ishft(pack_tmp, -39)
49281  idata = idata + 1
49282  data_tmp = ishft(pack_tmp, 34)
49283  ipack = ipack + 1
49284  pack_tmp = packed_data(ipack)
49285  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
49286  pack_tmp = ishft(pack_tmp, -34)
49287  idata = idata + 1
49288  data_tmp = ishft(pack_tmp, 29)
49289  ipack = ipack + 1
49290  pack_tmp = packed_data(ipack)
49291  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
49292  pack_tmp = ishft(pack_tmp, -29)
49293  idata = idata + 1
49294  data_tmp = ishft(pack_tmp, 24)
49295  ipack = ipack + 1
49296  pack_tmp = packed_data(ipack)
49297  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
49298  pack_tmp = ishft(pack_tmp, -24)
49299  idata = idata + 1
49300  data_tmp = ishft(pack_tmp, 19)
49301  ipack = ipack + 1
49302  pack_tmp = packed_data(ipack)
49303  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
49304  pack_tmp = ishft(pack_tmp, -19)
49305  idata = idata + 1
49306  data_tmp = ishft(pack_tmp, 14)
49307  ipack = ipack + 1
49308  pack_tmp = packed_data(ipack)
49309  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
49310  pack_tmp = ishft(pack_tmp, -14)
49311  idata = idata + 1
49312  data_tmp = ishft(pack_tmp, 9)
49313  ipack = ipack + 1
49314  pack_tmp = packed_data(ipack)
49315  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
49316  pack_tmp = ishft(pack_tmp, -9)
49317  idata = idata + 1
49318  data_tmp = ishft(pack_tmp, 4)
49319  ipack = ipack + 1
49320  pack_tmp = packed_data(ipack)
49321  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
49322  pack_tmp = ishft(pack_tmp, -4)
49323  idata = idata + 1
49324  data_tmp = iand(pack_tmp, mask_right(nbits))
49325  full_data(idata) = data_tmp
49326  pack_tmp = ishft(pack_tmp, -nbits)
49327  idata = idata + 1
49328  data_tmp = ishft(pack_tmp, 58)
49329  ipack = ipack + 1
49330  pack_tmp = packed_data(ipack)
49331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
49332  pack_tmp = ishft(pack_tmp, -58)
49333  idata = idata + 1
49334  data_tmp = ishft(pack_tmp, 53)
49335  ipack = ipack + 1
49336  pack_tmp = packed_data(ipack)
49337  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
49338  pack_tmp = ishft(pack_tmp, -53)
49339  idata = idata + 1
49340  data_tmp = ishft(pack_tmp, 48)
49341  ipack = ipack + 1
49342  pack_tmp = packed_data(ipack)
49343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
49344  pack_tmp = ishft(pack_tmp, -48)
49345  idata = idata + 1
49346  data_tmp = ishft(pack_tmp, 43)
49347  ipack = ipack + 1
49348  pack_tmp = packed_data(ipack)
49349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
49350  pack_tmp = ishft(pack_tmp, -43)
49351  idata = idata + 1
49352  data_tmp = ishft(pack_tmp, 38)
49353  ipack = ipack + 1
49354  pack_tmp = packed_data(ipack)
49355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
49356  pack_tmp = ishft(pack_tmp, -38)
49357  idata = idata + 1
49358  data_tmp = ishft(pack_tmp, 33)
49359  ipack = ipack + 1
49360  pack_tmp = packed_data(ipack)
49361  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
49362  pack_tmp = ishft(pack_tmp, -33)
49363  idata = idata + 1
49364  data_tmp = ishft(pack_tmp, 28)
49365  ipack = ipack + 1
49366  pack_tmp = packed_data(ipack)
49367  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
49368  pack_tmp = ishft(pack_tmp, -28)
49369  idata = idata + 1
49370  data_tmp = ishft(pack_tmp, 23)
49371  ipack = ipack + 1
49372  pack_tmp = packed_data(ipack)
49373  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
49374  pack_tmp = ishft(pack_tmp, -23)
49375  idata = idata + 1
49376  data_tmp = ishft(pack_tmp, 18)
49377  ipack = ipack + 1
49378  pack_tmp = packed_data(ipack)
49379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
49380  pack_tmp = ishft(pack_tmp, -18)
49381  idata = idata + 1
49382  data_tmp = ishft(pack_tmp, 13)
49383  ipack = ipack + 1
49384  pack_tmp = packed_data(ipack)
49385  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
49386  pack_tmp = ishft(pack_tmp, -13)
49387  idata = idata + 1
49388  data_tmp = ishft(pack_tmp, 8)
49389  ipack = ipack + 1
49390  pack_tmp = packed_data(ipack)
49391  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
49392  pack_tmp = ishft(pack_tmp, -8)
49393  idata = idata + 1
49394  data_tmp = ishft(pack_tmp, 3)
49395  ipack = ipack + 1
49396  pack_tmp = packed_data(ipack)
49397  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
49398  pack_tmp = ishft(pack_tmp, -3)
49399  idata = idata + 1
49400  data_tmp = iand(pack_tmp, mask_right(nbits))
49401  full_data(idata) = data_tmp
49402  pack_tmp = ishft(pack_tmp, -nbits)
49403  idata = idata + 1
49404  data_tmp = ishft(pack_tmp, 57)
49405  ipack = ipack + 1
49406  pack_tmp = packed_data(ipack)
49407  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(57)))
49408  pack_tmp = ishft(pack_tmp, -57)
49409  idata = idata + 1
49410  data_tmp = ishft(pack_tmp, 52)
49411  ipack = ipack + 1
49412  pack_tmp = packed_data(ipack)
49413  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
49414  pack_tmp = ishft(pack_tmp, -52)
49415  idata = idata + 1
49416  data_tmp = ishft(pack_tmp, 47)
49417  ipack = ipack + 1
49418  pack_tmp = packed_data(ipack)
49419  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
49420  pack_tmp = ishft(pack_tmp, -47)
49421  idata = idata + 1
49422  data_tmp = ishft(pack_tmp, 42)
49423  ipack = ipack + 1
49424  pack_tmp = packed_data(ipack)
49425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
49426  pack_tmp = ishft(pack_tmp, -42)
49427  idata = idata + 1
49428  data_tmp = ishft(pack_tmp, 37)
49429  ipack = ipack + 1
49430  pack_tmp = packed_data(ipack)
49431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
49432  pack_tmp = ishft(pack_tmp, -37)
49433  idata = idata + 1
49434  data_tmp = ishft(pack_tmp, 32)
49435  ipack = ipack + 1
49436  pack_tmp = packed_data(ipack)
49437  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
49438  pack_tmp = ishft(pack_tmp, -32)
49439  idata = idata + 1
49440  data_tmp = ishft(pack_tmp, 27)
49441  ipack = ipack + 1
49442  pack_tmp = packed_data(ipack)
49443  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
49444  pack_tmp = ishft(pack_tmp, -27)
49445  idata = idata + 1
49446  data_tmp = ishft(pack_tmp, 22)
49447  ipack = ipack + 1
49448  pack_tmp = packed_data(ipack)
49449  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
49450  pack_tmp = ishft(pack_tmp, -22)
49451  idata = idata + 1
49452  data_tmp = ishft(pack_tmp, 17)
49453  ipack = ipack + 1
49454  pack_tmp = packed_data(ipack)
49455  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
49456  pack_tmp = ishft(pack_tmp, -17)
49457  idata = idata + 1
49458  data_tmp = ishft(pack_tmp, 12)
49459  ipack = ipack + 1
49460  pack_tmp = packed_data(ipack)
49461  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
49462  pack_tmp = ishft(pack_tmp, -12)
49463  idata = idata + 1
49464  data_tmp = ishft(pack_tmp, 7)
49465  ipack = ipack + 1
49466  pack_tmp = packed_data(ipack)
49467  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
49468  pack_tmp = ishft(pack_tmp, -7)
49469  idata = idata + 1
49470  data_tmp = ishft(pack_tmp, 2)
49471  ipack = ipack + 1
49472  pack_tmp = packed_data(ipack)
49473  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
49474  pack_tmp = ishft(pack_tmp, -2)
49475  idata = idata + 1
49476  data_tmp = iand(pack_tmp, mask_right(nbits))
49477  full_data(idata) = data_tmp
49478  pack_tmp = ishft(pack_tmp, -nbits)
49479  idata = idata + 1
49480  data_tmp = ishft(pack_tmp, 56)
49481  ipack = ipack + 1
49482  pack_tmp = packed_data(ipack)
49483  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
49484  pack_tmp = ishft(pack_tmp, -56)
49485  idata = idata + 1
49486  data_tmp = ishft(pack_tmp, 51)
49487  ipack = ipack + 1
49488  pack_tmp = packed_data(ipack)
49489  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
49490  pack_tmp = ishft(pack_tmp, -51)
49491  idata = idata + 1
49492  data_tmp = ishft(pack_tmp, 46)
49493  ipack = ipack + 1
49494  pack_tmp = packed_data(ipack)
49495  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
49496  pack_tmp = ishft(pack_tmp, -46)
49497  idata = idata + 1
49498  data_tmp = ishft(pack_tmp, 41)
49499  ipack = ipack + 1
49500  pack_tmp = packed_data(ipack)
49501  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
49502  pack_tmp = ishft(pack_tmp, -41)
49503  idata = idata + 1
49504  data_tmp = ishft(pack_tmp, 36)
49505  ipack = ipack + 1
49506  pack_tmp = packed_data(ipack)
49507  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
49508  pack_tmp = ishft(pack_tmp, -36)
49509  idata = idata + 1
49510  data_tmp = ishft(pack_tmp, 31)
49511  ipack = ipack + 1
49512  pack_tmp = packed_data(ipack)
49513  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
49514  pack_tmp = ishft(pack_tmp, -31)
49515  idata = idata + 1
49516  data_tmp = ishft(pack_tmp, 26)
49517  ipack = ipack + 1
49518  pack_tmp = packed_data(ipack)
49519  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
49520  pack_tmp = ishft(pack_tmp, -26)
49521  idata = idata + 1
49522  data_tmp = ishft(pack_tmp, 21)
49523  ipack = ipack + 1
49524  pack_tmp = packed_data(ipack)
49525  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
49526  pack_tmp = ishft(pack_tmp, -21)
49527  idata = idata + 1
49528  data_tmp = ishft(pack_tmp, 16)
49529  ipack = ipack + 1
49530  pack_tmp = packed_data(ipack)
49531  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
49532  pack_tmp = ishft(pack_tmp, -16)
49533  idata = idata + 1
49534  data_tmp = ishft(pack_tmp, 11)
49535  ipack = ipack + 1
49536  pack_tmp = packed_data(ipack)
49537  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
49538  pack_tmp = ishft(pack_tmp, -11)
49539  idata = idata + 1
49540  data_tmp = ishft(pack_tmp, 6)
49541  ipack = ipack + 1
49542  pack_tmp = packed_data(ipack)
49543  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
49544  pack_tmp = ishft(pack_tmp, -6)
49545  idata = idata + 1
49546  data_tmp = ishft(pack_tmp, 1)
49547  ipack = ipack + 1
49548  pack_tmp = packed_data(ipack)
49549  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
49550  pack_tmp = ishft(pack_tmp, -1)
49551  idata = idata + 1
49552  data_tmp = iand(pack_tmp, mask_right(nbits))
49553  full_data(idata) = data_tmp
49554  pack_tmp = ishft(pack_tmp, -nbits)
49555  idata = idata + 1
49556  data_tmp = ishft(pack_tmp, 55)
49557  ipack = ipack + 1
49558  pack_tmp = packed_data(ipack)
49559  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(55)))
49560  pack_tmp = ishft(pack_tmp, -55)
49561  idata = idata + 1
49562  data_tmp = ishft(pack_tmp, 50)
49563  ipack = ipack + 1
49564  pack_tmp = packed_data(ipack)
49565  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
49566  pack_tmp = ishft(pack_tmp, -50)
49567  idata = idata + 1
49568  data_tmp = ishft(pack_tmp, 45)
49569  ipack = ipack + 1
49570  pack_tmp = packed_data(ipack)
49571  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
49572  pack_tmp = ishft(pack_tmp, -45)
49573  idata = idata + 1
49574  data_tmp = ishft(pack_tmp, 40)
49575  ipack = ipack + 1
49576  pack_tmp = packed_data(ipack)
49577  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
49578  pack_tmp = ishft(pack_tmp, -40)
49579  idata = idata + 1
49580  data_tmp = ishft(pack_tmp, 35)
49581  ipack = ipack + 1
49582  pack_tmp = packed_data(ipack)
49583  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
49584  pack_tmp = ishft(pack_tmp, -35)
49585  idata = idata + 1
49586  data_tmp = ishft(pack_tmp, 30)
49587  ipack = ipack + 1
49588  pack_tmp = packed_data(ipack)
49589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
49590  pack_tmp = ishft(pack_tmp, -30)
49591  idata = idata + 1
49592  data_tmp = ishft(pack_tmp, 25)
49593  ipack = ipack + 1
49594  pack_tmp = packed_data(ipack)
49595  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
49596  pack_tmp = ishft(pack_tmp, -25)
49597  idata = idata + 1
49598  data_tmp = ishft(pack_tmp, 20)
49599  ipack = ipack + 1
49600  pack_tmp = packed_data(ipack)
49601  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
49602  pack_tmp = ishft(pack_tmp, -20)
49603  idata = idata + 1
49604  data_tmp = ishft(pack_tmp, 15)
49605  ipack = ipack + 1
49606  pack_tmp = packed_data(ipack)
49607  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
49608  pack_tmp = ishft(pack_tmp, -15)
49609  idata = idata + 1
49610  data_tmp = ishft(pack_tmp, 10)
49611  ipack = ipack + 1
49612  pack_tmp = packed_data(ipack)
49613  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
49614  pack_tmp = ishft(pack_tmp, -10)
49615  idata = idata + 1
49616  data_tmp = ishft(pack_tmp, 5)
49617  ipack = ipack + 1
49618  pack_tmp = packed_data(ipack)
49619  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
49620  pack_tmp = ishft(pack_tmp, -5)
49621  idata = idata + 1
49622  data_tmp = iand(pack_tmp, mask_right(nbits))
49623  full_data(idata) = data_tmp
49624  pack_tmp = ishft(pack_tmp, -nbits)
49625  END DO
49626  IF (ndata_rep < ndata) THEN
49627  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
49628  END IF
49629  END SUBROUTINE bits2ints_59
49630 
49631 ! **************************************************************************************************
49632 !> \brief ...
49633 !> \param Ndata ...
49634 !> \param packed_data ...
49635 !> \param full_data ...
49636 ! **************************************************************************************************
49637  SUBROUTINE ints2bits_60(Ndata, packed_data, full_data)
49638  INTEGER, INTENT(IN) :: Ndata
49639  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
49640  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
49641 
49642  INTEGER, PARAMETER :: Nbits = 60
49643 
49644  INTEGER :: idata, ipack, kdata, Ndata_rep
49645  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
49646 
49647  idata = 0
49648  ipack = 0
49649  ndata_rep = (ndata/64)*64
49650  DO kdata = 1, ndata_rep, 64
49651  pack_tmp = 0
49652  idata = idata + 1
49653  data_tmp = full_data(idata)
49654  data_tmp = ishft(data_tmp, 4)
49655  pack_tmp = ior(pack_tmp, data_tmp)
49656  pack_tmp = ishft(pack_tmp, -4)
49657  idata = idata + 1
49658  data_tmp = full_data(idata)
49659  data_tmp = ishft(data_tmp, 4)
49660  data_tmp = iand(data_tmp, mask_left(4))
49661  pack_tmp = ior(pack_tmp, data_tmp)
49662  ipack = ipack + 1
49663  packed_data(ipack) = pack_tmp
49664  data_tmp = full_data(idata)
49665  pack_tmp = ishft(data_tmp, 8)
49666  pack_tmp = ishft(pack_tmp, -8)
49667  idata = idata + 1
49668  data_tmp = full_data(idata)
49669  data_tmp = ishft(data_tmp, 4)
49670  data_tmp = iand(data_tmp, mask_left(8))
49671  pack_tmp = ior(pack_tmp, data_tmp)
49672  ipack = ipack + 1
49673  packed_data(ipack) = pack_tmp
49674  data_tmp = full_data(idata)
49675  pack_tmp = ishft(data_tmp, 12)
49676  pack_tmp = ishft(pack_tmp, -12)
49677  idata = idata + 1
49678  data_tmp = full_data(idata)
49679  data_tmp = ishft(data_tmp, 4)
49680  data_tmp = iand(data_tmp, mask_left(12))
49681  pack_tmp = ior(pack_tmp, data_tmp)
49682  ipack = ipack + 1
49683  packed_data(ipack) = pack_tmp
49684  data_tmp = full_data(idata)
49685  pack_tmp = ishft(data_tmp, 16)
49686  pack_tmp = ishft(pack_tmp, -16)
49687  idata = idata + 1
49688  data_tmp = full_data(idata)
49689  data_tmp = ishft(data_tmp, 4)
49690  data_tmp = iand(data_tmp, mask_left(16))
49691  pack_tmp = ior(pack_tmp, data_tmp)
49692  ipack = ipack + 1
49693  packed_data(ipack) = pack_tmp
49694  data_tmp = full_data(idata)
49695  pack_tmp = ishft(data_tmp, 20)
49696  pack_tmp = ishft(pack_tmp, -20)
49697  idata = idata + 1
49698  data_tmp = full_data(idata)
49699  data_tmp = ishft(data_tmp, 4)
49700  data_tmp = iand(data_tmp, mask_left(20))
49701  pack_tmp = ior(pack_tmp, data_tmp)
49702  ipack = ipack + 1
49703  packed_data(ipack) = pack_tmp
49704  data_tmp = full_data(idata)
49705  pack_tmp = ishft(data_tmp, 24)
49706  pack_tmp = ishft(pack_tmp, -24)
49707  idata = idata + 1
49708  data_tmp = full_data(idata)
49709  data_tmp = ishft(data_tmp, 4)
49710  data_tmp = iand(data_tmp, mask_left(24))
49711  pack_tmp = ior(pack_tmp, data_tmp)
49712  ipack = ipack + 1
49713  packed_data(ipack) = pack_tmp
49714  data_tmp = full_data(idata)
49715  pack_tmp = ishft(data_tmp, 28)
49716  pack_tmp = ishft(pack_tmp, -28)
49717  idata = idata + 1
49718  data_tmp = full_data(idata)
49719  data_tmp = ishft(data_tmp, 4)
49720  data_tmp = iand(data_tmp, mask_left(28))
49721  pack_tmp = ior(pack_tmp, data_tmp)
49722  ipack = ipack + 1
49723  packed_data(ipack) = pack_tmp
49724  data_tmp = full_data(idata)
49725  pack_tmp = ishft(data_tmp, 32)
49726  pack_tmp = ishft(pack_tmp, -32)
49727  idata = idata + 1
49728  data_tmp = full_data(idata)
49729  data_tmp = ishft(data_tmp, 4)
49730  data_tmp = iand(data_tmp, mask_left(32))
49731  pack_tmp = ior(pack_tmp, data_tmp)
49732  ipack = ipack + 1
49733  packed_data(ipack) = pack_tmp
49734  data_tmp = full_data(idata)
49735  pack_tmp = ishft(data_tmp, 36)
49736  pack_tmp = ishft(pack_tmp, -36)
49737  idata = idata + 1
49738  data_tmp = full_data(idata)
49739  data_tmp = ishft(data_tmp, 4)
49740  data_tmp = iand(data_tmp, mask_left(36))
49741  pack_tmp = ior(pack_tmp, data_tmp)
49742  ipack = ipack + 1
49743  packed_data(ipack) = pack_tmp
49744  data_tmp = full_data(idata)
49745  pack_tmp = ishft(data_tmp, 40)
49746  pack_tmp = ishft(pack_tmp, -40)
49747  idata = idata + 1
49748  data_tmp = full_data(idata)
49749  data_tmp = ishft(data_tmp, 4)
49750  data_tmp = iand(data_tmp, mask_left(40))
49751  pack_tmp = ior(pack_tmp, data_tmp)
49752  ipack = ipack + 1
49753  packed_data(ipack) = pack_tmp
49754  data_tmp = full_data(idata)
49755  pack_tmp = ishft(data_tmp, 44)
49756  pack_tmp = ishft(pack_tmp, -44)
49757  idata = idata + 1
49758  data_tmp = full_data(idata)
49759  data_tmp = ishft(data_tmp, 4)
49760  data_tmp = iand(data_tmp, mask_left(44))
49761  pack_tmp = ior(pack_tmp, data_tmp)
49762  ipack = ipack + 1
49763  packed_data(ipack) = pack_tmp
49764  data_tmp = full_data(idata)
49765  pack_tmp = ishft(data_tmp, 48)
49766  pack_tmp = ishft(pack_tmp, -48)
49767  idata = idata + 1
49768  data_tmp = full_data(idata)
49769  data_tmp = ishft(data_tmp, 4)
49770  data_tmp = iand(data_tmp, mask_left(48))
49771  pack_tmp = ior(pack_tmp, data_tmp)
49772  ipack = ipack + 1
49773  packed_data(ipack) = pack_tmp
49774  data_tmp = full_data(idata)
49775  pack_tmp = ishft(data_tmp, 52)
49776  pack_tmp = ishft(pack_tmp, -52)
49777  idata = idata + 1
49778  data_tmp = full_data(idata)
49779  data_tmp = ishft(data_tmp, 4)
49780  data_tmp = iand(data_tmp, mask_left(52))
49781  pack_tmp = ior(pack_tmp, data_tmp)
49782  ipack = ipack + 1
49783  packed_data(ipack) = pack_tmp
49784  data_tmp = full_data(idata)
49785  pack_tmp = ishft(data_tmp, 56)
49786  pack_tmp = ishft(pack_tmp, -56)
49787  idata = idata + 1
49788  data_tmp = full_data(idata)
49789  data_tmp = ishft(data_tmp, 4)
49790  data_tmp = iand(data_tmp, mask_left(56))
49791  pack_tmp = ior(pack_tmp, data_tmp)
49792  ipack = ipack + 1
49793  packed_data(ipack) = pack_tmp
49794  data_tmp = full_data(idata)
49795  pack_tmp = ishft(data_tmp, 60)
49796  pack_tmp = ishft(pack_tmp, -60)
49797  idata = idata + 1
49798  data_tmp = full_data(idata)
49799  data_tmp = ishft(data_tmp, 4)
49800  pack_tmp = ior(pack_tmp, data_tmp)
49801  pack_tmp = ishft(pack_tmp, 0)
49802  idata = idata + 1
49803  data_tmp = full_data(idata)
49804  data_tmp = ishft(data_tmp, 4)
49805  data_tmp = iand(data_tmp, mask_left(0))
49806  pack_tmp = ior(pack_tmp, data_tmp)
49807  ipack = ipack + 1
49808  packed_data(ipack) = pack_tmp
49809  data_tmp = full_data(idata)
49810  pack_tmp = ishft(data_tmp, 4)
49811  pack_tmp = ishft(pack_tmp, -4)
49812  idata = idata + 1
49813  data_tmp = full_data(idata)
49814  data_tmp = ishft(data_tmp, 4)
49815  data_tmp = iand(data_tmp, mask_left(4))
49816  pack_tmp = ior(pack_tmp, data_tmp)
49817  ipack = ipack + 1
49818  packed_data(ipack) = pack_tmp
49819  data_tmp = full_data(idata)
49820  pack_tmp = ishft(data_tmp, 8)
49821  pack_tmp = ishft(pack_tmp, -8)
49822  idata = idata + 1
49823  data_tmp = full_data(idata)
49824  data_tmp = ishft(data_tmp, 4)
49825  data_tmp = iand(data_tmp, mask_left(8))
49826  pack_tmp = ior(pack_tmp, data_tmp)
49827  ipack = ipack + 1
49828  packed_data(ipack) = pack_tmp
49829  data_tmp = full_data(idata)
49830  pack_tmp = ishft(data_tmp, 12)
49831  pack_tmp = ishft(pack_tmp, -12)
49832  idata = idata + 1
49833  data_tmp = full_data(idata)
49834  data_tmp = ishft(data_tmp, 4)
49835  data_tmp = iand(data_tmp, mask_left(12))
49836  pack_tmp = ior(pack_tmp, data_tmp)
49837  ipack = ipack + 1
49838  packed_data(ipack) = pack_tmp
49839  data_tmp = full_data(idata)
49840  pack_tmp = ishft(data_tmp, 16)
49841  pack_tmp = ishft(pack_tmp, -16)
49842  idata = idata + 1
49843  data_tmp = full_data(idata)
49844  data_tmp = ishft(data_tmp, 4)
49845  data_tmp = iand(data_tmp, mask_left(16))
49846  pack_tmp = ior(pack_tmp, data_tmp)
49847  ipack = ipack + 1
49848  packed_data(ipack) = pack_tmp
49849  data_tmp = full_data(idata)
49850  pack_tmp = ishft(data_tmp, 20)
49851  pack_tmp = ishft(pack_tmp, -20)
49852  idata = idata + 1
49853  data_tmp = full_data(idata)
49854  data_tmp = ishft(data_tmp, 4)
49855  data_tmp = iand(data_tmp, mask_left(20))
49856  pack_tmp = ior(pack_tmp, data_tmp)
49857  ipack = ipack + 1
49858  packed_data(ipack) = pack_tmp
49859  data_tmp = full_data(idata)
49860  pack_tmp = ishft(data_tmp, 24)
49861  pack_tmp = ishft(pack_tmp, -24)
49862  idata = idata + 1
49863  data_tmp = full_data(idata)
49864  data_tmp = ishft(data_tmp, 4)
49865  data_tmp = iand(data_tmp, mask_left(24))
49866  pack_tmp = ior(pack_tmp, data_tmp)
49867  ipack = ipack + 1
49868  packed_data(ipack) = pack_tmp
49869  data_tmp = full_data(idata)
49870  pack_tmp = ishft(data_tmp, 28)
49871  pack_tmp = ishft(pack_tmp, -28)
49872  idata = idata + 1
49873  data_tmp = full_data(idata)
49874  data_tmp = ishft(data_tmp, 4)
49875  data_tmp = iand(data_tmp, mask_left(28))
49876  pack_tmp = ior(pack_tmp, data_tmp)
49877  ipack = ipack + 1
49878  packed_data(ipack) = pack_tmp
49879  data_tmp = full_data(idata)
49880  pack_tmp = ishft(data_tmp, 32)
49881  pack_tmp = ishft(pack_tmp, -32)
49882  idata = idata + 1
49883  data_tmp = full_data(idata)
49884  data_tmp = ishft(data_tmp, 4)
49885  data_tmp = iand(data_tmp, mask_left(32))
49886  pack_tmp = ior(pack_tmp, data_tmp)
49887  ipack = ipack + 1
49888  packed_data(ipack) = pack_tmp
49889  data_tmp = full_data(idata)
49890  pack_tmp = ishft(data_tmp, 36)
49891  pack_tmp = ishft(pack_tmp, -36)
49892  idata = idata + 1
49893  data_tmp = full_data(idata)
49894  data_tmp = ishft(data_tmp, 4)
49895  data_tmp = iand(data_tmp, mask_left(36))
49896  pack_tmp = ior(pack_tmp, data_tmp)
49897  ipack = ipack + 1
49898  packed_data(ipack) = pack_tmp
49899  data_tmp = full_data(idata)
49900  pack_tmp = ishft(data_tmp, 40)
49901  pack_tmp = ishft(pack_tmp, -40)
49902  idata = idata + 1
49903  data_tmp = full_data(idata)
49904  data_tmp = ishft(data_tmp, 4)
49905  data_tmp = iand(data_tmp, mask_left(40))
49906  pack_tmp = ior(pack_tmp, data_tmp)
49907  ipack = ipack + 1
49908  packed_data(ipack) = pack_tmp
49909  data_tmp = full_data(idata)
49910  pack_tmp = ishft(data_tmp, 44)
49911  pack_tmp = ishft(pack_tmp, -44)
49912  idata = idata + 1
49913  data_tmp = full_data(idata)
49914  data_tmp = ishft(data_tmp, 4)
49915  data_tmp = iand(data_tmp, mask_left(44))
49916  pack_tmp = ior(pack_tmp, data_tmp)
49917  ipack = ipack + 1
49918  packed_data(ipack) = pack_tmp
49919  data_tmp = full_data(idata)
49920  pack_tmp = ishft(data_tmp, 48)
49921  pack_tmp = ishft(pack_tmp, -48)
49922  idata = idata + 1
49923  data_tmp = full_data(idata)
49924  data_tmp = ishft(data_tmp, 4)
49925  data_tmp = iand(data_tmp, mask_left(48))
49926  pack_tmp = ior(pack_tmp, data_tmp)
49927  ipack = ipack + 1
49928  packed_data(ipack) = pack_tmp
49929  data_tmp = full_data(idata)
49930  pack_tmp = ishft(data_tmp, 52)
49931  pack_tmp = ishft(pack_tmp, -52)
49932  idata = idata + 1
49933  data_tmp = full_data(idata)
49934  data_tmp = ishft(data_tmp, 4)
49935  data_tmp = iand(data_tmp, mask_left(52))
49936  pack_tmp = ior(pack_tmp, data_tmp)
49937  ipack = ipack + 1
49938  packed_data(ipack) = pack_tmp
49939  data_tmp = full_data(idata)
49940  pack_tmp = ishft(data_tmp, 56)
49941  pack_tmp = ishft(pack_tmp, -56)
49942  idata = idata + 1
49943  data_tmp = full_data(idata)
49944  data_tmp = ishft(data_tmp, 4)
49945  data_tmp = iand(data_tmp, mask_left(56))
49946  pack_tmp = ior(pack_tmp, data_tmp)
49947  ipack = ipack + 1
49948  packed_data(ipack) = pack_tmp
49949  data_tmp = full_data(idata)
49950  pack_tmp = ishft(data_tmp, 60)
49951  pack_tmp = ishft(pack_tmp, -60)
49952  idata = idata + 1
49953  data_tmp = full_data(idata)
49954  data_tmp = ishft(data_tmp, 4)
49955  pack_tmp = ior(pack_tmp, data_tmp)
49956  pack_tmp = ishft(pack_tmp, 0)
49957  idata = idata + 1
49958  data_tmp = full_data(idata)
49959  data_tmp = ishft(data_tmp, 4)
49960  data_tmp = iand(data_tmp, mask_left(0))
49961  pack_tmp = ior(pack_tmp, data_tmp)
49962  ipack = ipack + 1
49963  packed_data(ipack) = pack_tmp
49964  data_tmp = full_data(idata)
49965  pack_tmp = ishft(data_tmp, 4)
49966  pack_tmp = ishft(pack_tmp, -4)
49967  idata = idata + 1
49968  data_tmp = full_data(idata)
49969  data_tmp = ishft(data_tmp, 4)
49970  data_tmp = iand(data_tmp, mask_left(4))
49971  pack_tmp = ior(pack_tmp, data_tmp)
49972  ipack = ipack + 1
49973  packed_data(ipack) = pack_tmp
49974  data_tmp = full_data(idata)
49975  pack_tmp = ishft(data_tmp, 8)
49976  pack_tmp = ishft(pack_tmp, -8)
49977  idata = idata + 1
49978  data_tmp = full_data(idata)
49979  data_tmp = ishft(data_tmp, 4)
49980  data_tmp = iand(data_tmp, mask_left(8))
49981  pack_tmp = ior(pack_tmp, data_tmp)
49982  ipack = ipack + 1
49983  packed_data(ipack) = pack_tmp
49984  data_tmp = full_data(idata)
49985  pack_tmp = ishft(data_tmp, 12)
49986  pack_tmp = ishft(pack_tmp, -12)
49987  idata = idata + 1
49988  data_tmp = full_data(idata)
49989  data_tmp = ishft(data_tmp, 4)
49990  data_tmp = iand(data_tmp, mask_left(12))
49991  pack_tmp = ior(pack_tmp, data_tmp)
49992  ipack = ipack + 1
49993  packed_data(ipack) = pack_tmp
49994  data_tmp = full_data(idata)
49995  pack_tmp = ishft(data_tmp, 16)
49996  pack_tmp = ishft(pack_tmp, -16)
49997  idata = idata + 1
49998  data_tmp = full_data(idata)
49999  data_tmp = ishft(data_tmp, 4)
50000  data_tmp = iand(data_tmp, mask_left(16))
50001  pack_tmp = ior(pack_tmp, data_tmp)
50002  ipack = ipack + 1
50003  packed_data(ipack) = pack_tmp
50004  data_tmp = full_data(idata)
50005  pack_tmp = ishft(data_tmp, 20)
50006  pack_tmp = ishft(pack_tmp, -20)
50007  idata = idata + 1
50008  data_tmp = full_data(idata)
50009  data_tmp = ishft(data_tmp, 4)
50010  data_tmp = iand(data_tmp, mask_left(20))
50011  pack_tmp = ior(pack_tmp, data_tmp)
50012  ipack = ipack + 1
50013  packed_data(ipack) = pack_tmp
50014  data_tmp = full_data(idata)
50015  pack_tmp = ishft(data_tmp, 24)
50016  pack_tmp = ishft(pack_tmp, -24)
50017  idata = idata + 1
50018  data_tmp = full_data(idata)
50019  data_tmp = ishft(data_tmp, 4)
50020  data_tmp = iand(data_tmp, mask_left(24))
50021  pack_tmp = ior(pack_tmp, data_tmp)
50022  ipack = ipack + 1
50023  packed_data(ipack) = pack_tmp
50024  data_tmp = full_data(idata)
50025  pack_tmp = ishft(data_tmp, 28)
50026  pack_tmp = ishft(pack_tmp, -28)
50027  idata = idata + 1
50028  data_tmp = full_data(idata)
50029  data_tmp = ishft(data_tmp, 4)
50030  data_tmp = iand(data_tmp, mask_left(28))
50031  pack_tmp = ior(pack_tmp, data_tmp)
50032  ipack = ipack + 1
50033  packed_data(ipack) = pack_tmp
50034  data_tmp = full_data(idata)
50035  pack_tmp = ishft(data_tmp, 32)
50036  pack_tmp = ishft(pack_tmp, -32)
50037  idata = idata + 1
50038  data_tmp = full_data(idata)
50039  data_tmp = ishft(data_tmp, 4)
50040  data_tmp = iand(data_tmp, mask_left(32))
50041  pack_tmp = ior(pack_tmp, data_tmp)
50042  ipack = ipack + 1
50043  packed_data(ipack) = pack_tmp
50044  data_tmp = full_data(idata)
50045  pack_tmp = ishft(data_tmp, 36)
50046  pack_tmp = ishft(pack_tmp, -36)
50047  idata = idata + 1
50048  data_tmp = full_data(idata)
50049  data_tmp = ishft(data_tmp, 4)
50050  data_tmp = iand(data_tmp, mask_left(36))
50051  pack_tmp = ior(pack_tmp, data_tmp)
50052  ipack = ipack + 1
50053  packed_data(ipack) = pack_tmp
50054  data_tmp = full_data(idata)
50055  pack_tmp = ishft(data_tmp, 40)
50056  pack_tmp = ishft(pack_tmp, -40)
50057  idata = idata + 1
50058  data_tmp = full_data(idata)
50059  data_tmp = ishft(data_tmp, 4)
50060  data_tmp = iand(data_tmp, mask_left(40))
50061  pack_tmp = ior(pack_tmp, data_tmp)
50062  ipack = ipack + 1
50063  packed_data(ipack) = pack_tmp
50064  data_tmp = full_data(idata)
50065  pack_tmp = ishft(data_tmp, 44)
50066  pack_tmp = ishft(pack_tmp, -44)
50067  idata = idata + 1
50068  data_tmp = full_data(idata)
50069  data_tmp = ishft(data_tmp, 4)
50070  data_tmp = iand(data_tmp, mask_left(44))
50071  pack_tmp = ior(pack_tmp, data_tmp)
50072  ipack = ipack + 1
50073  packed_data(ipack) = pack_tmp
50074  data_tmp = full_data(idata)
50075  pack_tmp = ishft(data_tmp, 48)
50076  pack_tmp = ishft(pack_tmp, -48)
50077  idata = idata + 1
50078  data_tmp = full_data(idata)
50079  data_tmp = ishft(data_tmp, 4)
50080  data_tmp = iand(data_tmp, mask_left(48))
50081  pack_tmp = ior(pack_tmp, data_tmp)
50082  ipack = ipack + 1
50083  packed_data(ipack) = pack_tmp
50084  data_tmp = full_data(idata)
50085  pack_tmp = ishft(data_tmp, 52)
50086  pack_tmp = ishft(pack_tmp, -52)
50087  idata = idata + 1
50088  data_tmp = full_data(idata)
50089  data_tmp = ishft(data_tmp, 4)
50090  data_tmp = iand(data_tmp, mask_left(52))
50091  pack_tmp = ior(pack_tmp, data_tmp)
50092  ipack = ipack + 1
50093  packed_data(ipack) = pack_tmp
50094  data_tmp = full_data(idata)
50095  pack_tmp = ishft(data_tmp, 56)
50096  pack_tmp = ishft(pack_tmp, -56)
50097  idata = idata + 1
50098  data_tmp = full_data(idata)
50099  data_tmp = ishft(data_tmp, 4)
50100  data_tmp = iand(data_tmp, mask_left(56))
50101  pack_tmp = ior(pack_tmp, data_tmp)
50102  ipack = ipack + 1
50103  packed_data(ipack) = pack_tmp
50104  data_tmp = full_data(idata)
50105  pack_tmp = ishft(data_tmp, 60)
50106  pack_tmp = ishft(pack_tmp, -60)
50107  idata = idata + 1
50108  data_tmp = full_data(idata)
50109  data_tmp = ishft(data_tmp, 4)
50110  pack_tmp = ior(pack_tmp, data_tmp)
50111  pack_tmp = ishft(pack_tmp, 0)
50112  idata = idata + 1
50113  data_tmp = full_data(idata)
50114  data_tmp = ishft(data_tmp, 4)
50115  data_tmp = iand(data_tmp, mask_left(0))
50116  pack_tmp = ior(pack_tmp, data_tmp)
50117  ipack = ipack + 1
50118  packed_data(ipack) = pack_tmp
50119  data_tmp = full_data(idata)
50120  pack_tmp = ishft(data_tmp, 4)
50121  pack_tmp = ishft(pack_tmp, -4)
50122  idata = idata + 1
50123  data_tmp = full_data(idata)
50124  data_tmp = ishft(data_tmp, 4)
50125  data_tmp = iand(data_tmp, mask_left(4))
50126  pack_tmp = ior(pack_tmp, data_tmp)
50127  ipack = ipack + 1
50128  packed_data(ipack) = pack_tmp
50129  data_tmp = full_data(idata)
50130  pack_tmp = ishft(data_tmp, 8)
50131  pack_tmp = ishft(pack_tmp, -8)
50132  idata = idata + 1
50133  data_tmp = full_data(idata)
50134  data_tmp = ishft(data_tmp, 4)
50135  data_tmp = iand(data_tmp, mask_left(8))
50136  pack_tmp = ior(pack_tmp, data_tmp)
50137  ipack = ipack + 1
50138  packed_data(ipack) = pack_tmp
50139  data_tmp = full_data(idata)
50140  pack_tmp = ishft(data_tmp, 12)
50141  pack_tmp = ishft(pack_tmp, -12)
50142  idata = idata + 1
50143  data_tmp = full_data(idata)
50144  data_tmp = ishft(data_tmp, 4)
50145  data_tmp = iand(data_tmp, mask_left(12))
50146  pack_tmp = ior(pack_tmp, data_tmp)
50147  ipack = ipack + 1
50148  packed_data(ipack) = pack_tmp
50149  data_tmp = full_data(idata)
50150  pack_tmp = ishft(data_tmp, 16)
50151  pack_tmp = ishft(pack_tmp, -16)
50152  idata = idata + 1
50153  data_tmp = full_data(idata)
50154  data_tmp = ishft(data_tmp, 4)
50155  data_tmp = iand(data_tmp, mask_left(16))
50156  pack_tmp = ior(pack_tmp, data_tmp)
50157  ipack = ipack + 1
50158  packed_data(ipack) = pack_tmp
50159  data_tmp = full_data(idata)
50160  pack_tmp = ishft(data_tmp, 20)
50161  pack_tmp = ishft(pack_tmp, -20)
50162  idata = idata + 1
50163  data_tmp = full_data(idata)
50164  data_tmp = ishft(data_tmp, 4)
50165  data_tmp = iand(data_tmp, mask_left(20))
50166  pack_tmp = ior(pack_tmp, data_tmp)
50167  ipack = ipack + 1
50168  packed_data(ipack) = pack_tmp
50169  data_tmp = full_data(idata)
50170  pack_tmp = ishft(data_tmp, 24)
50171  pack_tmp = ishft(pack_tmp, -24)
50172  idata = idata + 1
50173  data_tmp = full_data(idata)
50174  data_tmp = ishft(data_tmp, 4)
50175  data_tmp = iand(data_tmp, mask_left(24))
50176  pack_tmp = ior(pack_tmp, data_tmp)
50177  ipack = ipack + 1
50178  packed_data(ipack) = pack_tmp
50179  data_tmp = full_data(idata)
50180  pack_tmp = ishft(data_tmp, 28)
50181  pack_tmp = ishft(pack_tmp, -28)
50182  idata = idata + 1
50183  data_tmp = full_data(idata)
50184  data_tmp = ishft(data_tmp, 4)
50185  data_tmp = iand(data_tmp, mask_left(28))
50186  pack_tmp = ior(pack_tmp, data_tmp)
50187  ipack = ipack + 1
50188  packed_data(ipack) = pack_tmp
50189  data_tmp = full_data(idata)
50190  pack_tmp = ishft(data_tmp, 32)
50191  pack_tmp = ishft(pack_tmp, -32)
50192  idata = idata + 1
50193  data_tmp = full_data(idata)
50194  data_tmp = ishft(data_tmp, 4)
50195  data_tmp = iand(data_tmp, mask_left(32))
50196  pack_tmp = ior(pack_tmp, data_tmp)
50197  ipack = ipack + 1
50198  packed_data(ipack) = pack_tmp
50199  data_tmp = full_data(idata)
50200  pack_tmp = ishft(data_tmp, 36)
50201  pack_tmp = ishft(pack_tmp, -36)
50202  idata = idata + 1
50203  data_tmp = full_data(idata)
50204  data_tmp = ishft(data_tmp, 4)
50205  data_tmp = iand(data_tmp, mask_left(36))
50206  pack_tmp = ior(pack_tmp, data_tmp)
50207  ipack = ipack + 1
50208  packed_data(ipack) = pack_tmp
50209  data_tmp = full_data(idata)
50210  pack_tmp = ishft(data_tmp, 40)
50211  pack_tmp = ishft(pack_tmp, -40)
50212  idata = idata + 1
50213  data_tmp = full_data(idata)
50214  data_tmp = ishft(data_tmp, 4)
50215  data_tmp = iand(data_tmp, mask_left(40))
50216  pack_tmp = ior(pack_tmp, data_tmp)
50217  ipack = ipack + 1
50218  packed_data(ipack) = pack_tmp
50219  data_tmp = full_data(idata)
50220  pack_tmp = ishft(data_tmp, 44)
50221  pack_tmp = ishft(pack_tmp, -44)
50222  idata = idata + 1
50223  data_tmp = full_data(idata)
50224  data_tmp = ishft(data_tmp, 4)
50225  data_tmp = iand(data_tmp, mask_left(44))
50226  pack_tmp = ior(pack_tmp, data_tmp)
50227  ipack = ipack + 1
50228  packed_data(ipack) = pack_tmp
50229  data_tmp = full_data(idata)
50230  pack_tmp = ishft(data_tmp, 48)
50231  pack_tmp = ishft(pack_tmp, -48)
50232  idata = idata + 1
50233  data_tmp = full_data(idata)
50234  data_tmp = ishft(data_tmp, 4)
50235  data_tmp = iand(data_tmp, mask_left(48))
50236  pack_tmp = ior(pack_tmp, data_tmp)
50237  ipack = ipack + 1
50238  packed_data(ipack) = pack_tmp
50239  data_tmp = full_data(idata)
50240  pack_tmp = ishft(data_tmp, 52)
50241  pack_tmp = ishft(pack_tmp, -52)
50242  idata = idata + 1
50243  data_tmp = full_data(idata)
50244  data_tmp = ishft(data_tmp, 4)
50245  data_tmp = iand(data_tmp, mask_left(52))
50246  pack_tmp = ior(pack_tmp, data_tmp)
50247  ipack = ipack + 1
50248  packed_data(ipack) = pack_tmp
50249  data_tmp = full_data(idata)
50250  pack_tmp = ishft(data_tmp, 56)
50251  pack_tmp = ishft(pack_tmp, -56)
50252  idata = idata + 1
50253  data_tmp = full_data(idata)
50254  data_tmp = ishft(data_tmp, 4)
50255  data_tmp = iand(data_tmp, mask_left(56))
50256  pack_tmp = ior(pack_tmp, data_tmp)
50257  ipack = ipack + 1
50258  packed_data(ipack) = pack_tmp
50259  data_tmp = full_data(idata)
50260  pack_tmp = ishft(data_tmp, 60)
50261  pack_tmp = ishft(pack_tmp, -60)
50262  idata = idata + 1
50263  data_tmp = full_data(idata)
50264  data_tmp = ishft(data_tmp, 4)
50265  pack_tmp = ior(pack_tmp, data_tmp)
50266  pack_tmp = ishft(pack_tmp, 0)
50267  pack_tmp = ishft(pack_tmp, 0)
50268  ipack = ipack + 1
50269  packed_data(ipack) = pack_tmp
50270  END DO
50271  IF (ndata_rep < ndata) THEN
50272  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
50273  END IF
50274  END SUBROUTINE ints2bits_60
50275 
50276 ! **************************************************************************************************
50277 !> \brief ...
50278 !> \param Ndata ...
50279 !> \param packed_data ...
50280 !> \param full_data ...
50281 ! **************************************************************************************************
50282  SUBROUTINE bits2ints_60(Ndata, packed_data, full_data)
50283  INTEGER, INTENT(IN) :: Ndata
50284  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
50285  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
50286 
50287  INTEGER, PARAMETER :: Nbits = 60
50288 
50289  INTEGER :: idata, ipack, kdata, Ndata_rep
50290  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
50291 
50292  ipack = 0
50293  idata = 0
50294  pack_tmp = 0
50295  ndata_rep = (ndata/64)*64
50296  DO kdata = 1, ndata_rep, 64
50297  idata = idata + 1
50298  data_tmp = ishft(pack_tmp, 60)
50299  ipack = ipack + 1
50300  pack_tmp = packed_data(ipack)
50301  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
50302  pack_tmp = ishft(pack_tmp, -60)
50303  idata = idata + 1
50304  data_tmp = ishft(pack_tmp, 56)
50305  ipack = ipack + 1
50306  pack_tmp = packed_data(ipack)
50307  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
50308  pack_tmp = ishft(pack_tmp, -56)
50309  idata = idata + 1
50310  data_tmp = ishft(pack_tmp, 52)
50311  ipack = ipack + 1
50312  pack_tmp = packed_data(ipack)
50313  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
50314  pack_tmp = ishft(pack_tmp, -52)
50315  idata = idata + 1
50316  data_tmp = ishft(pack_tmp, 48)
50317  ipack = ipack + 1
50318  pack_tmp = packed_data(ipack)
50319  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
50320  pack_tmp = ishft(pack_tmp, -48)
50321  idata = idata + 1
50322  data_tmp = ishft(pack_tmp, 44)
50323  ipack = ipack + 1
50324  pack_tmp = packed_data(ipack)
50325  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
50326  pack_tmp = ishft(pack_tmp, -44)
50327  idata = idata + 1
50328  data_tmp = ishft(pack_tmp, 40)
50329  ipack = ipack + 1
50330  pack_tmp = packed_data(ipack)
50331  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
50332  pack_tmp = ishft(pack_tmp, -40)
50333  idata = idata + 1
50334  data_tmp = ishft(pack_tmp, 36)
50335  ipack = ipack + 1
50336  pack_tmp = packed_data(ipack)
50337  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
50338  pack_tmp = ishft(pack_tmp, -36)
50339  idata = idata + 1
50340  data_tmp = ishft(pack_tmp, 32)
50341  ipack = ipack + 1
50342  pack_tmp = packed_data(ipack)
50343  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
50344  pack_tmp = ishft(pack_tmp, -32)
50345  idata = idata + 1
50346  data_tmp = ishft(pack_tmp, 28)
50347  ipack = ipack + 1
50348  pack_tmp = packed_data(ipack)
50349  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
50350  pack_tmp = ishft(pack_tmp, -28)
50351  idata = idata + 1
50352  data_tmp = ishft(pack_tmp, 24)
50353  ipack = ipack + 1
50354  pack_tmp = packed_data(ipack)
50355  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
50356  pack_tmp = ishft(pack_tmp, -24)
50357  idata = idata + 1
50358  data_tmp = ishft(pack_tmp, 20)
50359  ipack = ipack + 1
50360  pack_tmp = packed_data(ipack)
50361  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
50362  pack_tmp = ishft(pack_tmp, -20)
50363  idata = idata + 1
50364  data_tmp = ishft(pack_tmp, 16)
50365  ipack = ipack + 1
50366  pack_tmp = packed_data(ipack)
50367  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
50368  pack_tmp = ishft(pack_tmp, -16)
50369  idata = idata + 1
50370  data_tmp = ishft(pack_tmp, 12)
50371  ipack = ipack + 1
50372  pack_tmp = packed_data(ipack)
50373  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
50374  pack_tmp = ishft(pack_tmp, -12)
50375  idata = idata + 1
50376  data_tmp = ishft(pack_tmp, 8)
50377  ipack = ipack + 1
50378  pack_tmp = packed_data(ipack)
50379  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
50380  pack_tmp = ishft(pack_tmp, -8)
50381  idata = idata + 1
50382  data_tmp = ishft(pack_tmp, 4)
50383  ipack = ipack + 1
50384  pack_tmp = packed_data(ipack)
50385  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
50386  pack_tmp = ishft(pack_tmp, -4)
50387  idata = idata + 1
50388  data_tmp = iand(pack_tmp, mask_right(nbits))
50389  full_data(idata) = data_tmp
50390  pack_tmp = ishft(pack_tmp, -nbits)
50391  idata = idata + 1
50392  data_tmp = ishft(pack_tmp, 60)
50393  ipack = ipack + 1
50394  pack_tmp = packed_data(ipack)
50395  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
50396  pack_tmp = ishft(pack_tmp, -60)
50397  idata = idata + 1
50398  data_tmp = ishft(pack_tmp, 56)
50399  ipack = ipack + 1
50400  pack_tmp = packed_data(ipack)
50401  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
50402  pack_tmp = ishft(pack_tmp, -56)
50403  idata = idata + 1
50404  data_tmp = ishft(pack_tmp, 52)
50405  ipack = ipack + 1
50406  pack_tmp = packed_data(ipack)
50407  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
50408  pack_tmp = ishft(pack_tmp, -52)
50409  idata = idata + 1
50410  data_tmp = ishft(pack_tmp, 48)
50411  ipack = ipack + 1
50412  pack_tmp = packed_data(ipack)
50413  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
50414  pack_tmp = ishft(pack_tmp, -48)
50415  idata = idata + 1
50416  data_tmp = ishft(pack_tmp, 44)
50417  ipack = ipack + 1
50418  pack_tmp = packed_data(ipack)
50419  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
50420  pack_tmp = ishft(pack_tmp, -44)
50421  idata = idata + 1
50422  data_tmp = ishft(pack_tmp, 40)
50423  ipack = ipack + 1
50424  pack_tmp = packed_data(ipack)
50425  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
50426  pack_tmp = ishft(pack_tmp, -40)
50427  idata = idata + 1
50428  data_tmp = ishft(pack_tmp, 36)
50429  ipack = ipack + 1
50430  pack_tmp = packed_data(ipack)
50431  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
50432  pack_tmp = ishft(pack_tmp, -36)
50433  idata = idata + 1
50434  data_tmp = ishft(pack_tmp, 32)
50435  ipack = ipack + 1
50436  pack_tmp = packed_data(ipack)
50437  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
50438  pack_tmp = ishft(pack_tmp, -32)
50439  idata = idata + 1
50440  data_tmp = ishft(pack_tmp, 28)
50441  ipack = ipack + 1
50442  pack_tmp = packed_data(ipack)
50443  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
50444  pack_tmp = ishft(pack_tmp, -28)
50445  idata = idata + 1
50446  data_tmp = ishft(pack_tmp, 24)
50447  ipack = ipack + 1
50448  pack_tmp = packed_data(ipack)
50449  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
50450  pack_tmp = ishft(pack_tmp, -24)
50451  idata = idata + 1
50452  data_tmp = ishft(pack_tmp, 20)
50453  ipack = ipack + 1
50454  pack_tmp = packed_data(ipack)
50455  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
50456  pack_tmp = ishft(pack_tmp, -20)
50457  idata = idata + 1
50458  data_tmp = ishft(pack_tmp, 16)
50459  ipack = ipack + 1
50460  pack_tmp = packed_data(ipack)
50461  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
50462  pack_tmp = ishft(pack_tmp, -16)
50463  idata = idata + 1
50464  data_tmp = ishft(pack_tmp, 12)
50465  ipack = ipack + 1
50466  pack_tmp = packed_data(ipack)
50467  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
50468  pack_tmp = ishft(pack_tmp, -12)
50469  idata = idata + 1
50470  data_tmp = ishft(pack_tmp, 8)
50471  ipack = ipack + 1
50472  pack_tmp = packed_data(ipack)
50473  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
50474  pack_tmp = ishft(pack_tmp, -8)
50475  idata = idata + 1
50476  data_tmp = ishft(pack_tmp, 4)
50477  ipack = ipack + 1
50478  pack_tmp = packed_data(ipack)
50479  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
50480  pack_tmp = ishft(pack_tmp, -4)
50481  idata = idata + 1
50482  data_tmp = iand(pack_tmp, mask_right(nbits))
50483  full_data(idata) = data_tmp
50484  pack_tmp = ishft(pack_tmp, -nbits)
50485  idata = idata + 1
50486  data_tmp = ishft(pack_tmp, 60)
50487  ipack = ipack + 1
50488  pack_tmp = packed_data(ipack)
50489  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
50490  pack_tmp = ishft(pack_tmp, -60)
50491  idata = idata + 1
50492  data_tmp = ishft(pack_tmp, 56)
50493  ipack = ipack + 1
50494  pack_tmp = packed_data(ipack)
50495  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
50496  pack_tmp = ishft(pack_tmp, -56)
50497  idata = idata + 1
50498  data_tmp = ishft(pack_tmp, 52)
50499  ipack = ipack + 1
50500  pack_tmp = packed_data(ipack)
50501  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
50502  pack_tmp = ishft(pack_tmp, -52)
50503  idata = idata + 1
50504  data_tmp = ishft(pack_tmp, 48)
50505  ipack = ipack + 1
50506  pack_tmp = packed_data(ipack)
50507  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
50508  pack_tmp = ishft(pack_tmp, -48)
50509  idata = idata + 1
50510  data_tmp = ishft(pack_tmp, 44)
50511  ipack = ipack + 1
50512  pack_tmp = packed_data(ipack)
50513  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
50514  pack_tmp = ishft(pack_tmp, -44)
50515  idata = idata + 1
50516  data_tmp = ishft(pack_tmp, 40)
50517  ipack = ipack + 1
50518  pack_tmp = packed_data(ipack)
50519  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
50520  pack_tmp = ishft(pack_tmp, -40)
50521  idata = idata + 1
50522  data_tmp = ishft(pack_tmp, 36)
50523  ipack = ipack + 1
50524  pack_tmp = packed_data(ipack)
50525  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
50526  pack_tmp = ishft(pack_tmp, -36)
50527  idata = idata + 1
50528  data_tmp = ishft(pack_tmp, 32)
50529  ipack = ipack + 1
50530  pack_tmp = packed_data(ipack)
50531  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
50532  pack_tmp = ishft(pack_tmp, -32)
50533  idata = idata + 1
50534  data_tmp = ishft(pack_tmp, 28)
50535  ipack = ipack + 1
50536  pack_tmp = packed_data(ipack)
50537  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
50538  pack_tmp = ishft(pack_tmp, -28)
50539  idata = idata + 1
50540  data_tmp = ishft(pack_tmp, 24)
50541  ipack = ipack + 1
50542  pack_tmp = packed_data(ipack)
50543  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
50544  pack_tmp = ishft(pack_tmp, -24)
50545  idata = idata + 1
50546  data_tmp = ishft(pack_tmp, 20)
50547  ipack = ipack + 1
50548  pack_tmp = packed_data(ipack)
50549  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
50550  pack_tmp = ishft(pack_tmp, -20)
50551  idata = idata + 1
50552  data_tmp = ishft(pack_tmp, 16)
50553  ipack = ipack + 1
50554  pack_tmp = packed_data(ipack)
50555  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
50556  pack_tmp = ishft(pack_tmp, -16)
50557  idata = idata + 1
50558  data_tmp = ishft(pack_tmp, 12)
50559  ipack = ipack + 1
50560  pack_tmp = packed_data(ipack)
50561  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
50562  pack_tmp = ishft(pack_tmp, -12)
50563  idata = idata + 1
50564  data_tmp = ishft(pack_tmp, 8)
50565  ipack = ipack + 1
50566  pack_tmp = packed_data(ipack)
50567  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
50568  pack_tmp = ishft(pack_tmp, -8)
50569  idata = idata + 1
50570  data_tmp = ishft(pack_tmp, 4)
50571  ipack = ipack + 1
50572  pack_tmp = packed_data(ipack)
50573  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
50574  pack_tmp = ishft(pack_tmp, -4)
50575  idata = idata + 1
50576  data_tmp = iand(pack_tmp, mask_right(nbits))
50577  full_data(idata) = data_tmp
50578  pack_tmp = ishft(pack_tmp, -nbits)
50579  idata = idata + 1
50580  data_tmp = ishft(pack_tmp, 60)
50581  ipack = ipack + 1
50582  pack_tmp = packed_data(ipack)
50583  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
50584  pack_tmp = ishft(pack_tmp, -60)
50585  idata = idata + 1
50586  data_tmp = ishft(pack_tmp, 56)
50587  ipack = ipack + 1
50588  pack_tmp = packed_data(ipack)
50589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
50590  pack_tmp = ishft(pack_tmp, -56)
50591  idata = idata + 1
50592  data_tmp = ishft(pack_tmp, 52)
50593  ipack = ipack + 1
50594  pack_tmp = packed_data(ipack)
50595  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
50596  pack_tmp = ishft(pack_tmp, -52)
50597  idata = idata + 1
50598  data_tmp = ishft(pack_tmp, 48)
50599  ipack = ipack + 1
50600  pack_tmp = packed_data(ipack)
50601  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
50602  pack_tmp = ishft(pack_tmp, -48)
50603  idata = idata + 1
50604  data_tmp = ishft(pack_tmp, 44)
50605  ipack = ipack + 1
50606  pack_tmp = packed_data(ipack)
50607  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
50608  pack_tmp = ishft(pack_tmp, -44)
50609  idata = idata + 1
50610  data_tmp = ishft(pack_tmp, 40)
50611  ipack = ipack + 1
50612  pack_tmp = packed_data(ipack)
50613  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
50614  pack_tmp = ishft(pack_tmp, -40)
50615  idata = idata + 1
50616  data_tmp = ishft(pack_tmp, 36)
50617  ipack = ipack + 1
50618  pack_tmp = packed_data(ipack)
50619  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
50620  pack_tmp = ishft(pack_tmp, -36)
50621  idata = idata + 1
50622  data_tmp = ishft(pack_tmp, 32)
50623  ipack = ipack + 1
50624  pack_tmp = packed_data(ipack)
50625  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
50626  pack_tmp = ishft(pack_tmp, -32)
50627  idata = idata + 1
50628  data_tmp = ishft(pack_tmp, 28)
50629  ipack = ipack + 1
50630  pack_tmp = packed_data(ipack)
50631  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
50632  pack_tmp = ishft(pack_tmp, -28)
50633  idata = idata + 1
50634  data_tmp = ishft(pack_tmp, 24)
50635  ipack = ipack + 1
50636  pack_tmp = packed_data(ipack)
50637  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
50638  pack_tmp = ishft(pack_tmp, -24)
50639  idata = idata + 1
50640  data_tmp = ishft(pack_tmp, 20)
50641  ipack = ipack + 1
50642  pack_tmp = packed_data(ipack)
50643  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
50644  pack_tmp = ishft(pack_tmp, -20)
50645  idata = idata + 1
50646  data_tmp = ishft(pack_tmp, 16)
50647  ipack = ipack + 1
50648  pack_tmp = packed_data(ipack)
50649  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
50650  pack_tmp = ishft(pack_tmp, -16)
50651  idata = idata + 1
50652  data_tmp = ishft(pack_tmp, 12)
50653  ipack = ipack + 1
50654  pack_tmp = packed_data(ipack)
50655  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
50656  pack_tmp = ishft(pack_tmp, -12)
50657  idata = idata + 1
50658  data_tmp = ishft(pack_tmp, 8)
50659  ipack = ipack + 1
50660  pack_tmp = packed_data(ipack)
50661  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
50662  pack_tmp = ishft(pack_tmp, -8)
50663  idata = idata + 1
50664  data_tmp = ishft(pack_tmp, 4)
50665  ipack = ipack + 1
50666  pack_tmp = packed_data(ipack)
50667  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
50668  pack_tmp = ishft(pack_tmp, -4)
50669  idata = idata + 1
50670  data_tmp = iand(pack_tmp, mask_right(nbits))
50671  full_data(idata) = data_tmp
50672  pack_tmp = ishft(pack_tmp, -nbits)
50673  END DO
50674  IF (ndata_rep < ndata) THEN
50675  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
50676  END IF
50677  END SUBROUTINE bits2ints_60
50678 
50679 ! **************************************************************************************************
50680 !> \brief ...
50681 !> \param Ndata ...
50682 !> \param packed_data ...
50683 !> \param full_data ...
50684 ! **************************************************************************************************
50685  SUBROUTINE ints2bits_61(Ndata, packed_data, full_data)
50686  INTEGER, INTENT(IN) :: Ndata
50687  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
50688  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
50689 
50690  INTEGER, PARAMETER :: Nbits = 61
50691 
50692  INTEGER :: idata, ipack, kdata, Ndata_rep
50693  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
50694 
50695  idata = 0
50696  ipack = 0
50697  ndata_rep = (ndata/64)*64
50698  DO kdata = 1, ndata_rep, 64
50699  pack_tmp = 0
50700  idata = idata + 1
50701  data_tmp = full_data(idata)
50702  data_tmp = ishft(data_tmp, 3)
50703  pack_tmp = ior(pack_tmp, data_tmp)
50704  pack_tmp = ishft(pack_tmp, -3)
50705  idata = idata + 1
50706  data_tmp = full_data(idata)
50707  data_tmp = ishft(data_tmp, 3)
50708  data_tmp = iand(data_tmp, mask_left(3))
50709  pack_tmp = ior(pack_tmp, data_tmp)
50710  ipack = ipack + 1
50711  packed_data(ipack) = pack_tmp
50712  data_tmp = full_data(idata)
50713  pack_tmp = ishft(data_tmp, 6)
50714  pack_tmp = ishft(pack_tmp, -6)
50715  idata = idata + 1
50716  data_tmp = full_data(idata)
50717  data_tmp = ishft(data_tmp, 3)
50718  data_tmp = iand(data_tmp, mask_left(6))
50719  pack_tmp = ior(pack_tmp, data_tmp)
50720  ipack = ipack + 1
50721  packed_data(ipack) = pack_tmp
50722  data_tmp = full_data(idata)
50723  pack_tmp = ishft(data_tmp, 9)
50724  pack_tmp = ishft(pack_tmp, -9)
50725  idata = idata + 1
50726  data_tmp = full_data(idata)
50727  data_tmp = ishft(data_tmp, 3)
50728  data_tmp = iand(data_tmp, mask_left(9))
50729  pack_tmp = ior(pack_tmp, data_tmp)
50730  ipack = ipack + 1
50731  packed_data(ipack) = pack_tmp
50732  data_tmp = full_data(idata)
50733  pack_tmp = ishft(data_tmp, 12)
50734  pack_tmp = ishft(pack_tmp, -12)
50735  idata = idata + 1
50736  data_tmp = full_data(idata)
50737  data_tmp = ishft(data_tmp, 3)
50738  data_tmp = iand(data_tmp, mask_left(12))
50739  pack_tmp = ior(pack_tmp, data_tmp)
50740  ipack = ipack + 1
50741  packed_data(ipack) = pack_tmp
50742  data_tmp = full_data(idata)
50743  pack_tmp = ishft(data_tmp, 15)
50744  pack_tmp = ishft(pack_tmp, -15)
50745  idata = idata + 1
50746  data_tmp = full_data(idata)
50747  data_tmp = ishft(data_tmp, 3)
50748  data_tmp = iand(data_tmp, mask_left(15))
50749  pack_tmp = ior(pack_tmp, data_tmp)
50750  ipack = ipack + 1
50751  packed_data(ipack) = pack_tmp
50752  data_tmp = full_data(idata)
50753  pack_tmp = ishft(data_tmp, 18)
50754  pack_tmp = ishft(pack_tmp, -18)
50755  idata = idata + 1
50756  data_tmp = full_data(idata)
50757  data_tmp = ishft(data_tmp, 3)
50758  data_tmp = iand(data_tmp, mask_left(18))
50759  pack_tmp = ior(pack_tmp, data_tmp)
50760  ipack = ipack + 1
50761  packed_data(ipack) = pack_tmp
50762  data_tmp = full_data(idata)
50763  pack_tmp = ishft(data_tmp, 21)
50764  pack_tmp = ishft(pack_tmp, -21)
50765  idata = idata + 1
50766  data_tmp = full_data(idata)
50767  data_tmp = ishft(data_tmp, 3)
50768  data_tmp = iand(data_tmp, mask_left(21))
50769  pack_tmp = ior(pack_tmp, data_tmp)
50770  ipack = ipack + 1
50771  packed_data(ipack) = pack_tmp
50772  data_tmp = full_data(idata)
50773  pack_tmp = ishft(data_tmp, 24)
50774  pack_tmp = ishft(pack_tmp, -24)
50775  idata = idata + 1
50776  data_tmp = full_data(idata)
50777  data_tmp = ishft(data_tmp, 3)
50778  data_tmp = iand(data_tmp, mask_left(24))
50779  pack_tmp = ior(pack_tmp, data_tmp)
50780  ipack = ipack + 1
50781  packed_data(ipack) = pack_tmp
50782  data_tmp = full_data(idata)
50783  pack_tmp = ishft(data_tmp, 27)
50784  pack_tmp = ishft(pack_tmp, -27)
50785  idata = idata + 1
50786  data_tmp = full_data(idata)
50787  data_tmp = ishft(data_tmp, 3)
50788  data_tmp = iand(data_tmp, mask_left(27))
50789  pack_tmp = ior(pack_tmp, data_tmp)
50790  ipack = ipack + 1
50791  packed_data(ipack) = pack_tmp
50792  data_tmp = full_data(idata)
50793  pack_tmp = ishft(data_tmp, 30)
50794  pack_tmp = ishft(pack_tmp, -30)
50795  idata = idata + 1
50796  data_tmp = full_data(idata)
50797  data_tmp = ishft(data_tmp, 3)
50798  data_tmp = iand(data_tmp, mask_left(30))
50799  pack_tmp = ior(pack_tmp, data_tmp)
50800  ipack = ipack + 1
50801  packed_data(ipack) = pack_tmp
50802  data_tmp = full_data(idata)
50803  pack_tmp = ishft(data_tmp, 33)
50804  pack_tmp = ishft(pack_tmp, -33)
50805  idata = idata + 1
50806  data_tmp = full_data(idata)
50807  data_tmp = ishft(data_tmp, 3)
50808  data_tmp = iand(data_tmp, mask_left(33))
50809  pack_tmp = ior(pack_tmp, data_tmp)
50810  ipack = ipack + 1
50811  packed_data(ipack) = pack_tmp
50812  data_tmp = full_data(idata)
50813  pack_tmp = ishft(data_tmp, 36)
50814  pack_tmp = ishft(pack_tmp, -36)
50815  idata = idata + 1
50816  data_tmp = full_data(idata)
50817  data_tmp = ishft(data_tmp, 3)
50818  data_tmp = iand(data_tmp, mask_left(36))
50819  pack_tmp = ior(pack_tmp, data_tmp)
50820  ipack = ipack + 1
50821  packed_data(ipack) = pack_tmp
50822  data_tmp = full_data(idata)
50823  pack_tmp = ishft(data_tmp, 39)
50824  pack_tmp = ishft(pack_tmp, -39)
50825  idata = idata + 1
50826  data_tmp = full_data(idata)
50827  data_tmp = ishft(data_tmp, 3)
50828  data_tmp = iand(data_tmp, mask_left(39))
50829  pack_tmp = ior(pack_tmp, data_tmp)
50830  ipack = ipack + 1
50831  packed_data(ipack) = pack_tmp
50832  data_tmp = full_data(idata)
50833  pack_tmp = ishft(data_tmp, 42)
50834  pack_tmp = ishft(pack_tmp, -42)
50835  idata = idata + 1
50836  data_tmp = full_data(idata)
50837  data_tmp = ishft(data_tmp, 3)
50838  data_tmp = iand(data_tmp, mask_left(42))
50839  pack_tmp = ior(pack_tmp, data_tmp)
50840  ipack = ipack + 1
50841  packed_data(ipack) = pack_tmp
50842  data_tmp = full_data(idata)
50843  pack_tmp = ishft(data_tmp, 45)
50844  pack_tmp = ishft(pack_tmp, -45)
50845  idata = idata + 1
50846  data_tmp = full_data(idata)
50847  data_tmp = ishft(data_tmp, 3)
50848  data_tmp = iand(data_tmp, mask_left(45))
50849  pack_tmp = ior(pack_tmp, data_tmp)
50850  ipack = ipack + 1
50851  packed_data(ipack) = pack_tmp
50852  data_tmp = full_data(idata)
50853  pack_tmp = ishft(data_tmp, 48)
50854  pack_tmp = ishft(pack_tmp, -48)
50855  idata = idata + 1
50856  data_tmp = full_data(idata)
50857  data_tmp = ishft(data_tmp, 3)
50858  data_tmp = iand(data_tmp, mask_left(48))
50859  pack_tmp = ior(pack_tmp, data_tmp)
50860  ipack = ipack + 1
50861  packed_data(ipack) = pack_tmp
50862  data_tmp = full_data(idata)
50863  pack_tmp = ishft(data_tmp, 51)
50864  pack_tmp = ishft(pack_tmp, -51)
50865  idata = idata + 1
50866  data_tmp = full_data(idata)
50867  data_tmp = ishft(data_tmp, 3)
50868  data_tmp = iand(data_tmp, mask_left(51))
50869  pack_tmp = ior(pack_tmp, data_tmp)
50870  ipack = ipack + 1
50871  packed_data(ipack) = pack_tmp
50872  data_tmp = full_data(idata)
50873  pack_tmp = ishft(data_tmp, 54)
50874  pack_tmp = ishft(pack_tmp, -54)
50875  idata = idata + 1
50876  data_tmp = full_data(idata)
50877  data_tmp = ishft(data_tmp, 3)
50878  data_tmp = iand(data_tmp, mask_left(54))
50879  pack_tmp = ior(pack_tmp, data_tmp)
50880  ipack = ipack + 1
50881  packed_data(ipack) = pack_tmp
50882  data_tmp = full_data(idata)
50883  pack_tmp = ishft(data_tmp, 57)
50884  pack_tmp = ishft(pack_tmp, -57)
50885  idata = idata + 1
50886  data_tmp = full_data(idata)
50887  data_tmp = ishft(data_tmp, 3)
50888  data_tmp = iand(data_tmp, mask_left(57))
50889  pack_tmp = ior(pack_tmp, data_tmp)
50890  ipack = ipack + 1
50891  packed_data(ipack) = pack_tmp
50892  data_tmp = full_data(idata)
50893  pack_tmp = ishft(data_tmp, 60)
50894  pack_tmp = ishft(pack_tmp, -60)
50895  idata = idata + 1
50896  data_tmp = full_data(idata)
50897  data_tmp = ishft(data_tmp, 3)
50898  data_tmp = iand(data_tmp, mask_left(60))
50899  pack_tmp = ior(pack_tmp, data_tmp)
50900  ipack = ipack + 1
50901  packed_data(ipack) = pack_tmp
50902  data_tmp = full_data(idata)
50903  pack_tmp = ishft(data_tmp, 63)
50904  pack_tmp = ishft(pack_tmp, -61)
50905  idata = idata + 1
50906  data_tmp = full_data(idata)
50907  data_tmp = ishft(data_tmp, 3)
50908  pack_tmp = ior(pack_tmp, data_tmp)
50909  pack_tmp = ishft(pack_tmp, -2)
50910  idata = idata + 1
50911  data_tmp = full_data(idata)
50912  data_tmp = ishft(data_tmp, 3)
50913  data_tmp = iand(data_tmp, mask_left(2))
50914  pack_tmp = ior(pack_tmp, data_tmp)
50915  ipack = ipack + 1
50916  packed_data(ipack) = pack_tmp
50917  data_tmp = full_data(idata)
50918  pack_tmp = ishft(data_tmp, 5)
50919  pack_tmp = ishft(pack_tmp, -5)
50920  idata = idata + 1
50921  data_tmp = full_data(idata)
50922  data_tmp = ishft(data_tmp, 3)
50923  data_tmp = iand(data_tmp, mask_left(5))
50924  pack_tmp = ior(pack_tmp, data_tmp)
50925  ipack = ipack + 1
50926  packed_data(ipack) = pack_tmp
50927  data_tmp = full_data(idata)
50928  pack_tmp = ishft(data_tmp, 8)
50929  pack_tmp = ishft(pack_tmp, -8)
50930  idata = idata + 1
50931  data_tmp = full_data(idata)
50932  data_tmp = ishft(data_tmp, 3)
50933  data_tmp = iand(data_tmp, mask_left(8))
50934  pack_tmp = ior(pack_tmp, data_tmp)
50935  ipack = ipack + 1
50936  packed_data(ipack) = pack_tmp
50937  data_tmp = full_data(idata)
50938  pack_tmp = ishft(data_tmp, 11)
50939  pack_tmp = ishft(pack_tmp, -11)
50940  idata = idata + 1
50941  data_tmp = full_data(idata)
50942  data_tmp = ishft(data_tmp, 3)
50943  data_tmp = iand(data_tmp, mask_left(11))
50944  pack_tmp = ior(pack_tmp, data_tmp)
50945  ipack = ipack + 1
50946  packed_data(ipack) = pack_tmp
50947  data_tmp = full_data(idata)
50948  pack_tmp = ishft(data_tmp, 14)
50949  pack_tmp = ishft(pack_tmp, -14)
50950  idata = idata + 1
50951  data_tmp = full_data(idata)
50952  data_tmp = ishft(data_tmp, 3)
50953  data_tmp = iand(data_tmp, mask_left(14))
50954  pack_tmp = ior(pack_tmp, data_tmp)
50955  ipack = ipack + 1
50956  packed_data(ipack) = pack_tmp
50957  data_tmp = full_data(idata)
50958  pack_tmp = ishft(data_tmp, 17)
50959  pack_tmp = ishft(pack_tmp, -17)
50960  idata = idata + 1
50961  data_tmp = full_data(idata)
50962  data_tmp = ishft(data_tmp, 3)
50963  data_tmp = iand(data_tmp, mask_left(17))
50964  pack_tmp = ior(pack_tmp, data_tmp)
50965  ipack = ipack + 1
50966  packed_data(ipack) = pack_tmp
50967  data_tmp = full_data(idata)
50968  pack_tmp = ishft(data_tmp, 20)
50969  pack_tmp = ishft(pack_tmp, -20)
50970  idata = idata + 1
50971  data_tmp = full_data(idata)
50972  data_tmp = ishft(data_tmp, 3)
50973  data_tmp = iand(data_tmp, mask_left(20))
50974  pack_tmp = ior(pack_tmp, data_tmp)
50975  ipack = ipack + 1
50976  packed_data(ipack) = pack_tmp
50977  data_tmp = full_data(idata)
50978  pack_tmp = ishft(data_tmp, 23)
50979  pack_tmp = ishft(pack_tmp, -23)
50980  idata = idata + 1
50981  data_tmp = full_data(idata)
50982  data_tmp = ishft(data_tmp, 3)
50983  data_tmp = iand(data_tmp, mask_left(23))
50984  pack_tmp = ior(pack_tmp, data_tmp)
50985  ipack = ipack + 1
50986  packed_data(ipack) = pack_tmp
50987  data_tmp = full_data(idata)
50988  pack_tmp = ishft(data_tmp, 26)
50989  pack_tmp = ishft(pack_tmp, -26)
50990  idata = idata + 1
50991  data_tmp = full_data(idata)
50992  data_tmp = ishft(data_tmp, 3)
50993  data_tmp = iand(data_tmp, mask_left(26))
50994  pack_tmp = ior(pack_tmp, data_tmp)
50995  ipack = ipack + 1
50996  packed_data(ipack) = pack_tmp
50997  data_tmp = full_data(idata)
50998  pack_tmp = ishft(data_tmp, 29)
50999  pack_tmp = ishft(pack_tmp, -29)
51000  idata = idata + 1
51001  data_tmp = full_data(idata)
51002  data_tmp = ishft(data_tmp, 3)
51003  data_tmp = iand(data_tmp, mask_left(29))
51004  pack_tmp = ior(pack_tmp, data_tmp)
51005  ipack = ipack + 1
51006  packed_data(ipack) = pack_tmp
51007  data_tmp = full_data(idata)
51008  pack_tmp = ishft(data_tmp, 32)
51009  pack_tmp = ishft(pack_tmp, -32)
51010  idata = idata + 1
51011  data_tmp = full_data(idata)
51012  data_tmp = ishft(data_tmp, 3)
51013  data_tmp = iand(data_tmp, mask_left(32))
51014  pack_tmp = ior(pack_tmp, data_tmp)
51015  ipack = ipack + 1
51016  packed_data(ipack) = pack_tmp
51017  data_tmp = full_data(idata)
51018  pack_tmp = ishft(data_tmp, 35)
51019  pack_tmp = ishft(pack_tmp, -35)
51020  idata = idata + 1
51021  data_tmp = full_data(idata)
51022  data_tmp = ishft(data_tmp, 3)
51023  data_tmp = iand(data_tmp, mask_left(35))
51024  pack_tmp = ior(pack_tmp, data_tmp)
51025  ipack = ipack + 1
51026  packed_data(ipack) = pack_tmp
51027  data_tmp = full_data(idata)
51028  pack_tmp = ishft(data_tmp, 38)
51029  pack_tmp = ishft(pack_tmp, -38)
51030  idata = idata + 1
51031  data_tmp = full_data(idata)
51032  data_tmp = ishft(data_tmp, 3)
51033  data_tmp = iand(data_tmp, mask_left(38))
51034  pack_tmp = ior(pack_tmp, data_tmp)
51035  ipack = ipack + 1
51036  packed_data(ipack) = pack_tmp
51037  data_tmp = full_data(idata)
51038  pack_tmp = ishft(data_tmp, 41)
51039  pack_tmp = ishft(pack_tmp, -41)
51040  idata = idata + 1
51041  data_tmp = full_data(idata)
51042  data_tmp = ishft(data_tmp, 3)
51043  data_tmp = iand(data_tmp, mask_left(41))
51044  pack_tmp = ior(pack_tmp, data_tmp)
51045  ipack = ipack + 1
51046  packed_data(ipack) = pack_tmp
51047  data_tmp = full_data(idata)
51048  pack_tmp = ishft(data_tmp, 44)
51049  pack_tmp = ishft(pack_tmp, -44)
51050  idata = idata + 1
51051  data_tmp = full_data(idata)
51052  data_tmp = ishft(data_tmp, 3)
51053  data_tmp = iand(data_tmp, mask_left(44))
51054  pack_tmp = ior(pack_tmp, data_tmp)
51055  ipack = ipack + 1
51056  packed_data(ipack) = pack_tmp
51057  data_tmp = full_data(idata)
51058  pack_tmp = ishft(data_tmp, 47)
51059  pack_tmp = ishft(pack_tmp, -47)
51060  idata = idata + 1
51061  data_tmp = full_data(idata)
51062  data_tmp = ishft(data_tmp, 3)
51063  data_tmp = iand(data_tmp, mask_left(47))
51064  pack_tmp = ior(pack_tmp, data_tmp)
51065  ipack = ipack + 1
51066  packed_data(ipack) = pack_tmp
51067  data_tmp = full_data(idata)
51068  pack_tmp = ishft(data_tmp, 50)
51069  pack_tmp = ishft(pack_tmp, -50)
51070  idata = idata + 1
51071  data_tmp = full_data(idata)
51072  data_tmp = ishft(data_tmp, 3)
51073  data_tmp = iand(data_tmp, mask_left(50))
51074  pack_tmp = ior(pack_tmp, data_tmp)
51075  ipack = ipack + 1
51076  packed_data(ipack) = pack_tmp
51077  data_tmp = full_data(idata)
51078  pack_tmp = ishft(data_tmp, 53)
51079  pack_tmp = ishft(pack_tmp, -53)
51080  idata = idata + 1
51081  data_tmp = full_data(idata)
51082  data_tmp = ishft(data_tmp, 3)
51083  data_tmp = iand(data_tmp, mask_left(53))
51084  pack_tmp = ior(pack_tmp, data_tmp)
51085  ipack = ipack + 1
51086  packed_data(ipack) = pack_tmp
51087  data_tmp = full_data(idata)
51088  pack_tmp = ishft(data_tmp, 56)
51089  pack_tmp = ishft(pack_tmp, -56)
51090  idata = idata + 1
51091  data_tmp = full_data(idata)
51092  data_tmp = ishft(data_tmp, 3)
51093  data_tmp = iand(data_tmp, mask_left(56))
51094  pack_tmp = ior(pack_tmp, data_tmp)
51095  ipack = ipack + 1
51096  packed_data(ipack) = pack_tmp
51097  data_tmp = full_data(idata)
51098  pack_tmp = ishft(data_tmp, 59)
51099  pack_tmp = ishft(pack_tmp, -59)
51100  idata = idata + 1
51101  data_tmp = full_data(idata)
51102  data_tmp = ishft(data_tmp, 3)
51103  data_tmp = iand(data_tmp, mask_left(59))
51104  pack_tmp = ior(pack_tmp, data_tmp)
51105  ipack = ipack + 1
51106  packed_data(ipack) = pack_tmp
51107  data_tmp = full_data(idata)
51108  pack_tmp = ishft(data_tmp, 62)
51109  pack_tmp = ishft(pack_tmp, -61)
51110  idata = idata + 1
51111  data_tmp = full_data(idata)
51112  data_tmp = ishft(data_tmp, 3)
51113  pack_tmp = ior(pack_tmp, data_tmp)
51114  pack_tmp = ishft(pack_tmp, -1)
51115  idata = idata + 1
51116  data_tmp = full_data(idata)
51117  data_tmp = ishft(data_tmp, 3)
51118  data_tmp = iand(data_tmp, mask_left(1))
51119  pack_tmp = ior(pack_tmp, data_tmp)
51120  ipack = ipack + 1
51121  packed_data(ipack) = pack_tmp
51122  data_tmp = full_data(idata)
51123  pack_tmp = ishft(data_tmp, 4)
51124  pack_tmp = ishft(pack_tmp, -4)
51125  idata = idata + 1
51126  data_tmp = full_data(idata)
51127  data_tmp = ishft(data_tmp, 3)
51128  data_tmp = iand(data_tmp, mask_left(4))
51129  pack_tmp = ior(pack_tmp, data_tmp)
51130  ipack = ipack + 1
51131  packed_data(ipack) = pack_tmp
51132  data_tmp = full_data(idata)
51133  pack_tmp = ishft(data_tmp, 7)
51134  pack_tmp = ishft(pack_tmp, -7)
51135  idata = idata + 1
51136  data_tmp = full_data(idata)
51137  data_tmp = ishft(data_tmp, 3)
51138  data_tmp = iand(data_tmp, mask_left(7))
51139  pack_tmp = ior(pack_tmp, data_tmp)
51140  ipack = ipack + 1
51141  packed_data(ipack) = pack_tmp
51142  data_tmp = full_data(idata)
51143  pack_tmp = ishft(data_tmp, 10)
51144  pack_tmp = ishft(pack_tmp, -10)
51145  idata = idata + 1
51146  data_tmp = full_data(idata)
51147  data_tmp = ishft(data_tmp, 3)
51148  data_tmp = iand(data_tmp, mask_left(10))
51149  pack_tmp = ior(pack_tmp, data_tmp)
51150  ipack = ipack + 1
51151  packed_data(ipack) = pack_tmp
51152  data_tmp = full_data(idata)
51153  pack_tmp = ishft(data_tmp, 13)
51154  pack_tmp = ishft(pack_tmp, -13)
51155  idata = idata + 1
51156  data_tmp = full_data(idata)
51157  data_tmp = ishft(data_tmp, 3)
51158  data_tmp = iand(data_tmp, mask_left(13))
51159  pack_tmp = ior(pack_tmp, data_tmp)
51160  ipack = ipack + 1
51161  packed_data(ipack) = pack_tmp
51162  data_tmp = full_data(idata)
51163  pack_tmp = ishft(data_tmp, 16)
51164  pack_tmp = ishft(pack_tmp, -16)
51165  idata = idata + 1
51166  data_tmp = full_data(idata)
51167  data_tmp = ishft(data_tmp, 3)
51168  data_tmp = iand(data_tmp, mask_left(16))
51169  pack_tmp = ior(pack_tmp, data_tmp)
51170  ipack = ipack + 1
51171  packed_data(ipack) = pack_tmp
51172  data_tmp = full_data(idata)
51173  pack_tmp = ishft(data_tmp, 19)
51174  pack_tmp = ishft(pack_tmp, -19)
51175  idata = idata + 1
51176  data_tmp = full_data(idata)
51177  data_tmp = ishft(data_tmp, 3)
51178  data_tmp = iand(data_tmp, mask_left(19))
51179  pack_tmp = ior(pack_tmp, data_tmp)
51180  ipack = ipack + 1
51181  packed_data(ipack) = pack_tmp
51182  data_tmp = full_data(idata)
51183  pack_tmp = ishft(data_tmp, 22)
51184  pack_tmp = ishft(pack_tmp, -22)
51185  idata = idata + 1
51186  data_tmp = full_data(idata)
51187  data_tmp = ishft(data_tmp, 3)
51188  data_tmp = iand(data_tmp, mask_left(22))
51189  pack_tmp = ior(pack_tmp, data_tmp)
51190  ipack = ipack + 1
51191  packed_data(ipack) = pack_tmp
51192  data_tmp = full_data(idata)
51193  pack_tmp = ishft(data_tmp, 25)
51194  pack_tmp = ishft(pack_tmp, -25)
51195  idata = idata + 1
51196  data_tmp = full_data(idata)
51197  data_tmp = ishft(data_tmp, 3)
51198  data_tmp = iand(data_tmp, mask_left(25))
51199  pack_tmp = ior(pack_tmp, data_tmp)
51200  ipack = ipack + 1
51201  packed_data(ipack) = pack_tmp
51202  data_tmp = full_data(idata)
51203  pack_tmp = ishft(data_tmp, 28)
51204  pack_tmp = ishft(pack_tmp, -28)
51205  idata = idata + 1
51206  data_tmp = full_data(idata)
51207  data_tmp = ishft(data_tmp, 3)
51208  data_tmp = iand(data_tmp, mask_left(28))
51209  pack_tmp = ior(pack_tmp, data_tmp)
51210  ipack = ipack + 1
51211  packed_data(ipack) = pack_tmp
51212  data_tmp = full_data(idata)
51213  pack_tmp = ishft(data_tmp, 31)
51214  pack_tmp = ishft(pack_tmp, -31)
51215  idata = idata + 1
51216  data_tmp = full_data(idata)
51217  data_tmp = ishft(data_tmp, 3)
51218  data_tmp = iand(data_tmp, mask_left(31))
51219  pack_tmp = ior(pack_tmp, data_tmp)
51220  ipack = ipack + 1
51221  packed_data(ipack) = pack_tmp
51222  data_tmp = full_data(idata)
51223  pack_tmp = ishft(data_tmp, 34)
51224  pack_tmp = ishft(pack_tmp, -34)
51225  idata = idata + 1
51226  data_tmp = full_data(idata)
51227  data_tmp = ishft(data_tmp, 3)
51228  data_tmp = iand(data_tmp, mask_left(34))
51229  pack_tmp = ior(pack_tmp, data_tmp)
51230  ipack = ipack + 1
51231  packed_data(ipack) = pack_tmp
51232  data_tmp = full_data(idata)
51233  pack_tmp = ishft(data_tmp, 37)
51234  pack_tmp = ishft(pack_tmp, -37)
51235  idata = idata + 1
51236  data_tmp = full_data(idata)
51237  data_tmp = ishft(data_tmp, 3)
51238  data_tmp = iand(data_tmp, mask_left(37))
51239  pack_tmp = ior(pack_tmp, data_tmp)
51240  ipack = ipack + 1
51241  packed_data(ipack) = pack_tmp
51242  data_tmp = full_data(idata)
51243  pack_tmp = ishft(data_tmp, 40)
51244  pack_tmp = ishft(pack_tmp, -40)
51245  idata = idata + 1
51246  data_tmp = full_data(idata)
51247  data_tmp = ishft(data_tmp, 3)
51248  data_tmp = iand(data_tmp, mask_left(40))
51249  pack_tmp = ior(pack_tmp, data_tmp)
51250  ipack = ipack + 1
51251  packed_data(ipack) = pack_tmp
51252  data_tmp = full_data(idata)
51253  pack_tmp = ishft(data_tmp, 43)
51254  pack_tmp = ishft(pack_tmp, -43)
51255  idata = idata + 1
51256  data_tmp = full_data(idata)
51257  data_tmp = ishft(data_tmp, 3)
51258  data_tmp = iand(data_tmp, mask_left(43))
51259  pack_tmp = ior(pack_tmp, data_tmp)
51260  ipack = ipack + 1
51261  packed_data(ipack) = pack_tmp
51262  data_tmp = full_data(idata)
51263  pack_tmp = ishft(data_tmp, 46)
51264  pack_tmp = ishft(pack_tmp, -46)
51265  idata = idata + 1
51266  data_tmp = full_data(idata)
51267  data_tmp = ishft(data_tmp, 3)
51268  data_tmp = iand(data_tmp, mask_left(46))
51269  pack_tmp = ior(pack_tmp, data_tmp)
51270  ipack = ipack + 1
51271  packed_data(ipack) = pack_tmp
51272  data_tmp = full_data(idata)
51273  pack_tmp = ishft(data_tmp, 49)
51274  pack_tmp = ishft(pack_tmp, -49)
51275  idata = idata + 1
51276  data_tmp = full_data(idata)
51277  data_tmp = ishft(data_tmp, 3)
51278  data_tmp = iand(data_tmp, mask_left(49))
51279  pack_tmp = ior(pack_tmp, data_tmp)
51280  ipack = ipack + 1
51281  packed_data(ipack) = pack_tmp
51282  data_tmp = full_data(idata)
51283  pack_tmp = ishft(data_tmp, 52)
51284  pack_tmp = ishft(pack_tmp, -52)
51285  idata = idata + 1
51286  data_tmp = full_data(idata)
51287  data_tmp = ishft(data_tmp, 3)
51288  data_tmp = iand(data_tmp, mask_left(52))
51289  pack_tmp = ior(pack_tmp, data_tmp)
51290  ipack = ipack + 1
51291  packed_data(ipack) = pack_tmp
51292  data_tmp = full_data(idata)
51293  pack_tmp = ishft(data_tmp, 55)
51294  pack_tmp = ishft(pack_tmp, -55)
51295  idata = idata + 1
51296  data_tmp = full_data(idata)
51297  data_tmp = ishft(data_tmp, 3)
51298  data_tmp = iand(data_tmp, mask_left(55))
51299  pack_tmp = ior(pack_tmp, data_tmp)
51300  ipack = ipack + 1
51301  packed_data(ipack) = pack_tmp
51302  data_tmp = full_data(idata)
51303  pack_tmp = ishft(data_tmp, 58)
51304  pack_tmp = ishft(pack_tmp, -58)
51305  idata = idata + 1
51306  data_tmp = full_data(idata)
51307  data_tmp = ishft(data_tmp, 3)
51308  data_tmp = iand(data_tmp, mask_left(58))
51309  pack_tmp = ior(pack_tmp, data_tmp)
51310  ipack = ipack + 1
51311  packed_data(ipack) = pack_tmp
51312  data_tmp = full_data(idata)
51313  pack_tmp = ishft(data_tmp, 61)
51314  pack_tmp = ishft(pack_tmp, -61)
51315  idata = idata + 1
51316  data_tmp = full_data(idata)
51317  data_tmp = ishft(data_tmp, 3)
51318  pack_tmp = ior(pack_tmp, data_tmp)
51319  pack_tmp = ishft(pack_tmp, 0)
51320  pack_tmp = ishft(pack_tmp, 0)
51321  ipack = ipack + 1
51322  packed_data(ipack) = pack_tmp
51323  END DO
51324  IF (ndata_rep < ndata) THEN
51325  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
51326  END IF
51327  END SUBROUTINE ints2bits_61
51328 
51329 ! **************************************************************************************************
51330 !> \brief ...
51331 !> \param Ndata ...
51332 !> \param packed_data ...
51333 !> \param full_data ...
51334 ! **************************************************************************************************
51335  SUBROUTINE bits2ints_61(Ndata, packed_data, full_data)
51336  INTEGER, INTENT(IN) :: Ndata
51337  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
51338  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
51339 
51340  INTEGER, PARAMETER :: Nbits = 61
51341 
51342  INTEGER :: idata, ipack, kdata, Ndata_rep
51343  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
51344 
51345  ipack = 0
51346  idata = 0
51347  pack_tmp = 0
51348  ndata_rep = (ndata/64)*64
51349  DO kdata = 1, ndata_rep, 64
51350  idata = idata + 1
51351  data_tmp = ishft(pack_tmp, 61)
51352  ipack = ipack + 1
51353  pack_tmp = packed_data(ipack)
51354  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(61)))
51355  pack_tmp = ishft(pack_tmp, -61)
51356  idata = idata + 1
51357  data_tmp = ishft(pack_tmp, 58)
51358  ipack = ipack + 1
51359  pack_tmp = packed_data(ipack)
51360  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
51361  pack_tmp = ishft(pack_tmp, -58)
51362  idata = idata + 1
51363  data_tmp = ishft(pack_tmp, 55)
51364  ipack = ipack + 1
51365  pack_tmp = packed_data(ipack)
51366  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(55)))
51367  pack_tmp = ishft(pack_tmp, -55)
51368  idata = idata + 1
51369  data_tmp = ishft(pack_tmp, 52)
51370  ipack = ipack + 1
51371  pack_tmp = packed_data(ipack)
51372  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
51373  pack_tmp = ishft(pack_tmp, -52)
51374  idata = idata + 1
51375  data_tmp = ishft(pack_tmp, 49)
51376  ipack = ipack + 1
51377  pack_tmp = packed_data(ipack)
51378  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
51379  pack_tmp = ishft(pack_tmp, -49)
51380  idata = idata + 1
51381  data_tmp = ishft(pack_tmp, 46)
51382  ipack = ipack + 1
51383  pack_tmp = packed_data(ipack)
51384  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
51385  pack_tmp = ishft(pack_tmp, -46)
51386  idata = idata + 1
51387  data_tmp = ishft(pack_tmp, 43)
51388  ipack = ipack + 1
51389  pack_tmp = packed_data(ipack)
51390  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
51391  pack_tmp = ishft(pack_tmp, -43)
51392  idata = idata + 1
51393  data_tmp = ishft(pack_tmp, 40)
51394  ipack = ipack + 1
51395  pack_tmp = packed_data(ipack)
51396  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
51397  pack_tmp = ishft(pack_tmp, -40)
51398  idata = idata + 1
51399  data_tmp = ishft(pack_tmp, 37)
51400  ipack = ipack + 1
51401  pack_tmp = packed_data(ipack)
51402  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
51403  pack_tmp = ishft(pack_tmp, -37)
51404  idata = idata + 1
51405  data_tmp = ishft(pack_tmp, 34)
51406  ipack = ipack + 1
51407  pack_tmp = packed_data(ipack)
51408  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
51409  pack_tmp = ishft(pack_tmp, -34)
51410  idata = idata + 1
51411  data_tmp = ishft(pack_tmp, 31)
51412  ipack = ipack + 1
51413  pack_tmp = packed_data(ipack)
51414  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
51415  pack_tmp = ishft(pack_tmp, -31)
51416  idata = idata + 1
51417  data_tmp = ishft(pack_tmp, 28)
51418  ipack = ipack + 1
51419  pack_tmp = packed_data(ipack)
51420  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
51421  pack_tmp = ishft(pack_tmp, -28)
51422  idata = idata + 1
51423  data_tmp = ishft(pack_tmp, 25)
51424  ipack = ipack + 1
51425  pack_tmp = packed_data(ipack)
51426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
51427  pack_tmp = ishft(pack_tmp, -25)
51428  idata = idata + 1
51429  data_tmp = ishft(pack_tmp, 22)
51430  ipack = ipack + 1
51431  pack_tmp = packed_data(ipack)
51432  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
51433  pack_tmp = ishft(pack_tmp, -22)
51434  idata = idata + 1
51435  data_tmp = ishft(pack_tmp, 19)
51436  ipack = ipack + 1
51437  pack_tmp = packed_data(ipack)
51438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
51439  pack_tmp = ishft(pack_tmp, -19)
51440  idata = idata + 1
51441  data_tmp = ishft(pack_tmp, 16)
51442  ipack = ipack + 1
51443  pack_tmp = packed_data(ipack)
51444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
51445  pack_tmp = ishft(pack_tmp, -16)
51446  idata = idata + 1
51447  data_tmp = ishft(pack_tmp, 13)
51448  ipack = ipack + 1
51449  pack_tmp = packed_data(ipack)
51450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
51451  pack_tmp = ishft(pack_tmp, -13)
51452  idata = idata + 1
51453  data_tmp = ishft(pack_tmp, 10)
51454  ipack = ipack + 1
51455  pack_tmp = packed_data(ipack)
51456  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
51457  pack_tmp = ishft(pack_tmp, -10)
51458  idata = idata + 1
51459  data_tmp = ishft(pack_tmp, 7)
51460  ipack = ipack + 1
51461  pack_tmp = packed_data(ipack)
51462  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
51463  pack_tmp = ishft(pack_tmp, -7)
51464  idata = idata + 1
51465  data_tmp = ishft(pack_tmp, 4)
51466  ipack = ipack + 1
51467  pack_tmp = packed_data(ipack)
51468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
51469  pack_tmp = ishft(pack_tmp, -4)
51470  idata = idata + 1
51471  data_tmp = ishft(pack_tmp, 1)
51472  ipack = ipack + 1
51473  pack_tmp = packed_data(ipack)
51474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
51475  pack_tmp = ishft(pack_tmp, -1)
51476  idata = idata + 1
51477  data_tmp = iand(pack_tmp, mask_right(nbits))
51478  full_data(idata) = data_tmp
51479  pack_tmp = ishft(pack_tmp, -nbits)
51480  idata = idata + 1
51481  data_tmp = ishft(pack_tmp, 59)
51482  ipack = ipack + 1
51483  pack_tmp = packed_data(ipack)
51484  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(59)))
51485  pack_tmp = ishft(pack_tmp, -59)
51486  idata = idata + 1
51487  data_tmp = ishft(pack_tmp, 56)
51488  ipack = ipack + 1
51489  pack_tmp = packed_data(ipack)
51490  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
51491  pack_tmp = ishft(pack_tmp, -56)
51492  idata = idata + 1
51493  data_tmp = ishft(pack_tmp, 53)
51494  ipack = ipack + 1
51495  pack_tmp = packed_data(ipack)
51496  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
51497  pack_tmp = ishft(pack_tmp, -53)
51498  idata = idata + 1
51499  data_tmp = ishft(pack_tmp, 50)
51500  ipack = ipack + 1
51501  pack_tmp = packed_data(ipack)
51502  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
51503  pack_tmp = ishft(pack_tmp, -50)
51504  idata = idata + 1
51505  data_tmp = ishft(pack_tmp, 47)
51506  ipack = ipack + 1
51507  pack_tmp = packed_data(ipack)
51508  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
51509  pack_tmp = ishft(pack_tmp, -47)
51510  idata = idata + 1
51511  data_tmp = ishft(pack_tmp, 44)
51512  ipack = ipack + 1
51513  pack_tmp = packed_data(ipack)
51514  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
51515  pack_tmp = ishft(pack_tmp, -44)
51516  idata = idata + 1
51517  data_tmp = ishft(pack_tmp, 41)
51518  ipack = ipack + 1
51519  pack_tmp = packed_data(ipack)
51520  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
51521  pack_tmp = ishft(pack_tmp, -41)
51522  idata = idata + 1
51523  data_tmp = ishft(pack_tmp, 38)
51524  ipack = ipack + 1
51525  pack_tmp = packed_data(ipack)
51526  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
51527  pack_tmp = ishft(pack_tmp, -38)
51528  idata = idata + 1
51529  data_tmp = ishft(pack_tmp, 35)
51530  ipack = ipack + 1
51531  pack_tmp = packed_data(ipack)
51532  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
51533  pack_tmp = ishft(pack_tmp, -35)
51534  idata = idata + 1
51535  data_tmp = ishft(pack_tmp, 32)
51536  ipack = ipack + 1
51537  pack_tmp = packed_data(ipack)
51538  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
51539  pack_tmp = ishft(pack_tmp, -32)
51540  idata = idata + 1
51541  data_tmp = ishft(pack_tmp, 29)
51542  ipack = ipack + 1
51543  pack_tmp = packed_data(ipack)
51544  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
51545  pack_tmp = ishft(pack_tmp, -29)
51546  idata = idata + 1
51547  data_tmp = ishft(pack_tmp, 26)
51548  ipack = ipack + 1
51549  pack_tmp = packed_data(ipack)
51550  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
51551  pack_tmp = ishft(pack_tmp, -26)
51552  idata = idata + 1
51553  data_tmp = ishft(pack_tmp, 23)
51554  ipack = ipack + 1
51555  pack_tmp = packed_data(ipack)
51556  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
51557  pack_tmp = ishft(pack_tmp, -23)
51558  idata = idata + 1
51559  data_tmp = ishft(pack_tmp, 20)
51560  ipack = ipack + 1
51561  pack_tmp = packed_data(ipack)
51562  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
51563  pack_tmp = ishft(pack_tmp, -20)
51564  idata = idata + 1
51565  data_tmp = ishft(pack_tmp, 17)
51566  ipack = ipack + 1
51567  pack_tmp = packed_data(ipack)
51568  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
51569  pack_tmp = ishft(pack_tmp, -17)
51570  idata = idata + 1
51571  data_tmp = ishft(pack_tmp, 14)
51572  ipack = ipack + 1
51573  pack_tmp = packed_data(ipack)
51574  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
51575  pack_tmp = ishft(pack_tmp, -14)
51576  idata = idata + 1
51577  data_tmp = ishft(pack_tmp, 11)
51578  ipack = ipack + 1
51579  pack_tmp = packed_data(ipack)
51580  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
51581  pack_tmp = ishft(pack_tmp, -11)
51582  idata = idata + 1
51583  data_tmp = ishft(pack_tmp, 8)
51584  ipack = ipack + 1
51585  pack_tmp = packed_data(ipack)
51586  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
51587  pack_tmp = ishft(pack_tmp, -8)
51588  idata = idata + 1
51589  data_tmp = ishft(pack_tmp, 5)
51590  ipack = ipack + 1
51591  pack_tmp = packed_data(ipack)
51592  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
51593  pack_tmp = ishft(pack_tmp, -5)
51594  idata = idata + 1
51595  data_tmp = ishft(pack_tmp, 2)
51596  ipack = ipack + 1
51597  pack_tmp = packed_data(ipack)
51598  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
51599  pack_tmp = ishft(pack_tmp, -2)
51600  idata = idata + 1
51601  data_tmp = iand(pack_tmp, mask_right(nbits))
51602  full_data(idata) = data_tmp
51603  pack_tmp = ishft(pack_tmp, -nbits)
51604  idata = idata + 1
51605  data_tmp = ishft(pack_tmp, 60)
51606  ipack = ipack + 1
51607  pack_tmp = packed_data(ipack)
51608  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
51609  pack_tmp = ishft(pack_tmp, -60)
51610  idata = idata + 1
51611  data_tmp = ishft(pack_tmp, 57)
51612  ipack = ipack + 1
51613  pack_tmp = packed_data(ipack)
51614  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(57)))
51615  pack_tmp = ishft(pack_tmp, -57)
51616  idata = idata + 1
51617  data_tmp = ishft(pack_tmp, 54)
51618  ipack = ipack + 1
51619  pack_tmp = packed_data(ipack)
51620  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
51621  pack_tmp = ishft(pack_tmp, -54)
51622  idata = idata + 1
51623  data_tmp = ishft(pack_tmp, 51)
51624  ipack = ipack + 1
51625  pack_tmp = packed_data(ipack)
51626  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
51627  pack_tmp = ishft(pack_tmp, -51)
51628  idata = idata + 1
51629  data_tmp = ishft(pack_tmp, 48)
51630  ipack = ipack + 1
51631  pack_tmp = packed_data(ipack)
51632  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
51633  pack_tmp = ishft(pack_tmp, -48)
51634  idata = idata + 1
51635  data_tmp = ishft(pack_tmp, 45)
51636  ipack = ipack + 1
51637  pack_tmp = packed_data(ipack)
51638  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
51639  pack_tmp = ishft(pack_tmp, -45)
51640  idata = idata + 1
51641  data_tmp = ishft(pack_tmp, 42)
51642  ipack = ipack + 1
51643  pack_tmp = packed_data(ipack)
51644  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
51645  pack_tmp = ishft(pack_tmp, -42)
51646  idata = idata + 1
51647  data_tmp = ishft(pack_tmp, 39)
51648  ipack = ipack + 1
51649  pack_tmp = packed_data(ipack)
51650  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
51651  pack_tmp = ishft(pack_tmp, -39)
51652  idata = idata + 1
51653  data_tmp = ishft(pack_tmp, 36)
51654  ipack = ipack + 1
51655  pack_tmp = packed_data(ipack)
51656  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
51657  pack_tmp = ishft(pack_tmp, -36)
51658  idata = idata + 1
51659  data_tmp = ishft(pack_tmp, 33)
51660  ipack = ipack + 1
51661  pack_tmp = packed_data(ipack)
51662  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
51663  pack_tmp = ishft(pack_tmp, -33)
51664  idata = idata + 1
51665  data_tmp = ishft(pack_tmp, 30)
51666  ipack = ipack + 1
51667  pack_tmp = packed_data(ipack)
51668  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
51669  pack_tmp = ishft(pack_tmp, -30)
51670  idata = idata + 1
51671  data_tmp = ishft(pack_tmp, 27)
51672  ipack = ipack + 1
51673  pack_tmp = packed_data(ipack)
51674  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
51675  pack_tmp = ishft(pack_tmp, -27)
51676  idata = idata + 1
51677  data_tmp = ishft(pack_tmp, 24)
51678  ipack = ipack + 1
51679  pack_tmp = packed_data(ipack)
51680  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
51681  pack_tmp = ishft(pack_tmp, -24)
51682  idata = idata + 1
51683  data_tmp = ishft(pack_tmp, 21)
51684  ipack = ipack + 1
51685  pack_tmp = packed_data(ipack)
51686  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
51687  pack_tmp = ishft(pack_tmp, -21)
51688  idata = idata + 1
51689  data_tmp = ishft(pack_tmp, 18)
51690  ipack = ipack + 1
51691  pack_tmp = packed_data(ipack)
51692  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
51693  pack_tmp = ishft(pack_tmp, -18)
51694  idata = idata + 1
51695  data_tmp = ishft(pack_tmp, 15)
51696  ipack = ipack + 1
51697  pack_tmp = packed_data(ipack)
51698  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
51699  pack_tmp = ishft(pack_tmp, -15)
51700  idata = idata + 1
51701  data_tmp = ishft(pack_tmp, 12)
51702  ipack = ipack + 1
51703  pack_tmp = packed_data(ipack)
51704  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
51705  pack_tmp = ishft(pack_tmp, -12)
51706  idata = idata + 1
51707  data_tmp = ishft(pack_tmp, 9)
51708  ipack = ipack + 1
51709  pack_tmp = packed_data(ipack)
51710  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
51711  pack_tmp = ishft(pack_tmp, -9)
51712  idata = idata + 1
51713  data_tmp = ishft(pack_tmp, 6)
51714  ipack = ipack + 1
51715  pack_tmp = packed_data(ipack)
51716  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
51717  pack_tmp = ishft(pack_tmp, -6)
51718  idata = idata + 1
51719  data_tmp = ishft(pack_tmp, 3)
51720  ipack = ipack + 1
51721  pack_tmp = packed_data(ipack)
51722  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
51723  pack_tmp = ishft(pack_tmp, -3)
51724  idata = idata + 1
51725  data_tmp = iand(pack_tmp, mask_right(nbits))
51726  full_data(idata) = data_tmp
51727  pack_tmp = ishft(pack_tmp, -nbits)
51728  END DO
51729  IF (ndata_rep < ndata) THEN
51730  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
51731  END IF
51732  END SUBROUTINE bits2ints_61
51733 
51734 ! **************************************************************************************************
51735 !> \brief ...
51736 !> \param Ndata ...
51737 !> \param packed_data ...
51738 !> \param full_data ...
51739 ! **************************************************************************************************
51740  SUBROUTINE ints2bits_62(Ndata, packed_data, full_data)
51741  INTEGER, INTENT(IN) :: Ndata
51742  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
51743  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
51744 
51745  INTEGER, PARAMETER :: Nbits = 62
51746 
51747  INTEGER :: idata, ipack, kdata, Ndata_rep
51748  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
51749 
51750  idata = 0
51751  ipack = 0
51752  ndata_rep = (ndata/64)*64
51753  DO kdata = 1, ndata_rep, 64
51754  pack_tmp = 0
51755  idata = idata + 1
51756  data_tmp = full_data(idata)
51757  data_tmp = ishft(data_tmp, 2)
51758  pack_tmp = ior(pack_tmp, data_tmp)
51759  pack_tmp = ishft(pack_tmp, -2)
51760  idata = idata + 1
51761  data_tmp = full_data(idata)
51762  data_tmp = ishft(data_tmp, 2)
51763  data_tmp = iand(data_tmp, mask_left(2))
51764  pack_tmp = ior(pack_tmp, data_tmp)
51765  ipack = ipack + 1
51766  packed_data(ipack) = pack_tmp
51767  data_tmp = full_data(idata)
51768  pack_tmp = ishft(data_tmp, 4)
51769  pack_tmp = ishft(pack_tmp, -4)
51770  idata = idata + 1
51771  data_tmp = full_data(idata)
51772  data_tmp = ishft(data_tmp, 2)
51773  data_tmp = iand(data_tmp, mask_left(4))
51774  pack_tmp = ior(pack_tmp, data_tmp)
51775  ipack = ipack + 1
51776  packed_data(ipack) = pack_tmp
51777  data_tmp = full_data(idata)
51778  pack_tmp = ishft(data_tmp, 6)
51779  pack_tmp = ishft(pack_tmp, -6)
51780  idata = idata + 1
51781  data_tmp = full_data(idata)
51782  data_tmp = ishft(data_tmp, 2)
51783  data_tmp = iand(data_tmp, mask_left(6))
51784  pack_tmp = ior(pack_tmp, data_tmp)
51785  ipack = ipack + 1
51786  packed_data(ipack) = pack_tmp
51787  data_tmp = full_data(idata)
51788  pack_tmp = ishft(data_tmp, 8)
51789  pack_tmp = ishft(pack_tmp, -8)
51790  idata = idata + 1
51791  data_tmp = full_data(idata)
51792  data_tmp = ishft(data_tmp, 2)
51793  data_tmp = iand(data_tmp, mask_left(8))
51794  pack_tmp = ior(pack_tmp, data_tmp)
51795  ipack = ipack + 1
51796  packed_data(ipack) = pack_tmp
51797  data_tmp = full_data(idata)
51798  pack_tmp = ishft(data_tmp, 10)
51799  pack_tmp = ishft(pack_tmp, -10)
51800  idata = idata + 1
51801  data_tmp = full_data(idata)
51802  data_tmp = ishft(data_tmp, 2)
51803  data_tmp = iand(data_tmp, mask_left(10))
51804  pack_tmp = ior(pack_tmp, data_tmp)
51805  ipack = ipack + 1
51806  packed_data(ipack) = pack_tmp
51807  data_tmp = full_data(idata)
51808  pack_tmp = ishft(data_tmp, 12)
51809  pack_tmp = ishft(pack_tmp, -12)
51810  idata = idata + 1
51811  data_tmp = full_data(idata)
51812  data_tmp = ishft(data_tmp, 2)
51813  data_tmp = iand(data_tmp, mask_left(12))
51814  pack_tmp = ior(pack_tmp, data_tmp)
51815  ipack = ipack + 1
51816  packed_data(ipack) = pack_tmp
51817  data_tmp = full_data(idata)
51818  pack_tmp = ishft(data_tmp, 14)
51819  pack_tmp = ishft(pack_tmp, -14)
51820  idata = idata + 1
51821  data_tmp = full_data(idata)
51822  data_tmp = ishft(data_tmp, 2)
51823  data_tmp = iand(data_tmp, mask_left(14))
51824  pack_tmp = ior(pack_tmp, data_tmp)
51825  ipack = ipack + 1
51826  packed_data(ipack) = pack_tmp
51827  data_tmp = full_data(idata)
51828  pack_tmp = ishft(data_tmp, 16)
51829  pack_tmp = ishft(pack_tmp, -16)
51830  idata = idata + 1
51831  data_tmp = full_data(idata)
51832  data_tmp = ishft(data_tmp, 2)
51833  data_tmp = iand(data_tmp, mask_left(16))
51834  pack_tmp = ior(pack_tmp, data_tmp)
51835  ipack = ipack + 1
51836  packed_data(ipack) = pack_tmp
51837  data_tmp = full_data(idata)
51838  pack_tmp = ishft(data_tmp, 18)
51839  pack_tmp = ishft(pack_tmp, -18)
51840  idata = idata + 1
51841  data_tmp = full_data(idata)
51842  data_tmp = ishft(data_tmp, 2)
51843  data_tmp = iand(data_tmp, mask_left(18))
51844  pack_tmp = ior(pack_tmp, data_tmp)
51845  ipack = ipack + 1
51846  packed_data(ipack) = pack_tmp
51847  data_tmp = full_data(idata)
51848  pack_tmp = ishft(data_tmp, 20)
51849  pack_tmp = ishft(pack_tmp, -20)
51850  idata = idata + 1
51851  data_tmp = full_data(idata)
51852  data_tmp = ishft(data_tmp, 2)
51853  data_tmp = iand(data_tmp, mask_left(20))
51854  pack_tmp = ior(pack_tmp, data_tmp)
51855  ipack = ipack + 1
51856  packed_data(ipack) = pack_tmp
51857  data_tmp = full_data(idata)
51858  pack_tmp = ishft(data_tmp, 22)
51859  pack_tmp = ishft(pack_tmp, -22)
51860  idata = idata + 1
51861  data_tmp = full_data(idata)
51862  data_tmp = ishft(data_tmp, 2)
51863  data_tmp = iand(data_tmp, mask_left(22))
51864  pack_tmp = ior(pack_tmp, data_tmp)
51865  ipack = ipack + 1
51866  packed_data(ipack) = pack_tmp
51867  data_tmp = full_data(idata)
51868  pack_tmp = ishft(data_tmp, 24)
51869  pack_tmp = ishft(pack_tmp, -24)
51870  idata = idata + 1
51871  data_tmp = full_data(idata)
51872  data_tmp = ishft(data_tmp, 2)
51873  data_tmp = iand(data_tmp, mask_left(24))
51874  pack_tmp = ior(pack_tmp, data_tmp)
51875  ipack = ipack + 1
51876  packed_data(ipack) = pack_tmp
51877  data_tmp = full_data(idata)
51878  pack_tmp = ishft(data_tmp, 26)
51879  pack_tmp = ishft(pack_tmp, -26)
51880  idata = idata + 1
51881  data_tmp = full_data(idata)
51882  data_tmp = ishft(data_tmp, 2)
51883  data_tmp = iand(data_tmp, mask_left(26))
51884  pack_tmp = ior(pack_tmp, data_tmp)
51885  ipack = ipack + 1
51886  packed_data(ipack) = pack_tmp
51887  data_tmp = full_data(idata)
51888  pack_tmp = ishft(data_tmp, 28)
51889  pack_tmp = ishft(pack_tmp, -28)
51890  idata = idata + 1
51891  data_tmp = full_data(idata)
51892  data_tmp = ishft(data_tmp, 2)
51893  data_tmp = iand(data_tmp, mask_left(28))
51894  pack_tmp = ior(pack_tmp, data_tmp)
51895  ipack = ipack + 1
51896  packed_data(ipack) = pack_tmp
51897  data_tmp = full_data(idata)
51898  pack_tmp = ishft(data_tmp, 30)
51899  pack_tmp = ishft(pack_tmp, -30)
51900  idata = idata + 1
51901  data_tmp = full_data(idata)
51902  data_tmp = ishft(data_tmp, 2)
51903  data_tmp = iand(data_tmp, mask_left(30))
51904  pack_tmp = ior(pack_tmp, data_tmp)
51905  ipack = ipack + 1
51906  packed_data(ipack) = pack_tmp
51907  data_tmp = full_data(idata)
51908  pack_tmp = ishft(data_tmp, 32)
51909  pack_tmp = ishft(pack_tmp, -32)
51910  idata = idata + 1
51911  data_tmp = full_data(idata)
51912  data_tmp = ishft(data_tmp, 2)
51913  data_tmp = iand(data_tmp, mask_left(32))
51914  pack_tmp = ior(pack_tmp, data_tmp)
51915  ipack = ipack + 1
51916  packed_data(ipack) = pack_tmp
51917  data_tmp = full_data(idata)
51918  pack_tmp = ishft(data_tmp, 34)
51919  pack_tmp = ishft(pack_tmp, -34)
51920  idata = idata + 1
51921  data_tmp = full_data(idata)
51922  data_tmp = ishft(data_tmp, 2)
51923  data_tmp = iand(data_tmp, mask_left(34))
51924  pack_tmp = ior(pack_tmp, data_tmp)
51925  ipack = ipack + 1
51926  packed_data(ipack) = pack_tmp
51927  data_tmp = full_data(idata)
51928  pack_tmp = ishft(data_tmp, 36)
51929  pack_tmp = ishft(pack_tmp, -36)
51930  idata = idata + 1
51931  data_tmp = full_data(idata)
51932  data_tmp = ishft(data_tmp, 2)
51933  data_tmp = iand(data_tmp, mask_left(36))
51934  pack_tmp = ior(pack_tmp, data_tmp)
51935  ipack = ipack + 1
51936  packed_data(ipack) = pack_tmp
51937  data_tmp = full_data(idata)
51938  pack_tmp = ishft(data_tmp, 38)
51939  pack_tmp = ishft(pack_tmp, -38)
51940  idata = idata + 1
51941  data_tmp = full_data(idata)
51942  data_tmp = ishft(data_tmp, 2)
51943  data_tmp = iand(data_tmp, mask_left(38))
51944  pack_tmp = ior(pack_tmp, data_tmp)
51945  ipack = ipack + 1
51946  packed_data(ipack) = pack_tmp
51947  data_tmp = full_data(idata)
51948  pack_tmp = ishft(data_tmp, 40)
51949  pack_tmp = ishft(pack_tmp, -40)
51950  idata = idata + 1
51951  data_tmp = full_data(idata)
51952  data_tmp = ishft(data_tmp, 2)
51953  data_tmp = iand(data_tmp, mask_left(40))
51954  pack_tmp = ior(pack_tmp, data_tmp)
51955  ipack = ipack + 1
51956  packed_data(ipack) = pack_tmp
51957  data_tmp = full_data(idata)
51958  pack_tmp = ishft(data_tmp, 42)
51959  pack_tmp = ishft(pack_tmp, -42)
51960  idata = idata + 1
51961  data_tmp = full_data(idata)
51962  data_tmp = ishft(data_tmp, 2)
51963  data_tmp = iand(data_tmp, mask_left(42))
51964  pack_tmp = ior(pack_tmp, data_tmp)
51965  ipack = ipack + 1
51966  packed_data(ipack) = pack_tmp
51967  data_tmp = full_data(idata)
51968  pack_tmp = ishft(data_tmp, 44)
51969  pack_tmp = ishft(pack_tmp, -44)
51970  idata = idata + 1
51971  data_tmp = full_data(idata)
51972  data_tmp = ishft(data_tmp, 2)
51973  data_tmp = iand(data_tmp, mask_left(44))
51974  pack_tmp = ior(pack_tmp, data_tmp)
51975  ipack = ipack + 1
51976  packed_data(ipack) = pack_tmp
51977  data_tmp = full_data(idata)
51978  pack_tmp = ishft(data_tmp, 46)
51979  pack_tmp = ishft(pack_tmp, -46)
51980  idata = idata + 1
51981  data_tmp = full_data(idata)
51982  data_tmp = ishft(data_tmp, 2)
51983  data_tmp = iand(data_tmp, mask_left(46))
51984  pack_tmp = ior(pack_tmp, data_tmp)
51985  ipack = ipack + 1
51986  packed_data(ipack) = pack_tmp
51987  data_tmp = full_data(idata)
51988  pack_tmp = ishft(data_tmp, 48)
51989  pack_tmp = ishft(pack_tmp, -48)
51990  idata = idata + 1
51991  data_tmp = full_data(idata)
51992  data_tmp = ishft(data_tmp, 2)
51993  data_tmp = iand(data_tmp, mask_left(48))
51994  pack_tmp = ior(pack_tmp, data_tmp)
51995  ipack = ipack + 1
51996  packed_data(ipack) = pack_tmp
51997  data_tmp = full_data(idata)
51998  pack_tmp = ishft(data_tmp, 50)
51999  pack_tmp = ishft(pack_tmp, -50)
52000  idata = idata + 1
52001  data_tmp = full_data(idata)
52002  data_tmp = ishft(data_tmp, 2)
52003  data_tmp = iand(data_tmp, mask_left(50))
52004  pack_tmp = ior(pack_tmp, data_tmp)
52005  ipack = ipack + 1
52006  packed_data(ipack) = pack_tmp
52007  data_tmp = full_data(idata)
52008  pack_tmp = ishft(data_tmp, 52)
52009  pack_tmp = ishft(pack_tmp, -52)
52010  idata = idata + 1
52011  data_tmp = full_data(idata)
52012  data_tmp = ishft(data_tmp, 2)
52013  data_tmp = iand(data_tmp, mask_left(52))
52014  pack_tmp = ior(pack_tmp, data_tmp)
52015  ipack = ipack + 1
52016  packed_data(ipack) = pack_tmp
52017  data_tmp = full_data(idata)
52018  pack_tmp = ishft(data_tmp, 54)
52019  pack_tmp = ishft(pack_tmp, -54)
52020  idata = idata + 1
52021  data_tmp = full_data(idata)
52022  data_tmp = ishft(data_tmp, 2)
52023  data_tmp = iand(data_tmp, mask_left(54))
52024  pack_tmp = ior(pack_tmp, data_tmp)
52025  ipack = ipack + 1
52026  packed_data(ipack) = pack_tmp
52027  data_tmp = full_data(idata)
52028  pack_tmp = ishft(data_tmp, 56)
52029  pack_tmp = ishft(pack_tmp, -56)
52030  idata = idata + 1
52031  data_tmp = full_data(idata)
52032  data_tmp = ishft(data_tmp, 2)
52033  data_tmp = iand(data_tmp, mask_left(56))
52034  pack_tmp = ior(pack_tmp, data_tmp)
52035  ipack = ipack + 1
52036  packed_data(ipack) = pack_tmp
52037  data_tmp = full_data(idata)
52038  pack_tmp = ishft(data_tmp, 58)
52039  pack_tmp = ishft(pack_tmp, -58)
52040  idata = idata + 1
52041  data_tmp = full_data(idata)
52042  data_tmp = ishft(data_tmp, 2)
52043  data_tmp = iand(data_tmp, mask_left(58))
52044  pack_tmp = ior(pack_tmp, data_tmp)
52045  ipack = ipack + 1
52046  packed_data(ipack) = pack_tmp
52047  data_tmp = full_data(idata)
52048  pack_tmp = ishft(data_tmp, 60)
52049  pack_tmp = ishft(pack_tmp, -60)
52050  idata = idata + 1
52051  data_tmp = full_data(idata)
52052  data_tmp = ishft(data_tmp, 2)
52053  data_tmp = iand(data_tmp, mask_left(60))
52054  pack_tmp = ior(pack_tmp, data_tmp)
52055  ipack = ipack + 1
52056  packed_data(ipack) = pack_tmp
52057  data_tmp = full_data(idata)
52058  pack_tmp = ishft(data_tmp, 62)
52059  pack_tmp = ishft(pack_tmp, -62)
52060  idata = idata + 1
52061  data_tmp = full_data(idata)
52062  data_tmp = ishft(data_tmp, 2)
52063  pack_tmp = ior(pack_tmp, data_tmp)
52064  pack_tmp = ishft(pack_tmp, 0)
52065  idata = idata + 1
52066  data_tmp = full_data(idata)
52067  data_tmp = ishft(data_tmp, 2)
52068  data_tmp = iand(data_tmp, mask_left(0))
52069  pack_tmp = ior(pack_tmp, data_tmp)
52070  ipack = ipack + 1
52071  packed_data(ipack) = pack_tmp
52072  data_tmp = full_data(idata)
52073  pack_tmp = ishft(data_tmp, 2)
52074  pack_tmp = ishft(pack_tmp, -2)
52075  idata = idata + 1
52076  data_tmp = full_data(idata)
52077  data_tmp = ishft(data_tmp, 2)
52078  data_tmp = iand(data_tmp, mask_left(2))
52079  pack_tmp = ior(pack_tmp, data_tmp)
52080  ipack = ipack + 1
52081  packed_data(ipack) = pack_tmp
52082  data_tmp = full_data(idata)
52083  pack_tmp = ishft(data_tmp, 4)
52084  pack_tmp = ishft(pack_tmp, -4)
52085  idata = idata + 1
52086  data_tmp = full_data(idata)
52087  data_tmp = ishft(data_tmp, 2)
52088  data_tmp = iand(data_tmp, mask_left(4))
52089  pack_tmp = ior(pack_tmp, data_tmp)
52090  ipack = ipack + 1
52091  packed_data(ipack) = pack_tmp
52092  data_tmp = full_data(idata)
52093  pack_tmp = ishft(data_tmp, 6)
52094  pack_tmp = ishft(pack_tmp, -6)
52095  idata = idata + 1
52096  data_tmp = full_data(idata)
52097  data_tmp = ishft(data_tmp, 2)
52098  data_tmp = iand(data_tmp, mask_left(6))
52099  pack_tmp = ior(pack_tmp, data_tmp)
52100  ipack = ipack + 1
52101  packed_data(ipack) = pack_tmp
52102  data_tmp = full_data(idata)
52103  pack_tmp = ishft(data_tmp, 8)
52104  pack_tmp = ishft(pack_tmp, -8)
52105  idata = idata + 1
52106  data_tmp = full_data(idata)
52107  data_tmp = ishft(data_tmp, 2)
52108  data_tmp = iand(data_tmp, mask_left(8))
52109  pack_tmp = ior(pack_tmp, data_tmp)
52110  ipack = ipack + 1
52111  packed_data(ipack) = pack_tmp
52112  data_tmp = full_data(idata)
52113  pack_tmp = ishft(data_tmp, 10)
52114  pack_tmp = ishft(pack_tmp, -10)
52115  idata = idata + 1
52116  data_tmp = full_data(idata)
52117  data_tmp = ishft(data_tmp, 2)
52118  data_tmp = iand(data_tmp, mask_left(10))
52119  pack_tmp = ior(pack_tmp, data_tmp)
52120  ipack = ipack + 1
52121  packed_data(ipack) = pack_tmp
52122  data_tmp = full_data(idata)
52123  pack_tmp = ishft(data_tmp, 12)
52124  pack_tmp = ishft(pack_tmp, -12)
52125  idata = idata + 1
52126  data_tmp = full_data(idata)
52127  data_tmp = ishft(data_tmp, 2)
52128  data_tmp = iand(data_tmp, mask_left(12))
52129  pack_tmp = ior(pack_tmp, data_tmp)
52130  ipack = ipack + 1
52131  packed_data(ipack) = pack_tmp
52132  data_tmp = full_data(idata)
52133  pack_tmp = ishft(data_tmp, 14)
52134  pack_tmp = ishft(pack_tmp, -14)
52135  idata = idata + 1
52136  data_tmp = full_data(idata)
52137  data_tmp = ishft(data_tmp, 2)
52138  data_tmp = iand(data_tmp, mask_left(14))
52139  pack_tmp = ior(pack_tmp, data_tmp)
52140  ipack = ipack + 1
52141  packed_data(ipack) = pack_tmp
52142  data_tmp = full_data(idata)
52143  pack_tmp = ishft(data_tmp, 16)
52144  pack_tmp = ishft(pack_tmp, -16)
52145  idata = idata + 1
52146  data_tmp = full_data(idata)
52147  data_tmp = ishft(data_tmp, 2)
52148  data_tmp = iand(data_tmp, mask_left(16))
52149  pack_tmp = ior(pack_tmp, data_tmp)
52150  ipack = ipack + 1
52151  packed_data(ipack) = pack_tmp
52152  data_tmp = full_data(idata)
52153  pack_tmp = ishft(data_tmp, 18)
52154  pack_tmp = ishft(pack_tmp, -18)
52155  idata = idata + 1
52156  data_tmp = full_data(idata)
52157  data_tmp = ishft(data_tmp, 2)
52158  data_tmp = iand(data_tmp, mask_left(18))
52159  pack_tmp = ior(pack_tmp, data_tmp)
52160  ipack = ipack + 1
52161  packed_data(ipack) = pack_tmp
52162  data_tmp = full_data(idata)
52163  pack_tmp = ishft(data_tmp, 20)
52164  pack_tmp = ishft(pack_tmp, -20)
52165  idata = idata + 1
52166  data_tmp = full_data(idata)
52167  data_tmp = ishft(data_tmp, 2)
52168  data_tmp = iand(data_tmp, mask_left(20))
52169  pack_tmp = ior(pack_tmp, data_tmp)
52170  ipack = ipack + 1
52171  packed_data(ipack) = pack_tmp
52172  data_tmp = full_data(idata)
52173  pack_tmp = ishft(data_tmp, 22)
52174  pack_tmp = ishft(pack_tmp, -22)
52175  idata = idata + 1
52176  data_tmp = full_data(idata)
52177  data_tmp = ishft(data_tmp, 2)
52178  data_tmp = iand(data_tmp, mask_left(22))
52179  pack_tmp = ior(pack_tmp, data_tmp)
52180  ipack = ipack + 1
52181  packed_data(ipack) = pack_tmp
52182  data_tmp = full_data(idata)
52183  pack_tmp = ishft(data_tmp, 24)
52184  pack_tmp = ishft(pack_tmp, -24)
52185  idata = idata + 1
52186  data_tmp = full_data(idata)
52187  data_tmp = ishft(data_tmp, 2)
52188  data_tmp = iand(data_tmp, mask_left(24))
52189  pack_tmp = ior(pack_tmp, data_tmp)
52190  ipack = ipack + 1
52191  packed_data(ipack) = pack_tmp
52192  data_tmp = full_data(idata)
52193  pack_tmp = ishft(data_tmp, 26)
52194  pack_tmp = ishft(pack_tmp, -26)
52195  idata = idata + 1
52196  data_tmp = full_data(idata)
52197  data_tmp = ishft(data_tmp, 2)
52198  data_tmp = iand(data_tmp, mask_left(26))
52199  pack_tmp = ior(pack_tmp, data_tmp)
52200  ipack = ipack + 1
52201  packed_data(ipack) = pack_tmp
52202  data_tmp = full_data(idata)
52203  pack_tmp = ishft(data_tmp, 28)
52204  pack_tmp = ishft(pack_tmp, -28)
52205  idata = idata + 1
52206  data_tmp = full_data(idata)
52207  data_tmp = ishft(data_tmp, 2)
52208  data_tmp = iand(data_tmp, mask_left(28))
52209  pack_tmp = ior(pack_tmp, data_tmp)
52210  ipack = ipack + 1
52211  packed_data(ipack) = pack_tmp
52212  data_tmp = full_data(idata)
52213  pack_tmp = ishft(data_tmp, 30)
52214  pack_tmp = ishft(pack_tmp, -30)
52215  idata = idata + 1
52216  data_tmp = full_data(idata)
52217  data_tmp = ishft(data_tmp, 2)
52218  data_tmp = iand(data_tmp, mask_left(30))
52219  pack_tmp = ior(pack_tmp, data_tmp)
52220  ipack = ipack + 1
52221  packed_data(ipack) = pack_tmp
52222  data_tmp = full_data(idata)
52223  pack_tmp = ishft(data_tmp, 32)
52224  pack_tmp = ishft(pack_tmp, -32)
52225  idata = idata + 1
52226  data_tmp = full_data(idata)
52227  data_tmp = ishft(data_tmp, 2)
52228  data_tmp = iand(data_tmp, mask_left(32))
52229  pack_tmp = ior(pack_tmp, data_tmp)
52230  ipack = ipack + 1
52231  packed_data(ipack) = pack_tmp
52232  data_tmp = full_data(idata)
52233  pack_tmp = ishft(data_tmp, 34)
52234  pack_tmp = ishft(pack_tmp, -34)
52235  idata = idata + 1
52236  data_tmp = full_data(idata)
52237  data_tmp = ishft(data_tmp, 2)
52238  data_tmp = iand(data_tmp, mask_left(34))
52239  pack_tmp = ior(pack_tmp, data_tmp)
52240  ipack = ipack + 1
52241  packed_data(ipack) = pack_tmp
52242  data_tmp = full_data(idata)
52243  pack_tmp = ishft(data_tmp, 36)
52244  pack_tmp = ishft(pack_tmp, -36)
52245  idata = idata + 1
52246  data_tmp = full_data(idata)
52247  data_tmp = ishft(data_tmp, 2)
52248  data_tmp = iand(data_tmp, mask_left(36))
52249  pack_tmp = ior(pack_tmp, data_tmp)
52250  ipack = ipack + 1
52251  packed_data(ipack) = pack_tmp
52252  data_tmp = full_data(idata)
52253  pack_tmp = ishft(data_tmp, 38)
52254  pack_tmp = ishft(pack_tmp, -38)
52255  idata = idata + 1
52256  data_tmp = full_data(idata)
52257  data_tmp = ishft(data_tmp, 2)
52258  data_tmp = iand(data_tmp, mask_left(38))
52259  pack_tmp = ior(pack_tmp, data_tmp)
52260  ipack = ipack + 1
52261  packed_data(ipack) = pack_tmp
52262  data_tmp = full_data(idata)
52263  pack_tmp = ishft(data_tmp, 40)
52264  pack_tmp = ishft(pack_tmp, -40)
52265  idata = idata + 1
52266  data_tmp = full_data(idata)
52267  data_tmp = ishft(data_tmp, 2)
52268  data_tmp = iand(data_tmp, mask_left(40))
52269  pack_tmp = ior(pack_tmp, data_tmp)
52270  ipack = ipack + 1
52271  packed_data(ipack) = pack_tmp
52272  data_tmp = full_data(idata)
52273  pack_tmp = ishft(data_tmp, 42)
52274  pack_tmp = ishft(pack_tmp, -42)
52275  idata = idata + 1
52276  data_tmp = full_data(idata)
52277  data_tmp = ishft(data_tmp, 2)
52278  data_tmp = iand(data_tmp, mask_left(42))
52279  pack_tmp = ior(pack_tmp, data_tmp)
52280  ipack = ipack + 1
52281  packed_data(ipack) = pack_tmp
52282  data_tmp = full_data(idata)
52283  pack_tmp = ishft(data_tmp, 44)
52284  pack_tmp = ishft(pack_tmp, -44)
52285  idata = idata + 1
52286  data_tmp = full_data(idata)
52287  data_tmp = ishft(data_tmp, 2)
52288  data_tmp = iand(data_tmp, mask_left(44))
52289  pack_tmp = ior(pack_tmp, data_tmp)
52290  ipack = ipack + 1
52291  packed_data(ipack) = pack_tmp
52292  data_tmp = full_data(idata)
52293  pack_tmp = ishft(data_tmp, 46)
52294  pack_tmp = ishft(pack_tmp, -46)
52295  idata = idata + 1
52296  data_tmp = full_data(idata)
52297  data_tmp = ishft(data_tmp, 2)
52298  data_tmp = iand(data_tmp, mask_left(46))
52299  pack_tmp = ior(pack_tmp, data_tmp)
52300  ipack = ipack + 1
52301  packed_data(ipack) = pack_tmp
52302  data_tmp = full_data(idata)
52303  pack_tmp = ishft(data_tmp, 48)
52304  pack_tmp = ishft(pack_tmp, -48)
52305  idata = idata + 1
52306  data_tmp = full_data(idata)
52307  data_tmp = ishft(data_tmp, 2)
52308  data_tmp = iand(data_tmp, mask_left(48))
52309  pack_tmp = ior(pack_tmp, data_tmp)
52310  ipack = ipack + 1
52311  packed_data(ipack) = pack_tmp
52312  data_tmp = full_data(idata)
52313  pack_tmp = ishft(data_tmp, 50)
52314  pack_tmp = ishft(pack_tmp, -50)
52315  idata = idata + 1
52316  data_tmp = full_data(idata)
52317  data_tmp = ishft(data_tmp, 2)
52318  data_tmp = iand(data_tmp, mask_left(50))
52319  pack_tmp = ior(pack_tmp, data_tmp)
52320  ipack = ipack + 1
52321  packed_data(ipack) = pack_tmp
52322  data_tmp = full_data(idata)
52323  pack_tmp = ishft(data_tmp, 52)
52324  pack_tmp = ishft(pack_tmp, -52)
52325  idata = idata + 1
52326  data_tmp = full_data(idata)
52327  data_tmp = ishft(data_tmp, 2)
52328  data_tmp = iand(data_tmp, mask_left(52))
52329  pack_tmp = ior(pack_tmp, data_tmp)
52330  ipack = ipack + 1
52331  packed_data(ipack) = pack_tmp
52332  data_tmp = full_data(idata)
52333  pack_tmp = ishft(data_tmp, 54)
52334  pack_tmp = ishft(pack_tmp, -54)
52335  idata = idata + 1
52336  data_tmp = full_data(idata)
52337  data_tmp = ishft(data_tmp, 2)
52338  data_tmp = iand(data_tmp, mask_left(54))
52339  pack_tmp = ior(pack_tmp, data_tmp)
52340  ipack = ipack + 1
52341  packed_data(ipack) = pack_tmp
52342  data_tmp = full_data(idata)
52343  pack_tmp = ishft(data_tmp, 56)
52344  pack_tmp = ishft(pack_tmp, -56)
52345  idata = idata + 1
52346  data_tmp = full_data(idata)
52347  data_tmp = ishft(data_tmp, 2)
52348  data_tmp = iand(data_tmp, mask_left(56))
52349  pack_tmp = ior(pack_tmp, data_tmp)
52350  ipack = ipack + 1
52351  packed_data(ipack) = pack_tmp
52352  data_tmp = full_data(idata)
52353  pack_tmp = ishft(data_tmp, 58)
52354  pack_tmp = ishft(pack_tmp, -58)
52355  idata = idata + 1
52356  data_tmp = full_data(idata)
52357  data_tmp = ishft(data_tmp, 2)
52358  data_tmp = iand(data_tmp, mask_left(58))
52359  pack_tmp = ior(pack_tmp, data_tmp)
52360  ipack = ipack + 1
52361  packed_data(ipack) = pack_tmp
52362  data_tmp = full_data(idata)
52363  pack_tmp = ishft(data_tmp, 60)
52364  pack_tmp = ishft(pack_tmp, -60)
52365  idata = idata + 1
52366  data_tmp = full_data(idata)
52367  data_tmp = ishft(data_tmp, 2)
52368  data_tmp = iand(data_tmp, mask_left(60))
52369  pack_tmp = ior(pack_tmp, data_tmp)
52370  ipack = ipack + 1
52371  packed_data(ipack) = pack_tmp
52372  data_tmp = full_data(idata)
52373  pack_tmp = ishft(data_tmp, 62)
52374  pack_tmp = ishft(pack_tmp, -62)
52375  idata = idata + 1
52376  data_tmp = full_data(idata)
52377  data_tmp = ishft(data_tmp, 2)
52378  pack_tmp = ior(pack_tmp, data_tmp)
52379  pack_tmp = ishft(pack_tmp, 0)
52380  pack_tmp = ishft(pack_tmp, 0)
52381  ipack = ipack + 1
52382  packed_data(ipack) = pack_tmp
52383  END DO
52384  IF (ndata_rep < ndata) THEN
52385  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
52386  END IF
52387  END SUBROUTINE ints2bits_62
52388 
52389 ! **************************************************************************************************
52390 !> \brief ...
52391 !> \param Ndata ...
52392 !> \param packed_data ...
52393 !> \param full_data ...
52394 ! **************************************************************************************************
52395  SUBROUTINE bits2ints_62(Ndata, packed_data, full_data)
52396  INTEGER, INTENT(IN) :: Ndata
52397  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
52398  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
52399 
52400  INTEGER, PARAMETER :: Nbits = 62
52401 
52402  INTEGER :: idata, ipack, kdata, Ndata_rep
52403  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
52404 
52405  ipack = 0
52406  idata = 0
52407  pack_tmp = 0
52408  ndata_rep = (ndata/64)*64
52409  DO kdata = 1, ndata_rep, 64
52410  idata = idata + 1
52411  data_tmp = ishft(pack_tmp, 62)
52412  ipack = ipack + 1
52413  pack_tmp = packed_data(ipack)
52414  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(62)))
52415  pack_tmp = ishft(pack_tmp, -62)
52416  idata = idata + 1
52417  data_tmp = ishft(pack_tmp, 60)
52418  ipack = ipack + 1
52419  pack_tmp = packed_data(ipack)
52420  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
52421  pack_tmp = ishft(pack_tmp, -60)
52422  idata = idata + 1
52423  data_tmp = ishft(pack_tmp, 58)
52424  ipack = ipack + 1
52425  pack_tmp = packed_data(ipack)
52426  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
52427  pack_tmp = ishft(pack_tmp, -58)
52428  idata = idata + 1
52429  data_tmp = ishft(pack_tmp, 56)
52430  ipack = ipack + 1
52431  pack_tmp = packed_data(ipack)
52432  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
52433  pack_tmp = ishft(pack_tmp, -56)
52434  idata = idata + 1
52435  data_tmp = ishft(pack_tmp, 54)
52436  ipack = ipack + 1
52437  pack_tmp = packed_data(ipack)
52438  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
52439  pack_tmp = ishft(pack_tmp, -54)
52440  idata = idata + 1
52441  data_tmp = ishft(pack_tmp, 52)
52442  ipack = ipack + 1
52443  pack_tmp = packed_data(ipack)
52444  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
52445  pack_tmp = ishft(pack_tmp, -52)
52446  idata = idata + 1
52447  data_tmp = ishft(pack_tmp, 50)
52448  ipack = ipack + 1
52449  pack_tmp = packed_data(ipack)
52450  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
52451  pack_tmp = ishft(pack_tmp, -50)
52452  idata = idata + 1
52453  data_tmp = ishft(pack_tmp, 48)
52454  ipack = ipack + 1
52455  pack_tmp = packed_data(ipack)
52456  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
52457  pack_tmp = ishft(pack_tmp, -48)
52458  idata = idata + 1
52459  data_tmp = ishft(pack_tmp, 46)
52460  ipack = ipack + 1
52461  pack_tmp = packed_data(ipack)
52462  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
52463  pack_tmp = ishft(pack_tmp, -46)
52464  idata = idata + 1
52465  data_tmp = ishft(pack_tmp, 44)
52466  ipack = ipack + 1
52467  pack_tmp = packed_data(ipack)
52468  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
52469  pack_tmp = ishft(pack_tmp, -44)
52470  idata = idata + 1
52471  data_tmp = ishft(pack_tmp, 42)
52472  ipack = ipack + 1
52473  pack_tmp = packed_data(ipack)
52474  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
52475  pack_tmp = ishft(pack_tmp, -42)
52476  idata = idata + 1
52477  data_tmp = ishft(pack_tmp, 40)
52478  ipack = ipack + 1
52479  pack_tmp = packed_data(ipack)
52480  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
52481  pack_tmp = ishft(pack_tmp, -40)
52482  idata = idata + 1
52483  data_tmp = ishft(pack_tmp, 38)
52484  ipack = ipack + 1
52485  pack_tmp = packed_data(ipack)
52486  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
52487  pack_tmp = ishft(pack_tmp, -38)
52488  idata = idata + 1
52489  data_tmp = ishft(pack_tmp, 36)
52490  ipack = ipack + 1
52491  pack_tmp = packed_data(ipack)
52492  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
52493  pack_tmp = ishft(pack_tmp, -36)
52494  idata = idata + 1
52495  data_tmp = ishft(pack_tmp, 34)
52496  ipack = ipack + 1
52497  pack_tmp = packed_data(ipack)
52498  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
52499  pack_tmp = ishft(pack_tmp, -34)
52500  idata = idata + 1
52501  data_tmp = ishft(pack_tmp, 32)
52502  ipack = ipack + 1
52503  pack_tmp = packed_data(ipack)
52504  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
52505  pack_tmp = ishft(pack_tmp, -32)
52506  idata = idata + 1
52507  data_tmp = ishft(pack_tmp, 30)
52508  ipack = ipack + 1
52509  pack_tmp = packed_data(ipack)
52510  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
52511  pack_tmp = ishft(pack_tmp, -30)
52512  idata = idata + 1
52513  data_tmp = ishft(pack_tmp, 28)
52514  ipack = ipack + 1
52515  pack_tmp = packed_data(ipack)
52516  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
52517  pack_tmp = ishft(pack_tmp, -28)
52518  idata = idata + 1
52519  data_tmp = ishft(pack_tmp, 26)
52520  ipack = ipack + 1
52521  pack_tmp = packed_data(ipack)
52522  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
52523  pack_tmp = ishft(pack_tmp, -26)
52524  idata = idata + 1
52525  data_tmp = ishft(pack_tmp, 24)
52526  ipack = ipack + 1
52527  pack_tmp = packed_data(ipack)
52528  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
52529  pack_tmp = ishft(pack_tmp, -24)
52530  idata = idata + 1
52531  data_tmp = ishft(pack_tmp, 22)
52532  ipack = ipack + 1
52533  pack_tmp = packed_data(ipack)
52534  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
52535  pack_tmp = ishft(pack_tmp, -22)
52536  idata = idata + 1
52537  data_tmp = ishft(pack_tmp, 20)
52538  ipack = ipack + 1
52539  pack_tmp = packed_data(ipack)
52540  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
52541  pack_tmp = ishft(pack_tmp, -20)
52542  idata = idata + 1
52543  data_tmp = ishft(pack_tmp, 18)
52544  ipack = ipack + 1
52545  pack_tmp = packed_data(ipack)
52546  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
52547  pack_tmp = ishft(pack_tmp, -18)
52548  idata = idata + 1
52549  data_tmp = ishft(pack_tmp, 16)
52550  ipack = ipack + 1
52551  pack_tmp = packed_data(ipack)
52552  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
52553  pack_tmp = ishft(pack_tmp, -16)
52554  idata = idata + 1
52555  data_tmp = ishft(pack_tmp, 14)
52556  ipack = ipack + 1
52557  pack_tmp = packed_data(ipack)
52558  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
52559  pack_tmp = ishft(pack_tmp, -14)
52560  idata = idata + 1
52561  data_tmp = ishft(pack_tmp, 12)
52562  ipack = ipack + 1
52563  pack_tmp = packed_data(ipack)
52564  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
52565  pack_tmp = ishft(pack_tmp, -12)
52566  idata = idata + 1
52567  data_tmp = ishft(pack_tmp, 10)
52568  ipack = ipack + 1
52569  pack_tmp = packed_data(ipack)
52570  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
52571  pack_tmp = ishft(pack_tmp, -10)
52572  idata = idata + 1
52573  data_tmp = ishft(pack_tmp, 8)
52574  ipack = ipack + 1
52575  pack_tmp = packed_data(ipack)
52576  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
52577  pack_tmp = ishft(pack_tmp, -8)
52578  idata = idata + 1
52579  data_tmp = ishft(pack_tmp, 6)
52580  ipack = ipack + 1
52581  pack_tmp = packed_data(ipack)
52582  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
52583  pack_tmp = ishft(pack_tmp, -6)
52584  idata = idata + 1
52585  data_tmp = ishft(pack_tmp, 4)
52586  ipack = ipack + 1
52587  pack_tmp = packed_data(ipack)
52588  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
52589  pack_tmp = ishft(pack_tmp, -4)
52590  idata = idata + 1
52591  data_tmp = ishft(pack_tmp, 2)
52592  ipack = ipack + 1
52593  pack_tmp = packed_data(ipack)
52594  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
52595  pack_tmp = ishft(pack_tmp, -2)
52596  idata = idata + 1
52597  data_tmp = iand(pack_tmp, mask_right(nbits))
52598  full_data(idata) = data_tmp
52599  pack_tmp = ishft(pack_tmp, -nbits)
52600  idata = idata + 1
52601  data_tmp = ishft(pack_tmp, 62)
52602  ipack = ipack + 1
52603  pack_tmp = packed_data(ipack)
52604  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(62)))
52605  pack_tmp = ishft(pack_tmp, -62)
52606  idata = idata + 1
52607  data_tmp = ishft(pack_tmp, 60)
52608  ipack = ipack + 1
52609  pack_tmp = packed_data(ipack)
52610  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
52611  pack_tmp = ishft(pack_tmp, -60)
52612  idata = idata + 1
52613  data_tmp = ishft(pack_tmp, 58)
52614  ipack = ipack + 1
52615  pack_tmp = packed_data(ipack)
52616  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
52617  pack_tmp = ishft(pack_tmp, -58)
52618  idata = idata + 1
52619  data_tmp = ishft(pack_tmp, 56)
52620  ipack = ipack + 1
52621  pack_tmp = packed_data(ipack)
52622  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
52623  pack_tmp = ishft(pack_tmp, -56)
52624  idata = idata + 1
52625  data_tmp = ishft(pack_tmp, 54)
52626  ipack = ipack + 1
52627  pack_tmp = packed_data(ipack)
52628  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
52629  pack_tmp = ishft(pack_tmp, -54)
52630  idata = idata + 1
52631  data_tmp = ishft(pack_tmp, 52)
52632  ipack = ipack + 1
52633  pack_tmp = packed_data(ipack)
52634  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
52635  pack_tmp = ishft(pack_tmp, -52)
52636  idata = idata + 1
52637  data_tmp = ishft(pack_tmp, 50)
52638  ipack = ipack + 1
52639  pack_tmp = packed_data(ipack)
52640  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
52641  pack_tmp = ishft(pack_tmp, -50)
52642  idata = idata + 1
52643  data_tmp = ishft(pack_tmp, 48)
52644  ipack = ipack + 1
52645  pack_tmp = packed_data(ipack)
52646  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
52647  pack_tmp = ishft(pack_tmp, -48)
52648  idata = idata + 1
52649  data_tmp = ishft(pack_tmp, 46)
52650  ipack = ipack + 1
52651  pack_tmp = packed_data(ipack)
52652  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
52653  pack_tmp = ishft(pack_tmp, -46)
52654  idata = idata + 1
52655  data_tmp = ishft(pack_tmp, 44)
52656  ipack = ipack + 1
52657  pack_tmp = packed_data(ipack)
52658  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
52659  pack_tmp = ishft(pack_tmp, -44)
52660  idata = idata + 1
52661  data_tmp = ishft(pack_tmp, 42)
52662  ipack = ipack + 1
52663  pack_tmp = packed_data(ipack)
52664  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
52665  pack_tmp = ishft(pack_tmp, -42)
52666  idata = idata + 1
52667  data_tmp = ishft(pack_tmp, 40)
52668  ipack = ipack + 1
52669  pack_tmp = packed_data(ipack)
52670  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
52671  pack_tmp = ishft(pack_tmp, -40)
52672  idata = idata + 1
52673  data_tmp = ishft(pack_tmp, 38)
52674  ipack = ipack + 1
52675  pack_tmp = packed_data(ipack)
52676  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
52677  pack_tmp = ishft(pack_tmp, -38)
52678  idata = idata + 1
52679  data_tmp = ishft(pack_tmp, 36)
52680  ipack = ipack + 1
52681  pack_tmp = packed_data(ipack)
52682  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
52683  pack_tmp = ishft(pack_tmp, -36)
52684  idata = idata + 1
52685  data_tmp = ishft(pack_tmp, 34)
52686  ipack = ipack + 1
52687  pack_tmp = packed_data(ipack)
52688  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
52689  pack_tmp = ishft(pack_tmp, -34)
52690  idata = idata + 1
52691  data_tmp = ishft(pack_tmp, 32)
52692  ipack = ipack + 1
52693  pack_tmp = packed_data(ipack)
52694  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
52695  pack_tmp = ishft(pack_tmp, -32)
52696  idata = idata + 1
52697  data_tmp = ishft(pack_tmp, 30)
52698  ipack = ipack + 1
52699  pack_tmp = packed_data(ipack)
52700  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
52701  pack_tmp = ishft(pack_tmp, -30)
52702  idata = idata + 1
52703  data_tmp = ishft(pack_tmp, 28)
52704  ipack = ipack + 1
52705  pack_tmp = packed_data(ipack)
52706  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
52707  pack_tmp = ishft(pack_tmp, -28)
52708  idata = idata + 1
52709  data_tmp = ishft(pack_tmp, 26)
52710  ipack = ipack + 1
52711  pack_tmp = packed_data(ipack)
52712  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
52713  pack_tmp = ishft(pack_tmp, -26)
52714  idata = idata + 1
52715  data_tmp = ishft(pack_tmp, 24)
52716  ipack = ipack + 1
52717  pack_tmp = packed_data(ipack)
52718  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
52719  pack_tmp = ishft(pack_tmp, -24)
52720  idata = idata + 1
52721  data_tmp = ishft(pack_tmp, 22)
52722  ipack = ipack + 1
52723  pack_tmp = packed_data(ipack)
52724  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
52725  pack_tmp = ishft(pack_tmp, -22)
52726  idata = idata + 1
52727  data_tmp = ishft(pack_tmp, 20)
52728  ipack = ipack + 1
52729  pack_tmp = packed_data(ipack)
52730  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
52731  pack_tmp = ishft(pack_tmp, -20)
52732  idata = idata + 1
52733  data_tmp = ishft(pack_tmp, 18)
52734  ipack = ipack + 1
52735  pack_tmp = packed_data(ipack)
52736  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
52737  pack_tmp = ishft(pack_tmp, -18)
52738  idata = idata + 1
52739  data_tmp = ishft(pack_tmp, 16)
52740  ipack = ipack + 1
52741  pack_tmp = packed_data(ipack)
52742  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
52743  pack_tmp = ishft(pack_tmp, -16)
52744  idata = idata + 1
52745  data_tmp = ishft(pack_tmp, 14)
52746  ipack = ipack + 1
52747  pack_tmp = packed_data(ipack)
52748  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
52749  pack_tmp = ishft(pack_tmp, -14)
52750  idata = idata + 1
52751  data_tmp = ishft(pack_tmp, 12)
52752  ipack = ipack + 1
52753  pack_tmp = packed_data(ipack)
52754  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
52755  pack_tmp = ishft(pack_tmp, -12)
52756  idata = idata + 1
52757  data_tmp = ishft(pack_tmp, 10)
52758  ipack = ipack + 1
52759  pack_tmp = packed_data(ipack)
52760  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
52761  pack_tmp = ishft(pack_tmp, -10)
52762  idata = idata + 1
52763  data_tmp = ishft(pack_tmp, 8)
52764  ipack = ipack + 1
52765  pack_tmp = packed_data(ipack)
52766  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
52767  pack_tmp = ishft(pack_tmp, -8)
52768  idata = idata + 1
52769  data_tmp = ishft(pack_tmp, 6)
52770  ipack = ipack + 1
52771  pack_tmp = packed_data(ipack)
52772  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
52773  pack_tmp = ishft(pack_tmp, -6)
52774  idata = idata + 1
52775  data_tmp = ishft(pack_tmp, 4)
52776  ipack = ipack + 1
52777  pack_tmp = packed_data(ipack)
52778  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
52779  pack_tmp = ishft(pack_tmp, -4)
52780  idata = idata + 1
52781  data_tmp = ishft(pack_tmp, 2)
52782  ipack = ipack + 1
52783  pack_tmp = packed_data(ipack)
52784  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
52785  pack_tmp = ishft(pack_tmp, -2)
52786  idata = idata + 1
52787  data_tmp = iand(pack_tmp, mask_right(nbits))
52788  full_data(idata) = data_tmp
52789  pack_tmp = ishft(pack_tmp, -nbits)
52790  END DO
52791  IF (ndata_rep < ndata) THEN
52792  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
52793  END IF
52794  END SUBROUTINE bits2ints_62
52795 
52796 ! **************************************************************************************************
52797 !> \brief ...
52798 !> \param Ndata ...
52799 !> \param packed_data ...
52800 !> \param full_data ...
52801 ! **************************************************************************************************
52802  SUBROUTINE ints2bits_63(Ndata, packed_data, full_data)
52803  INTEGER, INTENT(IN) :: Ndata
52804  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
52805  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
52806 
52807  INTEGER, PARAMETER :: Nbits = 63
52808 
52809  INTEGER :: idata, ipack, kdata, Ndata_rep
52810  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
52811 
52812  idata = 0
52813  ipack = 0
52814  ndata_rep = (ndata/64)*64
52815  DO kdata = 1, ndata_rep, 64
52816  pack_tmp = 0
52817  idata = idata + 1
52818  data_tmp = full_data(idata)
52819  data_tmp = ishft(data_tmp, 1)
52820  pack_tmp = ior(pack_tmp, data_tmp)
52821  pack_tmp = ishft(pack_tmp, -1)
52822  idata = idata + 1
52823  data_tmp = full_data(idata)
52824  data_tmp = ishft(data_tmp, 1)
52825  data_tmp = iand(data_tmp, mask_left(1))
52826  pack_tmp = ior(pack_tmp, data_tmp)
52827  ipack = ipack + 1
52828  packed_data(ipack) = pack_tmp
52829  data_tmp = full_data(idata)
52830  pack_tmp = ishft(data_tmp, 2)
52831  pack_tmp = ishft(pack_tmp, -2)
52832  idata = idata + 1
52833  data_tmp = full_data(idata)
52834  data_tmp = ishft(data_tmp, 1)
52835  data_tmp = iand(data_tmp, mask_left(2))
52836  pack_tmp = ior(pack_tmp, data_tmp)
52837  ipack = ipack + 1
52838  packed_data(ipack) = pack_tmp
52839  data_tmp = full_data(idata)
52840  pack_tmp = ishft(data_tmp, 3)
52841  pack_tmp = ishft(pack_tmp, -3)
52842  idata = idata + 1
52843  data_tmp = full_data(idata)
52844  data_tmp = ishft(data_tmp, 1)
52845  data_tmp = iand(data_tmp, mask_left(3))
52846  pack_tmp = ior(pack_tmp, data_tmp)
52847  ipack = ipack + 1
52848  packed_data(ipack) = pack_tmp
52849  data_tmp = full_data(idata)
52850  pack_tmp = ishft(data_tmp, 4)
52851  pack_tmp = ishft(pack_tmp, -4)
52852  idata = idata + 1
52853  data_tmp = full_data(idata)
52854  data_tmp = ishft(data_tmp, 1)
52855  data_tmp = iand(data_tmp, mask_left(4))
52856  pack_tmp = ior(pack_tmp, data_tmp)
52857  ipack = ipack + 1
52858  packed_data(ipack) = pack_tmp
52859  data_tmp = full_data(idata)
52860  pack_tmp = ishft(data_tmp, 5)
52861  pack_tmp = ishft(pack_tmp, -5)
52862  idata = idata + 1
52863  data_tmp = full_data(idata)
52864  data_tmp = ishft(data_tmp, 1)
52865  data_tmp = iand(data_tmp, mask_left(5))
52866  pack_tmp = ior(pack_tmp, data_tmp)
52867  ipack = ipack + 1
52868  packed_data(ipack) = pack_tmp
52869  data_tmp = full_data(idata)
52870  pack_tmp = ishft(data_tmp, 6)
52871  pack_tmp = ishft(pack_tmp, -6)
52872  idata = idata + 1
52873  data_tmp = full_data(idata)
52874  data_tmp = ishft(data_tmp, 1)
52875  data_tmp = iand(data_tmp, mask_left(6))
52876  pack_tmp = ior(pack_tmp, data_tmp)
52877  ipack = ipack + 1
52878  packed_data(ipack) = pack_tmp
52879  data_tmp = full_data(idata)
52880  pack_tmp = ishft(data_tmp, 7)
52881  pack_tmp = ishft(pack_tmp, -7)
52882  idata = idata + 1
52883  data_tmp = full_data(idata)
52884  data_tmp = ishft(data_tmp, 1)
52885  data_tmp = iand(data_tmp, mask_left(7))
52886  pack_tmp = ior(pack_tmp, data_tmp)
52887  ipack = ipack + 1
52888  packed_data(ipack) = pack_tmp
52889  data_tmp = full_data(idata)
52890  pack_tmp = ishft(data_tmp, 8)
52891  pack_tmp = ishft(pack_tmp, -8)
52892  idata = idata + 1
52893  data_tmp = full_data(idata)
52894  data_tmp = ishft(data_tmp, 1)
52895  data_tmp = iand(data_tmp, mask_left(8))
52896  pack_tmp = ior(pack_tmp, data_tmp)
52897  ipack = ipack + 1
52898  packed_data(ipack) = pack_tmp
52899  data_tmp = full_data(idata)
52900  pack_tmp = ishft(data_tmp, 9)
52901  pack_tmp = ishft(pack_tmp, -9)
52902  idata = idata + 1
52903  data_tmp = full_data(idata)
52904  data_tmp = ishft(data_tmp, 1)
52905  data_tmp = iand(data_tmp, mask_left(9))
52906  pack_tmp = ior(pack_tmp, data_tmp)
52907  ipack = ipack + 1
52908  packed_data(ipack) = pack_tmp
52909  data_tmp = full_data(idata)
52910  pack_tmp = ishft(data_tmp, 10)
52911  pack_tmp = ishft(pack_tmp, -10)
52912  idata = idata + 1
52913  data_tmp = full_data(idata)
52914  data_tmp = ishft(data_tmp, 1)
52915  data_tmp = iand(data_tmp, mask_left(10))
52916  pack_tmp = ior(pack_tmp, data_tmp)
52917  ipack = ipack + 1
52918  packed_data(ipack) = pack_tmp
52919  data_tmp = full_data(idata)
52920  pack_tmp = ishft(data_tmp, 11)
52921  pack_tmp = ishft(pack_tmp, -11)
52922  idata = idata + 1
52923  data_tmp = full_data(idata)
52924  data_tmp = ishft(data_tmp, 1)
52925  data_tmp = iand(data_tmp, mask_left(11))
52926  pack_tmp = ior(pack_tmp, data_tmp)
52927  ipack = ipack + 1
52928  packed_data(ipack) = pack_tmp
52929  data_tmp = full_data(idata)
52930  pack_tmp = ishft(data_tmp, 12)
52931  pack_tmp = ishft(pack_tmp, -12)
52932  idata = idata + 1
52933  data_tmp = full_data(idata)
52934  data_tmp = ishft(data_tmp, 1)
52935  data_tmp = iand(data_tmp, mask_left(12))
52936  pack_tmp = ior(pack_tmp, data_tmp)
52937  ipack = ipack + 1
52938  packed_data(ipack) = pack_tmp
52939  data_tmp = full_data(idata)
52940  pack_tmp = ishft(data_tmp, 13)
52941  pack_tmp = ishft(pack_tmp, -13)
52942  idata = idata + 1
52943  data_tmp = full_data(idata)
52944  data_tmp = ishft(data_tmp, 1)
52945  data_tmp = iand(data_tmp, mask_left(13))
52946  pack_tmp = ior(pack_tmp, data_tmp)
52947  ipack = ipack + 1
52948  packed_data(ipack) = pack_tmp
52949  data_tmp = full_data(idata)
52950  pack_tmp = ishft(data_tmp, 14)
52951  pack_tmp = ishft(pack_tmp, -14)
52952  idata = idata + 1
52953  data_tmp = full_data(idata)
52954  data_tmp = ishft(data_tmp, 1)
52955  data_tmp = iand(data_tmp, mask_left(14))
52956  pack_tmp = ior(pack_tmp, data_tmp)
52957  ipack = ipack + 1
52958  packed_data(ipack) = pack_tmp
52959  data_tmp = full_data(idata)
52960  pack_tmp = ishft(data_tmp, 15)
52961  pack_tmp = ishft(pack_tmp, -15)
52962  idata = idata + 1
52963  data_tmp = full_data(idata)
52964  data_tmp = ishft(data_tmp, 1)
52965  data_tmp = iand(data_tmp, mask_left(15))
52966  pack_tmp = ior(pack_tmp, data_tmp)
52967  ipack = ipack + 1
52968  packed_data(ipack) = pack_tmp
52969  data_tmp = full_data(idata)
52970  pack_tmp = ishft(data_tmp, 16)
52971  pack_tmp = ishft(pack_tmp, -16)
52972  idata = idata + 1
52973  data_tmp = full_data(idata)
52974  data_tmp = ishft(data_tmp, 1)
52975  data_tmp = iand(data_tmp, mask_left(16))
52976  pack_tmp = ior(pack_tmp, data_tmp)
52977  ipack = ipack + 1
52978  packed_data(ipack) = pack_tmp
52979  data_tmp = full_data(idata)
52980  pack_tmp = ishft(data_tmp, 17)
52981  pack_tmp = ishft(pack_tmp, -17)
52982  idata = idata + 1
52983  data_tmp = full_data(idata)
52984  data_tmp = ishft(data_tmp, 1)
52985  data_tmp = iand(data_tmp, mask_left(17))
52986  pack_tmp = ior(pack_tmp, data_tmp)
52987  ipack = ipack + 1
52988  packed_data(ipack) = pack_tmp
52989  data_tmp = full_data(idata)
52990  pack_tmp = ishft(data_tmp, 18)
52991  pack_tmp = ishft(pack_tmp, -18)
52992  idata = idata + 1
52993  data_tmp = full_data(idata)
52994  data_tmp = ishft(data_tmp, 1)
52995  data_tmp = iand(data_tmp, mask_left(18))
52996  pack_tmp = ior(pack_tmp, data_tmp)
52997  ipack = ipack + 1
52998  packed_data(ipack) = pack_tmp
52999  data_tmp = full_data(idata)
53000  pack_tmp = ishft(data_tmp, 19)
53001  pack_tmp = ishft(pack_tmp, -19)
53002  idata = idata + 1
53003  data_tmp = full_data(idata)
53004  data_tmp = ishft(data_tmp, 1)
53005  data_tmp = iand(data_tmp, mask_left(19))
53006  pack_tmp = ior(pack_tmp, data_tmp)
53007  ipack = ipack + 1
53008  packed_data(ipack) = pack_tmp
53009  data_tmp = full_data(idata)
53010  pack_tmp = ishft(data_tmp, 20)
53011  pack_tmp = ishft(pack_tmp, -20)
53012  idata = idata + 1
53013  data_tmp = full_data(idata)
53014  data_tmp = ishft(data_tmp, 1)
53015  data_tmp = iand(data_tmp, mask_left(20))
53016  pack_tmp = ior(pack_tmp, data_tmp)
53017  ipack = ipack + 1
53018  packed_data(ipack) = pack_tmp
53019  data_tmp = full_data(idata)
53020  pack_tmp = ishft(data_tmp, 21)
53021  pack_tmp = ishft(pack_tmp, -21)
53022  idata = idata + 1
53023  data_tmp = full_data(idata)
53024  data_tmp = ishft(data_tmp, 1)
53025  data_tmp = iand(data_tmp, mask_left(21))
53026  pack_tmp = ior(pack_tmp, data_tmp)
53027  ipack = ipack + 1
53028  packed_data(ipack) = pack_tmp
53029  data_tmp = full_data(idata)
53030  pack_tmp = ishft(data_tmp, 22)
53031  pack_tmp = ishft(pack_tmp, -22)
53032  idata = idata + 1
53033  data_tmp = full_data(idata)
53034  data_tmp = ishft(data_tmp, 1)
53035  data_tmp = iand(data_tmp, mask_left(22))
53036  pack_tmp = ior(pack_tmp, data_tmp)
53037  ipack = ipack + 1
53038  packed_data(ipack) = pack_tmp
53039  data_tmp = full_data(idata)
53040  pack_tmp = ishft(data_tmp, 23)
53041  pack_tmp = ishft(pack_tmp, -23)
53042  idata = idata + 1
53043  data_tmp = full_data(idata)
53044  data_tmp = ishft(data_tmp, 1)
53045  data_tmp = iand(data_tmp, mask_left(23))
53046  pack_tmp = ior(pack_tmp, data_tmp)
53047  ipack = ipack + 1
53048  packed_data(ipack) = pack_tmp
53049  data_tmp = full_data(idata)
53050  pack_tmp = ishft(data_tmp, 24)
53051  pack_tmp = ishft(pack_tmp, -24)
53052  idata = idata + 1
53053  data_tmp = full_data(idata)
53054  data_tmp = ishft(data_tmp, 1)
53055  data_tmp = iand(data_tmp, mask_left(24))
53056  pack_tmp = ior(pack_tmp, data_tmp)
53057  ipack = ipack + 1
53058  packed_data(ipack) = pack_tmp
53059  data_tmp = full_data(idata)
53060  pack_tmp = ishft(data_tmp, 25)
53061  pack_tmp = ishft(pack_tmp, -25)
53062  idata = idata + 1
53063  data_tmp = full_data(idata)
53064  data_tmp = ishft(data_tmp, 1)
53065  data_tmp = iand(data_tmp, mask_left(25))
53066  pack_tmp = ior(pack_tmp, data_tmp)
53067  ipack = ipack + 1
53068  packed_data(ipack) = pack_tmp
53069  data_tmp = full_data(idata)
53070  pack_tmp = ishft(data_tmp, 26)
53071  pack_tmp = ishft(pack_tmp, -26)
53072  idata = idata + 1
53073  data_tmp = full_data(idata)
53074  data_tmp = ishft(data_tmp, 1)
53075  data_tmp = iand(data_tmp, mask_left(26))
53076  pack_tmp = ior(pack_tmp, data_tmp)
53077  ipack = ipack + 1
53078  packed_data(ipack) = pack_tmp
53079  data_tmp = full_data(idata)
53080  pack_tmp = ishft(data_tmp, 27)
53081  pack_tmp = ishft(pack_tmp, -27)
53082  idata = idata + 1
53083  data_tmp = full_data(idata)
53084  data_tmp = ishft(data_tmp, 1)
53085  data_tmp = iand(data_tmp, mask_left(27))
53086  pack_tmp = ior(pack_tmp, data_tmp)
53087  ipack = ipack + 1
53088  packed_data(ipack) = pack_tmp
53089  data_tmp = full_data(idata)
53090  pack_tmp = ishft(data_tmp, 28)
53091  pack_tmp = ishft(pack_tmp, -28)
53092  idata = idata + 1
53093  data_tmp = full_data(idata)
53094  data_tmp = ishft(data_tmp, 1)
53095  data_tmp = iand(data_tmp, mask_left(28))
53096  pack_tmp = ior(pack_tmp, data_tmp)
53097  ipack = ipack + 1
53098  packed_data(ipack) = pack_tmp
53099  data_tmp = full_data(idata)
53100  pack_tmp = ishft(data_tmp, 29)
53101  pack_tmp = ishft(pack_tmp, -29)
53102  idata = idata + 1
53103  data_tmp = full_data(idata)
53104  data_tmp = ishft(data_tmp, 1)
53105  data_tmp = iand(data_tmp, mask_left(29))
53106  pack_tmp = ior(pack_tmp, data_tmp)
53107  ipack = ipack + 1
53108  packed_data(ipack) = pack_tmp
53109  data_tmp = full_data(idata)
53110  pack_tmp = ishft(data_tmp, 30)
53111  pack_tmp = ishft(pack_tmp, -30)
53112  idata = idata + 1
53113  data_tmp = full_data(idata)
53114  data_tmp = ishft(data_tmp, 1)
53115  data_tmp = iand(data_tmp, mask_left(30))
53116  pack_tmp = ior(pack_tmp, data_tmp)
53117  ipack = ipack + 1
53118  packed_data(ipack) = pack_tmp
53119  data_tmp = full_data(idata)
53120  pack_tmp = ishft(data_tmp, 31)
53121  pack_tmp = ishft(pack_tmp, -31)
53122  idata = idata + 1
53123  data_tmp = full_data(idata)
53124  data_tmp = ishft(data_tmp, 1)
53125  data_tmp = iand(data_tmp, mask_left(31))
53126  pack_tmp = ior(pack_tmp, data_tmp)
53127  ipack = ipack + 1
53128  packed_data(ipack) = pack_tmp
53129  data_tmp = full_data(idata)
53130  pack_tmp = ishft(data_tmp, 32)
53131  pack_tmp = ishft(pack_tmp, -32)
53132  idata = idata + 1
53133  data_tmp = full_data(idata)
53134  data_tmp = ishft(data_tmp, 1)
53135  data_tmp = iand(data_tmp, mask_left(32))
53136  pack_tmp = ior(pack_tmp, data_tmp)
53137  ipack = ipack + 1
53138  packed_data(ipack) = pack_tmp
53139  data_tmp = full_data(idata)
53140  pack_tmp = ishft(data_tmp, 33)
53141  pack_tmp = ishft(pack_tmp, -33)
53142  idata = idata + 1
53143  data_tmp = full_data(idata)
53144  data_tmp = ishft(data_tmp, 1)
53145  data_tmp = iand(data_tmp, mask_left(33))
53146  pack_tmp = ior(pack_tmp, data_tmp)
53147  ipack = ipack + 1
53148  packed_data(ipack) = pack_tmp
53149  data_tmp = full_data(idata)
53150  pack_tmp = ishft(data_tmp, 34)
53151  pack_tmp = ishft(pack_tmp, -34)
53152  idata = idata + 1
53153  data_tmp = full_data(idata)
53154  data_tmp = ishft(data_tmp, 1)
53155  data_tmp = iand(data_tmp, mask_left(34))
53156  pack_tmp = ior(pack_tmp, data_tmp)
53157  ipack = ipack + 1
53158  packed_data(ipack) = pack_tmp
53159  data_tmp = full_data(idata)
53160  pack_tmp = ishft(data_tmp, 35)
53161  pack_tmp = ishft(pack_tmp, -35)
53162  idata = idata + 1
53163  data_tmp = full_data(idata)
53164  data_tmp = ishft(data_tmp, 1)
53165  data_tmp = iand(data_tmp, mask_left(35))
53166  pack_tmp = ior(pack_tmp, data_tmp)
53167  ipack = ipack + 1
53168  packed_data(ipack) = pack_tmp
53169  data_tmp = full_data(idata)
53170  pack_tmp = ishft(data_tmp, 36)
53171  pack_tmp = ishft(pack_tmp, -36)
53172  idata = idata + 1
53173  data_tmp = full_data(idata)
53174  data_tmp = ishft(data_tmp, 1)
53175  data_tmp = iand(data_tmp, mask_left(36))
53176  pack_tmp = ior(pack_tmp, data_tmp)
53177  ipack = ipack + 1
53178  packed_data(ipack) = pack_tmp
53179  data_tmp = full_data(idata)
53180  pack_tmp = ishft(data_tmp, 37)
53181  pack_tmp = ishft(pack_tmp, -37)
53182  idata = idata + 1
53183  data_tmp = full_data(idata)
53184  data_tmp = ishft(data_tmp, 1)
53185  data_tmp = iand(data_tmp, mask_left(37))
53186  pack_tmp = ior(pack_tmp, data_tmp)
53187  ipack = ipack + 1
53188  packed_data(ipack) = pack_tmp
53189  data_tmp = full_data(idata)
53190  pack_tmp = ishft(data_tmp, 38)
53191  pack_tmp = ishft(pack_tmp, -38)
53192  idata = idata + 1
53193  data_tmp = full_data(idata)
53194  data_tmp = ishft(data_tmp, 1)
53195  data_tmp = iand(data_tmp, mask_left(38))
53196  pack_tmp = ior(pack_tmp, data_tmp)
53197  ipack = ipack + 1
53198  packed_data(ipack) = pack_tmp
53199  data_tmp = full_data(idata)
53200  pack_tmp = ishft(data_tmp, 39)
53201  pack_tmp = ishft(pack_tmp, -39)
53202  idata = idata + 1
53203  data_tmp = full_data(idata)
53204  data_tmp = ishft(data_tmp, 1)
53205  data_tmp = iand(data_tmp, mask_left(39))
53206  pack_tmp = ior(pack_tmp, data_tmp)
53207  ipack = ipack + 1
53208  packed_data(ipack) = pack_tmp
53209  data_tmp = full_data(idata)
53210  pack_tmp = ishft(data_tmp, 40)
53211  pack_tmp = ishft(pack_tmp, -40)
53212  idata = idata + 1
53213  data_tmp = full_data(idata)
53214  data_tmp = ishft(data_tmp, 1)
53215  data_tmp = iand(data_tmp, mask_left(40))
53216  pack_tmp = ior(pack_tmp, data_tmp)
53217  ipack = ipack + 1
53218  packed_data(ipack) = pack_tmp
53219  data_tmp = full_data(idata)
53220  pack_tmp = ishft(data_tmp, 41)
53221  pack_tmp = ishft(pack_tmp, -41)
53222  idata = idata + 1
53223  data_tmp = full_data(idata)
53224  data_tmp = ishft(data_tmp, 1)
53225  data_tmp = iand(data_tmp, mask_left(41))
53226  pack_tmp = ior(pack_tmp, data_tmp)
53227  ipack = ipack + 1
53228  packed_data(ipack) = pack_tmp
53229  data_tmp = full_data(idata)
53230  pack_tmp = ishft(data_tmp, 42)
53231  pack_tmp = ishft(pack_tmp, -42)
53232  idata = idata + 1
53233  data_tmp = full_data(idata)
53234  data_tmp = ishft(data_tmp, 1)
53235  data_tmp = iand(data_tmp, mask_left(42))
53236  pack_tmp = ior(pack_tmp, data_tmp)
53237  ipack = ipack + 1
53238  packed_data(ipack) = pack_tmp
53239  data_tmp = full_data(idata)
53240  pack_tmp = ishft(data_tmp, 43)
53241  pack_tmp = ishft(pack_tmp, -43)
53242  idata = idata + 1
53243  data_tmp = full_data(idata)
53244  data_tmp = ishft(data_tmp, 1)
53245  data_tmp = iand(data_tmp, mask_left(43))
53246  pack_tmp = ior(pack_tmp, data_tmp)
53247  ipack = ipack + 1
53248  packed_data(ipack) = pack_tmp
53249  data_tmp = full_data(idata)
53250  pack_tmp = ishft(data_tmp, 44)
53251  pack_tmp = ishft(pack_tmp, -44)
53252  idata = idata + 1
53253  data_tmp = full_data(idata)
53254  data_tmp = ishft(data_tmp, 1)
53255  data_tmp = iand(data_tmp, mask_left(44))
53256  pack_tmp = ior(pack_tmp, data_tmp)
53257  ipack = ipack + 1
53258  packed_data(ipack) = pack_tmp
53259  data_tmp = full_data(idata)
53260  pack_tmp = ishft(data_tmp, 45)
53261  pack_tmp = ishft(pack_tmp, -45)
53262  idata = idata + 1
53263  data_tmp = full_data(idata)
53264  data_tmp = ishft(data_tmp, 1)
53265  data_tmp = iand(data_tmp, mask_left(45))
53266  pack_tmp = ior(pack_tmp, data_tmp)
53267  ipack = ipack + 1
53268  packed_data(ipack) = pack_tmp
53269  data_tmp = full_data(idata)
53270  pack_tmp = ishft(data_tmp, 46)
53271  pack_tmp = ishft(pack_tmp, -46)
53272  idata = idata + 1
53273  data_tmp = full_data(idata)
53274  data_tmp = ishft(data_tmp, 1)
53275  data_tmp = iand(data_tmp, mask_left(46))
53276  pack_tmp = ior(pack_tmp, data_tmp)
53277  ipack = ipack + 1
53278  packed_data(ipack) = pack_tmp
53279  data_tmp = full_data(idata)
53280  pack_tmp = ishft(data_tmp, 47)
53281  pack_tmp = ishft(pack_tmp, -47)
53282  idata = idata + 1
53283  data_tmp = full_data(idata)
53284  data_tmp = ishft(data_tmp, 1)
53285  data_tmp = iand(data_tmp, mask_left(47))
53286  pack_tmp = ior(pack_tmp, data_tmp)
53287  ipack = ipack + 1
53288  packed_data(ipack) = pack_tmp
53289  data_tmp = full_data(idata)
53290  pack_tmp = ishft(data_tmp, 48)
53291  pack_tmp = ishft(pack_tmp, -48)
53292  idata = idata + 1
53293  data_tmp = full_data(idata)
53294  data_tmp = ishft(data_tmp, 1)
53295  data_tmp = iand(data_tmp, mask_left(48))
53296  pack_tmp = ior(pack_tmp, data_tmp)
53297  ipack = ipack + 1
53298  packed_data(ipack) = pack_tmp
53299  data_tmp = full_data(idata)
53300  pack_tmp = ishft(data_tmp, 49)
53301  pack_tmp = ishft(pack_tmp, -49)
53302  idata = idata + 1
53303  data_tmp = full_data(idata)
53304  data_tmp = ishft(data_tmp, 1)
53305  data_tmp = iand(data_tmp, mask_left(49))
53306  pack_tmp = ior(pack_tmp, data_tmp)
53307  ipack = ipack + 1
53308  packed_data(ipack) = pack_tmp
53309  data_tmp = full_data(idata)
53310  pack_tmp = ishft(data_tmp, 50)
53311  pack_tmp = ishft(pack_tmp, -50)
53312  idata = idata + 1
53313  data_tmp = full_data(idata)
53314  data_tmp = ishft(data_tmp, 1)
53315  data_tmp = iand(data_tmp, mask_left(50))
53316  pack_tmp = ior(pack_tmp, data_tmp)
53317  ipack = ipack + 1
53318  packed_data(ipack) = pack_tmp
53319  data_tmp = full_data(idata)
53320  pack_tmp = ishft(data_tmp, 51)
53321  pack_tmp = ishft(pack_tmp, -51)
53322  idata = idata + 1
53323  data_tmp = full_data(idata)
53324  data_tmp = ishft(data_tmp, 1)
53325  data_tmp = iand(data_tmp, mask_left(51))
53326  pack_tmp = ior(pack_tmp, data_tmp)
53327  ipack = ipack + 1
53328  packed_data(ipack) = pack_tmp
53329  data_tmp = full_data(idata)
53330  pack_tmp = ishft(data_tmp, 52)
53331  pack_tmp = ishft(pack_tmp, -52)
53332  idata = idata + 1
53333  data_tmp = full_data(idata)
53334  data_tmp = ishft(data_tmp, 1)
53335  data_tmp = iand(data_tmp, mask_left(52))
53336  pack_tmp = ior(pack_tmp, data_tmp)
53337  ipack = ipack + 1
53338  packed_data(ipack) = pack_tmp
53339  data_tmp = full_data(idata)
53340  pack_tmp = ishft(data_tmp, 53)
53341  pack_tmp = ishft(pack_tmp, -53)
53342  idata = idata + 1
53343  data_tmp = full_data(idata)
53344  data_tmp = ishft(data_tmp, 1)
53345  data_tmp = iand(data_tmp, mask_left(53))
53346  pack_tmp = ior(pack_tmp, data_tmp)
53347  ipack = ipack + 1
53348  packed_data(ipack) = pack_tmp
53349  data_tmp = full_data(idata)
53350  pack_tmp = ishft(data_tmp, 54)
53351  pack_tmp = ishft(pack_tmp, -54)
53352  idata = idata + 1
53353  data_tmp = full_data(idata)
53354  data_tmp = ishft(data_tmp, 1)
53355  data_tmp = iand(data_tmp, mask_left(54))
53356  pack_tmp = ior(pack_tmp, data_tmp)
53357  ipack = ipack + 1
53358  packed_data(ipack) = pack_tmp
53359  data_tmp = full_data(idata)
53360  pack_tmp = ishft(data_tmp, 55)
53361  pack_tmp = ishft(pack_tmp, -55)
53362  idata = idata + 1
53363  data_tmp = full_data(idata)
53364  data_tmp = ishft(data_tmp, 1)
53365  data_tmp = iand(data_tmp, mask_left(55))
53366  pack_tmp = ior(pack_tmp, data_tmp)
53367  ipack = ipack + 1
53368  packed_data(ipack) = pack_tmp
53369  data_tmp = full_data(idata)
53370  pack_tmp = ishft(data_tmp, 56)
53371  pack_tmp = ishft(pack_tmp, -56)
53372  idata = idata + 1
53373  data_tmp = full_data(idata)
53374  data_tmp = ishft(data_tmp, 1)
53375  data_tmp = iand(data_tmp, mask_left(56))
53376  pack_tmp = ior(pack_tmp, data_tmp)
53377  ipack = ipack + 1
53378  packed_data(ipack) = pack_tmp
53379  data_tmp = full_data(idata)
53380  pack_tmp = ishft(data_tmp, 57)
53381  pack_tmp = ishft(pack_tmp, -57)
53382  idata = idata + 1
53383  data_tmp = full_data(idata)
53384  data_tmp = ishft(data_tmp, 1)
53385  data_tmp = iand(data_tmp, mask_left(57))
53386  pack_tmp = ior(pack_tmp, data_tmp)
53387  ipack = ipack + 1
53388  packed_data(ipack) = pack_tmp
53389  data_tmp = full_data(idata)
53390  pack_tmp = ishft(data_tmp, 58)
53391  pack_tmp = ishft(pack_tmp, -58)
53392  idata = idata + 1
53393  data_tmp = full_data(idata)
53394  data_tmp = ishft(data_tmp, 1)
53395  data_tmp = iand(data_tmp, mask_left(58))
53396  pack_tmp = ior(pack_tmp, data_tmp)
53397  ipack = ipack + 1
53398  packed_data(ipack) = pack_tmp
53399  data_tmp = full_data(idata)
53400  pack_tmp = ishft(data_tmp, 59)
53401  pack_tmp = ishft(pack_tmp, -59)
53402  idata = idata + 1
53403  data_tmp = full_data(idata)
53404  data_tmp = ishft(data_tmp, 1)
53405  data_tmp = iand(data_tmp, mask_left(59))
53406  pack_tmp = ior(pack_tmp, data_tmp)
53407  ipack = ipack + 1
53408  packed_data(ipack) = pack_tmp
53409  data_tmp = full_data(idata)
53410  pack_tmp = ishft(data_tmp, 60)
53411  pack_tmp = ishft(pack_tmp, -60)
53412  idata = idata + 1
53413  data_tmp = full_data(idata)
53414  data_tmp = ishft(data_tmp, 1)
53415  data_tmp = iand(data_tmp, mask_left(60))
53416  pack_tmp = ior(pack_tmp, data_tmp)
53417  ipack = ipack + 1
53418  packed_data(ipack) = pack_tmp
53419  data_tmp = full_data(idata)
53420  pack_tmp = ishft(data_tmp, 61)
53421  pack_tmp = ishft(pack_tmp, -61)
53422  idata = idata + 1
53423  data_tmp = full_data(idata)
53424  data_tmp = ishft(data_tmp, 1)
53425  data_tmp = iand(data_tmp, mask_left(61))
53426  pack_tmp = ior(pack_tmp, data_tmp)
53427  ipack = ipack + 1
53428  packed_data(ipack) = pack_tmp
53429  data_tmp = full_data(idata)
53430  pack_tmp = ishft(data_tmp, 62)
53431  pack_tmp = ishft(pack_tmp, -62)
53432  idata = idata + 1
53433  data_tmp = full_data(idata)
53434  data_tmp = ishft(data_tmp, 1)
53435  data_tmp = iand(data_tmp, mask_left(62))
53436  pack_tmp = ior(pack_tmp, data_tmp)
53437  ipack = ipack + 1
53438  packed_data(ipack) = pack_tmp
53439  data_tmp = full_data(idata)
53440  pack_tmp = ishft(data_tmp, 63)
53441  pack_tmp = ishft(pack_tmp, -63)
53442  idata = idata + 1
53443  data_tmp = full_data(idata)
53444  data_tmp = ishft(data_tmp, 1)
53445  pack_tmp = ior(pack_tmp, data_tmp)
53446  pack_tmp = ishft(pack_tmp, 0)
53447  pack_tmp = ishft(pack_tmp, 0)
53448  ipack = ipack + 1
53449  packed_data(ipack) = pack_tmp
53450  END DO
53451  IF (ndata_rep < ndata) THEN
53452  CALL ints2bits_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
53453  END IF
53454  END SUBROUTINE ints2bits_63
53455 
53456 ! **************************************************************************************************
53457 !> \brief ...
53458 !> \param Ndata ...
53459 !> \param packed_data ...
53460 !> \param full_data ...
53461 ! **************************************************************************************************
53462  SUBROUTINE bits2ints_63(Ndata, packed_data, full_data)
53463  INTEGER, INTENT(IN) :: Ndata
53464  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
53465  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
53466 
53467  INTEGER, PARAMETER :: Nbits = 63
53468 
53469  INTEGER :: idata, ipack, kdata, Ndata_rep
53470  INTEGER(KIND=int_8) :: data_tmp, pack_tmp
53471 
53472  ipack = 0
53473  idata = 0
53474  pack_tmp = 0
53475  ndata_rep = (ndata/64)*64
53476  DO kdata = 1, ndata_rep, 64
53477  idata = idata + 1
53478  data_tmp = ishft(pack_tmp, 63)
53479  ipack = ipack + 1
53480  pack_tmp = packed_data(ipack)
53481  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(63)))
53482  pack_tmp = ishft(pack_tmp, -63)
53483  idata = idata + 1
53484  data_tmp = ishft(pack_tmp, 62)
53485  ipack = ipack + 1
53486  pack_tmp = packed_data(ipack)
53487  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(62)))
53488  pack_tmp = ishft(pack_tmp, -62)
53489  idata = idata + 1
53490  data_tmp = ishft(pack_tmp, 61)
53491  ipack = ipack + 1
53492  pack_tmp = packed_data(ipack)
53493  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(61)))
53494  pack_tmp = ishft(pack_tmp, -61)
53495  idata = idata + 1
53496  data_tmp = ishft(pack_tmp, 60)
53497  ipack = ipack + 1
53498  pack_tmp = packed_data(ipack)
53499  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(60)))
53500  pack_tmp = ishft(pack_tmp, -60)
53501  idata = idata + 1
53502  data_tmp = ishft(pack_tmp, 59)
53503  ipack = ipack + 1
53504  pack_tmp = packed_data(ipack)
53505  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(59)))
53506  pack_tmp = ishft(pack_tmp, -59)
53507  idata = idata + 1
53508  data_tmp = ishft(pack_tmp, 58)
53509  ipack = ipack + 1
53510  pack_tmp = packed_data(ipack)
53511  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(58)))
53512  pack_tmp = ishft(pack_tmp, -58)
53513  idata = idata + 1
53514  data_tmp = ishft(pack_tmp, 57)
53515  ipack = ipack + 1
53516  pack_tmp = packed_data(ipack)
53517  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(57)))
53518  pack_tmp = ishft(pack_tmp, -57)
53519  idata = idata + 1
53520  data_tmp = ishft(pack_tmp, 56)
53521  ipack = ipack + 1
53522  pack_tmp = packed_data(ipack)
53523  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(56)))
53524  pack_tmp = ishft(pack_tmp, -56)
53525  idata = idata + 1
53526  data_tmp = ishft(pack_tmp, 55)
53527  ipack = ipack + 1
53528  pack_tmp = packed_data(ipack)
53529  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(55)))
53530  pack_tmp = ishft(pack_tmp, -55)
53531  idata = idata + 1
53532  data_tmp = ishft(pack_tmp, 54)
53533  ipack = ipack + 1
53534  pack_tmp = packed_data(ipack)
53535  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(54)))
53536  pack_tmp = ishft(pack_tmp, -54)
53537  idata = idata + 1
53538  data_tmp = ishft(pack_tmp, 53)
53539  ipack = ipack + 1
53540  pack_tmp = packed_data(ipack)
53541  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(53)))
53542  pack_tmp = ishft(pack_tmp, -53)
53543  idata = idata + 1
53544  data_tmp = ishft(pack_tmp, 52)
53545  ipack = ipack + 1
53546  pack_tmp = packed_data(ipack)
53547  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(52)))
53548  pack_tmp = ishft(pack_tmp, -52)
53549  idata = idata + 1
53550  data_tmp = ishft(pack_tmp, 51)
53551  ipack = ipack + 1
53552  pack_tmp = packed_data(ipack)
53553  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(51)))
53554  pack_tmp = ishft(pack_tmp, -51)
53555  idata = idata + 1
53556  data_tmp = ishft(pack_tmp, 50)
53557  ipack = ipack + 1
53558  pack_tmp = packed_data(ipack)
53559  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(50)))
53560  pack_tmp = ishft(pack_tmp, -50)
53561  idata = idata + 1
53562  data_tmp = ishft(pack_tmp, 49)
53563  ipack = ipack + 1
53564  pack_tmp = packed_data(ipack)
53565  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(49)))
53566  pack_tmp = ishft(pack_tmp, -49)
53567  idata = idata + 1
53568  data_tmp = ishft(pack_tmp, 48)
53569  ipack = ipack + 1
53570  pack_tmp = packed_data(ipack)
53571  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(48)))
53572  pack_tmp = ishft(pack_tmp, -48)
53573  idata = idata + 1
53574  data_tmp = ishft(pack_tmp, 47)
53575  ipack = ipack + 1
53576  pack_tmp = packed_data(ipack)
53577  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(47)))
53578  pack_tmp = ishft(pack_tmp, -47)
53579  idata = idata + 1
53580  data_tmp = ishft(pack_tmp, 46)
53581  ipack = ipack + 1
53582  pack_tmp = packed_data(ipack)
53583  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(46)))
53584  pack_tmp = ishft(pack_tmp, -46)
53585  idata = idata + 1
53586  data_tmp = ishft(pack_tmp, 45)
53587  ipack = ipack + 1
53588  pack_tmp = packed_data(ipack)
53589  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(45)))
53590  pack_tmp = ishft(pack_tmp, -45)
53591  idata = idata + 1
53592  data_tmp = ishft(pack_tmp, 44)
53593  ipack = ipack + 1
53594  pack_tmp = packed_data(ipack)
53595  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(44)))
53596  pack_tmp = ishft(pack_tmp, -44)
53597  idata = idata + 1
53598  data_tmp = ishft(pack_tmp, 43)
53599  ipack = ipack + 1
53600  pack_tmp = packed_data(ipack)
53601  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(43)))
53602  pack_tmp = ishft(pack_tmp, -43)
53603  idata = idata + 1
53604  data_tmp = ishft(pack_tmp, 42)
53605  ipack = ipack + 1
53606  pack_tmp = packed_data(ipack)
53607  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(42)))
53608  pack_tmp = ishft(pack_tmp, -42)
53609  idata = idata + 1
53610  data_tmp = ishft(pack_tmp, 41)
53611  ipack = ipack + 1
53612  pack_tmp = packed_data(ipack)
53613  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(41)))
53614  pack_tmp = ishft(pack_tmp, -41)
53615  idata = idata + 1
53616  data_tmp = ishft(pack_tmp, 40)
53617  ipack = ipack + 1
53618  pack_tmp = packed_data(ipack)
53619  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(40)))
53620  pack_tmp = ishft(pack_tmp, -40)
53621  idata = idata + 1
53622  data_tmp = ishft(pack_tmp, 39)
53623  ipack = ipack + 1
53624  pack_tmp = packed_data(ipack)
53625  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(39)))
53626  pack_tmp = ishft(pack_tmp, -39)
53627  idata = idata + 1
53628  data_tmp = ishft(pack_tmp, 38)
53629  ipack = ipack + 1
53630  pack_tmp = packed_data(ipack)
53631  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(38)))
53632  pack_tmp = ishft(pack_tmp, -38)
53633  idata = idata + 1
53634  data_tmp = ishft(pack_tmp, 37)
53635  ipack = ipack + 1
53636  pack_tmp = packed_data(ipack)
53637  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(37)))
53638  pack_tmp = ishft(pack_tmp, -37)
53639  idata = idata + 1
53640  data_tmp = ishft(pack_tmp, 36)
53641  ipack = ipack + 1
53642  pack_tmp = packed_data(ipack)
53643  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(36)))
53644  pack_tmp = ishft(pack_tmp, -36)
53645  idata = idata + 1
53646  data_tmp = ishft(pack_tmp, 35)
53647  ipack = ipack + 1
53648  pack_tmp = packed_data(ipack)
53649  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(35)))
53650  pack_tmp = ishft(pack_tmp, -35)
53651  idata = idata + 1
53652  data_tmp = ishft(pack_tmp, 34)
53653  ipack = ipack + 1
53654  pack_tmp = packed_data(ipack)
53655  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(34)))
53656  pack_tmp = ishft(pack_tmp, -34)
53657  idata = idata + 1
53658  data_tmp = ishft(pack_tmp, 33)
53659  ipack = ipack + 1
53660  pack_tmp = packed_data(ipack)
53661  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(33)))
53662  pack_tmp = ishft(pack_tmp, -33)
53663  idata = idata + 1
53664  data_tmp = ishft(pack_tmp, 32)
53665  ipack = ipack + 1
53666  pack_tmp = packed_data(ipack)
53667  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(32)))
53668  pack_tmp = ishft(pack_tmp, -32)
53669  idata = idata + 1
53670  data_tmp = ishft(pack_tmp, 31)
53671  ipack = ipack + 1
53672  pack_tmp = packed_data(ipack)
53673  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(31)))
53674  pack_tmp = ishft(pack_tmp, -31)
53675  idata = idata + 1
53676  data_tmp = ishft(pack_tmp, 30)
53677  ipack = ipack + 1
53678  pack_tmp = packed_data(ipack)
53679  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(30)))
53680  pack_tmp = ishft(pack_tmp, -30)
53681  idata = idata + 1
53682  data_tmp = ishft(pack_tmp, 29)
53683  ipack = ipack + 1
53684  pack_tmp = packed_data(ipack)
53685  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(29)))
53686  pack_tmp = ishft(pack_tmp, -29)
53687  idata = idata + 1
53688  data_tmp = ishft(pack_tmp, 28)
53689  ipack = ipack + 1
53690  pack_tmp = packed_data(ipack)
53691  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(28)))
53692  pack_tmp = ishft(pack_tmp, -28)
53693  idata = idata + 1
53694  data_tmp = ishft(pack_tmp, 27)
53695  ipack = ipack + 1
53696  pack_tmp = packed_data(ipack)
53697  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(27)))
53698  pack_tmp = ishft(pack_tmp, -27)
53699  idata = idata + 1
53700  data_tmp = ishft(pack_tmp, 26)
53701  ipack = ipack + 1
53702  pack_tmp = packed_data(ipack)
53703  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(26)))
53704  pack_tmp = ishft(pack_tmp, -26)
53705  idata = idata + 1
53706  data_tmp = ishft(pack_tmp, 25)
53707  ipack = ipack + 1
53708  pack_tmp = packed_data(ipack)
53709  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(25)))
53710  pack_tmp = ishft(pack_tmp, -25)
53711  idata = idata + 1
53712  data_tmp = ishft(pack_tmp, 24)
53713  ipack = ipack + 1
53714  pack_tmp = packed_data(ipack)
53715  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(24)))
53716  pack_tmp = ishft(pack_tmp, -24)
53717  idata = idata + 1
53718  data_tmp = ishft(pack_tmp, 23)
53719  ipack = ipack + 1
53720  pack_tmp = packed_data(ipack)
53721  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(23)))
53722  pack_tmp = ishft(pack_tmp, -23)
53723  idata = idata + 1
53724  data_tmp = ishft(pack_tmp, 22)
53725  ipack = ipack + 1
53726  pack_tmp = packed_data(ipack)
53727  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(22)))
53728  pack_tmp = ishft(pack_tmp, -22)
53729  idata = idata + 1
53730  data_tmp = ishft(pack_tmp, 21)
53731  ipack = ipack + 1
53732  pack_tmp = packed_data(ipack)
53733  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(21)))
53734  pack_tmp = ishft(pack_tmp, -21)
53735  idata = idata + 1
53736  data_tmp = ishft(pack_tmp, 20)
53737  ipack = ipack + 1
53738  pack_tmp = packed_data(ipack)
53739  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(20)))
53740  pack_tmp = ishft(pack_tmp, -20)
53741  idata = idata + 1
53742  data_tmp = ishft(pack_tmp, 19)
53743  ipack = ipack + 1
53744  pack_tmp = packed_data(ipack)
53745  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(19)))
53746  pack_tmp = ishft(pack_tmp, -19)
53747  idata = idata + 1
53748  data_tmp = ishft(pack_tmp, 18)
53749  ipack = ipack + 1
53750  pack_tmp = packed_data(ipack)
53751  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(18)))
53752  pack_tmp = ishft(pack_tmp, -18)
53753  idata = idata + 1
53754  data_tmp = ishft(pack_tmp, 17)
53755  ipack = ipack + 1
53756  pack_tmp = packed_data(ipack)
53757  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(17)))
53758  pack_tmp = ishft(pack_tmp, -17)
53759  idata = idata + 1
53760  data_tmp = ishft(pack_tmp, 16)
53761  ipack = ipack + 1
53762  pack_tmp = packed_data(ipack)
53763  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(16)))
53764  pack_tmp = ishft(pack_tmp, -16)
53765  idata = idata + 1
53766  data_tmp = ishft(pack_tmp, 15)
53767  ipack = ipack + 1
53768  pack_tmp = packed_data(ipack)
53769  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(15)))
53770  pack_tmp = ishft(pack_tmp, -15)
53771  idata = idata + 1
53772  data_tmp = ishft(pack_tmp, 14)
53773  ipack = ipack + 1
53774  pack_tmp = packed_data(ipack)
53775  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(14)))
53776  pack_tmp = ishft(pack_tmp, -14)
53777  idata = idata + 1
53778  data_tmp = ishft(pack_tmp, 13)
53779  ipack = ipack + 1
53780  pack_tmp = packed_data(ipack)
53781  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(13)))
53782  pack_tmp = ishft(pack_tmp, -13)
53783  idata = idata + 1
53784  data_tmp = ishft(pack_tmp, 12)
53785  ipack = ipack + 1
53786  pack_tmp = packed_data(ipack)
53787  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(12)))
53788  pack_tmp = ishft(pack_tmp, -12)
53789  idata = idata + 1
53790  data_tmp = ishft(pack_tmp, 11)
53791  ipack = ipack + 1
53792  pack_tmp = packed_data(ipack)
53793  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(11)))
53794  pack_tmp = ishft(pack_tmp, -11)
53795  idata = idata + 1
53796  data_tmp = ishft(pack_tmp, 10)
53797  ipack = ipack + 1
53798  pack_tmp = packed_data(ipack)
53799  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(10)))
53800  pack_tmp = ishft(pack_tmp, -10)
53801  idata = idata + 1
53802  data_tmp = ishft(pack_tmp, 9)
53803  ipack = ipack + 1
53804  pack_tmp = packed_data(ipack)
53805  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(9)))
53806  pack_tmp = ishft(pack_tmp, -9)
53807  idata = idata + 1
53808  data_tmp = ishft(pack_tmp, 8)
53809  ipack = ipack + 1
53810  pack_tmp = packed_data(ipack)
53811  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(8)))
53812  pack_tmp = ishft(pack_tmp, -8)
53813  idata = idata + 1
53814  data_tmp = ishft(pack_tmp, 7)
53815  ipack = ipack + 1
53816  pack_tmp = packed_data(ipack)
53817  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(7)))
53818  pack_tmp = ishft(pack_tmp, -7)
53819  idata = idata + 1
53820  data_tmp = ishft(pack_tmp, 6)
53821  ipack = ipack + 1
53822  pack_tmp = packed_data(ipack)
53823  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(6)))
53824  pack_tmp = ishft(pack_tmp, -6)
53825  idata = idata + 1
53826  data_tmp = ishft(pack_tmp, 5)
53827  ipack = ipack + 1
53828  pack_tmp = packed_data(ipack)
53829  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(5)))
53830  pack_tmp = ishft(pack_tmp, -5)
53831  idata = idata + 1
53832  data_tmp = ishft(pack_tmp, 4)
53833  ipack = ipack + 1
53834  pack_tmp = packed_data(ipack)
53835  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(4)))
53836  pack_tmp = ishft(pack_tmp, -4)
53837  idata = idata + 1
53838  data_tmp = ishft(pack_tmp, 3)
53839  ipack = ipack + 1
53840  pack_tmp = packed_data(ipack)
53841  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(3)))
53842  pack_tmp = ishft(pack_tmp, -3)
53843  idata = idata + 1
53844  data_tmp = ishft(pack_tmp, 2)
53845  ipack = ipack + 1
53846  pack_tmp = packed_data(ipack)
53847  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(2)))
53848  pack_tmp = ishft(pack_tmp, -2)
53849  idata = idata + 1
53850  data_tmp = ishft(pack_tmp, 1)
53851  ipack = ipack + 1
53852  pack_tmp = packed_data(ipack)
53853  full_data(idata) = ior(data_tmp, iand(pack_tmp, mask_right(1)))
53854  pack_tmp = ishft(pack_tmp, -1)
53855  idata = idata + 1
53856  data_tmp = iand(pack_tmp, mask_right(nbits))
53857  full_data(idata) = data_tmp
53858  pack_tmp = ishft(pack_tmp, -nbits)
53859  END DO
53860  IF (ndata_rep < ndata) THEN
53861  CALL bits2ints_generic(nbits, ndata - ndata_rep, packed_data(ipack + 1), full_data(ndata_rep + 1))
53862  END IF
53863  END SUBROUTINE bits2ints_63
53864 
53865 ! **************************************************************************************************
53866 !> \brief ...
53867 !> \param Nbits ...
53868 !> \param Ndata ...
53869 !> \param packed_data ...
53870 !> \param full_data ...
53871 ! **************************************************************************************************
53872  SUBROUTINE ints2bits_specific(Nbits, Ndata, packed_data, full_data)
53873  INTEGER, INTENT(IN) :: nbits, ndata
53874  INTEGER(KIND=int_8), INTENT(OUT) :: packed_data(*)
53875  INTEGER(KIND=int_8), INTENT(IN) :: full_data(*)
53876 
53877  SELECT CASE (nbits)
53878  CASE (1)
53879  CALL ints2bits_1(ndata, packed_data, full_data)
53880  CASE (2)
53881  CALL ints2bits_2(ndata, packed_data, full_data)
53882  CASE (3)
53883  CALL ints2bits_3(ndata, packed_data, full_data)
53884  CASE (4)
53885  CALL ints2bits_4(ndata, packed_data, full_data)
53886  CASE (5)
53887  CALL ints2bits_5(ndata, packed_data, full_data)
53888  CASE (6)
53889  CALL ints2bits_6(ndata, packed_data, full_data)
53890  CASE (7)
53891  CALL ints2bits_7(ndata, packed_data, full_data)
53892  CASE (8)
53893  CALL ints2bits_8(ndata, packed_data, full_data)
53894  CASE (9)
53895  CALL ints2bits_9(ndata, packed_data, full_data)
53896  CASE (10)
53897  CALL ints2bits_10(ndata, packed_data, full_data)
53898  CASE (11)
53899  CALL ints2bits_11(ndata, packed_data, full_data)
53900  CASE (12)
53901  CALL ints2bits_12(ndata, packed_data, full_data)
53902  CASE (13)
53903  CALL ints2bits_13(ndata, packed_data, full_data)
53904  CASE (14)
53905  CALL ints2bits_14(ndata, packed_data, full_data)
53906  CASE (15)
53907  CALL ints2bits_15(ndata, packed_data, full_data)
53908  CASE (16)
53909  CALL ints2bits_16(ndata, packed_data, full_data)
53910  CASE (17)
53911  CALL ints2bits_17(ndata, packed_data, full_data)
53912  CASE (18)
53913  CALL ints2bits_18(ndata, packed_data, full_data)
53914  CASE (19)
53915  CALL ints2bits_19(ndata, packed_data, full_data)
53916  CASE (20)
53917  CALL ints2bits_20(ndata, packed_data, full_data)
53918  CASE (21)
53919  CALL ints2bits_21(ndata, packed_data, full_data)
53920  CASE (22)
53921  CALL ints2bits_22(ndata, packed_data, full_data)
53922  CASE (23)
53923  CALL ints2bits_23(ndata, packed_data, full_data)
53924  CASE (24)
53925  CALL ints2bits_24(ndata, packed_data, full_data)
53926  CASE (25)
53927  CALL ints2bits_25(ndata, packed_data, full_data)
53928  CASE (26)
53929  CALL ints2bits_26(ndata, packed_data, full_data)
53930  CASE (27)
53931  CALL ints2bits_27(ndata, packed_data, full_data)
53932  CASE (28)
53933  CALL ints2bits_28(ndata, packed_data, full_data)
53934  CASE (29)
53935  CALL ints2bits_29(ndata, packed_data, full_data)
53936  CASE (30)
53937  CALL ints2bits_30(ndata, packed_data, full_data)
53938  CASE (31)
53939  CALL ints2bits_31(ndata, packed_data, full_data)
53940  CASE (32)
53941  CALL ints2bits_32(ndata, packed_data, full_data)
53942  CASE (33)
53943  CALL ints2bits_33(ndata, packed_data, full_data)
53944  CASE (34)
53945  CALL ints2bits_34(ndata, packed_data, full_data)
53946  CASE (35)
53947  CALL ints2bits_35(ndata, packed_data, full_data)
53948  CASE (36)
53949  CALL ints2bits_36(ndata, packed_data, full_data)
53950  CASE (37)
53951  CALL ints2bits_37(ndata, packed_data, full_data)
53952  CASE (38)
53953  CALL ints2bits_38(ndata, packed_data, full_data)
53954  CASE (39)
53955  CALL ints2bits_39(ndata, packed_data, full_data)
53956  CASE (40)
53957  CALL ints2bits_40(ndata, packed_data, full_data)
53958  CASE (41)
53959  CALL ints2bits_41(ndata, packed_data, full_data)
53960  CASE (42)
53961  CALL ints2bits_42(ndata, packed_data, full_data)
53962  CASE (43)
53963  CALL ints2bits_43(ndata, packed_data, full_data)
53964  CASE (44)
53965  CALL ints2bits_44(ndata, packed_data, full_data)
53966  CASE (45)
53967  CALL ints2bits_45(ndata, packed_data, full_data)
53968  CASE (46)
53969  CALL ints2bits_46(ndata, packed_data, full_data)
53970  CASE (47)
53971  CALL ints2bits_47(ndata, packed_data, full_data)
53972  CASE (48)
53973  CALL ints2bits_48(ndata, packed_data, full_data)
53974  CASE (49)
53975  CALL ints2bits_49(ndata, packed_data, full_data)
53976  CASE (50)
53977  CALL ints2bits_50(ndata, packed_data, full_data)
53978  CASE (51)
53979  CALL ints2bits_51(ndata, packed_data, full_data)
53980  CASE (52)
53981  CALL ints2bits_52(ndata, packed_data, full_data)
53982  CASE (53)
53983  CALL ints2bits_53(ndata, packed_data, full_data)
53984  CASE (54)
53985  CALL ints2bits_54(ndata, packed_data, full_data)
53986  CASE (55)
53987  CALL ints2bits_55(ndata, packed_data, full_data)
53988  CASE (56)
53989  CALL ints2bits_56(ndata, packed_data, full_data)
53990  CASE (57)
53991  CALL ints2bits_57(ndata, packed_data, full_data)
53992  CASE (58)
53993  CALL ints2bits_58(ndata, packed_data, full_data)
53994  CASE (59)
53995  CALL ints2bits_59(ndata, packed_data, full_data)
53996  CASE (60)
53997  CALL ints2bits_60(ndata, packed_data, full_data)
53998  CASE (61)
53999  CALL ints2bits_61(ndata, packed_data, full_data)
54000  CASE (62)
54001  CALL ints2bits_62(ndata, packed_data, full_data)
54002  CASE (63)
54003  CALL ints2bits_63(ndata, packed_data, full_data)
54004  END SELECT
54005  END SUBROUTINE ints2bits_specific
54006 
54007 ! **************************************************************************************************
54008 !> \brief ...
54009 !> \param Nbits ...
54010 !> \param Ndata ...
54011 !> \param packed_data ...
54012 !> \param full_data ...
54013 ! **************************************************************************************************
54014  SUBROUTINE bits2ints_specific(Nbits, Ndata, packed_data, full_data)
54015  INTEGER, INTENT(IN) :: nbits, ndata
54016  INTEGER(KIND=int_8), INTENT(IN) :: packed_data(*)
54017  INTEGER(KIND=int_8), INTENT(OUT) :: full_data(*)
54018 
54019  SELECT CASE (nbits)
54020  CASE (1)
54021  CALL bits2ints_1(ndata, packed_data, full_data)
54022  CASE (2)
54023  CALL bits2ints_2(ndata, packed_data, full_data)
54024  CASE (3)
54025  CALL bits2ints_3(ndata, packed_data, full_data)
54026  CASE (4)
54027  CALL bits2ints_4(ndata, packed_data, full_data)
54028  CASE (5)
54029  CALL bits2ints_5(ndata, packed_data, full_data)
54030  CASE (6)
54031  CALL bits2ints_6(ndata, packed_data, full_data)
54032  CASE (7)
54033  CALL bits2ints_7(ndata, packed_data, full_data)
54034  CASE (8)
54035  CALL bits2ints_8(ndata, packed_data, full_data)
54036  CASE (9)
54037  CALL bits2ints_9(ndata, packed_data, full_data)
54038  CASE (10)
54039  CALL bits2ints_10(ndata, packed_data, full_data)
54040  CASE (11)
54041  CALL bits2ints_11(ndata, packed_data, full_data)
54042  CASE (12)
54043  CALL bits2ints_12(ndata, packed_data, full_data)
54044  CASE (13)
54045  CALL bits2ints_13(ndata, packed_data, full_data)
54046  CASE (14)
54047  CALL bits2ints_14(ndata, packed_data, full_data)
54048  CASE (15)
54049  CALL bits2ints_15(ndata, packed_data, full_data)
54050  CASE (16)
54051  CALL bits2ints_16(ndata, packed_data, full_data)
54052  CASE (17)
54053  CALL bits2ints_17(ndata, packed_data, full_data)
54054  CASE (18)
54055  CALL bits2ints_18(ndata, packed_data, full_data)
54056  CASE (19)
54057  CALL bits2ints_19(ndata, packed_data, full_data)
54058  CASE (20)
54059  CALL bits2ints_20(ndata, packed_data, full_data)
54060  CASE (21)
54061  CALL bits2ints_21(ndata, packed_data, full_data)
54062  CASE (22)
54063  CALL bits2ints_22(ndata, packed_data, full_data)
54064  CASE (23)
54065  CALL bits2ints_23(ndata, packed_data, full_data)
54066  CASE (24)
54067  CALL bits2ints_24(ndata, packed_data, full_data)
54068  CASE (25)
54069  CALL bits2ints_25(ndata, packed_data, full_data)
54070  CASE (26)
54071  CALL bits2ints_26(ndata, packed_data, full_data)
54072  CASE (27)
54073  CALL bits2ints_27(ndata, packed_data, full_data)
54074  CASE (28)
54075  CALL bits2ints_28(ndata, packed_data, full_data)
54076  CASE (29)
54077  CALL bits2ints_29(ndata, packed_data, full_data)
54078  CASE (30)
54079  CALL bits2ints_30(ndata, packed_data, full_data)
54080  CASE (31)
54081  CALL bits2ints_31(ndata, packed_data, full_data)
54082  CASE (32)
54083  CALL bits2ints_32(ndata, packed_data, full_data)
54084  CASE (33)
54085  CALL bits2ints_33(ndata, packed_data, full_data)
54086  CASE (34)
54087  CALL bits2ints_34(ndata, packed_data, full_data)
54088  CASE (35)
54089  CALL bits2ints_35(ndata, packed_data, full_data)
54090  CASE (36)
54091  CALL bits2ints_36(ndata, packed_data, full_data)
54092  CASE (37)
54093  CALL bits2ints_37(ndata, packed_data, full_data)
54094  CASE (38)
54095  CALL bits2ints_38(ndata, packed_data, full_data)
54096  CASE (39)
54097  CALL bits2ints_39(ndata, packed_data, full_data)
54098  CASE (40)
54099  CALL bits2ints_40(ndata, packed_data, full_data)
54100  CASE (41)
54101  CALL bits2ints_41(ndata, packed_data, full_data)
54102  CASE (42)
54103  CALL bits2ints_42(ndata, packed_data, full_data)
54104  CASE (43)
54105  CALL bits2ints_43(ndata, packed_data, full_data)
54106  CASE (44)
54107  CALL bits2ints_44(ndata, packed_data, full_data)
54108  CASE (45)
54109  CALL bits2ints_45(ndata, packed_data, full_data)
54110  CASE (46)
54111  CALL bits2ints_46(ndata, packed_data, full_data)
54112  CASE (47)
54113  CALL bits2ints_47(ndata, packed_data, full_data)
54114  CASE (48)
54115  CALL bits2ints_48(ndata, packed_data, full_data)
54116  CASE (49)
54117  CALL bits2ints_49(ndata, packed_data, full_data)
54118  CASE (50)
54119  CALL bits2ints_50(ndata, packed_data, full_data)
54120  CASE (51)
54121  CALL bits2ints_51(ndata, packed_data, full_data)
54122  CASE (52)
54123  CALL bits2ints_52(ndata, packed_data, full_data)
54124  CASE (53)
54125  CALL bits2ints_53(ndata, packed_data, full_data)
54126  CASE (54)
54127  CALL bits2ints_54(ndata, packed_data, full_data)
54128  CASE (55)
54129  CALL bits2ints_55(ndata, packed_data, full_data)
54130  CASE (56)
54131  CALL bits2ints_56(ndata, packed_data, full_data)
54132  CASE (57)
54133  CALL bits2ints_57(ndata, packed_data, full_data)
54134  CASE (58)
54135  CALL bits2ints_58(ndata, packed_data, full_data)
54136  CASE (59)
54137  CALL bits2ints_59(ndata, packed_data, full_data)
54138  CASE (60)
54139  CALL bits2ints_60(ndata, packed_data, full_data)
54140  CASE (61)
54141  CALL bits2ints_61(ndata, packed_data, full_data)
54142  CASE (62)
54143  CALL bits2ints_62(ndata, packed_data, full_data)
54144  CASE (63)
54145  CALL bits2ints_63(ndata, packed_data, full_data)
54146  END SELECT
54147  END SUBROUTINE bits2ints_specific
54148 
54149 END MODULE hfx_compression_core_methods
hfx_compression_core_methods
Contains routines for data compression. PLEASE DO NOT MODIFY.
Definition: hfx_compression_core_methods.F:14
hfx_compression_core_methods::ints2bits_specific
subroutine, public ints2bits_specific(Nbits, Ndata, packed_data, full_data)
...
Definition: hfx_compression_core_methods.F:53873
hfx_compression_core_methods::bits2ints_specific
subroutine, public bits2ints_specific(Nbits, Ndata, packed_data, full_data)
...
Definition: hfx_compression_core_methods.F:54015
kinds
Defines the basic variable types.
Definition: kinds.F:23
kinds::int_8
integer, parameter, public int_8
Definition: kinds.F:54