Low level routine
eng -
fr
overlapadr_c - Overlap computational routine
- m1 : size of the input vector
- n : size of the memory word
- nb_coef : size of exess word.
- u_r : address of the input vector
- z_r : address of the output vector
/* overlapdr_c subroutine
* Orverlapping operation
* for real value
* IRCOM GROUP - Author : A.Layec
*/
/* REVISION HISTORY :
* $Log$
*/
#include "mod_num_lib.h"
/* overlapadr_c routine de calcul du mot overlappé partie réelle
*
* m1 : taille du vecteur d'entrée
* n : longeur du mot à conserver
* nb_coef : taille du mot excédentaire
* u_r : vecteur d'entrée de taille m1 (m1>n)
* z_r : vecteur de sortie de taille nb_coef
*
* utilise : dcopy (BLAS)
*
*/
void overlapadr_c(int *m1,int *n,int *nb_coef,double *u_r,double *z_r)
{
/*déclaration*/
int i,l,k;
/*Ajoute les nz éléments précédents au début du vecteur y_r*/
for(i=0;i<(*nb_coef);i++) u_r[i]=u_r[i]+z_r[i];
/*Recopie les nz éxcédentaires de z_res_r dans z*/
F2C(dcopy)((l=(*nb_coef),&l),&u_r[(*n)],(k=1,&k),&z_r[0],(k=1,&k));
return;
}
IRCOM Group
Alan Layec