subroutine wsac1(fname,data,npts,b,delta,nerr)
c Write minimum header sac file
c **rev. 28-Aug-06**
c
	real fhdr(70),data(259200)
	integer ihdr(35),lhdr(5)
	character khdr*8(24),fname*16
	data fhdr/70*-12345./,ihdr/6*-12345,6,3*0,5*-12345,1,19*-12345/
&	,lhdr/1,0,1,1,0/,khdr/24*'-12345  '/
c
	fhdr(1)=delta
	fhdr(6)=b
	fhdr(7)=b+(npts-1)*delta
	ihdr(10)=npts
	lrec=632+npts*4
	open(9,file=fname,access='direct',form='unformatted',recl=lrec)
	write(9,rec=1) fhdr,ihdr,lhdr,khdr,(data(i),i=1,npts)
	close(9)
	return
	end