c header variables (II)
	real delta,depmin,depmax,depmn,depmx,scale,odelta
	real b,begin,e,ennd,o,origin,a,arrivl,fmt
	real t0,t1,t2,t3,t4,t5,t6,t7,t8,t9
	real time0,time1,time2,time3,time4
	real time5,time6,time7,time8,time9
	real f,fini
	real resp0,resp1,resp2,resp3,resp4
	real resp5,resp6,resp7,resp8,resp9
	real stla,stlo,stel,stdp,evla,evlo,evel,evdp,fhdr40
	real user0,user1,user2,user3,user4
	real user5,user6,user7,user8,user9
	real dist,az,baz,gcarc,sb,sdelta,depmen,fmean,cmpaz,cmpinc
	real xminimum,xmaximum,yminimum,ymaximum
	real fhdr64,fhdr65,fhdr66,fhdr67,fhdr68,fhdr69,fhdr70
	integer nzdttm(6),nzyear,nzjday,nzhour,nzmin,nzsec,nzmsec
	integer nvhdr,ninf,nhst,npts,nsnpts,nsn,nxsize,nysize,nhdr15
	integer iftype,idep,iztype,ihdr4,iinst
	integer istreg,ievreg,ievtyp,iqual,isynth
	integer ihdr11,ihdr12,ihdr13,ihdr14,ihdr15
	integer ihdr16,ihdr17,ihdr18,ihdr19,ihdr20
	integer leven,lpspol,lovrok,lcalda,lhdr5
	character*8 kstnm
	character*16 kevnm
	character*8 khole,ko,ka,kt0,kt1,kt2,kt3,kt4,kt5,kt6,kt7,kt8,kt9
	character*8 kf,kuser0,kuser1,kuser2,kcmpnm,knetwk,kdatrd,kinst
c equivalence declaration
	equivalence (delta,fhdr(01))
	equivalence (depmin,depmn,fhdr(02))
	equivalence (depmax,depmx,fhdr(03))
	equivalence (scale,fhdr(04))
	equivalence (odelta,fhdr(05))
	equivalence (b,begin,fhdr(06))
	equivalence (e,ennd,fhdr(07))
	equivalence (o,origin,fhdr(08))
	equivalence (a,arrivl,fhdr(09))
	equivalence (fmt,fhdr(10))
	equivalence (t0,time0,fhdr(11))
	equivalence (t1,time1,fhdr(12))
	equivalence (t2,time2,fhdr(13))
	equivalence (t3,time3,fhdr(14))
	equivalence (t4,time4,fhdr(15))
	equivalence (t5,time5,fhdr(16))
	equivalence (t6,time6,fhdr(17))
	equivalence (t7,time7,fhdr(18))
	equivalence (t8,time8,fhdr(19))
	equivalence (t9,time9,fhdr(20))
	equivalence (f,fini,fhdr(21))
	equivalence (resp0,fhdr(22))
	equivalence (resp1,fhdr(23))
	equivalence (resp2,fhdr(24))
	equivalence (resp3,fhdr(25))
	equivalence (resp4,fhdr(26))
	equivalence (resp5,fhdr(27))
	equivalence (resp6,fhdr(28))
	equivalence (resp7,fhdr(29))
	equivalence (resp8,fhdr(30))
	equivalence (resp9,fhdr(31))
	equivalence (stla,fhdr(32))
	equivalence (stlo,fhdr(33))
	equivalence (stel,fhdr(34))
	equivalence (stdp,fhdr(35))
	equivalence (evla,fhdr(36))
	equivalence (evlo,fhdr(37))
	equivalence (evel,fhdr(38))
	equivalence (evdp,fhdr(39))
	equivalence (fhdr40,fhdr(40))
	equivalence (user0,fhdr(41))
	equivalence (user1,fhdr(42))
	equivalence (user2,fhdr(43))
	equivalence (user3,fhdr(44))
	equivalence (user4,fhdr(45))
	equivalence (user5,fhdr(46))
	equivalence (user6,fhdr(47))
	equivalence (user7,fhdr(48))
	equivalence (user8,fhdr(49))
	equivalence (user9,fhdr(50))
	equivalence (dist,fhdr(51))
	equivalence (az,fhdr(52))
	equivalence (baz,fhdr(53))
	equivalence (gcarc,fhdr(54))
	equivalence (sb,fhdr(55))
	equivalence (sdelta,fhdr(56))
	equivalence (depmen,fmean,fhdr(57))
	equivalence (cmpaz,fhdr(58))
	equivalence (cmpinc,fhdr(59))
	equivalence (xminimum,fhdr(60))
	equivalence (xmaximum,fhdr(61))
	equivalence (yminimum,fhdr(62))
	equivalence (ymaximum,fhdr(63))
	equivalence (fhdr64,fhdr(64))
	equivalence (fhdr65,fhdr(65))
 	equivalence (fhdr66,fhdr(66))
	equivalence (fhdr67,fhdr(67))
	equivalence (fhdr68,fhdr(68))
	equivalence (fhdr69,fhdr(69))
	equivalence (fhdr70,fhdr(70))
	equivalence (nzyear,nzdttm,nhdr(1))
	equivalence (nzjday,nhdr(2))
	equivalence (nzhour,nhdr(3))
	equivalence (nzmin,nhdr(4))
	equivalence (nzsec,nhdr(5))
	equivalence (nzmsec,nhdr(6))
	equivalence (nvhdr,nhdr(7))
	equivalence (ninf,nhdr(8))
	equivalence (nhst,nhdr(9))
	equivalence (npts,nhdr(10))
	equivalence (nsnpts,nhdr(11))
	equivalence (nsn,nhdr(12))
	equivalence (nxsize,nhdr(13))
	equivalence (nysize,nhdr(14))
	equivalence (nhdr15,nhdr(15))
	equivalence (iftype,ihdr(1))
	equivalence (idep,ihdr(2))
	equivalence (iztype,ihdr(3))
	equivalence (ihdr4,ihdr(4))
	equivalence (iinst,ihdr(5))
	equivalence (istreg,ihdr(6))
	equivalence (ievreg,ihdr(7))
	equivalence (ievtyp,ihdr(8))
	equivalence (iqual,ihdr(9))
	equivalence (isynth,ihdr(10))
	equivalence (ihdr11,ihdr(11))
	equivalence (ihdr12,ihdr(12))
	equivalence (ihdr13,ihdr(13))
	equivalence (ihdr14,ihdr(14))
	equivalence (ihdr15,ihdr(15))
	equivalence (ihdr16,ihdr(16))
	equivalence (ihdr17,ihdr(17))
	equivalence (ihdr18,ihdr(18))
	equivalence (ihdr19,ihdr(19))
	equivalence (ihdr20,ihdr(20))
	equivalence (leven,lhdr(1))
	equivalence (lpspol,lhdr(2))
	equivalence (lovrok,lhdr(3))
	equivalence (lcalda,lhdr(4))
	equivalence (lhdr5,lhdr(5))
	equivalence (kstnm,khdr(1))
	equivalence (kevnm,khdr(2))
	equivalence (khole,khdr(4))
	equivalence (ko,khdr(5))
	equivalence (ka,khdr(6))
	equivalence (kt0,khdr(7))
	equivalence (kt1,khdr(8))
	equivalence (kt2,khdr(9))
	equivalence (kt3,khdr(10))
	equivalence (kt4,khdr(11))
	equivalence (kt5,khdr(12))
	equivalence (kt6,khdr(13))
	equivalence (kt7,khdr(14))
	equivalence (kt8,khdr(15))
	equivalence (kt9,khdr(16))
	equivalence (kf,khdr(17))
	equivalence (kuser0,khdr(18))
	equivalence (kuser1,khdr(19))
	equivalence (kuser2,khdr(20))
	equivalence (kcmpnm,khdr(21))
	equivalence (knetwk,khdr(22))
	equivalence (kdatrd,khdr(23))
	equivalence (kinst,khdr(24))
