function readallsh,date
;
;  reads all science packet TM files for the specified date
;
; @(#)readallsh.pro	1.1 01/23/98 :LASCO IDL LIBRARY
;
fname='LASSH*'+date
files = findfile(fname+'*')
s=size(files)
if s(0) eq 1 then begin
   print,'Number of files to read in: ',s(1)
   for i=0,s(1)-1 do print,i,':   ',files(i)
   read,'Type in the number of the file you want to read or -1 for all:  ',nr
   if nr ge 0 then begin
      a=readsciencehigh(files(nr))
      c = size(a)
      print,'Processed file '+files(nr)+':',c(2),'  records'
      return,a
   endif
   for i=0,s(1)-1 do begin
       a = readsciencehigh(files(i))
       c = size(a)
       print,'Processing file '+files(i)+':',c(2),'  records'
       if i eq 0 then b = a else begin
          cc = size(b)
	  d = lonarr(c(1),c(2)+cc(2))
          d(0,0) = b
          d(0,cc(2)) = a
          b = d
       endelse
   endfor
   return,b
endif
print,'Error in readallsc:  No files found matching date = '+date
return,-1
end