;
;path='scratch:[schen]'
path=' '
fil ='hkmag*.dat'
list = findfile(path+fil)  
for i=0,n_elements(list)-1 do print,i,list(i)
read,'input file # to convert to xdr:',ifile
file = list(ifile)
i0 = strpos(file,';')
file0 = strmid(file,0,i0)+'_xdr'
print,'opening file:',file
print,'icreating file:',file0
openr, inLun, file, /get_lun,/segmented
openw, outLun,file0, /get_lun,/xdr

;insert

on_ioerror, ioerror

count = 0
frq = fltarr(16) &dfrq = frq &spde = frq &spdb = fltarr(8)

readu,inLun,frq
readu,inLun,dfrq

writeu,outLun,frq
writeu,outLun,dfrq

rec0 = {yr:0l,doy:0l,hr:0l,min:0l,centisec:0l}

readu,inlun,rec0

writeu,outLun,rec0


pass=0l & epoch = 0d0
re = 1.& amlat = 1. & amlt = 1.
xgsm=0. & ygsm=0. & zgsm=0.
bave = 1. & im1 = 0l & im2 = 0l

while not eof(inLun) do begin

  readu,inLun,pass,epoch
  readu,inLun,re,amlat,amlt,xgsm,ygsm,zgsm
  readu,inLun,bave
  readu,inLun,spde
  readu,inLun,spdb
  readu,inLun,im1,im2

  writeu,outLun,pass,epoch
  writeu,outLun,re,amlat,amlt,xgsm,ygsm,zgsm
  writeu,outLun,bave
  writeu,outLun,spde
  writeu,outLun,spdb
  writeu,outLun,im1,im2

endwhile ; not eof
ioerror:
free_lun, inLun
free_lun, outLun
end