subr lpgetangles,a,name_set,i1,i2
;reads a series of La Palma headers on disk and puts the angles in an array
nfil=i2-i1+1
t=fltarr(nfil)
zero,t
j=0
h=0
ty,name_set
ty,fns(name_set,1)
for i=i1,i2 do {
if fzfind(fns(name_set,i),h) lt 0 then {
	ty,'could not find ',fns(name_set,i),', aborting'
	retall }
t(j)=lptime(h)
j=j+1
}
lpdate,h,id,im,iy
a=lpangles(iy,im,id,t)
endsubr