pro GS_Transfer_Slice,parms,rowdata,path,parmin,datain,info=info
if n_elements(path) eq 0 then begin
dirpath=file_dirname((ROUTINE_INFO('GS_Transfer_Slice',/source)).path,/mark)
path=dirpath+'GS_Transfer_Slice.dll'
end
if arg_present(info) then begin
if n_elements(parms) gt 0 then dummy=temporary(parms)
if n_elements(info) eq 0 then begin
result=call_external(path,'GET_PARMS',/F_VALUE,/unload )
openr,lun,'parms.txt',/get,error=error
if error eq 1 then return
line=''
WHILE ~ EOF(lun) DO BEGIN 
READF, lun, line 
info=strsplit(line,';',/extract)
if n_elements(info) eq 3 then info=[info,'']
if n_elements(parms) eq 0 then begin
parms={name:strcompress(info[0],/rem),value:float(info[1]),unit:strcompress(info[2],/rem),hint:info[3]}
endif else begin
parms=[parms,{name:strcompress(info[0],/rem),value:float(info[1]),unit:strcompress(info[2],/rem),hint:info[3]}]
end
ENDWHILE
free_lun,lun
endif else parms=info.parms 
Nvox=1L
Npix=1L
dummy_parmin=fltarr(n_elements(parms),Nvox,Npix)
dummy_parmin[*]=parms.value
dummy_datain=fltarr(7,parms[18].value,Npix)
test_call=call_external(path,'GET_MW_SLICE',Npix,Nvox,dummy_parmin,dummy_datain,/F_VALUE,/unload )
info={parms:parms,$
pixdim:[parms[18].value,2,3],$
spectrum:{x:{axis:reform(dummy_datain[0,*]),label:'Frequency',unit:'GHz'},$
y:{label:['LCP','RCP','[RCP+LCP]','[RCP-LCP]','[R-L]/[R+L]'],unit:['sfu','sfu','sfu','sfu','%']}},$
channels:['Exact Coupling', 'Weak Coupling', 'Strong Coupling']} 
return
end
sz=size(rowdata,/dim)
Npix=sz[0]
Nfreq=sz[1]
Npol=sz[2]
Ncouplings=sz[3]
sz=size(parms,/dim)
Npix=sz[0] 
Nvox=sz[1] 
Nparms=sz[2]
if n_elements(datain) eq 0 then datain=fltarr(7,Nfreq,Npix)
if n_elements(parmin) eq 0 then parmin=fltarr(Nparms,Nvox,Npix)
for i=0, npix-1 do begin
parmin[*,*,i]=transpose(parms[i,*,*])
end
test_call=call_external(path,'GET_MW_SLICE',Npix,Nvox,parmin,datain,/F_VALUE,/unload )
rowdata[*,*,0,0]=transpose(datain[5,*,*]);eL
rowdata[*,*,1,0]=transpose(datain[6,*,*]);eR
rowdata[*,*,0,1]=transpose(datain[1,*,*]);wL
rowdata[*,*,1,1]=transpose(datain[2,*,*]);wR
rowdata[*,*,0,2]=transpose(datain[3,*,*]);sL
rowdata[*,*,1,2]=transpose(datain[4,*,*]);sR
end