+++ /dev/null
-*
-* $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