June 24 2002 1:26:30.440 PM PACKER_PRB Tests for the PACKER library. TEST01 UNPACK_TO_PACK converts an unpacked array with unused intermediate space to a packed array. Original unpacked array, as a 1D array: (Unused entries are 0) 1 11.0000 2 21.0000 3 31.0000 4 0.00000 5 0.00000 6 12.0000 7 22.0000 8 32.0000 9 0.00000 10 0.00000 11 13.0000 12 23.0000 13 33.0000 14 0.00000 15 0.00000 16 0.00000 17 0.00000 18 0.00000 19 0.00000 20 0.00000 21 0.00000 22 0.00000 23 0.00000 24 0.00000 25 0.00000 Original unpacked array, as a 2D array: 11.0000 12.0000 13.0000 0.0000 21.0000 22.0000 23.0000 0.0000 31.0000 32.0000 33.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 0.0000 Number of array elements: Used: 9 Allowed: 20 Allocated: 25 Packed array, as a 1D array: 1 11.0000 2 21.0000 3 31.0000 4 12.0000 5 22.0000 6 32.0000 7 13.0000 8 23.0000 9 33.0000 Packed array, as a 2D array: 11.0000 12.0000 13.0000 21.0000 22.0000 23.0000 31.0000 32.0000 33.0000 TEST02 PACK_SELECT selects a subarray from a packed array. Packed array has rank = 2 Packed array has size = 30 Packed array dimensions: 1 5 2 6 Original packed array, as a 1D array: (Unused entries are negative) 1 11.0000 2 21.0000 3 31.0000 4 41.0000 5 51.0000 6 12.0000 7 22.0000 8 32.0000 9 42.0000 10 52.0000 11 13.0000 12 23.0000 13 33.0000 14 43.0000 15 53.0000 16 14.0000 17 24.0000 18 34.0000 19 44.0000 20 54.0000 21 15.0000 22 25.0000 23 35.0000 24 45.0000 25 55.0000 26 16.0000 27 26.0000 28 36.0000 29 46.0000 30 56.0000 31 -31.0000 32 -32.0000 33 -33.0000 34 -34.0000 35 -35.0000 36 -36.0000 37 -37.0000 38 -38.0000 39 -39.0000 40 -40.0000 Selection ranges are: 1 3 4 2 3 5 Selected array has rank = 2 Selected array has size = 6 Selected array dimensions: 1 2 2 3 Selected array as a 1 dimensional array: 1 33.0000 2 43.0000 3 34.0000 4 44.0000 5 35.0000 6 45.0000 TEST03 PACK_SELECT selects a subarray from a packed array. Packed array has rank = 3 Packed array has size = 27 Packed array dimensions: 1 3 2 3 3 3 Original packed array, as a 1D array: (Unused entries are negative) 1 111.000 2 211.000 3 311.000 4 121.000 5 221.000 6 321.000 7 131.000 8 231.000 9 331.000 10 112.000 11 212.000 12 312.000 13 122.000 14 222.000 15 322.000 16 132.000 17 232.000 18 332.000 19 113.000 20 213.000 21 313.000 22 123.000 23 223.000 24 323.000 25 133.000 26 233.000 27 333.000 28 -28.0000 29 -29.0000 30 -30.0000 31 -31.0000 32 -32.0000 33 -33.0000 34 -34.0000 35 -35.0000 36 -36.0000 37 -37.0000 38 -38.0000 39 -39.0000 40 -40.0000 Selection ranges are: 1 1 3 2 2 2 3 1 3 Selected array has rank = 2 Selected array has size = 9 Selected array dimensions: 1 3 2 3 Selected array as a 1 dimensional array: 1 121.000 2 221.000 3 321.000 4 122.000 5 222.000 6 322.000 7 123.000 8 223.000 9 323.000 TEST04 UNPACK_SELECT selects a subarray from an unpacked array. Unpacked array has rank = 2 Unpacked array has used size = 30 Unpacked array has maximum size = 48 Unpacked array used, maximum dimensions: 1 5 6 2 6 8 Original unpacked array, as a 1D array: (Unused entries are negative) 1 11.0000 2 21.0000 3 31.0000 4 41.0000 5 51.0000 6 12.0000 7 22.0000 8 32.0000 9 42.0000 10 52.0000 11 13.0000 12 23.0000 13 33.0000 14 43.0000 15 53.0000 16 14.0000 17 24.0000 18 34.0000 19 44.0000 20 54.0000 21 15.0000 22 25.0000 23 35.0000 24 45.0000 25 55.0000 26 16.0000 27 26.0000 28 36.0000 29 46.0000 30 56.0000 31 -31.0000 32 -32.0000 33 -33.0000 34 -34.0000 35 -35.0000 36 -36.0000 37 -37.0000 38 -38.0000 39 -39.0000 40 -40.0000 41 -41.0000 42 -42.0000 43 -43.0000 44 -44.0000 45 -45.0000 46 -46.0000 47 -47.0000 48 -48.0000 49 -49.0000 50 -50.0000 Selection ranges are: 1 3 4 2 3 5 Selected array has rank = 2 Selected array has size = 6 Selected array dimensions: 1 2 2 3 Selected array as a 1 dimensional array: 1 53.0000 2 14.0000 3 15.0000 4 25.0000 5 26.0000 6 36.0000 TEST05 PACK_SET sets an entry; PACK_INC increments it; PACK_GET gets it. Packed array has rank = 2 Packed array has size = 12 Packed array dimensions: 1 3 2 4 Original packed array, as a 1D array: (Unused entries are negative) 1 11.0000 2 21.0000 3 31.0000 4 12.0000 5 22.0000 6 32.0000 7 13.0000 8 23.0000 9 33.0000 10 14.0000 11 24.0000 12 34.0000 13 -13.0000 14 -14.0000 15 -15.0000 Use PACK_SET to set entry (2,3) to 5: Current packed array 1 11.0000 2 21.0000 3 31.0000 4 12.0000 5 22.0000 6 32.0000 7 13.0000 8 5.00000 9 33.0000 10 14.0000 11 24.0000 12 34.0000 13 -13.0000 14 -14.0000 15 -15.0000 Use PACK_INC to add 2 to entry (2,3): Current packed array 1 11.0000 2 21.0000 3 31.0000 4 12.0000 5 22.0000 6 32.0000 7 13.0000 8 7.00000 9 33.0000 10 14.0000 11 24.0000 12 34.0000 13 -13.0000 14 -14.0000 15 -15.0000 Use PACK_GET to get entry (2,3): A(2,3) = 7.00000 PACKER_PRB Normal end of execution.