5 * Revision 1.1.2.1 2002/07/11 17:14:49 alibrary
8 * Revision 1.1.1.1 1999/05/18 15:55:29 fca
11 * Revision 1.1.1.1 1996/02/15 17:49:17 mclareni
18 #if defined(CERNLIB_QMIBM)
19 DATA NATCH / 64*0, 1, 9*0, 0, 6*1, 9*0, 8*1, 8*0, 6*1, 9*0
20 +, 7*1, 0, 9*3, 0, 1, 5*0, 9*3, 0, 1, 5*0
21 +, 0, 8*3, 3*0, 1, 15*0, 1, 2*0, 0, 9*4, 6*0
22 +, 0, 9*4, 6*0, 1, 0, 8*4, 6*0, 10*2, 6*0 /
23 C- Nature : 0 unseen, 1 others, 2 numeric, 3 lower, 4 upper case