pro rdmsis,name,num,ht,he,o,o2,ar,h,n,n2

openr,msunit,name,/get_lun
readf,msunit,num
ht=fltarr(num) & readf,msunit,ht
he=fltarr(num) & readf,msunit,he
o=fltarr(num) & readf,msunit,o
o2=fltarr(num) & readf,msunit,o2
ar=fltarr(num) & readf,msunit,ar
h=fltarr(num) & readf,msunit,h
n=fltarr(num) & readf,msunit,n
n2=fltarr(num) & readf,msunit,n2
free_lun,msunit
return
end