c attach SUN directory locations; assume same for both vixen, venus
c  3/94 - jmb
	  state = tstate(IDEF)
	  AFILE='/xtra/hztlib/data/'//state//'hpgn'
c	  AFILE(1:2) = state
c	  AFILE(3:6) = 'hpgn'