*
* $Id: fzocvd2.inc,v 1.1.1.1 1996/03/06 10:47:08 mclareni Exp $
*
* $Log: fzocvd2.inc,v $
* Revision 1.1.1.1  1996/03/06 10:47:08  mclareni
* Zebra
*
*
*
* fzocvd2.inc
*
#if defined(CERNLIB_QMCDC)
      DATA  IPKVU  / 6, 4, 0, 0, 0 /
      DATA  IPKVP  / 8, 4, 0,28, 0 /
      DATA  MTAB   /58, 65, 66, 67, 68, 69, 70, 71, 72, 73
     +,             74, 75, 76, 77, 78, 79, 80, 81, 82, 83
     +,             84, 85, 86, 87, 88, 89, 90, 48, 49, 50
     +,             51, 52, 53, 54, 55, 56, 57, 43, 45, 42
     +,             47, 40, 41, 36, 61, 32, 44, 46, 35, 91
     +,             93, 58, 34, 95, 33, 38, 39, 63, 60, 62
     +,             64, 92, 94, 59 /

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