////////////////////////////////////// //Function dfftsize // //[l,ierr]=dfftsize(sizefft) //Fonction qui retourne la taille du mot de travail //nécessaire à la fonction dfftmx pour effectuer une fft. //Appel la fonction d.c qui est une version raccourcie //de la fonction SCI/routines/signal/dfftbi.f //(convertie grâce à f2c) // // int d(integer *n, integer *i__, integer *ierr) // // entrée : integer *n : sizefft // sorties : integer *i__ : l // : integer *ierr : ierr // //sizefft : taille du vecteur d'entrée //l : taille du mot(en double) à réserver //ierr : numéro erreur function [l,ierr]=dfftsize(sizefft) l=zeros(size(sizefft,1),size(sizefft,2)) for i=1:size(sizefft,1) for j=1:size(sizefft,2) [l(i,j),ierr]=call('d',sizefft(i,j),1,'i','out',[1,1],2,'i',[1,1],3,'i') end end endfunction