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

ARGUMENTS

OUT

IFLD(NI,NJ) array, unpacked                        integer
IPK(NI,NJ)  the same array packed                  integer

IN

IFLD(NI,NJ) array, unpacked                        integer
IPK(NI,NJ)  the same array packed                  integer
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          supposed to be 0                       integer
KIND        kind of (un)packing (see notes)        integer
  (1,NJ)      (NI,NJ)  
   +-------------+
   |             | 
   |             |  arrays IFLD and IPK 
   |             |
   |             |
   |             |
   +-------------+
  (1,1)       (NI,1)

DESCRIPTION

EXAMPLE

NOTES

NPAK  npak > 0, packing density           
      npak = 0 or 1, no packing          
      npak < 0, number of bits to keep
KIND  1 = pack (positive)
      2 = unpack (positive)
      3 = pack (positive and negative)
      4 = unpack (positive and negative)