cset1_x0.c

来自「基于Blas CLapck的.用过的人知道是干啥的」· C语言 代码 · 共 14 行

#include "atlas_misc.h"
void ATL_USET(const int N, const SCALAR alpha, TYPE *X, const int incx)
{
   int i;
   const register TYPE ra=(*alpha), ia=alpha[1];
   const int incX=incx+incx;

   for (i=N; i; i--, X += incX)
   {
      *X = ra;
      X[1] = ia;
   }
}