MINICERN/packlib/zebra/fq/fzocvd2.inc

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
   6 * Zebra
   7 *
   8 *
   9 *
  10 * fzocvd2.inc
  11 *
  12 #if defined(CERNLIB_QMCDC)
  13       DATA  IPKVU  / 6, 4, 0, 0, 0 /
  14       DATA  IPKVP  / 8, 4, 0,28, 0 /
  15       DATA  MTAB   /58, 65, 66, 67, 68, 69, 70, 71, 72, 73
  16      +,             74, 75, 76, 77, 78, 79, 80, 81, 82, 83
  17      +,             84, 85, 86, 87, 88, 89, 90, 48, 49, 50
  18      +,             51, 52, 53, 54, 55, 56, 57, 43, 45, 42
  19      +,             47, 40, 41, 36, 61, 32, 44, 46, 35, 91
  20      +,             93, 58, 34, 95, 33, 38, 39, 63, 60, 62
  21      +,             64, 92, 94, 59 /
  22
  23 C-    :  A  B  C  D  E  F  G  H  I    J  K  L  M  N  O  P  Q  R  S
  24 C-    T  U  V  W  X  Y  Z  0  1  2    3  4  5  6  7  8  9  +  -  *
  25 C-    /  (  )  $  =     ,  .  #  [    ]  :  "  _  !  &  '  ?  <  >
  26 C-    @  \  ^  ;
  27 #endif
  28 *
  29 * fzocvd2.inc
  30 *
  31 #if defined(CERNLIB_QMIBM)
  32       DATA  IPKVEC / 8, 0, 0, 0, 0 /
  33       DATA  MTAB   /63, 32, 63, 63, 63, 63, 63, 63, 63, 63
  34      +,             63, 63, 46, 60, 40, 43,124, 38, 63, 63
  35      +,             63, 63, 63, 63, 63, 63, 63, 33, 36, 42
  36      +,             41, 59,126, 45, 47, 63, 63, 63, 63, 63
  37      +,             63, 63, 63, 94, 44, 37, 95, 62, 63, 63
  38      +,             63, 63, 63, 63, 63, 63, 63, 63, 96, 58
  39      +,             35, 64, 39, 61, 34, 63, 97, 98, 99,100
  40      +,            101,102,103,104,105, 63,123, 63, 63, 63
  41      +,             63, 63,106,107,108,109,110,111,112,113
  42      +,            114, 63,125, 63, 63, 63, 63, 63, 63,115
  43      +,            116,117,118,119,120,121,122, 63, 63, 63
  44      +,             91, 63, 63, 63, 63, 63, 63, 63, 63, 63
  45      +,             63, 63, 63, 63, 63, 63, 93, 63, 63,123
  46      +,             65, 66, 67, 68, 69, 70, 71, 72, 73, 63
  47      +,             63, 63, 63, 63, 63,125, 74, 75, 76, 77
  48      +,             78, 79, 80, 81, 82, 63, 63, 63, 63, 63
  49      +,             63, 92, 63, 83, 84, 85, 86, 87, 88, 89
  50      +,             90, 63, 63, 63, 63, 63, 63, 48, 49, 50
  51      +,             51, 52, 53, 54, 55, 56, 57, 63 /
  52 C-
  53 C-    ?     ?  ?  ?  ?  ?  ?  ?  ?    ?  ?  .  <  (  +  |  &  ?  ?
  54 C-    ?  ?  ?  ?  ?  ?  ?  !  $  *    )  ;  ~  -  /  ?  ?  ?  ?  ?
  55 C-    ?  ?  ?  ^  ,  %  _  >  ?  ?    ?  ?  ?  ?  ?  ?  ?  ?  `  :
  56 C-    #  @  '  =  "  ?  a  b  c  d    e  f  g  h  i  ?  {  ?  ?  ?
  57 C-    ?  ?  j  k  l  m  n  o  p  q    r  ?  }  ?  ?  ?  ?  ?  ?  s
  58 C-    t  u  v  w  x  y  z  ?  ?  ?    [  ?  ?  ?  ?  ?  ?  ?  ?  ?
  59 C-    ?  ?  ?  ?  ?  ?  ]  ?  ? >{    A  B  C  D  E  F  G  H  I  ?
  60 C-    ?  ?  ?  ?  ? >}  J  K  L  M    N  O  P  Q  R  ?  ?  ?  ?  ?
  61 C-    ?  \  ?  S  T  U  V  W  X  Y    Z  ?  ?  ?  ?  ?  ?  0  1  2
  62 C-    3  4  5  6  7  8  9  ?
  63 #endif
  64 *    use default CALL IE3FOS for output single prec.
  65 #ifndef CERNLIB_FQIE3FSC
  66 #endif
  67 *    use default CALL IE3FOD for output double prec.
  68 #ifndef CERNLIB_FQIE3FDC
  69 #endif
  70 *
  71 * fzocvd2.inc
  72 *
  73 #if defined(CERNLIB_QMIBMD)
  74       DATA  IPKVEC / 8, 0, 0, 0, 0 /
  75       DATA  MTAB   /63, 32, 63, 63, 63, 63, 63, 63, 63, 63
  76      +,             63, 63, 46, 60, 40, 43,124, 38, 63, 63
  77      +,             63, 63, 63, 63, 63, 63, 63, 33, 36, 42
  78      +,             41, 59,126, 45, 47, 63, 63, 63, 63, 63
  79      +,             63, 63, 63, 94, 44, 37, 95, 62, 63, 63
  80      +,             63, 63, 63, 63, 63, 63, 63, 63, 96, 58
  81      +,             35, 64, 39, 61, 34, 63, 97, 98, 99,100
  82      +,            101,102,103,104,105, 63,123, 63, 63, 63
  83      +,             63, 63,106,107,108,109,110,111,112,113
  84      +,            114, 63,125, 63, 63, 63, 63, 63, 63,115
  85      +,            116,117,118,119,120,121,122, 63, 63, 63
  86      +,             91, 63, 63, 63, 63, 63, 63, 63, 63, 63
  87      +,             63, 63, 63, 63, 63, 63, 93, 63, 63,123
  88      +,             65, 66, 67, 68, 69, 70, 71, 72, 73, 63
  89      +,             63, 63, 63, 63, 63,125, 74, 75, 76, 77
  90      +,             78, 79, 80, 81, 82, 63, 63, 63, 63, 63
  91      +,             63, 92, 63, 83, 84, 85, 86, 87, 88, 89
  92      +,             90, 63, 63, 63, 63, 63, 63, 48, 49, 50
  93      +,             51, 52, 53, 54, 55, 56, 57, 63 /
  94 C-
  95 C-    ?     ?  ?  ?  ?  ?  ?  ?  ?    ?  ?  .  <  (  +  |  &  ?  ?
  96 C-    ?  ?  ?  ?  ?  ?  ?  !  $  *    )  ;  ~  -  /  ?  ?  ?  ?  ?
  97 C-    ?  ?  ?  ^  ,  %  _  >  ?  ?    ?  ?  ?  ?  ?  ?  ?  ?  `  :
  98 C-    #  @  '  =  "  ?  a  b  c  d    e  f  g  h  i  ?  {  ?  ?  ?
  99 C-    ?  ?  j  k  l  m  n  o  p  q    r  ?  }  ?  ?  ?  ?  ?  ?  s
 100 C-    t  u  v  w  x  y  z  ?  ?  ?    [  ?  ?  ?  ?  ?  ?  ?  ?  ?
 101 C-    ?  ?  ?  ?  ?  ?  ]  ?  ? >{    A  B  C  D  E  F  G  H  I  ?
 102 C-    ?  ?  ?  ?  ? >}  J  K  L  M    N  O  P  Q  R  ?  ?  ?  ?  ?
 103 C-    ?  \  ?  S  T  U  V  W  X  Y    Z  ?  ?  ?  ?  ?  ?  0  1  2
 104 C-    3  4  5  6  7  8  9  ?
 105 #endif
 106 *    use default CALL IE3FOS for output single prec.
 107 #ifndef CERNLIB_FQIE3FSC
 108 #endif
 109 *    use default CALL IE3FOD for output double prec.
 110 #ifndef CERNLIB_FQIE3FDC
 111 #endif