SUBROUTINE XXPAK (IFLD, IPK, ni, nj, npak, nb, kind)

ARGUMENTS

OUT

IFLD(NI,NJ)  floating point array, unpacked       real
IPK(NI,NJ)   the same array packed                real

IN

IFLD(NI,NJ)  floating point array, unpacked       real
IPK(NI,NJ)   the same array packed                real 
NI           x-dimension of arrays IFLD and IPK   integer
NJ           y-dimension of arrays IFLD and IPK   integer
NPAK         packing parameter (see notes)        integer
NB           must be 0 (left for compatibility)   integer
KIND         1:pack; 2:unpack                     integer
  (1,NJ)      (NI,NJ)  
   +-------------+
   |             | 
   |             |  arrays IFLD and IPK 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (NI,1)

DESCRIPTION

EXAMPLE

NOTES

NPAK  NPAK > 0, density of packing
      NPAK = 0 or 1, no packing
      NPAK < 0, number of bits to keep