*
* $Id: fzicvd2.inc,v 1.1.1.1 1996/03/06 10:47:09 mclareni Exp $
*
* $Log: fzicvd2.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:09  mclareni
* Zebra
*
*
*
* fzicvd2.inc
*
#if defined(CERNLIB_QMCDC)
      DATA  IPKVU  / 8, 4, 0,28, 0 /
      DATA  IPKVP  / 6, 4, 0, 0, O"555555555555" /
      DATA  MTAB   /
     +       57,  45,  54,  52,  48,  43,  51,  55,  56,  41
     +,      42,  39,  37,  46,  38,  47,  40,  27,  28,  29
     +,      30,  31,  32,  33,  34,  35,  36,  51,  63,  58
     +,      44,  59,  57,  60,   1,   2,   3,   4,   5,   6
     +,       7,   8,   9,  10,  11,  12,  13,  14,  15,  16
     +,      17,  18,  19,  20,  21,  22,  23,  24,  25,  26
     +,      49,  61,  50,  62,  53,  57,   1,   2,   3,   4
     +,       5,   6,   7,   8,   9,  10,  11,  12,  13,  14
     +,      15,  16,  17,  18,  19,  20,  21,  22,  23,  24
     +,      25,  26,  57 /

C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
C-    [  \  ]  ^  _  ?  a  b  c  d    e  f  g  h  i  j  k  l  m  n
C-    o  p  q  r  s  t  u  v  w  x    y  z  ?
#endif
*
* fzicvd2.inc
*
#if defined(CERNLIB_QMIBM)
      DATA  IPKVEC / 8, 0, 0, 0, 0 /
      DATA  MTAB   /
     +      111,  64,  90, 127, 123,  91, 108,  80, 125,  77
     +,      93,  92,  78, 107,  96,  75,  97, 240, 241, 242
     +,     243, 244, 245, 246, 247, 248, 249, 122,  94,  76
     +,     126, 110, 111, 124, 193, 194, 195, 196, 197, 198
     +,     199, 200, 201, 209, 210, 211, 212, 213, 214, 215
     +,     216, 217, 226, 227, 228, 229, 230, 231, 232, 233
     +,     173, 224, 189, 106, 109, 121, 129, 130, 131, 132
     +,     133, 134, 135, 136, 137, 145, 146, 147, 148, 149
     +,     150, 151, 152, 153, 162, 163, 164, 165, 166, 167
     +,     168, 169, 139,  79, 155,  95, 111 /

C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
C-    [  \  ]  ^  _  `  a  b  c  d    e  f  g  h  i  j  k  l  m  n
C-    o  p  q  r  s  t  u  v  w  x    y  z  {  |  }  ~  ?
#endif
*
* fzicvd2.inc
*
#if defined(CERNLIB_QMIBMD)
      DATA  IPKVEC / 8, 0, 0, 0, 0 /
      DATA  MTAB   /
     +      111,  64,  90, 127, 123,  91, 108,  80, 125,  77
     +,      93,  92,  78, 107,  96,  75,  97, 240, 241, 242
     +,     243, 244, 245, 246, 247, 248, 249, 122,  94,  76
     +,     126, 110, 111, 124, 193, 194, 195, 196, 197, 198
     +,     199, 200, 201, 209, 210, 211, 212, 213, 214, 215
     +,     216, 217, 226, 227, 228, 229, 230, 231, 232, 233
     +,     173, 224, 189, 106, 109, 121, 129, 130, 131, 132
     +,     133, 134, 135, 136, 137, 145, 146, 147, 148, 149
     +,     150, 151, 152, 153, 162, 163, 164, 165, 166, 167
     +,     168, 169, 139,  79, 155,  95, 111 /

C-    ?     !  "  #  $  %  &  '  (    )  *  +  ,  -  .  /  0  1  2
C-    3  4  5  6  7  8  9  :  ;  <    =  >  ?  @  A  B  C  D  E  F
C-    G  H  I  J  K  L  M  N  O  P    Q  R  S  T  U  V  W  X  Y  Z
C-    [  \  ]  ^  _  `  a  b  c  d    e  f  g  h  i  j  k  l  m  n
C-    o  p  q  r  s  t  u  v  w  x    y  z  {  |  }  ~  ?
#endif