Low level routine
eng - fr


overlapadr_c - Overlap computational routine

Library

Parameters

File content


/* 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;
}

Authors

IRCOM Group Alan Layec