pro GrabDumpData,DumpFile,DumpData,DumpHomog,DumpYearAD,DumpWMO,DumpName,DumpCty, $
		DumpText,DumpPlot,DumpTitle

DumpWMO=0L & DumpName="" & DumpCty="" & DumpYearN=0 & DumpText="" & DumpTitle=""
GVcommand = "" & IPcommand = "" & DumpPlot=0
Int0=0L & Int1=0L & Int2=0L & Int3=0L & Int4=0L & Int5=0L
Int6=0L & Int7=0L & Int8=0L & Int9=0L & Int10=0L & Int11=0L & Float0=0.0

openr, lunDump, DumpFile, /get_lun
readf, lunDump, DumpWMO,DumpName,DumpCty,DumpYearN,DumpText,DumpPlot, $
		format="(i8,x,a20,x,a13,x,i4,x,a8,x,i2)"
readf, lunDump, DumpTitle

DumpData=fltarr(12,DumpYearN) & DumpYearAD=intarr(DumpYearN) 
DumpHomog=fltarr(DumpYearN)
      
for XDumpYear = 0, DumpYearN-1 do begin
  readf,lunDump,HYear,Int0,Int1,Int2,Int3,Int4,Int5,Int6,Int7,Int8,Int9,Int10,Int11, $
  		Float0, format="(i4,12i5,f10.2)"
  DumpYearAD(XDumpYear)=HYear
  DumpData(0,XDumpYear)=float(Int0)   & DumpData(1,XDumpYear)=float(Int1) 
  DumpData(2,XDumpYear)=float(Int2)   & DumpData(3,XDumpYear)=float(Int3) 
  DumpData(4,XDumpYear)=float(Int4)   & DumpData(5,XDumpYear)=float(Int5) 
  DumpData(6,XDumpYear)=float(Int6)   & DumpData(7,XDumpYear)=float(Int7) 
  DumpData(8,XDumpYear)=float(Int8)   & DumpData(9,XDumpYear)=float(Int9) 
  DumpData(10,XDumpYear)=float(Int10) & DumpData(11,XDumpYear)=float(Int11)
  
  DumpHomog(XDumpYear)=Float0
endfor

free_lun, lunDump

end