*
* $Id$
*
* $Log$
* Revision 1.1  1996/03/06 10:46:51  mclareni
* Initial revision
*
*
#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
