	common	/alpha/	iha,ihb,ihc,ihd,ihe,ihf,ihg,ihh,ihi,ihj,
			ihk,ihl,ihm,ihn,iho,ihp,ihq,ihr,ihs,iht,
			ihu,ihv,ihw,ihx,ihy,ihz

	common	/alpha/	ihca,ihcb,ihcc,ihcd,ihce,ihcf,ihcg,ihch,ihci,ihcj,
			ihck,ihcl,ihcm,ihcn,ihco,ihcp,ihcq,ihcr,ihcs,ihct,
			ihcu,ihcv,ihcw,ihcx,ihcy,ihcz

	common	/digit/	ih0,ih1,ih2,ih3,ih4,ih5,ih6,ih7,ih8,ih9

	common  /asciic/ihprd,ihandp


	integer*4	iha,ihb,ihc,ihd,ihe,ihf,ihg,ihh,ihi,ihj,
			ihk,ihl,ihm,ihn,iho,ihp,ihq,ihr,ihs,iht,
			ihu,ihv,ihw,ihx,ihy,ihz

	integer*4	ihca,ihcb,ihcc,ihcd,ihce,ihcf,ihcg,ihch,ihci,ihcj,
			ihck,ihcl,ihcm,ihcn,ihco,ihcp,ihcq,ihcr,ihcs,ihct,
			ihcu,ihcv,ihcw,ihcx,ihcy,ihcz

	integer*4	ih0,ih1,ih2,ih3,ih4,ih5,ih6,ih7,ih8,ih9

	integer*4	ihprd,ihandp
