c---- this is the ah-header include file
c
      character*1024 ahheader
c      character*1028 ahheader
      integer*2 iah(512)
c      integer*2 iah(514)
	integer PAD, PAD1, PAD2, PAD3, PAD4
        integer RECW2,RECW4
          parameter (RECW2=516, RECW4=RECW2/2)
	parameter (PAD=1, 
     1    PAD1=PAD,
     2    PAD2=PAD+PAD1, 
     3    PAD3=PAD+PAD2,
     4    PAD4=PAD+PAD3 )
      common/ahhead/ iah
      save /ahhead/
      
c      common /ahhead/ codeah,chanah,typeah,
c     #   slatah,slonah,elevah,dsah,a0ah,xnpah,nu1,xnzah,nu2
c     #   pz(58),elatah,elonah,edepah,ieyrah,iemoah,iedaah,
c     #   iehrah,iemnah,esecah,ecomah,itypah,ndatah,
c     #   deltah,amaxah,isyrah,ismoah,isdaah,ishrah,ismnah,
c     #   ssecah,rminah,scomah,logah,dumah(21)
      dimension dumah(21)
	complex pz(2,30)
      character*6 codeah,chanah
      character*8 typeah
      integer*2 ieyrah,iemoah,iedaah,iehrah,iemnah
      integer*2 isyrah,ismoah,isdaah,ishrah,ismnah
      character*80 ecomah,scomah
      integer*2 itypah
      character*202 logah
c
      equivalence (iah(1),ahheader)
      equivalence (iah(1),codeah),(iah(4),chanah)
      equivalence (iah(7),typeah),(iah(11),slatah)
      equivalence (iah(13),slonah),(iah(15),elevah)
      equivalence (iah(17),dsah),(iah(19),a0ah)
      equivalence (iah(21),xnpah),(iah(23),nu1)
      equivalence (iah(25),xnzah),(iah(27),nu2)
      equivalence (iah(29),pz(1,1))
      equivalence (iah(261),elatah),(iah(263),elonah)
      equivalence (iah(265),edepah),(iah(267),ieyrah)
      equivalence (iah(268),iemoah),(iah(269),iedaah)
      equivalence (iah(270),iehrah),(iah(271),iemnah)
      equivalence (iah(272+PAD1),esecah),(iah(274+PAD1),ecomah)
      equivalence (iah(314+PAD1),itypah),(iah(315+PAD2),ndatah)
      equivalence (iah(317+PAD2),deltah),(iah(319+PAD2),amaxah)
      equivalence (iah(321+PAD2),isyrah),(iah(322+PAD2),ismoah)
      equivalence (iah(323+PAD2),isdaah),(iah(324+PAD2),ishrah)
c....................................
      equivalence (iah(325+PAD2),ismnah),(iah(326+PAD3),ssecah)
      equivalence (iah(328+PAD3),rminah),(iah(330+PAD3),scomah)
      equivalence (iah(370+PAD3),logah),(iah(471+PAD4),dumah(1))
c      
c
c
c-------------------------------------------------------
c     codeah         station code      c6
c     chanah         channel code      c6
c     typeah         instrument type   c8
c     slatah         station lat       r4
c     slonah         station lon       r4
c     elevah         station elev      r4
c     dsah           digital sens      r4
c     a0ah           amplification     r4
c     xnpah          # poles           r4
c     nu1            filler            i4
c     xnzah          # zeroes          r4
c     nu2            filler            i4
c     pz(2,2,29)     poles,zeroes      r4*2*2*29 = 464bytes
c     elatah         event lat         r4
c     elonah         event lon         r4
c     edepah         event depth       r4
c     ieyrah         event year        i2
c     iemoah         event month       i2
c     iedaah         event day         i2
c     iehrah         event hour        i2
c     iemnah         event min         i2
c     esecah         event sec         r4
c     ecomah         event comment    a80
c     itypah         record type       i2
c     ndatah         # data points     i4
c     deltah         sampling inter    r4
c     amaxah         max amplitude     r4
c     isyrah         1st sample year   i2
c     ismoah         1st sample month  i2
c     isdaah         1st sample day    i2
c     ishrah         1st sample hour   i2
c     ismnah         1st sample min    i2
c     ssecah         1st sample sec    r4
c     rminah         ???               r4
c     scomah         record comment   a80
c     logah          manipulations   a202
c     dumah(21)      extras            r4*21 = 84bytes
c---------------------------------------------------