function asm,name,num,size

single=intarr(size,size)
big=intarr(size,size,num)
for i=0,num-1 do begin
    tmp=strcompress(string(i))
    l=strlen(tmp)
    ext=strmid(tmp,l-2,2)
    if strmid(ext,0,1) eq ' ' then strput,ext,'0',0
    print,'extension = ',ext
    fname=name+'.'+ext
    print,fname
    openr,unit,fname,/get_lun
    readu,unit,single
    close,unit
    big(*,*,i)=single
endfor
return,big
end