Scilab Function
eng


dfftsize

File content


//////////////////////////////////////
//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