[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / fq / fzocvd2.inc

*
* $Id$
*
* $Log$
* 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
Commit	Line	Data
fe4da5cc	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