;PRO cdf_test,name
name=''
READ,'Enter the .CDF file name: ',name
;id=cdf_open('$1$dia2:[zhang]i8_k0_mag_19931204_v01.cdf')
id=cdf_open(name)
cdf_doc,id,v,r,c
print,'CDF Version',v,' Release',r
print,c
Res1=cdf_inquire(id)
print,'Inquire',res1
cdf_varget,id,'Time_PB5',time,rec_start=0 ; to read the time in the first record
print,time
cdf_varget,id,'B_GSM_c',IMF,rec_start=0 ; read IMF vector
print,IMF
;RETURN
end