*
* $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