[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / zebra / zbcdch.inc

*
* $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
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
	6	* Zebra
	7	*
	8	*
	9	#ifndef CERNLIB_ZEBRA_ZBCDCH_INC
	10	#define CERNLIB_ZEBRA_ZBCDCH_INC
	11	*
	12	* BCD char. in CETA order as CHARACTER
	13	*
	14	* zbcdch.inc
	15	*
	16	CHARACTER CQALLC*96
	17	COMMON /ZBCDCH/ CQALLC
	18	CHARACTER*1 CQLETT(96), CQNUM(10)
	19	EQUIVALENCE (CQLETT(1),CQALLC(1:1))
	20	EQUIVALENCE (CQNUM(1), CQALLC(27:27))
	21
	22	#endif