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