+++ /dev/null
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
-* Zebra
-*
-*
-#ifndef CERNLIB_ZEBRA_ZBCDCH_INC
-#define CERNLIB_ZEBRA_ZBCDCH_INC
-*
-* BCD char. in CETA order as CHARACTER
-*
-* zbcdch.inc
-*
- CHARACTER CQALLC*96
- COMMON /ZBCDCH/ CQALLC
- CHARACTER*1 CQLETT(96), CQNUM(10)
- EQUIVALENCE (CQLETT(1),CQALLC(1:1))
- EQUIVALENCE (CQNUM(1), CQALLC(27:27))
-
-#endif