[go: up one dir, main page]
Menu ▾ ▴

[73c35b]: / anal / clutter.m  Maximize  Restore  History

Download this file

14 lines (13 with data), 524 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
function [dd_data,upar,d_raw]=clutter(par,d_parbl,d_raw)

global path_GUP

if ~libisloaded('clutter')

 libdir=fullfile(path_GUP,'lib');

 loadlibrary(fullfile(libdir,'clutter.so'),fullfile(libdir,'plwin.h'))

end

nout=length(d_raw);

oz=zeros(nout,1);

or=libpointer('doublePtr',oz); oi=libpointer('doublePtr',oz);

up=libpointer('doublePtr',zeros(20,1)); up.value=d_parbl((1:20)+42);

calllib('clutter','matface',length(par),par,0,[],length(d_raw),real(d_raw),imag(d_raw),nout,or,oi,up);

dd_data=complex(or.value,oi.value);

return