atimes.c

来自「Numerical Recipes Software 提供的算法子程序集」· C语言 代码 · 共 15 行

extern unsigned long ija[];
extern double sa[];

void atimes(n,x,r,itrnsp)
double r[],x[];
int itrnsp;
unsigned long n;
{
	void dsprsax(),dsprstx();

	if (itrnsp) dsprstx(sa,ija,x,r,n);
	else dsprsax(sa,ija,x,r,n);
}
/* (C) Copr. 1986-92 Numerical Recipes Software . */