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