c Begin common APPTDTC.INC

	parameter iwrkln = 100		! Can't use it below
	character*100 workstr
	character*84 apptstr		! icmln

	integer irqhash(2), 		! Range of hash values (input)
	1 irchash, ihy, ihm, ihd, iht, iaptln, istart, iwkln ! outputs

	byte appoin(icmln), work(iwrkln)

	common /apptdtc/ irqhash, irchash, ihy, ihm, ihd, iht,
	1		 iaptln, istart, iwkln, workstr, apptstr

	equivalence (apptstr, appoin), (workstr, work)

c End common APPTDTC.INC
